1 X=20:Y=15:X1=40:Y1=0
2 H=1500:V=700
3 CLS
4 PSET X/100,Y/100,1
5 PSET H/100,V/100,1
7 IF SW AND 8 THEN H=H+10
8 IF SW AND 4 THEN H=H-10
9 IF SW AND 2 THEN V=V+10
10 IF SW AND 1 THEN V=V-10
11 IF X>H THEN XD=H-X-100 ELSE XD=H-X+100
13 IF Y>V THEN YD=V-Y-100 ELSE YD=V-Y+100
15 X1=XD/90+X1:Y1=YD/90+Y1
16 X=X+X1:Y=Y+Y1
18 GOTO 3
