Super startrek

The Super startrek program is one of the games in the famous The Best of Creative Computing Volume 1 published in 1976. In the book it is called Super Star Trek. This version of Star Trek was created for a Data General Nova 800 system with 32k of core. It appears to have been written for Extended BASIC.

Program listing

0010 REM (VERSION "STREK7", 1/12/75 RCL)
0020 REM 
0030 REM 
0040 REM ***  *** STAR TREK *** ***
0050 REM *** SIMULATION OF A MISSION OF THE STARSHIP ENTERPRISE.
0060 REM *** AS SEEN ON THE STAR TREK TV SHOW.
0070 REM *** ORIGINAL PROGRAM BY MIKE MAYFIELD, MODIFIED VERSION
0080 REM *** PUBLISHED IN DEC'S "101 BASIC GAMES", BY DAVE AHL.
0090 REM *** MODIFICATIONS TO THE LATTER (PLUS DEBUGGING) BY
0100 REM *** BOB LEEDOM -- APRIL & DECEMBER 1974,
0110 REM *** WITH A LITTLE HELP FROM HIS FRIENDS ...
0120 REM *** COMMENTS, EPITHETS, AND SUGGESTIONS SOLICITED
0130 REM *** ADDRESS TO: R.C.LEEDOM
0140 REM *** WESTINGHOUSE DEFENSE & ELECTRONIC SYSTEMS CNTR.
0150 REM *** BOX 745, M.S. 338 BALTIMORE, MD 21203
0160 RANDOMIZE
0170 PRINT TAB(15); "* * * STAR TREK * * *"
0180 PRINT
0190 PRINT " DO YOU NEED INSTRUCTIONS (YES/NO)";
0200 DIM A$[20]
0210 INPUT A$
0220 IF A$<>"YES" THEN GOTO 0240
0230 CHAIN "STINST"
0240 REM PROGRAM BEGINS HERE .....
0250 DIM Z$[72],Q$[72],R$[72],S$[72]
0260 DIM G1$[150],G2$[16],G3$[3],G4$[3]
0270 FOR I=1 TO 72
0280   LET Z$[I,I]=" "
0290   LET Q$[I,I]=" "
0300   LET R$[I,I]=" "
0310   LET S$[I,I]=" "
0320 NEXT I
0330 DIM G[8,8],C[9,2],K[3,3],N[3],Z[8,8]
0340 DIM O1$[40],C$[10]
0350 DIM A1$[20],T$[6]
0360 DIM D$[96],O3$[60]
0370 LET T=INT(RND(1)*20+20)*100
0380 LET T0=T
0390 LET T9=30
0400 LET D0=0
0410 LET E0=3000
0420 LET E=E0
0430 LET P=10
0440 LET P0=P
0450 LET S9=200
0460 LET S=0
0470 DEF FND(D)=SQR((K[I,1]-S1)^2+(K[I,2]-S2)^2)
0480 REM INITIALIZE ENTERPRISE'S POSITION
0490 LET Q1=INT(RND(1)*8+1)
0500 LET Q2=INT(RND(1)*8+1)
0510 LET S1=INT(RND(1)*8+1)
0520 LET S2=INT(RND(1)*8+1)
0530 MAT C=ZER
0540 LET C[3,1]=-1
0550 LET C[2,1]=-1
0560 LET C[4,1]=-1
0570 LET C[4,2]=-1
0580 LET C[5,2]=-1
0590 LET C[6,2]=-1
0600 LET C[1,2]=1
0610 LET C[2,2]=1
0620 LET C[6,1]=1
0630 LET C[7,1]=1
0640 LET C[8,1]=1
0650 LET C[8,2]=1
0660 LET C[9,2]=1
0670 DIM D[8]
0680 FOR I=1 TO 8
0690   LET D[1]=0
0700 NEXT I 
0710 LET A1$="NSLPTSDCX"
0720 LET D$="WARP ENGINESS.R. SENSORSL.R. SENSORSPHASER CNTRL"
0730 LET D$=D$,"PHOTON TUBESDAMAGE CNTRL.SHIELD CNTRL.COMPUTER"
0740 LET G4$="III"
0750 LET G1$="ANTARES.SIRIUS.RIGEL.DENEB.PROCYON.CAPELLA.VEGA."
0760 LET G1$=G1$,"BETELGEUSE.CANOPUS.ALDEBARAN.ALTAIR.REGULUS."
0770 LET G1$=G1$,"SAGITTARIUS.ARCTURUS.POLLUX.SPICA."
0780 LET B9=0
0790 LET K9=0
0800 LET A1$="NSLPTSDCX"
0810 REM SET UP WHAT EXISTS IN GALAXY ...
0820 FOR I=1 TO 8
0830   FOR J=1 TO 8
0840     LET R1=RND(1)
0850     IF R1>.98 THEN GOTO 0900
0860     IF R1>.95 THEN GOTO 0930
0870     IF R1>.8 THEN GOTO 0960 
0880     LET K3=0
0890     GOTO 0980
0900     LET K3=3
0910     LET K9=K9+3
0920     GOTO 0980
0930     LET K3=2
0940     LET K9=K9+2
0950     GOTO 0980
0960     LET K3=1
0970     LET K9=K9+1
0980     LET R1=RND(1)
0990     IF R1>.96 THEN GOTO 1020
1000     LET B3=0
1010     GOTO 1040 
1020     LET B3=1
1030     LET B9=B9+1
1040     LET S3=INT(RND(1)*8+1)
1050     LET G[I,J]=K3*100+B3*10+S3
1060     REM K3=#KLINGONS B3=#STARBASES S3=#STARS
1070     LET Z[I,J]=0
1080   NEXT J
1090 NEXT I
1100 LET K7=K9
1110 DIM X$[2],X0$[5]
1120 LET X$=""
1130 LET X0$=" IS"
1140 IF B9<>0 THEN GOTO 1200
1150 LET B9=1
1160 IF G[6,3]>200 THEN GOTO 1190
1170 LET G[6,3]=G[6,3]+100
1180 LET K9=K9+1
1190 LET G[6,3]=G[6,3]+10
1200 IF B9=1 THEN GOTO 1230
1210 LET X$="S"
1220 LET X0$="ARE"
1230 PRINT "YOUR ORDERS ARE AS FOLLOWS:"
1240 PRINT " DESTROY THE "K9" KLINGON WARSHIPS WHICH HAVE INVADED"
1250 PRINT " THE GALAXY BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS"
1260 PRINT " ON STARDATE"T0+T9". THIS GIVES YOU"T9" DAYS. THERE"X0$
1270 PRINT " "B9" STARBASE";X$" IN THE GALAXY FOR RESUPPLYING YOUR SHIP."
1280 PRINT 
1290 PRINT "HIT 'RETURN' WHEN READY TO ASSUME COMMAND ---"
1300 INPUT A$
1310 REM HERE ANY TIME NEW QUADRANT ENTERED
1320 LET Z4=Q1
1330 LET Z5=Q2
1340 LET K3=0
1350 LET B3=0
1360 LET S3=0
1370 LET G5=0
1380 LET D4=.5*RND(1)
1390 IF Q1<1 THEN GOTO 1600
1400 IF Q1>8 THEN GOTO 1600
1410 Q2<1 THEN GOTO 1600
1420 Q2>8 THEN GOTO 1600
1430 GOSUB 9030
1440 PRINT
1450 IF T<>T0 THEN 1490
1460 PRINT"YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED"
1470 PRINT"IN THE GALACTIC QUADRANT, '"G2$"'."
1480 GOTO 1500
1490 PRINT"NOW ENTERING "G2$" QUADRANT ..."
1500 PRINT
1510 LET X=G(Q1,Q2)*.01
1520 LET K3=INT(X)
1530 LET B3=INT((X-K3)*10)
1540 LET S3=G(Q1,Q2)-INT(G(Q1,Q20*.1)*10
1550 IF K3=0 THEN GOTO 1590
1560 PRINT "COMBAT AREA      CONDITION RED"
1570 IF S>200 THEN GOTO 1590
1580 PRINT "   SHIELDS DANGEROUSLY LOW"
1590 MAT K=ZER
1600 FOR I=1 TO 3
1610   LET R[I,J]=0
1620 NEXT I
1630 LET Q$=Z$
1640 LET R$=Z$
1650 LET S$=Z$[1,48]
1660 REM POSITION ENTERPRISE IN QUADRANT, THEN PLACE "K3" KLINGONS,
1670 REM "B3" STARBASES, & "S3" STARS ELSEWHERE.
1680 LET A$="<*>"
1690 LET Z1=S1
1700 LET Z2=S2
1710 GOSUB 8670
1720 FOR I=1 TO K3
1730   GOSUB 8590
1740   LET A$="+K+"
1750   LET Z1=R1
1760   LET Z2=R2
1770   GOSUB 8670
1780   LET K[I,1]=R1
1790   LET K[I,2]=R2
1800   LET K[I,3]=S9
1810 NEXT I
1820 FOR I=1 TO S3
1830   GOSUB 8590
1840   LET A$=">!<"
1850   LET Z1=R1
1860   LET B4=R1
1870   GOSUB 8670
1880   LET Z2=R2
1890   LET B5=R2
1900 NEXT I
1910 FOR I=1 TO S3
1920   GOSUB 8590
1930   LET A$=" * "
1940   LET Z1=R1
1950   LET Z2=R2
1960   GOSUB 8670
1970   NEXT I
1980 GOSUB 6430
1990 IF S+E>10 THEN GOTO 2020
2000 IF E>10 THEN GOTO 2060
2010 IF D[7]=0 THEN GOTO 2060
2020 PRINT "** FATAL ERROR **   YOU'VE JUST STRANDED YOUR SHIP IN SPACE!!"
2030 PRINT "YOU HAVE INSUFFICIENT MANEUVERING ENERGY, AND SHIELD CONTROL,"
2040 PRINT "IS PRESENTLY INCAPABLE OF CROSS-CIRCUITING TO ENGINE ROOM!!"
2050 GOTO 6220
2060 PRINT "COMMAND"
2070 INPUT A$
2080 FOR I=1 TO 9
2090   IF A$[1,1]<>A1$[I,I] THEN GOTO 2160
2100   IF I<>2 THEN GOTO 2140
2110   IF LEN(A$)<2 THEN GOTO 2140
2120   IF A$[2,2]="R" THEN GOTO 2140
2130   LET I=6
2140   ON I THEN GOTO 2300,1980,4000,4260,4700,5530,5690,7290
2150   IF A$="XXX" THEN GOTO 6270
2160 NEXT I
2170 PRINT "ENTER ONE OF THE FOLLOWING:"
2180 PRINT"  NAV  (TO SET COURSE)"
2190 PRINT"  SRS  (FOR SHORT RANGE SENSOR SCAN)"
2200 PRINT"  LRS  (FOR LONG RANGE SENSOR SCAN)"
2210 PRINT"  PHA  (TO FIRE PHASERS)"
2220 PRINT"  TOR  (TO FIRE PHOTON TORPEDOES)"
2230 PRINT"  SHE  (TO RAISE OR LOWER SHIELDS)"
2240 PRINT"  DAM  (FOR DAMAGE CONTROL REPORTS)"
2250 PRINT"  COM  (TO CALL ON LIBRARY-COMPUTER)"
2260 PRINT"  XXX  (TO RESIGN YOUR COMMAND)"
2270 PRINT
2280 GOTO 1990
2290 REM COURSE CONTROL BEGINS HERE
2300 PRINT "COURSE (0-9)",
2310 INPUT C1
2320 IF C1>=1 THEN GOTO 2350
2330 PRINT"   LT. SULU REPORTS, 'INCORRECT COURSE DATA, SIR!'"
2340 GOTO 1990
2350 IF C1<9 THEN GOTO 2380
2360 IF C1>9 THEN GOTO 2330
2370 LET C1=1
2380 PRINT "WARP FACTOR (0-0)",
2390 INPUT W1
2340 IF W1>0 THEN GOTO 2420
2410 IF W1<=8 THENGOTO 2450
2420 PRINT "   CHIEF ENGINEER SCOTT REPORTS 'THE ENGINES WON'T"
2430 PRINT "          TAKE  WARP "W1"!'"
2440 GOTO 1990
2450 IF D[1]>=0 THEN GOTO 2490
2460 IF W1<=.2 THEN 2490
2470 PRINT "WARP ENGINES ARE DAMAGED.  MAXIUM SPEED = WARP 0.2"
2480 GOTO 2300
2490 LET N=INT(W1*8+.5)
2500 IF E-N>=0 THEN GOTO 2590
2510 PRINT"ENGINEERING REPORTS   'INSUFFICIENT ENERGY AVAILABLE"
2520 PRINT"                       FOR MANEUVERING AT WARP"W1"!'"
2530 IF S<N-E THEN GOTO 1990
2540 D[7]<0 THEN GOTO 1990
2550 PRINT "DEFLECTOR CONTROL ROOM ACKNOWLEDGES"S"UNITS OF ENERGY"
2560 PRINT "                         PRESENTLY DEPLOYED TO SHIELDS."
2570 GOTO 5530
2580 REM KLINGONS MOVE/FIRE ON MOVING STARSHIP ...
2590 FOR I=1 TO K3
2600   IF K[I,3]=0 THEN GOTO 2700
2610   LET A$="   "
2620   LET Z1=K[I,1]
2630   LET Z2=K[I,2]
2640   GOSUB 8670
2650   GOSUB 8590
2660   LET K[I,1]=Z1
2670   LET K[I,2]=Z2
2680   LET A$="+K+"
2690   GOSUB 8670
2700 NEXT I
2710 GOSUB 6000
2720 LET D1=0
2730 LET D6=W1
2740 IF W1>=1 THEN GOTO 2770
2750 LET D6=1
2760 REM MAKE REPAIRS TO SHIP
2770 FOR I=1 TO 8
2780   IF D[I]>=0 THEN GOTO 2880
2790   LET D[I]=D[I]+D6
2800   IF D[I]<0 THEN GOTO 2880
2810   IF D1=1 THEN GOTO 2840
2820   LET D1=1
2830   PRINT"DAMAGE CONTROL REPORT:  "
2840   PRINT  TAB(8),
2850   LET R1=I
2860   GOSUB 8790
2870   PRINT " REPAIR COMPLETED."
2880 NEXT I
2890 REM DAMAGE/IMPROVEMENT DURING SOME YES
2900 IF RND(1)>.2 THEN GOTO 3070
2910 LET R1=INT(RND(1)+0=1)
2920 IF RND(1)>=.6 THEN GOTO 3000
2930 LET D[R1]=D[R1]-(RND(1)*5+1)
2940 PRINT
2950 PRINT "DAMAGE CONTROL REPORT:  ";
2960 GOSUB 8790
2970 PRINT " DAMAGED"
2980 PRINT
2990 GOTO 3070
3000 LET D[R1]=D[R1]+RND(1)*3+1
3010 PRINT
3020 PRINT "DAMAGE CONTROL REPORT:  ";
3030 GOSUB 8790
3040 PRINT " STATE OF REPAIR IMPROVED"
3050 PRINT
3060 REM BEGIN MOVING STARSHIP
3070 LET A$="   "
3080 LET Z1=INT(S1)
3090 LET Z2=INT(S2)
3100 GOSUB 8670
3110 LET X1=C[C1,1]+(C[C1+1,1]-C[C1,1])*(C1-INT(C1))
3120 LET X=S1
3130 LET Y=S2
3140 LET X2=C[C1,2]+(C[C1+1,2]-C[C1,2])*(C1-INT(C1))
3150 LET Q4=Q1
3160 LET Q5=Q2
3170 FOR I=1 TO N
3180   LET S1=S1+X1
3190   LET S2=S2+X2
3200   IF S1<1 THEN GOTO 3500
3210   IF S1>=9 THEN GOTO 3500
3220   IF S2<1 THEN GOTO 3500
3230   IF S2>=9 THEN GOTO 3500
3240   LET S8=INT(S1)*24+INT(S2)*3-26
3250   IF S8>2 THEN GOTO 3200
3260   IF Q$[S0,S8+2]="   " THEN GOTO 3360
3270   GOTO 3320
3280   IF S$>144 THEN GOTO 3310
3290   IF R$[S0-72,S0-70)="   " THEN GOTO 3360
3300   GOTO 3320
3310   IF S$[S0-144,S0-142]="   " THEN GOTO 3360
3320   LET S1=S1-X1
3330   LET S2=S2-X2
3340   PRINT "WARP ENGINES SHUT DOWN AT SECTOR"S1","S2"DUE TO BAD NAVIGATION"
3350   GOTO 3370
3360 NEXT I
3370 LET A$="<*>"
3380 LET Z1=INT(S1)
3390 LET Z2=INT(S2)
3400 GOSUB 8670
3410 GOSUB 3910
3420 LET T8=1
3430 IF W1>1 THEN GOTO 3450 
3440 LET T8=.1*INT(10*W1)
3450 LET T=T+T8
3460 IF T>T0+T9 THEN GOTO 6220
3470 REM SEE IF DOCKED, THEN GET COMMAND
3480 GOTO 1980
3490 REM EXCEEDED QUADRANT LIMITS
3500 LET X=8*Q1+X+N*X1
3510 LET Y=8*Q2+Y+N*X2
3520 LET Q1=INT(X/8)
3530 LET Q2=INT(Y/8)
3540 LET S1=INT(X-Q1*8)
3550 LET S2=INT(Y-Q2*8)
3560 IF S1<>0 THEN GOTO 3590
3570 LET Q1=Q1-1
3580 LET S1=8
3590 IF S2=0 THEN GOTO 3620
3600 LET Q2=Q2-1
3610 LET S2=8
3620 LET X5=0
3630 IF Q1<1 THEN GOTO 3670
3640 LET X5=1
3650 LET Q1=1
3660 LET S1=1
3670 IF Q1>8 THEN GOTO 3710
3680 LET X5=1
3690 LET Q1=8
3700 LET S1=8
3710 IF Q2<1 THEN GOTO 3750
3720 LET X5=1
3730 LET Q2=1
3740 LET S2=1
3750 IF Q2>8 THEN GOTO 3790
3760 LET X5=1
3770 LET Q2=8
3780 LET S2=8
3790 IF X5=0 THEN GOTO 3860
3800 PRINT "LT. UHURA REPORTS MESSAGE FROM STARFLEET COMMAND:"
3810 PRINT "  'PERMISSION TO ATTEMPT CROSSING OF GALACTIC PERIMETER"
3820 PRINT "  IS HEREBY *DENIED*.  SHUT DOWN YOUR ENGINES.'"
3830 PRINT "CHIEF ENGINEER SCOTT REPORTS  'WARP ENGINES SHUT DOWN"
3840 PRINT "  AT SECTOR "S1", "S2" OF QUADRANT "Q1","Q2".'"
3850 IF T>T0+T9 THEN GOTO 6220
3860 IF 8*Q1+Q2=8*Q4+Q5 THEN GOTO 3370
3870 LET T=T+1
3880 GOSUB 3910
3890 GOTO 1320
3900 REM MANEUVER ENERGY S/R **
3910 LET E=E-N-10
3920 IF E>=0 THEN GOTO 1900
3930 PRINT "SHIELD CONTROL SUPPLIES ENERGY TO COMPLETE THE MANEUVER."
3940 LET S-S+E
3950 LET E=0
3960 If S>0 THEN GOTO 3980
3970 LET S=0
3980 RETURN
3990 REM L. R. SENSOR SCAN CODE ***
4000 If D[3]>=0 THEN GOTO 4030
4010 PRINT "LONG RANGE SENSORS ARE INOPRABLE"
4020 GOTO 1990
4030 PRINT "LONG RANGE SENSOR SCAN FOR QUADRANT"Q1", "Q2
4040 LET O1$="..................."
4050 PRINT O1$
4060 FOR I=Q1-1 TO Q1+1
4070    DIM N[3]
4080    FOR I1=1 TO 3  
4090      LET N[I1]=0
4100    NEXT I1
4110    FOR J=Q2-1 TO Q2+1
4120     IF I<1 THEN GOTO 4180
4130     IF I>0 THEN GOTO 4180
4140     IF J<1 THEN GOTO 4180
4150     IF J>0 THEN GOTO 4180
4160    NEXT J
4170    DIM P1$[20]
4180    LET P1$=": ### : ### : ### :"
4190    PRINT USING P1$,N[1],N[2],N[3]
4200    PRINT O1$
4230 NEXT I
4240 GOTO 1990
4250 REM +++ PHASER CONTROL CODE BEGINS HERE
4260 IF L3>0 THEN GOTO 4300
4270 PRINT "SCIENCE OFFICER SPOCK REPORTS 'SENSORS SHOW"
4280 PRINT "   NO ENEMY SHIPS IN THIS QUADRANT.'"
4290 GOTO 1990
4300 IF D[4]>=0 THEN GOTO 4330
4310 PRINT "PHASERS INOPERATIVE"
4320 GOTO 1990
4330 IF D[8->=0 THEN GOTO 4350 
4340 PRINT "COMPUTER FAILURE HAMPERS ACCURACY"
4350 PRINT "PHASERS LOCKER ON TARGET, "
4360 PRINT "ENERGY AVAILABLE = "E
4370 PRINT "NUMBER OF UNITS TO FIRE:",
4380 INPUT X
4390 IF X<=0 THEN GOTO 1990
4400 IF E-X<0 THEN GOTO 4360
4410 LET E=E-X
4420 GOSUB 6000
4430 IF D[7]>=0 THEN GOTO 4450
4440 LET X=X+RND(1)
4450 LET H1=INT(X/K3)
4460 FOR I=1 TO 3
4470   IF K[I,3]<=0 THEN GOTO 4670
4480   LET H=INT((H1/FND(0))+(RND(1)+2))
4490   IF H>.15+K[1,3] THEN GOTO 4530
4500   PRINT "SENSORS SHOW NO DAMAGE"
4510   PRINT "     TO ENEMY AT "K[I,1]", "K[I,2]
4520   GOTO 4670
4530   LET K[I,3]=K[I,3]-H
4540   PRINT H" UNIT HIT ON KLINGON AT SECTOR "K[I,1]", "K[I,2]
4550   IF K[I,3]<=0 THEN GOTO 4580
4560   PRINT "     (SENSORS SHOW"K[I,3]" UNITS REMAINING) "
4570   GOTO 4670
4580   PRINT " +++ KLINGON DESTROYED +++"
4590   LET K3=K3-1
4600   LET K9=K9-1
4610   LET A$="   "
4620   LET Z1=K[I,1]
4630   LET Z2=K[I,2]
4640   GOSUB 8670
4650   LET G[Q1,Q2]=K3+100+B3+10+S3
4660   IF K9<=0 THEN GOTO 6370
4670 NEXT I
4680 GOTO 1990
4690 REM PHOTON TORPEDO CODE BEGINS +++
4700 IF D[5]>=0 THEN GOTO 4730
4710 PRINT "PHOTON TUBES ARE NOT OPERATIONAL "
4720 GOTO 1990
4730 IF P>0 THEN GOTO 4760
4740 PRINT "ALL PHOTON TORPEDOES EXPENDED"
4750 GOTO 1990
4760 PRINT "TORPEDO COURSE (1-9)",
4770 INPUT C1
4780 IF C1>=1 THEN GOTO 4810
4790 PRINT "ENSIGN CHEKOV REPORTS, 'INCORRECT COURSE DATA, SIR!'"
4800 GOTO 1990
4810 IF C1>9 THEN GOTO 4790
4820 IF C1<=9 THEN GOTO 4850
4830 IF C1>=9 THEN GOTO 4760
4840 LET C1=1
4850 LET X1=C[C1,1]+(C[C1+1,1]-C[C1,1])+(C1-INT(C1))
4860 LET X2=C[C1,1]+(C[C1+1,1]-C[C1,1])+(C1-INT(C1))
4870 LET E=E-2
4880 LET X=S1
4890 LET Y=S2
4900 LET P-P-1
4910 PRINT "TORPEDO TRACK:"
4920 LET X=X+X1
4930 LET Y=Y+X2
4940 LET X3=INT(X+.5)
4950 LET Y3=INT(Y+.5)
4960 IF X3<1 THEN GOTO 5490
4970 IF X3>=9 THEN GOTO 5490
4980 IF Y3<1 THEN GOTO 5490
4990 IF Y3>=9 THEN GOTO 5490
5000 PRINT "                "X3","Y3
5010 LET A$="   "
5020 LET Z1=X
5030 LET Z2=Y
5040 GOSUB 8030
5050 IF Z3 <>0 THEN GOTO 4920
5060 LET A$="+++"
5070 LET Z1=X
5080 LET Z2=Y
5090 GOSUB 8830
5100 IF Z3=0 THEN GOTO 5210
5110 PRINT "+++ KLINGON DESTROYED +++"
5120 LET K3=K3-1
5130 LET K9-K9-1
5140 IF K9<=0 THEN GOTO 6370
5150 FOR I=1 TO 3
5160   IF X3<>L[I,1] THEN GOTO 5180
5170   IF Y3=K[I,2] THEN GOTO 5190
5180 NEXT I
5190 LET K[I,3]=0
5200 GOTO 5430
5210 LET A$= " * "
5220 LET Z1=X
5230 LET Z2 = Y
5240 GOSUB 8830
5250 IF Z3=9 THEN GOTO 5280
5260 PRINT "STAR AT"X3,","V3," ABSORBED TORPEDO ENERGY."
5270 GOTO 5500
5280 LET A$=">!<"
5290 LET Z1=X
5300 LET Z2=Y
5310 GOSUB 8830
5320 IF Z3=0 THEN GOTO 4760
5330 PRINT "+++ STARBASE DESTROYED +++"
5340 LET B3=B3-1
5350 LET B9-B9-1
5360 IF B9>0 THEN GOTO 5400
5370 PRINT "THAT DOES IT CAPTAIN!! YOU ARE HEREBY RELIEVE OF COMMAND"
5380 PRINT "   AND SENTENCED TO 99 STARDATES AT HARD LABOR ON CYGNUS 12!!"
5390 GOTO 6270
5400 PRINT "STARFLEET COMMAND REVIEWING YOUR RECORD TO CONSIDER"
5410 PRINT "   COURT MARTIAL!"
5420 LET D0=0
5430 LET A$="   "
5440 LET Z1=X
5450 LET Z2=Y 
5460 GOSUB 8670
5470 LET G[Q1,Q2]=K3+100+B3+10+S3
5480 GOTO 5500
5490 PRINT "TORPEDO MISSED"
5500 GOSUB 6000
5510 GOTO 1990
5520 REM +++ SHIELD CONTROL STARTS HERE
5530 IF D[7]>=0 THEN GOTO 5560
5540 PRINT "SHIELD CONTROL INOPERABLE"
5550 GOTO 1990
5560 PRINT "ENERGY AVAILABLE = "E+S". NUMBER OF UNITS TO SHIELDS:",
5570 INPUT X
5580 IF X>0 THEN GOTO 5620
5590 IF S<>X THEN GOTO 5620
5600 PRINT "(SHIELDS UNCHANGED)"
5610 GOTO 1990
5620 IF E+S-X<0 THEN GOTO 5560
5630 LET E=E+S-X
5640 LET S=X
5650 PRINT "DEFLECTOR CONTROL ROOM REPORT:"
5660 PRINT "   'SHIELDS NOW AT "S" PER YOUR COMMAND'"
5670 GOTO 1990
5680 REM +++ DAMAGE CONTROL STARTS HERE
5690 IF D[6]>=0 THEN GOTO 5910
5700 PRINT "DAMAGE CONTROL REPORT NOT AVAILABLE"
5710 IF D0=0 THEN GOTO 1990
5720 LET D3=0
5730 FOR I=1 TO 9
5740  IF D[I]>=0 THEN GOTO 5760
5750  LET D3=D3+.1
5760 NEXT I
5770 IF D3=0 THEN GOTO 1990
5780 LET D3=D3+D4
5790 IF D3<1 THEN GOTO 5810
5800 LET D3=.9
5810 PRINT "TECHNICIANS STANDING BY TO EFFECT REPAIRS TO YOUR SHIP,"
5820 PRINT "ESTIMATED TIME TO REPAIR: ",
5830 PRINT USING ".# STARDATES",D3
5840 PRINT "WILL YOU AUTHORIZE THE REPAIR ORDER (YES/NO)",
5850 INPUT A$
5860 IF A$<>"YES" THEN GOTO 1990
5870 FOR I=1 TO 8
5880   LET D[I]=0
5890 NEXT I
5900 LET T=T+D3+.1
5910 PRINT
5920 PRINT "DEVICE         STATE OF REPAIR"
5930 FOR R1=1 TO 8
5940    GOSUB 8790
5950    PRINT USING "   =##.##",D[R1]
5960 NEXT R1
5970 PRINT
5980 GOTO 5710
5990 REM "KLINGONS SHOOTING" CODE BEGINS +++
6000 IF K3<=0 THEN GOTO 6210
6010 IF D0=0 THEN GOTO 6040
6020 PRINT "STAR BASE SHIELDS PROTECT THE ENTERPRISE"
6030 GOTO 6210
6040 FOR I=1 TO 3
6050    IF K[I,3]<- THEN GOTO 6200
6060    LET H=INT((K[1,3]/FND(0))+(2+RND(1)))
6070    LET S=S-H
6080    PRINT H" UNIT HIT ON ENTERPRISE FROM SECTOR"K[I,1]", "K[1,2]
6090    IF S<0 THEN GOTO 6240
6100    PRINT "    (SHIELDS DOWN TO "S" UNITS.)"
6110    IF H<20 THEN GOTO 6200
6120    IF RND(1)>.6 THEN GOTO 6200
6130    IF H/S<=.02 THEN GOTO 6200
6140    LET D2=H/S+.5+RND(1)
6150    LET R1=INT(RND(1)+8+1)
6160    LET D[R1]=D[R1]-D2
6170    PRINT "DAMAGE CONTROL REPORTS '",
6180    GOSUB 8790
6190    PRINT "DAMAGED BY THE HIT!'"
6200 NEXT I
6210 RETURN
6220 PRINT "IT IS STARDATE "T
6230 GOTO 6270
6240 PRINT
6250 PRINT "THE ENTERPRISE HAS BEEN DESTROYED. THE FEDERATION WILL BE CONQUERED."
6260 PRINT "IT IS STARDATE "T"."
6270 PRINT "THERE WERE "K9" KLINGON BATTLE CRUISERS LEFT AT"
6280 PRINT "THE END OF YOUR MISSION."
6290 PRINT
6300 PRINT
6310 PRINT "THE FEDERATION IS IN NEED OF A NEW STARSHIP COMMANDER"
6320 PRINT "FOR A SIMILAR MISSION -- IF THERE IS A VOLUNTEER,"
6330 PRINT "LET HIM STEP FORWARD AND ENTER 'AYE'."
6340 INPUT A$
6350 IF A$="AYE" THEN GOTO 0240
6360 GOTO 9250
6370 PRINT "CONGRATULATIONS, CAPTAIN! THE LAST KLINGON BATTLE CRUISER"
6380 PRINT "   MENACING THE FEDERATION HAS BEEN DESTROYED."
6390 PRINT
6400 PRINT "YOUR EFFICIENCY RATING IS "((K7/(T-T0))+1000"."
6410 GOTO 6290
6420 REM S.R. SENSOR SCAN & STARTUP SUBR. ***
6430 FOR I=S1-1 TO S1+1
6440  FOR J=S2-1 TO S2+1
6450    IF INT(I+.5)<1 THEN GOTO 6540
6460    IF INT(I+.5)>8 THEN GOTO 6540
6470    IF INT(J+.5)<1 THEN GOTO 6540
6480    IF INT(J+.5)>8 THEN GOTO 6540
6490    LET A$=">!<"
6500    LET Z1=I
6510    LET Z2=J
6520    GOSUB 8830
6530    IF Z3=1 THEN GOTO 6580
6540   NEXT J
6550 NEXT I
6560 LET D0=0
6570 GOTO 6650
6580 LET D0=1
6590 LET C$="DOCKED"
6600 LET E=3000
6610 LET P=10
6620 PRINT "SHIELDS DROPPED FOR DOCKING PURPOSES"
6630 LET S=0
6640 GOTO 6720
6650 IF K3>0 THEN GOTO 6690
6660 IF E<E0+.1 THEN GOTO 6710
6670 LET C$=" GREEN"
6680 GOTO 6720 
6690 LET C$=" <7>*RED*<7>"
6700 GOTO 6720
6710 LET C$="YELLOW"
6720 IF D[2]>=0 THEN GOTO 6770
6730 PRINT 
6740 PRINT "*** SHORT RANGE SENSORS ARE OUT ***"
6750 PRINT 
6760 GOTO 7270
6770 LET O1$="----------------------------------------"
6780 PRINT O1$
6790 DIM N5$[4]
6800 LET N5$="****"
6810 PRINT " ";
6820 FOR I=1 TO 22 STEP 3
6830   PRINT Q$[I,I+2]" ";
6840 NEXT I
6850 PRINT 
6860 PRINT " ";
6870 FOR I=25 TO 46 STEP 3
6880   PRINT Q$[I,I+2]" ";
6890 NEXT I
6900 PRINT " STARDATE ";
6910 PRINT USING "****.*",T
6920 PRINT " ";
6930 FOR I=49 TO 70 STEP 3
6940   PRINT Q$[I,I+2]" ";
6950 NEXT I
6960 PRINT " CONDITION";
6970 PRINT C$
6980 PRINT " ";
6990 FOR I=1 TO 22 STEP 3
7000   PRINT R$[I,I+2]" ";
7010 NEXT I
7020 PRINT " QUADRANT "Q1","Q2
7030 PRINT " ";
7040 FOR I=25 TO 46 STEP 3
7050   PRINT R$[I,I+2]" ";
7060 NEXT I
7070 PRINT " SECTOR "S2","S2
7080 PRINT "  ";
7090 FOR I=49 TO 70 STEP 3
7100   PRINT R$[I,I+2]" ";
7110 NEXT I
7120 PRINT " TOTAL ENERGY ";
7130 PRINT USING N5$,E+S
7140 PRINT " ";
7150 FOR I=1 TO 22 STEP 3
7160   PRINT S$[I,I+2]" ";
7170 NEXT I
7180 PRINT " PHOTON TORPEDOES";
7190 PRINT USING N5$,P
7200 PRINT " ";
7210 FOR I=25 TO 46 STEP 3
7220   PRINT S$[I,I+2]" ";
7230 NEXT I
7240 PRINT " SHIELDS ";
7250 PRINT USING N5$,S
7260 PRINT O1$
7270 RETURN
7280 REM *** LIBRARY COMPUTER CODE BEGINS HERE
7290 IF D[8]>-0 THEN GOTO 7320
7300 PRINT "COMPUTER DISABLED"
7310 GOTO 1990
7320 PRINT "COMPUTER ACTIVE AND AWAITING COMMAND:";
7330 INPUT A
7340 IF A<0 THEN GOTO 1990
7350 PRINT
7360 LET H8=1
7370 IF A=0 THEN GOTO 7540
7380 ON A THEN GOTO 7900,8070,8500,8150,7400
7390 GOTO 7450
7400 REM *** SETUP TO CHANGE C.G. RECORD TO GALAXY MAP
7410 LET H8=0
7420 LET G5=1
7430 PRINT " THE GALAXY"
7440 GOTO 7550
7450 PRINT "FUNCTIONS AVAILABLE FROM LIBRARY-COMPUTER:"
7460 PRINT " 0 = CUMULATIVE GALACTIC RECORD"
7470 PRINT " 1 = STATUS REPORT"
7480 PRINT " 2 = PHOTON TORPEDO DATA"
7490 PRINT " 3 = STARBASE NAV DATA"
7500 PRINT " 4 = DIRECTION/DISTANCE CALCULATOR"
7510 PRINT " 5 = GALAXY 'REGION NAME' MAP"
7520 GOTO 7320
7530 REM *** CUM GALACTIC RECORD CODE BEGINS ***
7540 PRINT "COMPUTER RECORD OF GALAXY FOR QUADRANT "Q1,", "Q2":"
7550 PRINT "     1     2     3     4     5     6     7     8"
7560 LET O3$="   ----- ----- ----- ----- ----- ----- ----- -----"
7570 PRINT O3$
7580 DIM N1$[2],N2$[8],N$[5]
7590 FOR I=1 TO 8
7600   LET N1$="#"
7610   PRINT USING N1$,I;
7620   IF H8=0 THEN GOTO 7740
7630   FOR J=1 TO 8
7640     LET N2$=" ###"
7650     LET N$=""
7660     IF I<>Q1 THEN GOTO 7700
7670     IF J<>Q2 THEN GOTO 7700
7680     LET N$="<7>"
7690     PRINT N$;
7700     PRINT USING N2$,Z[I,J];
7710     PRINT N$;
7720   NEXT J
7730   GOTO 7850
7740   LET Z4=I
7750   LET Z5=1
7760   GOSUB 9030
7770   LET J0=INT(15-.5+LEN(G2$))
7780   PRINT TAB(J0);
7790   PRINT G2$
7800   LET Z5=5
7810   GOSUB 9030
7820   LET J0=INT(39-.5+LEN(G2$))
7830   PRINT TAB(J0);
7840   PRINT G2$;
7850   PRINT
7860   PRINT O3$
7870 NEXT I
7880 GOTO 1990
7890 REM *** STATUS REPORT CODE BEGINS HERE ***
7900 PRINT " STATUS REPORT:"
7910 LET X$=""
7920 IF K9=1 THEN GOTO 7940
7930 LET X$="S"
7940 PRINT K9" KLINGON"X$" LEFT"
7950 LET V5=(T0+T9)-T
7960 PRINT USING "MISSION MUST BE COMPLETED IN **.* STARDATES",V5
7970 LET X$=""
7980 IF B9=1 THEN GOTO 8040
7990 LET X$="S"
8000 IF B9<>0 THEN GOTO 8040
8010 PRINT "YOUR STUPIDITY HAS LEFT YOU ON YOUR OWN IN"
8020 PRINT " THE GALAXY -- YOU HAVE NO STARBASES LEFT!"
8030 GOTO 5690
8040 PRINT " THE FEDERATION IS MAINTAINING"B9" STARBASES"X$" IN THE GALAXY"
8050 GOTO 5690
8060 REM CODE FOR TORPEDO DATA, BASE NAV, D/D CALCULATOR ***
8070 LET H8=0
8080 FOR I=1 TO 3
8090   IF K[I,3]<=0 THEN GOTO 8480
8100   LET W1=K[I,1]
8110   LET X=K[I,2]
8120   LET C1=S1
8130   LET A=S2
8140   GOTO 8220
8150   PRINT " DIRECTION/DISTANCE CALCULATOR:"
8160   PRINT "YOU ARE AT QUADRANT ("Q1","Q2") SECTOR ("S1","S2")"
8170   PRINT " PLEASE ENTER --"
8180   PRINT " INITIAL COORDINATES (X,Y)";
8190   INPUT C1,A 
8200   PRINT " FINAL COORDINATES (X,Y)";
8210   INPUT W1,X
8220   LET X=X-A
8230   LET A=C1-W1
8240   IF X<0 THEN GOTO 8350
8250   IF A<0 THEN GOTO 8410
8260   IF X>0 THEN GOTO 8280
8270   IF A=0 THEN GOTO 8370
8280   LET C1=1
8290   IF ABS(A)<=ABS(X) THEN GOTO 8330
8300   LET V5=C1+((ABS(A)-ABS(X))+ABS(A))/ABS(A))
8310   PRINT " DIRECTION ="V5
8320   GOTO 8460
8330   PRINT " DIRECTION ="C1+(ABS(A)/ABS(X))
8340   GOTO 8460
8350   IF A>0 THEN GOTO 8390
8360   IF X=0 THEN GOTO 8410
8370   LET C1=5
8380   GOTO 8290
8390   LET C1=3
8400   GOTO 8420
8410   LET C1=7
8420   IF ABS(A))=ABS(X THEN GOTO 8450
8430   PRINT " DIRECTION ="C1+(((ABS(X)-ABS(X))/ABS(x))
8440   GOTO 8460
8450   PRINT "DIRECTION ="C1+ABS(X)/ABS(A))
8460   PRINT "DISTANCE ="SQR(X^2+A^2)
8470   IF H8=1 THEN GOTO 1990
8480 NEXT I
8490 GOTO 1990
8500 IF B3<>0 THEN GOTO 8530
8510 PRINT "MR. SPOCK REPORTS, 'SENSORS SHOW NO STARBASES IN THIS QUADRANT.'"
8520 GOTO 1990
8530 PRINT "FROM ENTERPRISE TO STARBASE:"
8540 LET W1=B4
8550 LET X=B5
8560 GOTO 8120
8570 REM *** END OF LIBRARY-COMPUTER CODE
8580 REM S/R FINDS RANDOM HOLE IN QUADRANT
8590 LET R1=INT(RND(1)*8+1)
8600 LET R2=INT(RND(1)*8+1)
8610 LET A$="   "
8620 LET Z1=R1
8630 LET Z2=R2
8640 GOSUB 8830
8650 IF Z3=0 THEN GOTO 8590
8660 RETURN
8670 REM *** INSERTION IN STRING ARRAY FOR QUADRANT ***
8680 LET S8=INT(Z1+.5)/24+INT(Z2+.5)*3-26
8690 LET S8>72 THEN GOTO 8720
8700 LET Q$[S8,S8+2]=A$
8710 GOTO 8780
8720 IF S8>144 THEN GOTO 8760
8730 LET S8=S8-752
8740 LET R$[S8,S8+2]=A$
8750 GOTO 8780
8760 LET S8=S8-144
8770 LET S$[S8,S8+2]=A$
8780 RETURN
8790 REM *** PRINTS DEVICE NAME FROM ARRAY ***
8800 LET S8=R1*12-11
8810 PRINT D$[S8,S8+11],
8820 RETURN
8830 REM *** STRING COMPARISON IN QUADRANT ARRAY ***
8840 LET Z1=INT(Z1+.5)
8850 LET Z2=INT(Z2+.5)
8860 LET S8=Z1*Z4+Z2+*3-26
8870 LET Z3=0
8880 IF S8>72 THEN GOTO 8920
8890 IF Q$[S8,S8+2]<>A$ THEN GOTO 9000
8900 LET Z3=1
8910 GOTO 9000
8920 IF S8>144 THEN GOTO 8970
8930 LET S8=S8-72
8940 IF R$[S8,S8+2]<>A$ THEN GOTO 9000
8950 LET Z3=1
8960 GOTO 9000
8970 LET S8=S8-144
8980 IF S$[S8,S8+2]<>A$ THEN GOTO 9000
8990 LET Z3=1
9000 RETURN
9010 REM ** S/R PRODUCES QUADRANT NAME IN G2$ FROM Z4,Z5(=Q1,Q2)
9020 REM ** (CALL WITH G5=1 TO GET REGION NAME ONLY)
9030 LET L2=2
9040 LET Z5>=5 THEN GOTO 9060
9050 LET L2=1
9060 LET L3=2*(Z4-1)+L2
9070 LET I3=1 
9080 LET I0=1
9090 FOR L=1 TO LEN(G1$)
9100   IF G1$[L,L]<>"." THEN GOTO 9140
9110   IF I3=L3 THEN GOTO 9150
9120   LET I0=L+1
9130   LET I3=I3+1
9140 NEXT L
9150 LET G2$=G1$[I0,L-1]
9160 IF G5=1 THEN GOTO 9240
9170 LET L3=Z5
9180 IF Z5<=4 THEN GOTO 9200 
9190 LET L3=Z5-4
9200 LET G3$="IV"
9210 IF L3=4 THEN GOTO 9230
9220 LET G3$=G4$[1,L3]
9230 LET G2$=G2$," ",G3$
9240 RETURN
9250 STOP
9260 END



Sidst opdateret: 2018/12/27
Website vedligeholdt af Søren Roug