10 SPRITEON:DIMT(25):CGSET1,0:CLS:X=16:Y=167:AX=100:AY=167:G2=1:G3=2:G4=3:LY=1:HE=2
20 DEFSPRITE0,(3,1,0,0,0)=CHR$(192)+CHR$(193)+CHR$(194)+CHR$(195)
30 DEFSPRITE1,(3,1,0,0,0)=CHR$(196)+CHR$(197)+CHR$(198)+CHR$(199)
40 DEFSPRITE2,(3,1,0,0,0)=CHR$(176)+CHR$(177)+CHR$(178)+CHR$(179)
50 DEFSPRITE3,(3,1,0,0,0)=CHR$(192)+CHR$(193)+CHR$(194)+CHR$(195)
60 DEFSPRITE4,(2,1,0,1,0)=CHR$(33)+CHR$(32)+CHR$(35)+CHR$(34):SPRITE4,16,47
70 DEFMOVE(0)=SPRITE(7,7,1,255,0,1):GOSUB600:GOSUB500
100 S=STICK(0):IFS<>0 SWAPG1,G2
110 IFS=1ANDX1<8 X1=X1+2
120 IFS=2ANDX1>-8 X1=X1-2
121 B=STRIG(0)
122 IFB=8ANDJU=0 JU=1:JM=-10
123 IFB=4ANDHE>0 HE=HE-1:PLAY"M0V15T1O4B0GBG2":GOSUB550
124 IFJU=1 Y=Y+JM:JM=JM+4:IFJM>10 JU=0
125 X1=X1-1*SGN(X1)
130 IFX>=16 GOTO150
140 X=16:X1=0:IFY=143ORY=95 GOSUB300
150 IFX<=223 GOTO170
160 X=223:X1=0:IFY=167ORY=119ORY=71 GOSUB300
170 X=X+X1:IFX<>0 SPRITEG2
180 SPRITEG1,X,Y:IFMOVE(0)=0 MOVE0
190 IFCO<10 GOTO220
200 CO=0:IFRND(2)=0 BX=-2:GOTO220
210 BX=2
220 SWAPG3,G4:CO=CO+1:IFAX+BX<32ORAX+BX>207 BX=0
230 AX=AX+BX:SPRITEG4:SPRITEG3,AX,AY
240 IFABS(X-AX)<15ANDJU=0 GOTO1000
250 IFABS(X-XPOS(0))<16ANDJU=1 GOTO1000
260 IFX>26ANDJU=0 HA=(X-26)/8:IFHA>=0 IFT(HA)=1 GOTO400
270 IFX=16ANDY=47 GOTO700
280 GOTO100
300 Y=Y-24:AY=AY-24:GOSUB600:LY=LY+1
310 PLAY"M0V15T1O1C0EGO2CEGO3CEGO4CEG":GOTO500
400 X1=0:AY=AY+24:LY=LY-1:IFLY=0 GOTO1000
410 FORI=1TO6:PLAY"M0V15T1O4G0":Y=Y+4:SPRITEG1,X,Y:NEXT:GOSUB600:GOSUB500:GOTO260
500 GOSUB550:FORI=1TOLY*2:RA=RND(24)+2:LOCATERA,23-LY*3:PRINT" ":T(RA-2)=1:NEXT:RETURN
550 FORI=0TO27:LOCATEI,23-LY*3:COLORI,23-LY*3,2:PRINTCHR$(195):NEXT
560 FORI=0TO25:T(I)=0:NEXT:RETURN
600 POSITION0,224,Y-16:RETURN
700 CLS:SPRITEG3:ERA0:SPRITEG1,122,80:SPRITE4,102,80:LOCATE5,10:PRINT"CONGRATULATIONS!"
800 PLAY"M1V15T4O1C5F6C3C5F3GA6G3F5":PLAY"F3FG5GF3EDEF9"
810 GOTO810
1000 CUT0:FORI=1TO3:PLAY"M0V15T1O3B0GEO2BGEO1BGECO0":NEXT:FORI=-6TO3:Y=Y+I:SPRITEG1,X,Y:NEXT
1010 IFY<220 Y=Y+3:SPRITEG1,X,Y:GOTO1010
1020 SPRITEG1:LOCATE9,12:PRINT"GAME OVER":PLAY"M1V9T4E5E4E2E5G4#F2#F4E2E4#D2E8":PAUSE:RUN

