1 REM ALL TIME HIGH 43,840 10 POKE53281,0:POKE53280,0:POKE52,56:POKE56,56:I=RND(-TI):PRINTCHR$(142) 20 J0=127:J2=56320:S=1024:SI=54272:C=SI:S1=SI+1:S4=SI+4:S5=SI+5:S6=SI+6:SV=SI+24 22 BH=33:BS=34:BC=32:NS=40:C$=CHR$(96) 30 FORI=SITOSV:POKEI,0:NEXT:POKES6,242:POKESV,15 32 POKE56334,0:POKE1,51 34 A=14336:B=53248:FORI=0TO1487:POKEI+A,PEEK(I+B):NEXT 36 POKE1,55:POKE56334,1:POKE53272,30 38 FORI=0TO30:READP:POKE49152+I,P:NEXT 40 FORI=14600TO14631:READP:POKEI,P:NEXT 42 FORI=15064TO15159:READP:POKEI,P:NEXT 44 FORI=14720TO14799:READP:POKEI,P:NEXT 60 DIMJD(32),L$(NS),FC(12),FS(13),BC(5) 64 JD(1)=-40:JD(2)=40:JD(4)=-1:JD(8)=1 66 FORJ=1TONS:READL$(J):NEXT 68 FORI=1TO12:READFC(I):NEXT 70 FORI=1TO13:READFS(I):NEXT 72 FORI=1TO5:READCB(I):NEXT 99 : 100 PRINT"[147]" 120 PRINT"[156] [195][195][195][195][195] [195] [195] [195][195][195][195][195] [195] [195] [195][195][195][195][195] [195][195][195][195] " 122 PRINT" [195] [195] [195] [195] [195] [195] [195] [195] [195]" 124 PRINT"[154] [195][195][195] [195] [195] [195] [195][195][195][195][195] [195][195][195][195] [195][195][195][195]" 126 PRINT"[159] [195] [195] [195] [195] [195] [195] [195] [195] [195]" 127 PRINT" [195][195][195][195] [195][195][195][195][195] [195] [195] [195] [195] [195][195][195][195][195] [195] [195]" 130 FORI=1TO200:NEXT 132 PRINT""TAB(12)"DIFFICULTY 12345":P=S+183 134 J=PEEK(J2):IFJ=119THENP=P+1:IFP>S+187THENP=P-1 136 IFJ=123THENP=P-1:IFPBCTHEN300 252 POKEP,BS:P=P+PD:POKEP+C,CB:POKEP,BH 260 FORD=1TO50:NEXT:GOTO200 298 : 299 : * COLLISION * 300 IFQ<91THEN400 302 Q=Q-90:SC=SC+FS(Q):POKEP,BS:FORI=Q*12+10TO0STEP-Q/2:POKES1,I:POKES4,17:NEXT 304 P=P+PD:POKEP,BH:FORI=0TOQ*12+10STEPQ/2:POKES1,I:POKES4,17:NEXT:POKES4,16 310 POKEP+C,CB:GOSUB350:DU=DU-1:IFDU=0THEN800 312 GOTO200 348 : 349 : * STATUS LINE * 350 PRINT"SCORE ";:N=SC:GOTO940 360 PRINT""TAB(19)"("CHR$(48+W)")"TAB(28)"HIGH ";:N=SH:GOSUB940 362 PRINT"":RETURN 398 : 399 : * CRASHED * 400 POKES1,5:POKES4,129:FORI=15TO0STEP-1:POKESV,I:POKEP+C,I:POKE53281,I 402 POKE53280,I:POKE53282,15-I:POKE53283,I:FORJ=1TO20:NEXT:NEXT 406 POKE53282,6:POKE53283,5:POKESV,15:POKES4,0:W=W-1:GOSUB360:IFW=0THEN410 408 POKEP,BC:SYS49152:FORI=1TO800:NEXT:GOTO192 410 PRINT"":PRINTTAB(15)"GAME OVER" 412 IFSC>SHTHENSH=SC:GOSUB450 420 PRINTTAB(7)"PRESS BUTTON TO PLAY AGAIN":GOSUB360 430 IFPEEK(J2)<>111THEN430 440 GOSUB3100:GOTO130 450 FORJ=1TO15:PRINTTAB(15)"[145]HIGH SCORE":FORI=1TO20:NEXT:POKES1,38:POKES4,33 452 PRINTTAB(15)"[145][158]HIGH SCORE":FORI=1TO20:NEXT:POKES1,40:POKES4,33:NEXT 454 POKES4,32:RETURN 598 : 599 : * PLACE PRIZES * 600 R=INT(RND(1)*19)*40+INT(RND(1)*36)+122+S:IFPEEK(R)<>BCORR=S+165THEN600 610 L1=L:IFL>12THENL1=12 620 POKER,L1+90:POKER+C,FC(L1):RETURN 698 : 699 : * SET UP SCREEN * 700 IFL=1THENGOSUB900 701 PRINT"[147][155]$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"; 702 FORI=1TO21:PRINT"$ $";:NEXT 704 PRINT"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$";:POKE2023,36:POKE56295,15 705 L1=L:IFL>12THENL1=12 706 PRINT""TAB(17-LEN(L$(L))/2)"#"MID$(STR$(L),2)"-"L$(L)" "; 707 POKE646,FC(L1):PRINTCHR$(L1+218) 710 READA,B:IFA=0THEN720 711 N=1:IFB-A>39THENN=40 712 FORI=A+STOB+SSTEPN:POKEI,36:POKEI+C,15:NEXT:GOTO710 720 FORJ=1TODU:GOSUB600:NEXT:GOSUB350:GOSUB360:CB=CB(DI):FORI=1TO400:NEXT 732 RETURN 798 : 799 : * COMPLETED A SCREEN * 800 DU=DI:FORI=1TO200:NEXT:L1=L:IFL>12THENL1=12 810 PRINT"" 812 PRINTTAB(15)"BONUS "RIGHT$(" "+STR$(FS(L1+1)),3) 814 SC=SC+FS(L1+1):GOSUB350:FORI=1TO800:NEXT:L=L+1:IFL<=NSTHEN190 820 K=0:L=1:GOSUB3100:PRINT"[147]":POKES6,240 822 A=80:B=960:N=40:GOSUB960:A=961:B=999:N=1:GOSUB960:A=959:B=119:N=-40:GOSUB960 824 A=118:B=81:N=-1:GOSUB960 830 GOSUB350:GOSUB360:M=0:A$="LEVEL"+C$+CHR$(DI+112)+C$+C$+"BONUS" 832 POKES6,251:FORJ=1TO14:POKES1,J+70:POKES4,21:POKES4,20 834 FORI=1196TO1476STEP40:POKEI+J-40,32:POKEI+J,ASC(MID$(A$,J,1))-64:NEXT:NEXT 836 FORI=1TO800:NEXT:POKES6,242:FORI=1TO12:POKEI+1597,I+90:POKEI+55869,FC(I) 838 POKES1,I+5:POKES4,129:FORJ=1TO10:NEXT:M=M+FS(I)*DI:POKES4,128 840 FORJ=1TO20:NEXT:PRINT""TAB(18)RIGHT$(" "+STR$(M),4) 842 SC=SC+FS(I)*DI:GOSUB350:NEXT:DI=DI+1:DU=DU+1:IFDI>5THENDI=5:DU=5 854 FORI=1TO200:NEXT:PRINT""TAB(12)DI" BONUS LIVES":W=W+DI:IFW>9THENW=9 860 GOSUB360:PRINT""TAB(7)"GET READY FOR DIFFICULTY"DI 870 FORI=1TO2000:NEXT:GOTO190 899 : 900 PRINT"[147]"TAB(9)NS"SCREENS THIS LEVEL":POKES6,252:POKES1,75 902 POKES1+14,DI*15+30:POKES4,21:POKES4,20:FORI=1TO2300:NEXT:POKES6,242:RETURN 940 PRINTRIGHT$(" "+STR$(N),6);:RETURN 960 FORI=A+STOB+SSTEPN:POKEI,42:POKEI+C,2+K:K=NOTK:POKES1,5+K:POKES4,129 962 FORJ=1TO4:NEXT:POKES4,128:FORJ=1TO2:NEXT:NEXT:RETURN 998 : 999 : * ML DATA * 1000 DATA169,0,133,253,169,4,133,254,160,0,162,4 1002 DATA177,253,201,34,208,4,169,32,145,253,200,208,243,230,254,202,208,238,96 1099 : * CHARACTER DATA * 1100 DATA40,158,158,190,190,158,158,40 1102 DATA40,190,190,190,190,190,190,40 1104 DATA36,254,36,36,36,254,36,0 1106 DATA85,85,85,85,85,85,85,85 1119 : 1120 DATA130,40,60,255,255,60,60,0 1122 DATA130,40,255,255,255,60,60,0 1124 DATA0,0,56,124,254,124,56,0 1126 DATA60,40,170,190,170,190,170,40 1128 DATA160,160,60,247,255,255,60,0 1130 DATA3,3,7,14,14,28,56,96 1132 DATA60,60,60,60,60,60,247,247 1134 DATA60,60,60,60,60,60,247,247 1136 DATA28,193,3,1,3,1,3,1 1138 DATA20,20,60,195,195,195,60,0 1140 DATA20,20,60,195,195,195,60,0 1142 DATA0,56,131,194,131,194,44,0 1159 : 1160 DATA254,198,198,198,198,198,254,0 1162 DATA6,6,6,6,6,6,6,0 1164 DATA254,6,6,254,192,192,254,0 1166 DATA254,6,6,254,6,6,254,0 1168 DATA198,198,198,254,6,6,6,0 1170 DATA254,192,192,254,6,6,254,0 1172 DATA192,192,192,254,198,198,254,0 1174 DATA254,6,6,6,6,6,6,0 1176 DATA254,198,198,254,198,198,254,0 1178 DATA254,198,198,254,6,6,6,0 1199 : * NAMES * 1201 DATA"THE COURTYARD" 1202 DATA"THE GATEHOUSE" 1203 DATA"THE BARRACKS" 1204 DATA"THE GARDEN" 1205 DATA"THE CHAPEL" 1206 DATA"THE PIT" 1207 DATA"GALLERY I" 1208 DATA"THE LIBRARY" 1209 DATA"THE SNAKE" 1210 DATA"THE COLONADE" 1211 DATA"THE WINE CELLAR" 1212 DATA"THE THREE ROOMS" 1213 DATA"THE DOUBLE-E ROOM" 1214 DATA"GALLERY II" 1215 DATA"THE OVAL ROOM" 1216 DATA"THE GREENHOUSE" 1217 DATA"THE MESH ROOM" 1218 DATA"THE PRISON" 1219 DATA"THE I-J-K ROOM" 1220 DATA"THE CUBICLES" 1221 DATA"TRIPLE-T" 1222 DATA"THE VESTIBULE" 1223 DATA"THE ARENA" 1224 DATA"DEATHTRAP I" 1225 DATA"THE S-CHAMBER" 1226 DATA"THE SPIRAL HALL" 1227 DATA"THE WEB" 1228 DATA"THE MAZE" 1229 DATA"THE PIT II" 1230 DATA"THE ATRIUM" 1231 DATA"THE CLOAKROOMS" 1232 DATA"THE DUNGEON" 1233 DATA"THE SHIFTING HALL" 1234 DATA"THE SUITE" 1235 DATA"THE PANTRY" 1236 DATA"GALLERY III" 1237 DATA"THE WINDBREAK" 1238 DATA"DEATHTRAP II" 1239 DATA"THE WALL" 1240 DATA"DEATHTRAP III" 2999 : * MISCELLANEOUS * 3010 DATA10,12,7,15,10,7,9,15,9,9,15,10 3020 DATA10,25,50,75,100,125,150,175,200,250,300,400,500 3030 DATA15,10,12,14,13 3099 : * COORDINATE DATA * 3100 POKE65,PEEK(61):POKE66,PEEK(62):RETURN 3110 DATA0,0 3120 DATA135,455,495,498,145,465,502,505,0,0 3130 DATA139,379,140,380,410,429,650,669,699,939,700,940,0,0 3140 DATA401,420,659,678,0,0 3150 DATA330,730,350,750,521,536,543,558,0,0 3160 DATA250,269,250,810,269,829,811,816,822,828,455,458,461,464,455,655 3162 DATA504,664,656,663,0,0 3170 DATA130,410,650,930,149,429,669,949,339,739,340,740,0,0 3180 DATA287,767,312,792,290,309,410,429,530,549,650,669,770,789,0,0 3190 DATA285,314,325,405,445,474,474,594,605,634,645,725,765,794,0,0 3200 DATA446,606,250,450,610,930,454,614,458,618,461,621,465,625,149,469 3202 DATA629,949,473,633,0,0 3210 DATA210,229,361,374,385,398,530,549,681,694,705,718,850,869,0,0 3220 DATA415,424,521,530,549,558,570,650,850,930,455,655,855,935,464,664 3222 DATA864,944,589,669,869,949,0,0 3230 DATA244,257,262,275,524,532,547,555,804,817,822,835,297,777,302,782,0,0 3240 DATA241,250,254,265,269,278,418,421,765,770,789,794,290,730,294,774 3242 DATA458,778,461,781,305,785,309,789,0,0 3250 DATA378,381,415,417,422,424,453,454,465,466,492,493,506,507,531,532 3252 DATA547,548,691,692,707,708,732,733 3254 DATA746,747,773,774,785,786,815,817,822,824,858,861,0,0 3260 DATA205,234,405,434,605,634,805,834,245,785,0,0 3270 DATA325,925,250,730,335,935,140,740,345,945,150,750,355,955,0,0 3280 DATA130,410,650,930,149,429,669,949,334,345,374,385,414,428 3282 DATA651,665,694,705,734,745,0,0 3290 DATA286,304,330,730,766,774,339,739,777,779,344,784,545,546 3292 DATA312,312,351,351,390,390,429,429,468,468,507,507,587,587,628,628,669,669 3294 DATA710,710,751,751,792,792,0,0 3300 DATA135,255,140,260,145,265,150,270,155,275,805,925,810,930,815,935 3302 DATA820,940,825,945,830,950,835,955,0,0 3310 DATA286,486,580,940,314,514,521,530,535,545,550,558,0,0 3320 DATA326,338,341,353,526,553,726,738,741,753,141,301,366,406,646,686 3322 DATA393,433,673,713,778,938,0,0 3330 DATA137,142,253,257,262,266,410,413,426,429,610,613,626,629,773,777,782 3332 DATA786,897,902,177,217,182,222,450,570,469,589,817,857,822,862,0,0 3340 DATA243,843,290,810,297,937,142,822,309,829,316,876,248,257,267,276 3342 DATA843,852,862,871,0,0 3350 DATA241,263,416,423,576,583,736,743,896,918,936,958,456,536,623,703,0,0 3360 DATA216,224,376,381,540,544,696,701,860,864,145,865,416,936,0,0 3370 DATA325,725,136,456,616,936,347,747,158,478,638,958,521,530,542,552 3372 DATA331,341,353,357,731,741,753,757,0,0 3380 DATA404,412,427,435,452,932,140,820,467,947,0,0 3390 DATA410,416,423,429,655,668,821,824,450,930,695,735,895,935,861,941 3392 DATA469,949,0,0 3400 DATA321,329,335,337,342,344,350,358,526,536,543,553,766,776,783,793 3402 DATA376,496,383,503,566,726,593,753,816,936,823,943,0,0 3410 DATA241,246,250,256,263,275,454,456,463,465,614,616,623,625,804,829 3412 DATA833,838,290,770,296,416,656,776,303,423,663,783,309,789,0,0 3420 DATA244,275,284,315,655,664,695,704,324,924,325,925,339,739,340,740 3422 DATA899,939,900,940,354,714,355,715,0,0 3430 DATA361,376,384,398,681,696,704,718,297,457,617,777,140,300,460,620 3432 DATA780,940,303,463,623,783,0,0 3440 DATA408,413,648,653,425,431,665,671,295,297,302,304,775,777,782,784 3442 DATA134,414,654,934,145,425,665,945,0,0 3450 DATA325,925,330,930,335,935,145,745,150,750,155,755,336,338,742,744,0,0 3460 DATA241,255,264,278,801,815,824,838,288,528,535,775,259,819,260,820 3462 DATA311,551,544,784,0,0 3470 DATA565,925,490,850,415,775,340,700,265,625,190,550,155,475,0,0 3480 DATA281,292,295,307,533,536,543,546,772,784,787,798,332,652,812,932 3482 DATA339,419,340,420,659,739,660,740,147,267,427,747,0,0 3490 DATA523,556,0,0 3500 DATA260,278,444,454,459,463,616,620,625,635,801,819,135,615,464,944,0,0