HIELD CNTRLCOMPUTER"
490 K9=0\B9=0
491REM *** SETS UP WHAT EXISTS IN GALAXY
500FOR I=1TO8
510FOR J=1TO8
520R1=RND(1)
530IF R1>.98 THEN 580
540IF R1>.95 THEN 610
550IF R1>.8 THEN 640
560K3=0\GOTO 660
580K3=3\K9=K9+3\GOTO 660
610K3=2\K9=K9+2\GOTO 660
640K3=1\K9=K9+1
660R1=RND(1)
670IF R1>.96 THEN 700
680B3=0\GOTO 720
700B3=1\B9=B9+1
720S3=INT(RND(1)*8+1)
730G(I,J)=K3*100+B3*10+S3
740Z(I,J)=0
750NEXT J
760NEXT I
770K7=K9
775PRINT\PRINT
776 IF B9>0 GOTO 780
777 G(6,3)=G(6,3)+10
778 B9=1
780 PRINT "YOU MUST DESTROY";K9;"KLINGONS IN";T9;
800 PRINT "STARDATES WITH";B9;"STARBASES"
810 S3=0\K3=0\B3=0
820 IF Q1<1 GOTO 920\IF Q1>8 GOTO 920\IF Q2<1 GOTO 920\IF Q2>8 GOTO 920
830X=G(Q1,Q2)*.01
840K3=INT(X)
850B3=INT((X-K3)*10)
860S3=G(Q1,Q2)-INT(G(Q1,Q2)*.1)*10
870 IF K3=0 THEN920
880 IF S>200 THEN 900
890 PRINT "   SHIELDS DANGEROUSLY LOW"
900 PRINT "COMBAT AREA      CONDITION RED"
920FOR I=1TO3
930K(I,3)=0
940NEXT I
950 Q$=Z$\R$=Z$
970 S$=SEG$(Z$,1,48)
971REM *** PUT ENTERPRISE SOMEWHERE
980 A$="<*>"
990Z1=S1
1000Z2=S2
1010GOSUB 5510
1020FOR I=1TOK3
1030 GOSUB 5380
1031REM *** PUT KLINGONS SOMEWHERE
1040A$="+++"
1050Z1=R1
1060Z2=R2
1070GOSUB 5510
1080K(I,1)=R1\ K(I,2)=R2\ K(I,3)=S9
1110NEXT I
1120FOR I=1TOB3
1130GOSUB 5380
1131REM *** PUT STARBASE(S) SOMEWHERE
1140A$=">!<"\ Z1=R1\ Z2=R2
1170GOSUB 5510
1180NEXT I
1190FOR I=1TOS3
1200GOSUB 5380
1201REM *** PUT STARS SOMEWHERE
1210A$=" * "\ Z1=R1\ Z2=R2
1240GOSUB 5510
1250NEXT I
1260GOSUB 4120
1270 PRINT "COMMAND:";\INPUT A
1290IF A=0 GOTO 1410
1291IF A=1 GOTO 1260
1292IF A=2 GOTO 2330
1293IF A=3 GOTO 2530
1294IF A=4 GOTO 2800
1295IF A=5 GOTO 3460
1296IF A=6 GOTO 3560
1297IF A=7 GOTO 4630
1298 IF A=8 GOTO 180
1310PRINT\PRINT"   0 = SET COURSE"
1320PRINT"   1 = SHORT RANGE SENSOR SCAN"
1330PRINT"   2 = LONG RANGE SENSOR SCAN"
1340PRINT"   3 = FIRE PHASERS"
1350PRINT"   4 = FIRE PHOTON TORPEDOES"
1360PRINT"   5 = SHIELD CONTROL"
1370PRINT"   6 = DAMAGE CONTROL REPORT"
1380PRINT"   7 = CALL ON LIBRARY COMPUTER"
1390PRINT"   8 = BEGIN NEW CONTEST"\PRINT
1400GOTO 1270
1401REM *** COURSE CONTROL CODE BEGINS HERE
1410 PRINT "COURSE (1-9):";\INPUT C1
1430IF C1=0 THEN 1270
1440 IF C1<1 GOTO 1410\IF C1=>9 GOTO 1410
1450 PRINT "WARP FACTOR (0-8):";\INPUT W1
1470 IF W1<=0 GOTO 1410\IF W1<=.2 GOTO 1510
1480 IF D(1)>=0 GOTO 1510\IF W1<=.2 GOTO 1510
1490 PRINT "WARP DRIVE IS DISABLED!"\PRINT "IMPULSE ENGINES ACTIVATED."
1495 PRINT "MAXIMUM SPEED = WARP .2"
1500GOTO 1410
1510IF K3<=0 THEN 1560
1520GOSUB 3790
1530IF K3<=0 THEN 1560
1540IF S<0 THEN 4000
1550GOTO 1610
1560    IF E>0 THEN 1610
1570    IF S<1 THEN 3920