home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 189 / 189.d81 / gt1 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  32KB  |  1,111 lines
  1. 20 print"[147]":dv=peek(186)
  2. 52 open1,dv,1,"g1s3":poke780,0:sys65493:close1
  3. 100 sa=35072:ea=35072+999:ns=50176:gosub5000:rem sc1
  4. 101 poke53248,84:poke53249,101:poke53280,0:poke53281,0:poke775,0
  5. 102 sa=36072:ea=36072+999:ns=55296:gosub5000:rem sc1.cl
  6. 103 print"[145][145][145][145][145][145][145][145]"
  7. 104 v=53248:pokev+21,1:a3=1:a4=55691:xx=84:yy=101:b1=0:gx=1:sr=3
  8. 105 b7=1:poke55328,1:poke55329,1:poke55368,1:poke55369,1:b8=1:rematstat
  9. 106 forp=55567to55575:pokep,3:next:d2=55575:rem fuel
  10. 107 poke55487,2:d5=55487:remspd
  11. 108 ifq2=0thengl=1000:j1=12:j5=6:j7=4:k1=80
  12. 109 ifq2=0thenl1=4:l2=0:l3=12:l4=0:l5=30:l6=0:l8=0:j9=0
  13. 110 ifq2=0thenm1=0:m3=0:m4=0:m9=0:n6=0:n8=0:j9=0:gs=0:gc=0:gf=0:gw=0:gr=0:gt=0
  14. 111 ifq2=1thenq2=0:rem*aftgamovr
  15. 119 rem
  16. 120 goto250
  17. 121 js=peek(56320):kb=peek(197)
  18. 122 if js=126orkb=33then130
  19. 124 if js=125orkb=37then140
  20. 125 ifjs=111orkb=60then300
  21. 128 ifb1<>0thengoto900
  22. 129 goto121
  23. 130 if a1=55887then121
  24. 132 pokea1,8:a1=a1-80:pokea1,1:fork=1to200:next:goto121
  25. 140 if a1=56207then121
  26. 142 pokea1,8:a1=a1+80:pokea1,1:fork=1to200:next:goto121
  27. 145 rem*steer
  28. 146 poke55887,8:a4=55691:pokea4,1
  29. 148 gosub1050
  30. 150 rem
  31. 151 a3=1
  32. 152 js=peek(56320):kb=peek(197)
  33. 153 if js=123orkb=34then160
  34. 154 if js=119orkb=42then170
  35. 155 ifjs=111orkb=60then200:remfb
  36. 158 goto152
  37. 160 a3=a3-1:ifa3=0thena3=8
  38. 162 goto190
  39. 170 a3=a3+1:ifa3=9thena3=1
  40. 180 ifa3=2thenpokea4,12:a4=55693:goto198
  41. 181 ifa3=3thenpokea4,12:a4=55733:goto198
  42. 182 ifa3=4thenpokea4,12:a4=55773:goto198
  43. 183 ifa3=5thenpokea4,12:a4=55771:goto198
  44. 184 ifa3=6thenpokea4,12:a4=55769:goto198
  45. 185 ifa3=7thenpokea4,12:a4=55729:goto198
  46. 186 ifa3=8thenpokea4,12:a4=55689:goto198
  47. 187 ifa3=1thenpokea4,12:a4=55691:goto198
  48. 190 ifa3=8thenpokea4,12:a4=55689:goto198
  49. 191 ifa3=7thenpokea4,12:a4=55729:goto198
  50. 192 ifa3=6thenpokea4,12:a4=55769:goto198
  51. 193 ifa3=5thenpokea4,12:a4=55771:goto198
  52. 194 ifa3=4thenpokea4,12:a4=55773:goto198
  53. 195 ifa3=3thenpokea4,12:a4=55733:goto198
  54. 196 ifa3=2thenpokea4,12:a4=55693:goto198
  55. 197 ifa3=1thenpokea4,12:a4=55691:goto198
  56. 198 pokea4,1:fork=1to200:next:goto152
  57. 200 rem*exstr
  58. 217 pokea4,12
  59. 220 pokea4,1:fork=1to140:next:pokea4,12
  60. 222 fork=1to140:next:pokea4,1
  61. 224 fork=1to140:next:pokea4,12
  62. 226 fork=1to140:next:pokea4,1
  63. 228 fork=1to140:next:pokea4,12
  64. 240 a1=55887:pokea1,1
  65. 241 goto121
  66. 249 rem*mainscr
  67. 250 a1=55887:pokea1,1:poke53269,1
  68. 251 forp=55567tod2:pokep,3:next:remfl
  69. 252 poke55487,5:d5=55487:b1=0:remspd
  70. 253 gosub1050
  71. 260 goto121
  72. 299 rem*opt
  73. 300 ifa1=56207andb7=0then11700:remnoland
  74. 301 rem
  75. 302 ifa1=55967then500:remacc
  76. 305 ifa1=56047then550:remdec
  77. 310 ifa1=56127then400:remcomm
  78. 312 ifa1=56207andb7=1then1500:remland
  79. 316 ifa1=55887thengosub350:goto146:remsteer(flash)
  80. 349 rem*flsh
  81. 350 pokea1,8:fork=1to140:next:pokea1,1
  82. 352 fork=1to140:next:pokea1,8
  83. 354 fork=1to140:next:pokea1,1
  84. 356 fork=1to140:next:pokea1,8
  85. 358 fork=1to140:next:pokea1,1
  86. 360 return
  87. 400 gosub1050:rem*cmd
  88. 401 gosub1070
  89. 403 print"[147][152]";:poke53269,0:print"weaponry":print"[152]";
  90. 404 ifl1=4andl2=0thenprint"l6-15 slow laser gun"
  91. 405 ifl1=5andl2=0thenprint"ak-217 laser gun"
  92. 407 ifl1=4andl2=1thenprint"b-292 laser"
  93. 410 ifl1=5andl2=1thenprint"cx-4 laser"
  94. 412 rem
  95. 414 ifl3=12thenprint"standard shields - 12"
  96. 416 ifl3=16thenprint"detren shields - 16"
  97. 418 ifl3=20thenprint"ethlon shields - 20"
  98. 419 ifl6=0thenprint"standard missile bay (holds 4)"
  99. 420 ifl6=1thenprint"extended missile bay (holds 8)"
  100. 421 print"missiles ";:printj7
  101. 422 print:print"engineering":print"[152]";
  102. 423 ifl4=1thenprint"hyperspace jump drive -";
  103. 424 ifl4=1andl8=1thenprint" charged"
  104. 425 ifl4=1andl8=0thenprint" not charged"
  105. 426 ifl4=0thenprint"no hyperspace jump drive"
  106. 438 ifl5=45thenprint"fuel enhancement operational"
  107. 440 ifn6=1thenprint"cloaking device (disables k-oo4 radar)"
  108. 442 rem
  109. 443 rem
  110. 444 rem
  111. 445 print:print"[158]gold ";:printgl:print
  112. 446 ifm1=1thenprint"[159]telios needs medicine from selna"
  113. 447 ifm1=2 thenprint"[159]medical supplies for telios"
  114. 448 ifm3=1 thenprint"[159]passenger for jahl"
  115. 449 ifm3=2 thenprint"[159]kthargon trader's id"
  116. 450 ifm4=1thenprint"[159]desalination unit for hyloth"
  117. 451 ifm9=1thenprint"[159]academy agent is heading for gnarl !"
  118. 452 ifm9=2thenprint"[159]going to academy at hyloth."
  119. 453 ifn8=1thenprint"[159]request for 8 x computers for joall"
  120. 454 print:print"[155]n = navigation"
  121. 455 print"h = hyperspace"
  122. 456 print"c = cargo
  123. 458 [153]:[153]"space or fb = exit command centre"
  124. 460 js[178][194](56320):kb[178][194](197)
  125. 461 [139]js[178]111[176]kb[178]60[167]486
  126. 462 [139]kb[178]39[167]11800:[143]n
  127. 463 [139]kb[178]29[167]476:[143]h
  128. 464 [139]kb[178]20[167]11900:[143]c
  129. 466 [137]460
  130. 476 [139]l4[178]0[167][153]"loadyou need a hyperspace drive !":[141]1022:[137]403
  131. 477 [139]l8[178]1[167]488
  132. 478 [153]"load":[153]"openmsg from engineer: drive not charged !":[141]1022
  133. 479 [141]1022:[137]403
  134. 486 [141]1050:[141]1080:[143]getscr
  135. 487 [151]53269,1:[137]121
  136. 488 [153]"load":[153]"openyou are in system ";:[153]gx:[153]:[153]"you can jump to:"
  137. 489 [153]:[153]"list1  star system k-oo1"
  138. 490 [153]:[153]"2  star system k-oo2
  139. 491 print:print"3  star system k-oo3":print:print"4  star system k-oo4"
  140. 492 print:print"x = exit":print:print"choose 1-4 or x"
  141. 493 poke198,0:wait198,1:geths$
  142. 494 ifhs$="1"thengx=1:goto8200
  143. 495 ifhs$="2"thengx=2:goto8200
  144. 496 ifhs$="3"thengx=3:goto8200
  145. 497 ifhs$="4"thengx=4:goto8200
  146. 498 ifhs$="x"then403
  147. 499 goto493
  148. 500 rem*acc
  149. 502 ifb1=8then121
  150. 504 b1=b1+1:d5=d5+1:poked5,2:fork=1to80:next:b2=0:remadjspd+resetb2counter
  151. 540 goto121
  152. 550 rem*dec
  153. 552 ifb1=0then121
  154. 554 b1=b1-1:poked5,12:d5=d5-1:fork=1to80:next:b2=0
  155. 590 goto121
  156. 900 rem*move
  157. 901 goto1200:rem*spdcount
  158. 902 rem
  159. 903 goto121
  160. 905 ifd2=55567then9500:remnofuel
  161. 906 d1=d1+1:ifd1>(l5-b1)then1010:remfl*adjw/b1spd
  162. 909 ona3goto910,920,930,940,950,960,970,980
  163. 910 ifpeek(v+1)<53then4100
  164. 912 yy=yy-2
  165. 918 goto990
  166. 920 ifpeek(v)>250orpeek(v+1)<53then4100
  167. 922 xx=xx+2:yy=yy-2
  168. 928 goto990
  169. 930 ifpeek(v)>250then4100
  170. 932 xx=xx+2
  171. 938 goto990
  172. 940 ifpeek(v)>250orpeek(v+1)>245then4100
  173. 942 xx=xx+2:yy=yy+2
  174. 944 goto990
  175. 950 ifpeek(v+1)>245then4100
  176. 952 yy=yy+2
  177. 954 goto990
  178. 960 ifpeek(v)<22orpeek(v+1)>245then4100
  179. 962 xx=xx-2:yy=yy+2
  180. 970 ifpeek(v)<22then4100
  181. 972 xx=xx-2
  182. 978 goto990
  183. 980 ifpeek(v)<22orpeek(v+1)<53then4100
  184. 982 xx=xx-2:yy=yy-2
  185. 984 goto990
  186. 990 h1=0:pokev,xx:pokev+1,yy
  187. 992 b3=peek(53248)-12:b4=peek(53249)-45:rem*station
  188. 993 b3=int(b3/8):b4=int(b4/8)
  189. 994 b5=50176+(b3-1)+((b4-1)*40)
  190. 998 ifpeek(b5)=64thenb7=1:poke55328,1:poke55329,1:poke55368,1:poke55369,1:b8=1
  191. 999 ifpeek(b5)<>64thenb7=0
  192. 1000 ifb8=1andb7=0thenb8=0:poke55328,5:poke55329,5:poke55368,5:poke55369,5
  193. 1002 rem
  194. 1004 j9=j9+1:ifj9<>k1then1009:rem*combt
  195. 1006 poke55333,1:poke55334,1:poke55373,1:poke55374,1
  196. 1007 gosub1022:gosub1022:goto6000
  197. 1009 goto121
  198. 1010 d1=0:remfl
  199. 1012 poked2,12:d2=d2-1:goto909
  200. 1020 print"[147]":print"        you can't afford it !"
  201. 1022 fork=1to1000:next:return
  202. 1030 print:print"you have ";:printgl;:print" cash";:return
  203. 1040 print:print"[159]ok ":fork=1to400:next:return
  204. 1050 js=peek(56320):kb=peek(197):ifjs=111orkb=60then1050
  205. 1052 return
  206. 1060 print"[147]":print"you have none !":gosub1022:return
  207. 1062 print:print:print"[155]press firebutton or spacebar...."
  208. 1063 js=peek(56320):kb=peek(197):ifjs=111orkb=60thenreturn
  209. 1064 goto1063
  210. 1070 sa=50176:ea=50176+999:ns=35072:gosub5000:remstrscr
  211. 1072 sa=55296:ea=55296+999:ns=36072:gosub5000:remstrcl
  212. 1074 return
  213. 1080 poke53265,peek(53265)and239
  214. 1081 sa=35072:ea=35072+999:ns=50176:gosub5000:rem getsc1
  215. 1082 sa=36072:ea=36072+999:ns=55296:gosub5000:rem getsc1.cl
  216. 1083 poke55887,1:poke55967,8:poke56047,8:poke56127,8:poke56207,8:a1=55887
  217. 1084 poke53265,peek(53265)or16:return
  218. 1090 open1,dv,1,f$:poke780,0:sys65493:close1:return
  219. 1200 b2=b2+1:ifb2=(10-b1)thenb2=0:goto905:remspd-10isfastest!
  220. 1202 goto903
  221. 1500 rem*land
  222. 1502 gosub1050:ifb1<>0then11600:rem*decl1st
  223. 1503 poke53269,0
  224. 1504 gosub1070
  225. 1510 print"[147]":poke53280,0:poke53281,0:c2=1:c3=1:c4=5:h2=0
  226. 1511 goto2500
  227. 1512 poke646,c2
  228. 1514 print"":print" [216][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][218]"
  229. 1516 fork=1to18:print" [184]                                    [186]":next
  230. 1518 print" xyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyz";
  231. 1520 pr