home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_06_(08-1984).d64 / gunner.p (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  6KB  |  279 lines
  1. 1 PRINT"[147]":REM**********************
  2. 2 REM        *PROGRAMMED BY JIM COX*
  3. 3 REM        *     JULY 1978       *
  4. 4 REM        ***********************
  5. 5 FORI=33208TO32768STEP-40:POKEI,160:NEXT
  6. 6 FORI=32768TO32807:POKEI,160:NEXT
  7. 7 FORI=32807TO33767STEP40:POKEI,160:NEXT
  8. 8 FORI=33767TO33728STEP-1:POKEI,160:NEXT
  9. 9 FORI=33728TO33208STEP-40:POKEI,160:NEXT
  10. 10 FORI=33208TO33247:POKEI,160:NEXT
  11. 15 PRINT"WELCOME TO"
  12. 20 PRINT"GUNNER"
  13. 30 PRINT"DO YOU WANT INSTRUCTIONS?"
  14. 50 GETP$
  15. 60 IFP$=""THEN50
  16. 70 IFP$="Y"THEN95
  17. 80 IFP$="N"THEN170
  18. 90 GOTO50
  19. 95 PRINT"[147]"
  20. 100 PRINT"THIS COMPUTER DEMONSTRATION SIMULATES"
  21. 105 PRINT"THE RESULTS OF FIRING A CANNON. YOU ARE"
  22. 110 PRINT"THE OFFICER IN CHARGE, GIVING ORDERS TO"
  23. 120 PRINT"THE GUN CREW.
  24. 125 [153]"POSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
  25. 130 [153]"IT IS YOUR JOB TO TELL THEM THE DEGREES"
  26. 140 [153]"OF ELEVATION YOU THINK WILL HIT THE "
  27. 145 [153]"TARGET. A HIT WITHIN 100 YARDS OF THE"
  28. 147 [153]"TARGET WILL DESTROY IT. TAKE MORE THAN"
  29. 150 [153]"5 SHOTS, AND THE ENEMY WILL DESTROY YOU."
  30. 151 [153]"POSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
  31. 152 [153]"ARE YOU READY TO START?"
  32. 153 [161]B$
  33. 154 [139]B$[178]""[167]153
  34. 155 [139]B$[178]"Y"[167]160
  35. 156 [153]"ONARE YOU READY TO START NOW?"
  36. 157 [137]153
  37. 160 [153]"LOAD45 DEGREES WILL GIVE YOU MAXIMUM"
  38. 165 [153]"DISTANCE.
  39. 166 FORP=1TO3500:NEXT
  40. 170 PRINT"[147]MAXIMUM RANGE OF YOUR GUN IS 46500 YARDS"
  41. 185 Z=0
  42. 190 PRINT
  43. 195 S2=0
  44. 200 T=43000-30000*RND(1)
  45. 210 S=0
  46. 220 GOTO370
  47. 230 PRINT"THIS IS NOT A TORPEDO LAUNCHER"
  48. 231 FORP=1TO4000:NEXT
  49. 232 PRINT"[145]                                      "
  50. 233 PRINT"[145][145][145][145]ELEVATION:?     [157][157][157][157][157][157]";
  51. 235 IFS<>5THEN401
  52. 236 PRINT"[147]WHILE YOU HAVE BEEN PLAYING SUBMARINE,"
  53. 237 PRINT"THE ENEMY HAS BEEN ZEROING"
  54. 238 PRINT"IN ON YOU - YOU KNOW WHAT -"
  55. 239 GOTO443
  56. 240 GOTO390
  57. 250 PRINT"[147]WHAT GOES UP, MUST COME DOWN---"
  58. 251 PRINT"YOU JUST DESTROYED YOURSELF!"
  59. 255 PRINT"FOR DOING SUCH A DUMB THING AS"
  60. 256 PRINT"SHOOTING STRAIGHT UP, WE HAVE"
  61. 257 PRINT"DECIDED TO GIVE YOU A SECTION 8"
  62. 258 FORL=1TO4500
  63. 259 NEXTL
  64. 260 PRINT
  65. 261 PRINT
  66. 262 PRINT
  67. 263 PRINT"[147]THAT MEANS YOU WILL BE HUNG BY YOUR "
  68. 264 PRINT"TOENAILS FOR THREE DAYS."
  69. 265 FORL=1TO4500:NEXT
  70. 266 PRINT
  71. 267 PRINT
  72. 268 GOTO502
  73. 269 GOTO3000
  74. 270 PRINTB;"DEGREES PUTS YOU
  75. 271 [153]"OVER TARGET BY";[182](E);"YARDS."
  76. 280 [137]390
  77. 288 [137]1000
  78. 289 [139]E[179][171]100[167]270
  79. 290 [139][182](E)[179]100[167]319
  80. 291 [153]B;"DEGREES PUTS YOU
  81. 295 PRINT"SHORT OF TARGET BY";ABS(E);"YARDS."
  82. 300 GOTO390
  83. 310 GOTO320
  84. 319 PRINTB;"DEGREES HAS A RESULT OF"
  85. 320 PRINT"***TARGET SUNK[146]***"
  86. 321 PRINT"";S;"ROUNDS OF AMMUNITION EXPENDED."
  87. 322 FORP=1TO5000:NEXT
  88. 325 S2=S2+S
  89. 330 IFZ=4THEN490
  90. 340 Z=Z+1
  91. 345 PRINT
  92. 350 PRINT"[147]THE COASTAL OBSERVER HAS SIGHTED ANOTHER"
  93. 351 PRINT"ENEMY SHIP."
  94. 352 PRINT
  95. 353 PRINT
  96. 354 PRINT
  97. 360 GOTO200
  98. 370 PRINT"DISTANCE TO TARGET IS";INT(T);"YARDS.."
  99. 376 PRINT
  100. 380 PRINT
  101. 390 PRINT
  102. 400 PRINT"ELEVATION:";
  103. 401 INPUT B
  104. 415 S=S+1
  105. 420 IF B=90THEN250
  106. 425 IF B>90THEN700
  107. 430 IF B <1 THEN 230
  108. 442 IFS<>6THEN450
  109. 443 FORP=1TO3500:NEXT:PRINT"[147]"
  110. 444 PRINT"[147]":GOTO4000
  111. 445 PRINT"[147]YOU HAVE JUST BEEN DESTROYED"
  112. 446 PRINT"BY THE ENEMY."
  113. 447 FORP=1TO4500:NEXT
  114. 448 PRINT"WHEN YOU GET OUT OF THE HOSPITAL"
  115. 449 GOTO495
  116. 450 B2=2*B/57
  117. 451 I=46500*SIN(B2)
  118. 452 X=T-I
  119. 453 E=INT(X)
  120. 455 GOTO1000
  121. 460 IFABS(E)<100THEN950
  122. 470 IFE>100THEN288
  123. 480 IFE<-100THEN269
  124. 482 PRINT
  125. 484 PRINT
  126. 486 PRINT
  127. 490 PRINT"[147]TOTAL ROUNDS EXPENDED IN 5 TARGETS";S2
  128. 491 IFS2>15THEN495
  129. 492 PRINT"NICE SHOOTING!!"
  130. 493 FORP=1TO3000:NEXT
  131. 494 GOTO502
  132. 495 IFS2>20THEN498
  133. 496 PRINT"BETTER GO BACK TO FORT SILL FOR"
  134. 497 PRINT"REFRESHER TRAINING
  135. 498 [153]"DID YOU EVER THINK OF JOINING THE "
  136. 499 [153][163]15)"INFANTRY?"
  137. 500 [129]P[178]1[164]5000:[130]
  138. 502 [153]"LOADTHANK YOU FOR PLAYING!"
  139. 505 [153]"TRY AGAIN?"
  140. 506 [161]A$
  141. 510 [139]A$[178]""[167]506
  142. 520 [139]A$[178]"Y"[167][153]"LOAD":[137]170
  143. 530 [139]A$[178]"N"[167] 6000
  144. 540 [137]506
  145. 700 [153]"LOAD WHY ARE YOU SHOOTING BEHIND YOU?"
  146. 710 [153]"YOU COULD DESTROY SOME VERY IMPORTANT"
  147. 720 [153]"BRASS THAT WAY"
  148. 730 [153]"GO TO YOUR COMMANDING OFFICER."
  149. 740 [153]"HE WILL CHEW YOU OUT BUT GOOD."
  150. 750 [129]P[178]1[164]7000:[130]
  151. 760 [137]502
  152. 1000 [153]"LOAD"
  153. 1005 [153][166]22)"(null)    WAITSTEPONCMDCMDCMDCMD WAIT"
  154. 1010 [153]"SIN  WAITSINONCMDCMDCMD(null) (null)ONCMDCMD(null)(null)";
  155. 1015 [129]P[178]1[164]2000:[130]
  156. 1020 [139][182](E)[179]100[167]5000
  157. 1025 [139]E[177]100[167]2000
  158. 1030 [139]E[179][171]111[167]3000
  159. 2000 [143] SHORT OF TARGET
  160. 2010 [129]S1[178]1[164]5
  161. 2020 [153]"ONRND";
  162. 2025 [129]P[178]1[164]100:[130]
  163. 2030 [153]"CMDCMD  ";
  164. 2040 [130]S1
  165. 2045 [153]"COS";
  166. 2050 [129]P[178]1[164]100:[130]
  167. 2055 [153]"CMD ";
  168. 2060 [153]"ONRND";
  169. 2065 [153]"CMD ";
  170. 2070 [153]"COS";
  171. 2075 [153]"CMD ";
  172. 2080 [129]S1[178]1[164]6
  173. 2085 [153]"RND";
  174. 2090 [129]P[178]1[164]100:[130]
  175. 2095 [153]"CMD ";
  176. 2100 [130]S1
  177. 2110 [153]"CMDCMDCMDPLOP!ONCMDCMDCMDCMDCMDWAIT(null) (null) (null)"
  178. 2115 [129]P[178]1[164]500:[130]
  179. 2116 [153]
  180. 2117 [139]S[178]6[167][141]4000
  181. 2120 [137]291
  182. 3000 [143] OVER TARGET
  183. 3010 [129]S1[178]1[164]12
  184. 3020 [153]"ONRND";
  185. 3025 [129]P[178]1[164]100:[130]
  186. 3030 [153]"CMD ";
  187. 3040 [130]S1
  188. 3045 [153]"COS";
  189. 3050 [129]P[178]1[164]100:[130]
  190. 3055 [153]"CMD ";
  191. 3060 [153]"ONRND";
  192. 3065 [153]"CMD ";
  193. 3070 [153]"COS";
  194. 3075 [153]"CMD ";
  195. 3080 [129]S1[178]1[164]13
  196. 3085 [153]"RND";
  197. 3090 [129]P[178]1[164]100:[130]
  198. 3095 [153]"CMD ";
  199. 3100 [130]S1
  200. 3110 [153]"CMDCMDCMDPLOP!ONCMDCMDCMDCMDCMDWAIT(null) (null) (null)"
  201. 3115 [129]P[178]1[164]1500:[130]
  202. 3135 [153]
  203. 3136 [139]S[178]6[167][141]4000
  204. 3140 [137]270
  205. 4000 [153]"LOAD"
  206. 4005 [153]"         (null)WAIT       WAIT       WAIT   (null)WAIT    STEP "
  207. 4010 [153]"      WAIT    WAIT   WAIT    WAIT   WAIT    WAIT   WAIT (null)WAIT  STEPWAIT  WAIT"
  208. 4015 [153]"      WAIT   STEP   WAIT    WAIT   WAIT    WAIT   WAIT  (null)STEPWAIT   WAIT"
  209. 4020 [153]"         WAIT    WAIT    WAIT   WAIT    WAIT   WAIT  LOGCOS   WAIT"
  210. 4025 [153]"      WAIT   (null)WAIT   WAIT    WAIT   WAIT    WAIT   WAIT       WAIT"
  211. 4030 [153]"      WAIT    WAIT   WAIT    WAIT   WAIT    WAIT   WAIT       WAIT"
  212. 4035 [153]"      WAIT    WAIT   WAIT    WAIT   WAIT    WAIT   WAIT       WAIT"
  213. 4040 [153]"         WAITSTEPWAIT       WAIT       WAIT   WAIT       WAIT"
  214. 4042 [129]P1[178]1[164]5
  215. 4045 [151]59409,52
  216. 4050 [129]P[178]1[164]100
  217. 4055 [130]P
  218. 4060 [151]59409,60
  219. 4065 [129]P[178]1[164]100
  220. 4070 [130]P
  221. 4075 [130]P1
  222. 4080 [137]445
  223. 5000 [143] HIT TARGET
  224. 5010 [129]S1[178]1[164]8
  225. 5020 [153]"ONRND";
  226. 5025 [129]P[178]1[164]100:[130]
  227. 5030 [153]"CMD ";
  228. 5040 [130]S1
  229. 5045 [153]"COS";
  230. 5050 [129]P[178]1[164]100:[130]
  231. 5055 [153]"CMD ";
  232. 5060 [153]"ONRND";
  233. 5065 [153]"CMD ";
  234. 5070 [153]"COS";
  235. 5075 [153]"CMD ";
  236. 5080 [129]S1[178]1[164]9
  237. 5085 [153]"RND";
  238. 5090 [129]P[178]1[164]100:[130]
  239. 5095 [153]"CMD ";
  240. 5100 [130]S1
  241. 5102 PP[178]0
  242. 5105 [153]"CMDCMD(null) !! (null)";
  243. 5110 [153]"CMDCMDCMDCMDCMDCMD BOOM  ";
  244. 5111 PP[178]PP[170]1
  245. 5112 [129]P[178]1[164]100:[130]P
  246. 5113 [153]"CMDCMDCMDCMDCMDCMDCMD BOOMWAIT ";
  247. 5114 [129]P[178]1[164]100:[130]P
  248. 5116 [139]PP[179]5[167]5110
  249. 5117 [153]"CMDCMDCMDCMDCMDCMD BOOM   ";
  250. 5120 [153]
  251. 5121 [153][163]22)"(null)    WAITSTEPONCMDCMDCMDCMD WAIT"
  252. 5122 [129]P[178]1[164]250:[130]
  253. 5123 [153][163]22)"      ONCMDCMDCMDCMDCMD  "
  254. 5124 [153][163]22)"(null)    WAITSTEPONCMDCMDCMDCMD WAIT"
  255. 5125 [129]P[178]1[164]250:[130]
  256. 5126 [153][163]22)"      ONCMDCMDCMDCMDCMD  "
  257. 5127 [153][163]22)"(null)    WAITSTEPONCMDCMDCMDCMD WAIT"
  258. 5128 [129]P[178]1[164]250:[130]
  259. 5129 [153][163]22)"      ONCMDCMDCMDCMDCMD  "
  260. 5130 [153][163]22)"(null)    WAITSTEPONCMDCMDCMDCMD WAIT"
  261. 5131 [129]P[178]1[164]250:[130]
  262. 5132 [153][163]22)"      ONCMDCMDCMDCMDCMD  "
  263. 5133 [153][163]22)"(null)    WAITSTEPONCMDCMDCMDCMD WAIT"
  264. 5134 [129]P[178]1[164]250:[130]
  265. 5135 [153][163]22)"      ONCMDCMDCMDCMDCMD  "
  266. 5136 [153][163]22)"(null)    WAITSTEPONCMDCMDCMDCMD WAIT"
  267. 5137 [129]P[178]1[164]250:[130]
  268. 5138 [153][163]22)"      ONCMDCMDCMDCMDCMD  "
  269. 5139 [153][163]22)"(null)    WAITSTEPONCMDCMDCMDCMD WAIT"
  270. 5140 [129]P[178]1[164]250:[130]
  271. 5141 [153][163]22)"      ONCMDCMDCMDCMDCMD  "
  272. 5150 [153]""
  273. 5155 [129]P[178]1[164]100:[130]
  274. 5160 [153]"ONONONONONONON"
  275. 5200 [137]319
  276. 6000 [153]"LOADI SALUTE YOU CAPTAIN"
  277. 6010 [153]""
  278. 6020 [128]
  279.