home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 199 / 199.d81 / adv.bas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2001-01-01  |  14.0 KB  |  519 lines
  1. 0 print
  2. 80 poke53371,0
  3. 90 dv=peek(186):ifdv<8thendv=8
  4. 100 poke53280,11:poke53281,11:print"[147][155]";:poke53272,25:open15,dv,15
  5. 110 data 162,6,32,198,255,32,228,255,201,35,208,249,76,204,255
  6. 120 forj=900to914:readx:pokej,x:next
  7. 130 k1=131:dimk%(131),k(131),d%(4)
  8. 140 s1=114:dims%(114),t%(114),s$(114),m%(114,10)
  9. 150 i1=38:dimi%(38),i$(38),iv$(38)
  10. 160 print"       [215]elcome ";
  11. 170 open1,dv,2,"0:advkeys":forj=1tok1:input#1,k%(j),k(j):next:close1
  12. 180 print"to ";
  13. 190 open1,dv,2,"0:advshor":forj=1tos1:input#1,s$(j),t%(j):next:close1
  14. 200 print"[193]dventure";
  15. 210 open1,dv,2,"0:advmap":forj=1tos1:fork=1to10:input#1,m%(j,k):next:next:close1
  16. 220 print"!"
  17. 230 open1,dv,2,"0:advitm":forj=1toi1:input#1,i$(j):next
  18. 240 forj=1toi1:input#1,i%(j):next
  19. 250 forj=1toi1:input#1,iv$(j):next:close1
  20. 260 l1=6:l5=1e6:l6=149:b0=1:s%(0)=1
  21. 270 z$="y":input "[196]o you want instructions";z$
  22. 280 f1=0
  23. 290 ifz$="n"then306
  24. 292 print"[147]";:gosub4460
  25. 294 f1=f1+1:iff1=4thenclose6:goto298
  26. 296 z$="y":input"[205]ore instructions";z$:goto290
  27. 298 print"[145][145]  save  - save your current position;"
  28. 300 print"  load  - load in a previously "
  29. 302 print"          saved position.
  30. 306 z$[178]"y":[133] "str$o you want to change colors";z$
  31. 308 [139]z$[178]"n"[167]330
  32. 310 [153]" (NULL)ress peek for background    (NULL) for (NULL)ext"
  33. 312 [153]"       atnny other key continues"
  34. 314 [161]z$:[139]z$[178]""[167]314
  35. 316 [139]z$[178]"b"[167]b7[178](b7[170]1)[175]15:[151]53281,b7:[151]53280,b7:[137]314
  36. 318 [139]z$[178]"t"[167]t7[178](t7[170]1)[175]15:[151]646,t7:[153]"ononononon":[137]310
  37. 320 z$[178]"y":[133]"(NULL)eady to start";z$:[139]z$[178]"n"[167]270
  38. 330 j1[178]0
  39. 340 [153]"load";:k9[178]18:[141]4260:[139](t%(l1)[175]1)[177]0[176](i[178][171]1[175]l[178]1)[137]360
  40. 350 f1[178]13:[137]2930
  41. 360 [139]s%(l1)[178]5[137]380
  42. 370 [139]s%(l1)[177]0[176]f9[177]j1[137]390
  43. 380 [139](t%(l1)[175]64)[178]0[167]f1[178]l1[170]200:s%(l1)[178]0:[141]4460:[137]400
  44. 390 [153]s$(l1)
  45. 400 s%(l1)[178]s%(l1)[170]1:[141]3740
  46. 410 [139]i%(27)[178][171]1[167]f1[178]50:[141]4460
  47. 420 [139]m0[178]0[137]4410
  48. 430 [141]3570
  49. 431 [133]"atnction";a$:[139]a$[178]""[167]431
  50. 432 [139][200](a$,4)[178]"load"[167]5000
  51. 433 [139][200](a$,4)[178]"save"[167]6000
  52. 440 a[178][195](a$):[129]j[178]1[164]a:[139][198]([202](a$,j))[178]32[167][130]
  53. 450 k9[178]0:j1[178]j:[139]j[177]a[137]420
  54. 460 [129]j[178]j1[164]a:[139][198]([202](a$,j))[179][177]32[167][130]
  55. 470 j2[178]j[171]j1:[139]j[179][178]a[167][129]j[178]j[164]a:[139][198]([202](a$,j))[178]32[167][130]
  56. 480 [139]j[177]a[167]j3[178]j1:j4[178]j2:[137]510
  57. 490 j3[178]j:[129]j[178]j3[164]a:[139][198]([202](a$,j))[179][177]32[167][130]
  58. 500 j4[178]j[171]j3
  59. 510 l$[178][202](a$,j3,j4):b[178]0:[129]j[178]1[164]5:b[178]b[172]26[170][198]([202](l$,j))[171]64
  60. 520 [139]j[179][195](l$)[167][130]
  61. 530 [129]j[178]1[164]77:[139]b[178]k(j)[137]550
  62. 540 [130]j:[139]l$[178]"it"[176]l$[178]"them"[167]k9[178]k8:[137]560
  63. 550 k9[178]k%(j):k7[178]j:[139]k9[177]199[167]k9[178]0
  64. 560 k8[178]k9:[139]k9[177]99[175]k9[179][177]154[167]k[178]k9:[137]750
  65. 570 k$[178][202](a$,j1,j2):b[178]0:[129]j[178]1[164]5:b[178]b[172]26[170][198]([202](k$,j))[171]64
  66. 580 [139]j[179][195](k$)[167][130]
  67. 590 [129]j[178]51[164]k1:[139]b[178]k(j)[137]650
  68. 600 [130]:[139]k9[178]0[167][153]"right$ don't know that word.":[137]420
  69. 610 [139]k6[177]0[167]k[178]k6:[137]730
  70. 620 [141]4260:[139]i[177]0[137]420
  71. 630 j[178]k7:[139]k9[177]0[167][153]"(NULL)hat do you want to do with the ";l$;"?":[137]420
  72. 640 [153]"right$ don't know how to do that.":[137]420
  73. 650 k[178]k%(j):k6[178]0:[139]k9[177]0[176]k[179]299[137]730
  74. 660 [139]k[178]304[167]j1[178]1:j2[178]34:[137]690
  75. 670 [139]k[178]307[167]j1[178]35:j2[178]38:[137]690
  76. 680 k6[178]k:[153][199](128[170][198](k$));[202](k$,2);" what?":[137]420
  77. 690 [129]j[178]j1[164]j2:[139]i%(j)[179][177]l1[137]720
  78. 700 [139]k9[177]0[137]680
  79. 710 k9[178]j
  80. 720 [130]:[139]k9[178]0[137]680
  81. 730 [139]k9[178]39[167]f1[178]101:[137]2930
  82. 740 [139]k9[177]0[175]k9[179]35[167][141]4260:[139]i[177][178]0[137]1820
  83. 750 m0[178]0:[139]k[177]99[175]k[179]110[137]860
  84. 760 [139]k[179]200[175]l5[179]50[167][153]"(NULL)lease exit by main entrance only.":[137]420
  85. 765 [139]k9[178]32[175]l1[177]112[167]f1[178]128:[137]2930
  86. 770 [145]k[171]149[137]1660,1690,1710,1900,1920,1960,3510,840,3410
  87. 780 [145]k[171]199[137]2140,1830,4570,2250,2290,2310,2970,3030,3420,3540
  88. 790 [145]k[171]209[137]3550,3560,4670,1650,420,2000,2030,3260,3310,3330
  89. 800 [145]k[171]219[137]3380,3390
  90. 810 [145]k[171]299[137]1980,2060,2190,2230,2340,2500,2610,2740,2850,3120
  91. 820 [145]k[171]309[137]3220,3460,3480,1740,1770
  92. 840 [129]j[178]1[164]10:[139]l2[178]m%(l1,j)[167]l9[178]l2:[137]900
  93. 850 [130]j:[153]"right$'ve forgotten which way right$ came.":[137]420
  94. 860 m0[178]1:d[178]k[171]99
  95. 870 [139]l[177]0[137]890
  96. 880 k9[178]18:[141]4260:[139](t%(l1)[175]3)[178]2[167][137]2040
  97. 890 l9[178]m%(l1,d):[139]l9[178]0[167][153]"(NULL)ou can't go that way.":[137]420
  98. 900 [139]i%(37)[178]l1[175]l9[179][177]l2[167][153]"(NULL)ou can't get by the snake.":[137]420
  99. 910 [139]i%(36)[178]l1[175]l9[179][177]l2[167]f1[178]53:[137]2930
  100. 920 [139][182](l1[171]l9)[177]1[137]1010
  101. 930 [139]l1[170]l9[178]21[175]g[178]0[167]f1[178]100:[137]2930
  102. 940 [139]l1[170]l9[178]39[175]b2[178]0[167]f1[178]102:[137]2930
  103. 950 [139]l1[170]l9[179][177]115[137]980
  104. 960 [129]j[178]1[164]i1:[139]j[178]10[176]i%(j)[179][177][171]1[167][130]j:[137]980
  105. 970 f1[178]120:[137]2930
  106. 980 [139]l1[170]l9[178]121[137]1200
  107. 990 [139]l1[170]l9[178]147[175]d2[178]0[167]f1[178]130:[137]2930
  108. 1000 [139]l1[178]17[175]i%(1)[178][171]1[167]f1[178]103:[137]2930
  109. 1010 [139]l1[179][177]40[176]l9[179][177]37[137]1040
  110. 1020 f1[178]57:j[178]25:[139]i%(25)[177][171]1[167]j[178]31:f1[178]58
  111. 1030 [139]i%(j)[178][171]1[137]2930
  112. 1040 [139]l9[178]255[167][141]1260
  113. 1050 l2[178]l1:l1[178]l9:[139]l1[179]10[137]1090
  114. 1060 l5[178]l5[171]1:[139]l5[179][177]50[137]1080
  115. 1070 [129]j[178]17[164]23[169]2:i%(j)[178]0:[130]:i%(16)[178]0:g[178]0:b0[178]0:b2[178]0:f1[178]55:[141]4460
  116. 1080 [139]l5[178]0[167]f1[178]56:[141]4460:[129]j[178]16[164]21:i%(j)[178]0:[130]:l1[178]113:[137]330
  117. 1090 l6[178]l6[171]l:[139]l6[177]75[176]i%(33)[177][171]1[137]1110
  118. 1100 l6[178]1e9:i%(33)[178]0:i%(34)[178][171]1:f1[178]11:[141]4460
  119. 1110 [139]l6[179]0[167]f1[178]104:[137]4660
  120. 1120 [139]l6[178]75[167]f1[178]10:[141]4460
  121. 1130 [139](t%(l1)[175]32)[177]0[137]330
  122. 1140 [129]j[178]0[164]4:d%[178]d%(j):[139]d%[179]0[176]d%[178]l1[137]1180
  123. 1150 [139]d%[178]l2[167][139]l1[177]17[175](l1[179]58[176]l1[177]69)[167]d%[178]l1:[137]1170
  124. 1160 d%[178][187](1)[172]84[170]17:[139]d%[177]57[167]d%[178]d%[170]12
  125. 1170 d%(j)[178]d%
  126. 1180 [130]
  127. 1190 [137]330
  128. 1200 [139]b3[178]1[167]d[178]0:[137]890
  129. 1210 [139]t[178]1[175]i%(35)[178]l1[167]t[178]0:f1[178]110:[137]2930
  130. 1230 f1[178]105:[139]t[178]0[137]2930
  131. 1240 [139]i%(27)[178][171]1[167]b3[178]1:s%(66)[178]1:f1[178]19:[141]4460:[137]4590
  132. 1250 [137]1000
  133. 1260 [139]l1[178]44[137]1290
  134. 1270 [139]d[178]7[176][187](1)[177].1[137]1350
  135. 1280 l9[178]38:[137]1370
  136. 1290 [139][187](1)[179].5[137]1350
  137. 1300 l9[178]33:j[178][187](1):[139]j[179].2[137]1370
  138. 1310 l9[178]37:[139]j[179].4[137]1370
  139. 1320 l9[178]45:[139]j[179].6[137]1370
  140. 1330 l9[178]92:[139]j[179].8[137]1370
  141. 1340 l9[178]76:[137]1370
  142. 1350 [153]"(NULL)ou have crawled thru some little holes":l9[178]l1
  143. 1360 [153]"holes and ended up in the main passage."
  144. 1370 [142]
  145. 1380 k[178]b4
  146. 1390 [139]i%(26)[178]39[167]k[178]k[170]1
  147. 1400 j2[178][171]2:[139]d%(4)[177][178]0[175]i%(15)[177]0[167]j2[178]i%(15)
  148. 1410 v[178]10:[129]j[178]1[164]15:j1[178]i%(j)
  149. 1420 [139]j1[178][171]1[167]k[178]k[170]v[173]2:[137]1460
  150. 1430 [139]j1[178]7[167]k[178]k[170]v:[137]1450
  151. 1440 [139]j1[178]j2[167]k[178]k[170][181](v[173]4)
  152. 1450 [139]s%(j1)[177]0[167]k[178]k[170]1
  153. 1460 [139]j[178]5[167]v[178]20
  154. 1470 [130]
  155. 1480 [129]j[178]0[164]3:[139]d%(j)[179]0[167]k[178]k[170]6
  156. 1490 [130]
  157. 1500 k[178]k[171]r0[172]3[171]h[170](l1[177]10)[172]2
  158. 1510 j1[178]k:b$[178]" beginning":k[178]k[171]20:[139]k[179]0[137]1560
  159. 1520 b$[178]" novice":k[178]k[171]30:[139]k[179]0[137]1560
  160. 1530 b$[178]" seasoned":k[178]k[171]50:[139]k[179]0[137]1560
  161. 1540 b$[178]"n advanced":k[178]k[171]80:[139]k[179]0[137]1560
  162. 1550 b$[178]"n expert"
  163. 1560 [153]"(NULL)our score is";j1;"out of a possible"
  164. 1570 [153]"300, which rates you as a";b$
  165. 1580 [153]"adventurer."
  166. 1590 [139]k[179]0[137]1620
  167. 1600 [139]j1[177][178]300[167][153]"lenongratulations on a perfect score!"
  168. 1610 [137]1640
  169. 1620 [153]"(NULL)o achieve the next higher rating, you"
  170. 1630 [153]"will need";[171]k;"more points."
  171. 1640 [142]
  172. 1650 [141]1380:[137]420
  173. 1660 [139]l1[179][177]7[175]l1[179][177]26[137]1680
  174. 1670 l9[178]33[171]l1:[137]1050
  175. 1680 [153]"(NULL)othing happens.":[137]420
  176. 1690 [139]l1[179][177]7[175]l1[179][177]13[137]1680
  177. 1700 l9[178]20[171]l1:[137]1050
  178. 1710 [139]l1[179][177]26[175]l1[179][177]58[137]1680
  179. 1720 [139]i%(10)[178][171]1[167]i%(10)[178]58
  180. 1730 l9[178]84[171]l1:[137]1050
  181. 1740 f1[178]106:[139]k9[178]26[137]2930
  182. 1750 f1[178]107:[139]k9[179][177]31[176]l1[179]113[137]2930
  183. 1760 f1[178]82:[141]4460:[141]3710:[137]420
  184. 1770 f1[178]108:[139]k9[179][177]41[137]2930
  185. 1780 f1[178]109:[139]l1[178]80[137]2930
  186. 1790 [139]l1[179]113[137]1820
  187. 1800 f1[178]80:[141]4460
  188. 1810 f1[178]69:[137]4660
  189. 1820 [153]"right$ see no ";l$;" here.":[137]420
  190. 1830 [139]k9[178]16[175](t%(l1)[175]16)[177]0[137]2260
  191. 1840 d[178]0:[139]l1[178]19[167]d[178]7
  192. 1850 [139]l1[178]20[167]d[178]3
  193. 1860 [139]l1[178]60[167]d[178]2
  194. 1870 [139]l1[178]61[167]d[178]6
  195. 1880 [137]890
  196. 1890 [137]1680
  197. 1900 [139]l1[177]10[137]1680
  198. 1910 l9[178]7:[137]1050
  199. 1920 [139]l1[179]5[176]l1[177]9[137]1940
  200. 1930 l9[178]10:[137]1050
  201. 1940 [139]l1[179]12[176]l1[177]16[137]1680
  202. 1950 l9[178]11:[137]1050
  203. 1960 [139]l1[179]25[176]l1[177]32[137]1680
  204. 1970 l9[178]26:[137]1050
  205. 1980 [139]k9[178]18[167]f1[178]17:[137]2930
  206. 1990 [153]"(NULL)eculiar.  ";:[137]1680
  207. 2000 [139]l1[179][177]50[167]d[178]9:[137]890
  208. 2010 d[178]0:[139]p1[179][177]2[137]890
  209. 2020 l9[178]70:[137]920
  210. 2030 [139](t%(l1)[175]2)[178]0[137]1680
  211. 2040 f1[178]18:[141]4460:[137]4590
  212. 2050 [139]i%(21)[178]l1[175]i%(k9)[178]l1[167]i%(21)[178][171]1:i%(k9)[178][171]1:[137]2490
  213. 2060 [139]i%(21)[179][177][171]1[167]b$[178]"bottle":[137]2110
  214. 2070 [139]k9[178]6[167]f1[178]52:[137]2930
  215. 2080 [139](t%(l1)[175]16)[177]0[167]b0[178]1:i%(16)[178][171]1:i%(17)[178]0:[137]2130
  216. 2090 [139]l1[178]49[167]b0[178]2:i%(17)[178][171]1:i%(16)[178]0:[137]2130
  217. 2100 [137]2120
  218. 2110 [153]"(NULL)ou have no ";b$:[137]420
  219. 2120 [153]"(NULL)othing to fill here.":[137]420
  220. 2130 [153]"(NULL)he bottle is filled.":[137]420
  221. 2140 [139]i%(21)[179][177][171]1[137]2060
  222. 2150 [139]l1[178]50[175]i%(16)[179]0[137]2990
  223. 2160 [153]"(NULL)he bottle is empty."
  224. 2170 [139]i%(16)[170]i%(17)[178][171]1[167]f1[178]71:[141]4460
  225. 2180 b0[178]0:i%(17)[178]0:i%(16)[178]0:[137]420
  226. 2190 [139]k9[179][177]18[137]2220
  227. 2200 l[178]1:[139](t%(l1)[175]1)[178]0[137]330
  228. 2210 [137]2490
  229. 2220 [153]"right$ don't understand.":[137]420
  230. 2230 [139]k9[179][177]18[137]2220
  231. 2240 l[178]0:[137]2490
  232. 2250 [139]k9[179][177]16[176](t%(l1)[175]16)[178]0[137]2270
  233. 2260 f1[178]71:[137]2930
  234. 2270 [139]l1[178]6[176]l1[178]68[167]d[178]3:[137]890
  235. 2275 [139]l1[178]10[167]d[178]10:[137]890
  236. 2280 [137]1680
  237. 2290 [139]l1[178]7[176]l1[178]69[167]d[178]7:[137]890
  238. 2300 [137]1680
  239. 2310 [129]j[178]1[164]i1:[139]i%(j)[177][171]1[167][130]:[153]"(NULL)ou are carrying nothing.":[137]420
  240. 2320 j1[178]j:[153]"(NULL)ou have:":[129]j[178]i1[164]j1[169][171]1
  241. 2325 [139]i%(j)[178][171]1[175]j[179][177]27[167][153][163]9)iv$(j)"."
  242. 2330 [130]:[137]420
  243. 2340 [139]k9[178]16[176]k9[178]17[137]2050
  244. 2350 z8[178]0:[129]j[178]1[164]i1:[139]i%(j)[178][171]1[167]z8[178]z8[170]1
  245. 2360 [130]:[139]z8[179]7[176]k9[178]27[137]2380
  246. 2370 [153]"(NULL)ou're carrying too much.":[137]420
  247. 2380 f1[178]44:[139]k9[178]14[175]i%(36)[177]0[137]2930
  248. 2390 f1[178]38:[139](k9[178]12[176]k9[178]27[176]k9[178]28)[175]b1[178]0[175]i%(27)[178]l1[137]2930
  249. 2400 f1[178]116:[139](k9[178]12[176]k9[178]27)[175]c[178]0[137]2930
  250. 2410 [139]k9[178]42[167][139]l1[178]50[176]l1[177]112[167]f1[178]76:[137]2930
  251. 2420 [139]k9[178]32[175]i%(23)[178][171]1[167]f1[178]20:[137]2930
  252. 2430 [139]k9[179][177]32[176]i%(22)[179]0[137]2450
  253. 2440 f1[178]111:[137]2930
  254. 2450 [139]k9[177]34[167][153]"(NULL)ou must be joking!":[137]420
  255. 2460 i%(k9)[178][171]1
  256. 2470 [139]k9[178]21[175]b0[177]0[167]i%(b0[170]15)[178][171]1
  257. 2480 [139]k9[178]31[175]l1[178]113[167][153]"(NULL)k.":f1[178]81:[137]2930
  258. 2490 [153]"(NULL)k.":[137]420
  259. 2500 [139]k9[178]16[176]k9[178]17[137]2140
  260. 2505 [139]k9[177]34[137]2220
  261. 2510 i%(k9)[178]l1:[139]k9[178]21[175]b0[177]0[167]i%(15[170]b0)[178]l1
  262. 2520 [139]l1[177]112[167][141]4340:[139]i[179]0[167]i%(k9)[178]0
  263. 2530 [139]k9[178]16[176]k9[178]17[167]b0[178]0:i%(k9)[178]0
  264. 2540 [139]k9[178]22[175]i%(32)[178][171]1[167]i%(32)[178]l1
  265. 2550 [139]k9[178]4[175]l1[178]100[167]i%(k9)[178]0:i%(33)[178]l1:[137]2730
  266. 2560 [139]k9[179][177]6[137]2580
  267. 2570 [139]i%(29)[179][177]l1[167]f1[178]14:[141]4460:i%(k9)[178]0:i%(30)[178]l1
  268. 2580 [139]k9[178]32[137]3120
  269. 2590 [139]k9[179][177]27[176]t[177]0[176]i%(35)[179][177]l1[137]2490
  270. 2600 t[178]2:f1[178]31:[137]2930
  271. 2610 [139]k9[177]15[176]i%(35)[179][177]l1[137]2630
  272. 2620 i%(35)[178]121[171]l1:i%(k9)[178]0:t[178]1:f1[178]54:[137]2930
  273. 2630 [139]k9[178]20[175]i%(27)[178]l1[137]2960
  274. 2640 [139]k9[179][177]28[137]2500
  275. 2650 [139]i%(35)[178]l1[167]f1[178]16:[137]2930
  276. 2660 [139]i%(27)[178]l1[175]b1[178]0[167]f1[178]77:[137]2930
  277. 2670 [129]j[178]0[164]3:[139]d%(j)[179][177]l1[167][130]:[137]2500
  278. 2680 [139][187](1)[179].5[167][153]"(NULL)issed!":[137]2720
  279. 2690 [153]"(NULL)ou killed a little dwarf":j2[178]j:[129]j[178]1[164]3:[139]d%(j)[179]0[137]2710
  280. 2700 [130]:f1[178]40:[141]4460
  281. 2710 d%(j2)[178][171]1
  282. 2720 i%(28)[178]l1:j1[178]0
  283. 2730 [141]3890:[137]420
  284. 2740 [139]k9[179]i1[175]i%(k9)[179][177]l1[137]1820
  285. 2741 [139]k9[179][177]i1[137]2745
  286. 2742 [141]4390:[139]j1[178]0[137]1820
  287. 2745 [139]k9[179][177]36[137]2790
  288. 2750 [133]"(NULL)ith what? (NULL)our bare hands";a$
  289. 2760 [139]a$[178]"axe"[167]f1[178]99:[137]2930
  290. 2770 [139][198](a$)[179][177]89[137]440
  291. 2780 i%(36)[178]0:i%(38)[178]l1:f1[178]42:[137]2930
  292. 2790 [139]k9[178]35[167]f1[178]36:[137]2930
  293. 2800 [139]k9[178]38[167]f1[178]51:[137]2930
  294. 2810 [139]k9[178]32[167]i%(k9)[178]0:s%(23)[178]1:f1[178]64:[137]2930
  295. 2820 [139]k9[178]27[167]f1[178]78[170][180](b1):[137]2930
  296. 2830 f1[178]113:[139]k9[177]31[167]f1[178]112
  297. 2840 [137]2930
  298. 2850 [139]k9[178]25[176]k9[178]31[167]f1[178]98:[137]2930
  299. 2860 [139]k9[178]27[137]2950
  300. 2870 f1[178]39:[139]k9[177]31[167][145]k9[171]31[137]2890,2220,2220,2900,2910,2920,2930
  301. 2880 [137]2220
  302. 2890 f1[178]21:[137]2930
  303. 2900 f1[178]37:[137]2930
  304. 2910 f1[178]35:[137]2930
  305. 2920 f1[178]35:[139]i%(32)[178][171]1[137]2940
  306. 2930 [141]4460:[137]420
  307. 2940 i%(32)[178]0:f1[178]45:[137]2930
  308. 2950 b$[178]"food":[139]i%(20)[177][171]1[137]2110
  309. 2960 b1[178]1:i%(20)[178]0:f1[178]34:[137]2930
  310. 2970 b$[178]"water":[139]l1[179][177]50[137]620
  311. 2980 [139]i%(16)[177][171]1[137]2110
  312. 2990 i%(16)[178]0:b0[178]0:[139]p1[178]3[137]1680
  313. 3000 p1[178]p1[170]1:[139]p1[178]1[167]f1[178]32:[137]2930
  314. 3010 [139]p1[178]2[167]f1[178]33:[137]2930
  315. 3020 f1[178]72:[137]2930
  316. 3030 b$[178]"keys":[139]l1[178]10[176]l1[178]11[137]3050
  317. 3040 [139]l1[179][177]69[176][198](k$)[179][177]85[137]1680
  318. 3050 [139]i%(19)[177][171]1[137]2110
  319. 3060 [139]l1[178]69[137]3090
  320. 3070 g[178]0:[139][198](k$)[178]85[167]g[178]1
  321. 3080 [137]2490
  322. 3090 [139]b1[178]0[167]f1[178]38:[137]2930
  323. 3100 [139]c[178]0[167]c[178]1:b1[178]2
  324. 3110 f1[178]121:[137]2930
  325. 3120 [139]k9[179][177]32[137]3180
  326. 3130 [129]j[178]36[164]37:[139]i%(j)[178]l1[137]3150
  327. 3140 [130]j:i%(k9)[178]l1:[137]2490
  328. 3150 [139]j[178]36[137]3170
  329. 3160 i%(j)[178]0:i%(k9)[178]l1:f1[178]22:[137]2930
  330. 3170 i%(k9)[178]0:f1[178]23:[137]2930
  331. 3180 [139]k9[179][177]27[137]2220
  332. 3190 [139]i%(k9)[178][171]1[137]2500
  333. 3200 [139]c[178]0[167]k$[178]"u":[137]3030
  334. 3210 [137]2220
  335. 3220 [139]k9[179][177]23[137]1680
  336. 3230 [139][182](l1[171]19.5)[177]1[137]1680
  337. 3240 f1[178]114[170]b2:b2[178]1[171]b2:[137]2930
  338. 3260 [139]l1[178]10[176]l1[178]11[176]l1[178]114[167]k$[178]"u":[137]3030
  339. 3270 f1[178]117:[139]k9[179][177]25[175]k9[179][177]31[137]2930
  340. 3280 f1[178]118:[139]i%(9)[177][171]1[137]2930
  341. 3290 f1[178]63:[139]k9[178]31[137]2930
  342. 3300 i%(7)[178]43:i%(25)[178]0:i%(31)[178]l1:f1[178]41:[137]2930
  343. 3310 [139]l1[178]10[176]l1[178]11[137]3030
  344. 3320 [137]1680
  345. 3330 f1[178]119:[139]l1[179]113[137]2930
  346. 3340 f1[178]66:[139]l1[178]114[175]i%(24)[178]113[137]3370
  347. 3350 f1[178]67:[139]l1[178]113[175]i%(24)[178]0[137]3370
  348. 3360 f1[178]68
  349. 3370 b4[178](68[171]f1)[172]10[170]2:[137]4660
  350. 3380 [153]"(NULL)atch it!":[137]420
  351. 3390 [139]l1[178]113[167]f1[178]46:[141]4460:[137]1810
  352. 3400 [137]1680
  353. 3410 f1[178]47:[137]2930
  354. 3420 b$[178]"oil":[139]l1[178]50[167]f1[178]129:[137]2930
  355. 3425 [139]l1[179][177]73[137]620
  356. 3430 [139]d2[178]1[137]1680
  357. 3440 [139]b0[179]2[137]2110
  358. 3450 d2[178]1:i%(17)[178]0:b0[178]0:f1[178]43:[137]2930
  359. 3460 f1[178]122:[139]k9[179][177]20[137]2930
  360. 3470 i%(k9)[178]0:f1[178]123:[137]2930
  361. 3480 [139](t%(l1)[175]16)[177]0[167]f1[178]65:[137]2930
  362. 3490 f1[178]124:[139]k9[179][177]16[137]2930
  363. 3500 i%(k9)[178]0:f1[178]125:[137]2930
  364. 3510 [139]l1[179][177]71[137]1680
  365. 3520 [139]i%(8)[178]l1[176]i%(8)[178][171]1[167]i%(8)[178]0:f1[178]127:[137]2930
  366. 3530 i%(8)[178]l1:i%(35)[178]60:t[178]0:f1[178]126:[137]2930
  367. 3540 f9[178]2:f$[178]"":[160]6:[137]420
  368. 3550 f9[178]0:[137]420
  369. 3560 f9[178]1:[137]420
  370. 3570 [139](t%(l1)[175]4)[178]0[167]l4[178]0:[137]3730
  371. 3580 l4[178]l4[170]1
  372. 3590 f1[178]92:[139]l1[178]15[175]i%(32)[178]l1[175]i%(23)[178][171]1[175]l4[178]4[137]3670
  373. 3600 f1[178]88:[139]l1[178]39[175]l4[178]8[137]3670
  374. 3610 f1[178]96:[139]l1[179]9[175]l4[178]12[175]s%(13)[178]0[137]3670
  375. 3620 f1[178]86:[139]l1[177]87[175]l4[178]15[137]3670
  376. 3630 f1[178]84:[139]l1[178]58[175]l4[178]4[137]3670
  377. 3640 f1[178]94:[139]l1[178]10[175]l4[178]3[175]i%(19)[178]7[137]3670
  378. 3650 f1[178]90:[139]i%(37)[178]l1[175]l4[178]3[175]i%(32)[177][178]0[137]3670
  379. 3660 [137]3730
  380. 3670 [141]4460:[153]"on";:[133]z$:[139][198](z$)[179][177]89[167]l4[178]0:[137]3730
  381. 3680 [153]"right$ am prepared to give you a hint, but"
  382. 3690 [153]"it will cost you";(98[171]f1)[173]2;"points."
  383. 3700 [153]"str$o you want the hint";
  384. 3710 [133]z$:[139][198](z$)[179][177]89[167]l4[178]0:[137]3730
  385. 3720 h[178]h[170](98[171]f1)[173]2:f1[178]f1[170]1:[141]4460
  386. 3730 [142]
  387. 3740 [139]l1[178]100[167]f1[178]61:[141]4460:[139]i%[177]0[167]f1[178]62:[141]4460
  388. 3750 [139](t%(l1)[175]8)[178]0[137]3860
  389. 3760 [139]i%(1)[178][171]1[137]3790
  390. 3770 [139]l1[178]16[167][153]"(NULL)ough stone steps lead down to the pit."
  391. 3780 [139]l1[178]17[167][153]"(NULL)ough stone steps lead to the top of    the dome."
  392. 3790 [139]b2[178]0[176]l1[179]19[176]l1[177]20[176]l1[170]l2[178]39[137]3810
  393. 3800 [153]"atn crystal bridge spans the fissure."
  394. 3810 [139]l1[178]73[175]d2[178]0[167][153]"atn rusty door obstructs passage north."
  395. 3820 [139]l1[179]60[176]l1[177]61[176]l1[170]l2[178]121[137]3860
  396. 3830 [139]b3[178]1[167]f1[178]60:[141]4460:[137]3860
  397. 3840 f1[178]30:[141]4460
  398. 3850 [139]t[177]0[167][153]"(NULL)here is no sign of the troll."
  399. 3860 [141]4390:[139]d%(0)[179]0[176]j1[178]0[137]3890
  400. 3870 f1[178]12:[141]4460
  401. 3880 i%(28)[178]l1:[129]j[178]0[164]3:d%(j)[178]j[171]1:[130]
  402. 3890 [129]j[178]1[164]i1:[139]l1[179][177]i%(j)[137]3970
  403. 3900 [139]j[179][177]27[137]3920
  404. 3910 [139]b1[178]0[167]f1[178]131:[141]4460:[137]3970
  405. 3920 [139]j[178]35[175]t[179][177]0[137]3970
  406. 3930 [139]j[178]15[167]d%(4)[178][171]1
  407. 3940 [139]j[178]12[175]c[178]0[137]3970
  408. 3950 [139]j[178]21[175]b0[177]0[137]3970
  409. 3960 [153]i$(j):k8[178]j
  410. 3970 [130]
  411. 3980 [139]s%(40)[178]0[176]i%(15)[178]0[176]l5[179]99[137]4020
  412. 3990 [129]j[178]1[164]15:j2[178]i%(j):[139]j2[179]1[137]4010
  413. 4000 [139]s%(j2)[178]0[137]4020
  414. 4010 [130]:l5[178]60
  415. 4020 [139]l1[179]10[176]l1[177]11[137]4050
  416. 4030 [139]g[178]0[167][153]"(NULL)he grate is locked."
  417. 4040 [139]g[178]1[167][153]"(NULL)he grate is open."
  418. 4050 [139]l1[178]26[175][187](1)[177].7[167][153]"atn hollow voice says, 'plugh'."
  419. 4060 [139]l1[179][177]50[137]4080
  420. 4070 [139]p1[179]3[167]f1[178]73[170]p1:[141]4460
  421. 4080 [139]l1[179]47[176]l1[177]49[176](l2[177]46[175]l2[179]51)[137]4110
  422. 4090 [139]p1[178]1[176]p1[178]2[167]f1[178]132[170]p1:[141]4460
  423. 4110 [139]i%(27)[179][177]l1[137]4130
  424. 4120 [139]c[178]0[167]f1[178]132:[141]4460
  425. 4130 [141]4390:[139]j1[178]0[137]4170
  426. 4140 [139]j1[178]1[137]4160
  427. 4150 [153]"(NULL)here are";j1;"threatening dwarves here!":[137]4170
  428. 4160 [153]"(NULL)here is a threatening dwarf here!"
  429. 4170 [139]d%(4)[179][177]l1[137]4250
  430. 4180 j2[178]0:[129]j[178]1[164]14:[139]i%(j)[178][171]1[167]j2[178]j2[170]1
  431. 4190 [130]j:[139]j2[179]2[175][187](1)[179].3[167]f1[178]70:[141]4460
  432. 4200 [139]j2[179]2[137]4250
  433. 4210 f1[178]15:[141]4460
  434. 4220 i%[178]i%(15):[139]i%[178]0[167]i%[178][187](1)[172]10[170]102:i%(15)[178]i%
  435. 4230 [129]j[178]1[164]14:[139]i%(j)[178][171]1[167]i%(j)[178]i%
  436. 4240 [130]:d%(4)[178]i%
  437. 4250 [142]
  438. 4260 i[178]0:[139]k9[179][178]i1[167]i[178]i%(k9):[139]i[178][171]1[137]4330
  439. 4270 [139](k9[178]23[176]k9[178]33)[167][139]i%(k9[170]1)[178][171]1[167]k9[178]k9[170]1:i[178][171]1:[137]4330
  440. 4280 [139]i[178]l1[167]i[178][171]1:[137]4330
  441. 4290 [139]k9[178]16[175](t%(l1)[175]16)[177]0[167]i[178][171]1
  442. 4300 [139]k9[178]17[175]l1[178]49[167]i[178][171]1
  443. 4310 [139]i[177][178]0[175]l1[177]112[167][141]4340
  444. 4320 [139](k9[178]23[176]k9[178]33)[175]i[177][178]0[167]k9[178]k9[170]1:[137]4260
  445. 4330 [142]
  446. 4340 i[178]0:[139]l1[178]114[137]4370
  447. 4350 [139]k9[178]18[176]k9[178]21[176]k9[178]23[176]k9[178]31[167]i[178][171]1
  448. 4360 [142]
  449. 4370 [139]k9[178]22[176]k9[178]24[176]k9[178]29[176]k9[178]32[167]i[178][171]1
  450. 4380 [142]
  451. 4390 j1[178]0:[129]j[178]0[164]3:[139]d%(j)[178]l1[167]j1[178]j1[170]1
  452. 4400 [130]:[142]
  453. 4410 [141]4390:[139]j1[178]0[137]4450
  454. 4420 [153]"atn sharp knife is thrown at you!"
  455. 4430 [139][187](1)[177].2[172]j1[167][153]"right$t missed!":[137]4450
  456. 4440 [153]"right$t got you!":[137]4590
  457. 4450 [137]430
  458. 4460 f%[178]f1[173]10:f2[178]f1[171]f%[172]10
  459. 4470 f1$[178]"0:advf"[170][196](f%)
  460. 4480 [139]f$[178]f1$[175]f2[177]f3[137]4500
  461. 4490 [160]6:f$[178]f1$:[159]6,dv,6,f$
  462. 4500 f3[178]f2:[161]#6,z$:z[178][198](z$)[171]48[171]f3:[139]z[177]0[167][160]6:[142]
  463. 4510 [139]z[178]0[167]4560
  464. 4520 [158]900:[139]st[177]0[167][160]6:[142]
  465. 4530 [137]4500
  466. 4541 [161]#6,z$:[139]z$[179][177]"#"[175]z$[179][177]"]"[175]z$[179][177][199](108)[175]z$[179][177]"."[167][153]z$;:[137]4541
  467. 4545 [139]z$[178]"#"[167][142]
  468. 4550 [139]z$[178]"]"[167][151]53370,0:[129]j[178]1[164]1000:[130]:[151]53371,0:[137]4541
  469. 4555 [139]z$[178][199](108)[176]z$[178]"."[167][153]".";
  470. 4557 [139]z$[178][199](13)[176]z$[178][199](141)[167][153]
  471. 4560 [161]#6,z$:[139]z$[178]"#"[167]4545
  472. 4561 [139]z$[178][199](13)[167]4545
  473. 4565 [143]   ifasc(z$)>64andasc(z$)<91thenprintchr$(asc(z$)+128);:goto4541
  474. 4566 [153]z$;:[137]4560
  475. 4570 j1[178]1:s%(l1)[178]0:[137]340
  476. 4580 [137]360
  477. 4590 [129]j[178]1[164]i1:[139]i%(j)[178][171]1[167]i%(j)[178]l1
  478. 4600 [130]:[139]l6[179]25[176]l5[179]51[137]4650
  479. 4610 r0[178]r0[170]2:f1[178]r0[170]22:[141]4460:[133]z$
  480. 4620 [139][198](z$)[179][177]89[137]4670
  481. 4630 f1[178]r0[170]23:[141]4460:[139]r0[177]5[137]4670
  482. 4640 l1[178]7:i%(18)[178]6:l[178]0:[137]330
  483. 4650 f1[178]59
  484. 4660 [141]4460
  485. 4670 [141]1380:[160]6
  486. 4680 [160]15:[128]
  487. 5000 [159]16,dv,2,"0:advpos,s,r"
  488. 5020 [132]15,e$:[139]e$[179][177]"00"[167][153]"(NULL)o position saved!":[137]5900
  489. 5030 [129]y[178]1[164]114:[132]16,t%(y),s%(y):[130]
  490. 5040 [129]y[178]1[164]131:[132]16,k%(y):[130]
  491. 5050 [129]y[178]1[164]38:[132]16,i%(y):[130]
  492. 5070 [129]y[178]1[164]4:[132]16,d%(y):[130]
  493. 5080 [132]16,l1,l2,l3,l4,l5,l6,l7,l8,l9
  494. 5090 [132]16,a,a$,b,b1,b2,b3,b4,c,d
  495. 5100 [132]16,d2,d%,f1,f2,f3,f9,f$,f1$,f%
  496. 5110 [132]16,g,h,i,i1,i%,j,j1,j2
  497. 5120 [132]16,j3,j4,k,k1,k6,k7,k8,k9,k$
  498. 5130 [132]16,l,l1,l2,l4,l5,l6,l9,l$
  499. 5140 [132]16,m0,p1,r0,s1,t,v,x
  500. 5150 [132]16,z,z8,z$
  501. 5890 [160]16:[137]330
  502. 5900 [160]16:[137]420
  503. 6000 [152]15,"s0:advpos"
  504. 6020 [159]16,dv,2,"0:advpos,s,w":cr$[178][199](13)
  505. 6030 [129]y[178]1[164]114:[152]16,t%(y);cr$;s%(y);cr$;:[130]
  506. 6040 [129]y[178]1[164]131:[152]16,k%(y);cr$;:[130]
  507. 6050 [129]y[178]1[164]38:[152]16,i%(y);cr$;:[130]
  508. 6070 [129]y[178]1[164]4:[152]16,d%(y);cr$;:[130]
  509. 6080 [152]16,l1;cr$;l2;cr$;l3;cr$;l4;cr$;l5;cr$;l6;cr$;l7;cr$;l8;cr$;l9;cr$;
  510. 6090 [152]16,a;cr$;a$;cr$;b;cr$;b1;cr$;b2;cr$;b3;cr$;b4;cr$;c;cr$;d;cr$;
  511. 6100 [152]16,d2;cr$;d%;cr$;f1;cr$;f2;cr$;f3;cr$;f9;cr$;f$;cr$;f1$;cr$;f%;cr$;
  512. 6110 [152]16,g;cr$;h;cr$;i;cr$;i1;cr$;i%;cr$;j;cr$;j1;cr$;j2;cr$;
  513. 6120 [152]16,j3;cr$;j4;cr$;k;cr$;k1;cr$;k6;cr$;k7;cr$;k8;cr$;k9;cr$;k$;cr$;
  514. 6130 [152]16,l;cr$;l1;cr$;l2;cr$;l4;cr$;l5;cr$;l6;cr$;l9;cr$;l$;cr$;
  515. 6140 [152]16,m0;cr$;p1;cr$;r0;cr$;s1;cr$;t;cr$;v;cr$;x;cr$;
  516. 6150 [152]16,z;cr$;z8;cr$;z$;cr$;
  517. 6900 [160]16:[153]"(NULL)k.":[137]420
  518. 10000 d[178][194](186):n$[178]"0:adv.bas":[160]15:[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  519.