+++ /dev/null
-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<E0*.1 THEN 800
-780 C$="GREEN"
-785 GOTO 801
-790 C$="RED"
-795 GOTO 801
-800 C$="YELLOW"
-801 IF A<0 THEN 803
-802 GOTO 804
-803 GOSUB 5000
-804 IF E<=0 THEN 5200
-805 IF D(2) >= 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*150<E THEN 5049
-5023 IF N1<>0 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
projects / super-star-trek.git / blobdiff