見たけど追う気力なかった。
サンプル。これでヒントになるかしら???
var p,r,y,ip,ir,iy,i,p0=12,r0=5
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