10 SCREEN0:KEYOFF:COLOR15,1,1:GOSUB25000:DEFINTA-Z:SCREEN 2,2,0
20 OPEN"GRP:"AS#1:GOSUB39900:GOSUB10011:GOSUB16000:GOTO17000
30 ZZ=USR1(0):GOSUB21095:GOSUB20005:GOSUB22001:GOSUB10000:GOSUB22130:GOSUB22150:GOSUB21100:VI=8:PT=0:SC=0:SK=0:GOSUB21110:TIME=0:ZZ=USR2(0)
40 VPOKE 6913,X:VPOKE6912,Y:VPOKE6914,2*4:VPOKE6915,15:STRIG(0)ON:STRIG(1)ON
50 GOTO70
59
60 FORT=250TO100STEP-50:SOUND0,T:SOUND1,0:SOUND7,56:SOUND12,5:SOUND13,0:NEXT:STRIG(0)OFF:STRIG(1)OFF:SA=1:RETURN
61 Y=Y-V:IFY<110THENV=-V
64 IFY>145THENY=145:SA=0:STRIG(0)ON:STRIG(1)ON:V=-V:SOUND6,30:SOUND7,55:SOUND12,2:SOUND13,0
65 RETURN
70 P(0)=0*4:P(1)=1*4:P(2)=2*4:P(3)=3*4:P(4)=4*4:P(5)=5*4
72
73 F=1:GOSUB6150:X=230:Y=145:U=4:E=127:TK=1:H1=127:PS=P(2):GOSUB22120:LL=0:CN=1
90 PUTSPRITE0,(230,145),15,2:FORR=1TO1500:NEXT
92 IFTIME<2THEN92
93 TIME=0:SPRITEON:SOUND8,16
100 ONSTICK(0)ORSTICK(1)GOTO127,110,110,110,127,120,120,120
105 VPOKE6913,X:VPOKE6912,Y:VPOKE6914,PS:GOTO127
110 ONSAGOTO115:X=X+4:VPOKE6913,X:VPOKE6914,P(0):SWAPP(0),P(1):PS=P(1):GOTO127
115 X=X+4:VPOKE6913,X:VPOKE6912,Y:VPOKE6914,P(4):PS=P(0):GOTO127
120 ONSAGOTO125:X=X-4:VPOKE6913,X:VPOKE6914,P(2):SWAPP(2),P(3):PS=P(3):GOTO127
125 X=X-4:VPOKE6913,X:VPOKE6912,Y:VPOKE6914,P(5):PS=P(2):GOTO127
127 ONLLGOTO132
130 IFX<5THENGOSUB7998:LL=1:GOTO132
131 GOTO137
132 IFX<5THENX=5
137 ONCNGOTO141
140 IFX>230THENGOSUB8048:ZZ=USR3(0):SOUND8,16:CN=1
141 IFX>230THENX=230
150 ONSAGOSUB61
152 IFPOINT(X+8,Y+17)=1THENIFSA=0THEN11000
160 ONFGOSUB210,320,420,520,620,720,820,920,1020,1120,1220,1320,1420,1520
199
210 PUTSPRITE10,(120,E),15,19:E=E-U:SOUND0,E:SOUND1,1:SOUND7,56:SOUND12,19:SOUND13,0:IFE>162ORE<90THENU=-U
216 RETURN100
299
310 X=230:Y=145:H1=127:H2=187:H3=67:E=162:U=4:J=120:B=1:GOSUB22120:FORR=1TO2000:NEXT
320 ONBGOTO330,325
325 PUTSPRITE10,(J,145),15,19:J=J+U:IFJ>220ORJ<20THENSOUND6,55:SOUND7,55:SOUND12,4:SOUND13,0:PUTSPRITE10,(J,E),15,12:FORR=1TO30:NEXT:PUTSPRITE10,(1,209):B=1:J=120:E=162
327 RETURN100
330 PUTSPRITE10,(120,E),15,19:SOUND0,E:SOUND1,1:SOUND7,56:SOUND12,5:SOUND13,0:E=E-2
340 IFE<145THENIFX=<127THENU=-4:B=2:GOTO360
350 IFE<145THENIFX=>127THENU=4:B=2
360 RETURN100
399
410 RESTORE470:X=230:Y=145:J=48:E=165:H1=47:H2=100:GOSUB22120:GOSUB22121:H3=147:H4=200:GOSUB22122:GOSUB22123:FORR=1TO2000:NEXT
420 PUTSPRITE10,(J,E),15,19:PUTSPRITE11,(J+100,E),15,19:READJ,E:IFJ=42THENRESTORE470:SOUND6,1:SOUND7,55:SOUND12,15:SOUND13,5
440 RETURN 100
470 DATA48,165,55,170,60,170,65,170,70,170,75,170,80,170,85,165,90,160,92,155,94,150,94,145,94,140,90,135,85,130,80,125,75,120,70,120,65,120,60,125,55,130,50,135,45,140,40,142,37,145,37,150,39,155,42,160
499
510 X=230:Y=145:H1=127:H2=47:H3=207:E=162:U=2:O=2:J=120:B=1:GOSUB22120:GOSUB22121:GOSUB22122:FORR=1TO2000:NEXT
520 ONBGOTO530,525
525 PUTSPRITE10,(J,E),15,19:J=J+U:E=E-O:IFJ>210ORJ<30THENPUTSPRITE10,(J,E),15,12:SOUND6,15:SOUND7,55:SOUND12,15:SOUND13,0:FORR=1TO30:NEXT:PUTSPRITE10,(1,209):B=1:J=120:E=162
527 IFE=<96ORE>140THENO=-O
528 IFE>140THENSOUND1,4:SOUND7,56:SOUND12,24:SOUND13,0
529 RETURN100
530 PUTSPRITE10,(J,E),15,19:E=E-2
540 IFE<146THENIFX=<127THENO=8:U=-2:B=2:GOTO560
550 IFE<146THENIFX=>127THENO=8:U=2:B=2
560 RETURN100
599
610 F=5:X=230:Y=145:E=162:J=108:C=135:H1=127:B=1:U=4:GOSUB22120:FORR=0TO2000:NEXT
620 ONBGOTO630,650,645
630 PUTSPRITE10,(120,E),8,21:E=E-1:SOUND6,31:SOUND7,55:SOUND12,5:SOUND13,0:IFE=145THENB=3
640 RETURN100
645 D=D+1:IFD>25THENB=2:D=0:SOUND6,20:SOUND7,55:SOUND12,20:SOUND13,0
646 RETURN100
650 PUTSPRITE11,(J,148),1,22:PUTSPRITE12,(C,148),1,23:J=J-U:C=C+U:IFC>220THENPUTSPRITE11,(1,209):PUTSPRITE12,(1,209):U=INT(RND(1)*1+5):J=108:C=135:B=3
660 RETURN100
699
710 F=6:X=230:Y=145:J=120:E=162:H1=127:H2=77:H3=177:U=5:O=8:B=1:GOSUB22120:GOSUB22121:GOSUB22122:FORR=0TO2000:NEXT
720 ONBGOTO730,740,760,765
730 PUTSPRITE10,(J,E),4,11:E=E-2:SOUND6,E:SOUND7,55:SOUND12,3:SOUND13,0:IFE<140THENB=2:SOUND6,15:SOUND7,55:SOUND12,5:SOUND13,4
735 RETURN100
740 IFX<JTHENO=INT(RND(1)*4)-5:B=3:RETURN100
745 IFX>=JTHENO=INT(RND(1)*4)+2:B=3:RETURN100
760 PUTSPRITE10,(J,E),4,11:J=J+O:E=E-U:IFE<90THENU=-U
762 IFE>145THENPUTSPRITE10,(J,E),8,12:SOUND6,25:SOUND7,55:SOUND12,30:SOUND13,0:FORR=1TO30:NEXT:PUTSPRITE10,(1,209):E=162:J=120:U=5:B=4
763 RETURN100
765 CO=CO+1:IFCO>20THENB=1:CO=0
770 RETURN100
799
810 F=7:X=230:Y=145:E=160:D=146:H1=127:H2=85:H3=169:GOSUB22120:GOSUB22121:GOSUB22122:O=4:Q=26:W=27:G=10:J=8:CO=0:FORR=0TO2000:NEXT
820 PUTSPRITE10,(120,E),G,W:E=E-O:SWAPW,Q:SWAPG,J:IFE<144ORE>160THENO=-O:SOUND6,2:SOUND7,55:SOUND12,2:SOUND13,4
825 PUTSPRITE11,(78,D),J,Q:PUTSPRITE12,(160,D),J,Q:D=D+O
830 RETURN100
899
910 F=8:X=230:Y=145:G=103:E=162:D=133:J=162:H1=108:H2=142:GOSUB22120:GOSUB22121:U=6:O=2:B=1:FORR=0TO2000:NEXT
920 ONBGOTO930,940,960
930 PUTSPRITE10,(G,E),4,11:E=E-O:PUTSPRITE11,(D,J),4,11:J=J-O:SOUND6,31:SOUND7,55:SOUND12,4:SOUND13,0:IFE<144THENB=2:O=8
935 RETURN100
940 PUTSPRITE10,(G,E),4,11:PUTSPRITE11,(D,J),4,11:E=E-O:G=G-U:D=D+U:J=J-O:IFE<90THENO=-O
950 IFE>145THENPUTSPRITE10,(G,E),8,12:PUTSPRITE11,(D,J),8,12:SOUND6,15:SOUND7,55:SOUND12,15:SOUND13,0:FORR=0TO25:NEXT:U=4:B=3
955 RETURN100
960 PUTSPRITE10,(G,E),4,14:PUTSPRITE11,(D,J),4,13:G=G+U:D=D-U:IFG>100THENPUTSPRITE11,(1,209):PUTSPRITE10,(120,145),8,12:FORR=0TO31:SOUND6,R:SOUND7,55:SOUND12,40:SOUND13,0:NEXT:PUTSPRITE10,(1,209):G=103:E=162:D=133:J=162:U=6:O=2:B=1
980 RETURN100
999
1010 F=9:X=230:Y=145:J=110:D=115:E=90:B=1:H1=127:GOSUB22120:GOSUB1090
1020 ONBGOTO1024,1030,1040,1060
1024 SOUND8,16:SOUND1,3:SOUND6,4:SOUND7,50:SOUND12,50:SOUND13,0
1025 IFX>127THENB=2:D=124:RETURN100
1026 IFX=<127THENB=3:D=112:RETURN100
1027 RETURN100
1030 PUTSPRITE10,(D,E),10,28:E=E+3:D=D+2:IFE>162THENPUTSPRITE10,(1,209):E=90:B=4
1035 RETURN100
1040 PUTSPRITE10,(D,E),10,28:E=E+3:D=D-2:IFE>162THENPUTSPRITE10,(1,209):E=90:B=4
1050 RETURN100
1060 CO=CO+1:IFCO>20THENB=1:CO=0
1062 RETURN100
1090 PUTSPRITE14,(J,72),14,16:PUTSPRITE15,(J+16,72),14,17:PUTSPRITE16,(205,153),14,15:PUTSPRITE17,(43,153),14,15:RETURN
1099
1110 F=10:X=230:Y=145:E=162:J=120:U=5:O=4:Q=7:W=8:D=9:K=10:B=1:H1=127:H2=40:H3=210:GOSUB22120:GOSUB22121:GOSUB22122:FORR=1TO2000:NEXT
1120 ONBGOTO1125,1130,1140,1150,1155,1160,1170
1125 IFX<127THENB=2:O=4:U=5:RETURN100
1126 IFX=>127THENB=5:O=4:U=5:RETURN100
1127 RETURN100
1130 GOSUB1190:PUTSPRITE10,(J,E),15,7:E=E-2:IFE<142THENB=3
1135 RETURN100
1140 PUTSPRITE10,(J,E),15,Q:J=J-O:E=E-U:SWAPQ,D:IFE<120ORE>140THENU=-U
1145 IFJ<36THENB=4
1146 IFE>140THENSOUND0,255:SOUND1,2:SOUND7,56:SOUND12,10:SOUND13,0
1147 RETURN100
1150 GOSUB1190:PUTSPRITE10,(J,E),15,7:E=E+2:IFE>162THENB=1:PUTSPRITE10,(1,209):J=120:E=162
1152 RETURN100
1155 GOSUB1190:PUTSPRITE10,(J,E),15,8:E=E-2:IFE<142THENB=6
1157 RETURN100
1160 PUTSPRITE10,(J,E),15,W:J=J+O:E=E-U:SWAPW,K:IFE<120ORE>140THENU=-U
1161 IFE>140THENSOUND0,255:SOUND1,2:SOUND7,56:SOUND12,10:SOUND13,0
1165 IFJ>200THENB=7
1167 RETURN100
1170 GOSUB1190:PUTSPRITE10,(J,E),15,8:E=E+2:IFE>162THENB=1:PUTSPRITE10,(1,209):J=120:E=162
1182 RETURN100
1190 SOUND6,3:SOUND7,55:SOUND12,7:SOUND13,0:RETURN
1199
1210 F=11:X=230:Y=145:J=120:E=100:C=92:Q=7:W=8:D=9:K=10:U=8:O=2:H1=127:H2=67:H3=187:B=1:H=1:GOSUB22120:GOSUB22121:GOSUB22122:GOSUB1290:FORR=0TO2000:NEXT
1215 IFTIME<2THEN1215
1217 TIME=0
1220 ONHGOTO1222,1225
1222 PUTSPRITE10,(J,E),15,Q:J=J-O:E=E+U:SWAPQ,D:IFJ<50THENO=-O:H=2
1223 GOTO1230
1225 PUTSPRITE10,(J,E),15,W:J=J-O:E=E+U:SWAPW,K:IFJ>190THENO=-O:H=1
1230 IFE<100ORE>140THENU=-U
1231 IFE>140THENSOUND0,255:SOUND1,2:SOUND7,56:SOUND12,10:SOUND13,0
1240 ONBGOTO1250,1260
1250 IFX<127THENB=2:C1=20:GOSUB1270:RETURN100
1255 IFX>=127THENB=2:C1=215:GOSUB1270:RETURN100
1260 PUTSPRITE11,(C1,C),10,28:C=C+4:IFC>160THENPUTSPRITE11,(1,209):B=1:C=92
1262 RETURN100
1270 SOUND1,3:SOUND6,4:SOUND7,50:SOUND12,50:SOUND13,0:RETURN
1290 PUTSPRITE14,(10,72),14,16:PUTSPRITE15,(26,72),14,17:PUTSPRITE16,(210,72),14,16:PUTSPRITE17,(226,72),14,17:RETURN
1299
1310 F=12:X=230:Y=145:J=127:Q=6:W=30:U=5:O=3:D=100:B=0:H1=67:K=160:H2=197:LINE(87,161)-(177,163),0,B:GOSUB22120:GOSUB22121:RESTORE1380:FORR=0TO2000:NEXT
1320 ONBGOTO1330
1325 PUTSPRITE10,(J,150),14,Q:SWAPQ,W:J=J+U:SOUND0,J+90:SOUND1,3:SOUND7,56:SOUND12,3:SOUND13,0:IFJ<90ORJ>155THENU=-U
1327 B=1:RETURN100
1330 READE:IFE=68THENRESTORE1380
1340 PUTSPRITE11,(E-7,K),14,W:PUTSPRITE12,(E+122,D),14,Q:K=K-O:D=D+O:IFK<100ORK>160THENO=-O
1350 B=0:RETURN100
1380 DATA67,65,63,61,60,61,63,65,67,69,71,73,74,75,74,73,71,69,68
1399
1410 X=230:Y=145:U=5:O=1:J=120:E=162:B=1:H1=127:GOSUB22120:FORR=0TO2000:NEXT
1420 ONBGOTO1430,1435,1440,1450
1430 PUTSPRITE10,(J,E),10,31:E=E-2:SOUND6,31:SOUND7,55:SOUND12,4:SOUND13,0:IFE<140THENB=2
1432 RETURN100
1435 IFX<=127THENQ=33:W=34:B=3:RETURN100
1437 IFX>127THENQ=31:W=32:B=4
1438 RETURN100
1440 PUTSPRITE10,(J,E),1,Q:SWAPQ,W:J=J-U:SOUND1,4:SOUND6,9:SOUND7,50:SOUND12,2:SOUND13,0:IFJ<20THENPUTSPRITE10,(J,E),8,27:GOSUB1460:FORR=1TO50:NEXT:PUTSPRITE10,(1,209):J=120:E=162:B=1
1442 RETURN100
1450 PUTSPRITE10,(J,E),1,Q:SWAPQ,W:J=J+U:SOUND1,4:SOUND6,4:SOUND7,50:SOUND12,2:SOUND13,0:IFJ>230THENPUTSPRITE10,(J,E),8,27:GOSUB1460:FORR=1TO50:NEXT:PUTSPRITE10,(1,209):J=120:E=162:B=1
1452 RETURN100
1460 SOUND6,20:SOUND7,55:SOUND12,20:SOUND13,0:RETURN
1499
1510 X=230:Y=145:J=72:E=162:D=95:Q=31:W=32:K=33:L=34:U=5:O=5:B=1:H1=80:H2=170:GOSUB22120:GOSUB22121:FORR=0TO2000:NEXT
1520 ONBGOTO1530,1535
1530 PUTSPRITE10,(J,E),1,Q:E=E-4:SOUND6,1:SOUND7,55:SOUND12,2:SOUND13,0:IFE<80THENC=(J+8):B=2
1532 RETURN100
1535 PUTSPRITE10,(J,E),1,W:J=J+U:SWAPW,Q:SOUND1,4:SOUND6,4:SOUND7,50:SOUND12,2:SOUND13,0:IFJ>230ORJ<20THENU=-U:SWAPQ,K:SWAPW,L
1540 PUTSPRITE11,(C,D),4,22:D=D+8:IFD>150THENPUTSPRITE11,(C,D),10,12:SOUND6,31:SOUND7,55:SOUND12,20:SOUND13,0:FORR=1TO30:NEXT:PUTSPRITE11,(1,209):D=95:C=(J+8)
1550 RETURN100
1600
1610 H1=127:GOSUB22120:PSET(121,160):DRAW"c8feh":PSET(131,160):DRAW"c8feh"
1620 FORX=230TO150STEP-2:VPOKE6913,X:VPOKE6912,145:VPOKE6914,P(2):SWAPP(2),P(3):FORT=0TO100:NEXT:NEXT
1630 SOUND8,16:SOUND6,22:SOUND7,55:SOUND12,210:SOUND13,0:A=8:B=10:FORR=0TO100:PUTSPRITE10,(120,RND(1)*20+130),A,12:SWAPA,B:NEXT
1640 PUTSPRITE10,(1,209):FORR=0TO3000:NEXT:LINE(110,145)-(140,170),12,BF
1645 SOUND8,16:SOUND9,16:SOUND10,16:SOUND1,2:SOUND3,3:SOUND5,4:SOUND7,56:SOUND12,150:SOUND13,0:FORR=0TO2000:NEXT
1650 FORR=140TO141:COLOR1:PRESET(92,R):PRINT#1,"THE END":NEXT:GOSUB16058:FORR=0TO30:PUTSPRITER,(1,209):NEXT:CLS:ERASEP:GOTO17000
5999
6000 SPRITEOFF:STRIG(0)OFF:STRIG(1)OFF:SA=0:SOUND7,56:FORR=15TO0STEP-1:FORT=250TO0STEPR-30:SOUND0,T:SOUND1,1:SOUND12,4:SOUND13,0:VPOKE6914,20*4:VPOKE6915,R:NEXT:NEXT:PUTSPRITE0,(1,209):FORR=10TO15:PUTSPRITER,(1,209):NEXT:GOSUB6050
6010 IFTIME<2THEN6010
6020 TIME=0:RETURN11010
6049
6050 VI=VI-1:LINE(224,8)-(255,15),1,BF:COLOR11:PRESET(224,8):PRINT#1,VI:IFVI=0THENCOLOR15:PRESET(90,130):PRINT#1,"GAME OVER":GOSUB16060:FORR=0TO8000:NEXT:FORR=0TO30:PUTSPRITER,(1,209):NEXT:CLS:ERASEP:GOTO17000
6060 RETURN
6099
6100 SK=(TIME/50):SC=200-SK
6110 IFSC<=0THENSC=0
6120 PT=PT+SC:VX=VX+SC:LINE(48,8)-(95,15),1,BF:COLOR11:PRESET(48,8):PRINT#1,PT
6130 IFVX>600THENGOSUB6170:VX=0
6140 RETURN
6149
6150 LINE(140,8)-(160,15),1,BF:COLOR11:PRESET(140,8):PRINT#1,F:RETURN
6170 FORR=0TO240:PUTSPRITE17,(R,0),13,35:NEXT
6175 FORT=15TO0STEP-1:SOUND8,T:FORR=200TO10STEP-20:SOUND0,R:SOUND2,R:SOUND1,0:SOUND7,56:SOUND12,5:SOUND13,0:FORM=0TO5:NEXT:NEXT:NEXT
6180 VI=VI+1:LINE(224,8)-(240,15),1,BF:PRESET(224,8):PRINT#1,VI:FORR=0TO1500:NEXT:RETURN
7997
7998 SOUND8,16:FORR=255TO100STEP-25:SOUND0,R:SOUND1,1:SOUND7,56:SOUND12,5:SOUND13,0:NEXT
8000 IFTK=1THENLINE(0,127)-(7,135),9,BF:DR=1:CN=0:RETURN
8010 IFTK=2THENLINE(0,136)-(7,143),9,BF:DR=2:CN=0:RETURN
8020 IFTK=3THENLINE(0,144)-(7,151),9,BF:DR=3:CN=0:RETURN
8030 RETURN
8047
8048 SOUND8,16:FORR=200TO40STEP-40:SOUND0,R:SOUND1,0:SOUND7,56:SOUND12,15:SOUND13,0:NEXT
8050 IF DR=1THENGOSUB8100:TK=2:LL=0:RETURN
8060 IF DR=2THENGOSUB8102:TK=3:LL=0:RETURN
8070 IF DR=3THENGOSUB8104:LL=0:FORR=0TO3000:NEXT:GOSUB6100:STRIG(0)ON:STRIG(1)ON:GOSUB15000:PS=P(2):V=5:SOUND8,16:ONFGOTO73,310,410,510,610,710,810,910,1010,1110,1210,1310,1410,1510,1610:RETURN
8080 RETURN
8099
8100 LINE(248,128)-(255,135),9,BF:DRAW"BM249,135C1R5UL5UR5U3HL3G":RETURN
8102 LINE(248,136)-(255,143),9,BF:DRAW"BM249,143C1R5UL5UR5U3HL3G":RETURN
8104 LINE(248,144)-(255,151),9,BF:DRAW"BM249,151C1R5UL5UR5U3HL3G":RETURN
8130 GOTO8130
10000
10010 DIM P(8):X=230:Y=145:V=5:SA=0:VX=0:PT=0:SC=0:ONSTRIGGOSUB60,60:ONSPRITEGOSUB6000
10011 DEFUSR1=&H41:DEFUSR2=&H44:DEFUSR3=&H90:RETURN
10999
11000 SPRITEOFF:STRIG(0)OFF:STRIG(1)OFF:IFX+8>H1-15ANDX+8<H1+15THENX=H1-8
11001 IFX+8>H2-15ANDX+8<H2+15THENX=H2-8
11002 IFX+8>H3-15ANDX+8<H3+15THENX=H3-8
11003 IFX+8>H4-15ANDX+8<H4+15THENX=H4-8
11005 PUTSPRITE0,(1,209):FORR=145TO155:PUTSPRITE9,(X,R),15,29:SOUND0,40:SOUND1,157-R:SOUND7,56:SOUND12,25:SOUND13,0:FORT=1TO40:NEXT:NEXT:FORR=1TO1000:NEXT:GOSUB6050
11010 FORR=9TO15:PUTSPRITER,(1,209):NEXT
11015 LINE(0,127)-(7,151),9,BF:LINE(247,127)-(255,151),9,BF:GOSUB22130:TK=1:DR=0:V=5:LL=0:CN=1:PS=P(2)
11017
11020 ONFGOSUB11101,11102,11103,11104,11105,11106,11107,11108,11109,11110,11111,11112,11113,11114:STRIG(0)ON:STRIG(1)ON
11030 IFTIME<2THEN11030
11040 TIME=0:FORR=1TO2000:NEXT:GOTO90
11101 X=230:Y=145:E=145:U=4:SA=0:RETURN
11102 X=230:Y=145:E=162:U=4:J=120:SA=0:B=1:RETURN
11103 X=230:Y=145:FORR=10TO11:J=48:E=165:RESTORE470:SA=0:RETURN
11104 X=230:Y=145:E=162:U=2:O=2:J=120:B=1:SA=0:RETURN
11105 X=230:Y=145:E=162:J=108:C=135:B=1:U=5:RETURN
11106 X=230:Y=145:E=162:J=120:U=8:B=1:RETURN
11107 X=230:Y=145:O=4:D=146:E=160:RETURN
11108 X=230:Y=145:G=103:E=162:D=133:J=162:U=4:O=2:B=1:RETURN
11109 X=230:Y=145:J=110:D=115:E=90:B=1:GOSUB1090:RETURN
11110 X=230:Y=145:E=162:J=120:U=5:O=4:B=1:RETURN
11111 X=230:Y=145:J=120:E=100:C=92:U=8:O=2:B=1:H=1:GOSUB1290:RETURN
11112 X=230:Y=145:J=127:U=5:O=3:K=160:D=100:RESTORE1380:RETURN
11113 X=230:Y=145:J=120:E=162:U=5:O=1:B=1:RETURN
11114 X=230:Y=145:J=72:E=162:U=5:B=1:Q=31:W=32:K=33:L=34:RETURN
14999
15000 GOSUB16058:PUTSPRITE0,(1,209):FORR=9TO19:PUTSPRITER,(1,209):NEXT:LINE(0,127)-(7,151),9,BF:LINE(247,127)-(255,151),9,BF:LINE(20,150)-(240,170),12,BF:GOSUB22130:F=F+1:GOSUB6150:TK=1:DR=0:SA=0:TIME=0:PS=2:ZZ=USR3(0):RETURN
16000 PLAY"t110","t110","t110"
16005 S1$="m3000s9l8o2aaaeaaaag+g+g+g+g+g+g+g+ddddddddg+g+g+g+o2g+g+g+g+"
16010 S2$="v15o4l8cco3baaav12aav15g+g+gfffv12ffv15f+f+eaaav12aav15a+a+d+o4d+d+v12dd"
16020 S3$="v13o5l8aecv11aecv9aev13fdcv11fdcv9fdv13f+do4ao5v11f+do4ao5v9f+dv13g+d+cv11g+d+cv9g+d+"
16030 S4$="v13o5l8r8aecv11aecv9aev13fdcv11fdcv9fdv13f+do4ao5v11f+do4ao5v9f+dv13g+d+cv11g+d+cv9g+"
16040 S5$="v15o5l8aecv13aecv11aev8fdcv6fdcfdv5aecv4aecv3aev2fdcv1fdcfd"
16050 S6$="v15o2l8aaav13aaav11aav8g+g+g+v6g+g+g+g+g+v5aaav4aaav3aav2g+g+g+g+g+"
16055 S7$="v13o5l16r8aecv11aecv9aev13fdcv11fdcv9fdcv7fdcv5fdc"
16056 S8$="m3000s9l8o2aaaeaaaag+v14g+v11g+v10g+v9g+v8g+v7g+v5g+"
16057 RETURN
16058 ZZ=USR3(0):PLAYS8$,S7$
16059 IF PLAY(0)=-1THEN16059ELSERETURN
16060 ZZ=USR3(0):PLAY "t110","t110","t110":PLAY S5$,S6$,S6$:RETURN
16100 ZZ=USR3(0):PLAY "t110","t110","T110":PLAY S3$,S3$,S4$:PLAY S1$,S3$,S4$:PLAY S1$,S2$,S3$:PLAY S1$,S2$,S3$:PLAY S2$,S3$,S4$:PLAY S5$,S6$,S6$
16500 RETURN
16999
17000 ZZ=USR1(0):COLOR15,1,1:FORR=80TO160:PSET(RND(1)*10+60,R):DRAW"c12r128":NEXT
17005 FORR=70TO188:PSET(R,RND(1)*10+65):DRAW"c12d95":NEXT
17010 CIRCLE(128,120),50,1,,,.5:CIRCLE(128,121),49,1,,,.4:PAINTSTEP(0,0),1:PAINTSTEP(0,22),1
17020 DRAW"bm108,115c8rfr5frf2dg2l3hl2huh2u":PAINT(113,120),8:DRAW"bm148,115c8lgl5glg2df2r3er2eue2u":PAINT(143,120),8
17030 COLOR10:FORR=50TO51:PRESET(55,R):PRINT#1,"T H E H O L E":NEXT:PRESET(54,50):PRINT#1,"T H E H O L E":COLOR15:FORR=0TO1:PRESET(R,175):PRINT#1,"Code/Graphics/Sfx:Juan Morales":NEXT
17040 FORR=0TO1:PRESET(R,183):PRINT#1,"Music by bitcaffe":NEXT
17050 COLOR10:FORR=9TO10:PRESET(80,R):PRINT#1,"PRESS START":NEXT:ZZ=USR2(0)
17060 ONSTRIGGOSUB17300,17300:STRIG(0)ON:STRIG(1)ON:ZZ=USR3(0):GOSUB16100
17200 IFPLAY(2)=0THENGOSUB16100ELSE17200
17205 GOTO17200
17210 CLS:GOTO30
17300 ZZ=USR3(0):STRIG(0)OFF:STRIG(1)OFF:RETURN17210
20000
20001
20005 LINE(0,60)-(255,20),4,BF:LINE(0,128)-(255,192),9,BF:LINE(0,184)-(16,128),12:LINE-STEP(222,0),12:LINE-STEP(16,55),12:LINE-STEP(-255,0),12
20006 PAINT(100,180),12
20007 FORT=0TO2:PSET(T*100+20,INT(RND(1)*10)+30):DRAW"C14H2UEUERERF3ER2F2DFD2L11":PAINTSTEP(4,-2),14:NEXT
21000
21005
21010 RESTORE21020:T=0:FORR=1TO32:FORI=5632+T TO 5639+T:READV,C$:C=VAL("&H"+C$):VPOKE I,V:VPOKE &H2000+I,C:NEXT:RESTORE21020:T=T+8:NEXT
21020 DATA 40,6c,108,6c,238,6c,238,6c,238,6c,238,6c,238,6c,255,11
21021
21030 RESTORE21040:T=0:FORR=1TO28:FORI=3856+T TO 3863+T:READV,C$:C=VAL("&H"+C$):VPOKE I,V:VPOKE &H2000+I,C:NEXT:RESTORE21040:T=T+8:NEXT
21040 DATA 40,69,108,69,238,69,238,69,238,69,238,69,238,69,238,69
21049
21050 RESTORE21060:T=0:FORR=1TO16:FORI=5888+T TO 5903+T:READV,C$:C=VAL("&H"+C$):VPOKE I,V:VPOKE &H2000+I,C:NEXT:RESTORE21060:T=T+16:NEXT
21060 DATA 127,91,235,91,215,91,255,91,255,91,255,81,255,61,127,61,252,91,254,91,254,91,254,91,254,91,254,81,254,61,252,61
21069
21070 RESTORE21080:T=0:FORR=1TO14:FORI=3088+T TO 3095+T:READV,C$:C=VAL("&H"+C$):VPOKE I,V:VPOKE &H2000+I,C:NEXT:RESTORE21080:T=T+16:NEXT
21071 RESTORE21080:T=0:FORR=1TO13:FORI=3352+T TO 3359+T:READV,C$:C=VAL("&H"+C$):VPOKE I,V:VPOKE &H2000+I,C:NEXT:RESTORE21080:T=T+16:NEXT
21080 DATA0,99,129,c9,82,c9,180,c9,85,c9,218,c9,124,c9,56,c9
21089
21090 RESTORE21092:T=0:FORR=1TO32:FORI=1792+T TO 1799+T:READV,C$:C=VAL("&H"+C$):VPOKE I,V:VPOKE &H2000+I,C:NEXT:RESTORE21092:T=T+8:NEXT
21091 RETURN
21092 DATA12,54,62,54,126,54,127,54,255,55,255,55,255,55,255,55
21094
21095 RESTORE21098:T=0:FORR=1TO256:FORI=2048+T TO 2055+T:READV,C$:C=VAL("&H"+C$):VPOKE I,V:VPOKE &H2000+I,C:NEXT:RESTORE21098:T=T+8:NEXT:RETURN
21098 DATA255,93,253,93,223,93,255,93,255,93,247,93,191,93,254,93
21099
21100 COLOR15:PRESET(0,8):PRINT#1,"SCORE":PRESET(0,9):PRINT#1,"SCORE":PRESET(100,8):PRINT#1,"STAGE":PRESET(100,9):PRINT#1,"STAGE":PRESET(180,8):PRINT#1,"LIVES":PRESET(180,9):PRINT#1,"LIVES":RETURN
21110 COLOR11:PRESET(48,8):PRINT#1,PT:PRESET(139,8):PRINT#1,F:PRESET(224,8):PRINT#1,VI:RETURN
22000
22001 FORR=0TO3:PUTSPRITE20+R,(25+R*64,55),8,24:PUTSPRITE24+R,(25+R*64,55-16),8,25:NEXT:RETURN
22119
22120 CIRCLE(H1,160),12,1,,,.5:CIRCLE(H1,161),11,1,,,.4:PAINTSTEP(0,0),1:RETURN
22121 CIRCLE(H2,160),12,1,,,.5:CIRCLE(H2,161),11,1,,,.4:PAINTSTEP(0,0),1:RETURN
22122 CIRCLE(H3,160),12,1,,,.5:CIRCLE(H3,161),11,1,,,.4:PAINTSTEP(0,0),1:RETURN
22123 CIRCLE(H4,160),12,1,,,.5:CIRCLE(H4,161),11,1,,,.4:PAINTSTEP(0,0),1:RETURN
22129
22130 RESTORE22140:T=0:FORR=1TO3:FORI=4096+T TO 4103+T:READZ,C$:CL=VAL("&H"+C$):VPOKE I,Z:VPOKE &H2000+I,CL:NEXT:RESTORE22140:T=T+256:NEXT
22131 RESTORE22142:T=0:FORR=1TO3:FORI=4344+T TO 4351+T:READZ,C$:CL=VAL("&H"+C$):VPOKE I,Z:VPOKE &H2000+I,CL:NEXT:RESTORE22142:T=T+256:NEXT
22135 RETURN
22140 DATA0,99,112,19,112,19,95,19,85,19,112,19,0,19,0,19
22142 DATA0,19,24,19,36,19,66,19,66,19,126,19,126,19,126,19
22149
22150 FORR=1TO4:PUTSPRITER,(0,162),0,18:NEXT:FORR=5TO8:PUTSPRITER,(0,176),0,18:NEXT:RETURN
25000 LOCATE10,0:PRINT"INSTRUCTIONS"
25010 LOCATE10,1:PRINT"•W•W•W•W•W•W•W•W•W•W•W•W"
25020 LOCATE0,4:PRINT"You are the guardian of a park,"
25030 LOCATE0,6:PRINT"every day yo must open all three
25040 LOCATE0,8:PRINT"padloks of the different entrances,"
25050 LOCATE0,10:PRINT"but some mysterious holes appear"
25060 LOCATE0,12:PRINT"every morning to prevent it,"
25070 LOCATE0,14:PRINT"throwing all kinds of "
25080 LOCATE0,16:PRINT"objets from inside so that you not"
25090 LOCATE 0,18:PRINT"to take the keys."
25100 LOCATE0,20:PRINT"-Cursor L/R, space for jump."
25110 LOCATE0,22:PRINT"-Joystick."
25150 FORT=0TO15000:NEXT:CLS:RETURN
39899
39900 RESTORE40005:S=BASE(14):FORI=0TO1151:READA:VPOKES+I,A:NEXT:RETURN
39920 NEXT
40000 GOTO 40000
40005 DATA 15,31,31,59,55,59,31,7,15,26,26,27,12,15,7,7,112,240,208,216,252,216,224,240,192,224,224,96,192,128,0,128:
40010 DATA 45,31,31,59,55,59,31,7,15,63,119,111,15,62,48,56,168,240,208,216,252,184,192,240,224,248,252,238,240,120,28,30:
40015 DATA 14,15,11,27,63,27,7,15,3,7,7,6,3,1,0,1,240,248,248,220,236,220,248,224,240,88,88,216,48,240,224,224:
40020 DATA 21,15,11,27,63,29,3,15,7,31,63,119,15,30,56,120,180,248,248,220,236,220,248,224,240,252,238,246,240,124,12,28:
40025 DATA 54,31,31,59,55,59,31,7,63,127,111,55,30,15,30,24,184,240,208,216,252,240,128,230,198,254,252,224,240,120,240,192:
40030 DATA 29,15,11,27,63,15,1,103,99,127,63,7,15,30,15,3,108,248,248,220,236,220,248,224,252,254,246,236,120,240,120,24:
40050 DATA 0,0,32,71,46,24,19,55,62,63,31,31,175,71,0,0,0,0,0,196,106,240,248,248,248,248,248,240,224,208,8,16:
40060 DATA 15,63,79,79,79,255,255,126,42,40,1,4,19,15,28,8,240,252,254,203,159,251,255,190,28,56,120,248,192,0,0,0:
40080 DATA 15,63,127,211,249,223,255,125,56,28,30,31,3,0,0,0,240,252,242,242,242,255,255,126,84,20,128,32,200,240,56,16:
40090 DATA15,63,79,79,79,255,255,127,63,42,0,45,63,0,0,0,240,252,254,203,159,251,255,254,184,176,32,224,192,0,0,0:
40100 DATA15,63,127,211,249,223,255,127,29,13,4,7,3,0,0,0,240,252,242,242,242,255,255,254,252,84,0,180,252,0,0,0:
40110 DATA0,1,4,0,1,2,2,6,15,63,113,118,113,118,49,31,0,32,0,208,0,32,0,0,0,192,224,224,224,224,192,128:
40120 DATA1,19,57,16,0,68,238,68,0,64,224,65,3,9,28,8,0,128,8,28,72,226,71,2,64,226,71,2,128,16,56,16:
40130 DATA62,111,223,223,255,255,127,62,0,0,0,0,0,0,0,0,112,0,176,134,128,188,0,56,0,0,0,0,0,0,0,0:
40140 DATA14,0,13,97,1,61,0,6,0,0,0,0,0,0,0,0,124,246,251,251,255,255,254,124,0,0,0,0,0,0,0,0:
40150 DATA27,127,243,231,123,253,231,77,74,21,0,0,0,0,0,0,128,144,248,40,248,204,248,80,80,192,0,0,0,0,0,0:
40160 DATA7,63,63,127,71,225,228,240,249,255,255,255,87,107,55,31,192,224,249,255,255,255,255,255,255,255,255,255,252,248,248,255:
40161 DATA3,7,159,255,255,255,255,255,255,255,255,255,63,31,31,255,224,252,252,254,226,135,39,15,159,255,255,255,234,214,236,248:
40172 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:
40173 DATA7,24,32,68,73,146,148,132,128,128,128,64,64,32,24,7,224,24,4,2,2,1,1,1,1,1,1,2,2,4,24,224:
40180 DATA 5,15,21,27,21,31,14,2,1,63,127,231,15,92,120,48,80,248,212,236,212,124,56,32,192,248,254,231,240,58,30,12:
40190 DATA 0,48,95,140,137,143,95,49,2,1,2,1,2,1,2,1,0,12,250,145,49,241,250,76,128,64,128,64,128,64,128,64:
40200 DATA 61,109,245,237,117,61,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:
40205 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,188,182,175,183,174,188,0,0,0,0,0,0,0,0,0,0:
40210 DATA 61,30,27,13,13,15,6,7,7,15,14,13,27,26,119,255,184,168,240,240,176,112,224,160,96,224,240,176,112,248,252,255:
40220 DATA 0,0,0,0,0,0,0,152,208,240,192,103,97,113,60,60,0,0,0,0,0,0,0,25,13,15,38,102,206,140,220,220:
40230 DATA 0,0,65,10,37,21,20,10,42,11,6,7,5,3,3,0,6,4,8,66,16,10,72,82,96,164,32,192,64,64,192,192:
40240 DATA 32,149,75,73,45,21,84,10,10,74,10,7,5,3,3,3,128,25,86,33,100,72,242,160,164,32,160,64,64,192,192,128:
40250 DATA0,0,0,1,0,0,1,3,7,15,3,7,14,29,26,16,58,116,232,228,244,232,208,160,64,32,160,64,128,0,0,0:
40260 DATA 42,31,27,55,63,60,27,207,199,255,127,31,15,28,28,129,168,240,176,216,248,120,176,230,198,254,252,224,192,224,224,120:
40270 DATA 0,1,1,7,14,30,31,191,254,63,31,31,15,7,1,3,0,128,0,192,96,48,152,152,254,250,248,240,224,192,0,0:
40280 DATA15,30,159,79,63,7,199,199,247,248,255,251,55,14,29,56,128,128,192,0,142,156,57,129,185,125,254,253,125,249,241,0:
40290 DATA15,30,31,15,255,7,199,199,247,248,255,251,55,14,29,56,128,128,192,0,142,156,56,128,184,125,254,253,124,248,240,0:
40300 DATA1,1,3,0,113,57,156,129,157,190,127,191,190,159,143,0,240,120,249,242,252,224,227,227,239,31,255,223,236,112,184,28:
40310 DATA1,1,3,0,113,57,28,1,29,190,127,191,62,31,15,0,240,120,248,240,255,224,227,227,239,31,255,223,236,112,184,28:
40320 DATA0,30,63,63,117,101,85,117,53,54,31,15,7,3,1,0,0,60,126,254,163,173,173,163,174,110,252,248,240,224,192,128: