450 "D"CLEAR :D=-2
460 CLS :WAIT 0:RANDOM 
470 K=0:X=1:Y=RND 20+4:Z=RND 20*2+5:P=-1:L=5:R=1:IF RND 2=1 LET R=-1
480 D=D+2:CURSOR 14,3:PRINT STR$ D
490 GCURSOR (76,21):GPRINT "7E4A4A340030484830003048487E0030484830001820402018003048483840"
500 LINE -(60,31),B:LINE (56,8)-(56,11):LINE -(60,11)
510 GCURSOR (Z,31):GPRINT "8080FFFFFF8080"
520 LINE (75,14)-(107,21),X,BF
530 A=1:T=1
540 IF INKEY$ ="0" IF Z>2 LET Z=Z-2:GCURSOR (Z,31):GPRINT "8080FFFFFF8080"
550 IF INKEY$ ="+" IF Z<53 LET Z=Z+2:GCURSOR (Z,31):GPRINT "8080FFFFFF8080"
560 X=X+T:Y=Y+R:IF POINT (X,Y) GOSUB 590:X=P:Y=Q:P=-1:IF K GOTO 460
570 PSET (X,Y):PRESET (P,Q):P=X:Q=Y
580 GOTO 540
590 T=A:IF Y=11 AND X>55 GOTO 660
600 IF Y=24 AND X>Z AND X<Z+5 GOTO 630
610 IF Y<1 OR Y>30 LET R=-R:RETURN 
620 T=-T:A=T:RETURN 
630 R=-1:T=0:A=1:IF INKEY$ ="0" LET T=-1:A=-1
640 IF INKEY$ ="+" LET T=1
650 RETURN 
660 IF R=-1 LET R=1:RETURN 
670 IF P>55 LET K=1
680 T=-T:A=T:RETURN