2 X=9:Y=8:H=7:I=7:W=1:V=1
3 K=SW
4 IF K AND 2 THEN IF H<13 THEN H=H+1
5 IF K AND 1 THEN IF H>0 THEN H=H-1
6 IF K AND 16 THEN IF I<13 THEN I=I+1
7 IF K AND 32 THEN IF I>0 THEN I=I-1
8 X=X+W:Y=Y+V
9 IF X<0 THEN W=-W
10 IF X>31 THEN W=-W
11 IF Y<0 THEN V=-V
12 IF Y>15 THEN V=-V
13 IF X=2 THEN
14 IF H<=Y THEN IF H+3>Y THEN W=-W
15 ENDIF
16 IF X=28 THEN
17 IF I<=Y THEN IF I+3>Y THEN W=-W
18 ENDIF
19 CLS:LINE 2,H,2,H+2,1:LINE 28,I,28,I+2,1
20 PSET X,Y,1
21 GOTO 3
