見たけど追う気力なかった。 サンプル。これでヒントになるかしら??? 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