01:ACLS
02:SPSET 0,0
03:X=200:Y=120
04:WHILE 1
05: VSYNC
06: STICK OUT TX,TY
07: IF TX==0 && TY==0 THEN
08: X=X-COS(V)*M
09: Y=Y+SIN(V)*M
10: M=M-1*(M>0)
11: ELSE
12: V=ATAN(TY,TX):M=10
13: ENDIF
14: SPOFS 0,X,Y
15:WEND
こうかな?
まるっきし見当違いならごめんなさいだけど、この通りなら追加の質問どうぞ