home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 43 / 043.d81 / iquitos (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  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 [14