home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug022.ark / BIGTREK.ASC next >
Encoding:
Text File  |  1984-04-29  |  47.8 KB  |  1,444 lines
  1. 1 'REWRITE BY ZOSO
  2. 2 RANDOMIZE:WIDTH90:LQ=1000
  3. 7 DIM G1$(16),V$(5,5),C$(20),G(8,8),D$(12),Q$(10,10),D4(12),D9(106)
  4. 10 DIM S2(8,8):Q$="?"
  5. 15 DATA S.R. SENSORS,L.R. SENSORS,PHASERS,PHOTON TUBES,LIFE SUPPORT
  6. 20 DATA WARP ENGINES,IMPULSE ENGINES,SHIELDS,SUBSPACE RADIO
  7. 21 DATA SHUTTLE CRAFT,COMPUTER,TRANSFER PANEL,ABANDON,CHART,COMPUTER
  8. 22 DATA DAMAGES,DESTRUCT,DOCK,IDLE,IMPULSE,LRSCAN,NAVIGATE,PHASERS,QUIT
  9. 23 DATA SHIELDS,SOS,SRSCAN,STATUS,TORPEDO,TRANSFER,VISUAL,WARP,SHORT
  10. 24 DATA MEDIUM,LONG,BEGINNER,NOVICE,SENIOR,EXPERT,COURSE,WCOST,ICOST
  11. 25 DATA PEFFECT,SCORE,OUT,ANTARES,SIRIUS,RIGEL,MERAK,PROCYON,CAPELLA
  12. 26 DATA VEGA,DENEB,CANOPUS,ALDEBARAN,ALTAIR,REGULUS,BELLATRIX,ARCTURUS
  13. 27 DATA POLLUX,SPICA,10.5,12,1.5,9,0,3,7.5,6,4.5
  14. 28 DEF FNA(X)=INT(8*RND(X))+1:DEF FNB(X)=INT(10*RND(X))+1
  15. 29 DEF FND(X)=X/60
  16. 30 DEFFNR(X)=INT(X*10+.5)/10:DEFFNS(X)=INT(X*100+.5)/100
  17. 40 FORI=1TO12:READD$(I):NEXT:FORI=1TO20:READC$(I):NEXT
  18. 43 FORI=1TO3:READT$(I):NEXT:FORI=1TO4:READS$(I):NEXT:FORI=1TO6
  19. 44 READC2$(I):NEXT:FORI=1TO16:READG1$(I):NEXT:FORI=1TO9:READC5(I):NEXT
  20. 46 GOSUB24001:S7$(1)="":S7$(2)="  ":S7$(3)=" ":S7$(4)=""
  21. 70 IFA2<>0THEN901
  22. 75 J4=0:T1=0:INPUT"COMMAND";A$:IFLEN(A$)>1THEN110
  23. 80 ?"2 LETTERS, PLEASE.":GOTO75
  24. 110 FORI=1TO20
  25. 120 IFA$=LEFT$(C$(I),LEN(A$))THEN150
  26. 130 NEXT
  27. 135 ?"ILLEGAL !! - USE THIS LIST"
  28. 140 ?:FORI=1TO20STEP4
  29. 141 ?C$(I);TAB(12);C$(I+1);TAB(22);C$(I+2);TAB(32);C$(I+3)
  30. 142 NEXT:?:GOTO70
  31. 150 ONIGOTO201,226,251,276,291,301,326,351,376,401
  32. 160 ONI-10GOTO426,901,476,501,526,545,551,576,601,627
  33. 201 GOSUB 35001:GOTO70
  34. 226 GOSUB 3001:GOTO70
  35. 251 GOSUB5001:GOTO70
  36. 276 GOSUB8001:GOTO70
  37. 291 GOSUB36001:GOTO70
  38. 301 GOSUB7000:GOTO70
  39. 326 GOSUB33001:IFJ3=0THEN70
  40. 331 IFA2<>0THEN901
  41. 332 IFG(Q1,Q2)=1000THEN750
  42. 340 GOSUB1000:GOTO70
  43. 351 GOSUB13001:IFJ3=0THEN70
  44. 353 GOTO710
  45. 376 GOSUB14001:GOTO70
  46. 401 GOSUB34001
  47. 402 IFJ3=0THEN70
  48. 410 GOTO710
  49. 426 GOSUB20001:IFJ3=0THEN70
  50. 428 GOSUB1000:GOTO70
  51. 476 GOSUB26001:IFJ3=0THEN70
  52. 478 IFA2<>0THEN901
  53. 479 GOSUB1000:S9=0:GOTO70
  54. 501 GOSUB11001:GOTO70
  55. 526 GOSUB29002:GOSUB14001:GOTO70
  56. 545 ?:GOSUB37001:GOTO70
  57. 551 GOSUB21001:IFJ3=0THEN70ELSE710
  58. 576 GOSUB31001:IFJ3=0THEN70
  59. 585 IFA2<>0THEN901
  60. 590 IFG(Q1,Q2)<>LQTHEN70
  61. 595 GOTO750
  62. 601 GOSUB32001:IFJ3=0THEN70
  63. 603 IFA2<>0THEN901
  64. 610 IFG(Q1,Q2)<>LQTHEN70
  65. 615 GOTO750
  66. 627 GOSUB25010:GOTO70
  67. 710 IFA2<>0THEN901
  68. 720 IFT1<>0THENGOSUB9000
  69. 730 IFA2<>0THEN901
  70. 740 IFG(Q1,Q2)<LQTHEN790
  71. 750 GOSUB2001:IFA2<>0THEN901
  72. 760 IFA2<>0THEN901
  73. 770 GOTO740
  74. 790 GOSUB1000:GOTO70
  75. 901 ?:?:INPUT"ANOTHER GAME ";A$
  76. 910 IFLEFT$(A$,1)="Y"THEN46
  77. 911 ?CHR$(26):END
  78. 1000 IF(C3<>0)AND(J4=0)THENGOSUB16001
  79. 1020 IFK3=0THENRETURN
  80. 1030 IFA2<>0THENRETURN
  81. 1040 P2=1/I8
  82. 1050 J5=0
  83. 1060 ?
  84. 1070 IFC5$="DOCKED"THEN1780
  85. 1080 H2=0:H3=0:C6=1
  86. 1090 IFS9=1THENC6=.5+.5*RND(1)
  87. 1100 A3=0
  88. 1110 FORL=1TOK3
  89. 1120 IFK6(L)<0THEN1540
  90. 1130 A3=1
  91. 1140 D6=.8+.05*RND(1)
  92. 1150 H4=K6(L)*D6^K8(L)
  93. 1160 IF(S4=0)AND(S9=0)THEN1230
  94. 1170 P3=.1:IFP2*S3>P3THENP3=P2*S3
  95. 1180 H5=P3*C6*H4+1
  96. 1190 IFH5>S3THENH5=S3
  97. 1195 S3=S3-H5:H4=H4-H5
  98. 1210 IF(P3>.1)AND(H4<5E-03*E1)THEN1540
  99. 1230 J5=1
  100. 1240 ?FNR(H4);"UNIT HIT ON THE ";S5$;" FROM ";
  101. 1250 J6=K4(L):J7=K5(L)
  102. 1260 IFQ$(J6,J7)="K"THEN?"KLINGON AT";
  103. 1270 IFQ$(J6,J7)="C"THEN?"COMMANDER AT";
  104. 1280 ?J6;"-";J7
  105. 1290 IFH4>H2THENH2=H4
  106. 1300 H3=H3+H4
  107. 1310 IFH4<(275-25*S8)*(1+.5*RND(1))THEN1530
  108. 1320 N4=1+INT(H4/(500+100*RND(1)))
  109. 1330 ?"*** CRITICAL HIT--";
  110. 1340 K9=1
  111. 1350 FORW4=1TON4
  112. 1360 J9=INT(12*RND(1))+1
  113. 1370 C5(W4)=J9
  114. 1380 E3=(H4*D5)/(N4*(75+25*RND(1)))
  115. 1390 IFJ9=6THENE3=E3/3
  116. 1395 D4(J9)=D4(J9)+E3
  117. 1400 IFW4=1THEN1470
  118. 1420 FORV=1TOW4
  119. 1430 IFJ9=C5(V-1)THEN1480
  120. 1440 NEXTV
  121. 1450 K9=K9+1
  122. 1460 IFK9=3THEN?
  123. 1465 ? " AND ";
  124. 1470 ?D$(J9);
  125. 1480 NEXTW4
  126. 1490 ? " DAMAGED."
  127. 1500 IFD4(8)=0THEN1530
  128. 1510 IFS4<>0THEN?"*** SHIELDS KNOCKED DOWN."
  129. 1520 S4=0
  130. 1530 E1=E1-H4
  131. 1540 NEXTL
  132. 1550 IFA3=0THENRETURN
  133. 1560 IFE1<=0THEN1750
  134. 1570 P4=100*P2*S3+.5
  135. 1580 IFJ5<>0THEN1610
  136. 1590 ?"ENEMY ATTACK--SHIELDS REDUCED TO ";
  137. 1600 GOTO1650
  138. 1610 ?"ENERGY LEFT:";FNS(E1);"   SHIELDS ";
  139. 1620 IFS4<>0THEN?"UP,";
  140. 1630 IF(S4=0)AND(D4(8)=0)THEN?"DOWN, ";
  141. 1640 IFD4(8)>0THEN?"DAMAGED, ";
  142. 1650 ?INT(P4);"%"
  143. 1660 IF(H2<200)AND(H3<500)THEN1800
  144. 1670 J8=INT(H3*RND(1)*.015)
  145. 1680 IFJ8<2THEN1800
  146. 1690 ?
  147. 1700 ?"---> 'SICKBAY TO BRIDGE.  WE SUFFERED ";J8;"CASUALTIES IN THAT ATTACK"
  148. 1730 C4=C4+J8
  149. 1740 GOTO1800
  150. 1750 F9=5
  151. 1760 GOSUB10000:RETURN
  152. 1780 ?"*** KLINGONS ATTACK-- STARBASE SHIELDS PROTECT THE ";S5$
  153. 1800 FORW4=1TOK3
  154. 1810 K8(W4)=K7(W4)
  155. 1820 NEXTW4
  156. 1830 GOSUB28000:RETURN
  157. 2001 ?:IFJ4=0THEN2050
  158. 2020 ?"*** RED ALERT!  RED ALERT!"
  159. 2030 ?"*** THE ";S5$;" HAS STOPPED IN QUADRANT CONTAINING SUPERNOVA"
  160. 2050 ? "*** AUTO-OVERRIDE ATTEMPTS TO HURL ";S5$;" TO OTHER QUADRANT"
  161. 2080 S2(Q1,Q2)=1
  162. 2090 GOSUB18000
  163. 2100 IFD4(6)=0THEN2290
  164. 2110 ?
  165. 2120 ?"WARP ENGINES DAMAGED."
  166. 2140 ?:?"TRYING TO ENGAGE IMPULSE ENGINES..."
  167. 2150 IFD4(7)=0THEN2190
  168. 2160 ?"IMPULSE ENGINES DAMAGED."
  169. 2165 F9=8
  170. 2170 GOSUB10000
  171. 2180 RETURN
  172. 2190 P2=.75*E1
  173. 2200 D6=4E-03*(P2-50)
  174. 2210 D7=1.4142+1.2*RND(1)
  175. 2220 D1=D6
  176. 2230 IFD6>D7THEND1=D7
  177. 2240 T1=D1/.4
  178. 2250 D2=12*RND(1)
  179. 2260 J4=0
  180. 2270 GOSUB13200
  181. 2280 GOTO2400
  182. 2290 W1=6+2*RND(1)
  183. 2300 W2=W1*W1
  184. 2310 P2=.75*E1
  185. 2320 D6=P2/(W1*W1*W1*(S4+1))
  186. 2330 D7=1.4142+2*RND(1)
  187. 2340 D1=D6
  188. 2350 IFD6>D7THEND1=D7
  189. 2360 T1=10*D1/W2
  190. 2370 D2=12*RND(1)
  191. 2380 J4=0
  192. 2390 GOSUB34500
  193. 2400 IFJ4<>0THEN2440
  194. 2410 F9=8
  195. 2420 GOSUB10000
  196. 2430 RETURN
  197. 2440 IFR1<>0THENRETURN
  198. 2450 F9=1
  199. 2460 GOSUB10000
  200. 2470 RETURN
  201. 3001 ?:?"      1   2   3   4   5   6   7   8"
  202. 3010 ?"     --- --- --- --- --- --- --- ---"
  203. 3020 FORI=1TO8
  204. 3030 ?I;" ";
  205. 3040 FORJ=1TO8
  206. 3060 ONSGN(S2(I,J))+2GOTO3070,3090,3110
  207. 3070 ?" .1.";
  208. 3080 GOTO 3160
  209. 3090 ?" ...";
  210. 3100 GOTO3160
  211. 3110 IFS2(I,J)>LQTHEN3150
  212. 3120 IFG(I,J)<LQTHEN?S7$(LEN(STR$(G(I,J))));STR$(G(I,J));
  213. 3130 IFG(I,J)=LQTHEN?" ***";
  214. 3140 GOTO3160
  215. 3150 ?S2(I,J)-LQ;
  216. 3160 NEXTJ:?:NEXTI:GOSUB18400:?
  217. 3190 ?"THE ";S5$;" IS CURRENTLY IN ";G2$;" (";Q1;"-";Q2;")"
  218. 3200 RETURN
  219. 4001 ?CHR$(26)
  220. 4070 S8=0:L2=0
  221. 4090 ?"MISSION DURATION...: ";
  222. 4095 INPUTA$
  223. 4100 FOR I=1TO3
  224. 4110 IFA$=LEFT$(T$(I),LEN(A$))THEN4150
  225. 4120 NEXTI
  226. 4130 ?"WOULD YOU LIKE A SHORT, MEDIUM OR LONG GAME";
  227. 4140 GOTO4095
  228. 4150 L2=I
  229. 4160 ?"ARE YOU A BEGINNER, NOVICE, SENIOR OR EXPERT ";
  230. 4170 INPUTA$
  231. 4180 FORI=1TO4
  232. 4190 IFA$=LEFT$(S$(I),LEN(A$))THEN4220
  233. 4200 NEXTI
  234. 4210 GOTO4160
  235. 4220 S8=I:MR=I
  236. 4230 INPUT"ENTER MISSION PASSWORD...";X$:?
  237. 4245 ?"....STAND BY...."
  238. 4250 J=RND(1)
  239. 4280 D5=.5*S8:I2=INT(L2+1+RND(1)*3)
  240. 4290 IFI2>5THENI2=5
  241. 4300 R3=I2
  242. 4310 I5=7*L2
  243. 4320 R5=I5
  244. 4340 R7=(S8-2*RND(1)+1)*S8*.1+.1
  245. 4350 IFR7<.2THENR7=R7+.1
  246. 4360 I1=INT(2*R7*I5)
  247. 4370 R1=I1
  248. 4380 I4=INT(S8+.0625*I1*RND(1))
  249. 4390 R2=I4
  250. 4400 I3=(I1+4*I4)*I5
  251. 4410 R4=I3
  252. 4420 RETURN
  253. 5001 IFD4(11)=0THEN5030
  254. 5010 ?" COMPUTER DISABLED"
  255. 5020 RETURN
  256. 5030 ?"----COMPUTER ACTIVE----"
  257. 5040 INPUT"PROGRAM NAME";B$
  258. 5050 FORI=1TO6
  259. 5060 IFB$=LEFT$(C2$(I),LEN(B$))THEN5120
  260. 5070 NEXT
  261. 5080 ?"VALID PROGRAMS ARE:"
  262. 5090 ?"  COURSE    WCOST   SCORE"
  263. 5100 ?"  PEFFECT   ICOST   OUT"
  264. 5110 GOTO5040
  265. 5120 ON IGOTO5210,5302,5410,5510,5610,5700
  266. 5210 INPUT "ENTER QUADRANT AND SECTOR - ";A3,A4
  267. 5220 IF(A3<>INT(A3))OR(A4<>INT(A4))THEN5990
  268. 5221 IFA3<0THEN5040
  269. 5222 IFA3=0THENA3=10*Q1+Q2
  270. 5223 A3=A3+.5
  271. 5225 K=INT(A3/10)
  272. 5226 IF(K<1)OR(K>8)THEN5990
  273. 5227 C6(1)=K:K=INT(A3-C6(1)*10)
  274. 5228 IF(K<1)OR(K>8)THEN5990
  275. 5229 C6(2)=K:A4=A4+.5
  276. 5230 K=INT(A4/100)
  277. 5231 IF(K<1)OR(K>10)THEN5990
  278. 5232 C6(1)=C6(1)+(K-1)/10:K=INT(A4-K*100)
  279. 5233 IF(K<1)OR(K>10)THEN5990
  280. 5234 C6(2)=C6(2)+(K-1)/10
  281. 5235 X=Q1+((S6-1)/10)-C6(1):Y=Q2+((S7-1)/10)-C6(2)
  282. 5236 D1=0:D2=0:IF(X=0)AND(Y=0)THEN5250
  283. 5237 D1=SQR(X*X+Y*Y)
  284. 5238 IFX<0THENZ7=SGN(Y)*(3.1416-ATN(ABS(Y/X)))
  285. 5239 IFX=0THENZ7=SGN(Y)*1.5708
  286. 5240 IFX>0THENZ7=ATN(Y/X)
  287. 5245 D2=12-Z7*1.9098593:IFD2>12THEND2=D2-12
  288. 5250 ?"COURSE IS";FNS(D2);" FOR A DISTANCE OF";
  289. 5260 ?FNS(D1);"QUADRANTS.":GOTO5040
  290. 5302 INPUT"ENTER DISTANCE AND WARP FACTOR";D1,A4
  291. 5304 IF(D1<0)THEN5040
  292. 5310 C7=D1*A4*A4*A4
  293. 5315 T1=(10*D1)/((A4*A4)+1E-05)
  294. 5320 ?"IT WOULD TAKE";FNS(T1);"STARDATES AND USE"
  295. 5325 ?FNR(C7);"UNITS OF ENERGY  (";FNR(C7+C7);"IF SHIELDS ARE UP)"
  296. 5330 GOTO5040
  297. 5410 INPUT"ENTER DISTANCE...";D1
  298. 5420 IFD1<0THEN5040
  299. 5430 C7=250*D1+50:T1=D1/.4
  300. 5440 ?"IT WOULD TAKE";FNR(T1);"STARDATES AND USE"
  301. 5450 ?C7;"UNITS OF ENERGY"
  302. 5460 GOTO5040
  303. 5510 INPUT"ENTER PHASER RANGE IN QUADRANTS";A3
  304. 5520 IFA3<0THEN5040
  305. 5530 A3=A3*10:C7=(.9^A3)*100
  306. 5540 ?"PHASERS ARE ";LEFT$(STR$(C7),5);"% EFFECTIVE AT THAT RANGE"
  307. 5550 GOTO5040
  308. 5610 GOSUB23000
  309. 5620 GOTO5040
  310. 5700 RETURN
  311. 5990 ?"FORMAT IS MN,XXYY...WHERE MN IS THE QUADRANT"
  312. 5991 ?"AND XXYY IS THE SECTOR...E.G. 64,0307 REFERS"
  313. 5992 ?"TO QUADRANT 6-4, SECTOR 3-7."
  314. 5995 GOTO 5040
  315. 6000 IFT2$<>"C"THEN6100
  316. 6010 C3=0:?"*** COMMANDER AT";
  317. 6030 FORF=1TOR2:IF(C1(F)=Q1)AND(C2(F)=Q2)THEN6050
  318. 6040 NEXTF
  319. 6050 C1(F)=C1(R2):C2(F)=C2(R2):C1(R2)=0:C2(R2)=0
  320. 6060 R2=R2-1:F1(2)=1E+30
  321. 6070 IFR2<>0THENF1(2)=D0-(I4/R2)*LOG(RND(1))
  322. 6080 K2=K2+1
  323. 6090 GOTO6120
  324. 6100 ?"*** KLINGON AT";
  325. 6110 K1=K1+1
  326. 6120 ?A5;"-";A6;"DESTROYED."
  327. 6130 Q$(A5,A6)=".":R1=R1-1
  328. 6140 IFR1=0THENRETURN
  329. 6150 R5=R4/(R1+4*R2)
  330. 6160 G(Q1,Q2)=G(Q1,Q2)-100
  331. 6170 FORF=1TOK3
  332. 6180 IF(K4(F)=A5)AND(K5(F)=A6)THEN6200
  333. 6190 NEXTF
  334. 6200 K3=K3-1
  335. 6210 IFF>K3THEN6250
  336. 6220 FORG=FTOK3
  337. 6230 K4(G)=K4(G+1):K5(G)=K5(G+1):K6(G)=K6(G+1)
  338. 6235 K7(G)=K7(G+1):K8(G)=K7(G)
  339. 6240 NEXTG
  340. 6250 K4(K3+1)=0:K5(K3+1)=0:K7(K3+1)=0:K8(K3+1)=0:K6(K3+1)=0
  341. 6260 RETURN
  342. 7000 IFC5$="DOCKED"THEN7100
  343. 7010 IFB6=0THEN7020
  344. 7015 IF(ABS(S6-B6)<=1)AND(ABS(S7-B7)<=1)THEN7040
  345. 7020 ?S5$;" NOT ADJACENT TO A BASE."
  346. 7030 RETURN
  347. 7040 C5$="DOCKED"
  348. 7050 ?"---> DOCKING COMPLETED"
  349. 7060 E1=I7:S3=I8:T4=I9:L1=J1
  350. 7070 RETURN
  351. 7100 ?"CAPTAIN, WE'RE ALREADY DOCKED!"
  352. 7110 RETURN
  353. 8001 J=0:?:FORI=1TO12
  354. 8010 IFD4(I)<=0THEN8070
  355. 8020 IFJ<>0THEN8060
  356. 8030 ?"     DEVICE";SPC(12);"-REPAIR TIMES-"
  357. 8040 ?SPC(21);"IN FLIGHT    DOCKED":J=1
  358. 8060 ?"  ";D$(I);TAB(23);FNS(D4(I));TAB(33);FNS(D3*D4(I))
  359. 8070 NEXTI
  360. 8080 IFJ=0THEN?" - ALL DEVICES FUNCTIONAL -"
  361. 8090 RETURN
  362. 9000 M=0:D7=D0+T1:FORL=1TO5
  363. 9020 IFF1(L)>D7THEN9040
  364. 9030 M=L:D7=F1(L)
  365. 9040 NEXTL
  366. 9050 X6=D7-D0:D0=D7
  367. 9060 R4=R4-(R1+4*R2)*X6
  368. 9070 R5=R4/(R1+4*R2)
  369. 9080 IFR5>0THEN9120
  370. 9090 F9=2
  371. 9100 GOSUB10000
  372. 9110 RETURN
  373. 9120 IF(D4(5)=0)OR(C5$="DOCKED")THEN9180
  374. 9130 IF(L1>=X6)OR(D4(5)<=L1)THEN9160
  375. 9140 F9=3:GOSUB10000
  376. 9150 RETURN
  377. 9160 L1=L1-X6
  378. 9170 IFD4(5)<=X6THENL1=J1
  379. 9180 R=X6
  380. 9190 IFC5$="DOCKED"THENR=X6/D3
  381. 9200 FORL=1TO12
  382. 9210 IFD4(L)<=0THEN9230
  383. 9220 D4(L)=D4(L)-R
  384. 9225 IFD4(L)<0THEND4(L)=0
  385. 9226 IFD4(L)<>0THEN9230
  386. 9227 ?:?"DAMAGE CONTROL-  ";D$(L);" NOW OPERATIONAL."
  387. 9230 NEXTL
  388. 9240 IFM=0THENRETURN
  389. 9250 T1=T1-X6
  390. 9260 ONMGOTO9280,9291,9340,9355,9475
  391. 9280 X2=0:Y2=0:GOSUB27000
  392. 9285 F1(1)=D0-.5*I5*LOG(RND(1))
  393. 9286 IFG(Q1,Q2)=LQTHENRETURN
  394. 9287 GOTO9000
  395. 9291 IFR2=0THEN9330
  396. 9292 IFC5$="DOCKED"THEN9325
  397. 9293 I=INT(RND(1)*R2)+1
  398. 9294 Y6=(C1(I)-Q1)^2+(C2(I)-Q2)^2
  399. 9295 IFY6=0THEN9325
  400. 9296 Y6=SQR(Y6):T1=.17778*Y6
  401. 9297 ?:?"*** ";S5$;" CAUGHT IN LONG-RANGE TRACTOR BEAM--"
  402. 9298 Q1=C1(I):Q2=C2(I)
  403. 9299 S6=FNB(1):S7=FNB(1)
  404. 9300 ?"PULLED TO QUADRANT";Q1;"-";Q2;", SECTOR";S6;"-";S7
  405. 9301 IFR6<>0THEN?"(IDLE PERIOD CANCELLED)"
  406. 9302 R6=0
  407. 9303 IFS4<>0THEN9320
  408. 9304 IF(D4(8)=0)AND(S3>0)THEN9310
  409. 9305 ?"(SHIELDS NOT CURRENTLY USABLE.)"
  410. 9307 GOTO9320
  411. 9310 GOSUB26500
  412. 9315 S9=0
  413. 9320 GOSUB18000
  414. 9325 F1(2)=D0+T1-1.5*(I5/R2)*LOG(RND(1))
  415. 9326 GOTO9000
  416. 9330 F1(2)=1E+30:GOTO9000
  417. 9340 D9(1)=D0:D9(2)=R1:D9(3)=R2:D9(4)=R3:D9(5)=R4:D9(6)=R5
  418. 9342 D9(7)=S1:D9(8)=B1:D9(9)=K1:D9(10)=K2
  419. 9343 FORI=1TO8:FORJ=1TO8:D9(I-1+8*(J-1)+11)=G(I,J):NEXTJ:NEXTI
  420. 9344 FORI=75TO84:D9(I)=C1(I-74):NEXT
  421. 9345 FORI=85TO94:D9(I)=C2(I-84):NEXT
  422. 9346 FORI=95TO99:D9(I)=B2(I-94):NEXT
  423. 9347 FORI=100TO104:D9(I)=B3(I-99):NEXT
  424. 9348 D9(105)=B4:D9(106)=B5
  425. 9349 S0=1:F1(3)=D0-.3*I5*LOG(RND(1)):GOTO9000
  426. 9355 IF(R2=0)OR(R3=0)THEN9400
  427. 9360 FORI=1TOR3:FORJ=1TOR2:IF(B2(I)=C1(J))AND(B3(I)=C2(J))THEN9410
  428. 9370 NEXTJ:NEXTI
  429. 9380 F1(4)=D0+.5+3*RND(1)
  430. 9390 F1(5)=1E+30:GOTO9000
  431. 9400 F1(4)=1E+30:F1(5)=1E+30:GOTO9000
  432. 9410 B4=B2(I):B5=B3(I)
  433. 9420 IF(B4=Q1)AND(B5=Q2)THEN9380
  434. 9430 F1(5)=D0+.5+3*RND(1)
  435. 9440 F1(4)=F1(5)-.3*I5*LOG(RND(1))
  436. 9450 IFD4(9)>0THEN9000
  437. 9460 ?:?"  CAPTAIN, THE STARBASE IN";B4;"-";B5;"IS UNDER ATTACK-"
  438. 9462 ?"  AND CAN ONLY RESIST UNTIL STARDATE";FNR(F1(5));"!!!"
  439. 9465 IFR6=0THEN9000
  440. 9466 INPUT"  SHALL WE CANCEL IDLE PERIOD";B$
  441. 9468 IFLEFT$(B$,1)="Y"THENR6=0
  442. 9469 GOTO9000
  443. 9475 F1(5)=1E+30:IF(R2=0)OR(R3=0)THEN9000
  444. 9485 K=INT(G(B4,B5)/100):IFG(B4,B5)-K*100<10THEN9000
  445. 9490 FORI=1TOR2:IF(C1(I)=B4)AND(C2(I)=B5)THEN9520
  446. 9510 NEXT:GOTO9000
  447. 9520 IFS2(B4,B5)=-1THENS2(B4,B5)=0
  448. 9530 IFS2(B4,B5)>999THENS2(B4,B5)=S2(B4,B5)-10
  449. 9540 IF(B4<>Q1)OR(B5<>Q2)THEN9630
  450. 9550 FORI=1TOK3:K=K4(I):L=K5(I)
  451. 9560 IFQ$(K,L)="C"THEN9570
  452. 9565 NEXT
  453. 9570 IFK6(I)<25+50*RND(1)THEN9000
  454. 9580 Q$(B6,B7)=".":B6=0:B7=0
  455. 9590 GOSUB17000
  456. 9600 ?:?"CAPTAIN, I BELIEVE THE STARBASE HAS BEEN DESTROYED"
  457. 9620 GOTO9680
  458. 9630 IF(R3=1)OR(D4(9)>0)THEN9680
  459. 9640 ?
  460. 9650 ?"--> STARFLEET COMMAND REPORTS THAT STARBASE IN QUADRANT";B4;"-";B5
  461. 9660 ?"HAS BEEN DESTROYED BY ENEMY COMMANDER !!"
  462. 9680 G(B4,B5)=G(B4,B5)-10
  463. 9690 IFR3<=1THEN9730
  464. 9700 FORI=1TOR3:IF(B2(I)=B4)AND(B3(I)=B5)THEN9720
  465. 9710 NEXT
  466. 9720 B2(I)=B2(R3):B3(I)=B3(R3)
  467. 9730 R3=R3-1
  468. 9740 GOTO9000
  469. 10000 ?:?:?:INPUT"CONFLICT RESOLVED - PREPARED FOR RATING ";B$
  470. 10001 ?CHR$(26):A2=1:?:?"IT IS STARDATE";FNR(D0):?
  471. 10010 ONF9GOTO10025,10135,10165,10190,10200,10205,10225,10240
  472. 10015 ONF9-8GOTO10250,10271,10285
  473. 10025 ?"YOU HAVE DESTROYED THE KLINGON INVASION FLEET":?
  474. 10030 ?"     ***THE FEDERATION IS SAVED***":G1=1
  475. 10035 IF(A1=0)OR(B1<>0)THEN10110
  476. 10040 IFLEFT$(S5$,1)<>"E"THEN10110
  477. 10045 IF3*S1+35*N1+C4>=100THEN10110
  478. 10050 IFD0-J2<=6THEN10075
  479. 10060 R8=.1*S8*(S8+1)+.1
  480. 10065 IF(K1+K2)/(D0-J2)<R8THEN10110
  481. 10075 ?:?"YOU HAVE DONE SO WELL THAT COMMAND"
  482. 10076 IFS8=4THEN10090
  483. 10080 ?"PROMOTES YOU.....";
  484. 10085 IFS8=1THEN?"TO NOVICE CLASS!"
  485. 10086 IFS8=2THEN?"TO SENIOR CLASS!"
  486. 10087 IFS8=3THEN?"TO EXPERT CLASS!"
  487. 10088 ?"   ***CONGRATULATIONS***":GOTO10110
  488. 10090 ?"PROMOTES YOU TO 'COMMODORE EMERITUS'."
  489. 10100 ?:?"NOW YOU CAN RETIRE !"
  490. 10110 GOSUB23000
  491. 10120 RETURN
  492. 10135 ?"TIME HAS RUN OUT - THE FEDERATION HAS BEEN CONQUERED AND YOUR CRAFT"
  493. 10136 ?"IS NOW ENEMY PROPERTY... YOU WILL STAND TRIAL AS A WAR-CRIMINAL..."
  494. 10137 ?"ON THE BASIS OF YOUR RECORD YOU WILL BE";
  495. 10139 IFR1*3>I1THEN10150
  496. 10140 ?" SUMMARILY EXECUTED"
  497. 10145 A1=0:GOSUB23000:RETURN
  498. 10150 ?" IMPRISONED FOR LIFE"
  499. 10165 ?"YOUR LIFE SUPPORT RESERVES HAVE RUN OUT, AND"
  500. 10170 ?"YOU WILL SOON DIE!!!"
  501. 10172 ?
  502. 10175 ?"YOUR STARSHIP IS A DERELICT IN SPACE."
  503. 10180 GOTO10300
  504. 10190 ?"YOUR ENERGY SUPPLY IS EXHAUSTED.":GOTO10172
  505. 10200 ?"THE ";S5$;" HAS BEEN DESTROYED IN BATTLE."
  506. 10201 GOTO10300
  507. 10205 RETURN
  508. 10225 ?"YOUR STARSHIP HAS BEEN DESTROYED BY A NOVA."
  509. 10230 ?"NICE WORK, IDIOT !!!":GOTO10300
  510. 10240 ?"THE ";S5$;" HAS BEEN INCINERATED BY A SUPERNOVA."
  511. 10241 GOTO10300
  512. 10250 ?"YOU HAVE BEEN CAPTURED BY THE ENEMY. IF YOU STILL HAD A STARBASE,"
  513. 10255 ?"YOU WOULD HAVE BEEN REPATRIATED. SINCE YOU HAVE NO BASES, YOU WILL"
  514. 10260 ?"BE MERCILESSLY TORTURED !!"
  515. 10266 GOTO10300
  516. 10271 ?:?"THE ";S5$;" IS NOW AN EXPANDING CLOUD"
  517. 10272 ?"OF SUB-ATOMIC PARTICLES...":GOTO10300
  518. 10285 ?"STARBASE WAS UNABLE TO RE-MATERIALIZE YOUR STARSHIP."
  519. 10300 ?
  520. 10310 IFLEFT$(S5$,1)="F"THENS5$=""
  521. 10315 IFLEFT$(S5$,1)="E"THENS5$="FAERIE QUEENE"
  522. 10316 A1=0
  523. 10320 IFR1=0THEN10355
  524. 10325 G3=R4/I3:B8=(R1+2*R2)/(I1+2*I4)
  525. 10326 A3=G3/B8
  526. 10327 IF A3<1+.5+RND(1)THEN10345
  527. 10330 ?"AS A RESULT OF YOUR ACTIONS, A TREATY WITH THE KLINGON"
  528. 10331 ?"EMPIRE HAS BEEN SIGNED.  THE TERMS OF THE TREATY ARE"
  529. 10332 IFA3<3*RND(1)THEN10340
  530. 10335 ?"FAVORABLE TO THE FEDERATION.":?
  531. 10336 ?"CONGRATULATIONS.":GOTO10350
  532. 10340 ?"HIGHLY UNFAVORABLE TO THE FEDERATION.":GOTO10350
  533. 10345 ?"THE FEDERATION WILL BE DESTROYED!"
  534. 10350 GOSUB23000:RETURN
  535. 10355 ?"SINCE YOU TOOK THE LAST KLINGON WITH YOU, YOU ARE"
  536. 10360 ?"A MARTYR AND A HERO.":G1=1:A1=0
  537. 10390 GOSUB23000:RETURN
  538. 11001 IFC5$<>"DOCKED"THEN11020
  539. 11010 ?"--> CAPTAIN, WE'RE ALREADY DOCKED!"
  540. 11015 RETURN
  541. 11020 IFD4(9)=0THEN11030
  542. 11025 ?"SUBSPACE RADIO DAMAGED...CANNOT TRANSMIT.":RETURN
  543. 11030 IFR3<>0THEN11050
  544. 11040 ?"CAPTAIN, NO RESPONSE FROM STARBASE !":RETURN
  545. 11050 N1=N1+1:IFB6=0THEN11070
  546. 11060 GOTO11130
  547. 11070 D1=1E+30
  548. 11080 FORL=1TOR3:X=10*SQR((B2(L)-Q1)^2+(B3(L)-Q2)^2)
  549. 11090 IFX>D1THEN11110
  550. 11100 D1=X:K=L
  551. 11110 NEXTL
  552. 11120 Q1=B2(K):Q2=B3(K):GOSUB18000
  553. 11130 Q$(S6,S7)="."
  554. 11135 ?
  555. 11140 ?"STARBASE IN QUADRANT";Q1;"-";Q2;"RESPONDS --";
  556. 11145 ?"  ";S5$;" DEMATERIALIZES."
  557. 11146 P2=(1-.98^D1)^.333333
  558. 11150 FORL=1TO3
  559. 11155 IFL=1THEN?"1ST ";
  560. 11160 IFL=2THEN?"2ND ";
  561. 11170 IFL=3THEN?"3RD ";
  562. 11180 ?"ATTEMPT TO RE-MATERIALIZE THE ";S5$;". . . . .";
  563. 11190 IFRND(1)>P2THEN11220
  564. 11200 ?"FAILS.":NEXTL
  565. 11210 F9=11:GOSUB10000:RETURN
  566. 11220 FORL=1TO5:I=B6+INT(3*RND(1))-1
  567. 11230 IF(I<1)OR(I>10)THEN11260
  568. 11235 J=B7+INT(3*RND(1))-1
  569. 11240 IF(J<1)OR(J>10)THEN11260
  570. 11250 IFQ$(I,J)="."THEN11270
  571. 11260 NEXTL:?"FAILS.":GOTO11210
  572. 11270 ?"SUCCEEDS.":S6=I:S7=J:Q$(I,J)=LEFT$(S5$,1)
  573. 11280 GOSUB7000:?"CAPTAIN, WE MADE IT!":RETURN
  574. 12001 P4=2:L5=K3:N=1
  575. 12010 FORK=1TOL5
  576. 12020 IFH3(K)=0THEN12240
  577. 12030 D6=.9+.01*RND(1):H2=H3(K)*D6^K7(N)
  578. 12040 P3=K6(N)
  579. 12050 P=ABS(P3):IFP4*H2<PTHENP=P4*H2
  580. 12060 K6(N)=P3-SGN(P3)*ABS(P)
  581. 12070 X8=K4(N):Y8=K5(N)
  582. 12080 IFH2>4.99THEN12100
  583. 12090 ?"MINOR HIT ON ":GOTO12110
  584. 12100 ?FNR(H2);"UNIT HIT ON ";
  585. 12110 M$=Q$(X8,Y8)
  586. 12120 IF M$="K"THEN?"KLINGON AT";
  587. 12125 IFM$="C"THEN?"COMMANDER AT";
  588. 12130 ?X8;"-";Y8
  589. 12140 IFK6(N)<>0THEN12180
  590. 12150 A5=X8:A6=Y8:T2$=Q$(X8,Y8):GOSUB6000
  591. 12160 IFR1<>0THEN12250
  592. 12170 F9=1:GOSUB10000:GOTO12250
  593. 12180 IFK6(N)<0THEN12240
  594. 12190 IFRND(1)<.9THEN12240
  595. 12200 IFK6(N)>(.4+.4*RND(1))*P3THEN12240
  596. 12205 ?
  597. 12210 ?"*** CAPTAIN, THE VESSEL AT SECTOR";
  598. 12215 ?X8;"-";Y8
  599. 12220 ?"   HAS JUST LOST ITS FIREPOWER !!!"
  600. 12225 ?
  601. 12230 K6(N)=-K6(N)
  602. 12240 N=N+1
  603. 12250 NEXTK
  604. 12260 RETURN
  605. 13001 J3=0
  606. 13010 IFD4(7)<>0THEN13250
  607. 13020 IFE1<=75THEN13070
  608. 13030 INPUT"ENTER COURSE....";D2
  609. 13040 IFD2<.01ORD2>12THENGOSUB40000ELSE13048
  610. 13041 RETURN
  611. 13048 INPUT"DISTANCE ";D1:IFD1>0THEN13050
  612. 13049 RETURN
  613. 13050 P3=50+250*D1
  614. 13060 IFP3<E1THEN13140
  615. 13070 ?
  616. 13080 ?"1ST OFFICER SPOCK-  'CAPTAIN, THE IMPULSE ENGINES"
  617. 13090 ?"REQUIRE 50 UNITS OF ENERGY TO ENGAGE, PLUS 250 UNITS PER ";
  618. 13100 IFE1>75THEN13120
  619. 13110 ?"QUADRANT.  THEY ARE USELESS NOW.'":RETURN
  620. 13120 ?"QUADRANT.  WE CAN GO A MAXIMUM OF ";
  621. 13130 ?FNR(4E-03*(E1-50)-.05);"QUADRANTS.'":RETURN
  622. 13140 T1=D1/.4
  623. 13150 IFT1<R5THEN13200
  624. 13160 ?"SIR, MAX. SPEED UNDER IMPULSE IS ONLY 4 SECTORS PER STARDATE"
  625. 13170 INPUT"-- AUTHORIZE ";B$
  626. 13190 IFLEFT$(B$,1)<>"Y"THENRETURN
  627. 13200 GOSUB15001:J3=1
  628. 13210 IFA2<>0THENRETURN
  629. 13220 E1=E1-P3
  630. 13230 IFE1>0THENRETURN
  631. 13240 F9=4:GOSUB10000:RETURN
  632. 13250 ?"IMPULSE ENGINES DAMAGED.":RETURN
  633. 14001 N$="    #"
  634. 14005 ?
  635. 14010 IFD4(2)<>0THEN14180
  636. 14020 ?"L.R. SCAN FOR QUADRANT";Q1;"-";Q2:?
  637. 14030 I=Q1-1:J=Q1+1:K=Q2-1:L=Q2+1
  638. 14040 FORM=ITOJ:FORN=KTOL
  639. 14050 IF(M<=0)OR(M>8)THEN14110
  640. 14060 IF(N<=0)OR(N>8)THEN14110
  641. 14070 IFD4(11)=0THENS2(M,N)=1
  642. 14080 IFG(M,N)>=LQTHEN ?"  ***";" ";
  643. 14090 IFG(M,N)<LQTHEN?SPC(5-LEN(STR$(G(M,N))));G(M,N);
  644. 14100 GOTO14120
  645. 14110 ?N$;" ";
  646. 14120 NEXTN:?
  647. 14130 ?
  648. 14140 NEXTM
  649. 14150 IFD4(11)=0THENRETURN
  650. 14160 ?"*** WARNING *** - COMPUTER DISABLED - SCAN NOT RECORDED."
  651. 14170 RETURN
  652. 14180 ?"LONG RANGE SENSORS DAMAGED.":RETURN
  653. 15001 A5=(15-D2)*.523599:D4=-SIN(A5):D6=COS(A5):B8=ABS(D4)
  654. 15030 IFABS(D6)>B8THENB8=ABS(D6)
  655. 15040 D4=D4/B8:D6=D6/B8:T5=0:T6=0
  656. 15050 IFD0+T1<F1(2)THEN15080
  657. 15060 T5=1:C5$="RED":D1=D1*(F1(2)-D0)/T1+.1
  658. 15070 T1=F1(2)-D0+1E-05
  659. 15080 Q$(S6,S7)=".":X7=S6:Y7=S7:H9=INT(10*D1*B8+.5)
  660. 15090 IFH9=0THEN15115
  661. 15100 FORL=1TOH9
  662. 15102 X7=X7+D4:X1=INT(X7+.5):Y7=Y7+D6:Y1=INT(Y7+.5)
  663. 15105 IF(X1<1)OR(X1>10)THEN15150
  664. 15106 IF(Y1<1)OR(Y1>10)THEN15150
  665. 15108 IFQ$(X1,Y1)="O"THEN15111
  666. 15109 IFQ$(X1,Y1)<>"."THEN15125
  667. 15110 NEXTL
  668. 15111 D1=.1*SQR((S6-X1)^2+(S7-Y1)^2)
  669. 15112 S6=X1:S7=Y1
  670. 15115 F4=S6:F5=S7
  671. 15116 IFQ$(X1,Y1)<>"O"THEN15320
  672. 15120 T2=FNA(1):T3=FNA(1)
  673. 15122 Q1=FNA(1):Q2=FNA(1):S6=FNB(1):S7=FNB(1):?
  674. 15123 ?"*** SPACE PORTAL ENTERED ***":GOTO15307
  675. 15125 T6=1:K=50*D1/T1+.001:D1=.1*SQR((S6-X1)^2+(S7-Y1)^2)
  676. 15127 IF(Q$(X1,Y1)="K")OR(Q$(X1,Y1)="C")THEN15145
  677. 15129 ?:?S5$;" BLOCKED BY ";
  678. 15130 IFQ$(X1,Y1)="*"THEN?"STAR AT";
  679. 15131 IFQ$(X1,Y1)="B"THEN?"STARBASE AT";
  680. 15132 ?" SECTOR";X1;"-";Y1;"...."
  681. 15133 ?"EMERGENCY STOP REQUIRED";FNR(K);"UNITS OF ENERGY."
  682. 15135 E1=E1-K
  683. 15137 S6=INT(X7-D4+.5):F4=S6:S7=INT(Y7-D6+.5):F5=S7
  684. 15140 IFE1>0THEN15320
  685. 15141 F9=4:GOSUB10000:RETURN
  686. 15145 S6=X1:S7=Y1:GOSUB22001:F4=S6:F5=S7:GOTO15320
  687. 15150 IFK3=0THEN15165
  688. 15155 FORL=1TOK3
  689. 15156 F3=SQR((X1-K4(L))^2+(Y1-K5(L))^2)
  690. 15158 K8(L)=.5*(F3+K7(L)):NEXTL
  691. 15160 IFG(Q1,Q2)<>LQTHENGOSUB1000
  692. 15162 IFA2<>0THENRETURN
  693. 15165 X7=10*(Q1-1)+S6:Y7=10*(Q2-1)+S7
  694. 15170 X1=INT(X7+10*D1*B8*D4+.5)
  695. 15175 Y1=INT(Y7+10*D1*B8*D6+.5):L6=0
  696. 15180 L5=0
  697. 15185 IFX1>0THEN15195
  698. 15190 X1=-X1+1:L5=1
  699. 15195 IFY1>0THEN15210
  700. 15200 Y1=-Y1+1:L5=1
  701. 15210 IFX1<=80THEN15220
  702. 15215 X1=161-X1:L5=1
  703. 15220 IFY1<=80THEN15230
  704. 15225 Y1=161-Y1:L5=1
  705. 15230 IFL5=0THEN15240
  706. 15235 L6=1:GOTO15180
  707. 15240 IFL6=0THEN15270
  708. 15260 ?:?"*** MESSAGE FROM STARFLEET COMMAND.....STARDATE";FNR(DO)
  709. 15261 ?"PERMISSION TO EXIT GALAXY - DENIED -"
  710. 15265 ?"'ENGINES SHUT DOWN AT ";
  711. 15266 Z1=INT((X1+9)/10):Z2=INT((Y1+9)/10)
  712. 15267 ?"QUADRANT";Z1;"-";Z2;",  ";
  713. 15268 ?"SECTOR";X1-10*(Z1-1);"-";Y1-10*(Z2-1);"'"
  714. 15270 IFT5<>0THENRETURN
  715. 15295 Q1=INT((X1+9)/10):Q2=INT((Y1+9)/10)
  716. 15296 S6=X1-10*(Q1-1):S7=Y1-10*(Q2-1)
  717. 15307 GOSUB18400:?:GOTO15315
  718. 15310 ?CHR$(26):?"ENTERING THE ";G2$;" QUADRANT  (";Q1;"-";Q2;")"
  719. 15315 Q$(S6,S7)=LEFT$(S5$,1):GOSUB18000:GOSUB29002:GOSUB14001:RETURN
  720. 15320 Q$(S6,S7)=LEFT$(S5$,1)
  721. 15321 IFL6=1THENRETURN
  722. 15325 IFK3=0THEN15390
  723. 15330 FORL=1TOK3
  724. 15340 F3=SQR((F4-K4(L))^2+(F5-K5(L))^2)
  725. 15350 K8(L)=.5*(K7(L)+F3)
  726. 15360 K7(L)=F3
  727. 15370 NEXTL
  728. 15380 GOSUB28000
  729. 15390 GOSUB17000:RETURN
  730. 16001 A=1:B=1
  731. 16010 FORK=1TOK3
  732. 16020 C=K4(K):D=K5(K)
  733. 16030 IFQ$(C,D)="C"THEN16050
  734. 16040 NEXTK
  735. 16050 N=0:F=K6(K)+100*K3
  736. 16060 IFF>LQTHENN=INT(RND(1)*K7(K)+1)
  737. 16065 IF((C5$="DOCKED")AND((B4<>Q1)OR(B5<>Q2)))THENN=-S8
  738. 16070 IFN=0THENN=INT(((F+200*RND(1))/150)-5)
  739. 16071 IFN=0THENRETURN
  740. 16072 IF(N>0)AND(K7(K)<1.5)THENRETURN
  741. 16075 IFABS(N)>S8THENN=SGN(N)*ABS(S8)
  742. 16080 T=ABS(N):P=S6-C:Q=S7-D
  743. 16085 IF2*ABS(P)<ABS(Q)THENP=0
  744. 16090 IF2*ABS(Q)<ABS(P)THENQ=0
  745. 16095 IFP<>0THENP=SGN(P*N)
  746. 16100 IFQ<>0THENQ=SGN(Q*N)
  747. 16105 R=C:S=D:Q$(C,D)="."
  748. 16110 FORL2=1TOT:L=R+P:M=S+Q
  749. 16115 IF(L>0)AND(L<=10)THEN16120
  750. 16117 ONSGN(N)+2GOTO16240,16165,16165
  751. 16120 IF(M>0)AND(M<=10)THEN16130
  752. 16125 ONSGN(N)+2GOTO16240,16135,16135
  753. 16130 IFQ$(L,M)="."THEN16195
  754. 16135 IF(Q=B)OR(P=0)THEN16165
  755. 16140 M=S+B
  756. 16145 IF(M>0)AND(M<=10)THEN16155
  757. 16150 ONSGN(N)+2GOTO16240,16160,16160
  758. 16155 IFQ$(L,M)="."THEN16195
  759. 16160 B=-B
  760. 16165 IF(P=A)OR(Q=0)THEN16200
  761. 16170 L=R+A
  762. 16175 IF(L>0)AND(L<=10)THEN16185
  763. 16180 ONSGN(N)+2GOTO16240,16190,16190
  764. 16185 IFQ$(L,M)="."THEN16195
  765. 16190 A=-A:GOTO16200
  766. 16195 R=L:S=M
  767. 16200 NEXTL2
  768. 16205 Q$(R,S)="C"
  769. 16210 IF(R=C)AND(S=D)THENRETURN
  770. 16215 K4(K)=R:K5(K)=S:K7(K)=SQR((S6-R)^2+(S7-S)^2)
  771. 16220 K8(K)=K7(K):IFN>0THEN?"*** COMMANDER ADVANCES TO";
  772. 16225 IFN<0THEN?"*** COMMANDER RETREATS TO";
  773. 16230 ?" SECTOR";R;"-";S:GOSUB28000:RETURN
  774. 16240 I=Q1+INT((L+9)/10)-1:J=Q2+INT((M+9)/10)-1
  775. 16245 IF(I<1)OR(I>8)THEN16350
  776. 16250 IF(J<1)OR(J>8)THEN16350
  777. 16260 FORL3=1TOR2
  778. 16265 IF(C1(L3)=I)AND(C2(L3)=J)THEN16350
  779. 16270 NEXTL3:?"*** COMMANDER ESCAPES TO ";
  780. 16275 ?"QUADRANT";I;"-";J;"  (AND REGAINS STRENGTH)"
  781. 16280 K4(K)=K4(K3):K5(K)=K5(K3):K7(K)=K7(K3):K8(K)=K8(K3)
  782. 16285 K6(K)=K6(K3):K3=K3-1:C3=0
  783. 16290 IFC5$<>"DOCKED"THENGOSUB17000
  784. 16300 GOSUB28000
  785. 16310 G(Q1,Q2)=G(Q1,Q2)-100:G(I,J)=G(I,J)+100
  786. 16320 FORL3=1TOR2
  787. 16330 IF(C1(L3)=Q1)AND(C2(L3)=Q2)THEN16340
  788. 16335 NEXTL3
  789. 16340 C1(L3)=I:C2(L3)=J:RETURN
  790. 16350 A=-A:B=-B:GOTO16200
  791. 17000 C5$="GREEN":IFE1<LQTHENC5$="YELLOW"
  792. 17020 IFG(Q1,Q2)>99THENC5$="RED"
  793. 17030 RETURN
  794. 18000 J4=1:B6=0:B7=0:K3=0:C3=0:U=G(Q1,Q2):IFU>999THEN18290
  795. 18030 K3=INT(.01*U):FORA=1TO10:FORB=1TO10:Q$(A,B)=".":NEXTB:NEXTA
  796. 18040 Q$(S6,S7)=LEFT$(S5$,1):U=G(Q1,Q2):IFU<100THEN18150
  797. 18050 U=U-100*K3:FORA=1TOK3
  798. 18060 S=FNB(1):K4(A)=S:T=FNB(1):K5(A)=T
  799. 18070 IFQ$(S,T)<>"."THEN18060
  800. 18080 Q$(S,T)="K":K7(A)=SQR((S6-S)^2+(S7-T)^2):K8(A)=K7(A)
  801. 18090 K6(A)=RND(1)*150+325:NEXTA
  802. 18100 IFR2=0THEN18140
  803. 18110 FORA=1TOR2
  804. 18115 IF(C1(A)=Q1)AND(C2(A)=Q2)THEN18130
  805. 18120 NEXTA:GOTO18140
  806. 18130 Q$(S,T)="C":K6(K3)=LQ+400*RND(1):C3=1
  807. 18140 GOSUB28000
  808. 18150 IFU<10THEN18190
  809. 18160 U=U-10
  810. 18170 B6=FNB(1):B7=FNB(1):IFQ$(B6,B7)<>"."THEN18170
  811. 18180 Q$(B6,B7)="B"
  812. 18190 GOSUB17000:IFU<1THENRETURN
  813. 18200 FORA=1TOU
  814. 18210 S=FNB(1):T=FNB(1):IFQ$(S,T)<>"."THEN18210
  815. 18220 Q$(S,T)="*":NEXTA
  816. 18230 IF(T2<>Q1)OR(T3<>Q2)THENRETURN
  817. 18240 S=FNB(1):T=FNB(1):IFQ$(S,T)<>"."THEN18240
  818. 18250 Q$(S,T)="O":?
  819. 18260 ?"*** SHORT-RANGE SENSORS DETECT A SPACE-WARP IN THIS QUADRANT"
  820. 18280 RETURN
  821. 18290 FORA=1TO10:FORB=1TO10:Q$(A,B)=".":NEXTB:NEXTA
  822. 18300 Q$(S6,S7)=LEFT$(S5$,1):RETURN
  823. 18400 G4$="III":L=2:IFQ2>=5THEN18420
  824. 18410 L=1
  825. 18420 G2$=G1$(2*(Q1-1)+L):L=Q2
  826. 18425 IFL<=4THEN18440
  827. 18430 L=Q2-4
  828. 18440 G3$="IV":IFL=4THEN18460
  829. 18450 G3$=LEFT$(G4$,L)
  830. 18460 G2$=G2$+" "+G3$:RETURN
  831. 19002 IFRND(1)>.1THEN19015
  832. 19010 GOSUB27000:RETURN
  833. 19015 Q$(A5,A6)=".":?"*** STAR AT SECTOR";A5;"-";A6;"NOVAS."
  834. 19020 G(Q1,Q2)=G(Q1,Q2)-1:S1=S1+1
  835. 19025 B9=1:T6=1:T7=1:K=0:X1=0:Y1=0
  836. 19030 H4(B9,1)=A5:H4(B9,2)=A6
  837. 19035 FORM=B9TOT6:FORQ=1TO3:FORJ=1TO3
  838. 19040 IFJ*Q=4THEN19260
  839. 19045 J5=H4(M,1)+Q-2:J6=H4(M,2)+J-2
  840. 19050 IF(J5<1)OR(J5>10)THEN19260
  841. 19055 IF(J6<1)OR(J6>10)THEN19260
  842. 19060 IFQ$(J5,J6)="."THEN19260
  843. 19065 IFQ$(J5,J6)="O"THEN19260
  844. 19070 IFQ$(J5,J6)<>"*"THEN19105
  845. 19075 IFRND(1)>=.1THEN19085
  846. 19080 X2=J5:Y2=J6:GOSUB27000:RETURN
  847. 19085 T7=T7+1:H4(T7,1)=J5:H4(T7,2)=J6:G(Q1,Q2)=G(Q1,Q2)-1
  848. 19090 S1=S1+1:?"*** STAR AT SECTOR";J5;"-";J6;"NOVAS."
  849. 19100 GOTO19255
  850. 19105 IFQ$(J5,J6)<>"B"THEN19140
  851. 19110 G(Q1,Q2)=G(Q1,Q2)-10:FORV=1TOR3
  852. 19115 IF(B2(V)<>Q1)OR(B3(V)<>Q2)THEN19125
  853. 19120 B2(V)=B2(R3):B3(V)=B3(R3)
  854. 19125 NEXTV:R3=R3-1:B6=0:B7=0:B1=B1+1:GOSUB17000
  855. 19130 ?"*** STARBASE AT SECTOR";J5;"-";J6;"DESTROYED."
  856. 19135 GOTO19255
  857. 19140 IF(S6<>J5)OR(S7<>J6)THEN19190
  858. 19145 ?"*** STARSHIP BUFFETED BY NOVA.":IFS4<>0THEN19155
  859. 19150 E1=E1-LQ:GOTO19170
  860. 19155 IFS3>=LQTHEN19180
  861. 19160 D6=LQ-S3:E1=E1-D6:GOSUB17000:S3=0:S4=0
  862. 19165 ?"*** STARSHIP SHIELDS KNOCKED OUT.":D4(8)=5E-03*D5*RND(1))*D6
  863. 19170 IFE1>0THEN19185
  864. 19175 F9=7:GOSUB10000:RETURN
  865. 19180 S3=S3-LQ
  866. 19185 X1=X1+S6-H4(M,1):Y1=Y1+S7-H4(M,2):K=K+1:GOTO19260
  867. 19190 IFQ$(J5,J6)<>"C"THEN19250
  868. 19195 FORV=1TOK3
  869. 19200 IF(K4(V)=J5)AND(K5(V)=J6)THEN19210
  870. 19205 NEXTV
  871. 19210 K6(V)=K6(V)-800:IFK6(V)<=0THEN19250
  872. 19215 N5=J5+J5-H4(M,1):N6=J6+J6-H4(M,2)
  873. 19220 ?"*** COMMANDER AT SECTOR";J5;"-";J6;"DAMAGED";
  874. 19225 IF(N5<1)OR(N5>10)OR(N6<1)OR(N6>10)THEN19245
  875. 19230 ?" AND BUFFETED TO SECTOR";N5;"-";N6
  876. 19235 Q$(N5,N6)="C":K4(V)=N5:K5(V)=N6
  877. 19240 K7(V)=SQR((S6-N5)^2+(S7-N6)^2):K8(V)=K7(V)
  878. 19241 Q$(J5,J6)="."
  879. 19245 ?:GOTO19260
  880. 19250 A5=J5:A6=J6:T2$=Q$(J5,J6):GOSUB6000:GOTO19260
  881. 19255 ?:Q$(J5,J6)="."
  882. 19260 NEXTJ:NEXTQ:NEXTM
  883. 19265 IFT6=T7THEN19280
  884. 19270 B9=T6+1:T6=T7:GOTO19035
  885. 19280 IFK=0THENRETURN
  886. 19290 D1=K*.1
  887. 19300 IFX1<>0THENX1=SGN(X1)
  888. 19310 IFY1<>0THENY1=SGN(Y1)
  889. 19320 I=3*(X1+1)+Y1+2
  890. 19330 D2=C5(I)
  891. 19340 IFD2=0THEND1=0
  892. 19350 IFD1=0THENRETURN
  893. 19360 ?:?"FORCE OF NOVA DISPLACES STARSHIP."
  894. 19370 GOSUB15001:RETURN
  895. 20001 P=2:J3=1
  896. 20020 IFC5$<>"DOCKED"THEN20030
  897. 20025 ?"PHASERS CAN'T BE FIRED THRU BASE SHIELDS.":GOTO20080
  898. 20030 IFD4(3)=0THEN20050
  899. 20040 ?"PHASER BANKS DAMAGED.":GOTO20080
  900. 20050 IFS4=0THEN20060
  901. 20055 ?"SHIELDS MUST BE DOWN TO FIRE PHASERS.":GOTO20080
  902. 20060 IFK3>0THEN20090
  903. 20065 ?
  904. 20070 ?"THE SHORT-RANGE SENSORS DETECT NO ENEMY IN THIS QUADRANT."
  905. 20080 J3=0:RETURN
  906. 20090 ?"PHASERS LOCKED ON TARGET.  ENERGY AVAILABLE=";
  907. 20095 ?.01*INT(100*E1)
  908. 20100 INPUT"UNITS TO FIRE";P1:IFP1<E1THEN20120
  909. 20110 ?"ENERGY AVAILABLE =";:GOTO20095
  910. 20120 IFP1>0THEN20140
  911. 20130 J3=0:RETURN
  912. 20140 E1=E1-P1
  913. 20142 IFD4(11)=0THEN20147
  914. 20144 P1=P1*(RND(1)*.5+.5)
  915. 20145 ?:?"COMPUTER MALFUNCTION HAMPERS PHASER ACCURACY.":?
  916. 20147 E=P1:IFK3=0THEN20310
  917. 20150 E=0:T5=(K3*(K3+1))/2
  918. 20160 FORI=1TOK3:H3(I)=((K3+1-I)/T5)*P1
  919. 20170 H5(I)=ABS(K6(I))/(P*.9^K7(I))
  920. 20180 IFH3(I)<=H5(I)THEN20200
  921. 20190 E=E+(H3(I)-H5(I)):H3(I)=H5(I)
  922. 20200 NEXTI
  923. 20210 IFE=0THEN20280
  924. 20220 FORI=1TOK3:R7=H5(I)-H3(I)
  925. 20230 IFR7<=0THEN20260
  926. 20240 IFR7>=ETHEN20270
  927. 20250 H3(I)=H5(I):E=E-R7
  928. 20260 NEXTI:GOTO20280
  929. 20270 H3(I)=H3(I)+E:E=0
  930. 20280 GOSUB12001
  931. 20290 IF(E<>0)AND(A2=0)THEN20310
  932. 20300 J3=1:RETURN
  933. 20310 ?FNR(E);"EXPENDED ON EMPTY SPACE.":J3=1:RETURN
  934. 21001 J3=1:IFD4(4)=0THEN21015
  935. 21010 ?"PHOTON TUBES DAMAGED.":GOTO21035
  936. 21015 IFT4<>0THEN21025
  937. 21020 ?"NO TORPEDOS LEFT.":GOTO21035
  938. 21025 INPUT"TORPEDO COURSE";C6
  939. 21030 IFC6<.01ORC6>12THENGOSUB40000ELSE21040
  940. 21035 J3=0:RETURN
  941. 21040 INPUT"BURST OF 3";B$:N=1
  942. 21045 IFLEFT$(B$,1)="N"THEN21070
  943. 21050 IFLEFT$(B$,1)<>"Y"THEN21040
  944. 21051 IFT4>2THEN21060
  945. 21055 ?"NO BURST.  ONLY";T4;"TORPEDOS LEFT.":GOTO21035
  946. 21060 INPUT"SPREAD ANGLE (3 - 30 DEG)";G2
  947. 21061 IFG2<0THEN21035
  948. 21062 IF(G2<3)OR(G2>30)THEN21060
  949. 21063 G2=FND(G2)
  950. 21065 N=3
  951. 21070 FORZ6=1TON
  952. 21075 IFC5$<>"DOCKED"THENT4=T4-1
  953. 21080 Z7=Z6:R=RND(1)
  954. 21085 R=(R+RND(1))*.5-.5
  955. 21090 IF(R>=-.4)AND(R<=.4)THEN21125
  956. 21095 R=(RND(1)+1.2)*R:IFN=3THEN21105
  957. 21100 ?"*** METEORITE DEFLECTION":R=INT(RND(1)*50)+1
  958. 21101 ?"TORPEDO EFFECTIVENESS REDUCED"; R;"%":?:GOTO21110
  959. 21105 ?"*** TORPEDO NUMBER";Z6;"MISFIRE - ";R;"% DOWN"
  960. 21110 IF RND(1)>.2THEN21125
  961. 21115 ?"*** PHOTON TUBES DAMAGED BY MISFIRE."
  962. 21120 D4(4)=D5*(1+2*RND(1)):GOTO21440
  963. 21125 IF(S4<>0)OR(C5$="DOCKED")THENR=R+1E-03*S3*R
  964. 21130 A3=C6+.25*R:IFN=1THEN21140
  965. 21135 A8=(15-A3+(2-Z6)*G2)*.523599:?
  966. 21137 ?"TRACK FOR TORPEDO NUMBER";Z7;"--":GOTO21145
  967. 21140 ?:?"TORPEDO TRACK --":A8=(15-A3)*.523599
  968. 21145 X4=-SIN(A8):Y4=COS(A8):B8=ABS(X4)
  969. 21146 IFABS(Y4)>ABS(X4)THENB8=ABS(Y4)
  970. 21150 X4=X4/B8:Y4=Y4/B8:X5=S6:Y5=S7
  971. 21155 FORL9=1TO15:X5=X5+X4:A5=INT(X5+.5)
  972. 21160 IF(A5<1)OR(A5>10)THEN21430
  973. 21165 Y5=Y5+Y4:A6=INT(Y5+.5)
  974. 21170 IF(A6<1)OR(A6>10)THEN21430
  975. 21175 IF(L9=5)OR(L9=9)THEN?
  976. 21180 ?FNR(X5);"-";FNR(Y5);", ";
  977. 21185 IFQ$(A5,A6)<>"."THEN21195
  978. 21190 GOTO21425
  979. 21195 ?:IFQ$(A5,A6)="K"THEN21220
  980. 21200 IFQ$(A5,A6)<>"C"THEN21325
  981. 21205 IFRND(1)>.1THEN21220
  982. 21210 ?"*** COMMANDER AT SECTOR";A5;"-";A6;"USES ANTI-PHOTON DEVICE !"
  983. 21215 ?"-- TORPEDO NEUTRALIZED.":GOTO21435
  984. 21220 FORV=1TOK3
  985. 21225 IF(A5=K4(V))AND(A6=K5(V))THEN21235
  986. 21230 NEXTV
  987. 21235 K=K6(V):W3=200+800*RND(1)
  988. 21240 IFABS(K)<W3THENW3=ABS(K)
  989. 21245 K6(V)=K-SGN(K)*ABS(W3):IFK6(V)<>0THEN21255
  990. 21250 T2$=Q$(A5,A6):GOSUB6000:GOTO21435
  991. 21255 IFQ$(A5,A6)="K"THEN?"*** KLINGON AT";
  992. 21260 IFQ$(A5,A6)="C"THEN?"*** COMMANDER AT";
  993. 21265 ?A5;"-";A6;
  994. 21270 A7=A8+2.5*(RND(1)-.5)
  995. 21275 W3=ABS(-SIN(A7)):IFABS(COS(A7))>W3THENW3=ABS(COS(A7))
  996. 21280 X7=-SIN(A7)/W3:Y7=COS(A7)/W3
  997. 21285 P=INT(A5+X7+.5):Q=INT(A6+Y7+.5)
  998. 21290 IF(P<1)OR(P>10)OR(Q<1)OR(Q>10)THEN21320
  999. 21295 IFQ$(P,Q)<>"."THEN21320
  1000. 21300 Q$(P,Q)=Q$(A5,A6):Q$(A5,A6)=".":?"DAMAGED--"
  1001. 21305 ?"   DISPLACED BY BLAST TO SECTOR";P;"-";Q
  1002. 21310 K4(V)=P:K5(V)=Q:K7(V)=SQR((S6-P)^2+(S7-Q)^2)
  1003. 21311 K8(V)=K7(V)
  1004. 21315 GOSUB28000:GOTO21435
  1005. 21320 ?"DAMAGED, BUT NOT DESTROYED.":GOTO21435
  1006. 21325 IFQ$(A5,A6)<>"B"THEN21365
  1007. 21330 ?"*** STARBASE DESTROYED...!!!"
  1008. 21335 IFS2(Q1,Q2)<0THENS2(Q1,Q2)=0
  1009. 21340 FORW=1TOR3
  1010. 21345 IF(B2(W)<>Q1)OR(B3(W)<>Q2)THEN21355
  1011. 21350 B2(W)=B2(R3):B3(W)=B3(R3)
  1012. 21355 NEXTW:Q$(A5,A6)=".":R3=R3-1:B6=0:B7=0
  1013. 21360 G(Q1,Q2)=G(Q1,Q2)-10:B1=B1+1:GOSUB17000:GOTO21435
  1014. 21365 IFQ$(A5,A6)<>"*"THEN21405
  1015. 21370 IFRND(1)>.15THEN21385
  1016. 21375 ?"*** STAR AT SECTOR";A5;"-";A6;"UNAFFECTED BY PHOTON BLAST"
  1017. 21380 GOTO21435
  1018. 21385 X2=A5:Y2=A6:GOSUB19002:A5=X2:A6=Y2
  1019. 21390 IFG(Q1,Q2)=LQTHENRETURN
  1020. 21395 IFA2<>0THENRETURN
  1021. 21400 GOTO21435
  1022. 21405 ?:?"  >>> ORGANIAN TRUCE-MONITOR DESTROYED <<<":Q$(A5,A6)=".":?
  1023. 21420 T2=0:T3=0:GOTO21435
  1024. 21425 NEXTL9
  1025. 21430 ?:?"TORPEDO MISSED!"
  1026. 21435 NEXTZ6
  1027. 21440 IFR1<>0THENRETURN
  1028. 21445 F9=1:GOSUB10000:RETURN
  1029. 22001 ?:?"*** RED ALERT!!   RED ALERT!! ***":?
  1030. 22010 ?"*** COLLISION IMMINENT!!":?
  1031. 22020 ?"*** ";S5$;" RAMS ";:W7=1:IFQ$(S6,S7)="C"THENW7=2
  1032. 22030 IFW7=1THEN?"KLINGON AT ";
  1033. 22040 IFW7=2THEN?"COMMANDER AT ";
  1034. 22050 ?"SECTOR";S6;"-";S7:A5=S6:A6=S7:T2$=Q$(S6,S7)
  1035. 22060 GOSUB6000:?"*** ";S5$;" HEAVILY DAMAGED."
  1036. 22070 K=INT(5+RND(1)*20):?"***SICKBAY REPORTS";K;"CASUALTIES!"
  1037. 22080 C4=C4+K:FORL=1TO12:I=RND(1)
  1038. 22090 J=(3.5*W7*(RND(1)+I)+1)*D5
  1039. 22100 IFL=6THENJ=J/3
  1040. 22110 D4(L)=D4(L)+T1+J:NEXTL:D4(6)=D4(6)-3
  1041. 22120 IFD4(6)<0THEND4(6)=0
  1042. 22130 S4=0:IFR1<>0THENRETURN
  1043. 22140 F9=1:GOSUB10000:RETURN
  1044. 23000 P=D0-J2:IF(P<>0)AND(R1=0)THEN23020
  1045. 23010 IFP<5THENP=5
  1046. 23020 N=(K2+K1)/P:K=INT(500*N+.5):L=0
  1047. 23030 IFG1<>0THENL=100*S8
  1048. 23035 I=0
  1049. 23040 IFLEFT$(S5$,1)="E"THENM=0
  1050. 23045 IFLEFT$(S5$,1)="F"THENM=1
  1051. 23050 IFLEFT$(S5$,1)=""THENM=2
  1052. 23060 IFA1=0THENI=200
  1053. 23070 J=10*K1+50*K2+K+L-I-100*B1-100*M-35*N1-3*S1-C4
  1054. 23080 ?:IFJ<>0THEN23100
  1055. 23090 ?"AS YET, YOU HAVE NO SCORE.":RETURN
  1056. 23100 ?"YOUR SCORE --":?:IFK1=0THEN23120
  1057. 23110 ?K1;TAB(5);"ORDINARY KLINGON(S) DESTROYED";TAB(36);10*K1*MR
  1058. 23120 IFK2=0THEN23140
  1059. 23130 ?K2;TAB(5);"KLINGON COMMANDER(S) DESTROYED";TAB(36);50*K2*MR
  1060. 23140 IFK=0THEN23160
  1061. 23150 ?FNR(N);TAB(5);"KLINGONS PER STARDATE, AVERAGE";
  1062. 23155 ?TAB(36);K*MR
  1063. 23160 IFS1=0THEN23180
  1064. 23170 ?S1;TAB(5);"STAR(S) DESTROYED";TAB(36);-3*S1*MR
  1065. 23180 IFB1=0THEN23200
  1066. 23190 ?B1;TAB(5);"STARBASES DESTROYED";TAB(36);-100*B1*MR
  1067. 23200 IFN1=0THEN23220
  1068. 23210 ?N1;TAB(5);"SOS CALL(S) TO A STARBASE";TAB(36);-35*N1*MR
  1069. 23220 IFC4=0THEN23240
  1070. 23230 ?C4;TAB(5);"CASUALTIES INCURRED";TAB(36);-C4*MR
  1071. 23240 IFM=0THEN23260
  1072. 23250 ?M;TAB(5);"SHIP(S) LOST OR DESTROYED";TAB(36)-100*M*MR
  1073. 23260 IFA1<>0THEN23280
  1074. 23270 ?TAB(5)"PENALTY FOR GETTING KILLED";TAB(36);-200*MR
  1075. 23280 IFG1=0THEN23300
  1076. 23290 ?TAB(5);"BONUS FOR WINNING ";S$(S8);" GAME";TAB(36);L*MR
  1077. 23300 ?TAB(5);"-------------------------------------"
  1078. 23310 ?TAB(28);"TOTAL";TAB(36);J*MR;"**":RETURN
  1079. 24001 A2=0:G1=0:GOSUB4001:S5$="ENTERPRISE"
  1080. 24010 I7=5000:E1=I7:I8=2500:S3=I8:S4=0:S9=S4:J1=4:L1=J1
  1081. 24020 Q1=FNA(1):Q2=FNA(1):S6=FNB(1):S7=FNB(1):I9=10:T4=I9
  1082. 24030 W1=5:W2=25:FORI=1TO12:D4(I)=0:NEXT
  1083. 24040 J2=100*INT(31*RND(1)+20):D0=J2:K1=0:K2=0:N1=0:N2=0:R6=0:C4=0
  1084. 24050 A1=1:D3=.25:FORI=1TO8:FORJ=1TO8:S2(I,J)=0:NEXTJ:NEXTI
  1085. 24060 F1(1)=D0-.5*I5*LOG(RND(1)):F1(5)=1E+30
  1086. 24070 F1(2)=D0-1.5*(I5/R2)*LOG(RND(1)):I6=0
  1087. 24080 F1(3)=D0-.3*I5*LOG(RND(1)):F1(4)=D0-.3*I5*LOG(RND(1))
  1088. 24090 FORI=1TO8:FORJ=1TO8:K=INT(RND(1)*9+1):I6=I6+K
  1089. 24100 G(I,J)=K:NEXTJ:NEXTI:S1=0
  1090. 24110 FOR I=1TOI2
  1091. 24120 X=INT(RND(1)*6+2):Y=INT(RND(1)*6+2)
  1092. 24130 IFG(X,Y)>=10THEN24120
  1093. 24140 IFI<2THEN24180
  1094. 24150 K=I-1:FORJ=1TOK:D1=SQR((B2(J)-X)^2+(B3(J)-Y)^2)
  1095. 24160 IFD1<2THEN24120
  1096. 24170 NEXTJ
  1097. 24180 B2(I)=X:B3(I)=Y:S2(X,Y)=-1:G(X,Y)=G(X,Y)+10:NEXTI
  1098. 24190 B1=0:K=I1-I4:L=INT(.25*S8*(9-L2)+1)
  1099. 24200 M=INT((1-RND(1)^2)*L):IFM>KTHENM=K
  1100. 24210 N=100*M
  1101. 24220 X=FNA(1):Y=FNA(1):IFG(X,Y)+N>999THEN24220
  1102. 24230 G(X,Y)=G(X,Y)+N:K=K-M:IFK<>0THEN24200
  1103. 24240 FORI=1TOI4
  1104. 24250 X=FNA(1):Y=FNA(1):IF(G(X,Y)<99)AND(RND(1)<.75)THEN24250
  1105. 24260 IFG(X,Y)>899THEN24250
  1106. 24270 IFI=1THEN24300
  1107. 24280 M=I-1:FORJ=1TOM:IF(C1(J)=X)AND(C2(J)=Y)THEN24250
  1108. 24290 NEXTJ
  1109. 24300 G(X,Y)=G(X,Y)+100:C1(I)=X:C2(I)=Y:NEXTI
  1110. 24305 I=INT(D0):?:S0=0
  1111. 24310 T2=FNA(1):T3=FNA(1):IFG(T2,T3)<100THEN24310
  1112. 24320 IFS8<>1THEN24440
  1113. 24330 ?"IT IS STARDATE";I;"...THE ORGANIAN PEACE TREATY BETWEEN"
  1114. 24340 ?"THE UNITED FEDERATION OF PLANETS AND THE KLINGON EMPIRE"
  1115. 24350 ?"HAS COLLAPSED AND THE FEDERATION IS BEING ATTACKED BY A"
  1116. 24360 ?"DEADLY KLINGON INVASION FLEET.  AS CAPTAIN OF THE STARSHIP"
  1117. 24370 ?"U.S.S. ENTERPRISE, IT IS YOUR MISSION TO SEEK OUT AND"
  1118. 24380 ?"DESTROY THIS INVASION FORCE OF";I1;"BATTLE CRUISERS."
  1119. 24390 ?:?"YOU HAVE AN INITIAL ALLOTMENT OF";INT(I5);
  1120. 24400 ?"STARDATES":?"TO COMPLETE YOUR MISSION."
  1121. 24410 ?"AS THE MISSION PROCEEDS, YOU MAY BE GIVEN MORE TIME."
  1122. 24420 ?:?"YOU WILL HAVE";I2;"SUPPORTING STARBASE(S).":?
  1123. 24430 GOTO24515
  1124. 24440 ?"STARDATE..............";I
  1125. 24450 ?"NUMBER OF KLINGONS....";I1
  1126. 24460 ?"NUMBER OF STARDATES...";INT(I5)
  1127. 24470 ?"NUMBER OF STARBASES...";I2
  1128. 24480 ?"STARBASE LOCATIONS....";
  1129. 24490 FORI=1TOI2:?B2(I);"-";B3(I);
  1130. 24500 IFI<>I2THEN?", ";
  1131. 24510 NEXTI:?:?
  1132. 24515 GOSUB18400
  1133. 24520 ?"THE ";S5$;" IS CURRENTLY IN THE ";G2$;" QUADRANT."
  1134. 24530 GOSUB18000
  1135. 24531 ?:INPUT"READY TO CONTINUE";NL$:?CHR$(26):GOSUB29002:GOSUB14001:RETURN
  1136. 25010 INPUT"WARP FACTOR";K
  1137. 25020 ?
  1138. 25025 IFK<1THEN25140
  1139. 25026 IFK>10THEN25150
  1140. 25030 J=W1:W1=K:W2=W1*W1
  1141. 25040 IF(W1<=J)OR(W1<=6)THEN25070
  1142. 25050 IFW1<=8THEN25080
  1143. 25060 IFW1>8THEN25100
  1144. 25070 ?"'WARP FACTOR";W1;"CAPTAIN'":RETURN
  1145. 25080 ?"*** OUR MAXIMUM SAFE SPEED IS WARP 6":RETURN";
  1146. 25100 IFW1=10THEN25130
  1147. 25110 ?"*** CAPTAIN, OUR ENGINES MAY NOT TAKE IT !":RETURN
  1148. 25130 ?"-'AYE, CAPTAIN, WE'LL GIVE IT A TRY.'":RETURN
  1149. 25140 ?"-'WE CAN'T GO BELOW WARP 1, CAPTAIN.'":RETURN
  1150. 25150 ?"-'OUR TOP SPEED IS WARP 10, CAPTAIN.'"
  1151. 25160 RETURN
  1152. 26001 J3=0:IFD4(8)<>0THEN26600
  1153. 26010 IFS4<>0THEN26530
  1154. 26500 INPUT"SHIELDS ARE DOWN.  DO YOU WANT THEM UP";B$
  1155. 26510 IFLEFT$(B$,1)="Y"THEN26560
  1156. 26520 RETURN
  1157. 26530 INPUT"SHIELDS ARE UP.  DO YOU WANT THEM DOWN";B$
  1158. 26540 IFLEFT$(B$,1)="Y"THEN26590
  1159. 26550 RETURN
  1160. 26560 S4=1:S9=1:IFC5$<>"DOCKED"THENE1=E1-50
  1161. 26570 ?"SHIELDS RAISED.":IFE1<=0THEN26610
  1162. 26580 J3=1:RETURN
  1163. 26590 S4=0:S9=1:?"SHIELDS LOWERED.":J3=1:RETURN
  1164. 26600 ?"SHIELDS DAMAGED AND DOWN. ":RETURN
  1165. 26610 ?:?"SHIELDS CONSUME ALL ENERGY."
  1166. 26620 F9=4:GOSUB10000:RETURN
  1167. 27000 IFX2<>0THEN27100
  1168. 27010 N=INT(RND(1)*I6+1):FORX=1TO8:FORY=1TO8
  1169. 27020 N=N-(G(X,Y)-INT(G(X,Y)/10)*10):IFN<=0THEN27040
  1170. 27030 NEXTY:NEXTX:RETURN
  1171. 27040 IF(X<>Q1)OR(Y<>Q2)THEN27150
  1172. 27050 IFJ4<>0THEN27150
  1173. 27060 N=INT(RND(1)*(G(X,Y)-INT(G(X,Y)/10)*10))+1
  1174. 27070 FORX3=1TO10:FORY3=1TO10:IFQ$(X3,Y3)<>"*"THEN27090
  1175. 27080 N=N-1:IFN=0THEN27100
  1176. 27090 NEXTY3:NEXTX3
  1177. 27100 ?:?"*** RED ALERT!!  RED ALERT!! ***
  1178. 27105 X3=X2:Y3=Y2
  1179. 27110 ?"*** INCIPIENT SUPERNOVA DETECTED AT SECTOR";X3;"-";Y3
  1180. 27120 X=Q1:Y=Q2:K=(X2-S6)^2+(Y2-S7)^2
  1181. 27130 IFK>1.5THEN27180
  1182. 27140 ?"*** EMERGENCY AUTO-OVERRIDE JAMMED ***":A2=1:GOTO27180
  1183. 27150 IFD4(9)<>0THEN27180
  1184. 27160 ?:?"MESSAGE FROM STARFLEET COMMAND...STARDATE";INT(D0)
  1185. 27170 ?"'SUPERNOVA IN QUADRANT";X;"-";Y;
  1186. 27175 ?"....CAUTION ADVISED'"
  1187. 27180 N=G(X,Y):R=INT(N/100):Q=0
  1188. 27190 IF(X<>Q1)OR(Y<>Q2)THEN27210
  1189. 27200 K3=0:C3=0
  1190. 27210 IFR=0THEN27270
  1191. 27220 R1=R1-R:IFR2=0THEN27270
  1192. 27230 FORL=1TOR2:IF(C1(L)<>X)OR(C2(L)<>Y)THEN27260
  1193. 27240 C1(L)=C1(R2):C2(L)=C2(R2):C1(R2)=0:C2(R2)=0
  1194. 27250 R2=R2-1:R=R-1:Q=1:IFR2=0THENF1(2)=1E+30
  1195. 27260 NEXTL
  1196. 27270 IFR3=0THEN27310
  1197. 27280 FORL=1TOR3:IF(B2(L)<>X)OR(B3(L)<>Y)THEN27300
  1198. 27290 B2(L)=B2(R3):B3(L)=B3(R3):B2(R3)=0:B3(R3)=0:R3=R3-1
  1199. 27300 NEXTL
  1200. 27310 IFX2=0THEN27350
  1201. 27320 N=G(X,Y)-INT(G(X,Y)/100)*100
  1202. 27330 S1=S1+(N-INT(N/10)*10):B1=B1+INT(N/10)
  1203. 27340 K1=K1+R:K2=K2+Q
  1204. 27350 IF(S2(X,Y)<>0)AND(D4(9)<>0)THENS2(X,Y)=LQ+G(X,Y)
  1205. 27360 IF(D4(9)=0)OR((Q1=X)AND(Q2=Y))THENS2(X,Y)=1
  1206. 27370 G(X,Y)=1000
  1207. 27380 IF(R1<>0)OR((X=Q1)AND(Y=Q2))THEN27430
  1208. 27390 ?CHR$(26):?"*** SUPERNOVA IN QUADRANT";X;"-";Y;"HAS DESTROYED THE"
  1209. 27400 ?"REMAINDER OF THE ENEMY FLEET !!"
  1210. 27420 F9=1:GOSUB10010:RETURN
  1211. 27430 IFA2=0THENRETURN
  1212. 27440 F9=8:GOSUB10010:RETURN
  1213. 28000 IFK3<=1THENRETURN
  1214. 28010 Z4=0:FORO=1TOK3-1:IFK7(O)<=K7(O+1)THEN28080
  1215. 28020 K=K7(O):K7(O)=K7(O+1):K7(O+1)=K
  1216. 28030 K=K8(O):K8(O)=K8(O+1):K8(O+1)=K
  1217. 28040 K=K4(O):K4(O)=K4(O+1):K4(O+1)=K
  1218. 28050 K=K5(O):K5(O)=K5(O+1):K5(O+1)=K
  1219. 28060 K=K6(O):K6(O)=K6(O+1):K6(O+1)=K
  1220. 28070 Z4=1
  1221. 28080 NEXTO
  1222. 28090 IFZ4<>0THEN28010
  1223. 28100 RETURN
  1224. 29002 IFD(1)<>0THEN29230
  1225. 29010 ?:?"    1 2 3 4 5 6 7 8 9 10"
  1226. 29020 FORI=1TO10:IFI<10THEN?" ";
  1227. 29030 ?I;:FORJ=1TO10:?Q$(I,J);" ";:NEXTJ
  1228. 29040 ONIGOTO29050,29060,29080,29090,29140
  1229. 29045 ONI-5GOTO29150,29160,29170,29200,29210
  1230. 29050 ?" STARDATE      ";FNR(D0):GOTO29220
  1231. 29060 IFC5$<>"DOCKED"THENGOSUB17000
  1232. 29070 ?" CONDITION      ";C5$:GOTO29220
  1233. 29080 ?" POSITION      ";Q1;"-";Q2;", ";S6;"-";S7:GOTO29220
  1234. 29090 ?" LIFE SUPPORT   ";:IFD4(5)<>0THEN29110
  1235. 29100 ?"ACTIVE":GOTO29220
  1236. 29110 IFC5$<>"DOCKED"THEN29130
  1237. 29120 ?"DAMAGED, SUPPORTED BY STARBASE":GOTO29220
  1238. 29130 ?"DAMAGED, RESERVES=";FNS(L1):GOTO29220
  1239. 29140 ?" WARP FACTOR   ";FNR(W1):GOTO29220
  1240. 29150 ?" ENERGY";SPC(8);.01*INT(100*E1):GOTO29220
  1241. 29160 ?" TORPEDOS      ";T4:GOTO29220
  1242. 29170 ?" SHIELDS        ";:B$="DOWN,":IFS4<>0THENB$="UP,"
  1243. 29180 IFD4(8)>0THENB$="DAMAGED,"
  1244. 29190 ?B$;INT(100*S3/I8+.5);"%":GOTO29220
  1245. 29200 ?" KLINGONS LEFT ";R1:GOTO29220
  1246. 29210 ?" TIME LEFT     ";FNS(R5)
  1247. 29220 NEXTI:RETURN
  1248. 29230 ?"SHORT RANGE SENSORS DAMAGED.":RETURN
  1249. 30001 ?:?"*** TIME WARP ENTERED ***":?"YOU ARE TRAVELING ";
  1250. 30010 IFS0<>0THEN30050
  1251. 30020 T1=-.5*I5*LOG(RND(1))
  1252. 30030 ?"FORWARD IN TIME";FNR(T1);"STARDATES."
  1253. 30040 F1(2)=F1(2)+T1:GOTO30200
  1254. 30050 M=D0:D0=D9(1)
  1255. 30060 ?"BACKWARD IN TIME";FNR(M-D0);"STARDATES.":S0=0
  1256. 30070 R1=D9(2):R2=D9(3):R3=D9(4):R4=D9(5):R5=D9(6)
  1257. 30080 S1=D9(7):B1=D9(8):K1=D9(9):K2=D9(10)
  1258. 30090 FORI=1TO8:FORJ=1TO8:G(I,J)=D9(I-1+8*(J-1)+11):NEXTJ:NEXTI
  1259. 30100 FORI=75TO84:C1(I-74)=D9(I):NEXT
  1260. 30110 FORI=85TO94:C2(I-84)=D9(I):NEXT
  1261. 30120 FORI=95TO99:B2(I-94)=D9(I):NEXT
  1262. 30130 FORI=100TO104:B3(I-99)=D9(I):NEXT:B4=D9(105):B5=D9(106)
  1263. 30140 F1(1)=D0-.5*I5*LOG(RND(1))
  1264. 30150 IFR2<>0THENF1(2)=D0-(I5/R2)*LOG(RND(1))
  1265. 30160 F1(3)=D0-.5*I5*LOG(RND(1))
  1266. 30170 FORI=1TO8:FORJ=1TO8:IF1<S2(I,J)THENS2(I,J)=1
  1267. 30180 NEXTJ:NEXTI
  1268. 30185 ?
  1269. 30190 ?"SPOCK HAS RECONSTRUCTED A CORRECT STAR CHART FROM MEMORY."
  1270. 30200 GOSUB18000:RETURN
  1271. 31001 J3=0:IFD4(12)<>0THEN31120
  1272. 31020 INPUT"NUMBER OF UNITS TO SHIELDS";Z3
  1273. 31030 IFZ3<0THENRETURN
  1274. 31040 IFE1+S3-Z3>0THEN31060
  1275. 31050 ?"SCOTT HERE-  'WE ONLY HAVE";FNR(E1+S3);"UNITS LEFT.'"
  1276. 31051 RETURN
  1277. 31060 E1=E1+S3-Z3:S3=Z3:?"--ENERGY TRANSFER COMPLETE--"
  1278. 31070 ?"(SHIP ENERGY=";FNR(E1);"    SHIELD ENERGY=";FNR(S3);")"
  1279. 31075 J3=1
  1280. 31080 T1=.1:P5=(K3+4*C3)/48:IFP5<.1THENP5=.1
  1281. 31090 IFP5>RND(1)THENGOSUB1000
  1282. 31100 IFA2<>0THENRETURN
  1283. 31110 GOSUB9000:RETURN
  1284. 31120 ?"TRANSFER PANEL DAMAGED.":RETURN
  1285. 32001 INPUT"WHICH DIRECTION";Z
  1286. 32002 IFZ<.01ORZ>12THENGOSUB40000ELSE32020
  1287. 32005 J3=0:RETURN
  1288. 32020 T1=.05:P=(K3+4*C3)/48:IFP<.05THENP=.05
  1289. 32030 IFP>RND(1)THENGOSUB1000
  1290. 32040 IFA2<>0THENRETURN
  1291. 32050 GOSUB9000:J3=1:IFA2<>0THENRETURN
  1292. 32080 D5=INT((Z/12)*8+1.5):IFD5>8THEND5=1
  1293. 32085 FORI=1TO5:FORJ=1TO5:V$(I,J)=" ":NEXTJ:NEXTI:N=0
  1294. 32087 V$(3,3)=LEFT$(S5$,1)
  1295. 32090 OND5GOTO32100,32130,32150,32170,32190,32220,32260,32300
  1296. 32100 I=S6-2:J=S7-2:V$(1,1)=Q$:IF(J>0)AND(I>0)THENV$(1,1)=Q$(I,J)
  1297. 32110 I=S6-1:J=S7-1:V$(2,2)=Q$:IF(I>0)AND(J>0)THENV$(2,2)=Q$(I,J)
  1298. 32120 N=N+1:IFN=3THEN32350
  1299. 32125 I=S6-2:V$(1,2)=Q$:IF(I>0)AND(J>0)THENV$(1,2)=Q$(I,J)
  1300. 32130 I=S6-2:V$(1,3)=Q$:IFI>0THENV$(1,3)=Q$(I,S7)
  1301. 32135 I=S6-1:V$(2,3)=Q$:IFI>0THENV$(2,3)=Q$(I,S7)
  1302. 32140 N=N+1:IFN=3THEN32350
  1303. 32145 I=S6-2:J=S7+1:V$(1,4)=Q$:IF(I>0)AND(J<11)THENV$(1,4)=Q$(I,J)
  1304. 32150 I=S6-2:J=S7+2:V$(1,5)=Q$:IF(I>0)AND(J<11)THENV$(1,5)=Q$(I,J)
  1305. 32155 I=S6-1:J=S7+1:V$(2,4)=Q$:IF(I>0)AND(J<11)THENV$(2,4)=Q$(I,J)
  1306. 32160 N=N+1:IFN=3THEN32350
  1307. 32165 J=S7+2:V$(2,5)=Q$:IF(I>0)AND(J<11)THENV$(2,5)=Q$(I,J)
  1308. 32170 J=S7+2:V$(3,5)=Q$:IFJ<11THENV$(3,5)=Q$(S6,J)
  1309. 32175 J=S7+1:V$(3,4)=Q$:IFJ<11THENV$(3,4)=Q$(S6,J)
  1310. 32180 N=N+1:IFN=3THEN32350
  1311. 32185 I=S6+1:J=S7+2:V$(4,5)=Q$:IF(I<11)AND(J<11)THENV$(4,5)=Q$(I,J)
  1312. 32190 I=S6+2:J=S7+2:V$(5,5)=Q$:IF(I<11)AND(J<11)THENV$(5,5)=Q$(I,J)
  1313. 32195 I=S6+1:J=S7+1:V$(4,4)=Q$:IF(I<11)AND(J<11)THENV$(4,4)=Q$(I,J)
  1314. 32200 N=N+1:IFN=3THEN32350
  1315. 32210 I=S6+2:V$(5,4)=Q$:IF(I<11)AND(J<11)THENV$(5,4)=Q$(I,J)
  1316. 32220 I=S6+2:V$(5,3)=Q$:IFI<11THENV$(5,3)=Q$(I,S7)
  1317. 32230 I=S6+1:V$(4,3)=Q$:IFI<11THENV$(4,3)=Q$(I,S7)
  1318. 32240 N=N+1:IFN=3THEN32350
  1319. 32250 I=S6+2:J=S7-1:V$(5,2)=Q$:IF(I<11)AND(J>0)THENV$(5,2)=Q$(I,J)
  1320. 32260 I=S6+2:J=S7-2:V$(5,1)=Q$:IF(I<11)AND(J>0)THENV$(5,1)=Q$(I,J)
  1321. 32270 I=S6+1:J=S7-1:V$(4,2)=Q$:IF(I<11)AND(J>0)THENV$(4,2)=Q$(I,J)
  1322. 32280 N=N+1:IFN=3THEN32350
  1323. 32290 J=S7-2:V$(4,1)=Q$:IF(I<11)AND(J>0)THENV$(4,1)=Q$(I,J)
  1324. 32300 J=S7-2:V$(3,1)=Q$:IFJ>0THENV$(3,1)=Q$(S6,J)
  1325. 32310 J=S7-1:V$(3,2)=Q$:IFJ>0THENV$(3,2)=Q$(S6,J)
  1326. 32320 N=N+1:IFN=3THEN32350
  1327. 32330 I=S6-1:J=S7-2:V$(2,1)=Q$:IF(I>0)AND(J>0)THENV$(2,1)=Q$(I,J)
  1328. 32340 GOTO32100
  1329. 32350 FORI=1TO5
  1330. 32360 IF(V$(I,1)=" ")AND(V$(I,3)=" ")AND(V$(I,5)=" ")THEN32390
  1331. 32370 ?"  ";
  1332. 32380 FORJ=1TO5:?V$(I,J);" ";:NEXTJ:?
  1333. 32390 NEXTI:RETURN
  1334. 33001 J3=0:INPUT"HOW MANY STARDATES";Z5:IF(Z5<R5)AND(K3=0)THEN33030
  1335. 33020 INPUT"ARE YOU SURE";B$:IFLEFT$(B$,1)<>"Y"THENRETURN
  1336. 33030 R6=1
  1337. 33040 IFZ5<=0THENR6=0
  1338. 33050 IFR6=0THENRETURN
  1339. 33060 T1=Z5:Z6=Z5
  1340. 33070 IFK3=0THEN33100
  1341. 33080 T1=1+RND(1):IFZ5<T1THENT1=Z5
  1342. 33090 Z6=T1
  1343. 33100 IFT1<Z5THENGOSUB1000
  1344. 33110 IFA2<>0THENRETURN
  1345. 33120 GOSUB9000:J3=1:IFA2<>0THENRETURN
  1346. 33130 Z5=Z5-Z6:GOTO33040
  1347. 34001 J3=0:IFD4(6)<>0THEN34750
  1348. 34010 INPUT"ENTER COURSE...";D2:IFD2<.01ORD2>12THENGOSUB40000ELSE34013
  1349. 34012 RETURN
  1350. 34013 INPUT"DISTANCE...";D1:IFD1<=0THENRETURN
  1351. 34030 P=(D1+.05)*W1*W1*W1*(S4+1):IFP<E1THEN34150
  1352. 34040 J3=0:?:?"ENGINEERING TO BRIDGE--"
  1353. 34050 IF(S4=0)OR(.5*P>E1)THEN34080
  1354. 34060 ?"  WE HAVEN'T THE ENERGY TO GO THAT FAR WITH";
  1355. 34070 ?" THE SHIELDS UP.":RETURN
  1356. 34080 W=INT((E1/(D1+.05))^.333333):IFW<=0THEN34130
  1357. 34090 ?"  WE HAVEN'T THE ENERGY.  BUT WE COULD DO IT AT WARP";W
  1358. 34100 IFS4<>0THEN34120
  1359. 34110 RETURN
  1360. 34120 ?"  IF YOU'LL LOWER THE SHIELDS.":RETURN
  1361. 34130 ?"  WE CAN'T DO IT, CAPTAIN.  WE HAVEN'T GOT THE ENERGY."
  1362. 34140 RETURN
  1363. 34150 T1=10*D1/W2:IFT1<.8*R5THEN34500
  1364. 34160 ?:?"MR. SPOCK - 'CAPTAIN, I COMPUTE THAT SUCH A TRIP"
  1365. 34170 ?" WILL REQUIRE APPROXIMATELY";FNR(100*T1/R5);
  1366. 34180 ?"PERCENT":?"   OF OUR REMAINING TIME.  ARE YOU SURE ";
  1367. 34190 INPUT "THIS IS WISE";B$:IFLEFT$(B$,1)="Y"THEN34500
  1368. 34200 J3=0:RETURN
  1369. 34500 Q4=0:W=0:IFW1<=6THEN34660
  1370. 34510 P=D1*(6-W1)^2/66.6667:IFP>RND(1)THENQ4=1
  1371. 34520 IFQ4<>0THEND1=RND(1)*D1
  1372. 34530 W=0:IFW1<10THEN34550
  1373. 34540 IF.25*D1>RND(1)THENW=1
  1374. 34550 IF(Q4=0)AND(W=0)THEN34660
  1375. 34560 A=(15-D2)*.5236:X1=-SIN(A):X2=COS(A)
  1376. 34570 B8=ABS(X1):IFABS(X2)>ABS(X1)THENB8=ABS(X2)
  1377. 34580 X1=X1/B8:Y1=Y1/B8:N=INT(10*D1*B8+.5):X=S6:Y=S7
  1378. 34590 IFN=0THEN34660
  1379. 34600 FORL=1TON
  1380. 34610 X=X+X1:Q=INT(X+.5):IF(Q<1)OR(Q>10)THEN34660
  1381. 34620 Y=Y+Y1:R=INT(Y+.5):IF(R<1)OR(R>10)THEN34660
  1382. 34630 IFQ$(Q,R)="."THEN34650
  1383. 34640 Q4=0:W=0
  1384. 34650 NEXTL
  1385. 34660 GOSUB15001:IFA2<>0THENRETURN
  1386. 34670 E1=E1-D1*W1*W1*W1*(S4+1):IFE1>0THEN34690
  1387. 34680 F9=4:GOSUB10000:RETURN
  1388. 34690 T1=10*D1/W2:IFW<>0THENGOSUB30001
  1389. 34700 IFQ4=0THEN34740
  1390. 34710 ?:?"ENGINEERING TO BRIDGE--":?"   SCOTT HERE-  ";
  1391. 34715 ?"'WE'VE JUST BLOWN THE WARP ENGINES."
  1392. 34720 ?"   WE'LL HAVE TO SHUT 'ER DOWN HERE, CAPTAIN.'"
  1393. 34725 D4(6)=D5*(3*RND(1)+1)
  1394. 34740 J3=1:RETURN
  1395. 34750 ?"WARP ENGINES DAMAGED.":RETURN
  1396. 35001 ONSGN(D4(10))+2GOTO35010,35030,35020
  1397. 35010 ?"YE FAERIE QUEENE HAS NO SHUTTLE CRAFT.":RETURN
  1398. 35020 ?"SHUTTLE CRAFT DAMAGED.":RETURN
  1399. 35030 ?:?"***ABANDON SHIP!  ABANDON SHIP!"
  1400. 35040 ?"***ALL HANDS ABANDON SHIP!":?
  1401. 35050 ?"YOU AND THE BRIDGE CREW ESCAPE IN THE GALILEO."
  1402. 35060 ?"THE REMAINDER OF THE CREW BEAMS DOWN"
  1403. 35070 ?"TO THE NEAREST HABITABLE PLANET.":IFR3<>0THEN35090
  1404. 35080 F9=9:GOSUB10000:RETURN
  1405. 35090 ?:?"YOU ARE CAPTURED BY KLINGONS AND RELEASED TO"
  1406. 35100 ?"THE FEDERATION IN A PRISONER-OF-WAR EXCHANGE."
  1407. 35110 ?"STARFLEET PUTS YOU IN COMMAND OF ANOTHER SHIP,"
  1408. 35120 ?"THE FAERIE QUEENE WHICH IS ANTIQUATED, BUT"
  1409. 35130 ?"STILL USABLE.":N=INT(RND(1)*R3+1):Q1=B2(N):Q2=B3(N)
  1410. 35140 S6=5:S7=5:GOSUB18000:Q$(S6,S7)="."
  1411. 35145 FORL=1TO3:S6=INT(3*RND(1)-1+B6)
  1412. 35150 IF(S6<1)OR(S7>10)THEN35180
  1413. 35160 S7=INT(3*RND(1)-1+B7):IF(S7<1)OR(S7>10)THEN35180
  1414. 35170 IFQ$(S6,S7)="."THEN35190
  1415. 35180 NEXTL:GOTO35140
  1416. 35190 S5$="FAERIE QUEENE":Q$(S6,S7)=LEFT$(S5$,1):C5$="DOCKED"
  1417. 35200 FORL=1TO12:D4(L)=0:NEXT:D4(10)=-1:E1=3000:I7=E1
  1418. 35210 S3=1500:I8=S3:T4=6:I9=T4:L1=3:J1=L1:S4=0:W1=5:W2=25
  1419. 35220 RETURN
  1420. 36001 IFD4(11)=0THEN36030
  1421. 36010 ?"COMPUTER DAMAGED - CANNOT EXECUTE DESTRUCT SEQUENCE"
  1422. 36020 RETURN
  1423. 36030 ?:?"    ---WORKING---"
  1424. 36040 ?"IDENTIFICATION-POSITIVE"
  1425. 36050 ?"SELF-DESTRUCT-SEQUENCE-ACTIVATED":J=3
  1426. 36060 FORI=10TO6STEP-1:?SPC(J);I:GOSUB36210:J=J+3:NEXT
  1427. 36070 ?"ENTER-YOUR-MISSION-PASSWORD-TO-CONTINUE"
  1428. 36080 ?"SELF-DESTRUCT-SEQUENCE-OTHERWISE-DESTRUCT"
  1429. 36090 ?"SEQUENCE-WILL-BE-ABORTED"
  1430. 36100 INPUTB$:IFB$<>X$THEN36190
  1431. 36110 ?"PASSWORD-ACCEPTED":J=10
  1432. 36120 FORI=5TO1STEP-1:?SPC(J);I:GOSUB36210:J=J+3:NEXT
  1433. 36130 ?:?"*****ENTROPY OF ";S5$;" MAXIMIZED*****"
  1434. 36140 ?:IFK3=0THEN36180
  1435. 36150 W=20*E1:FORL=1TOK3:IFK6(L)*K7(L)>WTHEN36170
  1436. 36160 A5=K4(L):A6=K5(L):T2$=Q$(A5,A6):GOSUB6000
  1437. 36170 NEXTL
  1438. 36180 F9=10:GOSUB10000:RETURN
  1439. 36190 ?"PASSWORD-REJECTED"
  1440. 36200 ?"CONTINUITY-EFFECTED":?:RETURN
  1441. 36210 K=12345:FORM=1TO90:K=K+1:NEXTM:RETURN
  1442. 37001 FORI=1TO10:GOTO29040:RETURN
  1443. 40000 ?"---> COURSE(S) .01-12 ONLY !!!":RETURN
  1444.