20 LET X=32
30 LET Y=22
40 GOSUB 500
50 UNPLOT X,Y
60 PLOT X,Y
70 GOTO 40
80 GOSUB 500
90 GOTO 80
100 GOSUB 500
110 PLOT X,Y
120 UNPLOT X,Y
130 GOTO 100
500 IF INKEY$="1" THEN GOTO 40
510 IF INKEY$="2" THEN GOTO 80
520 IF INKEY$="3" THEN GOTO 600
530 IF INKEY$="4" THEN GOTO 100
540 IF INKEY$="5" THEN LET X=X-1
550 IF INKEY$="6" THEN LET Y=Y-1
555 IF Y=43 THEN GOTO 565
560 IF INKEY$="7" THEN LET Y=Y+1
565 IF X=63 THEN GOTO 590
570 IF INKEY$="8" THEN LET X=X+1
590 RETURN
600 COPY
