0 REMOPEN15,8,15,"S0:DUNGEON/64":CLOSE15:SAVE"0:DUNGEON/64",8 100 PRINT"[147]PLEASE WAIT" 101 SN=54272:FORI=SNTOSN+24:POKEI,0:NEXT:AD=54277:SR=AD+1:LF=SN:LH=SN+1 102 CR=SN+4:VL=54296 103 POKEAD,16:POKESR,240 104 POKEVL,15 110 GOSUB820:GOSUB1810 115 T$=" [146]":P=5:SC=0:LV=1 116 FORI=1TO4:RM(I)=0:NEXT 120 S$=" [146]  [146]" 125 POKE49194,7 130 DEFFNRX(X)=INT(RND(1)*87)+X:DEFFNRY(Y)=INT(RND(1)*57)+Y:POKE53280,0 140 POKE53281,0:PL=1524:PX=20:PY=12:OPL=1524:POKEPL,81:POKEPL+54272,4:EN=53269 150 POKEEN,255:POKE49192,0:LV=1:SC=0:CS=53278:CD=53279:GOSUB330:GOTO115 160 PRINT"[147]";:PRINT:PRINTT$;S$;S$;:GOSUB180:PRINTS$;S$;:GOSUB180:PRINTS$;S$;T$ 170 PRINT"":RETURN 180 PRINT" [146] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]  [146]"; 190 PRINT" [146] [221] [221] [221] [221]  [146]"; 200 PRINT" [146] [221] [221] [221] [221]  [146]"; 210 PRINT" [146] I I I I  [146]"; 220 PRINT" [146] [221] [221] [221] [221]  [146]"; 230 PRINT" [146] [221] [221] [221] [221]  [146]"; 240 PRINT" [146] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  [146]"; 250 RETURN 260 PRINT"[147]";:PRINT:PRINTT$; 270 FORI=1TO20:PRINTS$;:NEXT:PRINTT$:PRINT"":PRINT""; 280 D$="[182][181] [182][181]":PRINTD$;D$;D$;D$:RETURN 290 PRINT"[158] SCORE"SC" LEVEL"LV" LIVES"P"[154]": 291 PRINT"":RETURN 330 IFTC<>4THEN340 335 TC=0:FORI=1TO4:RM(I)=0:NEXT:LV=LV+1:GOSUB880 336 IFLV/4=INT(LV/4)THENP=P+1:V=7-INT(LV/4):IFV>=0THENPOKE49194,V 340 POKE49192,0:POKE53269,0:GOSUB160:GOSUB290:IFP=0THEN610 341 IFRM(1)=1THENPOKE1315,160 342 IFRM(2)=1THENPOKE1332,160 343 IFRM(3)=1THENPOKE1675,160 344 IFRM(4)=1THENPOKE1692,160 350 POKEPL,81:POKEPL+54272,4 360 M=PEEK(56320):M=(MAND15) 370 IFM=15 THEN 360 380 DX=((M>8)AND(M<12))-(M<8) 390 DY=((M=6)OR(M=10)OR(M=14))-((M=5)OR(M=9)OR(M=13)) 400 PX=PX+DX:PY=PY+DY 410 PL=(PY*40)+1024+PX:IFPEEK(PL)<>32THEN430 420 POKEOPL,32:POKEOPL+54272,0:POKEPL,81:POKEPL+54272,4:OPL=PL:GOTO360 430 IFPEEK(PL)<>9THENGOTO590 440 IFPY=7THENRM=1 450 IFPY=16THENRM=3 460 IFPX>19THENRM=RM+1 470 IFRM=1THENCL=6 480 IFRM=2THENCL=7 490 IFRM=3THENCL=5 500 IFRM=4THENCL=2 510 POKE53292,CL 520 IFRM(RM)=1THENPX=PX-DX:PY=PY-DY:PL=(PY*40)+1024+PX:OPL=PL:GOTO420 530 FORI=1TO4:POKE2040+I,230+RM:POKE53287+I,CL+1:NEXT:POKE2045,235+RM:GOSUB650 540 X=PEEK(53248):Y=PEEK(53249) 550 IFX<=46THENPX=-3*((RM=1)OR(RM=3))-20*((RM=2)OR(RM=4)) 560 IFX>46THENPX=-19*((RM=1)OR(RM=3))-36*((RM=2)OR(RM=4)) 570 PY=-7*((RM=1)OR(RM=2))-16*((RM=3)OR(RM=4)):PL=(PY*40)+1024+PX:OPL=PL 580 GOTO330 590 PX=PX-DX:PY=PY-DY 600 GOTO360 610 PRINT"[158]GAME OVER[146]" 611 PRINT"PRESS ANY KEY TO PLAY AGAIN[154][146]":POKE198,0 612 WAIT198,1 613 PRINT"[147]":RETURN 650 POKEOPL,32:POKEOPL+54272,0:POKEPL,81:POKEPL+54272,4:GOSUB260:GOSUB290 660 IFPX=18ORPX=35THEN680 670 X=45:Y=145:POKE53264,PEEK(53264)AND254:POKE49189,0:GOTO690 680 X=45:Y=145:POKE53264,PEEK(53264)OR1:POKE49189,1 690 POKE53248,X:POKE53249,Y:POKE53264,PEEK(53264)AND1:POKE53269,0 700 PL=53250:POKEPL,FNRX(58):POKEPL+1,FNRY(67):POKEPL+2,FNRX(169) 710 POKEPL+3,FNRY(67):POKEPL+4,FNRX(58):POKEPL+5,FNRY(146) 720 POKEPL+6,FNRX(167):POKEPL+7,FNRY(146) 730 POKEPL+8,INT(RND(1)*222)+33:POKEPL+9,INT(RND(1)*139)+66:POKEEN,255 740 GOSUB900:POKE49178,0 750 SYS49152:A=PEEK(49178) 760 IFA=1THENPOKE49178,0:POKE49190,0:RETURN 770 IFA<>2THEN800 780 POKE49178,0:POKE49190,0:P=P-1:IFRM(RM)=1THENRM(RM)=0:SC=SC-300:TC=TC-1 785 FORI=20TO0STEP-1:POKELH,I:POKECR,17:FORW=1TO20:NEXT:POKECR,16:NEXT 790 POKECR,0:POKE53261,0:RETURN 800 IFA<>3THEN810 801 SC=SC+300:GOSUB290:TC=TC+1:POKE49178,0:RM(RM)=1:POKE53261,0 802 FORI=0TO100STEP10:POKELH,I:POKECR,17:FORW=1TO20:NEXT:POKECR,16:NEXT 803 POKECR,0:GOTO750 810 POKE49178,0:POKE49190,0:SC=SC+10:GOSUB290:GOTO750 820 POKE2040,230:POKE2041,231:POKE2042,232:POKE2043,233:POKE2044,234 830 POKE2045,236:POKE2046,235 840 CH=0:FORI=14720TO15359:READA:POKEI,A:CH=CH+A:NEXT 845 IFCH<>45651THENPRINT"BAD DATA IN SPRITE DEFINITIONS":END 850 RETURN 880 POKEEN,0:PRINT"[147]YOU HAVE ACHIEVED LEVEL ";LV" !" 890 FORW=1TO1000:NEXT:RETURN 900 A=PEEK(49189):ONA+1GOTO910,920 910 A=1424:GOTO930 920 A=1462 930 FORI=ATOA+120STEP40:POKEI,160:POKEI+1,160:NEXTI:RETURN 960 DATA0,60,0,0,126,0,0,219 970 DATA0,0,255,0,0,255,0,0 980 DATA126,0,0,60,0,1,255,128 990 DATA3,255,192,3,126,192,3,126 1000 DATA192,3,126,192,3,126,192,3 1010 DATA126,192,0,102,0,0,102,0 1020 DATA0,102,0,0,102,0,0,102 1030 DATA0,0,102,0,0,231,0,0 1050 DATA0,0,0,0,0,0,0,0 1060 DATA112,0,0,216,0,1,240,0 1070 DATA1,192,0,1,192,0,0,224 1080 DATA0,0,56,0,0,28,0,0 1090 DATA14,0,240,14,131,252,14,199 1100 DATA255,14,207,15,158,254,7,252 1110 DATA124,3,248,56,0,224,0,0 1120 DATA0,0,0,0,0,0,0,0 1140 DATA0,0,0,12,0,48,30,0 1150 DATA120,18,24,72,51,60,204,97 1160 DATA60,134,13,153,176,30,255,120 1170 DATA51,127,204,45,255,180,110,255 1180 DATA118,219,255,219,53,255,172,110 1190 DATA255,118,219,255,219,48,60,12 1200 DATA32,24,4,96,0,6,64,0 1210 DATA2,64,0,2,0,0,0,0 1230 DATA0,24,0,0,60,0,0,126 1240 DATA0,0,195,0,0,195,0,0 1250 DATA102,0,0,60,0,0,255,0 1260 DATA1,255,128,3,189,192,3,189 1270 DATA192,7,126,224,7,126,224,9 1280 DATA126,144,16,255,8,9,126,144 1290 DATA6,255,96,0,255,0,1,255 1300 DATA128,3,255,192,0,0,0,0 1320 DATA2,0,64,14,66,112,63,90 1330 DATA252,127,255,254,255,129,255,255 1340 DATA165,255,221,129,187,136,195,17 1350 DATA0,195,0,0,102,0,0,126 1360 DATA0,0,60,0,0,60,0,0 1370 DATA60,0,0,60,0,16,56,0 1380 DATA48,248,0,255,224,0,127,128 1390 DATA0,48,0,0,16,0,0,16 1410 DATA0,0,0,0,0,0,0,0 1420 DATA0,0,0,0,0,0,0,0 1430 DATA0,0,0,126,0,1,153,128 1440 DATA2,60,64,6,255,96,6,255 1450 DATA96,2,60,64,1,153,128,0 1460 DATA126,0,0,0,0,0,0,0 1470 DATA0,0,0,0,0,0,0,0 1480 DATA0,0,0,0,0,0,0,255 1490 DATA0,0,0,0,0,0,0,0 1500 DATA0,0,0,0,0,0,0,0 1510 DATA0,0,0,0,0,0,0,0 1520 DATA0,0,0,63,255,252,96,0 1530 DATA6,192,0,3,255,255,255,192 1540 DATA20,3,192,28,3,192,0,3 1550 DATA192,0,3,255,255,255,0,0 1560 DATA0,0,0,0,0,0,0,255 1570 DATA0,0,0,0,0,0,0,0 1580 DATA0,0,0,0,0,0,0,0 1590 DATA0,0,0,0,0,97,255,134 1600 DATA146,0,73,147,129,201,137,255 1610 DATA145,135,255,225,128,255,1,65 1620 DATA255,130,34,126,68,28,60,56 1630 DATA0,255,0,3,255,192,31,255 1640 DATA248,0,0,0,0,0,0,255 1650 DATA1,255,128,3,255,192,7,129 1660 DATA224,12,195,48,24,102,24,56 1670 DATA60,28,60,126,60,54,195,108 1680 DATA51,153,204,49,189,140,49,189 1690 DATA140,51,153,204,54,195,108,60 1700 DATA126,60,56,60,28,24,102,24 1710 DATA12,195,48,7,129,224,3,255 1720 DATA192,1,255,128,0,0,0,0 1730 DATA0,0,0,0,0,0,0,0 1740 DATA0,0,0,0,0,126,0,0 1750 DATA195,0,0,195,0,0,126,0 1760 DATA0,60,0,0,60,0,0,60 1770 DATA0,0,126,0,0,255,0,0 1780 DATA255,0,1,255,128,1,255,128 1790 DATA3,255,192,3,255,192,3,255 1800 DATA192,1,255,128,0,255,0,0 1810 CH=0:I=49152:IFPEEK(I)=76THENRETURN 1820 READ A:CH=CH+A:IFA=256THEN1840 1830 POKEI,A:I=I+1:GOTO1820 1840 IFCH<>141279THENPRINT"BAD DATA ERROR IN ML DATA.":END 1850 RETURN 1860 DATA 76,24,194,1,2,4 1870 DATA 8,16,32,64,128,254 1880 DATA 253,251,247,239,223,191 1890 DATA 127,0,0,0,0,0 1900 DATA 0,0,0,0,0,0 1910 DATA 0,0,0,0,0,0 1920 DATA 0,0,0,0,0,0 1930 DATA 0,0,173,20,192,10 1940 DATA 168,141,19,192,185,0 1950 DATA 208,141,21,192,172,20 1960 DATA 192,185,3,192,45,16 1970 DATA 208,141,22,192,172,19 1980 DATA 192,185,1,208,141,23 1990 DATA 192,173,21,192,24,109 2000 DATA 24,192,141,21,192,201 2010 DATA 255,240,19,201,0,240 2020 DATA 3,76,129,192,172,20 2030 DATA 192,185,3,192,141,22 2040 DATA 192,76,129,192,173,24 2050 DATA 192,16,12,173,21,192 2060 DATA 201,255,208,5,169,0 2070 DATA 141,22,192,173,23,192 2080 DATA 24,109,25,192,141,23 2090 DATA 192,172,20,192,173,22 2100 DATA 192,240,12,185,3,192 2110 DATA 13,16,208,141,16,208 2120 DATA 76,168,192,185,11,192 2130 DATA 45,16,208,141,16,208 2140 DATA 172,19,192,173,21,192 2150 DATA 153,0,208,173,23,192 2160 DATA 201,66,144,9,201,205 2170 DATA 240,2,176,3,153,1 2180 DATA 208,169,0,141,24,192 2190 DATA 141,25,192,96,173,0 2200 DATA 220,41,15,201,15,208 2210 DATA 3,76,111,193,32,207 2220 DATA 193,32,44,192,173,1 2230 DATA 208,201,66,208,9,24 2240 DATA 105,1,141,1,208,76 2250 DATA 246,192,201,205,208,6 2260 DATA 56,233,1,141,1,208 2270 DATA 173,16,208,41,1,208 2280 DATA 42,173,0,208,201,39 2290 DATA 208,74,173,1,208,201 2300 DATA 130,144,22,201,161,176 2310 DATA 18,173,16,208,41,1 2320 DATA 205,37,192,240,8,169 2330 DATA 1,141,26,192,76,111 2340 DATA 193,238,0,208,76,78 2350 DATA 193,173,0,208,201,49 2360 DATA 208,32,173,1,208,201 2370 DATA 130,144,22,201,161,176 2380 DATA 18,173,16,208,41,1 2390 DATA 205,37,192,240,8,169 2400 DATA 1,141,26,192,76,111 2410 DATA 193,206,0,208,162,5 2420 DATA 32,54,195,173,32,192 2430 DATA 240,23,169,3,141,26 2440 DATA 192,160,5,185,11,192 2450 DATA 45,21,208,141,21,208 2460 DATA 160,10,169,0,153,0 2470 DATA 208,173,38,192,208,90 2480 DATA 173,43,192,208,85,173 2490 DATA 0,220,41,16,208,78 2500 DATA 173,40,192,201,3,176 2510 DATA 71,169,50,141,43,192 2520 DATA 169,1,141,38,192,238 2530 DATA 40,192,169,10,141,1 2540 DATA 212,169,17,141,4,212 2550 DATA 162,2,32,15,194,169 2560 DATA 16,141,4,212,160,12 2570 DATA 173,0,208,153,0,208 2580 DATA 173,1,208,153,1,208 2590 DATA 173,16,208,41,1,240 2600 DATA 9,173,16,208,9,64 2610 DATA 141,16,208,96,173,16 2620 DATA 208,41,191,141,16,208 2630 DATA 96,168,41,1,208,8 2640 DATA 169,255,141,25,192,76 2650 DATA 230,193,152,41,2,208 2660 DATA 5,169,1,141,25,192 2670 DATA 152,41,4,208,8,169 2680 DATA 255,141,24,192,76,253 2690 DATA 193,152,41,8,208,5 2700 DATA 169,1,141,24,192,173 2710 DATA 38,192,208,12,173,24 2720 DATA 192,141,39,192,173,25 2730 DATA 192,141,41,192,96,160 2740 DATA 255,136,208,253,202,208 2750 DATA 248,96,169,0,141,20 2760 DATA 192,32,202,192,44,43 2770 DATA 192,240,3,206,43,192 2780 DATA 173,26,192,208,88,173 2790 DATA 38,192,240,21,32,13 2800 DATA 196,173,38,192,240,13 2810 DATA 173,26,192,208,70,32 2820 DATA 13,196,173,26,192,208 2830 DATA 62,174,42,192,32,15 2840 DATA 194,162,0,173,27,192 2850 DATA 24,105,1,201,5,208 2860 DATA 2,169,1,141,27,192 2870 DATA 141,20,192,168,185,3 2880 DATA 192,45,16,208,208,16 2890 DATA 152,10,168,185,0,208 2900 DATA 208,8,232,224,4,240 2910 DATA 161,76,79,194,32,139 2920 DATA 194,173,26,192,208,3 2930 DATA 76,24,194,169,0,141 2940 DATA 38,192,96,173,27,192 2950 DATA 10,168,185,0,208,141 2960 DATA 21,192,185,1,208,141 2970 DATA 23,192,173,23,192,205 2980 DATA 1,208,208,8,169,0 2990 DATA 141,23,192,76,187,194 3000 DATA 144,8,169,255,141,25 3010 DATA 192,76,187,194,169,1 3020 DATA 141,25,192,172,27,192 3030 DATA 185,3,192,45,16,208 3040 DATA 208,8,169,0,141,22 3050 DATA 192,76,211,194,169,1 3060 DATA 141,22,192,173,16,208 3070 DATA 41,1,205,22,192,240 3080 DATA 5,176,18,76,236,194 3090 DATA 173,21,192,205,0,208 3100 DATA 240,12,144,5,169,255 3110 DATA 76,248,194,169,1,76 3120 DATA 248,194,169,0,141,24 3130 DATA 192,173,24,192,73,255 3140 DATA 24,105,1,141,34,192 3150 DATA 173,25,192,73,255,24 3160 DATA 105,1,141,35,192,32 3170 DATA 44,192,32,33,195,173 3180 DATA 32,192,208,1,96,32 3190 DATA 229,195,96,162,0,236 3200 DATA 20,192,240,8,32,54 3210 DATA 195,173,32,192,208,5 3220 DATA 232,224,6,208,238,96 3230 DATA 173,20,192,10,168,185 3240 DATA 0,208,141,28,192,185 3250 DATA 1,208,141,29,192,138 3260 DATA 10,168,185,0,208,141 3270 DATA 30,192,185,1,208,141 3280 DATA 31,192,173,29,192,56 3290 DATA 233,19,205,31,192,176 3300 DATA 11,173,29,192,24,105 3310 DATA 19,205,31,192,176,6 3320 DATA 169,0,141,32,192,96 3330 DATA 172,20,192,185,3,192 3340 DATA 45,16,208,240,2,169 3350 DATA 1,141,33,192,138,168 3360 DATA 185,3,192,45,16,208 3370 DATA 240,2,169,1,205,33 3380 DATA 192,240,46,176,25,173 3390 DATA 28,192,56,233,15,176 3400 DATA 11,205,30,192,176,6 3410 DATA 169,1,141,32,192,96 3420 DATA 169,0,141,32,192,96 3430 DATA 173,28,192,24,105,15 3440 DATA 144,242,205,30,192,144 3450 DATA 237,169,1,141,32,192 3460 DATA 96,173,28,192,56,233 3470 DATA 15,176,2,169,0,205 3480 DATA 30,192,176,216,173,28 3490 DATA 192,24,105,15,144,2 3500 DATA 169,255,205,30,192,144 3510 DATA 201,169,1,141,32,192 3520 DATA 96,138,240,31,173,34 3530 DATA 192,141,24,192,173,35 3540 DATA 192,141,25,192,32,44 3550 DATA 192,173,34,192,141,24 3560 DATA 192,173,35,192,141,25 3570 DATA 192,32,44,192,96,169 3580 DATA 2,141,26,192,96,160 3590 DATA 12,185,1,208,201,66 3600 DATA 240,106,201,205,240,102 3610 DATA 173,16,208,41,1,208 3620 DATA 7,185,0,208,201,39 3630 DATA 240,88,185,0,208,201 3640 DATA 49,240,81,173,39,192 3650 DATA 141,24,192,173,41,192 3660 DATA 141,25,192,169,6,141 3670 DATA 20,192,32,44,192,160 3680 DATA 12,185,1,208,201,66 3690 DATA 240,52,201,205,240,48 3700 DATA 173,16,208,41,64,208 3710 DATA 10,185,0,208,201,39 3720 DATA 240,34,76,104,196,185 3730 DATA 0,208,201,49,240,24 3740 DATA 162,1,32,54,195,173 3750 DATA 32,192,208,22,232,224 3760 DATA 5,208,243,76,122,196 3770 DATA 169,0,141,26,192,96 3780 DATA 169,0,141,26,192,76 3790 DATA 171,196,138,24,105,3 3800 DATA 141,26,192,138,168,185 3810 DATA 11,192,45,21,208,141 3820 DATA 21,208,185,11,192,45 3830 DATA 16,208,141,16,208,152 3840 DATA 10,168,169,0,153,0 3850 DATA 208,169,0,141,38,192 3860 DATA 160,12,153,1,208,96,256 0