home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
Uptime_The_Disk_Monthly_V1_05_19xx_Uptime_staff_Side_B.d64
/
mystery.exe
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
34KB
|
905 lines
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 <then fn <then ";
51042 [153]" verify poke fn then verify fn then fn then ";
51044 [153]"stopspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(verify poke tab(tab(tab(tab(tab(tab(tab(tab( verify tab(tab(tab(tab(tab(tab(tab( tab(tab(tab(tab(tab(tab(tab( "
51050 rm[178]2:[142]
52000 [151]ch,0:[151]a1,0:[151]sc,3
52001 [153]"loadprint# ";
52002 [153]" wait(NULL) waitstep";
52010 [153]"print# fn"[166]36)"then fn"[166]36)"then"
52012 [153]"poke pospospospospospospospospos"[166]11)"pospospospospospospospospospospospospospospospospospospos+list waitpokesgn"[166]10);
52013 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)poke+list pokewaitsgn"[166]10)"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)";
52014 [153]"poke+list pokewaitsgn (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)";
52015 [153]"poke+list waitpokesgn"[166]10)"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)poke(NULL)+list waitpokesgn";
52016 [153][166]10)"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)poke>+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