等速直線運動では面白くないので円運動させてみました
暇な人はやってみてください()
ACLS
SX=10:SY=20:GX=110:GY=220 'スタートとゴール
CX=40 '円の中心X座標 自由に決めていい
CY=(GX-SX)/(GY-SY)*((SX+GX)/2-CX)+(SY+GY)/2 '謎の式登場()
CR=SQR((SX-CX)*(SX-CX)+(SY-CY)*(SY-CY))
SA=ATAN(SY-CY,SX-CX):GA=ATAN(GY-CY,GX-CX)
SPSET 0,0:SPOFS 0,SX-8,SY-8
SPSET 1,1:SPOFS 1,GX-8,GY-8
BGMPLAY 8
FOR I=0 TO 1200
A=SA+(GA-SA)*I/1200
PX=CX+CR*COS(A):PY=CY+CR*SIN(A)
GPSET PX,PY,#YELLOW
IF I==600 THEN
SPSET 2,2:SPOFS 2,PX-8,PY-8
_X=PX:_Y=PY
BEEP 7
ENDIF
LOCATE 30,15:?FLOOR(I/60)
VSYNC 1
NEXT
BGMPLAY 5
LOCATE 0,0:?ROUND(_X);",";ROUND(_Y);" でした!"