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