Command? read 8 Posted: Wed Dec 17, 1986 9:12 AM PST Msg: KGIG-2506-2962 From: CHHU To: chhu Subj: STRFLTWR --> HP-75 10 ! STAR FLEET WARS, 12/23/83, John F. Herlocker Jr. 20 CLEAR ":d1" @ DISP CHR$(27)&"]" @ DISP " *** STAR FLEET WARS ***" 30 T9=.5 @ DELAY T9 40 OPTION ANGLE RADIANS 50 INTEGER J,I,R,B,B1,Z(4),S(4) 60 RANDOMIZE 70 DIM N$[176],O$[672],Z$[189],L$[120],K$[50],R$[70],T$[40],E$[30],F$[14] 80 DEF FNX(B) = PI*ABS(90-ABS(B))/180 90 DEF FNR(R) = INT(RND*R+1) 100 FOR I=1 TO 8 @ READ L$[15*I-14,15*I] @ NEXT I 110 DATA GAMMA HYDRA 7,ALPHA CENTAURI,SIRIUS 12,BETELGUESE 2 120 DATA RIGEL 7,DELTA CETI 3,ALDEBERAN 5,MIRFAK 5 130 FOR I=1 TO 16 @ READ N$[11*I-10,11*I] @ NEXT I 140 DATA ENTERPRISE,YAMATO,HOOD,EXETER,VALIANT,INVINCIBLE,BISMARCK,LION 150 DATA EXCALIBUR,TIGER,REPUBLIC,DEFIANT,GLOIRE,POTEMKIN,KIEV,LEXINGTON 160 FOR I=1 TO 5 @ READ K$[9*I-8,9*I] @ NEXT I 170 DATA KLINGON,ROMULAN,KZINTI,AVIARAN,THOLIAN 180 FOR I=1 TO 5 @ READ R$[14*I-13,14*I] @ NEXT I 190 DATA KARNOR,VENGENCE,CAT'S EYE,DEATH BIRD,CTHULU 200 FOR I=1 TO 5 @ READ T$[8*I-7,8*I] @ NEXT I 210 DATA KOR,TAL,CHUFT,TWEEL,JOJLM 220 FOR I=1 TO 21 @ READ O$[32*I-31,32*I] @ NEXT I 230 DATA RANGE AND BEARING TO THE ENEMY 240 DATA FIRE FORWARD PHASER BANK 250 DATA FIRE REAR PHASER BANK 260 DATA FIRE FORWARD PHOTON TORPEDOES 270 DATA FIRE REAR PHOTON TORPEDOES 280 DATA LAUNCH ANTIMATTER PROBE 290 DATA CLOSE ON IMPULSE POWER 300 DATA RETREAT FROM THE ENEMY 310 DATA APPROACH ENEMY AT WARP SPEED 320 DATA RETREAT AT TOP WARP SPEED 330 DATA "Best Sheild, Mr. Chekov?" 340 DATA "Reverse Course, Mr. Sulu" 350 DATA "Chances of a hit, Mr. Spock?" 360 DATA "Options available, Mr. Spock?" 370 DATA "FULL DAMAGE REPORT, Mr. Spock!" 380 DATA Open a channel to Star Fleet 390 DATA Let's see what they do next 400 DATA ACTIVATE COMPUTER DESTRUCT 410 DATA Open a channel to the Enemy 420 DATA "Turn90 Left, Mr. Chekov" 430 DATA "Turn90 Right, Mr. Chekov" 440 FOR I=1 TO 21 @ READ Z$[9*I-8,9*I] @ NEXT I 450 DATA RANGE,PHASERF,PHASERR,TORPF,TORPR,PROBE,CLOSE 460 DATA OPEN,PURSUE,ESCAPE,SHIELDS,ROTATE,CHANCES,COMMANDS 470 DATA DAMAGE,BLUFF,WAIT,SUICIDE,SURRENDER,LVEER,RVEER 480 J=FNR(16) @ S$=N$[J*11-10,J*11] 490 DISP "Space..."; @ WAIT .9 @ DISP "the final frontier." 500 GOSUB 6570 510 DISP "This is the voyage of the" 520 DISP "Starship ";S$;"." 530 DISP "Her five year mission:" 540 DISP "to explore strange new worlds;" 550 DISP "to seek out new life," 560 DISP "and new civilizations;" 570 DISP "to boldly go where no man" 580 DISP "has gone before!" 590 DISP "YEOMAN: Sir, enter your name" 600 DISP "for the Ship's LOG"; @ INPUT C$ 610 C$=UPRC$(C$) 620 ON ERROR GOTO 660 630 DISP "SPOCK: You are in command of" 640 DISP "The Starship ";S$ 650 DISP "Admiral ";C$;". Do" 660 DISP "you wish a set of commands"; @ INPUT A$ 670 A$=UPRC$(A$[1,1]) @ IF A$#"Y" THEN 690 680 GOSUB 5500 690 ON ERROR GOTO 700 700 DISP "SPOCK: May I enquire as to" 710 DISP "your Battle Proficiency, Sir?" 720 DISP "("&CHR$(206)&"OVICE,"&CHR$(211)&"EASONED,"&CHR$(197)&"XPERT)"; 730 INPUT A$ 740 IF UPRC$(A$[1,1])="N" THEN N1=.1 @ N2=.5 @ N3=1 @ GOTO 770 750 IF UPRC$(A$[1,1])="S" THEN N1=.2 @ N2=1 @ N3=2 @ GOTO 770 760 IF UPRC$(A$[1,1])="E" THEN N1=.3 @ N2=1.2 @ N3=2.4 ELSE 700 770 OFF ERROR 780 J=FNR(5) 790 E$=K$[J*9-8,J*9] 800 F$=R$[J*14-13,J*13] 810 U$=T$[J*8-7,J*8] 820 J=FNR(8) @ D$=L$[J*15-14,J*15] 830 J=RND*99999 @ D=J/10 840 DISP C$;": Captain's LOG," 850 DISP "Star Date";D;". We are" 860 DISP "presently on course for" 870 DISP D$ 880 ON INT(RND*5+1) GOTO 890,920,950,980,1010 890 DISP "to rescue miners under attack" 900 DISP "by ";E$;" Warships." 910 GOTO 1030 920 DISP "with a cargo of Dilithium" 930 DISP "Crystals for the colonists." 940 GOTO 1030 950 DISP "to investigate the disappearance" 960 DISP "of the Kobayashi Maru." 970 GOTO 1030 980 DISP "with vitally needed serum" 990 DISP "for the Blue Death Plague." 1000 GOTO 1030 1010 DISP "on reports of mysterious" 1020 DISP "energy emissions." 1030 DISP "SULU: Sir, I'm picking up a" 1040 DISP "vessel on an Attack vector" 1050 DISP "with the ";S$;"." 1060 DISP "SPOCK: Ship's Computers indicate" 1070 DISP "that it is the ";E$ 1080 DISP "vessel ";F$;" under Captain ";U$ 1090 DISP C$;": SOUND RED ALERT!" @ BEEP 700,.5 @ BEEP 400,.5 @ BEEP 700,.5 @ BE EP 400,.5 1100 DISP "UHURA: Red Alert sounded, Sir." 1110 IF RND>.5 THEN X$="SULU" ELSE X$="CHEKOV" 1120 H1,H2,G,X,P,T1,T2,T3,T4,T5,T6=0 1130 FOR I=1 TO 4 @ Z(I),S(I)=100 @ NEXT I 1140 R=1000-100*RND 1150 B=360*(RND-.5) 1160 B1=360*(RND-.5) 1170 B3=0 1180 GOTO 1200 1190 IF I<7 OR I>12 AND I<20 THEN 1210 1200 GOSUB 5790 1210 DISP X$;": What are your orders," 1230 INPUT "Sir? ";M$ 1240 M$=UPRC$(M$) 1250 FOR I=1 TO 21 1260 T1$=" " 1270 L1=POS(Z$[I*9-8,I*9],T1$) 1280 IF L1=0 THEN L1=10 1290 IF Z$[I*9-8,I*9-10+L1]=M$ THEN 1340 1300 NEXT I 1310 IF I<22 THEN 1340 1320 DISP X$;": Say again, Sir?" 1330 GOTO 1210 1340 DISP C$;":" 1350 DISP O$[I*32-31,I*32] 1360 IF I>12 THEN 1380 1370 ON I GOTO 1200,1390,1420,1450,1490,1530,1560,1560,1590,1590,2390,1560 1380 ON I-12 GOTO 2480,2620,2640,1620,3650,3340,3510,6100,6130 1390 IF H1<7 THEN 1720 1400 DISP "CHEKOV: SIR! Forward Phasers..." @ DISP "They're Dead!" 1410 GOTO 3650 1420 IF H1<6 THEN 1710 1430 DISP "CHEKOV: Sir! The Rear Phasers..." @ DISP "They're Dead!" 1440 GOTO 3650 1450 IF H1<9 THEN 2010 1460 DISP "CHEKOV: Forward Photon" 1470 DISP "Torpedoes... are DEAD, Sir!" 1480 GOTO 3650 1490 IF H1<8 THEN 2000 1500 DISP "CHEKOV: Rear Photon" 1510 DISP "Torpedoes... are DEAD, Sir." 1520 GOTO 3650 1530 IF H1<11 THEN 2080 1540 DISP "CHEKOV: Probe Launcher damaged!" 1550 GOTO 3650 1560 IF H1<14 THEN 2180 1570 DISP "SULU: Impulse power is... Gone!" 1580 GOTO 3650 1590 IF H1<11 THEN 2180 1600 DISP "SCOTTY: Me warp drive is..." @ DISP "she's Dead, Sir!!" 1610 GOTO 3650 1620 IF H2<11 THEN 1660 1630 DISP "SPOCK: Sensors indicate the"; 1640 DISP E$;" has no drive, Sir..." @ DISP "she's in effect... a sitting " @ DI SP "Duck!" 1650 GOTO 3650 1660 IF G=0 THEN 2990 1670 DISP "SPOCK: I do not think the" 1680 DISP E$;" will be fooled" 1690 DISP "by that maneuver again, Sir." 1700 GOTO 3650 1710 IF ABS(B)<90 THEN 1730 ELSE 1750 1720 IF ABS(B)<90 THEN 1750 1730 DISP "CHEKOV: Guess again, Sir, that" @ DISP "vector will not do it!" 1740 GOTO 3650 1750 DELAY 0 @ DISP "CHEKOV: Phasers firing, Sir." @ BEEP 840,1 1760 R9=R @ B9=B 1770 GOSUB 6060 1780 IF RND=S(K1) THEN 1860 ELSE K=K1 1860 NEXT K1 1870 DISP "SPOCK: Hit on shield #";K;"." 1880 IF S(K)=0 THEN 1980 1890 S(K)=S(K)-20*V*(RND+.1) 1900 H2=H2+V*(1-S(K)/100) 1910 IF S(K)>0 THEN 1940 1920 DISP "Which is now gone." 1930 S(K)=0 1940 GOTO 3650 1950 V=2 1960 DISP "CHEKOV: Direct Hit, Sir!" 1970 GOTO 1830 1980 DISP "CHEKOV: Got heem, Sir!" 1990 IF RND<.5 THEN 5380 ELSE 4330 2000 IF ABS(B)<90 THEN 1730 ELSE 2020 2010 IF ABS(B)>=90 THEN 1730 2020 BEEP 700,.01 @ BEEP 1500,.05 @ DISP "CHEKOV: Torpedo away, Sir." 2030 R9=R 2040 B9=B 2050 GOSUB 6020 2060 IF RND>F9 THEN 1790 2070 IF RND<.2 THEN 1950 ELSE 1820 2080 IF X<10 THEN 2110 2090 DISP "CHEKOV: Probes exhausted, Sir." 2100 GOTO 3650 2110 X=X+1 @ BEEP 1200,.01 @ BEEP 1700,.08 2120 IF RND<.5 THEN 2150 2130 DISP "SPOCK: Probe... Lost, Admiral." 2140 GOTO 3650 2150 DISP "Probe is homing on the" 2160 DISP F$;", Sir." 2170 GOTO 5380 2180 ON I-6 GOTO 2190,2240,2290,2340,2390,2450 2190 B2=B 2200 GOSUB 4790 2210 B=B2 2220 R=ABS(R-FNR(50)+25) 2230 GOTO 3650 2240 B2=B 2250 GOSUB 4870 2260 B=B2 2270 R=ABS(R+FNR(50)-25) 2280 IF R>1500 THEN 4630 ELSE 3650 2290 B2=B 2300 GOSUB 4910 2310 B=B2 2320 R=ABS(R-FNR(50)+25) 2330 GOTO 3650 2340 B2=B 2350 GOSUB 4990 2360 B=B2 2370 R=ABS(R+FNR(50)-25) 2380 IF R>1500 THEN 4630 ELSE 3650 2390 K=1 2400 FOR J=2 TO 4 2410 IF Z(J)<=Z(K) THEN 2420 ELSE K=J 2420 NEXT J 2430 DISP "CHEKOV: Shield #";K;" at ";Z(K);"%." 2440 GOTO 1210 2450 B=B+180 2460 IF B>180 THEN B=B-360 2470 GOTO 3650 2480 DISP "SPOCK: at range ";R;" I" 2490 DISP "would estimate the probability" 2500 R9=R 2510 B9=B 2520 GOSUB 6060 2530 F8=F8*100 2540 DISP "of a Phaser hit at ";F8 2550 DISP "and the probability of a" 2560 R9=R 2570 B9=B 2580 GOSUB 6020 2590 F9=F9*100 2600 DISP "Photon Torpedo hit at";F9;"." 2610 GOTO 1210 2620 GOSUB 5500 2630 GOTO 1210 2640 DISP "SPOCK: Damages are as follows:" 2650 DISP "% OF SHIELDS REMAINING" 2660 FOR J=1 TO 4 2670 DISP "SHIELD #";J 2680 DISP S$;" ";Z(J) 2690 DISP F$;" ";S(J) 2700 NEXT J 2710 DISP S$;" DAMAGE:" 2720 IF H1>6 THEN 2750 2730 IF H1=0 THEN DISP "NONE" ELSE DISP "MINOR" 2740 GOTO 2870 2750 DISP "REAR PHASERS DEAD" 2760 IF H1<7 THEN 2870 2770 DISP "FORWARD PHASERS DEAD" 2780 IF H1<8 THEN 2870 2790 DISP "REAR PHOTON TORPEDOES DEAD" 2800 IF H1<9 THEN 2870 2810 DISP "FWD PHOTON TORPEDOES DEAD" 2820 IF H1<11 THEN 2870 2830 DISP "PROBE LAUNCHER DESTROYED" 2840 DISP "WARP DRIVE LOST" 2850 IF H1<14 THEN 2870 2860 DISP "IMPULSE POWER LOST" 2870 DISP F$;" DAMAGE:" 2880 IF H2>6 THEN 2910 2890 IF H2=0 THEN DISP "NONE" ELSE DISP "MINOR" 2900 GOTO 2980 2910 DISP "ALL PHASERS DEAD" 2920 IF H2<9 THEN 2980 2930 DISP "ALL TORPEDOES DEAD" 2940 IF H2<11 THEN 2980 2950 DISP "WARP DRIVE DEAD" 2960 IF H2<14 THEN 2980 2970 DISP "IMPULSE ENGINES DEAD" 2980 GOTO 1210 2990 DISP " use CODE 2." 3000 DISP "UHURA: Code 2, Sir? We received" 3010 DISP "a message just a day ago that " @ DISP "Code 2 had been broken!" 3030 DISP C$;": Code 2! Lieutenant," 3040 DISP "immediately." 3050 DISP "UHURA: Aye, Sir. Go ahead." 3060 DISP C$;": This is Admiral" 3070 DISP C$;" of the Starship" 3080 DISP S$;". We are under" 3090 DISP "attack, and, in order to keep" 3100 DISP "the ";S$;" from falling" 3110 DISP "into enemy hands, we are" 3120 DISP "activating the CORBOMITE DEVICE" 3130 DISP "just installed. Since this will" 3140 DISP "result in the complete" 3150 DISP "annihilation of all matter" 3160 DISP "within a range of 5000" 3170 DISP "Megameters, all vessels should" 3180 DISP "avoid this area for the next 5" 3190 DISP "Star Years. ";C$ 3200 DISP "Admiral, Commanding." 3210 G=1 3220 IF RND>.2 THEN 3280 3230 DISP "SULU: ";E$;" is" 3240 DISP "moving off at Warp 10, Sir." 3250 DISP "SPOCK: The tactic appears to" 3260 DISP "have been effective, Sir." 3270 GOTO 6180 3280 DISP "SULU: No change is enemy status" 3290 DISP "and course, Sir" 3300 DISP "SPOCK: It would appear that " 3310 DISP "they have, as you humans say," 3320 DISP "'Called our Bluff', Admiral." 3330 GOTO 3650 3340 DELAY 1 3350 DISP "COMPUTER:" 3360 FOR J=10 TO 1 STEP -1 3370 BEEP (11-J)*100 3380 DISP J 3390 NEXT J 3400 DELAY T9 3410 DISP S$;" IS DESTROYED." 3420 H1=20 3430 Q=200*RND 3440 DISP "RADIUS OF EXPLOSION IS" 3450 DISP Q;" MGM." 3460 IF Q>=R THEN 3490 3470 DISP "ENEMY VESSEL STILL INTACT." 3480 GOTO 6180 3490 DISP "ENEMY VESSEL DESTROYED!" 3500 GOTO 6180 3510 IF E$#"ROMULAN" THEN 3550 3520 DISP "UHURA: No response from the" 3530 DISP E$;" vessel, Sir." 3540 GOTO 3650 3550 DISP C$;": This is Admiral" 3560 DISP C$;" of the Starship" 3570 DISP S$;". Will you accept" 3580 DISP "our UNCONDITIONAL SURRENDER?" 3590 DISP U$;": On behalf of" 3600 DISP "the ";E$;" Empire" 3610 DISP "I accept your Surrender. Stand" 3620 DISP "ready to be BOARDED." 3630 H1=-1 3640 GOTO 6180 3650 ! 3660 IF H2<9 THEN 4030 3670 IF H2<11 THEN 3840 3680 IF H2>14 THEN 4330 3690 IF H1>14 THEN 4630 3700 IF R<200*RND THEN 4690 3710 B2=B1 3720 B3=1 3730 GOSUB 4790 3740 B1=B2 3750 B3=0 3760 R=ABS(R+FNR(50)-25) 3770 GOTO 1200 3780 IF RND<.5 THEN 3710 3790 B2=B1 3800 GOSUB 4870 3810 B1=B2 3820 R=ABS(R-FNR(50)+25) 3830 IF R>1500 THEN 4630 ELSE 1200 3840 IF H1<7 THEN 4010 3850 IF H1<9 THEN 4020 3860 IF H1>11 THEN 4630 3870 IF RND<.5 THEN 3780 3880 IF RND<.5 THEN 3960 3890 B2=B1 3900 B3=1 3910 GOSUB 4910 3920 B1=B2 3930 B3=0 3940 R=ABS(R+FNR(50)-25) 3950 GOTO 1200 3960 B2=B1 3970 GOSUB 4990 3980 B1=B2 3990 R=ABS(R-FNR(50)+25) 4000 IF R>1500 THEN 4630 ELSE 1200 4010 IF R>700 THEN 3960 4020 IF R>200 THEN 3890 ELSE 3700 4030 IF H2<6 THEN 4170 4040 IF H1<7 THEN 4090 4050 IF R<300 THEN 3960 4060 IF R>700 THEN 3890 4070 IF ABS(ABS(B1)-90)>=ABS(ABS(B)-90)-20 THEN 5030 4080 IF RND<.5 THEN 3960 ELSE 3890 4090 IF R<400 THEN 3960 ELSE 4060 4100 R9=R 4110 B9=B1 4120 GOSUB 6060 4130 R9=R 4140 B9=B1 4150 GOSUB 6020 4160 IF F8>F9 THEN 3960 ELSE 4050 4170 IF H1<7 THEN 4230 4180 IF R>50 THEN 4200 4190 IF RND<.5 THEN 3790 ELSE 3960 4200 IF R>=400 THEN 3890 4210 IF ABS(ABS(B1)-90)>50 THEN 5100 ELSE 3790 4220 IF R>700 THEN 3890 ELSE 4070 4230 IF R>700 THEN 3890 4240 IF ABS(ABS(B1)-90)<30 THEN 3710 4250 R9=R 4260 B9=B1 4270 GOSUB 6020 4280 R9=R 4290 B9=B1 4300 GOSUB 6060 4310 IF F9>F8 THEN 4070 4320 IF ABS(ABS(B1)-90)>=ABS(ABS(B)-90)-20 THEN 5100 ELSE 3960 4330 IF P>0 THEN 1190 4340 P=1 4350 DISP "SPOCK: The ";E$;" ship" 4360 DISP "is totally disabled, Admiral." 4370 DISP "Shall we ask for" 4380 DISP "their surrender"; 4390 INPUT A$ 4400 IF UPRC$(A$[1,1])#"Y" THEN 4590 4410 DISP C$;": open a Hailing" 4420 DISP "Frequency, LT. Uhura." 4430 DISP "UHURA: Frequency is open, Sir." 4440 DISP C$;": this is Admiral" 4450 DISP C$;" of the Starship" 4460 DISP S$;"; prepare to" 4470 DISP "commence beaming over " 4480 DISP "survivors." 4490 IF RND<.5 THEN 4550 4500 DISP U$;": I am afraid" 4510 DISP "that will be quite impossible," 4520 DISP "Human, since we have just" 4530 DISP "initiated our Auto-Destruct." 4540 GOTO 4690 4550 DISP U$;": very well, Captain," 4560 DISP "our shields are deactivated." 4570 H2=-1 4580 GOTO 6180 4590 DISP "SPOCK: Do you desire to destroy" 4600 DISP "the ";E$;", Admiral"; 4610 INPUT A$ 4620 IF UPRC$(A$[1,1])="Y" THEN 1210 ELSE 4650 4630 DISP "SULU: Contact with the" 4640 DISP E$;" vessel broken, Sir." 4650 DISP C$;": Resume course" 4660 DISP "FOR ";D$;", MR. Sulu." 4670 DISP "SULU: Aye Aye, Sir." 4680 GOTO 6180 4690 DISP "SPOCK: Sensors indicate that" 4700 DISP "the ";F$;" is overloading" 4710 DISP "what remains of its Antimatter" 4720 DISP "Pods, undoubtedly a Suicidal" 4730 DISP "move. Pods will detonate in 12" 4740 DISP "seconds-" 4750 DELAY .9 4760 FOR J=10 TO 1 STEP -1 @ DISP J @ NEXT J 4770 DELAY T9 4780 GOTO 5380 4790 R=R-50*(RND+.5) 4800 B2=180*(RND-.5) 4810 IF R>0 THEN 4860 4820 R=-R 4830 B2=B2+180 @ IF B2>180 THEN B2=B2-360 4840 IF B3=1 THEN B=B+180 ELSE 4860 4850 IF B>180 THEN B=B-360 4860 RETURN 4870 R=R+50*(RND+.5) 4880 B2=360*(RND-.5) 4890 IF ABS(B2)<90 THEN B2=B2+90*SGN(B2) 4900 RETURN 4910 R=R-400*(RND+.5) 4920 B2=180*(RND-.5) 4930 IF R>0 THEN 4980 4940 R=-R 4950 B2=B2+180 @ IF B2>180 THEN B2=B2-360 4960 IF B3=1 THEN B=B+180 ELSE 4980 4970 IF B>180 THEN B=B-360 4980 RETURN 4990 R=R+400*(RND+.5) 5000 B2=360*(RND-.5) 5010 IF ABS(B2)<90 THEN B2=B2+90*SGN(B2) 5020 RETURN 5030 DISP "SPOCK: The ";E$;" is" 5040 DISP "firing Photon Torpedoes." @ BEEP 440,.5 @ BEEP 1000,.5 @ BEEP 440,.5 @ BEEP 1000,.5 5050 R9=R @ B9=B1 5060 GOSUB 6020 5070 IF RND>F9 THEN 5350 5080 IF RNDF8 THEN 5350 5150 IF RND0 THEN 1190 5240 Z(K)=0 5250 DISP "SHIELD #";K;" IS GONE." 5260 GOTO 1190 5270 DISP "COMPUTER: The ";S$;" has" 5280 DISP "been destroyed." 5290 H1=20 5300 GOTO 6180 5310 V=N3 5320 GOSUB 6900 5330 DISP "DIRECT HIT ON SHIELD #";K;"." 5340 GOTO 5190 5350 DISP "Evasive Maneuvers were" 5360 DISP "effective, No damage." 5370 GOTO 1190 5380 Q=200*RND 5390 IF Q180 THEN B=B-360 5830 IF B<-180 THEN B=B+360 5840 DISP B;" degrees relative." 5850 RETURN 5860 DISP "COMPUTER: DO YOU WISH TO ATTEMPT" 5870 DISP "ANOTHER BATTLE "; 5880 ON ERROR GOTO 5860 5890 INPUT A$ 5900 IF UPRC$(A$[1,1])="Y" THEN 5920 5910 GOTO 6010 5920 IF H1=20 THEN 5980 5930 DISP "COMPUTER: DO YOU WISH TO CHANGE" 5940 ON ERROR GOTO 5920 5950 INPUT "SHIPS?";A$ 5960 IF UPRC$(A$[1,1])#"Y" THEN 690 5970 OFF ERROR 5980 J=FNR(16) 5990 S$=N$[J*11-10,J*11] 6000 GOTO 630 6010 DISP "SIGNING OFF" @ STOP 6020 F9=0 6030 IF ABS(R9-500)>200 THEN 6050 6040 F9=(1-(R9-500)^2/40000)*SIN(FNX(B9)) 6050 RETURN 6060 F8=0 6070 IF R9>400 THEN 6090 6080 F8=(1-(R9-200)^2/40000)*SIN(FNX(B9)) 6090 RETURN 6100 IF H1>=14 THEN 1570 6110 B=B+90 6120 GOTO 2460 6130 IF H1>=14 THEN 1570 6140 B=B-90 6150 IF B>=-180 THEN 2460 6160 B=360+B 6170 GOTO 2460 6180 IF H1>=20 THEN 6520 6190 IF H2>=20 THEN 6290 6200 IF H2<0 THEN 6410 6210 IF H1<0 THEN 6470 6220 IF H2

