TO 1270
4660 PRINT "COMPUTER ACTIVE AND AWAITING COMMAND:";\INPUT A
4680IF A=0 GOTO 4740
4681IF A=1 GOTO 4830
4682IF A=2 GOTO 4880
4690PRINT "FUNCTIONS AVAILABLE FROM COMPUTER"
4700PRINT "   0 = CUMULATIVE GALACTIC RECORD"
4710PRINT "   1 = STATUS REPORT"
4720PRINT "   2 = PHOTON TORPEDO DATA"
4730GOTO 4660
4731REM *** CUMULATIVE GALACTIC RECORD CODE BEGINS HERE
4740 PRINT "COMPUTER RECORD OF GALAXY FOR ALL LONG RANGE SENSOR SCANS"
4760PRINT"     1     2     3     4     5     6     7     8"
4770PRINT"   ----- ----- ----- ----- ----- ----- ----- -----"
4780FOR I=1TO8
4795 PRINT I;TAB(5);Z(I,1);TAB(11);Z(I,2);TAB(17);Z(I,3);TAB(23);Z(I,4);
4796 PRINT TAB(29);Z(I,5);TAB(35);Z(I,6);TAB(41);Z(I,7);TAB(47);Z(I,8)
4800PRINT"   ----- ----- ----- ----- ----- ----- ----- -----"
4810NEXT I
4820GOTO 1270
4821REM *** STATUS REPORT CODE BEGINS HERE
4830PRINT "   STATUS REPORT"
4840 PRINT "NUMBER OF KLINGONS LEFT =";K9
4850 V5=(INT(((T0+T9)-T)*10))/10
4851PRINT "NUMBER OF STARDATES LEFT =";V5
4860 PRINT "NUMBER OF STARBASES LEFT =";B9
4870GOTO 3560
4880PRINT\H8=0
4881REM *** PHOTON TORPEDO DATA CODE BEGINS HERE
4900FOR I=1TO3
4910IF K(I,3)<=0 THEN 5260
4920C1=S1\A=S2\W1=K(I,1)\X=K(I,2)
4960GOTO 5010
4970 PRINT "YOU ARE AT QUADRANT ( ";Q1;",";Q2;" ) SECTOR ( ";S1;",";S2;" )"
4990 PRINT "SHIP AND TARGET COORDINATES ARE:";\INPUT C1,A,W1,X
5010X=X-A\A=C1-W1
5030IF X<0 THEN 5130
5031IF A<0 THEN 5190
5050IF X>0 THEN 5070
5051IF A=0 THEN 5150
5070C1=1
5080IF ABS(A) <= ABS(X) THEN 5110
5085V5=C1+(((ABS(A)-ABS(X))+ABS(A))/ABS(A))
5090 PRINT "DIRECTION =";V5
5100GOTO 5240
5110 PRINT "DIRECTION =";C1+(ABS(A)/ABS(X))
5120GOTO 5240
5130IF A>0 THEN 5170
5140IF X=0 THEN 5190
5150C1=5\GOTO 5080
5170C1=3\GOTO5200
5190C1=7
5200IF ABS(A)>=ABS(X) THEN 5230
5210 PRINT "DIRECTION =";C1+(((ABS(X)-ABS(A))+ABS(X))/ABS(X))
5220GOTO 5240
5230 PRINT "DIRECTION =";C1+(ABS(X)/ABS(A))
5240 PRINT "DISTANCE =";SQR(X**2+A**2)
5250IF H8=1 THEN 5320
5260NEXT I
5270H8=0
5280 PRINT "DO YOU WANT TO USE THE CALCULATOR";\INPUT A$
5300IF A$="YES" THEN 4970
5310IF A$<>"NO" THEN 5280
5320GOTO 1270
5321REM *** END OF LIBRARY COMPUTER CODE
5380R1=INT(RND(1)*8+1)\R2=INT(RND(1)*8+1)\A$="   "\Z1=R1\Z2=R2
5430GOSUB 5680
5440IF Z3=0 THEN 5380
5450RETURN
5510REM