option strict xon motion var p,r,y,ip,ir,iy,i,p0=12,r0=5 acls: gyrosync while 1 vsync: gyroa out p,r,y ip = deg(p): ir = deg(r): iy = deg(y) for i = 0 to p0 * 2 locate 20,i: ? format$("%4d", ip + i - p0) next for i = 0 to r0 * 2 locate i * 4, 12: ? format$("%4d", ir - i + r0) next wend