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 >
Commodore BASIC  |  2023-02-26  |  34KB  |  905 lines
  1. 0 rem by scott calamar/calasoft/published 1987 by viking technologies,inc.
  2. 2 restore:poke53276,3:ch=53269:pokech,0:sb=53280:sc=53281:bp=53275:pokebp,0
  3. 3 gosub100:s1=2040:x1=53248:y1=53249:s2=2041:y2=53251:x2=53250
  4. 4 forj=0to62:readx:pokej+832,x:nextj:pokes1,13:poke53285,4:poke53286,10
  5. 5 poke53287,0:poke53288,0:poke53277,1:poke53271,1
  6. 7 gosub 20000
  7. 9 form=0to62:readx:pokem+896,x:next
  8. 10 form=0to62:readx:pokem+704,x:next:ic=0
  9. 12 form=0to62:readx:pokem+960,x:next
  10. 20 poke 198,0
  11. 25 print"[158]     press spacebar to turn the key"
  12. 28 geta$:ifa$<>" " then28
  13. 30 pokesc,0:ti$="000000"
  14. 32 print"[147][154]you are in a dark apartment.":print"what will you do?"
  15. 33 gosub 43000:q$=t$:ifleft$(q$,4)<>"turn"thenifleft$(q$,4)<>"help"then 32
  16. 34 ifright$(q$,4)="ight"then42
  17. 35 ifright$(q$,4)="ghts"then42
  18. 36 ifleft$(q$,4)<>"help"then42
  19. 37 print"[147][156]what? already??":print"[154]try turning on the lights!!!"
  20. 39 gosub6002
  21. 40 goto32
  22. 42 gosub53000:poke53277,1:poke53271,1:pokey1,140:pokex1,150:pokech,1
  23. 43 d=140:fore=159to120step-.5:pokex1,e:d=d+.5:pokey1,d:nexte
  24. 45 print"    you are in the entry hall.":goto10000
  25. 100 dimv$(29),g$(16,1),lk$(31,1),tk$(47,1),op$(16,1),tu$(12,1),rd$(10),ea$(9)
  26. 101 dimlt$(10),cl$(6)
  27. 105 a1=54277:r1=54278:w1=54276:h1=54273:l1=54272:v=54296:a2=54284:r2=54285
  28. 106 w2=54283:h2=54280:l2=54279:a3=54291:r3=54292:w3=54290:h3=54287:l3=54286
  29. 107 print"[147]"chr$(142);
  30. 108 poke sb,11:poke sc,0
  31. 110 gosub 30000:gosub 5100
  32. 130 print"[147]"chr$(142):ford=1to3:printtab(14)"[149]          [146]":nextd
  33. 132 printtab(14)"   21-d   "
  34. 134 ford=1to3:printtab(14)"          [146]":nextd
  35. 135 printtab(14)"        [209] ":printtab(14)"          "
  36. 136 printtab(14)"       [146][153][171][149][215] "
  37. 137 ford=1to5:printtab(14)"          [146]":nextd
  38. 140 printtab(13)"[158][169]         [146][169]":printtab(13)"[157][169] welcome [146][169]"
  39. 141 printtab(11)"[169]         [146][169]"
  40. 150 print"[153]the key jumps from your hand to the lock"
  41. 155 a$="":return
  42. 995 gosub5100:printtab(14)"[150] the end!! ":poke 198,0
  43. 996 print"  would you like to play again? (y/n)";
  44. 997 x$="":getx$:ifx$<>"y"thenifx$<>"n"then997
  45. 998 ifx$="y"then run
  46. 999 load"0:upt.reboot",8
  47. 1000 fork=0to15:ifright$(q$,5)=right$(g$(k,0),5)then j=k:k=15:next:k=j:goto 1002
  48. 1001 next:goto2105
  49. 1002 gm=val(g$(k,1)):ifgm<>rmthenifgm<>10then1299
  50. 1003 ifk>-1thenifk<5thenonk+1gosub50000,51000,52000,53000,54000
  51. 1004 ifk>-1thenifk<5thengosub40000:goto1007
  52. 1005 ifk>4thenonk-4goto1060,1019,1016,1085,1024,1032,1034,1036,1040,1045,1070
  53. 1007 print"you are ";:onrmgoto1008,1009,1010,1011,1012,1013,1014
  54. 1008 print"in the living room":return
  55. 1009 print"in the kitchen":return
  56. 1010 print"in the bathroom":return
  57. 1011 print"in the hall":return
  58. 1012 print"in the bedroom":return
  59. 1013 print"in a closet with a large":print"fireplace":return
  60. 1014 print"on the fire escape":return
  61. 1016 print"you dream you are king of the universe
  62. 1017 [153]"you are assassinated and wake up!":[142]
  63. 1019 [139]rm[179][177]1[167][153]"not from here":[142]
  64. 1020 [139]tk$(21,1)[178]"11"[167][139][200](tk$(21,0),3)[178]"lit"[167][141]56000:[137]1022
  65. 1021 [151]sc,0:[137]42000
  66. 1022 [141]40000:[137]1007
  67. 1024 [153]"stuffy in here...":[142]
  68. 1032 [153]"you don't fit. try opening it":[142]
  69. 1034 [153]"the chain lock is on":[142]
  70. 1036 [139]rm[179][177]6[167][139]rm[179][177]9[167]1299
  71. 1037 [141]55000:[151]x1,76:[151]y1,176:[151]bp,1:[151]ch,3
  72. 1038 [153]"there is a tall, dark chimney above":[142]
  73. 1040 [139][200](tk$(21,0),3)[179][177]"lit"[167]1099
  74. 1041 [139]tk$(21,1)[179][177]"11"[167]1099
  75. 1042 [141]58000:[153]"you see stars above you!"          
  76. 1043 [153]"this must be a top floor apartment":[142]
  77. 1045 [139]rm[179][177]9[167][139]rm[179][177]7[167][153]"no access":[142]
  78. 1046 [139][200](tk$(21,0),3)[179][177]"lit"[167]1099
  79. 1047 [139]tk$(21,1)[179][177]"11"[167]1099
  80. 1048 [139][197](tk$(37,1))[179][177]11[167]1054
  81. 1049 [153]"you toss the rope up and it hooks over     the chimney":[141]6000
  82. 1050 u[178][194](y1)[171].5:[139]u[179]1[167][141]57000:[137]1052
  83. 1051 [151]y1,u:[137]1050
  84. 1052 [153]"you are on the roof!":[151]x1,140:[151]y1,180:[151]ch,3:[142]
  85. 1054 [139]rm[178]9[167][153]"walls are too slippery to climb now":[142]
  86. 1056 [153]"crack. uh-oh, the ladder is too weak!!! it brokewait":[141]6000
  87. 1057 [137]42000
  88. 1060 [139]tk$(0,1)[179][177]"11"[167][153]"it's locked":[137]10000
  89. 1061 [139][200](tk$(21,0),3)[179][177]"lit"[167]1099
  90. 1062 [139]tk$(21,1)[179][177]"11"[167]1099
  91. 1063 [141]55000:[141]40000:[137]1007
  92. 1064 [142]
  93. 1070 [151]x1,190:[153]"it feels very strange!!!":[141]6002:[151]bp,3
  94. 1072 [129]l[178]1[164]35
  95. 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(";
  96. 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(";
  97. 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(";
  98. 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(";
  99. 1078 [130]l:[151]ch,0:[141]55000:[151]ch,1:[151]bp,0:tk$(24,0)[178]"power of pyramid"
  100. 1080 [153]"you're imbued with the power of magic!":py[178]1:tk$(24,1)[178]"11":[142]
  101. 1085 [139]ck[178]1[167][151]sc,7:[151]sb,2:[153]"arrrgh. it's too hot":[151]ch,0:[137]995
  102. 1086 [139][200](tk$(21,0),3)[179][177]"lit"[167]1099
  103. 1087 [139]tk$(21,1)[179][177]"11"[167]1099
  104. 1088 [151]sc,0:[151]sb,0:[153]"load":[129]p[178]0[164]5:[153][166]13)"pokespc(spc(spc(spc(spc(spc("
  105. 1089 [130]p:[153]"this oven's very small. can only stay   here for a second"
  106. 1090 hp$[178]"19":[153]"you find:":[141]4116
  107. 1091 q$[178]"":[153]"what will you do?":[141] 43000:q$[178]t$
  108. 1092 [139][200](q$,3)[178]"tak"[167][139][201](q$,4)[178]"foot"[167][139]tk$(44,1)[178]"19"[167]1096
  109. 1093 [139][200](q$,3)[178]"get"[167][139][201](q$,4)[178]"foot"[167][139]tk$(44,1)[178]"19"[167]1096
  110. 1094 [151]sc,7:[141]51000:[151]ch,1
  111. 1095 [153]"can't do that in here!":[142]
  112. 1096 tk$(44,1)[178]"11":ic[178]ic[170]1
  113. 1097 [151]sc,7:[141]51000:[151]ch,1:[153]"you have rabbit's foot":[142]
  114. 1099 [153]"it's too dark!":[142]
  115. 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
  116. 1101 [130]:[153]"i see nothing special":[142]
  117. 1102 [139]lr[179][177]rm[167][139]lr[179][177]10[167][139]lr[179][177]11[167]1299
  118. 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
  119. 1104 [139]i[177]8[167][139]i[179]17[167][145]i[171]8[137]1119,1180,1165,1120,1183,1124,1150,1150
  120. 1105 [139]i[177]16[167][139]i[179]23[167][145]i[171]16[137]1129,1132,1134,1134,1140,1150
  121. 1106 [139]i[177]22[167][145]i[171]22[137]1144,1144,1146,1148,1234,1107,1152,1320
  122. 1107 [139]pl[178]0[167][153]"just a mound of damp soil inside pot":[142]
  123. 1108 [153]"there is a colorful mushroom growing":[142]
  124. 1109 [153]"the cushion is loose":tk$(1,1)[178]"1":[142]
  125. 1111 [139]rm[179][177]1[167][139]rm[179][177]5[167]1299
  126. 1112 [139]rm[178]1[167]1150
  127. 1113 [153]"it's sealed shut":[142]
  128. 1115 [139]tk$(0,1)[179][177]"11"[167][153]"it's locked!":[142]
  129. 1116 [153]"it's a walk-in closet":[142]
  130. 1119 [153]"it seems crooked":[142]
  131. 1120 [153]"you find $50":[142]
  132. 1124 [153]"why not read them?":[142]
  133. 1129 [139]ck[178]1[167]1150
  134. 1130 [153]"it's not lit.":[142]
  135. 1132 [139]rm[179][177]2[167][139]rm[179][177]3[167]1299
  136. 1133 [153]"the drain is clogged":[142]
  137. 1134 [139]rm[179][177]2[167][139]rm[179][177]3[167]1299
  138. 1135 [137]1150
  139. 1140 [153]"what a nice toilet!":[142]
  140. 1144 [153]"you see a shower curtain":[142]
  141. 1146 [153]"bleh! nice face!":[153]"onhey -- this cabinet opens":[142]
  142. 1148 [153]"what a lumpy pillow":i[178]19:hp$[178]"-1":[141]4110:[142]
  143. 1150 [153]"seems to open...":[142]
  144. 1152 [139]rm[179][177]1[167][139]rm[179][177]4[167][153]"it's dusty but ordinary":[142]
  145. 1154 [153]"it's covered with a rug":[142]
  146. 1160 [139][201](q$,5)[178]"cture"[167][153]"it seems to be crooked":[142]
  147. 1161 [139][201](q$,5)[178]"iture"[167][153]"the drawers seem to open":[142]
  148. 1165 [141]1150:[129]i[178]16[164]17:hp$[178]"17":[141]4110:[130]
  149. 1166 [129]i[178]40[164]41:[141]4110:[130]
  150. 1167 [142]
  151. 1180 [153]"under the bed you find dust balls the   size of tumbleweeds,"
  152. 1181 i[178]12:hp$[178]"-1":[141]4110
  153. 1182 i[178]20:[137]4110
  154. 1183 [153]"you find cookie crumbs":[142]
  155. 1185 [139]rm[179][177]1[167][139]rm[179][177]4[167]1299
  156. 1186 [153]"there's a bump under the rug":[142]
  157. 1192 [153]"it's off. turn it on and watch":[142]
  158. 1194 [139][197](tk$(i,1))[179][177][171]1[167][139][197](tk$(i,1))[179][177]18[167][153]"":[137]1296
  159. 1195 [137]1248
  160. 1199 [153]"you see nothing special":[142]
  161. 1200 [129]i[178]0[164]46:z[178][197](tk$(i,1)):rk$[178][201](tk$(i,0),4)
  162. 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
  163. 1202 [139]ic[177]7[167][153]"carrying too much!":[142]
  164. 1203 [139]r$[178]rk$[167][137]1205
  165. 1204 [130]:[153]"won't budge!":[142]
  166. 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
  167. 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
  168. 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
  169. 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
  170. 1209 [139]i[177]35[167][145]i[171]35[137]1286,1194,0000,3400,1225,1225,1210,1245,1222,1222,1222
  171. 1212 di[178]1:[153]"they glow":[137]1296
  172. 1213 [153]"it's dull":[137]1296
  173. 1218 [153]"achoo!":[142]
  174. 1222 [153]"okay":[137]1296
  175. 1225 [153]"why not read it?":[137]1296
  176. 1230 [139][197](tk$(19,1))[179][177][171]1[167][153]"":[137]1296
  177. 1231 [153]"you find a pamphlet!":tk$(19,1)[178]"5":[137]1296
  178. 1234 [153]"it says you've been here for":[153]"on"[200](ti$,2)" hrs., ";
  179. 1235 [153][202](ti$,3,2) " mins. and "[201](ti$,2)" secs.":[137]1296
  180. 1236 [153]"wonder what it would smell like lit?":[137]1296
  181. 1240 [153]"plant seeds?":se[178]1:[137]1296
  182. 1243 [139]ck[178]0[167][153]"try cooking":[137]1296
  183. 1245 [153]"o.k. try eating?":[137]1296
  184. 1247 [139]tk$(30,1)[179][177]"18"[167][153]"o.k.":[137]1296
  185. 1248 [153]"soap and rope are attached":tk$(30,0)[178]"soap-on-a-rope"
  186. 1249 sr[178]1:[137]1296
  187. 1250 [153]"ok.":[137]1296
  188. 1253 [153]"thanks nephew!":mo[178]1:tk$(32,1)[178]"11":[137]40100
  189. 1255 [139][197](tk$(12,1))[178]11[167][153]"you can't":[142]
  190. 1256 [137]40070
  191. 1257 [153]"that felt great but your clothes are wet":[142]
  192. 1259 [139][197](tk$(0,1))[177]0[167][141]1199:[137]1296
  193. 1260 i[178]0:hp$[178]"-1":[153]"":[137]4110
  194. 1262 [139]rm[179][177]1[167][139]rm[179][177]5[167]1299
  195. 1263 [153]"writing on the wall says look in closet":[142]
  196. 1264 [139]rm[179][177]1[167][139]rm[179][177]4[167]1299
  197. 1265 [139]rm[178]4[167]i[178]7:hp$[178]"-1":[153]"":[137]4110
  198. 1266 [153]"you find dust":i[178]2:hp$[178]"-1":[137]4100
  199. 1269 [139]sd[178]0[167][153]"not yet!":[142]
  200. 1270 [153]"it's sealed!":[137]1296
  201. 1271 [153]"they seem slightly damp.":[137]1296
  202. 1274 [153]"titled 'answers to questions of the     universe'.":[137]1296
  203. 1276 [153]"it's much too heavy and powerful!":[142]
  204. 1283 [153]"smells strong!!":[137]1296
  205. 1285 [153]"it is very powerful!!":[141]1296:[141]41005:rm[178]7:[137]1020
  206. 1286 [139]tk$(36,1)[178]"2"[167][153]"":[137]1296
  207. 1287 [139]pl[178]0[167]1299
  208. 1288 [139]tk$(31,1)[178]"11"[167][153]"maybe if you cut it...":[142]
  209. 1289 [139]tk$(31,1)[179][177]"11"[167][139]mu[178]0[167][153]"stem is tough -- won't break!":[142]
  210. 1290 [139][201](q$,5)[178]"iture"[167][153]"you can't but drawers open":[142]
  211. 1291 [139]rm[178]4[167][153]"you find a safe!":[142]
  212. 1292 [139]rm[179][177]1[167][139]rm[179][177]5[167]1299
  213. 1293 [153]"the wall says there is a closet here!":[142]
  214. 1294 [153]"it's short but lightable."
  215. 1296 tk$(i,1)[178]"11":ic[178]ic[170]1:[142]
  216. 1297 [153]"it's stuck!":[142]
  217. 1298 [153]"you have!":[142]
  218. 1299 [153]"not here":[142]
  219. 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
  220. 1302 [130]:[137]2105
  221. 1304 [139]z[179][177]rm[167][139]z[179][177]10[167][139]z[179][177]11[167]1299
  222. 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
  223. 1306 [139]i[177]8[167][145]i[171]8[137]0000,1370,1370,1320,1322,1325,1350
  224. 1320 [153]"it won't open. you can't leave!":[142]
  225. 1322 hp$[178]"12":[137]4115
  226. 1325 [139]tk$(8,1)[179][177]"11"[167]1999
  227. 1326 [153]"uncle leaves you everything":[153]"if the will is unopened":[142]
  228. 1330 [139]rm[179][177]1[167][139]rm[179][177]5[167][137]1299
  229. 1331 [139]rm[178]1[167]hp$[178]"14":[137]4115
  230. 1332 hp$[178]"15":[137]4115
  231. 1337 [139]rm[178]1[167][153]"you see a fire escape.":[142]
  232. 1338 [139]rm[178]5[167][153]"it's sealed shut":[142]
  233. 1339 [153]"no window here":[142]
  234. 1340 [139]tk$(0,1)[179][177]"11"[167][153]"you don't have a key.":[142]
  235. 1342 [153]"it's a dark walk-in closet":[142]
  236. 1345 [139]rm[179][177]2[167][139]rm[179][177]3[167]1299
  237. 1346 [139]rm[178]2[167]hp$[178]"13":[137]4115
  238. 1347 hp$[178]"16":[137]4115
  239. 1350 [139]sd[178]0[167][153]"it's locked! need combination!":[142]
  240. 1351 i[178]8:hp$[178]"-1":[137]4110
  241. 1358 [139]tk$(0,1)[178]"11"[167][153]"it's a dark walk-in closet":[142]
  242. 1359 [137]2105
  243. 1360 hp$[178]"17":[137]4115
  244. 1365 [139]ck[178]0[167][153]"maybe you should light it":[142]
  245. 1366 [139]ck[178]1[167][153]"too hot!":[142]
  246. 1370 [153]"need a shower?":[153]"you find:"
  247. 1371 hp$[178]"18":[137]4116
  248. 1400 [139][201](q$,4)[178]"t.v."[167]1410
  249. 1401 [129]i[178]0[164]11:[139]r$[178]tu$(i,0)[167]1404
  250. 1402 [130]:[139][202](q$,6,3)[178]"off"[167][153]"ok.":[142]
  251. 1403 [137]2105
  252. 1404 tu[178][197](tu$(i,1)):[139]tu[179][177]rm[167][139]tu[179][177]10[167]1299
  253. 1405 [145]i[170]1[137]1450,1450,1410,1410,1412,1414,1414,1418,1420,1412,1430,1420
  254. 1410 [153]"it comes alive with a commercial. watch for awhile?":[142]
  255. 1412 [153]"okay. give it a listen":[142]
  256. 1414 [139]rm[179][177]2[167][139]rm[179][177]3[167]1299
  257. 1415 [153]"drip, drip, drip":[142]
  258. 1418 [153]"step in and take a shower?":[142]
  259. 1420 [139]ck[178]1[167][139][202](q$,6,3)[178]"off"[167]ck[178]0:[153]"no flame now!":[142]
  260. 1421 [139]ck[178]1[167][139][202](q$,6,2)[178]"on"[167][153]"it's lit!":[142]
  261. 1422 [139]ck[178]0[167][139][202](q$,6,2)[178]"on"[167][139]tk$(33,1)[178]"11"[167]2409
  262. 1423 [153]"can't":[142]
  263. 1430 [153]"loadwhat's the combo? (?r-?l)?":[141] 43000
  264. 1432 [139]t$[179][177]"4r-3l"[167][153]"loadnope! that's not it!":[142]
  265. 1433 [153]"loadthe safe clicks...the hinges squeek...":sd[178]1:tk$(8,1)[178]"4":[142]
  266. 1445 [137]2105
  267. 1450 [139][202](q$,6,3)[178]"off"[167][151]sc,0:[142]
  268. 1451 [137] 1458
  269. 1452 x[178]15:[142]
  270. 1453 x[178]7:[142]
  271. 1454 x[178]3:[142]
  272. 1455 x[178]0:[142]
  273. 1456 x[178]14:[142]
  274. 1458 [145]rm[141]1452,1453,1454,1455,1456,1455,1455,1455,1455:[151]sc,x:[142]
  275. 1500 [153]"cleanliness in next to godliness":[142]
  276. 1600 [139]rm[179][177]2[167]1299
  277. 1601 [139]ck[178]0[167][153]"did you light burner?":[142]
  278. 1602 [139][201](q$,6)[178]"shroom"[167]1610
  279. 1603 [139]r$[178]"foot"[167]1615
  280. 1605 [139]ck[178]0[167][153]"did you light burner?":[142]
  281. 1606 [139]ck[178]1[167][153]"ooops. it burnt.":[142]
  282. 1610 [153]"you pop it in the oven and it bakes.    it smells good":cm[178]1
  283. 1611 pl[178]0:tk$(36,0)[178]"cooked mushroom":tk$(36,1)[178]"2":[142]
  284. 1615 [153]"smells kind of furry":tk$(44,0)[178]"roast rabbit":tk$(44,1)[178]"2"
  285. 1616 [142]
  286. 1700 [139]r$[179][177]"dice"[167]2105
  287. 1701 [139]tk$(2,1)[179][177]"11"[167]1999
  288. 1702 [153]"they add up to seven: 3 on the left and 4 on the right":[142]
  289. 1800 [139]r$[178]"ncle"[167]1815
  290. 1801 [139]r$[178]"moth"[167]1815
  291. 1803 [139]r$[178]"pell"[167][153]"well, say the spell!":[142]
  292. 1804 [139]r$[178]"agic"[167][153]"go ahead, say it!":[142]
  293. 1805 [139][202](q$,5,4)[178]"lepi"[167][139][201](q$,4)[178]"uman"[167]5000
  294. 1810 [153]""[202](q$,5,20):[142]
  295. 1815 [153]"nephew?":[142]
  296. 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
  297. 1901 [130]i:[137]2105
  298. 1902 [139]i[177][171]1[167][145]i[170]1[137]1904,1906,1940,1920,1910,1913,1916,1909,1927,1944
  299. 1904 [153]"it says: we are attracted to life like  moths to a light":[142]
  300. 1906 [151]53281,15:[153]"fungi can often be preventative medicine"
  301. 1907 [153]"many species are poisonous if not cooked"
  302. 1908 [141]6002:[137]1458
  303. 1909 [153]"you can see it.":[142]
  304. 1910 [153]"a strange dictionary. three words glow:"
  305. 1911 [153]"onhumanwait, lepidopterawait, and turnwait":[142]
  306. 1913 [151]ch,0:[151]sc,1:[153]"loaddear nephew":[153]"    thank you for coming"
  307. 1914 [153]"    make yourself at home.":[137]1925
  308. 1916 [153]"it says 'do not open'":[142]
  309. 1920 [153]"a page is dog-eared.":[141]6000:[151]ch,0:[151]sc,1
  310. 1921 [153]"loadstop"[166]10)"energy transference":[153]"if essence of spirit ";
  311. 1922 [153]"has been captured  than transferrence can be attempted."
  312. 1923 [153]"prepare the altar. light incense.":[153]"say the magic words"
  313. 1925 [141]6000:[151]ch,1:[137]1458
  314. 1927 [137]1234
  315. 1940 [153]"a bookmark marks this verse:":[153]"'life is like a";
  316. 1941 [153]" piece of cloth and i am  but a hungry moth'":[142]
  317. 1944 [153]"'a relation will bug you.":[153]"ondon't say uncle!'":[142]
  318. 1999 [153]"don't have it!":[142]
  319. 2000 i[178]0
  320. 2001 [139]r$[178]ea$(i)[167]4125
  321. 2002 [139] i[179]9 [167] i[178]i[170]1:[137] 2001
  322. 2003 [153]"bleh! you feel sick.":[142]
  323. 2004 [145]i[170]1[137]2005,2015,2007,2030,2010,2012,2020,2032,2035
  324. 2005 [153]"mmm. your favorite flavor"
  325. 2006 ea[178]ea[170]1:[142]
  326. 2007 [139]ck[178]0[167][153]"cook it first?":[142]
  327. 2009 [153]"not very filling":tk$(9,1)[178]"-1":[137]2006
  328. 2010 [153]"crunch, crunch crunch.":[137]2006
  329. 2012 [153]"that feels better.":[142]
  330. 2015 [153]"it's kind of stale. you're left with a  fortune and crumbs."
  331. 2016 tk$(14,0)[178]"crumbs & fortune":[137]2006
  332. 2020 [139]cm[178]1[167][153]"ummm. very good. i feel sort of tingly.":mu[178]0:[137]2026
  333. 2021 [139]pl[178]1[167][153]"not out of the pot!":[142]
  334. 2022 [153]"they taste terrible...":[141]6002
  335. 2023 [151]sc,0:[153]"loadclrthey were syspoisonousclr if not cooked!"
  336. 2024 [153]"contnice going!":[153]"printyou choke and die on the spot.":[137]995
  337. 2026 tk$(36,0)[178]"magic":tk$(36,1)[178]"0":[137]2006
  338. 2030 [153]"bleh! it's moldy!":[137]2006
  339. 2032 [153]"tastes poisonous!":[141]6000:[137]995
  340. 2035 [153]"frog's legs taste better ":[153]"than a rabbit's foot"
  341. 2036 tk$(44,1)[178]"0":[137]1205
  342. 2100 [139]r$[178]"milk"[167][139][197](tk$(13,1))[178]11[167][153]"tastes good.":[142]
  343. 2104 [139]r$[178]"ater"[167][153]"tastes rusty":[142]
  344. 2105 [153]"you can't":[142]
  345. 2300 [139]r$[178]"ilet"[167][153]"whoosh!":[142]
  346. 2302 [137]2105
  347. 2400 [139]tk$(33,1)[179][177]"11"[167][139]r$[179][177]"ight"[167][153]"no matches":[142]
  348. 2401 [129]i[178]0[164]9:[139]r$[178]lt$(i)[167]2403
  349. 2402 [130]:[137]2105
  350. 2403 [145]i [137]2407,2407,2105,2412,2408,2408,2408,2412,2416
  351. 2407 [153]"it flares up and goes out.":[142]
  352. 2408 [139]rm[179][177]2[167][142]
  353. 2409 [153]" **poof**! the pilot light is lit":ck[178]1
  354. 2410 [139]tk$(44,1)[178]"19"[167][153]"mmm smells like wabbit stew":tk$(44,1)[178]"0"
  355. 2411 [142]
  356. 2412 [139]tk$(21,1)[179][177]"11"[167]1999
  357. 2413 [139][200](tk$(21,0),3)[178]"lit"[167]2420
  358. 2414 tc[178][197](ti$):[139]tk$(21,1)[178]"0"[167]1999
  359. 2415 [153]"the short lit candle won't last long":tk$(21,0)[178]"lit candle":[142]
  360. 2416 [139]tk$(23,1)[179][177]"11"[167]1999
  361. 2417 [139][200](tk$(23,0),3)[178]"lit"[167]2420
  362. 2418 [153]"the smell is strong and makes you dizzy":il[178]1:in[178]0
  363. 2419 tk$(23,0)[178]"lit incense":[142]
  364. 2420 [153]"it is lit!":[142]
  365. 2500 [139][201](q$,2)[178]"tv"[167]2504
  366. 2502 [139]r$[179][177]"t.v."[167][139]r$[179][177]"sion"[167][153]"nothing happens":[142]
  367. 2504 [139]rm[179][177]1[167]1299
  368. 2505 [153]"the movie 'the fly' is on!":[142]
  369. 2600 [139]r$[178]"oset"[167]2648
  370. 2604 [139]r$[178]"safe"[167][153]"need combination. must turn dial...":[142]
  371. 2605 [139]r$[178]"door"[167][139]rm[178]4[167][153]"you can't, you're locked in.":[142]
  372. 2606 [153]"not locked.":[142]
  373. 2648 [139]rm[179][177]5[167]1299
  374. 2649 [139]tk$(0,1)[179][177]"11"[167][153]"you can't...yet":[142]
  375. 2650 [153]"click. closet swings open. it's deep and dark":[142]
  376. 2700 [153]"you can't. call a plumber":[142]
  377. 2800 [139]r$[178]"ereo"[167][139]rm[178]1[167]2820
  378. 2802 [139]r$[178]"adio"[167][139]rm[178]1[167]2820
  379. 2810 [153]"you hear nothing special":[142]
  380. 2820 [153]"it plays some strange, eerie music":[142]
  381. 2900 [139]r$[178]"cord"[167][139]rm[178]1[167]2910
  382. 2902 [139]r$[178]"nnel"[167]2908
  383. 2904 [139]r$[178]"tion"[167]2908
  384. 2905 [137]2105
  385. 2908 [153]"you can't. no cable yet.":[142]
  386. 2910 [153]"none in sight":[142]
  387. 3000 [139]r$[178]"oset"[167][139]key[178]1[167][139]rm[178]5[167][153]"okay. click":[142]
  388. 3002 [139]r$[178]"door"[167][139]rm[178]4[167][153]"it already is.":[142]
  389. 3005 [137]2105
  390. 3100 [153]"okay":[142]
  391. 3200 [153]"choose: cwaitlues or wwaitord list"
  392. 3201 x$[178]"":[161]x$:[139]x$[179][177]"c"[167][139]x$[179][177]"w"[167]3201
  393. 3202 [139]x$[178]"w"[167]3215
  394. 3204 h[178](h[170]1) [175] 7
  395. 3206 [139]h[178]1[167][153]"move between 9 rooms by typing 'go [room name]'":[142]
  396. 3207 [139]h[178]2[167][153]"be sure to look at everything!":[142]
  397. 3208 [139]h[178]3[167][153]"be sure to take what you need":[142]
  398. 3209 [139]h[178]4[167][153]"carry all the right items to cast the   final spell":[142]
  399. 3210 [139]rm[178]1[167][153]"the chair feels funny.":[142]
  400. 3211 [139]rm[178]2[167][153]"a cold cookie would taste good.":[142]
  401. 3212 [139]rm[178]3[167][153]"the tub looks interesting...":[142]
  402. 3213 [139]rm[178]4[167][153]"that's a nice picture on the wall":[142]
  403. 3214 [139]rm[178]5[167][153]"lots of places to hide things here...":[142]
  404. 3215 [151]sb,1:[151]sc,0:[153]"load":[151] 53269,0
  405. 3216 [153]"here are most of the commands and items":[153]"you'll need:"
  406. 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)
  407. 3218 [153][163]20);:[141]3260:[130]i:[141]3250
  408. 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
  409. 3221 a$[178]lk$(i,0):[153][163]20);:[141] 3260:[130]i:[141]3250
  410. 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
  411. 3224 a$[178]tk$(i,0):[153][163]20);:[141]3260:[130]i:[141]3250
  412. 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
  413. 3226 a$[178]tk$(i,0):[153][163]20):[141] 3260:[130]i
  414. 3227 [153][166]15)"printgood luck!":[153][166]14)"defhit any key":[141]3251
  415. 3228 [145]rm[141]50000,51000,52000,53000,54000,55000,56000,57000,58000
  416. 3229 [141] 40000:[151] 53280,11
  417. 3230 [153]"":[142]
  418. 3250 [153]"     hit any key for more..."
  419. 3251 x$[178]"":[161]x$:[139]x$[178]""[167]3251
  420. 3252 [153]"":[142]
  421. 3260 [139] a$[178]"****" [167] [142]
  422. 3265 [153] a$:[142]
  423. 3300 [139]r$[179][177]"eeds"[167]2105
  424. 3302 [139]se[178]0[167][153]"don't have":[153]"
  425. 3303 ifrm<>7thenprint"not in here?":return
  426. 3304 print"a mushroom springs up into the night!":pl=1:se=0
  427. 3305 tk$(6,1)="-1":tk$(36,1)="7":return
  428. 3400 print"[147][149]you're carrying:":hp$="11":gosub4116
  429. 3410 th$="thing":if ea<>1 then th$=th$+"s"
  430. 3420 ifea>0thenprint"and you've eaten"ea;th$
  431. 3430 return
  432. 3500 iftk$(31,1)<>"11"thenprint"not yet.":return
  433. 3501 ifr$="room"then3510
  434. 3502 ifr$="rope" or r$="soap"then3505
  435. 3503 print"razor too dull":return
  436. 3505 ifsr=0then1299
  437. 3506 print"the dull blade slices through the soap  and frees the rope!"
  438. 3507 sr=0:so=1:ro=1:tk$(30,0)="soap":tk$(37,1)="11":return
  439. 3510 ifrm<>7then2105
  440. 3511 ifpl=0then1299
  441. 3512 print"the razor slices the stem. the mushroom falls into your hands"
  442. 3513 pl=0:mu=1:tk$(36,1)="11":return
  443. 3600 fori=0to5:ifright$(q$,3)=cl$(i)then3605
  444. 3604 next:print"nothing to climb here":return
  445. 3605 oni+1goto1046,3610,3615,3620,1046,3624
  446. 3610 ifrm<7then1299
  447. 3611 ifrm=9then1037
  448. 3612 ifrm>6thenifrm<9thenprint"doesn't look safe! it's a long way down"
  449. 3614 gosub6002:goto42000
  450. 3615 ifrm<>9thenprint"must go there first":return
  451. 3618 goto1049
  452. 3620 iftk$(37,1)<>"11"then3610
  453. 3622 print"be more specific. climb up or down?":return
  454. 3624 iftk$(37,1)<>"11"thenprint"you don't have":return
  455. 3626 goto3622
  456. 3700 fori=0to46:vt=val(tk$(i,1)):wd$=right$(tk$(i,0),4)
  457. 3701 ifr$=wd$thenifvt=11then3703
  458. 3702 next:goto1999
  459. 3703 ifleft$(tk$(i,0),3)="lit"then3715
  460. 3704 tk$(i,1)=str$(rm):print"dropped.":ic=ic-1:return
  461. 3715 pokesc,2:pokesb,7:print"[144][147]   you can't drop a burning object!!":pokech,0
  462. 3717 print"you burned down the building, and not"
  463. 3718 print"only killed yourself but about 400     other people"
  464. 3719 print"  needless to say, you lose, einstein."
  465. 3720 print""spc(16)"[151]         "
  466. 3721 printspc(9)"                     [146]":goto995
  467. 3900 ifz=11thenprint"you have it!":return
  468. 3902 ifz>11thenifz<14thenifrm<>2then3912
  469. 3904 ifz=14thenifrm<>1then3912
  470. 3905 ifz=15thenifrm<>5then3912
  471. 3906 ifz=16thenifrm<>3then3912
  472. 3907 ifz=17thenifrm<>5then3912
  473. 3908 ifz=18thenifrm<>3then3912
  474. 3909 ifz<1then3912
  475. 3910 goto1202
  476. 3912 print"don't see it...":return
  477. 4000 ifd>0thenifd<9thenondgoto1000,1100,1200,1200,1300,1400,1500,1600
  478. 4002 ifd>8thenifd<16thenond-8goto1700,1800,1900,2000,2100,1200,2300
  479. 4004 ifd>15thenifd<22thenond-15goto2400,2500,2600,2700,2800,2900
  480. 4005 ifd>21thenond-21goto3000,3100,3200,3300,3400,3500,3600,3700
  481. 4010 return
  482. 4100 iftk$(i,1)=hp$thenprinttk$(i,0):tk$(i,1)=str$(rm)
  483. 4102 return
  484. 4110 iftk$(i,1)=hp$thentk$(i,1)=str$(rm)
  485. 4112 return
  486. 4115 print"you find:"
  487. 4116 j=0:fori=0to46:iftk$(i,1)=hp$thenprinttk$(i,0)
  488. 4117 if peek(214)>19 then print" plus more!":i=46
  489. 4118 next i:return
  490. 4120 fork=0to46:vt=val(tk$(k,1)):wd$=right$(tk$(k,0),4)
  491. 4121 ifr$=wd$thenifvt>9thenifvt<12then1902
  492. 4122 nextk:goto1999
  493. 4125 forn=0to46:vt=val(tk$(n,1)):wd$=right$(tk$(n,0),4)
  494. 4126 ifr$=wd$thenifvt=11then2004
  495. 4128 nextn:goto1999
  496. 4150 fork=0to46:ifr$=right$(tk$(k,0),4)thenlr=val(tk$(k,1)):goto1102
  497. 4152 nextk:lr=val(lk$(i,1)):goto1102
  498. 5000 ifrm=6then5200
  499. 5002 print"nothing happened...yet...":return
  500. 5010 pokech,0:print"[147][156]"spc(16)"poof!":pokesc,1:pokesb,1
  501. 5014 forx=15to0step-.50:pokev,x:pokea1,34:poker1,66:pokew1,129
  502. 5015 pokeh1,18:pokel1,209:nextx
  503. 5020 pokew1,0:pokea1,0:poker1,0:print"[147]"
  504. 5022 poke53271,2:poke53277,2
  505. 5025 ifright$(tk$(36,0),4)="agic"then5050
  506. 5026 pokey2,200:pokex2,100:pokex1,125:pokey1,190
  507. 5030 pokes1,14:forj=0to62:pokej+832,0
  508. 5035 forj=0to62:readx:pokej+832,x:next:pokech,3:pokes2,13:pokes1,14
  509. 5040 print"[156]nephew!!! why didn't you eat the        cooked mushroom?"
  510. 5042 print"there's nothing i can do for you now!!! i'm sorry!!!"
  511. 5044 print"by the way, thanks for bringing me back!"
  512. 5045 forl=1to50:pokes1,11:fort=1to20:nextt:pokes1,14:fort=1to20:nextt:nextl
  513. 5046 goto995
  514. 5050 forj=0to62:u=peek(960+j):pokej+704,u:next
  515. 5052 pokey2,198:pokey1,220:pokex2,100:pokex1,140:pokech,3:pokes2,11
  516. 5054 print"[156]congratulations nephew!!":print"i knew you were clever!!!"
  517. 5056 print"thanks for bringing me back!!"
  518. 5058 print"you are now a mystic apprentice.":print"you win!!!":goto995
  519. 5085 print"candle went out!":tk$(21,1)="0":tk$(21,0)="hot wax":tc=0:return
  520. 5090 ifmh>1thenifmh=mbthen5096
  521. 5091 ifmb=11thenifmh=rmthen5096
  522. 5092 ifmh=11thenifmb=rmthen5096
  523. 5093 ifmb=-1thenifmh=5then5096
  524. 5094 ifmh=11thenifmb=-1thenifrm=5then5096
  525. 5095 return
  526. 5096 print"the moth just died!":pokech,1:tk$(32,1)="0":mo=0:gosub6002
  527. 5097 return
  528. 5100 restore:poke v,0:for c=54272 to 54296:poke c,0:next
  529. 5110 x=0:poke a1,x:poke a2,x:poke a3,x:x=240:poke r1,x:poke r2,x:poke r3,x
  530. 5120 poke v,15:for l=0 to 40:x=17:poke w1,x:poke w2,x:poke w3,x
  531. 5130 read a,b,c,d,e,f,g:poke h1,a:poke 54272,b:poke h2,c:poke l2,d:poke h3,e
  532. 5140 poke l3,f:for t=1 to (g*2):next:next
  533. 5150 x=0:poke v,x:poke h1,x:poke h2,x:poke h3,x:poke l1,x:poke l2,x:poke l3,x
  534. 5160 return
  535. 5200 iftk$(2,1)<>"11"then5002
  536. 5202 iftk$(32,1)<>"11"then5002
  537. 5204 iftk$(15,1)<>"11"then5002
  538. 5206 iftk$(44,1)<>"11"then5002
  539. 5208 iftk$(23,1)<>"11"then5002
  540. 5212 iftk$(24,1)<>"11"then5002
  541. 5214 iftk$(21,1)<>"11"then5002
  542. 5216 w$="lit":ifleft$(tk$(23,0),3)<>w$then5002
  543. 5218 ifleft$(tk$(21,0),3)<>w$then5002
  544. 5222 ifleft$(tk$(24,0),3)<>"pow"then5002
  545. 5225 goto5010
  546. 6000 fort=1to1000:next:return
  547. 6002 fort=1to3000:next:return
  548. 10000 q$="":print"what will you do?":gosub 43000:q$=t$
  549. 10010 onrmgosub50001,51002,52001,53010,54002,55010,56002,57002,58002
  550. 10020 ifleft$(tk$(21,0),3)="lit"thenifval(ti$)>tc+1500thengosub5085
  551. 10030 mb=val(tk$(12,1)):mh=val(tk$(32,1)):gosub5090
  552. 10040 r$=right$(q$,4):i=0
  553. 10050 ifleft$(q$,3)=left$(v$(i),3)thend=i+1:gosub4000:gosub10080:goto10000
  554. 10060 i=i+1:if i<29 then 10050
  555. 10070 print"i don't understand that command":goto10000
  556. 10080 if peek(214)>20 thenprint""
  557. 10082 print"you see:":fori=0to46:ifval(tk$(i,1))=rmthenprinttk$(i,0)
  558. 10085 if peek(214)>18 then print" and more!":i=46
  559. 10090 next
  560. 10100 ifmh>0thenifmh<>11thenifmh<>rmthenprint"moth"
  561. 10110 return
  562. 20000 open 15,8,15,"i0"
  563. 20010 gosub 21000
  564. 20020 open 2,8,2,"mys.dat,s,r"
  565. 20030 gosub 21000
  566. 20040 for i=0 to 28
  567. 20050 input#2,v$(i):next
  568. 20060 gosub 21000
  569. 20070 for i=0 to 15
  570. 20080 input#2,g$(i,0),g$(i,1):next
  571. 20090 gosub 21000
  572. 20100 for i=0 to 30
  573. 20110 input#2,lk$(i,0),lk$(i,1):next
  574. 20120 gosub 21000
  575. 20130 for i=0 to 46
  576. 20140 input#2,tk$(i,0),tk$(i,1):next
  577. 20150 gosub 21000
  578. 20160 for i=0 to 15
  579. 20170 input#2,op$(i,0),op$(i,1):next
  580. 20180 gosub 21000
  581. 20190 for i=0 to 11
  582. 20200 input#2,tu$(i,0),tu$(i,1):next
  583. 20210 gosub 21000
  584. 20220 for i=0 to 9
  585. 20230 input#2,rd$(i):next
  586. 20240 gosub 21000
  587. 20250 for i=0 to 8
  588. 20260 input#2,ea$(i):next
  589. 20270 gosub 21000
  590. 20280 for i=0 to 9
  591. 20290 input#2,lt$(i):next
  592. 20300 gosub 21000
  593. 20310 for i=0 to 5
  594. 20320 input#2,cl$(i):next
  595. 20330 gosub 21000
  596. 20340 close 2
  597. 20350 close 15
  598. 20360 lk$(1,0)=" "+lk$(1,0)
  599. 20370 lk$(10,0)=" "+lk$(10,0)
  600. 20380 lk$(24,0)=" "+lk$(24,0)
  601. 20390 lk$(28,0)=" "+lk$(28,0)
  602. 20400 tk$(0,0)=" "+tk$(0,0)
  603. 20410 tk$(4,0)=" "+tk$(4,0)
  604. 20420 cl$(0)=" "+cl$(0)
  605. 20430 g$(3,0)=" "+g$(3,0)
  606. 20440 g$(8,0)=" "+g$(8,0)
  607. 20450 g$(11,0)=" "+g$(11,0)
  608. 20460 g$(14,0)=" "+g$(14,0)
  609. 20999 return
  610. 21000 input#15,er$,em$,et$,es$
  611. 21010 if er$<"20" then return
  612. 21015 close 2:close 15:sys 65511
  613. 21020 poke 53269,0:poke 53280,2
  614. 21030 poke 53281,0
  615. 21040 print"[147]  disk error!
  616. 21050 l[178](40[171]([195](er$)[170]10))[173]2
  617. 21060 [153]""[163]l)er$", "em$","et$","es$
  618. 21070 [153]"      try awaitgain or qwaituit to uptime"
  619. 21080 [161] a$:[139] a$[179][177]"q" [175] a$[179][177]"a" [167] 21080
  620. 21090 [139] a$[178]"a" [167] [138]
  621. 21100 [137] 999
  622. 30000 [153]"load      tototototototototototototototototototototototototototo"
  623. 30010 [153]"       (NULL)he atnpartment of (NULL)ystery! "
  624. 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("
  625. 30015 [153]"                open(c) 1987"
  626. 30020 [153]"           by  (NULL)cott lenalamar"
  627. 30025 [153][163]16)"asc8 (NULL)uits"
  628. 30030 [153]" (NULL)ublished by (NULL)iking (NULL)echnologies, right$nc."
  629. 30050 [142]
  630. 40000 [139]rm[178]7[167][151]bp,1
  631. 40002 [151]ch,0:[139]rm[179][177]7[167][151]bp,0
  632. 40004 [151]y1,183:[151]x1,0:[151]ch,1:[129]w[178]25[164]130[169].5:[151]x1,w:[130]w
  633. 40005 [129]g[178]185[164]155[169][171]1:[151]y1,g:[130]g
  634. 40010 [139]mo[178]0[167][142]
  635. 40011 [151]ch,3
  636. 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]
  637. 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
  638. 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
  639. 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
  640. 40020 [142]
  641. 40070 [139][197](tk$(32,1))[177][171]1[167]2105
  642. 40072 [153]"a huge moth flies out of the suit and   follows you around"
  643. 40073 tk$(32,1)[178]"6"
  644. 40075 [151]ch,3:[129]u[178]150[164]90[169][171].5:a[178]u[170]50:[151]y2,u:[151]s2,14
  645. 40076 [151]x2,a:[151]s2,11:[130]
  646. 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
  647. 40079 [130]t:[130]d
  648. 40080 [139]mo[178]1[167][142]
  649. 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
  650. 40085 [151]s2,14:[142]
  651. 40100 [151]ch,3
  652. 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]
  653. 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
  654. 40112 [142]
  655. 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]
  656. 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
  657. 41006 [129]l[178]190[164]118[169][171].5:[151]y1,l:[130]l:[151]sc,0
  658. 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
  659. 41008 [153]"loadthe power of the magic                   whisks you outside!"
  660. 41009 [151]53286,13:[141]6000:[151]ch,0:[151]53285,4:[151]53286,10:[151]53287,0
  661. 41010 [142]
  662. 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
  663. 42001 [129]f[178]0[164]200:[151]y1,f:[130]f
  664. 42010 [151]ch,0:[153]""[166]19)"clr    def   clr   "
  665. 42015 [153]"too dark!!!":[153]"you fell 20 stories to your death!":[137]995
  666. 43000 t$[178]"":[153]">to";
  667. 43010 [161] a$:[139] a$[178]"" [167] 43010
  668. 43020 a%[178][198](a$)
  669. 43030 [139] a%[178]13 [167] [153]"cmd cmd":[141] 44000:[142]
  670. 43040 [139] a%[178]20 [175] t$[178]"" [167] 43010
  671. 43050 [139] a%[178]20 [167] t$[178][200](t$,[195](t$)[171]1):[153]"cmdcmd  cmdcmdto";:[137] 43010
  672. 43055 [139] [195](t$)[177]36 [167] 43010
  673. 43057 [139] a%[178]140 [167][153]"cmd onononononon":[137]995
  674. 43060 [139] a%[178]32 [176] a%[178]46 [176] a%[178]45 [167] 43070
  675. 43062 [139] a%[177]47 [175] a%[179]58 [167] 43070
  676. 43065 [139] a%[179]65 [176] a%[177]90 [167] 43010
  677. 43070 [153]"cmd"a$"to";
  678. 43080 t$[178]t$[170]a$:[137] 43010
  679. 44000 [139] [200](t$,1)[178]" " [167] t$[178][201](t$,[195](t$)[171]1):[137] 44000
  680. 44010 [139] [201](t$,1)[178]" " [167] t$[178][200](t$,[195](t$)[171]1):[137] 44010
  681. 44020 [142]
  682. 50000 [151]ch,0:[151]a1,0:[151]sc,15
  683. 50001 [153]"loadprint#                                                              ";
  684. 50002 [153]"                  wait(NULL)                                      waitstep"
  685. 50003 [153]"onthen"[166]37)"then then"[166]22)"pospospospospospospospospospospos    then"
  686. 50004 [153]"then for(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)       sysgetgetgetgetgetgetgetgetgetgetget    print#then"
  687. 50005 [153]"then for(NULL)            (NULL)       sysgetgetgetgetgetgetgetgetgetgetget    print#then"
  688. 50006 [153]"then for(NULL) sweet home for(NULL)       sysgetgetgetgetgetgetgetgetgetgetget    print#then"
  689. 50007 [153]"then for(NULL)            (NULL)       sysgetgetgetgetgetgetgetgetgetgetget    print#then"
  690. 50008 [153]"then for(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)       sysgetgetgetgetgetgetgetgetgetgetget    print#then"
  691. 50009 [153]"then    (NULL)  (NULL)              sysgetgetgetgetgetgetgetgetgetgetget    print#then"
  692. 50010 [153]"then    poke     wait             stop     (NULL)     wait print#   then"
  693. 50011 [153]"then    poke stop   poke:wait   verifythenfn   get    stop     peek     wait    print#then"
  694. 50012 [153]"then    poke stop   poke:wait   verifythenspc(spc(spc(spc(get    print#           wait    print#then"
  695. 50013 [153]"then  verify  poke     verify  wait thenspc(spc(spc(spc(get                   print#then"
  696. 50014 [153]"then  verify ascascascascascascasc wait thenfn   get     wait            wait  print#then"
  697. 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"
  698. 50016 [153]"then  verify ascascascascascascasc wait  pospospospos wait     stop         verify   wait  print#then"
  699. 50017 [153]"then  verify  (NULL)   (NULL)  wait  wait     wait                 wait  print#then"
  700. 50018 [153]"then  verify ascascascascascascasc wait  wait     wait   wait              waitprint#  then"
  701. 50019 [153]"then  verify         wait (NULL)    (NULL)   wait              waitprint#  then"
  702. 50020 [153]"def                                        stop"
  703. 50099 rm[178]1:[142]
  704. 51000 [151]ch,0:[151]a1,0:[151]sc,7:[151]sb,11
  705. 51002 [153]"loadverify  fn    then fn    then fn     then fn    then  fn    then";
  706. 51004 [153]"    fn    then fn    then fn     then fn    then  fn    then";
  707. 51006 [153]"    fn   -then fn   -then fn    -then fn   -then  fn   -then";
  708. 51008 [153]"    fn    then fn    then fn     then fn    then  fn    then";
  709. 51010 [153]"    fn    then fn    then fn     then fn    then  fn    then";
  710. 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(  "
  711. 51014 [153]"on"[166]14)"for    wait"
  712. 51016 [153]"          wait    for    "
  713. 51018 [153]"          wait    for    "
  714. 51020 [153]"       print#(NULL)(NULL) wait   forstep    (NULL)"
  715. 51022 [153]"          wait  forstep      (NULL)"
  716. 51024 [153]"          wait forstep        (NULL)"
  717. 51026 [153]"          wait for          wait          poke=  (NULL)  ="
  718. 51028 [153]"          print poke   waitstop*poke  waitstop*poke  :print  (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)print          print ";
  719. 51030 [153]"        wait(NULL) print poke   waitstop*poke  waitstop*poke  :print  ++++++print          print ";
  720. 51032 [153]"          print pokeandandandandandandandandandandprint                   ";
  721. 51034 [153]"          verify poke totototototototo verify                   ";
  722. 51036 [153]"          verify poke fn      then verify  tototototototo tototototototo  ";
  723. 51038 [153]"          verify poke fn usrusrusrusr then verify  fn     then fn     then  ";
  724. 51040 [153]"          verify poke fn      then verify  fn    <then fn    <then  ";
  725. 51042 [153]"          verify poke fn      then verify  fn     then fn     then  ";
  726. 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(  "
  727. 51050 rm[178]2:[142]
  728. 52000 [151]ch,0:[151]a1,0:[151]sc,3
  729. 52001 [153]"loadprint#                                                              ";
  730. 52002 [153]"                  wait(NULL)                                      waitstep";
  731. 52010 [153]"print# fn"[166]36)"then  fn"[166]36)"then"
  732. 52012 [153]"poke pospospospospospospospospos"[166]11)"pospospospospospospospospospospospospospospospospospospos+list         waitpokesgn"[166]10);
  733. 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)";
  734. 52014 [153]"poke+list         pokewaitsgn          (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)";
  735. 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";
  736. 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)";
  737. 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 ";
  738. 52018 [153]"(NULL)lenlenlenlenlenlenlenlenright$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)";
  739. 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  ";
  740. 52021 [153]"        wait ";
  741. 52022 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)        wait            wait ";
  742. 52023 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)poke(NULL)   (NULL)   waitstep     ";
  743. 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   ";
  744. 52025 [153]"                   ";
  745. 52026 [153]"wait       wait       (NULL)  waitstep                      ";
  746. 52028 [153]"wait       wait          wait                       wait          wait   ";
  747. 52029 [153]"      wait                     stop"
  748. 52030 rm[178]3:[142]
  749. 53000 [151]ch,0:[151]a1,0:[151]sc,0:[151]sb,0
  750. 53010 [153]"load      print#tototototototototototototototototototototototo"
  751. 53012 [153]"     then(NULL)                     (NULL)waitfn"
  752. 53014 [153]"     then (NULL)                   (NULL) waitfn"
  753. 53016 [153]"     then  (NULL)                 (NULL)  waitfn"
  754. 53018 [153]"     then   (NULL)andandandandandandandandandandandandandandand(NULL)   waitfn"
  755. 53020 [153]"     then   thenpoke               print#fn   waitfn"
  756. 53022 [153]"     then   thenpoke   totototototototo    print#fn   waitfn"
  757. 53024 [153]"     then   +poke  +verify        pokesgn   print#fn waitstepfnwaitfn"
  758. 53026 [153]"     then   +poke  +verify        pokesgn   print#sgnthensinprint#fnwaitfn"
  759. 53028 [153]"     then   +poke  +verify     log--poke-cos  print#sgnthensinprint#fnwaitfn"
  760. 53030 [153]"     then   +poke  +verify        pokesgn   print#sgnthensinprint#fnwaitfn"
  761. 53034 [153]"     then   +poke  +verify      waitsys(NULL)verify pokesgn   print#sgnthensinprint#fnwaitfn"
  762. 53036 [153]"     then   +poke  +verify        pokesgn   print#sgnthensinprint#fnwaitfn"
  763. 53038 [153]"     then   +poke  +verify      sys(NULL)verify pokesgn   print#sgnthenstep waitfn"
  764. 53040 [153]"     then   +poke  +verify        pokesgn   print#sgn   waitfn"
  765. 53042 [153]"     then   +poke  +verify        pokesgn   print#sgn   waitfn"
  766. 53044 [153]"     then   +poke  +verify        pokesgn   print#sgn   waitfn"
  767. 53046 [153]"     then   +pokeandandsqrverifypospospospospospospospospoke(NULL)andandandprint#sgn   waitfn"
  768. 53048 [153]"     then   (NULL)sysspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(print#(NULL)   waitfn"
  769. 53050 [153]"     then  (NULL)sysspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(print#(NULL)  waitfn"
  770. 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"
  771. 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"
  772. 53055 rm[178]4:[142]
  773. 54000 [151]ch,0:[151]a1,0:[151]sc,14
  774. 54002 [153]"load                                                              ";
  775. 54004 [153]"                  wait(NULL)                                      waitstep";
  776. 54006 [153]" fn"[166]36)"then  fn"[166]36)"then"
  777. 54015 [153]" fn"[166]11)"pospospospospospospospospospospospospospospospospospospospospos    then"
  778. 54020 [153]" fn pokeandandandandandandandandand verifysinsinsinsinsinsinsinsinstop  (NULL)  verifywaitsinsinsinsinsinsinsinsin    then"
  779. 54022 [153]" fnpokethensys you are waitpokefnverifysinsinsinsinsinsinsinstop * (NULL)   verifywaitsinsinsinsinsinsinsin    then"
  780. 54024 [153]" fnpokethensys not herewaitpokefnverifysinsinsinsinsinsinsinstop   (NULL) * verifywaitsinsinsinsinsinsinsin    then"
  781. 54026 [153]" fn pokeusrusrusrusrusrusrusrusrusr verifysinsinsinsinsinsinstop *  (NULL)*   waitverifysinsinsinsinsinsin    then"
  782. 54028 [153]" fn           verifysinsinsinsinsinstoplenlenlenlenlen(NULL)lenlenlenlenlenverifywaitsinsinsinsinsin step  (NULL)"
  783. 54030 [153]" fn           verifysinsinsinsinstop  *  *(NULL)   *  verifywaitsinsinsinsin   printget"
  784. 54032 [153]" fn step   (NULL)wait     verifysinsinsinstop       (NULL)       waitverifysinsinsin   printget"
  785. 54034 [153]" fn   poke wait       verifysin    stop     (NULL)       verifywaitsinsinsin  print get"
  786. 54036 [153]" fn   poke wait       verifysin    waitfrefrefrefrefrefrefrefrefrefrefrefrefrefreverifysinsinverify      ";
  787. 54038 [153]"wait fn   poke wait            wait         wait       verify      ";
  788. 54040 [153]"wait fnverifystep for   verify  wait   pospos    waitpospospos      waitpos    verify        wait";
  789. 54042 [153]" fnverifytototototototowait  sysstep                (NULL)wait     verify      wait";
  790. 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";
  791. 54046 [153]" fnverifythen(NULL)(NULL)sys(NULL)(NULL)verifyfn wait  sys                  wait     verify      wait";
  792. 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";
  793. 54050 [153]" fnverify tab(tab(tab(tab(  wait  poket"[166]16)"t     verify      stop"
  794. 54055 rm[178]5:[142]
  795. 55000 [151]ch,0:[151]sb,0:[151]sc,0:rm[178]6
  796. 55010 [153]"loadprint#usrusrusrusr?usrusrusr?usrusrusrusr?usrusrusr?usrusrusr?usrusrusr?usrusrusrusr?usrusrusr?usrusrusrusrusr"
  797. 55012 [153]"on    (NULL)   (NULL)    (NULL)   (NULL)   (NULL)   (NULL)    (NULL)   (NULL)   "
  798. 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)"
  799. 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("
  800. 55016 [153]" pokestep              (NULL)wait"[166]9)"    fn   "
  801. 55017 [153]" pokeusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrwait"[166]9)"    fn   "
  802. 55018 [153]" poke   waitstep        (NULL)   wait"[166]9)"(NULL) tantantantan (NULL)wait"
  803. 55019 [153]" poke   wait             wait"[166]10)"      wait"
  804. 55020 [153]" poke   verifyusrusrwaitsys(NULL)verifyusrusrusrusrwaitsys(NULL)verifyusrusrpoke   wait"[166]10)"  wait    "
  805. 55022 [153]" poke                "[166]9)"  wait    "
  806. 55024 [153][166]25)"  wait    "
  807. 55026 rm[178]6:[142]
  808. 56000 [151]sb,0:[151]sc,0:[151]ch,0:rm[178]7
  809. 56002 [153]"load"[166]12)"poke wait         wait"
  810. 56004 [153][166]12)"poke wait         wait"
  811. 56006 [153][166]12)"poke waittantantantantantantantan wait"
  812. 56008 [153][166]12)"poke wait         wait"
  813. 56010 [153]"clrposposposposposposposposposposposwait poke wait         wait"
  814. 56012 [153]"verify     (NULL)     waitclrsgnpoke waittantantantantantantantan wait"
  815. 56014 [153]"verify     (NULL)     waitclrsgnpoke wait         wait"
  816. 56016 [153]"verify     (NULL)     waitclrsgnpoke wait         wait"
  817. 56018 [153]"verify     (NULL)     waitclrsgnpoke waittantantantantantantantan wait"
  818. 56020 [153]"verifytantantantantan(NULL)tantantantantanwaitclrsgnpoke wait         wait"
  819. 56022 [153]"verify     (NULL)     waitclrsgnpoke wait         wait"
  820. 56024 [153]"verify     (NULL)     waitclrsgnpoke waittantantantantantantantan wait"
  821. 56026 [153]"sys     (NULL)     waitclrsgnpoke wait         wait"
  822. 56028 [153]"sys     (NULL)     waitclrsgnpoke wait         wait"
  823. 56030 [153]"clrprint#           waitclrsgnpoke waittantantantantantantantan waitforabs  waitgetpoke"
  824. 56032 [153][166]12)"poke wait         wait for  poke"
  825. 56038 [153]"                          "
  826. 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) "
  827. 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) "
  828. 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) "
  829. 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) "
  830. 56050 [153]"                          "
  831. 56099 [142]
  832. 57000 [151]sc,0:[151]sb,0:[151]ch,0:rm[178]8
  833. 57002 [153]"load"[166]20)"*       list*       print#*":[153]"cont*    def*"
  834. 57003 [153][166]14)"sys*"[166]15)"poke*":[153]"   print*"[166]21)"poke*":[153]
  835. 57004 [153][166]8)"*"[166]23)"sys*":[153]"sys*"[166]19)"list*"[166]10)"print#*":[153][166]29)"cont*
  836. 57005 printspc(15)"[155]*"spc(18)"[158]*":print:print"   *"spc(21)"[155]*    [152]*"
  837. 57006 printspc(6)"[151][206][206][206][206][206][206]":printspc(9)"[161]"spc(14)"[158]*       [154]*"
  838. 57007 print"    *    [151][161]     *"
  839. 57008 printspc(8)"[149][164][151][161][149][164][164][164]      [155]*":printspc(7)"[149][206]    [206][180]"spc(10)"[158][169][223]"
  840. 57009 printspc(7)"[129][221][221][221][221][221][146] [149][180]"spc(9)"[158][169]  [223]"
  841. 57010 printspc(7)"[129][219][219][219][219][219][146] [149][180]"spc(8)"[158][169]    [223]"
  842. 57012 printspc(7)"[129][219][219][219][219][219][146] [149][180]"spc(7)"[158][169]      [223]"
  843. 57013 printspc(7)"[129][219][219][219][219][219][146] [149][180]"spc(6)"[158][169]        [223]"
  844. 57014 printspc(7)"[129][221][221][221][221][221][146] [149][180]"spc(5)"[158][169]          [223]"
  845. 57015 print"[152]                                        ":pokebp,3:return
  846. 58000 pokesc,0:pokesb,0:pokech,0:rm=9
  847. 58002 print"[147]"spc(15)"[149] [151]    [149] "
  848. 58004 fort=1to17:printspc(15)"[149] [151]    [149] ":next
  849. 58005 printspc(13)"[149]   [151]    [149]   ":printspc(12)"[149]   [151]      [149]   "
  850. 58006 printspc(11)"[149]   [151]        [149]   ":printspc(10)"[149]   [151]          [149]   "
  851. 58007 pokey1,150:pokex1,145:pokech,3:poke53275,0
  852. 58008 ifea>othenprint"[158]you're stuck!!!":goto58010
  853. 58009 return
  854. 58010 print"you shouldn't have eaten so much!":print"you have two choices:"
  855. 58012 print"you may wait here until you burn off"
  856. 58013 print"the fat (10 mins ea. item consumed)"
  857. 58014 print"or admit defeat and start the game again"
  858. 58015 print"[153]press w[146] for wait and q[146] to end"
  859. 58016 getw$:ifw$=""then58016
  860. 58017 ifw$<>"w"thenifw$<>"q"then58016
  861. 58018 ifw$="q"thenrun
  862. 58020 print"[147]you are stuck in the chimney"
  863. 58022 tw=val(ti$)+(1000*ea)
  864. 58024 ifval(ti$)>=twthen58030
  865. 58026 print""left$(ti$,2)" hrs.,"mid$(ti$,3,2)" mins., & "right$(ti$,2)" secs."
  866. 58028 goto58024
  867. 58030 print"[147][149]you're free skinny!":ea=0:gosub6002:goto58000
  868. 59901 data225,143,112,199,56,99,25,200,243,100,121,50,60,50
  869. 59902 data225,143,112,199,56,99,150,0,0,0,0,0,0,75
  870. 59904 data200,243,100,121,50,60,25,179,6,89,131,44,193,25
  871. 59906 data168,250,84,125,42,62,25,150,139,75,69,37,162,25
  872. 59908 data142,24,71,12,35,134,100,150,139,75,69,37,162,200,0,0,0,0,0,0,100
  873. 59910 data112,199,56,99,28,49,25,100,121,50,60,26,156,50
  874. 59912 data112,199,56,99,28,49,150,0,0,0,0,0,0,25
  875. 59914 data84,125,42,62,21,31,50,89,131,44,193,22,96,50
  876. 59916 data71,12,35,134,17,195,50
  877. 59918 data75,69,37,162,18,209,150,0,0,0,0,0,0,250
  878. 59920 data56,99,28,49,14,24,25,50,60,25,30,12,143,50
  879. 59922 data56,99,28,49,14,24,150,0,0,0,0,0,0,75
  880. 59924 data50,60,25,30,12,143,25,44,193,22,96,11,48,25
  881. 59926 data42,62,21,31,10,143,25,37,162,18,209,9,104,25
  882. 59928 data35,134,17,195,8,225,100,37,162,18,209,9,104,200,0,0,0,0,0,0,100
  883. 59930 data0,0,18,209,9,104,100,17,195,18,209,9,104,100
  884. 59932 data21,31,18,209,9,104,100,25,30,18,209,9,104,100
  885. 59934 data29,223,25,30,9,104,100,29,223,35,134,9,104,100
  886. 59936 data29,223,35,134,42,62,600
  887. 59938 data25,30,28,49,37,162,200,0,0,21,31,0,0,200
  888. 59940 data9,104,18,209,23,181,1000
  889. 61002 data0,5,80,0,21,4,0,85,1,1,85,64,21,85,80,11
  890. 61004 data255,128,11,187,128,15,239,192,3,171,0,1,253,0,5,117
  891. 61006 data64,21,85,80,21,85,80,21,85,80,21,221,80,5,85,64
  892. 61008 data5,85,64,5,85,64,5,85,64,5,85,64,22,154,80
  893. 61121 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  894. 61123 data0,0,4,0,16,1,0,64,0,125,0,0,60,0,0,60
  895. 61125 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  896. 61127 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  897. 61129 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  898. 61131 data0,0,0,0,0,0,0,0,0,125,0,1,60,64,4,60
  899. 61133 data16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  900. 61135 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  901. 61300 data 10,168,0,47,248,0,46,232,0,47,248,0,46,184,0,41
  902. 61310 data 96,0,10,160,0,7,208,0,21,85,0,85,85,64,85,85
  903. 61320 data 127,221,85,124,253,84,0,245,84,0,21,84,0,21,84,0
  904. 61330 data 21,84,0,21,84,0,21,84,0,21,85,0,10,40,0
  905.