--- /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