0 REM BY SCOTT CALAMAR/CALASOFT/PUBLISHED 1987 BY VIKING TECHNOLOGIES,INC. 2 RESTORE:POKE53276,3:CH=53269:POKECH,0:SB=53280:SC=53281:BP=53275:POKEBP,0 3 GOSUB100:S1=2040:X1=53248:Y1=53249:S2=2041:Y2=53251:X2=53250 4 FORJ=0TO62:READX:POKEJ+832,X:NEXTJ:POKES1,13:POKE53285,4:POKE53286,10 5 POKE53287,0:POKE53288,0:POKE53277,1:POKE53271,1 7 GOSUB 20000 9 FORM=0TO62:READX:POKEM+896,X:NEXT 10 FORM=0TO62:READX:POKEM+704,X:NEXT:IC=0 12 FORM=0TO62:READX:POKEM+960,X:NEXT 20 POKE 198,0 25 PRINT"[158] PRESS SPACEBAR TO TURN THE KEY" 28 GETA$:IFA$<>" " THEN28 30 POKESC,0:TI$="000000" 32 PRINT"[147][154]YOU ARE IN A DARK APARTMENT.":PRINT"WHAT WILL YOU DO?" 33 GOSUB 43000:Q$=T$:IFLEFT$(Q$,4)<>"TURN"THENIFLEFT$(Q$,4)<>"HELP"THEN 32 34 IFRIGHT$(Q$,4)="IGHT"THEN42 35 IFRIGHT$(Q$,4)="GHTS"THEN42 36 IFLEFT$(Q$,4)<>"HELP"THEN42 37 PRINT"[147][156]WHAT? ALREADY??":PRINT"[154]TRY TURNING ON THE LIGHTS!!!" 39 GOSUB6002 40 GOTO32 42 GOSUB53000:POKE53277,1:POKE53271,1:POKEY1,140:POKEX1,150:POKECH,1 43 D=140:FORE=159TO120STEP-.5:POKEX1,E:D=D+.5:POKEY1,D:NEXTE 45 PRINT" YOU ARE IN THE ENTRY HALL.":GOTO10000 100 DIMV$(29),G$(16,1),LK$(31,1),TK$(47,1),OP$(16,1),TU$(12,1),RD$(10),EA$(9) 101 DIMLT$(10),CL$(6) 105 A1=54277:R1=54278:W1=54276:H1=54273:L1=54272:V=54296:A2=54284:R2=54285 106 W2=54283:H2=54280:L2=54279:A3=54291:R3=54292:W3=54290:H3=54287:L3=54286 107 PRINT"[147]"CHR$(142); 108 POKE SB,11:POKE SC,0 110 GOSUB 30000:GOSUB 5100 130 PRINT"[147]"CHR$(142):FORD=1TO3:PRINTTAB(14)"[149] [146]":NEXTD 132 PRINTTAB(14)" 21-D " 134 FORD=1TO3:PRINTTAB(14)" [146]":NEXTD 135 PRINTTAB(14)" [209] ":PRINTTAB(14)" " 136 PRINTTAB(14)" [146][153][171][149][215] " 137 FORD=1TO5:PRINTTAB(14)" [146]":NEXTD 140 PRINTTAB(13)"[158][169] [146][169]":PRINTTAB(13)"[157][169] WELCOME [146][169]" 141 PRINTTAB(11)"[169] [146][169]" 150 PRINT"[153]THE KEY JUMPS FROM YOUR HAND TO THE LOCK" 155 A$="":RETURN 995 GOSUB5100:PRINTTAB(14)"[150] THE END!! ":POKE 198,0 996 PRINT" WOULD YOU LIKE TO PLAY AGAIN? (Y/N)"; 997 X$="":GETX$:IFX$<>"Y"THENIFX$<>"N"THEN997 998 IFX$="Y"THEN RUN 999 LOAD"0:UPT.REBOOT",8 1000 FORK=0TO15:IFRIGHT$(Q$,5)=RIGHT$(G$(K,0),5)THEN J=K:K=15:NEXT:K=J:GOTO 1002 1001 NEXT:GOTO2105 1002 GM=VAL(G$(K,1)):IFGM<>RMTHENIFGM<>10THEN1299 1003 IFK>-1THENIFK<5THENONK+1GOSUB50000,51000,52000,53000,54000 1004 IFK>-1THENIFK<5THENGOSUB40000:GOTO1007 1005 IFK>4THENONK-4GOTO1060,1019,1016,1085,1024,1032,1034,1036,1040,1045,1070 1007 PRINT"YOU ARE ";:ONRMGOTO1008,1009,1010,1011,1012,1013,1014 1008 PRINT"IN THE LIVING ROOM":RETURN 1009 PRINT"IN THE KITCHEN":RETURN 1010 PRINT"IN THE BATHROOM":RETURN 1011 PRINT"IN THE HALL":RETURN 1012 PRINT"IN THE BEDROOM":RETURN 1013 PRINT"IN A CLOSET WITH A LARGE":PRINT"FIREPLACE":RETURN 1014 PRINT"ON THE FIRE ESCAPE":RETURN 1016 PRINT"YOU DREAM YOU ARE KING OF THE UNIVERSE 1017 [153]"YOU ARE ASSASSINATED AND WAKE UP!":[142] 1019 [139]RM[179][177]1[167][153]"NOT FROM HERE":[142] 1020 [139]TK$(21,1)[178]"11"[167][139][200](TK$(21,0),3)[178]"LIT"[167][141]56000:[137]1022 1021 [151]SC,0:[137]42000 1022 [141]40000:[137]1007 1024 [153]"STUFFY IN HERE...":[142] 1032 [153]"YOU DON'T FIT. TRY OPENING IT":[142] 1034 [153]"THE CHAIN LOCK IS ON":[142] 1036 [139]RM[179][177]6[167][139]RM[179][177]9[167]1299 1037 [141]55000:[151]X1,76:[151]Y1,176:[151]BP,1:[151]CH,3 1038 [153]"THERE IS A TALL, DARK CHIMNEY ABOVE":[142] 1040 [139][200](TK$(21,0),3)[179][177]"LIT"[167]1099 1041 [139]TK$(21,1)[179][177]"11"[167]1099 1042 [141]58000:[153]"YOU SEE STARS ABOVE YOU!" 1043 [153]"THIS MUST BE A TOP FLOOR APARTMENT":[142] 1045 [139]RM[179][177]9[167][139]RM[179][177]7[167][153]"NO ACCESS":[142] 1046 [139][200](TK$(21,0),3)[179][177]"LIT"[167]1099 1047 [139]TK$(21,1)[179][177]"11"[167]1099 1048 [139][197](TK$(37,1))[179][177]11[167]1054 1049 [153]"YOU TOSS THE ROPE UP AND IT HOOKS OVER THE CHIMNEY":[141]6000 1050 U[178][194](Y1)[171].5:[139]U[179]1[167][141]57000:[137]1052 1051 [151]Y1,U:[137]1050 1052 [153]"YOU ARE ON THE ROOF!":[151]X1,140:[151]Y1,180:[151]CH,3:[142] 1054 [139]RM[178]9[167][153]"WALLS ARE TOO SLIPPERY TO CLIMB NOW":[142] 1056 [153]"CRACK. UH-OH, THE LADDER IS TOO WEAK!!! IT BROKEWAIT":[141]6000 1057 [137]42000 1060 [139]TK$(0,1)[179][177]"11"[167][153]"IT'S LOCKED":[137]10000 1061 [139][200](TK$(21,0),3)[179][177]"LIT"[167]1099 1062 [139]TK$(21,1)[179][177]"11"[167]1099 1063 [141]55000:[141]40000:[137]1007 1064 [142] 1070 [151]X1,190:[153]"IT FEELS VERY STRANGE!!!":[141]6002:[151]BP,3 1072 [129]L[178]1[164]35 1074 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(OPENSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(CLRSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("; 1075 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(FORSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("; 1076 [153]"VERIFYSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(DEFSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(POKESPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(PRINT#SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("; 1077 [153]"PRINTSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(CONTSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(LISTSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("; 1078 [130]L:[151]CH,0:[141]55000:[151]CH,1:[151]BP,0:TK$(24,0)[178]"POWER OF PYRAMID" 1080 [153]"YOU'RE IMBUED WITH THE POWER OF MAGIC!":PY[178]1:TK$(24,1)[178]"11":[142] 1085 [139]CK[178]1[167][151]SC,7:[151]SB,2:[153]"ARRRGH. IT'S TOO HOT":[151]CH,0:[137]995 1086 [139][200](TK$(21,0),3)[179][177]"LIT"[167]1099 1087 [139]TK$(21,1)[179][177]"11"[167]1099 1088 [151]SC,0:[151]SB,0:[153]"LOAD":[129]P[178]0[164]5:[153][166]13)"POKESPC(SPC(SPC(SPC(SPC(SPC(" 1089 [130]P:[153]"THIS OVEN'S VERY SMALL. CAN ONLY STAY HERE FOR A SECOND" 1090 HP$[178]"19":[153]"YOU FIND:":[141]4116 1091 Q$[178]"":[153]"WHAT WILL YOU DO?":[141] 43000:Q$[178]T$ 1092 [139][200](Q$,3)[178]"TAK"[167][139][201](Q$,4)[178]"FOOT"[167][139]TK$(44,1)[178]"19"[167]1096 1093 [139][200](Q$,3)[178]"GET"[167][139][201](Q$,4)[178]"FOOT"[167][139]TK$(44,1)[178]"19"[167]1096 1094 [151]SC,7:[141]51000:[151]CH,1 1095 [153]"CAN'T DO THAT IN HERE!":[142] 1096 TK$(44,1)[178]"11":IC[178]IC[170]1 1097 [151]SC,7:[141]51000:[151]CH,1:[153]"YOU HAVE RABBIT'S FOOT":[142] 1099 [153]"IT'S TOO DARK!":[142] 1100 [129]I[178]0[164]30:[139]R$[178][201](LK$(I,0),4)[167]J[178]I:I[178]30:[130]:I[178]J:[137]4150 1101 [130]:[153]"I SEE NOTHING SPECIAL":[142] 1102 [139]LR[179][177]RM[167][139]LR[179][177]10[167][139]LR[179][177]11[167]1299 1103 [139]I[177][171]1[167][139]I[179]9[167][145]I[170]1[137]1109,1185,1111,1192,1192,1115,1160,1150,1150 1104 [139]I[177]8[167][139]I[179]17[167][145]I[171]8[137]1119,1180,1165,1120,1183,1124,1150,1150 1105 [139]I[177]16[167][139]I[179]23[167][145]I[171]16[137]1129,1132,1134,1134,1140,1150 1106 [139]I[177]22[167][145]I[171]22[137]1144,1144,1146,1148,1234,1107,1152,1320 1107 [139]PL[178]0[167][153]"JUST A MOUND OF DAMP SOIL INSIDE POT":[142] 1108 [153]"THERE IS A COLORFUL MUSHROOM GROWING":[142] 1109 [153]"THE CUSHION IS LOOSE":TK$(1,1)[178]"1":[142] 1111 [139]RM[179][177]1[167][139]RM[179][177]5[167]1299 1112 [139]RM[178]1[167]1150 1113 [153]"IT'S SEALED SHUT":[142] 1115 [139]TK$(0,1)[179][177]"11"[167][153]"IT'S LOCKED!":[142] 1116 [153]"IT'S A WALK-IN CLOSET":[142] 1119 [153]"IT SEEMS CROOKED":[142] 1120 [153]"YOU FIND $50":[142] 1124 [153]"WHY NOT READ THEM?":[142] 1129 [139]CK[178]1[167]1150 1130 [153]"IT'S NOT LIT.":[142] 1132 [139]RM[179][177]2[167][139]RM[179][177]3[167]1299 1133 [153]"THE DRAIN IS CLOGGED":[142] 1134 [139]RM[179][177]2[167][139]RM[179][177]3[167]1299 1135 [137]1150 1140 [153]"WHAT A NICE TOILET!":[142] 1144 [153]"YOU SEE A SHOWER CURTAIN":[142] 1146 [153]"BLEH! NICE FACE!":[153]"ONHEY -- THIS CABINET OPENS":[142] 1148 [153]"WHAT A LUMPY PILLOW":I[178]19:HP$[178]"-1":[141]4110:[142] 1150 [153]"SEEMS TO OPEN...":[142] 1152 [139]RM[179][177]1[167][139]RM[179][177]4[167][153]"IT'S DUSTY BUT ORDINARY":[142] 1154 [153]"IT'S COVERED WITH A RUG":[142] 1160 [139][201](Q$,5)[178]"CTURE"[167][153]"IT SEEMS TO BE CROOKED":[142] 1161 [139][201](Q$,5)[178]"ITURE"[167][153]"THE DRAWERS SEEM TO OPEN":[142] 1165 [141]1150:[129]I[178]16[164]17:HP$[178]"17":[141]4110:[130] 1166 [129]I[178]40[164]41:[141]4110:[130] 1167 [142] 1180 [153]"UNDER THE BED YOU FIND DUST BALLS THE SIZE OF TUMBLEWEEDS," 1181 I[178]12:HP$[178]"-1":[141]4110 1182 I[178]20:[137]4110 1183 [153]"YOU FIND COOKIE CRUMBS":[142] 1185 [139]RM[179][177]1[167][139]RM[179][177]4[167]1299 1186 [153]"THERE'S A BUMP UNDER THE RUG":[142] 1192 [153]"IT'S OFF. TURN IT ON AND WATCH":[142] 1194 [139][197](TK$(I,1))[179][177][171]1[167][139][197](TK$(I,1))[179][177]18[167][153]"":[137]1296 1195 [137]1248 1199 [153]"YOU SEE NOTHING SPECIAL":[142] 1200 [129]I[178]0[164]46:Z[178][197](TK$(I,1)):RK$[178][201](TK$(I,0),4) 1201 [139]R$[178]RK$[167][139]Z[179][177]RM[167][139]Z[179][177]10[167]J[178]I:I[178]46:[130]I:I[178]J:[137] 3900 1202 [139]IC[177]7[167][153]"CARRYING TOO MUCH!":[142] 1203 [139]R$[178]RK$[167][137]1205 1204 [130]:[153]"WON'T BUDGE!":[142] 1205 [139]I[177][171]1[167][139]I[179]9[167][145]I[170]1[137]1250,1259,1212,1262,1264,1290,1240,1222,1269 1206 [139]I[177]8[167][139]I[179]18[167][145]I[171]8[137]1243,1245,1218,1283,1222,1245,1285,1225,1225 1207 [139]I[177]17[167][139]I[179]27[167][145]I[171]17[137]1245,1274,1230,1294,1234,1236,1276,1245,0000 1208 [139]I[177]26[167][139]I[179]36[167][145]I[171]26[137]0000,1257,1257,1247,1213,1253,1271,1255,1297 1209 [139]I[177]35[167][145]I[171]35[137]1286,1194,0000,3400,1225,1225,1210,1245,1222,1222,1222 1212 DI[178]1:[153]"THEY GLOW":[137]1296 1213 [153]"IT'S DULL":[137]1296 1218 [153]"ACHOO!":[142] 1222 [153]"OKAY":[137]1296 1225 [153]"WHY NOT READ IT?":[137]1296 1230 [139][197](TK$(19,1))[179][177][171]1[167][153]"":[137]1296 1231 [153]"YOU FIND A PAMPHLET!":TK$(19,1)[178]"5":[137]1296 1234 [153]"IT SAYS YOU'VE BEEN HERE FOR":[153]"ON"[200](TI$,2)" HRS., "; 1235 [153][202](TI$,3,2) " MINS. AND "[201](TI$,2)" SECS.":[137]1296 1236 [153]"WONDER WHAT IT WOULD SMELL LIKE LIT?":[137]1296 1240 [153]"PLANT SEEDS?":SE[178]1:[137]1296 1243 [139]CK[178]0[167][153]"TRY COOKING":[137]1296 1245 [153]"O.K. TRY EATING?":[137]1296 1247 [139]TK$(30,1)[179][177]"18"[167][153]"O.K.":[137]1296 1248 [153]"SOAP AND ROPE ARE ATTACHED":TK$(30,0)[178]"SOAP-ON-A-ROPE" 1249 SR[178]1:[137]1296 1250 [153]"OK.":[137]1296 1253 [153]"THANKS NEPHEW!":MO[178]1:TK$(32,1)[178]"11":[137]40100 1255 [139][197](TK$(12,1))[178]11[167][153]"YOU CAN'T":[142] 1256 [137]40070 1257 [153]"THAT FELT GREAT BUT YOUR CLOTHES ARE WET":[142] 1259 [139][197](TK$(0,1))[177]0[167][141]1199:[137]1296 1260 I[178]0:HP$[178]"-1":[153]"":[137]4110 1262 [139]RM[179][177]1[167][139]RM[179][177]5[167]1299 1263 [153]"WRITING ON THE WALL SAYS LOOK IN CLOSET":[142] 1264 [139]RM[179][177]1[167][139]RM[179][177]4[167]1299 1265 [139]RM[178]4[167]I[178]7:HP$[178]"-1":[153]"":[137]4110 1266 [153]"YOU FIND DUST":I[178]2:HP$[178]"-1":[137]4100 1269 [139]SD[178]0[167][153]"NOT YET!":[142] 1270 [153]"IT'S SEALED!":[137]1296 1271 [153]"THEY SEEM SLIGHTLY DAMP.":[137]1296 1274 [153]"TITLED 'ANSWERS TO QUESTIONS OF THE UNIVERSE'.":[137]1296 1276 [153]"IT'S MUCH TOO HEAVY AND POWERFUL!":[142] 1283 [153]"SMELLS STRONG!!":[137]1296 1285 [153]"IT IS VERY POWERFUL!!":[141]1296:[141]41005:RM[178]7:[137]1020 1286 [139]TK$(36,1)[178]"2"[167][153]"":[137]1296 1287 [139]PL[178]0[167]1299 1288 [139]TK$(31,1)[178]"11"[167][153]"MAYBE IF YOU CUT IT...":[142] 1289 [139]TK$(31,1)[179][177]"11"[167][139]MU[178]0[167][153]"STEM IS TOUGH -- WON'T BREAK!":[142] 1290 [139][201](Q$,5)[178]"ITURE"[167][153]"YOU CAN'T BUT DRAWERS OPEN":[142] 1291 [139]RM[178]4[167][153]"YOU FIND A SAFE!":[142] 1292 [139]RM[179][177]1[167][139]RM[179][177]5[167]1299 1293 [153]"THE WALL SAYS THERE IS A CLOSET HERE!":[142] 1294 [153]"IT'S SHORT BUT LIGHTABLE." 1296 TK$(I,1)[178]"11":IC[178]IC[170]1:[142] 1297 [153]"IT'S STUCK!":[142] 1298 [153]"YOU HAVE!":[142] 1299 [153]"NOT HERE":[142] 1300 [129]I[178]0[164]15:[139]R$[178]OP$(I,0)[167]Z[178][197](OP$(I,1)):J[178]I:I[178]15:[130]:I[178]J:[137]1304 1302 [130]:[137]2105 1304 [139]Z[179][177]RM[167][139]Z[179][177]10[167][139]Z[179][177]11[167]1299 1305 [139]I[177][171]1[167][139]I[179]9[167][145]I[170]1[137]1330,1330,1337,1340,1360,1365,1345,1345,1347 1306 [139]I[177]8[167][145]I[171]8[137]0000,1370,1370,1320,1322,1325,1350 1320 [153]"IT WON'T OPEN. YOU CAN'T LEAVE!":[142] 1322 HP$[178]"12":[137]4115 1325 [139]TK$(8,1)[179][177]"11"[167]1999 1326 [153]"UNCLE LEAVES YOU EVERYTHING":[153]"IF THE WILL IS UNOPENED":[142] 1330 [139]RM[179][177]1[167][139]RM[179][177]5[167][137]1299 1331 [139]RM[178]1[167]HP$[178]"14":[137]4115 1332 HP$[178]"15":[137]4115 1337 [139]RM[178]1[167][153]"YOU SEE A FIRE ESCAPE.":[142] 1338 [139]RM[178]5[167][153]"IT'S SEALED SHUT":[142] 1339 [153]"NO WINDOW HERE":[142] 1340 [139]TK$(0,1)[179][177]"11"[167][153]"YOU DON'T HAVE A KEY.":[142] 1342 [153]"IT'S A DARK WALK-IN CLOSET":[142] 1345 [139]RM[179][177]2[167][139]RM[179][177]3[167]1299 1346 [139]RM[178]2[167]HP$[178]"13":[137]4115 1347 HP$[178]"16":[137]4115 1350 [139]SD[178]0[167][153]"IT'S LOCKED! NEED COMBINATION!":[142] 1351 I[178]8:HP$[178]"-1":[137]4110 1358 [139]TK$(0,1)[178]"11"[167][153]"IT'S A DARK WALK-IN CLOSET":[142] 1359 [137]2105 1360 HP$[178]"17":[137]4115 1365 [139]CK[178]0[167][153]"MAYBE YOU SHOULD LIGHT IT":[142] 1366 [139]CK[178]1[167][153]"TOO HOT!":[142] 1370 [153]"NEED A SHOWER?":[153]"YOU FIND:" 1371 HP$[178]"18":[137]4116 1400 [139][201](Q$,4)[178]"T.V."[167]1410 1401 [129]I[178]0[164]11:[139]R$[178]TU$(I,0)[167]1404 1402 [130]:[139][202](Q$,6,3)[178]"OFF"[167][153]"OK.":[142] 1403 [137]2105 1404 TU[178][197](TU$(I,1)):[139]TU[179][177]RM[167][139]TU[179][177]10[167]1299 1405 [145]I[170]1[137]1450,1450,1410,1410,1412,1414,1414,1418,1420,1412,1430,1420 1410 [153]"IT COMES ALIVE WITH A COMMERCIAL. WATCH FOR AWHILE?":[142] 1412 [153]"OKAY. GIVE IT A LISTEN":[142] 1414 [139]RM[179][177]2[167][139]RM[179][177]3[167]1299 1415 [153]"DRIP, DRIP, DRIP":[142] 1418 [153]"STEP IN AND TAKE A SHOWER?":[142] 1420 [139]CK[178]1[167][139][202](Q$,6,3)[178]"OFF"[167]CK[178]0:[153]"NO FLAME NOW!":[142] 1421 [139]CK[178]1[167][139][202](Q$,6,2)[178]"ON"[167][153]"IT'S LIT!":[142] 1422 [139]CK[178]0[167][139][202](Q$,6,2)[178]"ON"[167][139]TK$(33,1)[178]"11"[167]2409 1423 [153]"CAN'T":[142] 1430 [153]"LOADWHAT'S THE COMBO? (?R-?L)?":[141] 43000 1432 [139]T$[179][177]"4R-3L"[167][153]"LOADNOPE! THAT'S NOT IT!":[142] 1433 [153]"LOADTHE SAFE CLICKS...THE HINGES SQUEEK...":SD[178]1:TK$(8,1)[178]"4":[142] 1445 [137]2105 1450 [139][202](Q$,6,3)[178]"OFF"[167][151]SC,0:[142] 1451 [137] 1458 1452 X[178]15:[142] 1453 X[178]7:[142] 1454 X[178]3:[142] 1455 X[178]0:[142] 1456 X[178]14:[142] 1458 [145]RM[141]1452,1453,1454,1455,1456,1455,1455,1455,1455:[151]SC,X:[142] 1500 [153]"CLEANLINESS IN NEXT TO GODLINESS":[142] 1600 [139]RM[179][177]2[167]1299 1601 [139]CK[178]0[167][153]"DID YOU LIGHT BURNER?":[142] 1602 [139][201](Q$,6)[178]"SHROOM"[167]1610 1603 [139]R$[178]"FOOT"[167]1615 1605 [139]CK[178]0[167][153]"DID YOU LIGHT BURNER?":[142] 1606 [139]CK[178]1[167][153]"OOOPS. IT BURNT.":[142] 1610 [153]"YOU POP IT IN THE OVEN AND IT BAKES. IT SMELLS GOOD":CM[178]1 1611 PL[178]0:TK$(36,0)[178]"COOKED MUSHROOM":TK$(36,1)[178]"2":[142] 1615 [153]"SMELLS KIND OF FURRY":TK$(44,0)[178]"ROAST RABBIT":TK$(44,1)[178]"2" 1616 [142] 1700 [139]R$[179][177]"DICE"[167]2105 1701 [139]TK$(2,1)[179][177]"11"[167]1999 1702 [153]"THEY ADD UP TO SEVEN: 3 ON THE LEFT AND 4 ON THE RIGHT":[142] 1800 [139]R$[178]"NCLE"[167]1815 1801 [139]R$[178]"MOTH"[167]1815 1803 [139]R$[178]"PELL"[167][153]"WELL, SAY THE SPELL!":[142] 1804 [139]R$[178]"AGIC"[167][153]"GO AHEAD, SAY IT!":[142] 1805 [139][202](Q$,5,4)[178]"LEPI"[167][139][201](Q$,4)[178]"UMAN"[167]5000 1810 [153]""[202](Q$,5,20):[142] 1815 [153]"NEPHEW?":[142] 1900 [129]I[178]0[164]9:[139]R$[178]RD$(I)[167]J[178]I:I[178]9:[130]:I[178]J:[137] 4120 1901 [130]I:[137]2105 1902 [139]I[177][171]1[167][145]I[170]1[137]1904,1906,1940,1920,1910,1913,1916,1909,1927,1944 1904 [153]"IT SAYS: WE ARE ATTRACTED TO LIFE LIKE MOTHS TO A LIGHT":[142] 1906 [151]53281,15:[153]"FUNGI CAN OFTEN BE PREVENTATIVE MEDICINE" 1907 [153]"MANY SPECIES ARE POISONOUS IF NOT COOKED" 1908 [141]6002:[137]1458 1909 [153]"YOU CAN SEE IT.":[142] 1910 [153]"A STRANGE DICTIONARY. THREE WORDS GLOW:" 1911 [153]"ONHUMANWAIT, LEPIDOPTERAWAIT, AND TURNWAIT":[142] 1913 [151]CH,0:[151]SC,1:[153]"LOADDEAR NEPHEW":[153]" THANK YOU FOR COMING" 1914 [153]" MAKE YOURSELF AT HOME.":[137]1925 1916 [153]"IT SAYS 'DO NOT OPEN'":[142] 1920 [153]"A PAGE IS DOG-EARED.":[141]6000:[151]CH,0:[151]SC,1 1921 [153]"LOADSTOP"[166]10)"ENERGY TRANSFERENCE":[153]"IF ESSENCE OF SPIRIT "; 1922 [153]"HAS BEEN CAPTURED THAN TRANSFERRENCE CAN BE ATTEMPTED." 1923 [153]"PREPARE THE ALTAR. LIGHT INCENSE.":[153]"SAY THE MAGIC WORDS" 1925 [141]6000:[151]CH,1:[137]1458 1927 [137]1234 1940 [153]"A BOOKMARK MARKS THIS VERSE:":[153]"'LIFE IS LIKE A"; 1941 [153]" PIECE OF CLOTH AND I AM BUT A HUNGRY MOTH'":[142] 1944 [153]"'A RELATION WILL BUG YOU.":[153]"ONDON'T SAY UNCLE!'":[142] 1999 [153]"DON'T HAVE IT!":[142] 2000 I[178]0 2001 [139]R$[178]EA$(I)[167]4125 2002 [139] I[179]9 [167] I[178]I[170]1:[137] 2001 2003 [153]"BLEH! YOU FEEL SICK.":[142] 2004 [145]I[170]1[137]2005,2015,2007,2030,2010,2012,2020,2032,2035 2005 [153]"MMM. YOUR FAVORITE FLAVOR" 2006 EA[178]EA[170]1:[142] 2007 [139]CK[178]0[167][153]"COOK IT FIRST?":[142] 2009 [153]"NOT VERY FILLING":TK$(9,1)[178]"-1":[137]2006 2010 [153]"CRUNCH, CRUNCH CRUNCH.":[137]2006 2012 [153]"THAT FEELS BETTER.":[142] 2015 [153]"IT'S KIND OF STALE. YOU'RE LEFT WITH A FORTUNE AND CRUMBS." 2016 TK$(14,0)[178]"CRUMBS & FORTUNE":[137]2006 2020 [139]CM[178]1[167][153]"UMMM. VERY GOOD. I FEEL SORT OF TINGLY.":MU[178]0:[137]2026 2021 [139]PL[178]1[167][153]"NOT OUT OF THE POT!":[142] 2022 [153]"THEY TASTE TERRIBLE...":[141]6002 2023 [151]SC,0:[153]"LOADCLRTHEY WERE SYSPOISONOUSCLR IF NOT COOKED!" 2024 [153]"CONTNICE GOING!":[153]"PRINTYOU CHOKE AND DIE ON THE SPOT.":[137]995 2026 TK$(36,0)[178]"MAGIC":TK$(36,1)[178]"0":[137]2006 2030 [153]"BLEH! IT'S MOLDY!":[137]2006 2032 [153]"TASTES POISONOUS!":[141]6000:[137]995 2035 [153]"FROG'S LEGS TASTE BETTER ":[153]"THAN A RABBIT'S FOOT" 2036 TK$(44,1)[178]"0":[137]1205 2100 [139]R$[178]"MILK"[167][139][197](TK$(13,1))[178]11[167][153]"TASTES GOOD.":[142] 2104 [139]R$[178]"ATER"[167][153]"TASTES RUSTY":[142] 2105 [153]"YOU CAN'T":[142] 2300 [139]R$[178]"ILET"[167][153]"WHOOSH!":[142] 2302 [137]2105 2400 [139]TK$(33,1)[179][177]"11"[167][139]R$[179][177]"IGHT"[167][153]"NO MATCHES":[142] 2401 [129]I[178]0[164]9:[139]R$[178]LT$(I)[167]2403 2402 [130]:[137]2105 2403 [145]I [137]2407,2407,2105,2412,2408,2408,2408,2412,2416 2407 [153]"IT FLARES UP AND GOES OUT.":[142] 2408 [139]RM[179][177]2[167][142] 2409 [153]" **POOF**! THE PILOT LIGHT IS LIT":CK[178]1 2410 [139]TK$(44,1)[178]"19"[167][153]"MMM SMELLS LIKE WABBIT STEW":TK$(44,1)[178]"0" 2411 [142] 2412 [139]TK$(21,1)[179][177]"11"[167]1999 2413 [139][200](TK$(21,0),3)[178]"LIT"[167]2420 2414 TC[178][197](TI$):[139]TK$(21,1)[178]"0"[167]1999 2415 [153]"THE SHORT LIT CANDLE WON'T LAST LONG":TK$(21,0)[178]"LIT CANDLE":[142] 2416 [139]TK$(23,1)[179][177]"11"[167]1999 2417 [139][200](TK$(23,0),3)[178]"LIT"[167]2420 2418 [153]"THE SMELL IS STRONG AND MAKES YOU DIZZY":IL[178]1:IN[178]0 2419 TK$(23,0)[178]"LIT INCENSE":[142] 2420 [153]"IT IS LIT!":[142] 2500 [139][201](Q$,2)[178]"TV"[167]2504 2502 [139]R$[179][177]"T.V."[167][139]R$[179][177]"SION"[167][153]"NOTHING HAPPENS":[142] 2504 [139]RM[179][177]1[167]1299 2505 [153]"THE MOVIE 'THE FLY' IS ON!":[142] 2600 [139]R$[178]"OSET"[167]2648 2604 [139]R$[178]"SAFE"[167][153]"NEED COMBINATION. MUST TURN DIAL...":[142] 2605 [139]R$[178]"DOOR"[167][139]RM[178]4[167][153]"YOU CAN'T, YOU'RE LOCKED IN.":[142] 2606 [153]"NOT LOCKED.":[142] 2648 [139]RM[179][177]5[167]1299 2649 [139]TK$(0,1)[179][177]"11"[167][153]"YOU CAN'T...YET":[142] 2650 [153]"CLICK. CLOSET SWINGS OPEN. IT'S DEEP AND DARK":[142] 2700 [153]"YOU CAN'T. CALL A PLUMBER":[142] 2800 [139]R$[178]"EREO"[167][139]RM[178]1[167]2820 2802 [139]R$[178]"ADIO"[167][139]RM[178]1[167]2820 2810 [153]"YOU HEAR NOTHING SPECIAL":[142] 2820 [153]"IT PLAYS SOME STRANGE, EERIE MUSIC":[142] 2900 [139]R$[178]"CORD"[167][139]RM[178]1[167]2910 2902 [139]R$[178]"NNEL"[167]2908 2904 [139]R$[178]"TION"[167]2908 2905 [137]2105 2908 [153]"YOU CAN'T. NO CABLE YET.":[142] 2910 [153]"NONE IN SIGHT":[142] 3000 [139]R$[178]"OSET"[167][139]KEY[178]1[167][139]RM[178]5[167][153]"OKAY. CLICK":[142] 3002 [139]R$[178]"DOOR"[167][139]RM[178]4[167][153]"IT ALREADY IS.":[142] 3005 [137]2105 3100 [153]"OKAY":[142] 3200 [153]"CHOOSE: CWAITLUES OR WWAITORD LIST" 3201 X$[178]"":[161]X$:[139]X$[179][177]"C"[167][139]X$[179][177]"W"[167]3201 3202 [139]X$[178]"W"[167]3215 3204 H[178](H[170]1) [175] 7 3206 [139]H[178]1[167][153]"MOVE BETWEEN 9 ROOMS BY TYPING 'GO [ROOM NAME]'":[142] 3207 [139]H[178]2[167][153]"BE SURE TO LOOK AT EVERYTHING!":[142] 3208 [139]H[178]3[167][153]"BE SURE TO TAKE WHAT YOU NEED":[142] 3209 [139]H[178]4[167][153]"CARRY ALL THE RIGHT ITEMS TO CAST THE FINAL SPELL":[142] 3210 [139]RM[178]1[167][153]"THE CHAIR FEELS FUNNY.":[142] 3211 [139]RM[178]2[167][153]"A COLD COOKIE WOULD TASTE GOOD.":[142] 3212 [139]RM[178]3[167][153]"THE TUB LOOKS INTERESTING...":[142] 3213 [139]RM[178]4[167][153]"THAT'S A NICE PICTURE ON THE WALL":[142] 3214 [139]RM[178]5[167][153]"LOTS OF PLACES TO HIDE THINGS HERE...":[142] 3215 [151]SB,1:[151]SC,0:[153]"LOAD":[151] 53269,0 3216 [153]"HERE ARE MOST OF THE COMMANDS AND ITEMS":[153]"YOU'LL NEED:" 3217 [129]I[178]0[164]14:A$[178]V$(I):[141]3260:[130]I:[153]"":[129]I[178]15[164]28:A$[178]V$(I) 3218 [153][163]20);:[141]3260:[130]I:[141]3250 3220 [153]"LOAD":[129]I[178]0[164]15:A$[178]G$(I,0):[141] 3260:[130]I:[153]"":[129]I[178]0[164]15 3221 A$[178]LK$(I,0):[153][163]20);:[141] 3260:[130]I:[141]3250 3223 [153]"LOAD":[129]I[178]16[164]30:A$[178]LK$(I,0):[141] 3260:[130]I:[153]"":[129]I[178]0[164]14 3224 A$[178]TK$(I,0):[153][163]20);:[141]3260:[130]I:[141]3250 3225 [153]"LOAD":[129]I[178]15[164]30:A$[178]TK$(I,0):[141] 3260:[130]I:[153]"":[129]I[178]31[164]46 3226 A$[178]TK$(I,0):[153][163]20):[141] 3260:[130]I 3227 [153][166]15)"PRINTGOOD LUCK!":[153][166]14)"DEFHIT ANY KEY":[141]3251 3228 [145]RM[141]50000,51000,52000,53000,54000,55000,56000,57000,58000 3229 [141] 40000:[151] 53280,11 3230 [153]"":[142] 3250 [153]"  HIT ANY KEY FOR MORE..." 3251 X$[178]"":[161]X$:[139]X$[178]""[167]3251 3252 [153]"":[142] 3260 [139] A$[178]"****" [167] [142] 3265 [153] A$:[142] 3300 [139]R$[179][177]"EEDS"[167]2105 3302 [139]SE[178]0[167][153]"DON'T HAVE":[153]" 3303 IFRM<>7THENPRINT"NOT IN HERE?":RETURN 3304 PRINT"A MUSHROOM SPRINGS UP INTO THE NIGHT!":PL=1:SE=0 3305 TK$(6,1)="-1":TK$(36,1)="7":RETURN 3400 PRINT"[147][149]YOU'RE CARRYING:":HP$="11":GOSUB4116 3410 TH$="THING":IF EA<>1 THEN TH$=TH$+"S" 3420 IFEA>0THENPRINT"AND YOU'VE EATEN"EA;TH$ 3430 RETURN 3500 IFTK$(31,1)<>"11"THENPRINT"NOT YET.":RETURN 3501 IFR$="ROOM"THEN3510 3502 IFR$="ROPE" OR R$="SOAP"THEN3505 3503 PRINT"RAZOR TOO DULL":RETURN 3505 IFSR=0THEN1299 3506 PRINT"THE DULL BLADE SLICES THROUGH THE SOAP AND FREES THE ROPE!" 3507 SR=0:SO=1:RO=1:TK$(30,0)="SOAP":TK$(37,1)="11":RETURN 3510 IFRM<>7THEN2105 3511 IFPL=0THEN1299 3512 PRINT"THE RAZOR SLICES THE STEM. THE MUSHROOM FALLS INTO YOUR HANDS" 3513 PL=0:MU=1:TK$(36,1)="11":RETURN 3600 FORI=0TO5:IFRIGHT$(Q$,3)=CL$(I)THEN3605 3604 NEXT:PRINT"NOTHING TO CLIMB HERE":RETURN 3605 ONI+1GOTO1046,3610,3615,3620,1046,3624 3610 IFRM<7THEN1299 3611 IFRM=9THEN1037 3612 IFRM>6THENIFRM<9THENPRINT"DOESN'T LOOK SAFE! IT'S A LONG WAY DOWN" 3614 GOSUB6002:GOTO42000 3615 IFRM<>9THENPRINT"MUST GO THERE FIRST":RETURN 3618 GOTO1049 3620 IFTK$(37,1)<>"11"THEN3610 3622 PRINT"BE MORE SPECIFIC. CLIMB UP OR DOWN?":RETURN 3624 IFTK$(37,1)<>"11"THENPRINT"YOU DON'T HAVE":RETURN 3626 GOTO3622 3700 FORI=0TO46:VT=VAL(TK$(I,1)):WD$=RIGHT$(TK$(I,0),4) 3701 IFR$=WD$THENIFVT=11THEN3703 3702 NEXT:GOTO1999 3703 IFLEFT$(TK$(I,0),3)="LIT"THEN3715 3704 TK$(I,1)=STR$(RM):PRINT"DROPPED.":IC=IC-1:RETURN 3715 POKESC,2:POKESB,7:PRINT"[144][147] YOU CAN'T DROP A BURNING OBJECT!!":POKECH,0 3717 PRINT"YOU BURNED DOWN THE BUILDING, AND NOT" 3718 PRINT"ONLY KILLED YOURSELF BUT ABOUT 400 OTHER PEOPLE" 3719 PRINT" NEEDLESS TO SAY, YOU LOSE, EINSTEIN." 3720 PRINT""SPC(16)"[151] " 3721 PRINTSPC(9)" [146]":GOTO995 3900 IFZ=11THENPRINT"YOU HAVE IT!":RETURN 3902 IFZ>11THENIFZ<14THENIFRM<>2THEN3912 3904 IFZ=14THENIFRM<>1THEN3912 3905 IFZ=15THENIFRM<>5THEN3912 3906 IFZ=16THENIFRM<>3THEN3912 3907 IFZ=17THENIFRM<>5THEN3912 3908 IFZ=18THENIFRM<>3THEN3912 3909 IFZ<1THEN3912 3910 GOTO1202 3912 PRINT"DON'T SEE IT...":RETURN 4000 IFD>0THENIFD<9THENONDGOTO1000,1100,1200,1200,1300,1400,1500,1600 4002 IFD>8THENIFD<16THENOND-8GOTO1700,1800,1900,2000,2100,1200,2300 4004 IFD>15THENIFD<22THENOND-15GOTO2400,2500,2600,2700,2800,2900 4005 IFD>21THENOND-21GOTO3000,3100,3200,3300,3400,3500,3600,3700 4010 RETURN 4100 IFTK$(I,1)=HP$THENPRINTTK$(I,0):TK$(I,1)=STR$(RM) 4102 RETURN 4110 IFTK$(I,1)=HP$THENTK$(I,1)=STR$(RM) 4112 RETURN 4115 PRINT"YOU FIND:" 4116 J=0:FORI=0TO46:IFTK$(I,1)=HP$THENPRINTTK$(I,0) 4117 IF PEEK(214)>19 THEN PRINT" PLUS MORE!":I=46 4118 NEXT I:RETURN 4120 FORK=0TO46:VT=VAL(TK$(K,1)):WD$=RIGHT$(TK$(K,0),4) 4121 IFR$=WD$THENIFVT>9THENIFVT<12THEN1902 4122 NEXTK:GOTO1999 4125 FORN=0TO46:VT=VAL(TK$(N,1)):WD$=RIGHT$(TK$(N,0),4) 4126 IFR$=WD$THENIFVT=11THEN2004 4128 NEXTN:GOTO1999 4150 FORK=0TO46:IFR$=RIGHT$(TK$(K,0),4)THENLR=VAL(TK$(K,1)):GOTO1102 4152 NEXTK:LR=VAL(LK$(I,1)):GOTO1102 5000 IFRM=6THEN5200 5002 PRINT"NOTHING HAPPENED...YET...":RETURN 5010 POKECH,0:PRINT"[147][156]"SPC(16)"POOF!":POKESC,1:POKESB,1 5014 FORX=15TO0STEP-.50:POKEV,X:POKEA1,34:POKER1,66:POKEW1,129 5015 POKEH1,18:POKEL1,209:NEXTX 5020 POKEW1,0:POKEA1,0:POKER1,0:PRINT"[147]" 5022 POKE53271,2:POKE53277,2 5025 IFRIGHT$(TK$(36,0),4)="AGIC"THEN5050 5026 POKEY2,200:POKEX2,100:POKEX1,125:POKEY1,190 5030 POKES1,14:FORJ=0TO62:POKEJ+832,0 5035 FORJ=0TO62:READX:POKEJ+832,X:NEXT:POKECH,3:POKES2,13:POKES1,14 5040 PRINT"[156]NEPHEW!!! WHY DIDN'T YOU EAT THE COOKED MUSHROOM?" 5042 PRINT"THERE'S NOTHING I CAN DO FOR YOU NOW!!! I'M SORRY!!!" 5044 PRINT"BY THE WAY, THANKS FOR BRINGING ME BACK!" 5045 FORL=1TO50:POKES1,11:FORT=1TO20:NEXTT:POKES1,14:FORT=1TO20:NEXTT:NEXTL 5046 GOTO995 5050 FORJ=0TO62:U=PEEK(960+J):POKEJ+704,U:NEXT 5052 POKEY2,198:POKEY1,220:POKEX2,100:POKEX1,140:POKECH,3:POKES2,11 5054 PRINT"[156]CONGRATULATIONS NEPHEW!!":PRINT"I KNEW YOU WERE CLEVER!!!" 5056 PRINT"THANKS FOR BRINGING ME BACK!!" 5058 PRINT"YOU ARE NOW A MYSTIC APPRENTICE.":PRINT"YOU WIN!!!":GOTO995 5085 PRINT"CANDLE WENT OUT!":TK$(21,1)="0":TK$(21,0)="HOT WAX":TC=0:RETURN 5090 IFMH>1THENIFMH=MBTHEN5096 5091 IFMB=11THENIFMH=RMTHEN5096 5092 IFMH=11THENIFMB=RMTHEN5096 5093 IFMB=-1THENIFMH=5THEN5096 5094 IFMH=11THENIFMB=-1THENIFRM=5THEN5096 5095 RETURN 5096 PRINT"THE MOTH JUST DIED!":POKECH,1:TK$(32,1)="0":MO=0:GOSUB6002 5097 RETURN 5100 RESTORE:POKE V,0:FOR C=54272 TO 54296:POKE C,0:NEXT 5110 X=0:POKE A1,X:POKE A2,X:POKE A3,X:X=240:POKE R1,X:POKE R2,X:POKE R3,X 5120 POKE V,15:FOR L=0 TO 40:X=17:POKE W1,X:POKE W2,X:POKE W3,X 5130 READ A,B,C,D,E,F,G:POKE H1,A:POKE 54272,B:POKE H2,C:POKE L2,D:POKE H3,E 5140 POKE L3,F:FOR T=1 TO (G*2):NEXT:NEXT 5150 X=0:POKE V,X:POKE H1,X:POKE H2,X:POKE H3,X:POKE L1,X:POKE L2,X:POKE L3,X 5160 RETURN 5200 IFTK$(2,1)<>"11"THEN5002 5202 IFTK$(32,1)<>"11"THEN5002 5204 IFTK$(15,1)<>"11"THEN5002 5206 IFTK$(44,1)<>"11"THEN5002 5208 IFTK$(23,1)<>"11"THEN5002 5212 IFTK$(24,1)<>"11"THEN5002 5214 IFTK$(21,1)<>"11"THEN5002 5216 W$="LIT":IFLEFT$(TK$(23,0),3)<>W$THEN5002 5218 IFLEFT$(TK$(21,0),3)<>W$THEN5002 5222 IFLEFT$(TK$(24,0),3)<>"POW"THEN5002 5225 GOTO5010 6000 FORT=1TO1000:NEXT:RETURN 6002 FORT=1TO3000:NEXT:RETURN 10000 Q$="":PRINT"WHAT WILL YOU DO?":GOSUB 43000:Q$=T$ 10010 ONRMGOSUB50001,51002,52001,53010,54002,55010,56002,57002,58002 10020 IFLEFT$(TK$(21,0),3)="LIT"THENIFVAL(TI$)>TC+1500THENGOSUB5085 10030 MB=VAL(TK$(12,1)):MH=VAL(TK$(32,1)):GOSUB5090 10040 R$=RIGHT$(Q$,4):I=0 10050 IFLEFT$(Q$,3)=LEFT$(V$(I),3)THEND=I+1:GOSUB4000:GOSUB10080:GOTO10000 10060 I=I+1:IF I<29 THEN 10050 10070 PRINT"I DON'T UNDERSTAND THAT COMMAND":GOTO10000 10080 IF PEEK(214)>20 THENPRINT"" 10082 PRINT"YOU SEE:":FORI=0TO46:IFVAL(TK$(I,1))=RMTHENPRINTTK$(I,0) 10085 IF PEEK(214)>18 THEN PRINT" AND MORE!":I=46 10090 NEXT 10100 IFMH>0THENIFMH<>11THENIFMH<>RMTHENPRINT"MOTH" 10110 RETURN 20000 OPEN 15,8,15,"I0" 20010 GOSUB 21000 20020 OPEN 2,8,2,"MYS.DAT,S,R" 20030 GOSUB 21000 20040 FOR I=0 TO 28 20050 INPUT#2,V$(I):NEXT 20060 GOSUB 21000 20070 FOR I=0 TO 15 20080 INPUT#2,G$(I,0),G$(I,1):NEXT 20090 GOSUB 21000 20100 FOR I=0 TO 30 20110 INPUT#2,LK$(I,0),LK$(I,1):NEXT 20120 GOSUB 21000 20130 FOR I=0 TO 46 20140 INPUT#2,TK$(I,0),TK$(I,1):NEXT 20150 GOSUB 21000 20160 FOR I=0 TO 15 20170 INPUT#2,OP$(I,0),OP$(I,1):NEXT 20180 GOSUB 21000 20190 FOR I=0 TO 11 20200 INPUT#2,TU$(I,0),TU$(I,1):NEXT 20210 GOSUB 21000 20220 FOR I=0 TO 9 20230 INPUT#2,RD$(I):NEXT 20240 GOSUB 21000 20250 FOR I=0 TO 8 20260 INPUT#2,EA$(I):NEXT 20270 GOSUB 21000 20280 FOR I=0 TO 9 20290 INPUT#2,LT$(I):NEXT 20300 GOSUB 21000 20310 FOR I=0 TO 5 20320 INPUT#2,CL$(I):NEXT 20330 GOSUB 21000 20340 CLOSE 2 20350 CLOSE 15 20360 LK$(1,0)=" "+LK$(1,0) 20370 LK$(10,0)=" "+LK$(10,0) 20380 LK$(24,0)=" "+LK$(24,0) 20390 LK$(28,0)=" "+LK$(28,0) 20400 TK$(0,0)=" "+TK$(0,0) 20410 TK$(4,0)=" "+TK$(4,0) 20420 CL$(0)=" "+CL$(0) 20430 G$(3,0)=" "+G$(3,0) 20440 G$(8,0)=" "+G$(8,0) 20450 G$(11,0)=" "+G$(11,0) 20460 G$(14,0)=" "+G$(14,0) 20999 RETURN 21000 INPUT#15,ER$,EM$,ET$,ES$ 21010 IF ER$<"20" THEN RETURN 21015 CLOSE 2:CLOSE 15:SYS 65511 21020 POKE 53269,0:POKE 53280,2 21030 POKE 53281,0 21040 PRINT"[147] DISK ERROR! 21050 L[178](40[171]([195](ER$)[170]10))[173]2 21060 [153]""[163]L)ER$", "EM$","ET$","ES$ 21070 [153]" TRY AWAITGAIN OR QWAITUIT TO UPTIME" 21080 [161] A$:[139] A$[179][177]"Q" [175] A$[179][177]"A" [167] 21080 21090 [139] A$[178]"A" [167] [138] 21100 [137] 999 30000 [153]"LOAD TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO" 30010 [153]"  (null)HE ATNPARTMENT OF (null)YSTERY! " 30012 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 30015 [153]" OPEN(C) 1987" 30020 [153]" BY (null)COTT LENALAMAR" 30025 [153][163]16)"ASC8 (null)UITS" 30030 [153]" (null)UBLISHED BY (null)IKING (null)ECHNOLOGIES, RIGHT$NC." 30050 [142] 40000 [139]RM[178]7[167][151]BP,1 40002 [151]CH,0:[139]RM[179][177]7[167][151]BP,0 40004 [151]Y1,183:[151]X1,0:[151]CH,1:[129]W[178]25[164]130[169].5:[151]X1,W:[130]W 40005 [129]G[178]185[164]155[169][171]1:[151]Y1,G:[130]G 40010 [139]MO[178]0[167][142] 40011 [151]CH,3 40012 A[178]25:[129]U[178]180[164]100[169][171]1:A[178]A[170]1:[151]Y2,U:[151]S2,11:[151]X2,A:[151]S2,14:[130] 40015 [129]A[178]A[164]115[169].25:U[178]U[170]1:[151]X2,A:[151]S2,11:[151]Y2,U:[151]S2,14:[130]A 40016 [129]L[178]1[164]30:[151]S2,11:U[178]U[170]1:[151]Y2,U:[151]S2,14:[151]Y2,U:[130]L 40018 [129]L[178]1[164]25:[151]S2,11:[129]T[178]1[164]25:[130]:[151]S2,14:[129]T[178]1[164]25:[130]T:[130]L 40020 [142] 40070 [139][197](TK$(32,1))[177][171]1[167]2105 40072 [153]"A HUGE MOTH FLIES OUT OF THE SUIT AND FOLLOWS YOU AROUND" 40073 TK$(32,1)[178]"6" 40075 [151]CH,3:[129]U[178]150[164]90[169][171].5:A[178]U[170]50:[151]Y2,U:[151]S2,14 40076 [151]X2,A:[151]S2,11:[130] 40078 [129]D[178]90[164]160:[151]Y2,D:[151]S2,14:[129]T[178]1[164]20:[130]T:[151]S2,11:[129]T[178]1[164]20 40079 [130]T:[130]D 40080 [139]MO[178]1[167][142] 40082 [129]U[178]160[164]120[169][171].5:A[178]A[170].5:[151]Y2,U:[151]S2,14:[151]X2,A:[151]S2,11:[130]U 40085 [151]S2,14:[142] 40100 [151]CH,3 40102 D[178]125:[129]A[178]180[164]160[169][171].5:D[178]D[170]1:[151]X2,A:[151]S2,14:[151]Y2,D:[151]S2,11:[130] 40110 [129]F[178]1[164]50:[151]S2,14:[129]T[178]1[164]15:[130]T:[151]S2,11:[129]T[178]1[164]15:[130]T:[130]F 40112 [142] 41000 N[178]160:[129]L[178]165[164]25[169][171]1:N[178]N[171]1:[151]Y1,L:[151]X1,N:[130]L:[142] 41005 [151]X1,200:[151]Y1,190:[129]X[178]0[164]15:[151]SC,X:[129]T[178]1[164]20:[130]T:[130]X:[151]SC,2 41006 [129]L[178]190[164]118[169][171].5:[151]Y1,L:[130]L:[151]SC,0 41007 [151]53287,1:[151]53285,7:[129]F[178]0[164]15:[151]53286,F:[129]T[178]1[164]20:[130]T:[130]F 41008 [153]"LOADTHE POWER OF THE MAGIC WHISKS YOU OUTSIDE!" 41009 [151]53286,13:[141]6000:[151]CH,0:[151]53285,4:[151]53286,10:[151]53287,0 41010 [142] 42000 [151]CH,1:[153]"LOAD":[129]G[178]1[164]3:[129]F[178]0[164]250:[151]Y1,F:[130]F:[130]G 42001 [129]F[178]0[164]200:[151]Y1,F:[130]F 42010 [151]CH,0:[153]""[166]19)"CLR  DEF  CLR " 42015 [153]"TOO DARK!!!":[153]"YOU FELL 20 STORIES TO YOUR DEATH!":[137]995 43000 T$[178]"":[153]">TO"; 43010 [161] A$:[139] A$[178]"" [167] 43010 43020 A%[178][198](A$) 43030 [139] A%[178]13 [167] [153]"CMD CMD":[141] 44000:[142] 43040 [139] A%[178]20 [175] T$[178]"" [167] 43010 43050 [139] A%[178]20 [167] T$[178][200](T$,[195](T$)[171]1):[153]"CMDCMD CMDCMDTO";:[137] 43010 43055 [139] [195](T$)[177]36 [167] 43010 43057 [139] A%[178]140 [167][153]"CMD ONONONONONON":[137]995 43060 [139] A%[178]32 [176] A%[178]46 [176] A%[178]45 [167] 43070 43062 [139] A%[177]47 [175] A%[179]58 [167] 43070 43065 [139] A%[179]65 [176] A%[177]90 [167] 43010 43070 [153]"CMD"A$"TO"; 43080 T$[178]T$[170]A$:[137] 43010 44000 [139] [200](T$,1)[178]" " [167] T$[178][201](T$,[195](T$)[171]1):[137] 44000 44010 [139] [201](T$,1)[178]" " [167] T$[178][200](T$,[195](T$)[171]1):[137] 44010 44020 [142] 50000 [151]CH,0:[151]A1,0:[151]SC,15 50001 [153]"LOADPRINT# "; 50002 [153]" WAIT(null) WAITSTEP" 50003 [153]"ONTHEN"[166]37)"THEN THEN"[166]22)"POSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS THEN" 50004 [153]"THEN FOR(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) SYSGETGETGETGETGETGETGETGETGETGETGET PRINT#THEN" 50005 [153]"THEN FOR(null) (null) SYSGETGETGETGETGETGETGETGETGETGETGET PRINT#THEN" 50006 [153]"THEN FOR(null) SWEET HOME FOR(null) SYSGETGETGETGETGETGETGETGETGETGETGET PRINT#THEN" 50007 [153]"THEN FOR(null) (null) SYSGETGETGETGETGETGETGETGETGETGETGET PRINT#THEN" 50008 [153]"THEN FOR(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) SYSGETGETGETGETGETGETGETGETGETGETGET PRINT#THEN" 50009 [153]"THEN (null) (null) SYSGETGETGETGETGETGETGETGETGETGETGET PRINT#THEN" 50010 [153]"THEN POKE WAIT STOP (null) WAIT PRINT# THEN" 50011 [153]"THEN POKE STOP POKE:WAIT VERIFYTHENFN GET STOP PEEK WAIT PRINT#THEN" 50012 [153]"THEN POKE STOP POKE:WAIT VERIFYTHENSPC(SPC(SPC(SPC(GET PRINT# WAIT PRINT#THEN" 50013 [153]"THEN VERIFY POKE VERIFY WAIT THENSPC(SPC(SPC(SPC(GET PRINT#THEN" 50014 [153]"THEN VERIFY ASCASCASCASCASCASCASC WAIT THENFN GET  WAIT  WAIT PRINT#THEN" 50015 [153]"THEN VERIFY (null)VERIFY (null) WAIT STEPSPC(SPC(SPC(SPC((null)WAIT  STOP(null)VERIFY WAIT POKE WAIT VERIFY STOP(null)VERIFY WAIT PRINT#THEN" 50016 [153]"THEN VERIFY ASCASCASCASCASCASCASC WAIT  POSPOSPOSPOS WAIT  STOP VERIFY WAIT PRINT#THEN" 50017 [153]"THEN VERIFY (null) (null) WAIT  WAIT  WAIT  WAIT PRINT#THEN" 50018 [153]"THEN VERIFY ASCASCASCASCASCASCASC WAIT  WAIT  WAIT  WAIT  WAITPRINT# THEN" 50019 [153]"THEN VERIFY WAIT (null) (null)  WAIT  WAITPRINT# THEN" 50020 [153]"DEF STOP" 50099 RM[178]1:[142] 51000 [151]CH,0:[151]A1,0:[151]SC,7:[151]SB,11 51002 [153]"LOADVERIFY FN THEN FN THEN FN THEN FN THEN FN THEN"; 51004 [153]" FN THEN FN THEN FN THEN FN THEN FN THEN"; 51006 [153]" FN -THEN FN -THEN FN -THEN FN -THEN FN -THEN"; 51008 [153]" FN THEN FN THEN FN THEN FN THEN FN THEN"; 51010 [153]" FN THEN FN THEN FN THEN FN THEN FN THEN"; 51012 [153]" TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB( " 51014 [153]"ON"[166]14)"FOR WAIT" 51016 [153]" WAIT FOR " 51018 [153]" WAIT FOR " 51020 [153]" PRINT#(null)(null) WAIT FORSTEP (null)" 51022 [153]" WAIT FORSTEP (null)" 51024 [153]" WAIT FORSTEP (null)" 51026 [153]" WAIT FOR WAIT POKE= (null) =" 51028 [153]" PRINT POKE WAITSTOP*POKE WAITSTOP*POKE :PRINT (null)(null)(null)(null)(null)(null)PRINT  PRINT "; 51030 [153]" WAIT(null) PRINT POKE WAITSTOP*POKE WAITSTOP*POKE :PRINT ++++++PRINT  PRINT "; 51032 [153]" PRINT POKEANDANDANDANDANDANDANDANDANDANDPRINT "; 51034 [153]" VERIFY POKE TOTOTOTOTOTOTOTO VERIFY "; 51036 [153]" VERIFY POKE FN THEN VERIFY TOTOTOTOTOTOTO TOTOTOTOTOTOTO "; 51038 [153]" VERIFY POKE FN USRUSRUSRUSR THEN VERIFY FN THEN FN THEN "; 51040 [153]" VERIFY POKE FN THEN VERIFY FN +LIST WAITPOKESGN"[166]10)"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"; 52017 [153]"(null)(null)(null)(null)POKE+LIST WAITPOKESGN"[166]10)"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) POKEFREFREFREFREFREFREFREFREFRE "; 52018 [153]"(null)LENLENLENLENLENLENLENLENRIGHT$(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"; 52020 [153]" POKE= (null) =  AND WAIT (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)POKE-  WAIT "; 52021 [153]" WAIT "; 52022 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)  WAIT  WAIT "; 52023 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)POKE(null) (null) WAITSTEP "; 52024 [153]"(null)LENLENLENLENRIGHT$ (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)  WAIT"[166]7)" WAIT "; 52025 [153]" "; 52026 [153]"WAIT  WAIT (null) WAITSTEP  "; 52028 [153]"WAIT  WAIT  WAIT  WAIT  WAIT "; 52029 [153]" WAIT  STOP" 52030 RM[178]3:[142] 53000 [151]CH,0:[151]A1,0:[151]SC,0:[151]SB,0 53010 [153]"LOAD PRINT#TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO" 53012 [153]" THEN(null) (null)WAITFN" 53014 [153]" THEN (null) (null) WAITFN" 53016 [153]" THEN (null) (null) WAITFN" 53018 [153]" THEN (null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND(null) WAITFN" 53020 [153]" THEN THENPOKE PRINT#FN WAITFN" 53022 [153]" THEN THENPOKE TOTOTOTOTOTOTOTO PRINT#FN WAITFN" 53024 [153]" THEN +POKE +VERIFY POKESGN PRINT#FN WAITSTEPFNWAITFN" 53026 [153]" THEN +POKE +VERIFY POKESGN PRINT#SGNTHENSINPRINT#FNWAITFN" 53028 [153]" THEN +POKE +VERIFY LOG--POKE-COS PRINT#SGNTHENSINPRINT#FNWAITFN" 53030 [153]" THEN +POKE +VERIFY POKESGN PRINT#SGNTHENSINPRINT#FNWAITFN" 53034 [153]" THEN +POKE +VERIFY WAITSYS(null)VERIFY POKESGN PRINT#SGNTHENSINPRINT#FNWAITFN" 53036 [153]" THEN +POKE +VERIFY POKESGN PRINT#SGNTHENSINPRINT#FNWAITFN" 53038 [153]" THEN +POKE +VERIFY SYS(null)VERIFY POKESGN PRINT#SGNTHENSTEP WAITFN" 53040 [153]" THEN +POKE +VERIFY POKESGN PRINT#SGN WAITFN" 53042 [153]" THEN +POKE +VERIFY POKESGN PRINT#SGN WAITFN" 53044 [153]" THEN +POKE +VERIFY POKESGN PRINT#SGN WAITFN" 53046 [153]" THEN +POKEANDANDSQRVERIFYPOSPOSPOSPOSPOSPOSPOSPOSPOKE(null)ANDANDANDPRINT#SGN WAITFN" 53048 [153]" THEN (null)SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(PRINT#(null) WAITFN" 53050 [153]" THEN (null)SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(PRINT#(null) WAITFN" 53052 [153]" THEN (null)SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(PRINT#(null) WAITFN" 53054 [153]" THEN(null)SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(PRINT#(null)WAITFN" 53055 RM[178]4:[142] 54000 [151]CH,0:[151]A1,0:[151]SC,14 54002 [153]"LOAD "; 54004 [153]" WAIT(null) WAITSTEP"; 54006 [153]" FN"[166]36)"THEN FN"[166]36)"THEN" 54015 [153]" FN"[166]11)"POSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS THEN" 54020 [153]" FN POKEANDANDANDANDANDANDANDANDAND VERIFYSINSINSINSINSINSINSINSINSTOP (null) VERIFYWAITSINSINSINSINSINSINSINSIN THEN" 54022 [153]" FNPOKETHENSYS YOU ARE WAITPOKEFNVERIFYSINSINSINSINSINSINSINSTOP * (null) VERIFYWAITSINSINSINSINSINSINSIN THEN" 54024 [153]" FNPOKETHENSYS NOT HEREWAITPOKEFNVERIFYSINSINSINSINSINSINSINSTOP (null) * VERIFYWAITSINSINSINSINSINSINSIN THEN" 54026 [153]" FN POKEUSRUSRUSRUSRUSRUSRUSRUSRUSR VERIFYSINSINSINSINSINSINSTOP * (null)* WAITVERIFYSINSINSINSINSINSIN THEN" 54028 [153]" FN VERIFYSINSINSINSINSINSTOPLENLENLENLENLEN(null)LENLENLENLENLENVERIFYWAITSINSINSINSINSIN STEP (null)" 54030 [153]" FN VERIFYSINSINSINSINSTOP * *(null) * VERIFYWAITSINSINSINSIN PRINTGET" 54032 [153]" FN STEP (null)WAIT VERIFYSINSINSINSTOP (null) WAITVERIFYSINSINSIN PRINTGET" 54034 [153]" FN POKE WAIT VERIFYSIN STOP (null) VERIFYWAITSINSINSIN PRINT GET" 54036 [153]" FN POKE WAIT VERIFYSIN WAITFREFREFREFREFREFREFREFREFREFREFREFREFREFREVERIFYSINSINVERIFY "; 54038 [153]"WAIT FN POKE WAIT  WAIT  WAIT VERIFY "; 54040 [153]"WAIT FNVERIFYSTEP FOR VERIFY WAIT POSPOS WAITPOSPOSPOS WAITPOS VERIFY WAIT"; 54042 [153]" FNVERIFYTOTOTOTOTOTOTOWAIT SYSSTEP (null)WAIT VERIFY WAIT"; 54044 [153]" FNVERIFY TOTOTOTO WAIT SYSTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(WAIT VERIFY WAIT"; 54046 [153]" FNVERIFYTHEN(null)(null)SYS(null)(null)VERIFYFN WAIT SYS WAIT VERIFY WAIT"; 54048 [153]" FNVERIFY+(null)(null)SYS(null)(null)VERIFYFN WAIT LISTSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(WAIT VERIFY WAIT"; 54050 [153]" FNVERIFY TAB(TAB(TAB(TAB( WAIT POKET"[166]16)"T VERIFY STOP" 54055 RM[178]5:[142] 55000 [151]CH,0:[151]SB,0:[151]SC,0:RM[178]6 55010 [153]"LOADPRINT#USRUSRUSRUSR?USRUSRUSR?USRUSRUSRUSR?USRUSRUSR?USRUSRUSR?USRUSRUSR?USRUSRUSRUSR?USRUSRUSR?USRUSRUSRUSRUSR" 55012 [153]"ON (null) (null) (null) (null) (null) (null) (null) (null) " 55014 [153]" (null)TAB(TAB(TAB(TAB((null)TAB(TAB(TAB(TAB((null)TAB(TAB(TAB((null)TAB(TAB(TAB((null)TAB(TAB(TAB((null)TAB(TAB(STEP (null) (null) (null)WAITPRINT#TAB(TAB(TAB((null)" 55015 [153]"PRINT# TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( (null)(null) WAITPRINT#TAB(TAB(TAB(TAB(" 55016 [153]" POKESTEP (null)WAIT"[166]9)" FN " 55017 [153]" POKEUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRWAIT"[166]9)" FN " 55018 [153]" POKE WAITSTEP (null) WAIT"[166]9)"(null) TANTANTANTAN (null)WAIT" 55019 [153]" POKE WAIT  WAIT"[166]10)" WAIT" 55020 [153]" POKE VERIFYUSRUSRWAITSYS(null)VERIFYUSRUSRUSRUSRWAITSYS(null)VERIFYUSRUSRPOKE WAIT"[166]10)" WAIT  " 55022 [153]" POKE "[166]9)" WAIT  " 55024 [153][166]25)" WAIT  " 55026 RM[178]6:[142] 56000 [151]SB,0:[151]SC,0:[151]CH,0:RM[178]7 56002 [153]"LOAD"[166]12)"POKE WAIT  WAIT" 56004 [153][166]12)"POKE WAIT  WAIT" 56006 [153][166]12)"POKE WAITTANTANTANTANTANTANTANTAN WAIT" 56008 [153][166]12)"POKE WAIT  WAIT" 56010 [153]"CLRPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSWAIT POKE WAIT  WAIT" 56012 [153]"VERIFY (null) WAITCLRSGNPOKE WAITTANTANTANTANTANTANTANTAN WAIT" 56014 [153]"VERIFY (null) WAITCLRSGNPOKE WAIT  WAIT" 56016 [153]"VERIFY (null) WAITCLRSGNPOKE WAIT  WAIT" 56018 [153]"VERIFY (null) WAITCLRSGNPOKE WAITTANTANTANTANTANTANTANTAN WAIT" 56020 [153]"VERIFYTANTANTANTANTAN(null)TANTANTANTANTANWAITCLRSGNPOKE WAIT  WAIT" 56022 [153]"VERIFY (null) WAITCLRSGNPOKE WAIT  WAIT" 56024 [153]"VERIFY (null) WAITCLRSGNPOKE WAITTANTANTANTANTANTANTANTAN WAIT" 56026 [153]"SYS (null) WAITCLRSGNPOKE WAIT  WAIT" 56028 [153]"SYS (null) WAITCLRSGNPOKE WAIT  WAIT" 56030 [153]"CLRPRINT# WAITCLRSGNPOKE WAITTANTANTANTANTANTANTANTAN WAITFORABS WAITGETPOKE" 56032 [153][166]12)"POKE WAIT  WAIT FOR POKE" 56038 [153]" " 56040 [153]" WAIT(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) WAIT(null)(null)(null)(null)(null)(null)(null)(null) WAIT(null)(null)(null) " 56042 [153]" WAIT(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) WAIT(null)(null)(null)(null)(null)(null)(null)(null) WAIT(null)(null)(null) " 56044 [153]" WAIT(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) WAIT(null)(null)(null)(null)(null)(null)(null)(null) WAIT(null)(null)(null) " 56046 [153]" WAIT(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) WAIT(null)(null)(null)(null)(null)(null)(null)(null) WAIT(null)(null)(null) " 56050 [153]" " 56099 [142] 57000 [151]SC,0:[151]SB,0:[151]CH,0:RM[178]8 57002 [153]"LOAD"[166]20)"* LIST* PRINT#*":[153]"CONT* DEF*" 57003 [153][166]14)"SYS*"[166]15)"POKE*":[153]" PRINT*"[166]21)"POKE*":[153] 57004 [153][166]8)"*"[166]23)"SYS*":[153]"SYS*"[166]19)"LIST*"[166]10)"PRINT#*":[153][166]29)"CONT* 57005 PRINTSPC(15)"[155]*"SPC(18)"[158]*":PRINT:PRINT" *"SPC(21)"[155]* [152]*" 57006 PRINTSPC(6)"[151][206][206][206][206][206][206]":PRINTSPC(9)"[161]"SPC(14)"[158]* [154]*" 57007 PRINT" * [151][161] *" 57008 PRINTSPC(8)"[149][164][151][161][149][164][164][164] [155]*":PRINTSPC(7)"[149][206] [206][180]"SPC(10)"[158][169][223]" 57009 PRINTSPC(7)"[129][221][221][221][221][221][146] [149][180]"SPC(9)"[158][169] [223]" 57010 PRINTSPC(7)"[129][219][219][219][219][219][146] [149][180]"SPC(8)"[158][169] [223]" 57012 PRINTSPC(7)"[129][219][219][219][219][219][146] [149][180]"SPC(7)"[158][169] [223]" 57013 PRINTSPC(7)"[129][219][219][219][219][219][146] [149][180]"SPC(6)"[158][169] [223]" 57014 PRINTSPC(7)"[129][221][221][221][221][221][146] [149][180]"SPC(5)"[158][169] [223]" 57015 PRINT"[152] ":POKEBP,3:RETURN 58000 POKESC,0:POKESB,0:POKECH,0:RM=9 58002 PRINT"[147]"SPC(15)"[149] [151] [149] " 58004 FORT=1TO17:PRINTSPC(15)"[149] [151] [149] ":NEXT 58005 PRINTSPC(13)"[149] [151] [149] ":PRINTSPC(12)"[149] [151] [149] " 58006 PRINTSPC(11)"[149] [151] [149] ":PRINTSPC(10)"[149] [151] [149] " 58007 POKEY1,150:POKEX1,145:POKECH,3:POKE53275,0 58008 IFEA>OTHENPRINT"[158]YOU'RE STUCK!!!":GOTO58010 58009 RETURN 58010 PRINT"YOU SHOULDN'T HAVE EATEN SO MUCH!":PRINT"YOU HAVE TWO CHOICES:" 58012 PRINT"YOU MAY WAIT HERE UNTIL YOU BURN OFF" 58013 PRINT"THE FAT (10 MINS EA. ITEM CONSUMED)" 58014 PRINT"OR ADMIT DEFEAT AND START THE GAME AGAIN" 58015 PRINT"[153]PRESS W[146] FOR WAIT AND Q[146] TO END" 58016 GETW$:IFW$=""THEN58016 58017 IFW$<>"W"THENIFW$<>"Q"THEN58016 58018 IFW$="Q"THENRUN 58020 PRINT"[147]YOU ARE STUCK IN THE CHIMNEY" 58022 TW=VAL(TI$)+(1000*EA) 58024 IFVAL(TI$)>=TWTHEN58030 58026 PRINT""LEFT$(TI$,2)" HRS.,"MID$(TI$,3,2)" MINS., & "RIGHT$(TI$,2)" SECS." 58028 GOTO58024 58030 PRINT"[147][149]YOU'RE FREE SKINNY!":EA=0:GOSUB6002:GOTO58000 59901 DATA225,143,112,199,56,99,25,200,243,100,121,50,60,50 59902 DATA225,143,112,199,56,99,150,0,0,0,0,0,0,75 59904 DATA200,243,100,121,50,60,25,179,6,89,131,44,193,25 59906 DATA168,250,84,125,42,62,25,150,139,75,69,37,162,25 59908 DATA142,24,71,12,35,134,100,150,139,75,69,37,162,200,0,0,0,0,0,0,100 59910 DATA112,199,56,99,28,49,25,100,121,50,60,26,156,50 59912 DATA112,199,56,99,28,49,150,0,0,0,0,0,0,25 59914 DATA84,125,42,62,21,31,50,89,131,44,193,22,96,50 59916 DATA71,12,35,134,17,195,50 59918 DATA75,69,37,162,18,209,150,0,0,0,0,0,0,250 59920 DATA56,99,28,49,14,24,25,50,60,25,30,12,143,50 59922 DATA56,99,28,49,14,24,150,0,0,0,0,0,0,75 59924 DATA50,60,25,30,12,143,25,44,193,22,96,11,48,25 59926 DATA42,62,21,31,10,143,25,37,162,18,209,9,104,25 59928 DATA35,134,17,195,8,225,100,37,162,18,209,9,104,200,0,0,0,0,0,0,100 59930 DATA0,0,18,209,9,104,100,17,195,18,209,9,104,100 59932 DATA21,31,18,209,9,104,100,25,30,18,209,9,104,100 59934 DATA29,223,25,30,9,104,100,29,223,35,134,9,104,100 59936 DATA29,223,35,134,42,62,600 59938 DATA25,30,28,49,37,162,200,0,0,21,31,0,0,200 59940 DATA9,104,18,209,23,181,1000 61002 DATA0,5,80,0,21,4,0,85,1,1,85,64,21,85,80,11 61004 DATA255,128,11,187,128,15,239,192,3,171,0,1,253,0,5,117 61006 DATA64,21,85,80,21,85,80,21,85,80,21,221,80,5,85,64 61008 DATA5,85,64,5,85,64,5,85,64,5,85,64,22,154,80 61121 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 61123 DATA0,0,4,0,16,1,0,64,0,125,0,0,60,0,0,60 61125 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 61127 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 61129 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 61131 DATA0,0,0,0,0,0,0,0,0,125,0,1,60,64,4,60 61133 DATA16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 61135 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 61300 DATA 10,168,0,47,248,0,46,232,0,47,248,0,46,184,0,41 61310 DATA 96,0,10,160,0,7,208,0,21,85,0,85,85,64,85,85 61320 DATA 127,221,85,124,253,84,0,245,84,0,21,84,0,21,84,0 61330 DATA 21,84,0,21,84,0,21,84,0,21,85,0,10,40,0