home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 43 / 043.d81 / iquitos (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  7.3 KB  |  257 lines
  1. 0 ifz3=7then53420
  2. 1 clr:v2$="":sp$="                                       "
  3. 2 dimd$(13),c(19),a(13),b(13):fora=1to13:readd$(a),b(a):next:restore:jf=peek(766)
  4. 3 e$(1)="[198]ield assistant":e$(2)="[205]edic":e$(3)="[210]adio operator":e$(4)="[199]uard"
  5. 4 gosub50000:ifpeek(767)=55thenf$="a":og$="expa":gosub760:goto116
  6. 6 f$="b":og$="expb":gosub760:goto116
  7. 10 goto53400
  8. 12 gosub 1000
  9. 20 gosub2010:printv2$tab(11)"[194][146])uy [211][146])ell [216][146])it   ";
  10. 22 gosub2000
  11. 24 m$=g$:ifm$="b"then42
  12. 26 ifm$="s"then32
  13. 28 ifm$<>"x"then22
  14. 30 goto116
  15. 32 printv2$sp$v2$tab(9)"[197][146])quipmento o [193][146])rtifactos ?";
  16. 34 gosub2000
  17. 36 ifg$="e"then42
  18. 38 ifg$<>"a"then34
  19. 40 goto188
  20. 42 printv2$sp$v2$tab(6)"?[209]ue nombre, por favor?";
  21. 44 gosub2000
  22. 46 b=asc(g$)-64:ifb<1orb>13then44
  23. 48 goto52
  24. 50 gosub500
  25. 51 fora=1to5000:next:goto 12
  26. 52 ifm$="b"thengosub56:goto60
  27. 54 ifm$="s"thengosub110:goto60
  28. 56 b$=chr$(b+192):printleft$(v2$,b+8)b$") "d$(b)tab(13)"$"mid$(str$(b(b)),2);
  29. 57 ifa(b)=0thenprint:return
  30. 58 printtab(22)d$(b)tab(34)"("mid$(str$(a(b)),2)")":return
  31. 60 printv2$sp$v2$tab(7)"?[209]uanto, amigos?    [216])it";
  32. 62 gosub2000
  33. 64 ifg$="x"thengosub114:goto20
  34. 66 e=gg:ife<1ore>9then62
  35. 68 ifm$="s"then102
  36. 70 ife*b(b)>ithen50
  37. 72 ifb=10ande*b(b)*20>ithen50
  38. 74 z7=0:onbgosub90,82,86,86,82,86,78,78,78,94,90,90,82:ifz7=1then12
  39. 76 goto100
  40. 78 ife+a(b)>1then98
  41. 80 return
  42. 82 ife+a(b)>2then98
  43. 84 return
  44. 86 ife+a(b)>4then98
  45. 88 return
  46. 90 ife+a(b)>8then98
  47. 92 return
  48. 94 e=e*20:ife+a(b)>200then98
  49. 96 return
  50. 98 printv2$sp$v2$tab(14)"overloaded[146]";:forb=1to1500:next:z7=1:return
  51. 100 a(b)=a(b)+e:i=i-b(b)*e:gosub114:goto20
  52. 102 ifb=10thene=e*20
  53. 103 ife<=a(b)then108
  54. 104 print"[147]          [206]o gracias, bandito":fora=1to2600:next:goto12
  55. 108 a(b)=a(b)-e:i=i+e*(b(b)/2):gosub114:goto20
  56. 110 goto1100
  57. 111 datamed kit,30,tools,50,lamp,100,battery,50,rope,50,mosq. net,100,sw radio
  58. 112 data2000,loran,99900,a/rifle,20000,bullet,2,grenade,200,food/day,100,boat
  59. 113 data2000
  60. 114 goto1140
  61. 116 poke53281,3:poke53280,3:print"[144]":gosub2500
  62. 117 gosub2000
  63. 118 ifg$<>"v"andg$<>"m"andg$<>"r"andg$<>"g"andg$<>"e"then117
  64. 119 print"[147]"
  65. 120 rem
  66. 122 ifg$<>"v"then134
  67. 124 print"[147][201]llustration?   [217])es   [206])o"
  68. 126 getay$:ifay$=""then126
  69. 128 ifay$="y"then10
  70. 130 ifay$<>"n"then126
  71. 132 goto 12
  72. 134 ifg$="r"then160
  73. 136 ifg$="g"thengosub212:goto30
  74. 138 ifg$<>"m"then152
  75. 140 print"[147]     [205]ove to base camp?  [217])es  [206])o
  76. 142 [141]2000
  77. 144 [139]g$[178]"y"[167][151]766,jf:[137]150
  78. 146 [139]g$[179][177]"n"[167]142
  79. 148 [137]30
  80. 150 [153]"load       (NULL)iding the paddle wheel":[141]1500
  81. 151 [141]1510:[147]"az",8
  82. 152 [139]g$[179][177]"e"[167]117
  83. 154 [141]186:[141]256:[141]1540
  84. 156 [141]2000
  85. 158 [147]"hello",8
  86. 160 [141]1600
  87. 170 [141]2000
  88. 172 [139]g$[178]"e"[167]178
  89. 174 [139]g$[178]"x"[167]30
  90. 176 [137]170
  91. 178 [141]1780
  92. 180 [141]2000
  93. 182 [139]g$[178]"x"[167]160
  94. 184 [137]180
  95. 186 [137] 840
  96. 188 f[178]0:l[178]0:[153]"load":[129]a[178]1[164]10:b[178][187](1)[172]1000[170]1000:[139]f$(a)[178]""[167]200
  97. 190 a$[178][200](f$(a),1):f[178]1:[139]a$[178]"c"[167]b[178]10
  98. 192 [139]a$[178]"s"[167]b[178][187](1)[172]100[170]100
  99. 194 [139]a$[178]"g"[167]b[178][187](1)[172]500[170]500
  100. 196 [141]1960
  101. 198 l[178]l[170]b:[153][163]4)f$(a)" "[163]22)c$b$
  102. 200 [130]:[141] 2010:[139] f[178]0[167][141]3000:[137]12
  103. 202 [153]v2$sp$v2$[163]7)"left$okay amigo?   (NULL))es (NULL))o
  104. 204 gosub2000
  105. 206 ifg$="n"then12
  106. 208 ifg$<>"y"then204
  107. 210 i=int(i+l):fora=1to10:f$(a)="":next:g=int(g+l):goto12
  108. 212 iff(2)=0thena$="[217]our medic is dead!":goto218
  109. 214 ifa(1)=0then244
  110. 216 goto220
  111. 218 print"[147]"tab(19-(len(a$)/2))a$:gosub5000:return
  112. 220 m=0:forp=1to4:r=19-len(h$(p))/2:iff(p)=0then248
  113. 222 c$="":ifd(p)>0thenc$="(d&d ("+mid$(str$(d(p)),2)+"))":goto228
  114. 224 iff(p)<6or(f(p)<40andf(p)<2*e(p))then228
  115. 226 goto248
  116. 228 print"[147]"a(1)"medical kits in stock.":gosub 2280
  117. 230 gosub2000
  118. 232 ifg$<>"n"andg$<>"y"then230
  119. 234 ifg$="n"then250
  120. 236 gosub44444:gosub2360
  121. 238 iff(p)<bthenf(p)=b
  122. 242 iff(p)>40thenf(p)=40
  123. 244 a(1)=a(1)+(a(1)>0):ifa(1)=0thena$="[207]ut of medicine":goto 218
  124. 246 goto250
  125. 248 print"[147]":gosub2480:print"        "a$tab(r)b$:gosub5000
  126. 250 nextp:a$="[205]edical aid complete":goto218
  127. 256 gg$=og$:og$=og$+og$:gosub186:og$=gg$:return
  128. 500 print"[147]          [196]espense' mi amigo"
  129. 501 printtab(7)"[217]ou mus' hab mas dinero!"
  130. 502 ifb=10thenprint" (bullets come in clips of 20 for $40)
  131. 503 [142]
  132. 760 [159]2,8,2,og$[170]",s,r"
  133. 761 [129]b[178]1[164]4:[132]2,h$(b):[132]2,d(b):[132]2,e(b):[132]2,f(b):[130]
  134. 762 [132]2,c:[132]2,d:[132]2,g:[132]2,h:[132]2,i:[132]2,j:[132]2,k
  135. 763 [129]b[178]1[164]13:[132]2,a(b):[130]:[132]2,i$:[132]2,j$:[132]2,k$
  136. 764 [129]b[178]1[164]19:[132]2,c(b):[130]:[129]b[178]1[164]10:[132]2,f$(b):[130]:[160] 2:[142]
  137. 840 [159]3,8,3,"@:"[170]og$[170]",s,w"
  138. 841 [129]b[178]1[164]4:[152]3,h$(b):[152]3,d(b):[152]3,e(b):[152]3,f(b):[130]
  139. 842 [152]3,c:[152]3,d:[152]3,g:[152]3,h:[152]3,i:[152]3,j:[152]3,k
  140. 843 [129]b[178]1[164]13:[152]3,a(b):[130]:[152]3,i$:[152]3,j$:[152]3,k$
  141. 844 [129]b[178]1[164]19:[152]3,c(b):[130]:[129]b[178]1[164]10:[152]3,f$(b)[170]" ":[130]:[160] 3:[142]
  142. 1000 [153]"load          atnmazon trading post":[153][163]11)"(NULL)edro chr$omez, (NULL)gr."
  143. 1001 [153][163]11)"****************":[153]"  (NULL)tock list"[163]26)"valxpedition"
  144. 1002 [153]"   & price"[163]16)"cash"[163]24)"property & qty":l$[178][202]([196](i),2)
  145. 1003 [153][163]16)"$"l$:[129]b[178]1[164]39:[153]".";:[130]:[153]
  146. 1004 [129]b[178]8[164]21:[153][200](v2$,b)[163]19)".":[130]
  147. 1005 [129]b[178]1[164]13:b$[178][199](b[170]192):[153][200](v2$,b[170]8)b$") "d$(b)[163]13)"$";
  148. 1006 [153][202]([196](b(b)),2);:[139]a(b)[178]0[167][153]:[137]1008
  149. 1007 [153][163]22)d$(b)[163]34)"("[202]([196](a(b)),2)")"
  150. 1008 [130]:[142]
  151. 1100 b$[178][199](b[170]192):[153][200](v2$,b[170]8)b$") "d$(b)[163]13)"$";
  152. 1101 [153][202]([196](b(b)),2)[163]22);:[141]2020:[153][200](v2$,b[170]8)[163]22);
  153. 1102 [153]""d$(b);[163]38[171][195]([196](b(b)[173]2)))"$"[202]([196](b(b)[173]2),2)"wait";:[141]2020
  154. 1103 [142]
  155. 1140 [153][200](v2$,b[170]8)"                                     "
  156. 1141 b$[178][199](b[170]192):[153][200](v2$,b[170]8)b$") "d$(b)[163]13)"$"[202]([196](b(b)),2);
  157. 1142 [153][163]22);:[139]a(b)[177]0[167][153]d$(b)[163]34)"("[202]([196](a(b)),2)")";
  158. 1143 [141]2020:[153]v2$sp$[200](v2$,7)[163]16)"$"[202]([196](i),2)"   ":[142]
  159. 1500 [153][163]12)"up the atnmazon":[141]186:[141]256:[142]
  160. 1510 [153]"load      (NULL)arning: (NULL)ou are about to"
  161. 1511 [153][163]8)"enter deadly regions.":[142]
  162. 1540 [153]"load          (NULL)ress a key to play,
  163. 1541 printtab(8)"or turn your computer off.":return
  164. 1600 print"[147]             [197]xpedition "f$
  165. 1601 print"[198]unds: $"mid$(str$(i),2)"  [211]q. meters explored:"j
  166. 1602 a%=(h-(d/2)-(k/2))*3:ifa%<0thena%=0
  167. 1620 print"[212]ime in field:"d"day";:ifd<>1thenprint"s";
  168. 1640 print" and"c"hour";:ifc<>1thenprint"s";
  169. 1660 print
  170. 1680 print"[211]ectors mapped:"h;tab(21)"[198]ind value $"mid$(str$(g),2)
  171. 1681 print"[205]embers lost:"k;tab(21)"[197][210] factor:"a%
  172. 1682 print"[205]embers"tab(28)" [204][214][204]   [197][204]
  173. 1690 [129]b[178]1[164]4:[153]h$(b)[163]12)e$(b)[163]28)" "e(b)[163]34)f(b):[130]
  174. 1691 [153]v2$[163]12)"val)quipment  (NULL))it":[142]
  175. 1780 [153]"load"[163]14)"valquipment":[153][163]14)"*********"
  176. 1781 [129]b[178]1[164]13:[153][163]4)b" "d$(b)[163]18)a(b):[130]
  177. 1782 [153]v2$[163]16)"(NULL))it":[142]
  178. 1960 b[178][181](([187](1)[172]100[170]1)[170](b[172]10[172]1[173]c(19))):c$[178]" $"
  179. 1961 [139]a$[178]"c"[175][202](f$(a),2,1)[178]"r"[167] [141] 30000
  180. 1962 [139]f$(a)[178]"raw diamond"[167]b[178][181]([187](1)[172]10000[170]500)
  181. 1963 b$[178][202]([196](b),2):[142]
  182. 2000 [161]g$:[139]g$[178]""[167]2000
  183. 2001 gg[178][197](g$):[142]
  184. 2010 [161]g$:[139]g$[179][177]""[167]2010
  185. 2011 [142]
  186. 2020 [139][185](0)[179]39[167][153][200](sp$,39[171][185](0))
  187. 2021 [142]
  188. 2280 [153]h$(p)" val(NULL):"f(p)c$:[153]"chr$ive aid?  (NULL))es  (NULL))o":[142]
  189. 2360 [153]"load"[163]r[171]5)"(NULL)orking on "h$(p):[141]5000:d(p)[178]0
  190. 2361 b[178]2[172]e(p):[139]b[179]6[167]b[178]6
  191. 2362 [142]
  192. 2480 [141]44444:a$[178]"(NULL)nable to give aid to ":b$[178]h$(p):[142]
  193. 2500 [153]"load             right$quitos, (NULL)eru
  194. 2501 print"             *************
  195. 2502 [153]"               (NULL)ou may:
  196. 2503 print"           [214])isit trading post
  197. 2504 [153]"            (NULL))ove to base camp
  198. 2505 print"            [199])ive medical aid
  199. 2506 [153]"             (NULL))eview records
  200. 2507 print"                [197])xit game
  201. 2600 [153]"";:[129]a[178]1[164]2:[153]"clrstep(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)";:[130]
  202. 2601 [129]a[178]1[164]10
  203. 2602 [153]"(NULL)(NULL)stepstep";
  204. 2603 [153]"stepstep(NULL)(NULL)";
  205. 2604 [130]
  206. 2610 [129]a[178]1[164]2:[153]"(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step";:[130]:[153]"stop";
  207. 2611 [142]
  208. 3000 [153]"        left$ey! (NULL)ou gotta noting!!":[129]a[178]1[164]2600:[130]:[142]
  209. 5000 j9[178][194](765):[139]j9[179]4[175]j9[177]0[167][129]a[178]1[164]1000[172]j9:[130]:[142]
  210. 5010 [161]kt$:[139]kt$[178]" "[167][142]
  211. 5020 [129]kt[178]1[164]2:[151]54296,15:[151]54296,0:[130]:[129]kt[178]1[164]99:[130]:[137]5010
  212. 30000 [139][181]([187](1)[172]5[170]1)[178]1[167]f$(a)[178]"raw diamond"
  213. 30001 [142]
  214. 33333 [151]54296,15:[151]54296,0:[142]
  215. 44444 [129]a[178]0[164]24:[151]54272[170]a,0:[130]
  216. 44455 [151]54273,220:[151]54277,13:[151]54287,60:[151]54296,15
  217. 44554 [129]a[178]1[164]12:[151]54276,21
  218. 44555 [129]a8[178]1[164]250:[130]:[151]54276,20
  219. 45544 [129]a[178]0[164]24:[151]54272[170]a,0:[130]:[142]
  220. 45545 [129]a[178]0[164]24:[151]54272[170]a,0:[130]:[142]
  221. 50000 mj%[178]31:[134]jt%(mj%):[142]
  222. 53400 [158]32789:[151]53280,0:[151]53281,0
  223. 53410 z3[178]7:[147]"p2",8,1
  224. 53420 [141]54000
  225. 53430 [158]32780
  226. 53440 [151] 53281,3:[151]53280,3:[137]12
  227. 54000 [141]55100
  228. 54010 [158]32804:[151]759,0:[158]32807:[141]55200
  229. 54015 [158]32807:[158]32804:[141]55200
  230. 54020 [158]32804:[151]759,1:[158]32807:[141]55200
  231. 54025 [158]32807:[158]32804:[141]55200
  232. 54030 [158]32804:[151]759,2:[158]32807:[141]55200
  233. 54040 [161]ay$:[139]ay$[178]""[167]54040
  234. 54050 nt[178]0:[129]a[178]1[164]mj%:jt%(a)[178]0:[130]
  235. 54055 [158]32807:[158]32804
  236. 54060 [139]ay$[178]"s"[167]54100
  237. 54070 [158]32804:[151]759,3:[158]32807
  238. 54080 [161]ay$:[139]ay$[178]""[167]54080
  239. 54085 [158]32807:[158]32804
  240. 54090 [139]ay$[178]"y"[176]a$[178]"s"[167][142]
  241. 54095 [129]a[178]1[164]400:[130]
  242. 54100 [158]32804
  243. 54110 xd[178][181]((mj%[171]nt)[172][187](1)[170]1)
  244. 54120 [129]a[178]1[164]mj%:[139]jt%(a)[178]0[167]xd[178]xd[171]1:[139]xd[178]0[167]fd[178]a:a[178]mj%
  245. 54130 [130]:jt%(fd)[178]1:nt[178]nt[170]1
  246. 54140 [139]nt[178]mj%[167]nt[178]0:[129]a[178]1[164]mj%:jt%(a)[178]0:[130]
  247. 54150 [151]759,fd[170]3:[158]32807:[141]55200
  248. 54160 [158]32807:[158]32804:[139]ay$[179][177]""[167][129]a[178]1[164]400:[130]:[137]54070
  249. 54170 [141]55100:[139]ay$[179][177]""[167]54070
  250. 54180 [137]54100
  251. 55100 a[178]0
  252. 55110 a[178]a[170]1:[161]ay$:[139]ay$[178]""[175]a[179]150[167]55110
  253. 55120 [142]
  254. 55200 a[178]0
  255. 55210 a[178]a[170]1:[161]ay$:[139]ay$[178]""[175]a[179]220[167]55110
  256. 55220 [142]
  257.