home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / games / vmsnet / startrek / part08 < prev    next >
Encoding:
Internet Message Format  |  1993-04-06  |  14.5 KB
  1. Path: uunet!elroy.jpl.nasa.gov!decwrl!concert!lester.appstate.edu!pembvax1.pembroke.edu!rennie
  2. From: rennie@pembvax1.pembroke.edu
  3. Newsgroups: vmsnet.sources.games
  4. Subject: Star Trek - Part [08/18]
  5. Date: 7 Apr 93 10:53:33 EDT
  6. Organization: Pembroke State University
  7. Lines: 391
  8. Message-ID: <1993Apr7.105333.1@pembvax1.pembroke.edu>
  9. NNTP-Posting-Host: papa.pembroke.edu
  10. Xref: uunet vmsnet.sources.games:650
  11.  
  12. -+-+-+-+-+-+-+-+ START OF PART 8 -+-+-+-+-+-+-+-+
  13. X      XTIME=DATEMIN-DATE
  14. X      DATE=DATEMIN
  15. XC--------DECREMENT FEDERATION RESOURCES AND RECOMPUTE REMAINING TIME
  16. X      REMRES=REMRES-(REMKL+4*REMCOM)*XTIME
  17. X      REMTIME=REMRES/(REMKL+4*REMCOM)`20
  18. X      IF(REMTIME .GT. 0) GO TO 30`20
  19. XC--------FEDERATION RESOURCES DEPLETED; END`20
  20. X      CALL FINISH(2)
  21. X      RETURN
  22. XC--------DECIDE IF LIFE SUPPORT IS ADEQUATE`20
  23. X 30   IF(DAMAGE(5).EQ.0 .OR. CONDIT.EQ.IHDOCKD ) GO TO 50`20
  24. X      IF(LSUPRES .GE. XTIME .OR. DAMAGE(5) .LE. LSUPRES) GO TO 40`20
  25. X      CALL FINISH(3)
  26. X      RETURN
  27. X 40   LSUPRES=LSUPRES-XTIME`20
  28. X      IF(DAMAGE(5) .LE. XTIME) LSUPRES=INLSR
  29. XC--------FIX DEVICES
  30. X 50   REPAIR=XTIME
  31. X      IF(CONDIT .EQ. IHDOCKD ) REPAIR=XTIME/DOCKFAC`20
  32. X      DO 60 L=1,NDEVICE`20
  33. X      IF(L.EQ.14) GO TO 60 `20
  34. X      IF(DAMAGE(L) .GT. 0) DAMAGE(L)=AMAX1(DAMAGE(L)-REPAIR,0.0)
  35. X60    CONTINUE   `20
  36. XC--------CAUSE EXTRANEOUS EVENT `5B<LINE>`5D TO OCCUR`20
  37. X      TIME=TIME-XTIME      `20
  38. X      IF(LINE .EQ. 0) GO TO 5000
  39. X      GO TO (100,200,300,400,500,600,700),LINE
  40. XC--------EXTRANEOUS EVENT 1:  SUPERNOVA`20
  41. X 100  CALL SNOVA(0,0)`20
  42. X      FUTURE(1)=DATE+EXPRAN(0.5*INTIME)`20
  43. X      IF(GALAXY(QUADX,QUADY) .EQ. 1000) RETURN
  44. X      GO TO 10
  45. XC--------EXTRANEOUS EVENT 2:  TRACTOR BEAM
  46. X 200  IF(REMCOM .EQ. 0) GO TO 220`20
  47. X      IF(ISTRACT.NE.0) GO TO 210 `20
  48. X      IF(CONDIT .EQ. IHDOCKD ) GO TO 210
  49. X      I=RANF(0)*REMCOM+1.0
  50. X      YANK=(CX(I)-QUADX)**2 + (CY(I)-QUADY)**2
  51. X      IF(YANK .EQ. 0 .AND. JUSTIN .EQ. 0) GO TO 210`20
  52. X      IF(ISTRACT .EQ. 0) GO TO 201
  53. X20010 YANK=(ISX-QUADX)**2+(ISY-QUADY)**2
  54. X 201  YANK=SQRT(YANK)`20
  55. X      YNKRATE=7.5`20
  56. X      TIME=(10.0/YNKRATE**2)*YANK`20
  57. X      ICTBEAM=1`20
  58. X      CALL SKIP(1)
  59. X      CALL CRAM3AS
  60. X      CALL CRAMSHP
  61. X      CALL CRAMDMP(36H CAUGHT IN LONG-RANGE TRACTOR BEAM--)`20
  62. XC--------IF KIRK AND CO. SCREWING AROUND ON PLANET, HANDLE.`20
  63. X      CALL GRAB`20
  64. X      IF(ALLDONE.NE.0) RETURN`20
  65. XC--------HANDLE CASE WHERE KIRK IS IN SHUTTLE CRAFT.
  66. X      IF(ICRAFT .NE. 1) GO TO 203`20
  67. X      CALL FINISH(18)
  68. X`09RETURN
  69. XC--------CHECK TO SEE IF SHUTTLE IS ABOARD.`20
  70. X 203  IF(ISCRAFT .NE. 0) GO TO 204`20
  71. X`09CALL SKIP(1)
  72. X      CALL PROUT(48HGALILEO, LEFT ON THE PLANET SURFACE, IS CAPTURED,48)`20
  73. X      CALL PROUT(45HBY ALIENS AND MADE INTO A FLYING MC DONALD'S.,45)
  74. X      DAMAGE(10)=-10.
  75. X`09ISCRAFT=-1
  76. X 204  IF(ISTRACT .EQ. 0) GO TO 205
  77. X`09QUADX=ISX
  78. X`09QUADY=ISY
  79. X`09GO TO 206
  80. X 205  QUADX=CX(I)`20
  81. X      QUADY=CY(I)`20
  82. X 206  CALL IRAN10(SECTX,SECTY)
  83. X      CALL CRAM(12H   PULLED TO)
  84. X      CALL CRAMLOC(1,QUADX,QUADY)`20
  85. X      CALL CRAM(2H, )`20
  86. X      CALL CRAMLOC(2,SECTX,SECTY)`20
  87. X      CALL CREND
  88. X      IF(RESTING .NE. 0) CALL PROUT(
  89. X     +   46H(REMAINDER OF REST & REPAIR PERIOD CANCELLED.),46)`20
  90. X      RESTING=0`20
  91. X`09CALL CANTA
  92. X      IF(SHLDUP.NE.0) GO TO 208  `20
  93. X      IF(DAMAGE(8).EQ.0 .AND. SHLD.GT.0) GO TO 207
  94. X      CALL PROUT(32H(SHIELDS NOT CURRENTLY USEABLE.),32)`20
  95. X      GO TO 208`20
  96. X 207  CALL SHLDSUP
  97. X      SHLDCHG=0`20
  98. X 208  CALL NEWQUAD
  99. X      IF(REMCOM .LE. 0) GO TO 220`20
  100. X 210  FUTURE(2)=DATE+TIME+EXPRAN(1.5*INTIME/REMCOM)`20
  101. X      GO TO 10
  102. X 220  FUTURE(2)=1E38`20
  103. X      GO TO 10
  104. XC--------EXTRANEOUS EVENT 3:  SNAPSHOT OF UNIVERSE (FOR TIME WARP)
  105. X 300  DO 310 L=1,226
  106. X 310  SNAPSHT(L)=PICTURE(L)`20
  107. X      SNAP=1
  108. X      FUTURE(3)=DATE+EXPRAN(0.5*INTIME)`20
  109. X      GO TO 10
  110. XC--------EXTRANEOUS EVENT 4:  COMMANDER ATTACKS STARBASE
  111. XC--------LOOK FOR A COMMANDER IN SAME QUADRANT AS A STARBASE
  112. X 400  IF(REMCOM.GT.0 .AND. REMBASE.GT.0) GO TO 410
  113. X      FUTURE(4)=1E38`20
  114. X`09FUTURE(5)=1E38
  115. X      GO TO 10
  116. X 410  DO 420 J=1,REMBASE
  117. X      DO 420 K=1,REMCOM`20
  118. X      IF( (BASEQX(J).EQ.CX(K) .AND. BASEQY(J).EQ.CY(K)) .AND.`20
  119. X     +    (BASEQX(J).NE.QUADX .OR.  BASEQY(J).NE.QUADY) .AND.`20
  120. X     +    (BASEQX(J).NE.ISX .OR. BASEQY(J).NE.ISY) ) GO TO 430
  121. X 420  CONTINUE
  122. X      FUTURE(4)=DATE+EXPRAN(0.3*INTIME)`20
  123. X      FUTURE(5)=1E38`20
  124. X      GO TO 10
  125. XC--------COMMANDER+STARBASE COMBINATION FOUND--LAUNCH ATTACK
  126. X 430  BATX=BASEQX(J)
  127. X      BATY=BASEQY(J)
  128. X      FUTURE(5)=DATE+1.0+3.0*RANF(0)
  129. X      IF(ISATB.NE.0) FUTURE(5)=FUTURE(5)+FUTURE(7)-DATE  `20
  130. X      FUTURE(4)=FUTURE(5)+EXPRAN(0.3*INTIME)
  131. X      ITYPE=IHC
  132. X`09CALL SOS
  133. X      GO TO 10
  134. XC--------EXTRANEOUS EVENT 5:  COMMANDER SUCCEEDS IN DESTROYING BASE`20
  135. X 500  FUTURE(5)=1E38`20
  136. X502`09IF(ISATB.NE.2) GO TO 505
  137. X      IF(MOD(GALAXY(ISX,ISY),100) .LT. 10)  RETURN
  138. X`09IXHOLD=BATX
  139. X`09IYHOLD=BATY
  140. X`09BATX=ISX
  141. X`09BATY=ISY
  142. X`09GO TO 520
  143. X 505  IF(REMCOM.EQ.0 .OR. REMBASE.EQ.0) GO TO 515`20
  144. X      IF(MOD(GALAXY(BATX,BATY),100) .LT. 10) GO TO 515
  145. X      DO 510 I=1,REMCOM`20
  146. X      IF(CX(I).EQ.BATX .AND. CY(I).EQ.BATY) GO TO 520`20
  147. X 510  CONTINUE
  148. X 515  BATX=0
  149. X`09BATY=0
  150. X`09GO TO 10
  151. X 520  IF(STARCH(BATX,BATY) .EQ. -1) STARCH(BATX,BATY)=0`20
  152. X      IF(STARCH(BATX,BATY) .GT. 999)
  153. X     +   STARCH(BATX,BATY)=STARCH(BATX,BATY)-10`20
  154. XC--------HANDLE CASE WHERE BASE IS IN SAME QUADRANT AS STARSHIP`20
  155. X      IF(BATX.NE.QUADX .OR. BATY.NE.QUADY) GO TO 545
  156. X      QUAD(BASEX,BASEY)=IHDOT`20
  157. X      BASEX=0`20
  158. X`09BASEY=0
  159. X      CALL NEWCOND
  160. X      CALL SKIP(1)
  161. X      CALL PROUT(`20
  162. X     +   61HSPOCK:  "CAPTAIN, I BELIEVE THE STARBASE HAS BEEN DESTROYED.
  163. X     +",61)
  164. X      GO TO 550`20
  165. XC--------IF STARBASE NOT IN SAME QUADRANT, GET NEWS FROM UHURA
  166. X 545  IF(REMBASE.EQ.1 .OR. DAMAGE(9).GT.0) GO TO 550
  167. X      CALL SKIP(1)
  168. X      CALL PROUT(`20
  169. X     +   52HLT. UHURA:  "CAPTAIN, STARFLEET COMMAND REPORTS THAT,52)`20
  170. X      CALL CRAM(15HTHE STARBASE IN)`20
  171. X      CALL CRAMLOC(1,BATX,BATY)`20
  172. X      CALL CRAMDMP(22H HAS BEEN DESTROYED BY)`20
  173. X      IF(ISATB .NE. 2) GO TO 547 `20
  174. X      CALL PROUT(31HTHE KLINGON SUPER-COMMANDER."   ,31)  `20
  175. X      GO TO 550`20
  176. X 547  CALL PROUT(21HA KLINGON COMMANDER.",21)
  177. XC--------REMOVE STARBASE FROM GALAXY
  178. X 550  GALAXY(BATX,BATY)=GALAXY(BATX,BATY)-10
  179. X      IF(REMBASE .LE. 1) GO TO 580
  180. X      DO 560 I=1,REMBASE
  181. X      IF(BASEQX(I).EQ.BATX .AND. BASEQY(I).EQ.BATY) GO TO 570`20
  182. X 560  CONTINUE
  183. X 570  BASEQX(I)=BASEQX(REMBASE)`20
  184. X      BASEQY(I)=BASEQY(REMBASE)`20
  185. X 580  REMBASE=REMBASE-1`20
  186. X      IF(ISATB .NE. 2) GO TO 515 `20
  187. XC--------REINSTATE A COMMANDER'S BASE ATTACK.  `20
  188. X`09BATX=IXHOLD
  189. X`09BATY=IYHOLD
  190. X`09ISATB=0
  191. X      GO TO 10
  192. XC--------EXTRANEOUS EVENT 6:  SUPER-COMMANDER MOVES.
  193. X 600  FUTURE(6)=DATE+0.2777`20
  194. X      IF(IENTESC+ISTRACT .GT. 0) GO TO 10`20
  195. X      IF(ISATB .NE. 1  .AND.  (ISCATE.NE.1 .OR. JUSTIN.EQ.1)) CALL SCOM  `20
  196. X      GO TO 10
  197. XC--------EXTRANEOUS EVENT 7:  SUPER-COMMANDER DESTROYS BASE`20
  198. X 700  FUTURE(7)=1E38`20
  199. X`09ISATB=2
  200. X`09GO TO 502
  201. XC--------CHECK WITH SPY TO SEE IF S.C. SHOULD TRACTOR BEAM.`20
  202. X 5000 IF(NSCREM .EQ. 0) RETURN
  203. X      IF(ICTBEAM+ISTRACT .GT. 0) RETURN`20
  204. X      IF(CONDIT.EQ.IHDOCKD .OR. ISATB.EQ.1 .OR. ISCATE.EQ.1) RETURN`20
  205. X      IF(IENTESC.NE.0) GO TO 5100`20
  206. X      IF((ENERGY.LT.2500.) .AND. (TORPS.LT.4) .AND. (SHIELD.LT.1250.))
  207. X     +  GO TO 5100
  208. X      IF((DAMAGE(3).GT.0.) .AND. ((DAMAGE(4).GT.0) .OR.`20
  209. X     +   (TORPS.LT.4)))  GO TO 5100`20
  210. X      IF((DAMAGE(8) .GT. 0.) .AND. ((ENERGY .LT. 3000.) .OR.
  211. X     +(DAMAGE(3) .GT. 0.)) .AND. ((TORPS .LT. 5) .OR. (DAMAGE(4) .GT.`20
  212. X     +  0.))) GO TO 5100
  213. X      RETURN
  214. XC--------TRACTOR-BEAM HER! `20
  215. X5100  IF(RANF(0).GT..65) RETURN      `20
  216. X      ISTRACT=1  `20
  217. X      GO TO 20010`20
  218. X      END`20
  219. $ CALL UNPACK TREVENTS.FOR;1 1900186396
  220. $ create 'f'
  221. X      FUNCTION EXPRAN(AVERAGE)
  222. X      EXPRAN=-AVERAGE*ALOG(RANF(0))`20
  223. X      RETURN
  224. X      END`20
  225. $ CALL UNPACK TREXPRAN.FOR;1 1562859051
  226. $ create 'f'
  227. X      SUBROUTINE FINISH(I)
  228. XC
  229. XC`094-APR-79
  230. XC`09MODIFIED TO GET RID OF THE NONSENSE ABOUT CANNIBALS ON CLASS
  231. XC`09N AND O PLANETS (WHICH DON'T EVEN HAVE EARTH-LIKE CONDITIONS).
  232. XC`0931-MAY-79
  233. XC`09MAKE PROMPTS COME OUT ON THE TERMINAL
  234. XC
  235. X`09INCLUDE 'TREKCOM/NOLIST'
  236. X`09COMMON/PRLUN/LUN
  237. X`09LOGICAL*1 ISHIP
  238. X`09EQUIVALENCE (SHIP,ISHIP)
  239. X      ALLDONE=1`20
  240. X      IGOTIT=0
  241. X      SAVED=REMRES/INRESOR
  242. X      CALL SKIP(3)
  243. X      CALL CRAM(15HIT IS STARDATE )`20
  244. X      CALL CRAMF(DATE,0,1)
  245. X      CALL CRAMDMP(2H .)
  246. X      CALL SKIP(1)
  247. X      GO TO (100,200,300,400,500,600,700,800,900,1000,1100,5000,1300,`20
  248. X     + 1400,1500,1600,1700,1800,5000,5000,2100,2200),I   `20
  249. XC--------CASE 1:  GAME HAS BEEN WON`20
  250. X100`09IF(NROMREM.EQ.0) GO TO 105
  251. X      CALL CRAM(14HTHE REMAINING )
  252. X      CALL CRAMI(NROMREM,0)`20
  253. X      CALL CRAMDMP(41H ROMULANS SURRENDER TO STARFLEET COMMAND.)
  254. X      CALL SKIP(1)
  255. X 105  CALL PROUT(`20
  256. X     +   53HYOU HAVE SMASHED THE KLINGON INVASION FLEET AND SAVED,53)
  257. X      CALL PROUT(15HTHE FEDERATION.,15)
  258. X      GAMEWON=1`20
  259. X      IF(ALIVE.EQ.0 .OR. BASEKL.NE.0 .OR. ISHIP.NE.IHE) GO TO 130
  260. X      IF(5*STARKL+CASUAL+10*NPLANKL+45*NHELP .GE. 100) GO TO 130
  261. X      IF(DATE-INDATE .LT. 5.0) GO TO 110
  262. X      RATEMAX=0.1*SKILL*(SKILL+1.0) + 0.1`20
  263. X      PERDATE=(KILLK+KILLC+NSCKILL)/(DATE-INDATE)`20
  264. X      IF(PERDATE .LT. RATEMAX) GO TO 130
  265. X 110  CALL SKIP(1)
  266. X      CALL PROUT(`20
  267. X     +   53HIN FACT, YOU HAVE DONE SO WELL THAT STARFLEET COMMAND,53)
  268. X      IF(SKILL .EQ. 4) GO TO 120
  269. X      IF(SKILL .EQ. 5) GO TO 125
  270. X      CALL CRAM(31HPROMOTES YOU ONE STEP IN RANK, )`20
  271. X      IF(SKILL .EQ. 1) CALL CRAMDMP(24HFROM "NOVICE" TO "FAIR".)
  272. X      IF(SKILL .EQ. 2) CALL CRAMDMP(22HFROM "FAIR" TO "GOOD".)
  273. X      IF(SKILL .EQ. 3) CALL CRAMDMP(24HFROM "GOOD" TO "EXPERT".)
  274. X      CALL PROUT(16HCONGRATULATIONS!,16)`20
  275. X      GO TO 130`20
  276. X 120  CALL PROUT(35HPROMOTES YOU TO COMMODORE EMERITUS.,35)
  277. X      IGOTIT=1
  278. X      CALL SKIP(1)
  279. X      CALL PROUT(38HNOW THAT YOU THINK YOU'RE REALLY GOOD,    ,38)  `20
  280. X      CALL PROUT(32HTRY PLAYING THE "EMERITUS" GAME.     ,32)
  281. X      CALL PROUT(26HIT WILL SPLATTER YOUR EGO.,26)`20
  282. X      GO TO 130`20
  283. X 125  CALL SKIP(1)
  284. X      CALL PROUT(35HCOMPUTER:   ERROR-ERROR-ERROR-ERROR   ,35)`20
  285. X      CALL SKIP(1)
  286. X      CALL PROUT(54H  YOUR-SKILL-HAS-EXCEEDED-THE-CAPACITY-OF-THIS-PROGR
  287. X     CAM         ,54)
  288. X      DO 126 K=1,3
  289. X 126  CALL PROUT(27H  THIS-PROGRAM-MUST-SURVIVE,27)
  290. X      CALL PROUT(41H  THIS-PROGRAM-MUST- MUST  - SUR  -  VI        ,41)
  291. X      CALL SKIP(1)
  292. X      CALL PROUT(`20
  293. X     +   53HNOW YOU CAN RETIRE AND WRITE YOUR OWN STAR TREK GAME.,53)
  294. X      IGOTIT=1
  295. X 130  CALL SKIP(1)
  296. X      CALL PROUT(22HLIVE LONG AND PROSPER.,22)`20
  297. X      CALL SCORE
  298. X      IF(IGOTIT .EQ. 0) RETURN
  299. X`09LUNSAV=LUN
  300. X`09LUN=1
  301. X      CALL SKIP(1)
  302. X`09CALL PROMPT
  303. X`091  ('DO YOU WANT YOUR "COMMODORE EMERITUS CITATION" PRINTED? ',56)`20
  304. X`09LUN=LUNSAV
  305. X      IF(JA(DUMMY) .EQ. 0) RETURN`20
  306. X`09ICITE=1
  307. X`09CALL PLAQUE
  308. X      RETURN
  309. XC--------CASE 2:  FEDERATION RESOURCES DEPLETED`20
  310. X 200  CALL PROUT(`20
  311. X     +   45HYOUR TIME HAS RUN OUT, AND THE FEDERATION HAS,45)
  312. X      CALL PROUT(15HBEEN CONQUERED.,15)
  313. X      CALL SKIP(1)
  314. X      CALL PROUT(`20
  315. X     +   54HYOUR STARSHIP IS NOW KLINGON PROPERTY, AND YOU ARE PUT,54)`20
  316. X      CALL PROUT(`20
  317. X     +   57HON TRIAL AS A WAR CRIMINAL.  ON THE BASIS OF YOUR RECORD,
  318. X`091 ,57)
  319. X      IF(REMKL*3 .GT. INKLING) GO TO 210
  320. X      CALL PROUT(`20
  321. X     +   51HYOU ARE FOUND GUILTY AND SENTENCED TO DEATH BY SLOW,51)
  322. X      CALL PROUT(8HTORTURE.,8)
  323. X      ALIVE=0`20
  324. X      CALL SCORE
  325. X      RETURN
  326. X 210  CALL PROUT(18HYOU ARE ACQUITTED.,18)`20
  327. X      CALL SKIP(1)
  328. X      CALL PROUT(22HLIVE LONG AND PROSPER.,22)`20
  329. X      CALL SCORE
  330. X      RETURN
  331. XC--------CASE 3:  LIFE SUPPORT SYSTEM FAILURE`20
  332. X 300  CALL PROUT(44HYOUR LIFE SUPPORT RESERVES HAVE RUN OUT, AND,44)`20
  333. X      CALL PROUT(`20
  334. X     +   47HYOU DIE OF THIRST, STARVATION AND ASPHYXIATION.,47)
  335. X 310  CALL SKIP(1)
  336. X      CALL PROUT(37HYOUR STARSHIP IS A DERELICT IN SPACE.,37)
  337. X      GO TO 5000
  338. XC--------CASE 4:  ENERGY SUPPLY EXHAUSTED`20
  339. X 400  CALL PROUT(32HYOUR ENERGY SUPPLY IS EXHAUSTED.,32)`20
  340. X      GO TO 310`20
  341. XC--------CASE 5:  DEFEATED IN BATTLE
  342. X 500  CALL CRAM(4HTHE )`20
  343. X      CALL CRAMSHP
  344. X      CALL CRAMDMP(30H HAS BEEN DESTROYED IN BATTLE.)`20
  345. X      CALL SKIP(1)
  346. X      CALL PROUT(37HDULCE ET DECORUM EST PRO PATRIA MORI.,37)
  347. X      GO TO 5000
  348. XC--------CASE 6:  HIT NEGATIVE ENERGY ZONE THREE TIMES
  349. X 600  CALL PROUT(`20
  350. X     +   57HYOU HAVE MADE THREE ATTEMPTS TO CROSS THE NEGATIVE ENERGY
  351. X`091 ,57)
  352. X      CALL PROUT(35HBARRIER WHICH SURROUNDS THE GALAXY.,35)
  353. X      CALL SKIP(1)
  354. X      CALL PROUT(31HYOUR NAVIGATION IS ABOMINABLE. ,31)   `20
  355. X      CALL SCORE
  356. X      RETURN
  357. XC--------CASE 7:  STARSHIP DESTROYED BY ORDINARY NOVA`20
  358. X 700  CALL PROUT(`20
  359. X     +   43HYOUR STARSHIP HAS BEEN DESTROYED BY A NOVA.,43)
  360. X 705  CALL PROUT(22HTHAT WAS A GREAT SHOT.,22)`20
  361. X      GO TO 5000
  362. XC--------CASE 8:  STARSHIP DESTROYED BY A SUPERNOVA`20
  363. X 800  CALL CRAM(4HTHE )`20
  364. X      CALL CRAMSHP
  365. X      CALL CRAMDMP(31H HAS BEEN FRIED BY A SUPERNOVA.)
  366. X      CALL PROUT(31H...NOT EVEN CINDERS REMAIN...   ,31)  `20
  367. X      GO TO 5000
  368. XC--------CASE 9:  ABANDON SHIP AFTER ALL STARBASES HAVE BEEN DESTROYED
  369. X 900  CALL PROUT(`20
  370. X     +   53HYOU HAVE BEEN CAPTURED BY THE KLINGONS.  IF YOU STILL,53)
  371. X      CALL PROUT(`20
  372. X     +   53HHAD A STARBASE TO BE RETURNED TO, YOU WOULD HAVE BEEN,53)
  373. X      CALL PROUT(`20
  374. X     +   53HREPATRIATED AND GIVEN ANOTHER CHANCE.  SINCE YOU HAVE,53)
  375. X      CALL PROUT(`20
  376. X     +   56HNO STARBASES, YOU WILL BE MERCILESSLY TORTURED TO DEATH.,56)`20
  377. X      GO TO 5000
  378. XC--------CASE 10:  STARSHIP SELF-DESTRUCTS OR DILITHIUM CRYSTAL EXPLODES.`20
  379. X 1000 CALL PROUT(63HYOUR STARSHIP IS NOW AN EXPANDING CLOUD OF SUBATOMIC
  380. X     + PARTICLES.,63)
  381. X      GO TO 5000
  382. XC--------CASE 11:  FAILED TO REMATERIALIZE AFTER CALLING FOR HELP`20
  383. X 1100 CALL PROUT(`20
  384. X     +   52HSTARBASE WAS UNABLE TO RE-MATERIALIZE YOUR STARSHIP.,52)`20
  385. X      CALL PROUT(25HSIC TRANSIT GLORIA MUNDI.,25)
  386. X      GO TO 5000
  387. XC--------CASE 13.  CAPTAIN LOST IN TRANSPORTER BEAM.
  388. X 1300 CALL PROUT(36HYOU AND YOUR LANDING PARTY HAVE BEEN    ,36)`20
  389. X      CALL PROUT(47HCONVERTED TO ENERGY, DISSIPATING THROUGH SPACE. `20
  390. X`091 ,47)
  391. X      GO TO 1410
  392. XC--------CASE 14:  MINING PARTY LEFT ON PLANET AFTER TRACTOR BEAM.
  393. X 1400 ICLASS=PLNETS(IPLANET,3)
  394. X      IF (ICLASS.NE.1) GO TO 1401
  395. X      CALL PROUT(41HYOU ARE LEFT WITH YOUR LANDING PARTY ON        ,41)
  396. X      CALL PROUT(54HA WILD JUNGLE PLANET INHABITED BY PRIMITIVE CANNIBAL
  397. X     CS.       ,54)
  398. X      CALL SKIP(1)
  399. X      CALL PROUT(42HTHEY ARE VERY FOND OF "CAPTAIN KIRK" SOUP.      `20
  400. X`091 ,42)
  401. X      GO TO 1410
  402. +-+-+-+-+-+-+-+-  END  OF PART 8 +-+-+-+-+-+-+-+-
  403.