home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 43 / 043.d81 / az (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  25.0 KB  |  738 lines
  1. 1 ifmw%=0thenclr:goto100
  2. 2 onmw%goto22,101,102,103,104,511,13255,11056
  3. 3 pokegq,g2:pokegq,g3:return
  4. 5 restore:forzb=1toza:reada$:next:return
  5. 6 getyf$:ifyf$<>""then6
  6. 7 return
  7. 8 print"":forgy=1to4:print:gosub18
  8. 9 poke1863+40*gy,32:next:print"":return
  9. 10 a$="":b$="":c$="":goto6
  10. 15 get ks$:ifks$=""then15
  11. 16 goto10
  12. 18 print"                                       ";:return
  13. 20 rem
  14. 21 mw%=1:load"s"+mid$(str$(a),2),8,1
  15. 22 gosub8:sys32768-(3*(a>10)):gosub10:return
  16. 25 print"[146]";:gosub50:ifj<>10then28
  17. 26 getks$:ifks$=" "thengosub10:goto29
  18. 27 fora=1to2:gosub3:next:fora=1to99:next:goto26
  19. 28 fora=1toj:next
  20. 29 gosub30100:gosub10:print"[146]";:gosub8:return
  21. 40 b=int(a%/2)+1+18*(b%/12-1):f1=peek(36863+b):return
  22. 45 f1=f1+100*(f1>100):return
  23. 50 fora=0to24:pokezs+a,0:next
  24. 51 poke54273,220:poke54277,13:poke54287,60:poke54296,15
  25. 52 fora=1to12:poke54276,21
  26. 53 fora8=1to250:next:poke54276,20
  27. 54 fora=0to24:pokezs+a,0:next:return
  28. 55 i=-(f1>41):f1=f1-f1*i+i*2:ifb(3)=0orb(4)=0thenifh>10andf1<30thenf1=29
  29. 56 i=a%
  30. 57 poke679,f1:poke680,i:poke681,b%:sys32774+sk%:sk%=0:poke679,0:pokevc+21,0:return
  31. 60 gosub45:gosub55
  32. 61 poke50168,e2+2:poke53264,(24+8*a%)/256:poke53249,38+b%
  33. 62 poke53248,24+8*a%-256*peek(53264):pokevc+21,1
  34. 63 fora=1to10:next:return
  35. 65 pokevc+21,0:ifv=hthenreturn
  36. 66 ifo>peek(37098)-2then70
  37. 67 o=0:gosub8:gosub50:ifh>10thengosub50670:return
  38. 68 za=183:gosub5:forb=1tofnr(4):reada$,b$:next:gosub80:return
  39. 70 p1=p1+1:v=h:gosub30300:fora=1to4:f(a)=f(a)+1:next:o=0:return
  40. 75 k8=0
  41. 76 k8=k8+1
  42. 77 p=fnr(4):ifc(p)=0andk8<700then76
  43. 78 return
  44. 80 gosub8
  45. 81 u$=a$:gosub82:u$=b$:gosub82:u$=c$:gosub83:goto25
  46. 82 printtab(19.5-len(u$)/2)u$:return
  47. 83 printtab(19.5-len(u$)/2)u$;:return
  48. 100 gosub45000
  49. 101 rem
  50. 102 gq=54296:g2=15:g3=0
  51. 103 rem
  52. 104 poke53280,0:poke53281,0:print""
  53. 105 rempoke 37379,96
  54. 110 deffnr(x)=int(rnd(1)*x+1):dimb$(13),b(13),c(4),d(19),dx(4),f(4),g(4),h$(10)
  55. 111 dimj$(4),kd%(40)
  56. 115 e2=33:zs=54272
  57. 120 za=105:gosub5:forb=1to13:readb$(b):next
  58. 130 ifpeek(767)<>99then160
  59. 140 print"[147]":sys32771:g$="expb":ifpeek(762)=55theng$="expa"
  60. 150 gosub40100:c(peek(761))=peek(763):h=23:a%=21:b%=144:gosub30200:goto322
  61. 160 ifpeek(767)=55theng$="expa":goto190
  62. 170 ifpeek(767)=25theng$="expb":goto190
  63. 180 poke767,0:load"flint",8
  64. 190 gosub40100
  65. 200 sys32780
  66. 201 gosub55555
  67. 203 gq=54296
  68. 205 gosub15:ifks$<>"g"andks$<>"m"andks$<>"e"then205
  69. 206 print"[147]"
  70. 210 ifks$<>"e"then230
  71. 220 gosub40000:print"[147]          [208]ress a key to play,
  72. 221 [153][163]7)"or turn your computer off.":[151] 767,0:[141]15:[147]"flint",8
  73. 230 [139]ks$[179][177]"m"[167]310
  74. 240 [153]"load     (NULL)ove to right$quitos?  (NULL))es  (NULL))o":[141]15:[139]ks$[178]"n"[167]201
  75. 250 [139]ks$[179][177]"y"[167]240
  76. 260 [151]767,25:[139]g$[178]"expa"[167][151]767,55
  77. 270 g[178]0:[153]"load       ";
  78. 271 [129]a[178]1[164]4:[139]c(a)[178]0[167]j$(a)[178]"":g[178]g[170]1
  79. 280 [130]:u1[178]u1[170]g:[141]40000
  80. 290 [139]g[178]0[167][153]"(NULL)iding the paddle wheel":[153][163]11)"down the atnmazon":[147]"iquitos",8
  81. 300 [153]"asclying to (NULL)exas to recruit":[153][163]13)"replacements":[147]"flint",8
  82. 310 [139]ks$[179][177]"g"[167]201
  83. 320 h[178]6:a%[178]19:b%[178]108
  84. 322 j[178][194](765):[139]j[179]4[175]j[177]0[167]j[178]j[172]1000
  85. 325 [139]j[179]1000[167]j[178]10
  86. 500 [141]40200:a[178]h:[139]a[177]31[167]a[178]31
  87. 510 [158]32768[171](3[172](a[177]10)):mw%[178]6:[147]"s"[170][202]([196](a),2),8,1
  88. 511 [141]8:[141]10
  89. 512 r[178]1:[141]30000:[139]h[178]23[176]h[178]14[167]r[178]5:d[178]1
  90. 515 [139]h[178]19[176]h[178]28[167]r[178]2:l[178]0
  91. 520 [139]h[177]10[167]570
  92. 530 c[178][165]r(5)[170]1:[129]i[178]1[164]c
  93. 540 t[178][165]r(234):[139][194](36863[170]t)[179][177]2[167]540
  94. 550 [151]36863[170]t,42:[130]
  95. 570 [139]h[179]31[167]580
  96. 571 v[178]h:[141]8:[153]"   (NULL)he heat at this depth may cause"
  97. 572 [153][163]12)"hallucinations":[141]25:[141]30000
  98. 580 [139]v[178]h[175](h[179]11[176](b(3)[179][177]0[175]b(4)[179][177]0))[167][141]58000:[137]600
  99. 590 [141]40:[141]55
  100. 600 [151] 679,2
  101. 610 [151]680,2:[151]681,0:[151]682,2:[151]683,156:[158]37379
  102. 620 [151]680,149:[151]681,0:[151]682,149:[151]683,156:[158]37379:da%[178]0
  103. 630 [141]40:[137]1500
  104. 980 [141]80
  105. 990 [141]8:[141]30000
  106. 1000 [141]20000:[137]1020
  107. 1005 [141]6
  108. 1006 [141]60:[141]61:[161]ks$:[139]ks$[179][177]""[167]1050
  109. 1010 [141]20000:[139]fu%[178]1[167]11200
  110. 1015 [139]r[177]1[167]1006
  111. 1020 b1[178]b1[170]1:a[178][171](b1[177]40):b1[178]b1[171]b1[172]a:w[178]w[170]a:a[178][171](w[177]23):xx[178]xx[170]a:w[178]w[171]w[172]a
  112. 1021 [139] h[179][178]10 [176] a[179][177]1[167]1030
  113. 1022 b(4)[178]b(4)[170](b(4)[177]0):[139]b(4)[178]0[167][141]8:[153]"   (NULL)ut of batteries":[141]25
  114. 1030 [139]b1[178]0[167][141]8:[141]30000:[139]w[178]0[167][141]25000
  115. 1040 [137]1006
  116. 1050 [141]10
  117. 1060 [139]ks$[179][177]"c"[167]1100
  118. 1070 [139]h[179][177]6[176]b[179][177]154[167]26000
  119. 1080 [141]65:[137]200
  120. 1100 [139]ks$[178]"n"[167][141]27000:[141]45:[137]990
  121. 1110 h1[178]0:j1[178]0:i1[178]0:k1[178]0:af[178][198](ks$)[171][198]("h"):[139]af[179]1[176]af[177]5[167]1000
  122. 1120 o1[178]o1[170]1:[145]af[137]1130,1150,1160,1000,1140
  123. 1130 g1[178]1:h1[178]144:k1[178][171]12:zd[178]1:[139]b%[179]24[167]1200
  124. 1135 [137]1170
  125. 1140 g1[178][171]1:h1[178][171]144:k1[178]12:zd[178]2:[139]b%[177]144[167]1210
  126. 1145 [137]1170
  127. 1150 g1[178][171]2:i1[178]34:j1[178][171]2:zd[178]3:[139]a%[179]3[167]1220
  128. 1155 [137]1170
  129. 1160 g1[178]2:i1[178][171]34:j1[178]2:zd[178]4:[139]a%[177]33[167]1230
  130. 1170 zb[178]0:[139]h[177]10[175](b(3)[178]0[176]b(4)[178]0)[167][141]40:[141]45:zb[178]1
  131. 1175 f[178][194](37119[170]zd[170]4[172](f1[171]3[170]4[172](f1[177]20))):[139]zb[167]f1[178]29
  132. 1180 [139]h[177]10[167][139]f[178]0[167]1195
  133. 1182 a%[178]a%[170]j1:b%[178]b%[170]k1:tt[178]f1:[141]40:[139]f1[179]34[176](f1[177]100[175]f1[179]134)[167]1500
  134. 1184 f1[178]f1[170]100[172](f1[177]141):[139]f1[178]42[167]1500
  135. 1186 [139]f1[179]100[167][151]36863[170]b,f1[170]100
  136. 1188 [141]45:[141]55:[141]40
  137. 1190 a%[178]a%[171]j1:b%[178]b%[171]k1:f1[178]tt
  138. 1195 [141]8:[141]30000:[129]a[178]1[164]g2:[141]3:[130]:[141]20000:[137]1000
  139. 1200 [139]h[173]2[178][181](h[173]2)[176](h[177]10[175]b[179][177]10)[167]1195
  140. 1205 [137]1240
  141. 1210 [139](h[173]2[178][181](h[173]2)[175]h[179]11)[176](h[177]10[175]b[178]226)[167]1240
  142. 1215 [137]1195
  143. 1220 [139]h[179]3[176]h[177]10[175]b[179][177]109[167]1195
  144. 1225 [137]1240
  145. 1230 [139](h[179]11[175]h[177]8)[176](h[177]10[175]b[179][177]126)[167]1195
  146. 1240 [141]65:h[178]h[170]g1:a%[178]a%[170]i1:b%[178]b%[170]h1:[137]500
  147. 1500 [141]60:[141]40:i[178]f1[179]43:o[178]o[171]i:y[178]y[171]i:da%[178]da%[171]i:[151]36863[170]b,f1[171]100[172]i
  148. 1505 [141]50023:[153]" (NULL) "da%"cmd  "
  149. 1510 [139]h[177]30[167]1600
  150. 1520 [141]45:[139](r[177]1[175]f1[177]4[175]f1[179]16)[176]((r[178]3[176]r[178]4)[175]f1[178]27)[167]1000
  151. 1530 [145]f1[137]10000,10500,11000,11200,11500,11500,11500,11500,11500,11500,11500
  152. 1535 [145]f1[171]11[137]11500,11500,11500,11500,12000,12200,12400,12600,12800
  153. 1540 [145]f1[171]20[137]10000,10000,10000,10000,1000,13000,13200,14000,14200
  154. 1543 [139] f1[179][177]42[167]1000
  155. 1545 [137]14500
  156. 1600 [139]b[178]160[175]h[178]36[167]1700
  157. 1610 [139]b[178]185[167]11200
  158. 1620 zd[178]zd[170](zd[177]4)[172]a:zd[178]zd[171](zd[178]0):[145]zd[137]1630,1640,1650,1660
  159. 1630 a$[178]"06070809111415":[137]1670
  160. 1640 a$[178]"06070809101213":[137]1670
  161. 1650 a$[178]"05070910111315":[137]1670
  162. 1660 a$[178]"05070810111214
  163. 1670 gosub40:f1=val(mid$(a$,2*fnr(7)-1,2)):poke36863+b,f1:goto1000
  164. 1700 fora=1to3:gosub50:next:gosub8:za=192:gosub5:printtab(9)a$
  165. 1705 reada$:print" "a$;:reada$:print" "a$:reada$:print"  "a$
  166. 1710 gosub15:ifks$="n"thenzd=1:goto1750
  167. 1720 ifq2thenforp=1to4:x1=30:gosub30100:next:goto1750
  168. 1730 q2=1:fora=1to4:c(a)=40:next
  169. 1750 gosub8:gosub30000:goto1620
  170. 10000 ifh>10thengosub8:printtab(15)"[200]ot lava!":gosub25:ifb%>108then22060
  171. 10010 ifh>10thengosub75:c$=j$(p)+" has slipped in!":x1=c(p):goto980
  172. 10020 i=fnr(3):ifi<3then1000
  173. 10030 ifb(13)theni=fnr(50):ifi=40thengosub50100:goto980
  174. 10040 ifi=40thengosub80
  175. 10050 ifb(13)then1000
  176. 10060 i=fnr(5):za=i+53:gosub5:gosub75:gosub8:print"":gosub81
  177. 10065 onigoto10070,10070,10080,10100,10200
  178. 10070 za=58+fnr(6):gosub5:d$=a$:za=64+fnr(21):gosub5:e$=a$:l1=7:x1=2
  179. 10075 a$=j$(p)+" has been "+d$:b$="and has suffered":c$=e$+" injuries!":goto980
  180. 10080 a$=j$(p)+" has lost":b$="a pint of blood!":x1=1:goto980
  181. 10100 iffnr(3)=3then10120
  182. 10110 i=fnr(3):za=118+i:gosub5:b$=a$:a$=j$(p)+" has":l1=3*i:x1=1:goto980
  183. 10120 za=85+fnr(4):gosub5:b$="has "+a$:a$=j$(p):c$="and is lost!":x1=c(p):goto980
  184. 10200 a$="[206]o casualties"
  185. 10201 iffnr(4)=4thenx1=c(p):a$=j$(p)+" has been sucked under":gosub 50110
  186. 10210 goto980
  187. 10500 ifo1<6then1000
  188. 10510 o1=0:iffnr(7)<6then1000
  189. 10520 iffnr(5)<5then10600
  190. 10530 i=fnr(5):ifi>4then10600
  191. 10540 ifi=4andb(13)<1then1000
  192. 10550 ifb(11)=0andi=2then1000
  193. 10560 za=121:gosub5:forb=1toi:reada$,b$,c$:next:gosub80
  194. 10561 onigoto10562,10570,10572,10580
  195. 10562 s1%=0:s2%=0:forb=1tofnr(2)+1
  196. 10563 i=fnr(2):t=fnr(13):s3%=20*i+t:ifs3%=s1%ors3%=s2%then10563
  197. 10564 s1%=s2%:s2%=s3%:ifi=1andb(t)<4thenb(t)=b(t)+1:b$=b$(t):a$="":goto10566
  198. 10565 za=145+fnr(38):gosub5:gosub50:b$=a$:a$=""
  199. 10566 gosub80:next:goto990
  200. 10570 b(11)=0:goto990
  201. 10572 ifb(8)>0thenb(8)=b(8)-1:goto990
  202. 10574 ifb(5)>0thenb(5)=0:goto990
  203. 10576 ifb(1)>0thenb(1)=0:goto990
  204. 10578 ifb(7)>0thenb(7)=b(7)-1:goto990
  205. 10580 b(13)=b(13)+(b(13)>0):goto990
  206. 10600 i=fnr(20):ifi>18theni=2
  207. 10610 za=35+i:print"";:gosub5:gosub80:iff(4)<5orc(4)=0then10700
  208. 10620 ifi>7andi<10thengosub50620:c$="[206]o injuries":goto980
  209. 10630 iff(4)>6andi>15andi<18thena$="[217]our guard saw it,":gosub 50630:goto980
  210. 10700 gosub75:onigoto15000,15000,10710,10720,10780,10710,10080,10860,10830
  211. 10705 oni-9goto10860,10810,10760,10750,10880,10880,10910,10910,10920
  212. 10710 l1=1:x1=2:a$=j$(p)+" has been bitten":b$="and is poisoned!":goto980
  213. 10720 ifb(6)>=pthena$="[206]obody bitten!":goto980
  214. 10730 a$=j$(p)+" has no mosquito net, and":b$="has been bitten!":gosub80
  215. 10735 iffnr(2)=2then10760
  216. 10740 r$="malaria":l1=2:goto10770
  217. 10750 r$="plague!":l1=3:goto10770
  218. 10760 r$="yellow fever":l1=4
  219. 10770 a$=j$(p)+" has "+r$:x1=1:goto980
  220. 10780 iffnr(25)<>5then10790
  221. 10785 a$=j$(p)+" has been":b$="crushed and swallowed!":x1=c(p):goto980
  222. 10790 a$=j$(p)+" has been squeezed":b$="a little":x1=1:goto980
  223. 10810 ifb(12)=0then990
  224. 10820 a$="[193] day's supply of your food":b$="has been contaminated!"
  225. 10825 b(12)=b(12)-1:goto980
  226. 10830 i=fnr(18):ifi=5ori=17then10830
  227. 10840 za=64+i:gosub5:b$="and has a damaged "+a$:a$=j$(p)+" has been caught,"
  228. 10845 x1=1:ifza=70thenx1=c(p)
  229. 10850 l1=5:goto980
  230. 10860 za=64+fnr(21):gosub5:b$="punctured "+a$:a$=j$(p)+" has a":x1=2
  231. 10865 ifza=70thenx1=c(p)
  232. 10870 l1=7:goto980
  233. 10880 a$=j$(p)+" has":b$="minor stings":x1=1
  234. 10885 iffnr(2)=2thenb$="multiple stings":x1=2
  235. 10890 goto980
  236. 10910 a$=j$(p)+" has been bitten,":b$="and has rabies!":l1=8:x1=1:goto980
  237. 10920 a$=j$(p)+" has been":b$="badly bitten!":x1=1
  238. 10925 iffnr(2)=2thenb$="badly gored!":x1=2
  239. 10930 l1=7:goto980
  240. 11000 ifb(2)>0then11010
  241. 11003 gosub10:a$="[217]ou've discovered the top of":b$="some stairs, but you have no"
  242. 11005 c$="tools for excavation":goto980
  243. 11010 gosub8:gosub50:print"    [217]ou've excavated some stairs"
  244. 11015 printtab(12)"[196])own  [204])eave"
  245. 11020 gosub15:ifks$="l"then990
  246. 11030 ifks$<>"d"then11020
  247. 11040 ifh<>23thengosub65:h=h+10:goto500
  248. 11050 pokevc+21,0:gosub8:printtab(9)"[200]ey! [201]t's a slide!":printtab(14)"[215]heee---":gosub25
  249. 11055 mw%=8:load"s43",8,1
  250. 11056 gosub8:sys32771:gosub10
  251. 11060 h=43:sys32771:printtab(5)"[196]anger!! [197]xtreme temperature!!"
  252. 11070 r=6:fora=5to7:b(a)=0:next:b(9)=0:fora=11to13:b(a)=0:next
  253. 11080 printtab(5)"[217]our equipment is burning!!":gosub25:goto1000
  254. 11200 ifb(2)>0then11210
  255. 11202 a$="[217]ou've found the bottom of":b$="some stairs up, but you have"
  256. 11205 c$="no tools to dig with":goto980
  257. 11210 gosub8:gosub50:printtab(11)"[211]tairs  [213])p  [204])eave"
  258. 11220 gosub15:ifks$="l"then990
  259. 11230 ifks$<>"u"then11220
  260. 11240 gosub65:h=h-10+10*(h=33):gosub8:gosub30000:goto500
  261. 11500 i=fnr(30):ifi<9orh<11orh>30oro1<26then1000
  262. 11510 o1=0:ifi<12then11600
  263. 11520 r$="  [202]aguar":ifh>20thenr$="[195]rocodile"
  264. 11530 gosub8:printtab(6)r$" cult priests![146]":gosub25:goto15000
  265. 11600 ifb(3)=0orb(4)=0then1000
  266. 11610 gosub50:gosub8:print"  [211]omething leaps from the dark, and"
  267. 11612 print"   dashes your lamp to the floor!":b(3)=b(3)-1
  268. 11614 ifb(3)=0thenprinttab(10)"[212]here's no spare!!":sys32771:gosub25:goto990
  269. 11620 printtab(6)"[204]uckily you have a spare!":gosub25:goto990
  270. 12000 gosub10:fora=2to10:forb=1toa:gosub3:next:forzb=1to20:next:next
  271. 12005 rem getks$:ifks$<>""then1000
  272. 12010 gosub8:printtab(5)"[217]ou've tripped a mechanism!"
  273. 12020 print"  [212]he stone drops from beneath your"
  274. 12030 print"  feet, and you fall into darkness!":gosub25:gosub65:h=h+10:goto500
  275. 12200 l=156:a$="[212]he floor moves beneath your feet!"
  276. 12210 b$="[217]ou've tripped a mechanism,"
  277. 12220 c$="and you hear the roar of water!":r=3:goto980
  278. 12400 gosub75:a$="[193] volcanic bore hole!!":b$=j$(p)+" has fallen in,"
  279. 12410 c$="and is burned to a crisp!":x1=c(p):goto980
  280. 12600 ifzd<>1thenf1=6:goto1000
  281. 12610 gosub8:printtab(9)"[212]he hall is blocked":gosub25:gosub30000:goto1190
  282. 12800 gosub75:a$="[193] pit of vipers!":b$=j$(p)+" is poisoned!":x1=1:l1=1:goto980
  283. 13000 gosub75:a$="[193] deep sacrifical well!":b$=j$(p)+" has slipped in"
  284. 13005 ifb(5)=0thenc$="and you have no rope!":x1=c(p):goto980
  285. 13010 iffnr(3)=3thenc$="and your rope breaks!":b(5)=b(5)-1:x1=c(p):goto980
  286. 13020 gosub80:c$=j$(p)+" is saved!":goto980
  287. 13200 gosub8:printtab(15)"[193] crypt!"
  288. 13205 ifb(2)=0thenprinttab(6)"[217]ou need tools to open it.":gosub25:goto990
  289. 13210 printtab(5)"[217]ou may: [207])pen it  [204])eave it"
  290. 13215 gosub15:ifks$="l"then990
  291. 13220 ifks$<>"o"then13215
  292. 13230 onfnr(9)goto13240,13250,13360,13240,13400,13400,13400,13400,13400
  293. 13240 gosub8:print" [193] thick green gas fills the crypt!"
  294. 13242 printtab(8)"[212]he crew falls asleep,":printtab(7)"awakening much weakened."
  295. 13244 gosub25:forp=1to4:x1=3:gosub30100:next:goto990
  296. 13250 gosub8:print"  [193] thin yellow gas fills the crypt."
  297. 13251 printtab(5)"[212]he crew hallucinates, and"
  298. 13252 print"   stumbles blindly through the halls!":gosub25
  299. 13253 gosub65:h=fnr(30):a=h:mw%=7:load"s"+mid$(str$(a),2),8,1
  300. 13255 gosub8:sys32768-(3*(a>10)):gosub10:gosub40:iff1<30then13280
  301. 13260 b=b+1:ifb>234thenb=1
  302. 13270 b%=((b/18)+1)*12:a%=((b-int(b/18)*18)*2)-1:goto13255
  303. 13280 gosub40200:gosub8:gosub30000:r=1:ifh=23orh=14thenr=5:d=1
  304. 13290 goto515
  305. 13360 iffnr(4)<3then13240
  306. 13370 gosub8:printtab(8)"[193] flourescent red gas":printtab(11)"fills the room!"
  307. 13375 printtab(11)"[205]adness erupts!":forb=1to4:gosub50:next:gosub26
  308. 13380 gosub75:gosub8:printtab(12-len(j$(p))/2)j$(p)" runs to a well"
  309. 13385 printtab(12)"and leaps in!":x1=c(p):gosub25:goto990
  310. 13400 gosub8:sys32786
  311. 13402 gosub40500:a=2*(h-11)+1-(a%>15):g=kd%(a):ifg=2thenkd%(a)=1:gosub40400
  312. 13405 sys32783:ifg>3thenifd(1)<>0thengosub53405:goto980
  313. 13410 a$="[195]ryptographs on the walls read"
  314. 13415 onggoto13420,13430,13470,13480,13490,13500,13510,13520,13530,13540
  315. 13420 a$="[212]his crypt has been robbed":b$="by vandals.  [212]here is nothing here."
  316. 13425 goto980
  317. 13430 za=4+fnr(31):gosub5:r$="gold":iffnr(2)=2thenr$="diamond"
  318. 13440 ifa$<>"crude crystal"thena$=r$+" "+a$
  319. 13450 fora=1to10:ifh$(a)=""thenh$(a)=a$:a=10
  320. 13460 next:r$="discovered":t$=a$:goto14560
  321. 13470 d(1)=0:a$="[212]he mummy holds a clay tablet"
  322. 13473 b$="translating [201]ncan cryptographs into"
  323. 13476 c$="[211]panish.  [217]ou can now read [201]ncan.":goto980
  324. 13480 b$="'[211]uccess begins when one and one half"
  325. 13485 c$="equals one and one half more'":goto980
  326. 13490 b$="'[193]ll stairs begin the same":c$="when the journey is true'":goto980
  327. 13500 b$="'[193]ll walls have portals":c$="for those with patience'":goto980
  328. 13510 b$="'[194]eware the second temptation!'":goto980
  329. 13520 b$="'[212]he old ones are found when":c$="ten eighths follows 1'":goto980
  330. 13530 b$="'[211]eek the fountain before the door'":goto980
  331. 13540 b$="'[212]ravel from 4 to 5 but return to [203]a'":goto980
  332. 14000 fora=1to3:gosub50:next:r=4:gosub8:printtab(10)"[214]olcanic eruption!!"
  333. 14010 gosub25:l=80:n=78:v1=3.47:v2=3.9:goto990
  334. 14200 ifau<>0then1000
  335. 14210 a$="[193] mosaic on the floor reads":au=1:b$="'[201][201] [201]'":goto980
  336. 14500 g=0:fora=1to10:g=g-(h$(a)=""):next:i=fnr(4)
  337. 14505 if(i>2andb(2)=0)org=0then1000
  338. 14510 gosub8:printtab(16)"[193] find!!":gosub25:restore:fora=1toi:readr$:next
  339. 14515 za=fnr(23)+4:gosub5:t$=a$
  340. 14520 a$="clay":iffnr(2)=2thena$="silver"
  341. 14530 a$=a$+" ":ift$="crude crystal"thena$=""
  342. 14540 t$=a$+t$:fora=1to10:ifh$(a)=""thenh$(a)=t$:a=10
  343. 14550 next
  344. 14560 gosub8:u$="[217]ou've "+r$:gosub82:u$="a "+t$:gosub82:gosub10:gosub26:ifh>10then990
  345. 14570 gosub40:poke36863+b,102:goto990
  346. 15000 aa=fnr(20)+2:gosub10:uh=0:e=0:iffnr(3)<3then15100
  347. 15050 gosub8:printtab(6)"[201]t's an ambush!":gosub25:uh=1:goto16000
  348. 15090 fora=1to4:dx(a)=0:next
  349. 15100 forab=1to4:ifc(ab)=0then15900
  350. 15110 ifaa=0then15900
  351. 15120 gosub8:print"  [205]ember"tab(12)"[197][204]"tab(18)"[207]ptions"tab(30)"[194]   [199]  [206]"
  352. 15125 print"  "j$(ab)tab(11)c(ab)tab(16);:a$="[208] [199] [193][160][203][160][196][160][210]"
  353. 15130 ifb(11)=0thenza=3:gosub40300
  354. 15140 ife<3thenza=7:gosub40300
  355. 15150 za=5:ifab<>4thengosub40300
  356. 15160 ifb(9)=0thengosub40300
  357. 15170 ifb(10)=0thengosub40300:a$=" "+right$(a$,10)
  358. 15180 printa$tab(28-(len(str$(b(10)))=2))b(10)tab(33)b(11);
  359. 15190 ifuhthenife<3thenprinttab(37)"?":goto15210
  360. 15200 printtab(36)aa
  361. 15210 gosub15:ix$=ks$:ifix$<>"p"then15300
  362. 15220 ifb(10)=0thengosub8:printtab(10)"[207]ut of ammunition[146]":gosub25:goto15900
  363. 15230 gosub50023:print"[211]hots?";
  364. 15240 gosub15:a=asc(ks$)-asc("0"):ifa<1ora>9then15900
  365. 15250 ifix$="p"anda>6thena=6
  366. 15260 ifix$="a"thena=a*20
  367. 15270 ifa>b(10)thena=b(10)
  368. 15280 b(10)=b(10)-a:gosub17000:gosub50023:print"[211]hots:"mid$(str$(a),2);
  369. 15290 print"    [200]its:"mid$(str$(i),2);:gosub25:goto15900
  370. 15300 ifix$="d"thendx(ab)=1:goto15900
  371. 15310 ifix$<>"a"then15400
  372. 15320 ifb(9)=0orab<4thengosub50023:printtab(10)"[217]ou don't have one":gosub25:goto15900
  373. 15330 ifb(10)=0then15220
  374. 15340 gosub50023:print"[195]lips? (20/clip)";:goto15240
  375. 15400 ifix$<>"k"then15500
  376. 15410 i=0:ife=3thena=2:gosub17000
  377. 15420 a$=str$(i)+" killed":gosub80:goto15900
  378. 15500 ifix$<>"g"then15600
  379. 15510 ifb(11)=0thengosub50023:printtab(10)"[217]ou don't have one":gosub25:goto15900
  380. 15520 a=10:b(11)=b(11)-1:gosub17000:a$=str$(i)+" killed"
  381. 15525 ife>2thengosub75:a$=a$+", "+j$(p)+" also killed!":x1=c(p)
  382. 15530 gosub50023:printtab(19-len(a$)/2)a$:gosub25:goto15900
  383. 15600 ifix$<>"r"then15210
  384. 15610 gosub65:h=fnr(30):a=h:mw%=7:load"s"+mid$(str$(a),2),8,1
  385. 15620 goto13255
  386. 15900 next:a=fre(0):ifaa=0then18000
  387. 16000 e=e-(e<3):onegoto16010,16020,16030
  388. 16010 a$="shooting arrows":goto16040
  389. 16020 a$="throwing spears":goto16040
  390. 16030 a$="knife attack"
  391. 16040 gosub8:print"[206]atives:";:ifuh=0ore=3thenprintaa;:goto16060
  392. 16050 print" ? ";
  393. 16060 print"   [193]ction: "a$"[146]"
  394. 16070 ife=3then16500
  395. 16080 c=0:f=4:ifaa<fthenf=aa
  396. 16090 ford=1tof:f%=4/f-aa/20:f%=f%-(f%<0):iffnr(f%)=1thengosub16300:c=c+1
  397. 16100 next:ifc=0thengosub25:gosub50023:printtab(13)"[206]o injuries":gosub25
  398. 16110 goto15090
  399. 16300 gosub75:ifdx(p)thenc=c-1:return
  400. 16310 gosub50021:fora=1to3:print:print"                                       ";:next
  401. 16311 gosub50022
  402. 16313 printtab(12-len(j$(p))/2)j$(p)" has been hit!":x1=2
  403. 16316 ifc(p)-2<1thengosub25:return
  404. 16320 l1=7:printtab(16)"[197][204]:"c(p)-2"[146]";:gosub25:return
  405. 16500 g=4:ifaa<gtheng=aa
  406. 16510 forc=1tog:gosub75:za=fnr(16)+89:gosub5:c$=a$:b$=j$(p)+" has been":x1=1
  407. 16515 ifc(p)-1>0thenc$=c$+"   [197][204]:"+str$(c(p)-1)
  408. 16520 a$="":gosub80:next:goto15090
  409. 17000 k=f(ab)*.05*a:k=int(k+(1/d(19)*2)):ifa<kthenk=a
  410. 17010 i=fnr(a):ifi<ktheni=k
  411. 17020 ifaa<itheni=aa
  412. 17030 aa=aa-i:return
  413. 18000 gosub8:printtab(9)"[212]he natives are defeated!":uh=0:gosub25:pp=pp+1
  414. 18001 ifh<11andpp=3thenpp=0
  415. 18005 e=0:c=fnr(11):c$=b$(c):ifc=8then18005
  416. 18010 ifh>10andpp=5thenpp=0
  417. 18020 ifpp=0thenfora=1to4:f(a)=f(a)+1:next
  418. 18030 g=fnr(6):ifg>2andh>10then18100
  419. 18040 ifc$="bullets"thenc$="clip of bullets"
  420. 18050 ifc$="tools"thenc$="set of tools"
  421. 18060 iffnr(2)=1thenza=fnr(38)+145:gosub5:c$=a$:goto18080
  422. 18070 b(c)=b(c)+1-19*(c=10)
  423. 18080 a$="":b$="[212]he natives were carrying":c$="a "+c$:zj=j:j=10:gosub80:j=zj:goto990
  424. 18100 x=0:fori=2to18:ifd(i)thenx=i:i=18
  425. 18110 next:ifx=0then18040
  426. 18120 onxgosub18040,18200,18210,18220,18230,18240,18250,18260,18270,18280,18290
  427. 18125 ifx>11thenonx-11gosub18300,18310,18320,18330,18340,18350,18360
  428. 18130 c$="'"+c$+"'":a$="[212]he natives were carrying a scrap"
  429. 18132 b$="of parchment.  [201]t reads"
  430. 18135 ifd(1)<>0thenc$="'>!!<?* #**<<! [198][210][206][203]-[198][210][206][203] --..//?'"
  431. 18140 ifd(1)=0thend(x)=0
  432. 18150 zj=j:j=10:gosub80:j=zj:goto990
  433. 18200 c$="1 is 3":return
  434. 18210 c$="[217]ankee go home":return
  435. 18220 c$="2 is 4":return
  436. 18230 c$="3 is 2":return
  437. 18240 c$="[204]eft is more from 4 over 4":return
  438. 18250 c$="5 over 4 every verse will win":return
  439. 18260 c$="[193] bath is nice, but twice?":return
  440. 18270 c$="[195]he' no more":return
  441. 18280 c$="[211]uccess begins at the bottom":return
  442. 18290 c$="4 is 4":return
  443. 18300 c$="[211]he recommends the water":return
  444. 18310 c$="13 is a moving number":return
  445. 18320 c$="5 is 2":return
  446. 18330 c$="[204]eave alive-don't climb from 35":return
  447. 18340 c$="6 is 3":return
  448. 18350 c$="[211]equence in pairs to find the path":return
  449. 18360 c$="[200]ammer? [211]tep light-at end step right":return
  450. 20000 fu%=0:onrgosub20010,20030,21000,22000,23000,24000
  451. 20005 iffu%=1then11200
  452. 20010 return
  453. 20030 l=l+1:ifl<3thenreturn
  454. 20040 g=b%:y1=f1:fora=5to7:gosub20100:next:f1=5:gosub57:i=17:gosub57
  455. 20045 fora=8to10:gosub20100:next:b%=g:ifa%=13ora%=17thenl=0:goto20070
  456. 20050 f1=y1:ifl>3thenl=0
  457. 20060 return
  458. 20070 gosub8:za=196:gosub5:printtab(10)""a$:reada$:printtab(11)a$:gosub25:forp=1to4
  459. 20080 x1=8:gosub30100:next:gosub8:gosub30000:goto20050
  460. 20100 i=13:b%=a*12:f1=25:gosub57:i=17:gosub57:f1=29:gosub57:i=13:gosub57:return
  461. 21000 poke679,3
  462. 21001 fora=1to2
  463. 21002 poke680,4:poke681,l:poke682,147:poke683,l:sys37379
  464. 21003 l=l-1:next:ifl>b%-12thenreturn
  465. 21010 fora=1to4:gosub50:next:gosub8:printtab(9)"[212]he halls are flooded!":gosub25
  466. 21020 forp=1to4:c(p)=0:next:goto30200
  467. 22000 poke679,2:forz=1to5:s=fnr(v1):y1=fnr(v2):ifz=5thens=v1:y1=v2
  468. 22002 poke680,l:poke681,n:poke682,l+s:poke683,n+y1:sys37379
  469. 22004 poke680,l:poke681,n:poke682,l-s:poke683,n+y1:sys37379
  470. 22006 poke680,l:poke681,n:poke682,l+s:poke683,n-y1:sys37379
  471. 22008 poke680,l:poke681,n:poke682,l-s:poke683,n-y1:sys37379
  472. 22012 poke680,l:poke681,n:poke682,l+s-10:poke683,n+y1-10:sys37379
  473. 22014 poke680,l:poke681,n:poke682,l-s+10:poke683,n+y1-10:sys37379
  474. 22016 poke680,l:poke681,n:poke682,l+s-5:poke683,n-y1+5:sys37379
  475. 22018 poke680,l:poke681,n:poke682,l-s+5:poke683,n-y1+5:sys37379
  476. 22020 next
  477. 22030 v1=v1+3.47:v2=v2+3.9:ifl+v1>=279orl-v1<0thenv1=v1-3.5
  478. 22040 ifn+v2>=156orn-v2<=0thenv2=v2-4
  479. 22050 ifn+v2<b%orl+v1<a%*3.5thenreturn
  480. 22060 gosub8:fora=1to3:gosub50:next:printtab(15)"[200]ot lava!":gosub25
  481. 22070 forp=1to4:x1=8:gosub30100:next:gosub8:gosub30000:goto1006
  482. 23000 ifa%<>19thenreturn
  483. 23010 aa=f1:g=b%:b%=60-(g>84)*24-(g>108)*24
  484. 23015 ondgoto23040,23060,23030,23020,23050,23070
  485. 23020 b%=b%+24
  486. 23030 gosub23100
  487. 23040 gosub23100:goto23080
  488. 23050 gosub23100
  489. 23060 b%=b%+24:goto23040
  490. 23070 d=0:gosub23100:goto23030
  491. 23080 d=d+1:b%=g:f1=aa:return
  492. 23100 i=15:f1=39:gosub57:gosub3:i=17:gosub57:gosub3:i=19:gosub57:gosub3:ifb%=gthengosub23200
  493. 23110 i=19:f1=6:gosub57:gosub3:i=17:f1=29:gosub57:return
  494. 23200 gosub8:print" [217]ou've been crushed by [201]matu's hammer!":gosub25
  495. 23210 forp=1to4:x1=4:gosub30100:next:gosub8:gosub30000:return
  496. 24000 gosub40:ifb=208thenfu%=1:return
  497. 24010 ifb<>212thenforp=1to4:x1=1:gosub30100:next:gosub8:gosub30000:return
  498. 24020 pokevc+21,0:gosub8:printtab(16)"[199]as!!":poke760,b(10)/4:l1=0:gosub25:sys32771
  499. 24025 fora=1to2000:next
  500. 24030 gosub8:printtab(15)"[193] chute!":gosub25:gosub75
  501. 24040 poke761,p:poke762,25-30*(right$(g$,1)="a"):poke763,c(p):sys32780
  502. 24050 gosub40000:load"me",8
  503. 25000 a$="[193] day has passed"
  504. 25010 ifb(12)>0thengosub80:goto25020
  505. 25013 a$=a$+", and":b$="you're out of food.":c$="[197]veryone grows weaker!":gosub80
  506. 25016 forp=1to4:x1=fnr(5)+g(p):gosub30100:next:goto25025
  507. 25020 forp=1to4:x1=g(p):gosub30100:next:b(12)=b(12)+(b(12)>0)
  508. 25025 gosub8:gosub30000:return
  509. 26000 gosub8:printtab(9)"[205])edical aid  [210])adio":printtab(9)"[197])quipment  [202])ungle"
  510. 26005 printtab(10)"[211])peed of message
  511. 26010 [141]20000:[139]r[177]1[167][129]a[178]1[164]426:[130]
  512. 26011 [161]ks$:[139]ks$[179][177]""[167]26015
  513. 26012 [137]26010
  514. 26015 [139]ks$[178]"e"[167]26100
  515. 26020 [139]ks$[178]"m"[167]26200
  516. 26030 [139]ks$[178]"s"[167]26300
  517. 26040 [139]ks$[178]"r"[167]26400
  518. 26050 [139]ks$[179][177]"j"[167]26010
  519. 26060 [137]990
  520. 26100 [141]8:[129]zb[178]1[164]13:[153][163]17[171][195](b$(zb))[173]2)b$(zb)" "b(zb)
  521. 26110 [153][163]17)"(NULL))ext"
  522. 26120 [141]15:[139]ks$[179][177]"n"[167]26120
  523. 26130 [141]8:[130]:[137]26000
  524. 26200 [139]c(2)[178]0[167]a$[178]"":b$[178]"(NULL)our medic is dead!":[141]80:[137]26000
  525. 26205 [139]b(1)[178]0[167]26265
  526. 26210 x[178]0:[129]p[178]1[164]4:z[178]19[171][195](j$(p))[173]2:[139]c(p)[178]0[167]26280
  527. 26215 [139]g(p)[177]0[167]c$[178]"  (d&d ("[170][202]([196](g(p)),2)[170]"))":[137]26230
  528. 26220 [139] [168](c(p)[179]6[176](c(p)[179]40[175]c(p)[179]2[172]f(p)))[167]26280
  529. 26230 [141]8:[153]b(1)"medical kits in stock.":[153]j$(p)"  val(NULL):"c(p)" "c$
  530. 26231 [153]"chr$ive aid?  (NULL))es  (NULL))o"
  531. 26235 [141]15:[139]ks$[178]"n"[167]26285
  532. 26240 [139]ks$[179][177]"y"[167]26235
  533. 26245 x1[178]0:[141]8:[153][163]z[171]5)"(NULL)orking on "j$(p):[141]25:g(p)[178]0
  534. 26250 b[178]2[172]f(p):[139]b[179]6[167]b[178]6
  535. 26255 [139]b[177]40[167]b[178]40
  536. 26260 [139]c(p)[179]b[167]c(p)[178]b
  537. 26265 b(1)[178]b(1)[170](b(1)[177]0):[139]b(1)[177]0[167]26270
  538. 26266 [141]8:[141]50:[153][163]11)"(NULL)ut of medicine":[141]25:[137]26000
  539. 26270 [137]26285
  540. 26280 [141]8:[141]50:[153][163]8)"(NULL)nable to give aid to":[153][163]z)j$(p):[141]25
  541. 26285 [130]p:[141]8:[153][163]9)"(NULL)edical aid complete":[141]25:[137]26000
  542. 26300 [141]8:[153][163]6)"(NULL)elect message speed factor"
  543. 26305 [153]" (NULL))anual  1)fast  2)medium  3)slow"
  544. 26310 [141]15:[139]ks$[178]"m"[167]j[178]10:[151]765,10:[137]26000
  545. 26320 a[178][197](ks$):[139]a[179]1[176]a[177]3[167]26310
  546. 26330 j[178]a[172]1400:[151]765,a:[137]26000
  547. 26400 [141]8:[153][163]4)"(NULL)adio for a chopperlet? (NULL))es (NULL))o"
  548. 26405 [141]15:[139]ks$[178]"n"[167]26000
  549. 26410 [139]ks$[179][177]"y"[167]26405
  550. 26415 [139]t1[179]2000[167]r$[178]"(NULL)ou haven't the price":[137]26462
  551. 26420 [139]b(7)[178]0[167]r$[178]"(NULL)o radio":[137]26462
  552. 26425 [139]h[177]10[167]r$[178]"(NULL)o service underground":[137]26462
  553. 26430 [139]c(3)[178]0[167]r$[178]"(NULL)o radio operator":[137]26462
  554. 26435 t1[178]t1[171]2000:[141]8:[153][163]6)"lenopter flight to base camp":[141]25
  555. 26440 [141]65:a%[178]19:b%[178]108:h[178]6:[137]500
  556. 26462 [141]8:[153][163]19[171][195](r$)[173]2)""r$:[141]25:[137]26000
  557. 27000 [141]8:[139]b(8)[178]0[167]a$[178]"(NULL)o loran equipment":[137]27040
  558. 27010 [139]c(3)[178]0[176]f(3)[179]5[167]a$[178]"(NULL)o qualified loran operator":[137]27040
  559. 27020 [153]"(NULL)ap sec.:"h[163]27)"(NULL)quare:";:[141]40:[153]b
  560. 27025 a[178][171](h[177]10)[171](h[177]20)[171](h[177]30):[153]a"level";:[139]a[179][177]1[167][153]"s";
  561. 27030 [153]" below jungle":n1[178]1:rr[178]1:[141]25:[142]
  562. 27040 [153]:[153][163]5)a$:[141]25:[142]
  563. 30000 [141]50021:[153]" left$ "w[163]9);:[129]a[178]1[164]4:[139]c(a)[177]0[175]c(a)[179]3[167][153]"";
  564. 30010 [153][202]([196](c(a)),2)"wait  ";:[130]:[153][163]28)"right$   len)amp"
  565. 30020 [153]" str$ "xx[163]26)"<mid$ (NULL)>":[153]" (NULL) "da%[163]28)"(NULL)   (NULL))av":[142]
  566. 30100 [139]l1[179][177]0[167]g(p)[178]g(p)[170]1:l1[178]0
  567. 30105 [139]p[177]4[167][142]
  568. 30110 [139]x1[178]0[176]c(p)[178]0[167][142]
  569. 30120 c(p)[178]c(p)[171]x1:x1[178]0:[139]c(p)[179]1[167]c(p)[178]0:[137]30130
  570. 30125 [142]
  571. 30130 [141]8:[153][163]12[171]([195](j$(p))[170]1)[173]2)""j$(p)" is dead!":[141]25
  572. 30200 b[178]0:[129]a[178]1[164]4:b[178]b[171](c(a)[178]0):[130]:[129]a[178]1[164]999:[130]
  573. 30205 [139]b[179]4[167]e2[178]33[171]b:[141]60:[141]40:[141]45:[141]55:[141]30000:[142]
  574. 30210 [158]32780:[151]vc[170]21,0:[153]"load":[141]50:[153][163]9)"(NULL)our crew is dead!"
  575. 30220 [153][163]4)"(NULL)our expedition is cancelled!":[129]a[178]1[164]4:j$(a)[178]"":[130]
  576. 30230 [141]40000:[137]180
  577. 30300 [139]h[177]30[167][142]
  578. 30310 [139]h[179]11[167]k$[178]l$:c[178]h:[137]30330
  579. 30320 k$[178]n$:c[178]h[171]10:[139]h[177]20[167]k$[178]o$:c[178]h[171]20
  580. 30330 zc$[178][201](k$,12[171]c):[139]c[178]10[167]zc$[178]"0"
  581. 30340 k$[178][200](k$,c)[170]"6"[170]zc$:[139]h[179]11[167]l$[178]k$:[142]
  582. 30350 [139]h[177]20[167]o$[178]k$:[142]
  583. 30360 n$[178]k$:[142]
  584. 40000 [159]3,8,3,"@:"[170]g$[170]",s,w"
  585. 40001 [129]b[178]1[164]4:[152]3," "[170]j$(b):[152]3,g(b):[152]3,f(b):[152]3,c(b):[130]
  586. 40002 [152]3,w:[152]3,xx:[152]3,s1:[152]3,p1:[152]3,t1:[152]3,y:[152]3,u1
  587. 40003 [129]b[178]1[164]13:[152]3,b(b):[130]:[152]3,l$:[152]3,n$:[152]3,o$
  588. 40004 [129]b[178]1[164]19:[152]3,d(b):[130]:[129]b[178]1[164]10:[152]3,h$(b)[170]" ":[130]:[160] 3:[142]
  589. 40100 [159]2,8,2,g$[170]",s,r"
  590. 40101 [129]b[178]1[164]4:[132]2,j$(b):[132]2,g(b):[132]2,f(b):[132]2,c(b):[130]
  591. 40102 [132]2,w:[132]2,xx:[132]2,s1:[132]2,p1:[132]2,t1:[132]2,y:[132]2,u1
  592. 40103 [129]b[178]1[164]13:[132]2,b(b):[130]:[132]2,l$:[132]2,n$:[132]2,o$
  593. 40104 [129]b[178]1[164]19:[132]2,d(b):[130]:[129]b[178]1[164]10:[132]2,h$(b):[130]:[160] 2:[142]
  594. 40200 g[178]h[170]10[172]((h[177]10)[170](h[177]20)):k$[178]l$:[139]h[177]10[167]k$[178]n$:[139]h[177]20[167]k$[178]o$
  595. 40210 v[178]0:[139][197]([202](k$,g[170]1,1))[167]v[178]h
  596. 40220 [142]
  597. 40300 a$[178][200](a$,za[171]1)[170]" "[170][201](a$,11[171]za):[142]
  598. 40400 [159]4,8,4,"@:"[170]g$[170]"c,s,w"
  599. 40410 [129]a[178]1[164]40:[152]4,kd%(a):[130]:[160]4:[142]
  600. 40500 [159]4,8,4,g$[170]"c,s,r"
  601. 40510 [129]a[178]1[164]40:[132]4,kd%(a):[130]:[160]4:[142]
  602. 45000 n[178]4:za[178]197:[141]5
  603. 45010 [134]m(n),pc(n),m1(n),m2(n)
  604. 45020 a[178]800
  605. 45030 [129]i[178]1[164]n:ad[178]a[172]64[170](i[171]1)[172]64
  606. 45040 [135]m,pc(i),m1(i),m2(i):m(i)[178]m[175]1:[129]k[178]0[164]63:[135]m:[151]ad[170]k,m:[130]:[130]
  607. 45050 vc[178]53248:[151]vc[170]39,pc(1)
  608. 45060 [151]vc[170]23,0:[151]vc[170]29,0
  609. 45070 [151]vc[170]28,0:[142]
  610. 50021 [153]"":[142]
  611. 50022 [141]50021:[153]:[142]
  612. 50023 [141]50022:[153]:[142]
  613. 50100 a$[178]"(NULL)ou've hit a rock,":b$[178]"and your boat has sunk!":b(13)[178]b(13)[171]1
  614. 50101 [139]b(13)[167]c$[178]"(NULL)ucky you have a spare!"
  615. 50102 [142]
  616. 50110 b$[178]"and can't be saved.":[142]
  617. 50620 a$[178]"(NULL)our guard saw it,":b$[178]"just in time!":[142]
  618. 50630 b$[178]"and shot it before anyone":c$[178]"could be injured":[142]
  619. 50670 [141]50021:[153]"  (NULL)omething leaps from the dark, and"
  620. 50671 [153][163]8)"snatches your map!":[141]25:[142]
  621. 53405 a$[178]"(NULL)here are cryptographs on the":b$[178]"wall, but you can't read them.":[142]
  622. 55555 [153]"load               peekase camp
  623. 55556 print"               *********
  624. 55557 [153]"               (NULL)ou may:
  625. 55558 print"          [199])o to the jungle
  626. 55559 [153]"           (NULL))ove to right$quitos
  627. 55560 print"            [197])xit the game
  628. 55561 [129]x[178]1[164]39[169]2:yj[178]1:[141]56565:yj[178]24:[141]56565:[130]
  629. 55562 [129]yj[178]4[164]22[169]2:x[178]1:[141]56565:x[178]39:[141]56565:[130]
  630. 55563 [142]
  631. 56565 [153][200]("",yj);
  632. 56566 [153][200]("",x)"-=cmdcmd><";:[142]
  633. 58000 [158]37376:[142]
  634. 60000 [131]found,discovered,unearthed,excavated,bird,jar,beaker,urn,cup,bowl
  635. 60002 [131]pot,alpaca,crocodile,jaguar,bat,llama,monkey,deity,knife,spoon,axe
  636. 60004 [131]bracelet,armlet,crude crystal
  637. 60010 [131]breastpin,earring,necklace,wristband,pendant,amulet,mask,crown
  638. 60012 [131]helmet,sunburst,shield,"mid$ivaros","atnmazons",ciega snake!
  639. 60014 [131]mosquito cloud!,anaconda!,tarantulas!,vampire bats!,a pit!,snare trap!
  640. 60020 [131]"atn hidden native hurls a spear!",cockroaches!,ticks!,fleas!,bees!
  641. 60022 [131]wasps!,rabid monkey!,rabid bats!,crazed capybaras!
  642. 60024 [131]piranhas!,crocodile!,blood sucking leeches!,a strong undertow!
  643. 60026 [131]quicksand!,chewed on,bitten,attacked,nibbled on,munched on,snacked on
  644. 60030 [131]ear,foot,hand,arm,leg,eye,neck,nose,thigh,elbow,toe,finger,shoulder
  645. 60032 [131]knee,wrist,thumb,ankle,chest,back,head,lip,sunk,disappeared
  646. 60034 [131]gone under,drowned,speared,stabbed,speared
  647. 60040 [131]punched out and poleaxed,tripped and axed,slashed with a machete
  648. 60042 [131]kneed and knifed,tackled and trounced,flipped and stabbed
  649. 60044 [131]cornered and clubbed,knifed and spit on,bashed,slashed
  650. 60050 [131]nicked with a knife,mauled by a native,cast down and clubbed
  651. 60052 [131]med. kit,tools,lamp,battery,rope,mosq. net,sw radio,loran,a/rifle
  652. 60054 [131]bullets,grenade,food/day,boat
  653. 60060 [131]been soaked and caught cold,been soaked and caught pneumonia!
  654. 60062 [131]swallowed dysenteric river water!,"(NULL)ou've stumbled on a native"
  655. 60064 [131]"camp, and found",one or two useful (less) items!
  656. 60070 [131]"atn native slipped into your camp","with stealth, and stole all"
  657. 60072 [131]of your grenades,"(NULL)hile you slept, natives","crept into your camp, and"
  658. 60080 [131]took something!,"(NULL)hen you return to the"
  659. 60082 [131]"river, you won't find your boat"
  660. 60084 [131]"there. (NULL)he wily devils did it again!!!"
  661. 60086 [131]field asst.,medic,radio op.,guard
  662. 60090 [131]is poisoned,has malaria,has plague,has broken bones,has yellow fever
  663. 60092 [131]has pneumonia,is badly wounded,has rabies
  664. 60100 [131]shrunken head,plumber's helper,can of beans,broken mirror
  665. 60102 [131]ball point pen,speak 'n' spell,roto rooter gift certificate
  666. 60104 [131]"(NULL)right$(NULL) button","picture of val(NULL)","bust of peekeethoven",used flea collar
  667. 60106 [131]rubik's revenge,"str$r. (NULL)pock book"
  668. 60110 [131]"(NULL)r. (NULL)icrophone","peekeatles record","lenhevy hubcap","lenoke bottle"
  669. 60112 [131]"(NULL)acman lunchbox","bottle of (NULL)errier",flicked bic,frisbee
  670. 60114 [131]"mid$ack atnrmstrong code ring",stuffed penguin
  671. 60120 [131]pet rock,"tarjeta de beisbol: (NULL)uis atnparicio",box of hamburger helper
  672. 60121 [131]"picture of ascabian",whoopee cushion,"empty vallvis decanter"
  673. 60122 [131]jar of non-dairy creamer,can opener,burned sparkplug
  674. 60124 [131]funny nose glasses,sony walkman
  675. 60127 [131]used medical kit,mood ring,broken shovel,hostess twinky
  676. 60130 [131]"atn monkey grabs the map of this","sector, and escapes in the trees!"
  677. 60132 [131]"(NULL)he sector map is ruined in a","sudden rainstorm!"
  678. 60134 [131]"atn sudden wind blows the map","of this sector into the campfire!"
  679. 60136 [131]"atnn overripe mango falls on the",map of this sector and ruins it!
  680. 60140 [131]"atn fountain of black","peekeneath,a plaque:","to left$.(NULL)ider's spirit"
  681. 60142 [131]"(NULL)ill you bathe? (NULL)r do you fear it?"
  682. 60144 [131]"(NULL)he rolling stones",have crushed your bones
  683. 61000 [131] 128,1,0,0,0
  684. 61010 [131] 0,0,0,0,0
  685. 61020 [131] 0,0,0,0,0
  686. 61030 [131] 0,1,128,0,3
  687. 61040 [131] 192,0,3,192,0
  688. 61050 [131] 1,128,0,0,0
  689. 61060 [131] 0,0,0,0,0
  690. 61070 [131] 0,0,0,0,0
  691. 61080 [131] 0,0,0,0,0
  692. 61090 [131] 0,0,0,0,0
  693. 61100 [131] 0,0,0,0,0
  694. 61110 [131] 0,0,0,0,0
  695. 61120 [131] 0,0,0,0,0
  696. 61130 [131] 0,0,0,128,1
  697. 61140 [131] 0,0,0,0,0
  698. 61150 [131] 0,0,0,0,0
  699. 61160 [131] 0,0,0,0,12
  700. 61170 [131] 48,0,30,120,0
  701. 61180 [131] 30,120,0,12,48
  702. 61190 [131] 0,0,0,0,0
  703. 61200 [131] 0,0,0,0,0
  704. 61210 [131] 0,0,0,0,0
  705. 61220 [131] 0,0,0,0,0
  706. 61230 [131] 0,0,0,0,0
  707. 61240 [131] 0,0,0,0,0
  708. 61250 [131] 0,0,0,0,0
  709. 61260 [131] 0,0,0,0,0
  710. 61270 [131] 0,128,1,0,0
  711. 61280 [131] 0,0,0,0,0
  712. 61290 [131] 0,0,0,0,0
  713. 61300 [131] 0,0,49,140,0
  714. 61310 [131] 123,222,0,123,222
  715. 61320 [131] 0,49,140,0,0
  716. 61330 [131] 0,0,0,0,0
  717. 61340 [131] 0,0,0,0,0
  718. 61350 [131] 0,0,0,0,0
  719. 61360 [131] 0,0,0,0,0
  720. 61370 [131] 0,0,0,0,0
  721. 61380 [131] 0,0,0,0,0
  722. 61390 [131] 0,0,0,0,0
  723. 61400 [131] 0,0,0,0,128
  724. 61410 [131] 1,0,0,0,0
  725. 61420 [131] 0,24,24,0,60
  726. 61430 [131] 60,0,60,60,0
  727. 61440 [131] 24,24,0,0,0
  728. 61450 [131] 0,0,0,0,24
  729. 61460 [131] 24,0,60,60,0
  730. 61470 [131] 60,60,0,24,24
  731. 61480 [131] 0,0,0,0,0
  732. 61490 [131] 0,0,0,0,0
  733. 61500 [131] 0,0,0,0,0
  734. 61510 [131] 0,0,0,0,0
  735. 61520 [131] 0,0,0,0,0
  736. 61530 [131] 0,0,0,0,0
  737. 61540 [131] 0,0
  738.