1 PRINT "U. OF TEXAS STAR TREK GAME BY GRADY HICKS AND JIM KORP." 2 PRINT "GENERAL IDEA STOLEN FROM PENN. U. BY HICKS." 3 PRINT "VASTLY IMPROVED, AND ADAPTED TO TAURUS BY KORP, 5 APRIL 73." 4 GOSUB 9980 5 PRINT " BE CAREFUL AND HAVE A GOOD TIME." 6 PRINT 7 PRINT 8 X8=RND(0) 9 DIM Q$(10) 10 DIM G(8,8),Q(8,8),D(8),K(9,3),N(3) 11 DIM C$(20) 12 GOSUB 8050 13 PRINT " TO PLAY SHORT VERSION, TYPE 1 ---" 14 PRINT " TO PLAY REGULAR VERSION, TYPE 2:"; 15 INPUT V 16 IF V = 1 THEN 20 17 IF V = 2 THEN 20 18 PRINT 19 GOTO 13 20 T0=INT(RND(0)*20+20)*100 21 T=T0 22 T9=40 23 E0=3000 24 E=3000 25 P0=10 26 P=10 27 S9=200 29 GOSUB 8200 30 DEF FNO(F)=SQR((K(F,1)-S1)^2+(K(F,2)-S2)^2) 32 Q1=INT(RND(0)*8+1) 34 Q2=INT(RND(0)*8+1) 35 F=1 40 FOR I=1 TO 7 42 D(I)=0 44 NEXT I 62 S1=INT(RND(0)*8+1) 64 S2=INT(RND(0)*8+1) 65 DIM F$(12) 66 DIM N$(15) 72 REM: SET UP GALAXY 75 B9=0 76 LET E4=W3=A9=C5=0 77 Z$="DOWN" 80 K9=0 85 FOR I=1 TO 8 90 FOR J=1 TO 8 91 R=RND(0)*64 95 IF V=2 THEN 150 100 T9=20 110 IF R>=.28 THEN 114 111 K3=4 112 GOTO 135 114 IF R>=1.78 THEN 118 115 K3=3 116 GOTO 135 118 IF R>=5.28 THEN 122 119 K3=2 120 GOTO 135 122 IF R>=9.28 THEN 130 123 K3=1 124 GOTO 135 130 K3=0 135 K9=K9+K3 145 GOTO 206 150 REM: DETERMINE NUMBER OF KLINGONS, BASES AND STARS. 152 IF R>=.01 THEN 156 153 K3=9 154 GOTO 195 156 IF R>=.10 THEN 160 157 K3=8 158 GOTO 195 160 IF R>=.30 THEN 164 161 K3=7 162 GOTO 195 164 IF R>=.80 THEN 168 165 K3=6 166 GOTO 195 168 IF R>=1.25 THEN 172 169 K3=5 170 GOTO 195 172 IF R>=2.00 THEN 176 173 K3=4 174 GOTO 195 176 IF R>=5.28 THEN 180 177 K3=3 178 GOTO 195 180 IF R>=8.28 THEN 183 181 K3=2 182 GOTO 195 183 IF R>=13.28 THEN 190 184 K3=1 185 GOTO 195 190 K3=0 195 K9=K9+K3 200 B3=RND(0) 202 IF B3<=.97 THEN 206 204 B3=1 205 GOTO 221 206 B3=0 221 B9=B9+B3 230 S3=INT(RND(0)*8+1) 235 G(I,J)=K3*100+B3*10+S3 250 NEXT J 260 NEXT I 265 K0=K9 270 IF B9>0 THEN 285 271 I=INT(RND(0)*8+1) 272 J=INT(RND(0)*8+1) 275 G(I,J)=G(I,J)+10 276 B9=1 285 LET P2=1 294 PRINT 295 PRINT " PLEASE TYPE A SECRET PASSWORD:"; 296 INPUT X$ 297 PRINT 298 LET N1=N9=N7=A7=0 300 REM: DETERMINE KLINGON COMMANDER 302 IF A9<>0 THEN 320 304 R1=INT(RND(0)*8+1) 306 R2=INT(RND(0)*8+1) 308 C2=R1 310 C3=R2 312 G(C2,C3)=G(C2,C3)+100 314 K9=K9+1 315 K0=K9 316 A9=A9+1 320 REM: CONTINUE 399 GOTO 9045 400 REM: SET UP QUADRANT 405 K3=B3=S3=0 410 IF Q1<1 THEN 500 420 IF Q1>8 THEN 500 430 IF Q2<1 THEN 500 440 IF Q2>8 THEN 500 450 X=G(Q1,Q2)/99.999 460 K3=INT(X) 470 B3=INT((X-K3)*10.0) 480 S3=G(Q1,Q2)-INT(G(Q1,Q2)*.1)*10 490 'MAT K=ZER 491 FOR I=1 TO 8 492 FOR J=1 TO 8 493 Q(I,J)=0 494 NEXT J 495 NEXT I 500 FOR I=1 TO 8 510 FOR J=1 TO 8 520 Q(I,J)=0 530 NEXT J 540 NEXT I 545 IF N1<>1 THEN 550 548 Q(S1,S2)=5 549 GOTO 560 550 Q(S1,S2)=1 560 FOR I=1 TO K3 570 GOSUB 9000 580 Q(R1,R2)=2 590 K(I,1)=R1 591 K(I,2)=R2 593 K(I,3)=S9 600 NEXT I 601 IF Q1<>C2 THEN 610 602 IF Q2<>C3 THEN 610 603 K(I,3)=800 605 Q(K(I,1),K(I,2))=6 610 FOR I=1 TO B3 620 GOSUB 9000 630 Q(R1,R2)=3 640 NEXT I 650 FOR I=1 TO S3 660 GOSUB 9000 670 Q(R1,R2)=4 680 NEXT I 690 A=-1 691 IF P2=1 THEN 700 693 GOSUB 5000 694 IF E<=0 THEN 5200 699 GOTO 955 700 REM: SHORT RANGE SENSOR SCAN 702 P2=P2+1 705 LET T8=S1-1 706 LET U=S1+1 707 LET M=S2-1 708 LET N=S2+1 709 IF T8>=1 THEN 711 710 T8=1 711 IF U<=8 THEN 713 712 U=8 713 IF M>=1 THEN 715 714 M=1 715 IF N<=8 THEN 720 716 N=8 720 FOR I=T8 TO U 725 FOR J=M TO N 735 IF Q(I,J)<>3 THEN 740 736 C$="DOCKED" 737 GOSUB 7700 739 GOTO 801 740 NEXT J 745 NEXT I 770 IF K3>0 THEN 790 775 IF E= 0 THEN 830 815 PRINT "SHORT RANGE SENSORS ARE OUT " 820 PRINT 825 GOTO 955 830 PRINT "----------------------" 835 FOR I=1 TO 8 836 FOR J=1 TO 8 838 PRINT Q$(Q(I,J)+1);" "; 840 NEXT J 841 PRINT " "; 845 GOSUB 854 847 NEXT I 848 PRINT "--------------------------" 849 GOTO 955 854 IF I>1 THEN 859 855 PRINT "STARDATE "T 856 GOTO 900 859 IF I>2 THEN 864 860 PRINT "CONDITION "C$ 861 GOTO 900 864 IF I>3 THEN 869 865 PRINT "QUADRANT "Q1;"-"Q2 866 GOTO 900 869 IF I>4 THEN 874 870 PRINT "SECTOR "S1;"-"S2 871 GOTO 900 874 IF I>5 THEN 879 875 PRINT "ENERGY "E 876 GOTO 900 879 IF I>6 THEN 884 880 PRINT "PHOTON TORPEDOES "P 881 GOTO 900 884 IF I>7 THEN 890 885 PRINT "KLINGONS LEFT "K9 886 GOTO 900 890 PRINT "ENERGY SHIELDS "Z$ 900 RETURN 955 IF N9<>1 THEN 959 956 GOSUB 7950 957 IF N7=1 THEN 3582 958 N9=2 959 PRINT "COMMAND:"; 960 INPUT A 961 IF C$<>"DOCKED" THEN 964 962 GOSUB 7700 964 GOTO 7100 974 PRINT 975 PRINT " 0 = SET COURSE" 980 PRINT " 1 = SHORT RANGE SENSOR SCAN" 985 PRINT " 2 = LONG RANGE SENSOR SCAN" 990 PRINT " 3 = FIRE PHASERS" 995 PRINT " 4 = FIRE PHOTON TORPEDOES" 1000 PRINT " 5 = DAMAGE CONTROL REPORT" 1005 PRINT " 6 = SELF-DESTRUCT" 1006 PRINT " 7 = ABANDON SHIP" 1007 PRINT " 8 = ACTIVATE ENERGY SHIELDS" 1008 PRINT " 9 = DEACTIVATE ENERGY SHIELDS" 1009 PRINT " 10 = FIRE EXPERIMENTAL DEATH RAY" 1018 IF H6=1 THEN 9946 1019 PRINT 1020 GOTO 955 1030 REM: WARP DRIVE 1035 C$="MOVING" 1040 PRINT "COURSE (1-8.9999):"; 1050 INPUT C1 1060 IF C1=0 THEN 955 1070 IF C1<1 THEN 959 1080 IF C1>= 9 THEN 1040 1090 PRINT "WARP FACTOR (0-12):"; 1100 INPUT W1 1110 IF W1<0 THEN 959 1120 IF W1>12 THEN 959 1130 IF W1<=.25 THEN 1163 1140 IF D(1) >= 0 THEN 1163 1150 PRINT "WARP ENGINES ARE DAMAGED, MAXIMUM SPEED = WARP .25" 1160 GOTO 1040 1163 GOTO 7500 1164 E=E-C5 1165 IF E<=0 THEN 5200 1168 IF W1=12 THEN 3500 1170 REM: THIS IS A CONTINUE CARD 1180 GOSUB 5000 1185 IF N9=1 THEN 955 1190 IF E <=0 THEN 5230 1200 FOR I=1 TO 7 1215 IF D(I)=0 THEN 1230 1220 D(I)=D(I)+2 1222 IF D(I)<0 THEN 1230 1225 D(I)=0 1230 NEXT I 1240 IF RND(0)>.20 THEN 1320 1250 R1=INT(RND(0)*7+1) 1260 IF RND(0)>.5 THEN 1300 1270 D(R1)=D(R1)-(RND(0)*5+1) 1280 PRINT "*** SPACE STORM, "; 1281 GOSUB 6000 1283 PRINT F$" DAMAGED ***" 1290 GOTO 1320 1300 FOR I=R1 TO 7 1301 IF D(I)<0 THEN 1307 1302 NEXT I 1303 FOR I=1 TO R1-1 1304 IF D(I)<0 THEN 1307 1305 NEXT I 1306 GOTO 1320 1307 R1=I 1308 D(I)=D(I)+RND(0)*5+1 1309 IF D(I)<=0 THEN 1311 1310 D(I)=0 1311 PRINT "*** TEMPORARY TRUCE, "; 1312 GOSUB 6000 1313 PRINT F$" STATE OF REPAIR IMPROVED ***" 1320 N=INT(W1*8) 1322 E=E-N-N+5 1324 T=T+1 1326 Q(S1,S2)=0 1327 X=S1 1328 Y=S2 1330 IF T>T0+T9 THEN 5200 1340 GOSUB 3460 1350 FOR I=1 TO N 1352 S1=S1+X1 1354 S2=S2+X2 1356 X3=INT(S1+.5) 1357 Y3=INT(S2+.5) 1370 IF S1<.5 THEN 1480 1375 IF S2<.5 THEN 1480 1380 IF S1>=8.5 THEN 1480 1385 IF S2>=8.5 THEN 1480 1388 IF Q(X3,Y3)<>0 THEN 1392 1390 NEXT I 1391 GOTO 1460 1392 LET Z5=Q(X3,Y3) 1393 IF Z5=6 THEN 6300 1394 IF Z5<>2 THEN 1405 1400 GOTO 6300 1405 PRINT 1406 GOSUB 7900 1407 PRINT N$;"BLOCKED BY OBJECT AT SECTOR"S1;"-"S2 1408 S1=S1-X1 1410 S2=S2-X2 1460 S1=INT(S1+.5) 1465 S2=INT(S2+.5) 1467 Q(S1,S2)=A5 1470 GOTO 955 1480 Q1=INT(Q1+W1*X1+(X-.5)/8) 1481 Q2=INT(Q2+W1*X2+(Y-.5)/8) 1482 IF Q1>=1 THEN 1485 1483 Q1=1 1484 Z2=1 1485 IF Q1<=8 THEN 1488 1486 Q1=8 1487 Z2=1 1488 IF Q2>=1 THEN 1491 1489 Q2=1 1490 Z2=1 1491 IF Q2<=8 THEN 1494 1492 Q2=8 1493 Z2=1 1494 IF Z2<>1 THEN 1497 1496 GOSUB 8970 1497 PRINT 1498 IF G(Q1,Q2)>999 THEN 7650 1499 Z2=0 1500 S1=INT(RND(0)*8+1) 1510 S2=INT(RND(0)*8+1) 1550 GOTO 400 1600 REM: LONG RANGE SENSOR SCAN 1610 IF D(3) >= 0 THEN 1640 1620 PRINT "LONG RANGE SENSORS ARE INOPERABLE" 1625 PRINT 1630 GOTO 955 1640 PRINT "LONG RANGE SENSOR SCAN FOR QUADRANT"Q1","Q2 1645 PRINT "----------------- '" 1660 FOR I=Q1-1 TO Q1+1 1670 N(1)=N(2)=N(3)=0 1680 FOR J=Q2-1 TO Q2+1 1690 IF I<1 THEN 1740 1700 IF I>8 THEN 1740 1710 IF J<1 THEN 1740 1720 IF J>8 THEN 1740 1730 N(J-Q2+2)=G(I,J) 1740 NEXT J 1750 PRINT ":"N(1);":"N(2);":"N(3) 1760 PRINT "------------------- '" 1770 NEXT I 1775 PRINT 1780 GOTO 955 1800 REM: PHASER CONTROL 1810 IF D(4) >= 0 THEN 1832 1820 PRINT "PHASER CONTROL IS DISABLED" 1825 PRINT 1830 GOTO 955 1832 IF C5=0 THEN 1840 1834 PRINT "YOU MUST LOWER YOUR ENERGY SHIELDS TO FIRE." 1836 PRINT 1837 GOTO 959 1840 PRINT "PHASERS LOCKED ON TARGET. ENERGY AVAILABLE = "E 1850 PRINT "NUMBER OF UNITS TO FIRE:"; 1860 INPUT X 1870 IF X <= 0 THEN 955 1880 IF E-X<0 THEN 1840 1890 E=E-X 1895 IF K3=0 THEN 2010 1898 W2=K3 1900 FOR I=1 TO 9 1910 IF K(I,3) <= 0 THEN 1990 1929 H=(X)/(FNO(I))*(3.0+RND(0)) 1930 K(I,3)=K(I,3)-(H/W2) 1940 PRINT H/W2;"UNIT HIT ON KLINGON AT SECTOR"K(I,1);"-"K(I,2) 1950 PRINT "("K(I,3);"LEFT)" 1960 IF K(I,3)>0 THEN 1990 1970 GOSUB 4500 1980 IF K9 <= 0 THEN 5300 1990 NEXT I 1995 IF K3<=0 THEN 2020 2000 GOSUB 5000 2010 IF E <= 0 THEN 5250 2020 GOTO 955 3000 REM: PHOTON TORPEDOES 3010 IF D(5) >= 0 THEN 3040 3020 PRINT "PHOTON TUBES ARE NOT OPERATIONAL" 3025 PRINT 3030 GOTO 955 3040 IF P>0 THEN 3062 3050 PRINT "ALL PHOTON TORPEDOES EXPENDED" 3060 GOTO 955 3062 IF C5=0 THEN 3068 3064 PRINT "YOU MUST LOWER YOUR ENERGY SHIELDS TO FIRE." 3066 PRINT 3067 GOTO 959 3068 PRINT "DO YOU WISH TO FIRE A SPREAD:"; 3069 INPUT M$ 3070 PRINT "TORPEDO COURSE (1-8.9999):"; 3080 INPUT C1 3090 IF C1=0 THEN 955 3100 IF C1<1 THEN 3070 3110 IF C1>=9 THEN 3070 3111 IF P<3 THEN 3120 3116 IF M$="YES" THEN 6500 3120 GOSUB 3460 3130 X=S1 3132 Y=S2 3134 P=P-1 3140 PRINT "TORPEDO TRACK:"; 3150 X=X+X1 3155 Y=Y+X2 3160 IF X<.5 THEN 3422 3165 IF Y<.5 THEN 3422 3170 IF X>=8.5 THEN 3422 3175 IF Y>=8.5 THEN 3422 3200 PRINT X;"-"Y; 3202 X5=INT(X+.5) 3204 Y5=INT(Y+.5) 3210 IF Q(X5,Y5)<>0 THEN 3230 3220 GOTO 3150 3230 LET F7=Q(X5,Y5) 3236 IF F7=1 THEN 3150 3237 IF F7=2 THEN 3244 3238 IF F7=3 THEN 3301 3239 IF F7=4 THEN 3323 3240 IF F7=6 THEN 3244 3244 PRINT 3245 PRINT "*** KLINGON DESTROYED ***" 3250 K3=K3-1 3255 K9=K9-1 3260 IF K9<=0 THEN 5300 3271 FOR I=1 TO 9 3272 IF K(I,1)<>X5 THEN 3275 3273 IF K(I,2)<>Y5 THEN 3275 3274 GOTO 3400 3275 NEXT I 3301 Q(X5,Y5)=0 3310 PRINT 3311 PRINT "*** STARBASE DESTROYED ... CONGRATULATIONS ***" 3313 B3=B3-1 3315 GOTO 3410 3323 Q(X5,Y5)=0 3334 PRINT 3335 PRINT "***STAR DESTROYED***" 3340 S3=S3-1 3345 IF S3>=0 THEN 3410 3347 S3=0 3350 GOTO 3410 3400 K(I,3)=0 3401 Q(X5,Y5)=0 3410 G(Q1,Q2)=K3*100+B3*10+S3 3420 GOTO 3430 3422 PRINT 3425 PRINT "TORPEDO MISSED" 3430 IF E4=0 THEN 3439 3432 E4=E4+1 3433 IF E4>3.5 THEN 3438 3435 GOTO 6520 3438 IF K3<=0 THEN 3445 3439 GOSUB 5000 3440 IF E <= 0 THEN 5230 3445 E4=0 3450 GOTO 955 3460 X2=COS((C1-1)*.785398) 3470 X1=-SIN((C1-1)*.785398) 3480 RETURN 3500 W9=RND(0) 3502 IF T>T0+15 THEN 3510 3504 PRINT "WARP 12 CANNOT BE USED UNTIL STARDATE"T0+16 3506 GOTO 1040 3510 PRINT "SPEED APPROACHING WARP 12." 3520 PRINT "ENGINES OPERATING ABOVE DANGER LEVEL." 3530 PRINT "ALL SAFETY DEVICES DISFUNCTIONAL." 3540 PRINT "CRITICAL OVERHEATING--SPONTANEOUS IMPLOSION IMMINENT." 3570 IF W9>.40 THEN 3600 3575 FOR I=1 TO 2 3576 PRINT "*****************************************************" 3577 NEXT I 3578 GOSUB 7900 3580 PRINT "*** ENTROPY OF"N$;"MAXIMIZED **************" 3582 GOSUB 9980 3583 PRINT " YOU ATE THAT ONE." 3584 GOTO 9992 3600 IF W9>.55 THEN 3700 3610 PRINT 3620 PRINT " YOU ARE TRAVELLING BACK IN TIME." 3630 T=T-6 3640 PRINT "*** STARDATE ="T+1 3650 GOTO 1170 3700 IF W9>.60 THEN 3800 3710 PRINT 3720 PRINT " YOU ARE TRAVELLING BACK IN TIME." 3730 T=T-11 3740 PRINT "*** STARDATE ="T+1 3750 GOTO 1170 3800 IF W9>.70 THEN 3900 3810 PRINT 3820 PRINT " YOU ARE TRAVELLING FORWARD IN TIME." 3830 T=T+5 3840 IF T>T0+T9 THEN 5200 3850 PRINT "*** STARDATE ="T 3860 GOTO 1170 3900 PRINT 3910 PRINT "NUCLEAR REACTOR CHAIN REACTION QUENCHED." 3920 PRINT "*** TIME PORTAL MISSED ***" 3930 GOTO 1170 4000 REM: DAMAGE CONTROL REPORT 4010 IF D(6) >= 0 THEN 4040 4020 PRINT "DAMAGE CONTROL REPORT IS NOT AVAILABLE" 4025 PRINT 4030 GOTO 955 4040 PRINT 4050 PRINT "DEVICE STATE OF REPAIR" 4060 FOR I=1 TO 7 4065 R5=I-.5 4066 GOSUB 6000 4070 PRINT F$,D(I) 4080 NEXT I 4090 PRINT 4100 GOTO 955 4200 REM: 4500 PRINT "*** KLINGON AT SECTOR"K(I,1);"-"K(I,2);"DESTROYED." 4510 K3=K3-1 4520 K9=K9-1 4530 Q(K(I,1),K(I,2))=0 4540 G(Q1,Q2)=K3*100+B3*10+S3 4550 RETURN 5000 REM: KLINGON ATTACK 5002 GOSUB 7900 5003 IF K3<=0 THEN 5110 5005 IF C$ <> "DOCKED" THEN 5017 5010 PRINT "STARBASE SHIELDS PROTECT THE"N$ 5012 RETURN 5017 IF C5=0 THEN 5022 5018 PRINT "** KLINGONS ATTACK-- ENERGY SHIELDS PROTECT"N$ 5020 GOTO 5110 5022 IF K3*1500 THEN 5049 5024 PRINT 5025 PRINT " KLINGON COMMANDER TO ENTERPRISE---" 5026 PRINT "AS YOU WELL KNOW, YOU ARE DANGEROUSLY LOW ON ENERGY" 5027 PRINT "AND WILL PROBABLY BE DESTROYED BY MY NEXT ATTACK." 5028 PRINT "AS AN OFFICER AND GENTLEMAN, I OFFER YOU A CHANCE TO" 5029 PRINT "SAVE YOURSELF AND YOUR CREW----" 5032 PRINT " DO YOU SURRENDER:"; 5033 INPUT S$ 5034 IF S$<>"YES" THEN 5049 5035 A7=1 5036 N9=1 5038 GOTO 5110 5049 PRINT 5050 FOR I=1 TO 9 5051 IF K(I,3) <= 0 THEN 5100 5060 H=(K(I,3)/FNO(I))*(2+RND(0)) 5070 E=E-H 5075 GOSUB 7900 5080 PRINT H;"UNIT HIT ON"N$;"FROM KLINGON, SECTOR "K(I,1);"-"K(I,2) 5082 IF H<=180 THEN 5090 5083 R5=INT(RND(0)*7+1) 5084 D(R5)=D(R5)-(RND(0)*5+1) 5085 PRINT "*** CRITICAL HIT,"; 5086 GOSUB 6000 5087 PRINT F$" DAMAGED ***" 5090 PRINT "("E;"LEFT)" 5100 NEXT I 5105 PRINT 5110 RETURN 5200 REM: LOSE 5210 GOSUB 9985 5220 PRINT "IT IS STARDATE"T 5230 PRINT 5250 GOSUB 7900 5255 PRINT "THE"N$;"HAS BEEN DESTROYED." 5260 PRINT "THERE ARE STILL"K9;"KLINGON BATTLE CRUISERS." 5270 PRINT "THE FEDERATION WILL BE CONQUERED." 5280 PRINT "YOU ARE DEAD, YOU INCOMPETENT FOOL." 5290 GOTO 9992 5300 REM: WIN 5310 GOSUB 9985 5320 PRINT "IT IS STARDATE"T 5330 PRINT "THE LAST KLINGON BATTLE CRUISER IN THE GALAXY HAS BEEN" 5331 PRINT "DESTROYED." 5340 PRINT "THE FEDERATION HAS BEEN SAVED." 5350 PRINT "YOU HAVE BEEN PROMOTED TO COMMODORE EMERITUS." 5355 IF N1<>0 THEN 5380 5360 PRINT K0;"KLINGONS IN"T-T0;"YEARS. RATING="INT(K0/(T-T0)*1000) 5370 GOTO 9992 5380 PRINT K0;"KLINGONS IN"T-T0;"YEARS." 5382 IF A7=5 THEN 5392 5385 PRINT "ENTERPRISE CAPTURED." 5390 PRINT "RATING ="INT(K0/(T-T0)*1000-1000) 5391 GOTO 9992 5392 PRINT "ENTERPRISE DESTROYED INTENTIONALLY." 5393 PRINT "RATING ="INT(K0/(T-T0)*1000-500) 5395 GOTO 9992 6000 REM: SELECT DAMAGED DEVICE 6002 IF A+1<>1 THEN 6010 6004 R5=R1 6010 IF R5>1 THEN 6040 6020 F$="WARP ENGINES" 6030 GOTO 8000 6040 IF R5>2 THEN 6070 6050 F$="S.R. SENSORS" 6060 GOTO 8000 6070 IF R5>3 THEN 6090 6075 F$="L.R. SENSORS" 6080 GOTO 8000 6090 IF R5>4 THEN 6100 6093 F$="PHASER CNTRL" 6097 GOTO 8000 6100 IF R5>5 THEN 6110 6103 F$="PHOTON TUBES" 6107 GOTO 8000 6110 IF R5>6 THEN 6115 6111 F$="DAMAGE CNTRL" 6112 GOTO 8000 6115 F$="ENERGY SHLDS" 6118 GOTO 8000 6300 REM: RAMMING KLINGON 6301 PRINT 6302 Q(S1,S2)=0 6304 K3=K3-1 6305 K9=K9-1 6310 Z$="DOWN" 6318 FOR I=1 TO 9 6320 IF K(I,1)<>X3 THEN 6330 6322 IF K(I,2)<>Y3 THEN 6330 6323 Z6=K(I,1) 6324 Z7=K(I,2) 6325 GOTO 6360 6330 NEXT I 6360 K(I,3)=0 6362 GOSUB 7900 6363 Q(X3,Y3)=A5 6365 GOTO 6370 6370 G(Q1,Q2)=K3*100+B3*10+S3 6380 PRINT "*** EMERGENCY ALERT ***" 6381 PRINT "*** COLLISION IMMINENT ***" 6382 GOSUB 9980 6383 GOSUB 7900 6384 PRINT N$;"RAMS KLINGON AT SECTOR"Z6;"-"Z7 6385 PRINT "*** KLINGON DESTROYED,"N$;"HEAVILY DAMAGED. ***" 6386 FOR I=1 TO 7 6387 D(I)=D(I)-(RND(0)*4+1) 6388 NEXT I 6389 C5=0 6390 E=E-500 6391 IF K9<=0 THEN 5300 6395 IF E<=0 THEN 5230 6396 S1=Z6 6397 S2=Z7 6398 A=2 6399 GOTO 4040 6500 REM: TORPEDO SPREAD FORMATION 6507 PRINT "SPREAD ANGLE (0.05-0.30):"; 6508 INPUT E5 6509 IF E5=0 THEN 959 6510 IF E5<0.05 THEN 6507 6511 IF E5>0.30 THEN 6507 6515 E4=1 6520 PRINT "NUMBER"E4; 6522 IF E4>1.5 THEN 6530 6524 C1=C1-E5 6525 GOTO 3120 6530 C1=C1+E5 6535 GOTO 3120 7100 REM: COMMAND LINK 7105 IF A+1 = 1 THEN 1030 7106 IF A+1 = 2 THEN 700 7107 IF A+1 = 3 THEN 1600 7108 IF A+1 = 4 THEN 1800 7109 IF A+1 = 5 THEN 3000 7110 IF A+1 = 6 THEN 4000 7111 IF A+1 = 7 THEN 8100 7112 IF A+1 = 8 THEN 7400 7113 IF A+1 = 9 THEN 7800 7114 IF A+1 = 10 THEN 7850 7115 IF A+1 = 11 THEN 7200 7125 GOTO 974 7200 REM: DEATH RAY 7202 IF T>T0+18 THEN 7208 7204 PRINT " DEATH RAY CANNOT BE USED UNTIL STARDATE"T0+19 7205 PRINT 7206 GOTO 959 7208 IF W3<.05 THEN 7215 7210 PRINT " DEATH RAY PERMANENTLY OUT OF ORDER." 7212 PRINT 7214 GOTO 959 7215 IF C5=0 THEN 7225 7220 PRINT " YOU MUST LOWER YOUR SHIELDS TO FIRE." 7222 PRINT 7223 GOTO 959 7225 W3=RND(0) 7227 PRINT 7228 IF W3>.35 THEN 7260 7230 PRINT " *ANTI-MATTER OVERLOAD." 7231 PRINT " TEMPORARY PSUEDO-STARS CREATED FROM ENERGY." 7232 FOR I=1 TO 8 7233 FOR J=1 TO 8 7235 IF Q(I,J)<>0 THEN 7240 7238 Q(I,J)=4 7240 NEXT J 7241 NEXT I 7245 PRINT 7247 GOTO 830 7260 IF W3>.50 THEN 7280 7263 PRINT "*** DEATH RAY BACKFIRES ***" 7265 PRINT "*** BETTER LUCK NEXT TIME ***" 7270 GOTO 3575 7280 IF W3>.60 THEN 7310 7283 PRINT "*** DEATH RAY ANNIHILATES ALL KLINGONS IN QUADRANT"Q1;"-"Q2 7285 K9=K9-K3 7286 IF K9<=0 THEN 5300 7287 FOR I=1 TO 8 7288 FOR J=1 TO 8 7289 IF Q(I,J)<>6 THEN 7292 7290 Q(I,J)=0 7292 IF Q(I,J)<>2 THEN 7294 7293 Q(I,J)=0 7294 NEXT J 7295 NEXT I 7296 K3=0 7298 G(Q1,Q2)=INT(B3*10+S3) 7300 GOTO 959 7310 IF W3>.75 THEN 7325 7312 PRINT "*THERMAL REACTOR ENERGY DRAIN." 7314 E=E-(.95*E) 7316 PRINT .95*E"UNITS OF ENERGY BURNED." 7320 GOTO 7283 7325 IF W3>.95 THEN 7350 7328 PRINT "*MATTER/ANTI-MATTER TRANSFORMATION." 7330 IF K3>0 THEN 7334 7332 GOTO 7231 7334 PRINT "KLINGONS HIT BY MAIN BEAM DUPLICATED." 7335 P8=K3 7338 FOR I=1 TO P8 7339 IF K3>8 THEN 7345 7341 K3=K3+1 7342 K9=K9+1 7344 NEXT I 7345 G(Q1,Q2)=K3*100+B3*10+S3 7346 P2=1 7349 GOTO 1500 7350 PRINT "*** DEATH RAY GOES CRAZY ***" 7352 PRINT "*** DESTROYS EVERY KLINGON IN THE GALAXY ***" 7353 PRINT "*** ALSO DESTROYS ENTERPRISE ***" 7354 A7=N1=5 7360 GOTO 5300 7400 REM: ABANDON SHIP 7401 IF N1=0 THEN 7404 7402 PRINT "THE FAIRIE QUEENE CANNOT BE ABANDONED." 7403 GOTO 959 7404 PRINT 7405 IF A7<>1 THEN 7420 7410 PRINT "** YOU MAY NOT ABANDON SHIP AFTER YOU HAVE BEEN " 7411 PRINT "ASKED TO SURRENDER." 7415 PRINT 7416 GOTO 959 7420 PRINT "*** ABANDON SHIP ***" 7421 PRINT "*** ABANDON SHIP ***" 7425 PRINT 7426 PRINT "SERIES ENTER-BLITZ INITIATED." 7429 PRINT "FAIL-SAFE AUTO-OVERRIDE INSERTED." 7433 PRINT "ENTERPRISE COMMANDER AND CREW ESCAPE IN SHUTTLE CRAFT." 7435 PRINT 7440 PRINT "*** ENTERPRISE REDUCED TO SUB-ATOMIC PARTICLES ***" 7441 PRINT 7445 A7=5 7446 N1=1 7448 N9=1 7450 GOTO 955 7500 REM: SUPERNOVA 7501 IF V=2 THEN 7506 7502 IF RND(0)>.15 THEN 7600 7504 GOTO 7508 7506 IF RND(0)>.10 THEN 7600 7508 Z3=INT(RND(0)*8+1) 7510 Z4=INT(RND(0)*8+1) 7515 IF G(Z3,Z4)>999 THEN 7600 7520 S4=G(Z3,Z4)-INT(G(Z3,Z4)*.1)*10 7525 IF S4<=0 THEN 7600 7530 PRINT 7535 PRINT "*************************************************" 7540 PRINT "********* SUPERNOVA IN QUADRANT"Z3;"-"Z4 7542 PRINT "ALL MATTER IN THIS QUADRANT CONVERTED TO ENERGY." 7543 IF Q1<>Z3 THEN 7575 7544 IF Q2<>Z4 THEN 7575 7545 PRINT 7546 GOSUB 7900 7548 PRINT "UNFORTUNATELY, THE"N$;"WAS IN THIS QUADRANT." 7550 GOTO 3582 7575 PRINT "FROM NOW ON, ANY VESSEL STOPPING IN THIS QUADRANT" 7576 PRINT "WILL BE TOTALLY ENERGIZED." 7577 PRINT "*************************************************" 7579 PRINT 7580 K4=INT(G(Z3,Z4)/99.99) 7582 B4=INT((G(Z3,Z4)/99.99-K4)*10.0) 7584 B9=B9-B4 7585 K9=K9-K4 7590 G(Z3,Z4)=INT(1000.0) 7600 GOTO 1164 7650 REM: STARSHIP ENCOUNTERS OLD SUPERNOVA 7655 PRINT "*** HEY STUPID. YOU WERE WARNED NOT TO STOP IN A" 7656 PRINT "QUADRANT WHERE A SUPERNOVA HAD OCCURRED." 7660 GOTO 8992 7700 REM: VARIABLE RESUPPLY 7701 IF N1=1 THEN 7710 7703 E=3000 7705 P=10 7708 GOTO 7720 7710 E=1500 7715 P=5 7720 A7=0 7730 RETURN 7800 REM: ACTIVATE ENERGY SHIELDS 7802 IF D(7)>=0 THEN 7808 7804 PRINT "ENERGY SHIELDS DISABLED." 7806 GOTO 959 7808 IF C5=0 THEN 7818 7810 PRINT "ENERGY SHIELDS ALREADY ACTIVATED." 7811 PRINT 7812 GOTO 959 7818 PRINT 7819 PRINT "ENERGY SHIELDS ACTIVATED." 7820 PRINT 7822 C5=200 7824 Z$="UP" 7825 E=E-C5 7826 IF E<=0 THEN 5200 7828 GOSUB 5000 7830 GOTO 959 7850 REM: DEACTIVATE ENERGY SHIELDS 7855 PRINT 7860 PRINT "ENERGY SHIELDS DEACTIVATED." 7863 PRINT 7865 C5=0 7868 Z$="DOWN" 7870 GOSUB 5000 7875 GOTO 955 7900 REM: DETERMINE NAME 7905 IF N1<>1 THEN 7915 7908 A5=5 7910 N$=" FAIRIE QUEENE " 7912 GOTO 7920 7915 N$=" ENTERPRISE " 7918 A5=1 7920 RETURN 7950 REM: CHANGING OF THE GUARD AT BUCKINGHAM PALACE 7951 PRINT 7952 FOR I=1 TO 8 7955 FOR J=1 TO 8 7957 K3=INT(G(I,J)/99.99) 7958 B3=INT((G(I,J)/99.99-K3)*10.0) 7960 IF B3>0 THEN 7978 7961 NEXT J 7962 NEXT I 7963 PRINT " YOU HAVE BEEN TAKEN TO KLINGON HEADQUARTERS." 7964 PRINT "IF YOU HAD A STARBASE, YOU WOULD BE REPATRIATED" 7965 PRINT "AND GIVEN A NEW STARSHIP TO COMMAND." 7966 PRINT "SINCE YOU HAVE NO STARBASE, YOU WILL BE MERCILESSLY" 7967 PRINT "TORTURED TO DEATH BY THE ARCHFIEND," 7968 PRINT "CECIL DYBOWSKI, SCOURGE OF THE UNIVERSE." 7970 N7=1 7975 GOTO 8000 7978 N9=2 7979 T=T+1 7980 Q1=I 7981 Q2=J 7982 E=1500 7983 P=5 7984 N1=1 7985 PRINT "YOU HAVE BEEN SENT BACK TO STARFLEET COMMAND." 7987 PRINT "YOU ARE NOW IN COMMAND OF A NEW STARSHIP," 7988 PRINT " THE FAIRIE QUEENE," 7989 PRINT "WHICH LOOKS LIKE /Q/ ON THE SCAN." 7990 PRINT 7992 PRINT " YE FAIRIE QUEENE IS CURRENTLY IN QUADRANT"Q1;"-"Q2 7994 PRINT "TRY TO BE MORE CAREFUL THIS TIME." 7995 FOR I=1 TO 7 7996 D(I)=0 7997 NEXT I 7998 PRINT 7999 GOTO 1500 8000 RETURN 8050 Q$(1)="." 8051 Q$(2)="E" 8052 Q$(3)="K" 8053 Q$(4)="B" 8054 Q$(5)="*" 8055 Q$(6)="Q" 8056 Q$(7)="C" 8060 RETURN 8100 REM: SELF-DESTRUCT 8105 PRINT 8110 PRINT "SERIES ENTER-BLITZ INITIATED." 8115 PRINT "IN TEN SECONDS THIS VESSEL WILL SELF-DESTRUCT." 8116 PRINT "10" 8117 PRINT " 9" 8118 PRINT " 8" 8119 PRINT " 7" 8120 PRINT " 6" 8122 PRINT 8123 PRINT "T MINUS 5 SECONDS AND HOLDING." 8124 PRINT "FAIL-SAFE MECHANISM ENGAGED. ONLY THE COMMANDER OF" 8125 PRINT "THE STARSHIP CAN OVERRIDE WITH HIS SECRET PASSWORD." 8126 PRINT "SCIENCE OFFICER HICKS HAS ALREADY ENTERED HIS CORRECT" 8127 PRINT "COUNTER-PASSWORD." 8128 PRINT "TO CONTINUE SERIES ENTER-BLITZ, TYPE YOUR " 8129 PRINT "SECRET PASSWORD:"; 8130 INPUT V$ 8135 IF V$<>X$ THEN 8150 8139 PRINT 8140 PRINT " 4" 8141 PRINT " 3" 8142 PRINT " 2" 8143 PRINT " 1" 8145 GOTO 3575 8150 PRINT 8151 PRINT "SERIES ENTER-BLITZ TERMINATED." 8155 PRINT 8160 GOTO 955 8200 REM: RANDOMIZE 8205 PRINT 8206 PRINT " TYPE A WIERD NUMBER BETWEEN 0.0 AND 1.0 :"; 8207 INPUT E6 8208 E9=RND(E6) 8210 RETURN 8970 REM: LEAVING GALAXY 8975 IF F>2 THEN 8990 8980 PRINT 8981 PRINT "STARSHIP ENCOUNTERS END OF GALAXY." 8982 PRINT 8983 PRINT "FOOLISH MORTAL, YOU HAVE ATTEMPTED TO VENTURE OUT OF THE" 8984 PRINT "GALAXY INTO SUB-SPACE. ON THE THIRD TIME YOU TRY THIS," 8985 PRINT "THE LIVING GOD, KORP, WILL DESTROY YOU." 8987 F=F+1 8988 GOTO 8995 8990 PRINT 8991 PRINT "YOU HAVE DARED TO ENTER SUB-SPACE A THIRD TIME." 8992 PRINT "FOR THIS, ************ YOU DIE ****************" 8993 GOTO 3575 8995 RETURN 9000 REM: RANDOM NUMBER GENERATOR 9010 R1=INT(RND(0)*8+1) 9020 R2=INT(RND(0)*8+1) 9030 IF Q(R1,R2) <> 0 THEN 9010 9040 RETURN 9045 PRINT 9050 PRINT "ORDERS: STARDATE = "T 9060 PRINT 9070 PRINT " AS COMMANDER OF THE UNITED STARSHIP ENTERPRISE," 9080 PRINT "YOUR MISSION IS TO RID THE GALAXY OF THE DEADLY" 9090 PRINT "KLINGON MENACE. TO DO THIS, YOU MUST DESTROY THE " 9100 PRINT "KLINGON INVASION FORCE OF "K9"BATTLE CRUISERS." 9110 PRINT "YOU HAVE"T9;"SOLAR YEARS TO COMPLETE YOUR MISSION." 9120 PRINT "(I.E. UNTIL STARDATE"T0+T9;")." 9125 PRINT 9130 IF B9 > 1 THEN 9133 9131 PRINT " YOU WILL HAVE ONE SUPPORTING STARBASE." 9132 GOTO 9140 9133 PRINT " YOU WILL HAVE"B9"SUPPORTING STARBASES." 9140 PRINT "WHEN THE ENTERPRISE DOCKS AT ONE (IS POSITIONED" 9150 PRINT "NEXT TO ONE) IT IS RESUPPLIED WITH ENERGY AND" 9160 PRINT "PHOTON TORPEDOES." 9161 PRINT "THE ENTERPRISE IS CURRENTLY IN" 9162 PRINT "QUADRANT"Q1"-"Q2"SECTOR"S1"-"S2 9163 PRINT "DO YOU NEED FURTHER INSTRUCTIONS (REVISED 18 APRIL 73)"; 9164 INPUT A$ 9166 PRINT 9170 IF A$<>"YES" THEN 400 9175 GOSUB 9980 9180 PRINT " THE GALAXY IS DIVIDED INTO 64 QUADRANTS WITH" 9190 PRINT "THE FOLLOWING COORDINATES:" 9200 PRINT " Y-- 1 2 3 4 5 6 7 8 '" 9210 PRINT " --------------------------------- X" 9220 FOR I=1 TO 8 9230 PRINT " ' : : : : : : : : : "I 9240 PRINT " --------------------------------- '" 9250 NEXT I 9260 PRINT 9270 PRINT 9280 PRINT 9300 PRINT "EACH QUADRANT IS SIMILARLY DIVIDED INTO 64 SECTORS." 9310 GOSUB 9980 9320 PRINT "::: DEVICES :::" 9330 PRINT 9340 PRINT "WARP ENGINES: " 9350 PRINT 9360 PRINT "COURSE = A REAL NUMBER FROM 1 TO 8.99999." 9370 PRINT "NUMBERS INDICATE DIRECTION STARTING AT THE RIGHT AND" 9380 PRINT "GOING COUNTER CLOCKWISE:" 9390 PRINT 9400 PRINT " 3" 9410 PRINT " 4 2" 9420 PRINT " /" 9430 PRINT " 5---*---1" 9440 PRINT " /" 9450 PRINT " 6 8" 9460 PRINT " 7" 9470 PRINT 9480 PRINT "WARP FACTOR = A REAL NUMBER FROM 0 TO 12." 9490 PRINT "DISTANCE TRAVELED = INTEGER (WARP FACTOR) QUADRANTS:" 9500 PRINT " WARP .2 = THE ENTERPRISE TRAVELS 1 SECTOR." 9510 PRINT " .5 = 4 SECTORS." 9520 PRINT " 1 = 1 QUADRANT." 9530 PRINT " 2 = 2 QUADRANTS." 9535 PRINT 9540 PRINT 9550 PRINT "FOR EXAMPLE, IF YOU TRAVEL FROM:" 9560 PRINT "QUADRANT 1 - 1, SECTOR 1 - 1, IN DIRECTION 1 AT WARP 2" 9570 PRINT "YOU WOULD STOP AT" 9580 PRINT "QUADRANT 1 - 3, SECTOR 1 - 1 IN THE NEXT STARDATE." 9590 PRINT 9591 PRINT " WHEN YOU CHANGE QUADRANTS, HOWEVER, THE POSITIONS OF" 9592 PRINT "ALL OBJECTS IN THE NEW QUADRANT (INCLUDING THE ENTERPRISE)" 9593 PRINT "ARE RANDOMIZED TO SIMULATE 3-D TRAVEL." 9599 PRINT 9600 PRINT "*** NOTE: EVERY USE OF THE WARP ENGINES TAKES ONE" 9610 PRINT "STARDATE. IF THE ENTERPRISE IS BLOCKED BY SOMETHING" 9620 PRINT "DURING INTRA-QUADRANT TRAVEL IT WILL STOP IN FRONT" 9630 PRINT "OF IT (AND WASTE A STARDATE) ***" 9631 PRINT 9632 PRINT "***NOTE: THERE IS A TIME PORTAL AVAILABLE BY TRAVELLING" 9633 PRINT "AT WARP 12. YOU MAY BE CARRIED EITHER FORWARD OR" 9634 PRINT "BACKWARD IN TIME, BUT THERE IS ALSO A .40 PROBABILITY" 9635 PRINT "THAT YOU WILL BE DESTROYED IN A NUCLEAR IMPLOSION." 9636 PRINT "A WARP FACTOR OF 12 MAY ONLY BE USED AFTER 15 SOLAR YEARS." 9637 PRINT 9638 PRINT "***NOTE: IF THE ENTERPRISE RAMS A KLINGON VESSEL, EITHER" 9639 PRINT "DELIBERATELY OR ACCIDENTLY, THE KLINGON WILL BE" 9640 PRINT "DESTROYED AND THE ENTERPRISE HEAVILY DAMAGED." 9649 GOSUB 9980 9650 PRINT "SHORT RANGE SENSORS:" 9660 PRINT 9670 PRINT " THE SHORT RANGE SENSORS OF THE ENTERPRISE DISPLAY" 9680 PRINT "A DETAILED VIEW OF THE QUADRANT IT IS CURRENTLY IN." 9690 PRINT "THE ENTERPRISE LOOKS LIKE /E/ ON THE SCREEN." 9700 PRINT "KLINGON BATTLE CRUISERS LOOK LIKE /K/ ON THE SCREEN." 9710 PRINT "STARBASES LOOK LIKE /B/ AND STARS LOOK LIKE * ." 9715 PRINT "THE KLINGONS MAY HAVE A POWERFUL COMMAND SHIP, /C/." 9720 PRINT 9723 PRINT "***NOTE: DOCKING IS A TWO STEP PROCEDURE--FIRST YOU" 9724 PRINT "MUST MOVE ADJACENT TO THE BASE. THEN CONDUCT A " 9725 PRINT "SHORT RANGE SCAN." 9726 PRINT "WHILE DOCKED, STARBASE SHIELDS PROTECT THE STARSHIP." 9729 PRINT 9730 PRINT "***NOTE: CONDITION YELLOW MEANS YOU ARE DANGEROUSLY" 9731 PRINT "LOW ON ENERGY AND SHOULD MAKE FOR A BASE POSTHASTE." 9735 GOSUB 9980 9736 PRINT "EXPERIMENTAL DEATH RAY" 9737 PRINT 9738 PRINT " THE EXPERIMENTAL DEATH RAY, AS ITS NAME IMPLIES," 9739 PRINT "IS UNPREDICTABLE. HOWEVER, ONE CAN CERTAINLY PREDICT" 9740 PRINT "THAT, IN A GIVEN SITUATION, IT WILL DO WHATEVER IT" 9741 PRINT "DAMN WELL PLEASES. THERE IS A GOOD PROBABILITY THAT IT" 9742 PRINT "WILL DESTROY MANY KLINGONS, BUT THERE COULD BE SOME" 9743 PRINT "INTERESTING SIDE EFFECTS. IT CAN PROBABLY ONLY BE" 9744 PRINT "FIRED ONCE, BUT YOU NEVER KNOW. IT CANNOT BE USED UNTIL" 9745 PRINT "18 SOLAR YEARS HAVE PASSED." 9757 GOSUB 9980 9758 PRINT "LONG RANGE SENSORS:" 9759 PRINT 9760 PRINT " THE LONG RANGE SENSORS OF THE ENTERPRISE DISPLAY" 9770 PRINT "THE NUMBER OF OBJECTS IN THE 9 CLOSEST QUADRANTS," 9771 PRINT "WITH THE ENTERPRISE IN THE CENTRAL ONE." 9780 PRINT "EACH DIGIT OF THE NUMBER IN EACH BOX MEANS SOMETHING:" 9790 PRINT " THE ONES DIGIT REPRESENTS THE NUMBER OF STARS." 9800 PRINT " TENS STARBASES." 9810 PRINT " HUNDREDS KLINGONS." 9812 PRINT " THOUSANDS SUPERNOVA." 9820 PRINT "FOR EXAMPLE:" 9830 PRINT "319 MEANS 3 KLINGONS, 1 STARBASE, AND 9 STARS." 9840 PRINT "206 MEANS 2 KLINGONS, 0 STARBASES, AND 6 STARS." 9850 PRINT "7 MEANS 0 KLINGONS, 0 STARBASES, AND 7 STARS." 9860 GOSUB 9980 9861 PRINT "ENERGY SHIELDS:" 9862 PRINT 9863 PRINT " WHILE THE ENERGY SHIELDS OF A STARSHIP ARE ACTIVATED," 9864 PRINT "KLINGON ATTACKS ARE NULLIFIED. EVERY TIME YOU MOVE WITH" 9865 PRINT "YOUR SHIELDS UP, 200 UNITS OF ENERGY ARE USED." 9866 PRINT "ALSO, SHIELD ACTIVATION ITSELF REQUIRES 200 UNITS." 9867 PRINT "NOTE: YOU MUST LOWER YOUR SHIELDS TO ATTACK." 9869 GOSUB 9980 9870 PRINT "PHASERS:" 9880 PRINT 9890 PRINT " ANY PORTION OF THE ENERGY AVAILABLE CAN BE FIRED." 9900 PRINT "THE BATTLE COMPUTER DIVIDES THIS AMOUNT AMONG THE" 9901 PRINT "KLINGON CRUISERS IN THE QUADRANT AND DETERMINES" 9902 PRINT "THE VARIOUS DIRECTIONS OF FIRE. THE EFFECTIVENESS" 9903 PRINT "OF A HIT DEPENDS MOSTLY ON THE DISTANCE TO THE" 9904 PRINT "TARGET. A KLINGON BATTLE CRUISER STARTS WITH"S9 9905 PRINT "UNITS OF ENERGY. IT CAN FIRE AN AMOUNT EQUAL TO" 9906 PRINT "WHATEVER ENERGY IT HAS LEFT." 9907 PRINT 9908 PRINT 9909 PRINT "PHOTON TORPEDOES:" 9910 PRINT 9911 PRINT " INITIALLY THE ENTERPRISE HAS"P0"PHOTON TORPEDOES." 9912 PRINT "ONE TORPEDO DESTROYS WHATEVER IT HITS. THE RANGE" 9913 PRINT "OF PHOTON TORPEDOES (LIKE PHASERS) IS LIMITED TO" 9914 PRINT "THE CURRENT QUADRANT. THE COURSE OF A PHOTON TORPEDO" 9915 PRINT "IS SET THE SAME WAY AS THAT OF THE ENTERPRISE." 9916 PRINT "YOU MAY, IF YOU WISH, FIRE A SPREAD OF THREE TORPEDOES" 9917 PRINT "AT ONCE. THERE IS A TIME LAG IN LAUNCHING THEM, THE ONE" 9918 PRINT "WITH THE LOWEST NUMERICAL COURSE BEING FIRED FIRST." 9919 PRINT "FOR EXAMPLE, A TORPEDO COURSE OF 3.49 WITH A SPREAD" 9920 PRINT "ANGLE OF 0.24 WOULD FIRE TORPEDOES AT DIRECTIONS" 9921 PRINT "3.25, 3.49, AND 3.73 ." 9924 GOSUB 9980 9925 PRINT "DAMAGE CONTROL REPORT:" 9926 PRINT " THE DAMAGE CONTROL REPORT LISTS THE MAIN DEVICES AND" 9927 PRINT "THEIR STATE OF REPAIR. A NEGATIVE STATE OF REPAIR" 9928 PRINT "INDICATES A DISABLES DEVICE. DEVICES CAN BE DAMAGED OR" 9929 PRINT "REPAIRED BY A SPACE STORM OR TRUCE, RESPECTIVELY." 9930 PRINT "ALSO, DAMAGED DEVICES ARE REPAIRED 2 UNITS EVERY STARDATE." 9935 GOSUB 9980 9940 PRINT "COMMANDS:" 9941 PRINT 9942 H6=1 9944 GOTO 975 9946 H6=H6+1 9952 GOSUB 9980 9953 PRINT "P.S.--SAVE THIS COPY OF INSTRUCTIONS, SO THAT NEXT" 9954 PRINT "TIME YOU WILL NOT NEED ADDITIONAL INSTRUCIONS AND" 9955 PRINT "CAN PROCEED IMMEDIATELY TO PLAY." 9956 PRINT 9957 PRINT 9960 GOSUB 9980 9961 PRINT "WHEN YOU ARE READY TO CONTINUE, TYPE 9:"; 9962 INPUT X 9963 GOSUB 9980 9965 GOTO 400 9980 REM 9985 FOR I=1 TO 3 9986 PRINT 9990 NEXT I 9991 RETURN 9992 PRINT 9993 PRINT 9994 PRINT " DO YOU WISH TO PLAY AGAIN:"; 9995 INPUT A$ 9996 IF A$ ="YES" THEN 5 9997 PRINT 9998 PRINT " ** AVE ATQUE VALE **" 9999 END