10CLS :CLEAR
20RANDOMIZE
30X=0,Y=10,M=.5
40FOR J=1 TO 15
50A= RND 133+10,B= RND 47
60LINE (A,B)-(A+3,B)
70NEXT
80LINE (0,30)-(5,30)
90*MAIN
100IF POINT (X,Y+1) LET T=T-1
110IF Y>47 GOTO *END
120IF X>142 GOTO *FIN
130T=T+.03
140IF T>1 LET T=1
150NY=Y+T
160K$= INKEY$
170IF K$="1" LET NX=X-M
180IF K$="2" LET NX=X+M
190IF POINT (X+1,NY) LET NX=X
200IF POINT (X,Y-1) LET NY=Y-T*2,T=1
210PRESET (X,Y)
220PSET (NX,NY)
230X=NX,Y=NY
240GOTO *MAIN
250*END
260PRINT "GAME OVER":CALL 48381:GOTO 10
270*FIN
280PRINT "GOAL":CALL 48381:GOTO 10