=5.5 THEN 6340 6320 DISP "CONTINUE ON YOUR MISSION." 6330 GOTO 5860 6340 DISP "REPORT TO STARBASE";FNR(10);"FOR" 6350 DISP "REPAIRS." 6360 GOTO 5860 6370 DISP "STARFLEET: CONGRATULATIONS ON" 6380 DISP "EXTRICATING THE ";S$ 6390 DISP "FROM A PRECARIOUS POSITION." 6400 IF H1>=5.5 THEN 6340 ELSE 6320 6410 DISP "STARFLEET: CONGRATULATIONS ON" 6420 DISP "THE CAPTURE OF THE ";F$ 6430 DISP "RECOMMENDING YOU FOR THE LEGION" 6440 DISP "OF HONOR AND THE ";S$ 6450 DISP "FOR THE STELLAR UNIT CITATION." 6460 GOTO 5860 6470 DISP "STARFLEET: YOUR IGNOMINOUS" 6480 DISP "SURRENDER TO THE ";E$ 6490 DISP "EMPIRE WILL MAKE THE NAME OF" 6500 DISP C$;" LIVE IN INFAMY." 6510 GOTO 5860 6520 DISP "YOUR STUPIDITY AND INCOMPETENCE" 6530 DISP "RESULTED IN THE DESTRUCTION OF" 6540 DISP "THE ";S$;". HER LOSS WILL BE" 6550 DISP "MOURNED MORE THAN YOURS." 6560 GOTO 5860 6570 BEEP 255,.4 @ BEEP 300,.2 @ BEEP 400,.5 6580 WAIT .15 @ BEEP 375,.2 @ BEEP 300,.2 6590 BEEP 255,.2 @ BEEP 335,.3 @ BEEP 450,.3 6600 WAIT .1 @ BEEP 450,.3 @ BEEP 560,.6 6610 RETURN 6620 IF H1<6 THEN 6890 6630 IF T1=1 THEN 6660 6640 DISP "CHEKOV: Rear Phasers are... " @ DISP " are DEAD, Sir!" 6650 T1=1 6660 IF H1<7 THEN 6890 6670 IF T2=1 THEN 6700 6680 DISP "CHEKOV: FWD Phasers are... " @ DISP " are DEAD, Sir!" 6690 T2=1 6700 IF H1<8 THEN 6890 6710 IF T3=1 THEN 6750 6720 DISP "CHEKOV: Rear Photon Torpedoes" 6730 DISP "are... are DEAD, Sir." 6740 T3=1 6750 IF H1<9 THEN 6890 6760 IF T4=1 THEN 6800 6770 DISP "CHEKOV: Forward Photon" 6780 DISP "Torpedoes are... are DEAD, Sir!" 6790 T4=1 6800 IF H1<11 THEN 6890 6810 IF T5=1 THEN 6850 6820 DISP "SCOTTY: Probe Launcher and" 6830 DISP "Warp Drive are gone, Sir!" 6840 T5=1 6850 IF H1<14 OR T6=1 THEN 6890 6860 DISP "SULU: Impulse Engines are" 6870 DISP "drained completely, Sir!" 6880 T6=1 6890 RETURN 6900 IF B>=0 AND B<90 THEN K=1 @ GOTO 6930 6910 IF B>=90 AND B<180 THEN K=2 @ GOTO 6930 6920 IF B<0 AND B>=-90 THEN K=4 ELSE K=3 6930 RETURN Action? Command?