SUBROUTINE COMPUT
C**  COMPUT IS THE COMPUTER REQUEST INFO
        COMMON /GENDTA/SDATE,COND(2),KLING,TMLEFT,ITORP,ENERGY,SHELDS
        COMMON /QUAD/IQAD(8,8),IQX,IQY
       COMMON /GALAX/IGALX(8,8)
        COMMON /DAMAGS/IRPARS(10,2),IRAND,IRATE,IDMGD,TSTRT,GTIME
        IFLAG = 0
        IF(IRPARS(1,1) .LE. 0)GO TO 50
        TYPE *,'**DAMAGE TO THE COMPUTER PREVENTS PROPER FUNCTIONING**'
        TYPE *,'  ONLY BASIC MATH FUNCTIONS (OPTION 3) OPERATIONAL'
        IFLAG = 1
 50     TYPE 1001
 1001   FORMAT($,' FUNCTION? ')
        ACCEPT *,IFUNCT
        IF(IFUNCT .EQ. 99)GO TO 999
        IF(IFLAG .EQ. 1 .AND. IFUNCT .NE. 3 )GO TO 50
        GO TO (90,110,100,120,130,140)IFUNCT+1
        TYPE *,'  FUNCTIONS AVAILABLE'
        TYPE *,'     0 = GALACTIC RECORD'
        TYPE *,'     1 = TORPEDO DATA'
        TYPE *,'     2 = STATUS REPORT'
        TYPE *,'     3 = CALCULATOR'
        TYPE *,'     4 = DAMAGE REPORT'
        TYPE *,'     5 = DISTANCE + DIRECTION TO NEAREST BASE'
        GO TO 50
 90     TYPE *,'  TOTAL GALACTIC RECORD'
        TYPE 1004,IQX,IQY
 1004   FORMAT(6X,'ENTERPRISE IN QUADRANT ('I3,',',I3,')')
C** USEFUL DEBUGGING TOOL; DROP THE QUADRANTS AS LOADED.
C** REPORT TAKEN OUT TO HIDE THE KLINGONS FROM THE PLAYER
C** UNTIL THEY APPEAR ON THE SCANS OR THE QUADRANT IS
C** ENTERED IN THE COURSE OF PLAY.
C**     TYPE 1002
 1002   FORMAT(5X,' -- 1 -- 2 -- 3 -- 4 -- 5 -- 6 -- 7 -- 8 --')
C**     DO 95 I=1,8
C**     TYPE 1003,I,IQAD(1,I),IQAD(2,I),IQAD(3,I),IQAD(4,I),IQAD(5,I),
C**  *  IQAD(6,I),IQAD(7,I),IQAD(8,I),I
 1003   FORMAT(5X,I1,':',8(I4,1X),':',I1)
C95     CONTINUE
C**     TYPE 1002
        TYPE 1002
        DO 195 I=1,8
        TYPE 1003,I,IGALX(1,I),IGALX(2,I),IGALX(3,I),IGALX(4,I),
     *  IGALX(5,I),IGALX(6,I),IGALX(7,I),IGALX(8,I),I
 195    CONTINUE
        TYPE 1002
       GO TO 999
C** TORPEDO DATA
 110    CALL TDATA
       GO TO 999
 120   CALL MATH
       GO TO 999
 100   CALL STATUS
       GO TO 999
C** DAMAGE REPORT
 130   CALL DAMGER
       GO TO 999
C** NEAREST BASE
 140   CALL LBASE
 999    RETURN
        END