C C C ********************************* C * * C * SHIP'S COMPUTER SUBROUTINE * C * * C ********************************* C SUBROUTINE COMP(TRESUM,TNAV) COMMON/MISC2/NPROB,L5,L8,GASP,ITASK,SDATE,AFILE(4),CFILE(4),DTLSTH COMMON/CMMND/IMAGE(60),NC,TCANCL LOGICAL TRESUM,TABORT,TCANCL,TEST,TNAV LOGICAL*1 IMAGE,BLA DATA BLA/1H / C TEST=.FALSE. TNAV=.FALSE. IF(ITASK.GT.0 .AND. ITASK.LE.10)GOTO 13 IF(.NOT.TRESUM)GOTO 10 CALL CMSTAT TRESUM=.FALSE. RETURN 10 TYPE 11 11 FORMAT(/1X'*** COMPUTER ON - Task? ',$) 20 READ(5,21,ERR=10)NC,IMAGE 21 FORMAT(Q,60A1) IF(NC.GT.60)NC=60 IF(NC.EQ.0)GOTO 30 CALL CAPMSK(IMAGE,NC) TEST=.TRUE. IF(IMAGE(1).EQ.BLA .AND. IMAGE(2).EQ.BLA)GOTO 30 CALL COMMND IF(ITASK.GT.0 .AND. ITASK.LE.10)GOTO 13 IF(TCANCL .OR. ITASK.LT.0)GOTO 40 30 TYPE 31 31 FORMAT(/1X,'SHIP''S COMPUTER TASK OPTIONS:'/1X,T15,'Task',T52,'Abb &reviation'/1X,T14,6(1H-),T52,12(1H-)/ &2X'1. REPAIR LINK TO DAMAGE CONTROL +',T52,'REP'/ &2X'2. COMBAT STATUS REPORT',T52,'STA or CSR'/ &2X'3. RECONN. PROBES LAUNCH CONTROL +',T52,'REC or PRO'/ &2X'4. EMERGENCY HYPERSPACE MANEUVER +',T52,'HYP'/ &2X'5. MAP OF ASSIGNED GALACTIC PATROL QUADRANTS',T52,'GAL or MAP'/ &2X'6. TARGET CALCULATOR',T52,'TAR or CAL'/ &2X'7. SELF-DESTRUCT +',T52,'SEL'/ &2X'8. AUTO ALERT SWITCH',T52,'AUT or SWI or AAS'/ &2X'9. STARBASES STATUS REPORT',T52,'SSR or BAS'/ &1X'10. SHIP''S INTERNAL SECURITY CONTROL +',T52,'SEC'/ &2X,'+ Indicates task uses time'/) GOTO 10 13 TABORT=.FALSE. IF(TEST)GOTO 15 TYPE 51 51 FORMAT(/1X,'*** SHIP''S COMPUTER ACTIVATED ***') WRITE(3,51) 15 GOTO(1,2,3,4,5,6,7,8,9,14),ITASK 1 CALL REPAIR(TABORT) GOTO 12 2 CALL CMSTAT RETURN 3 CALL PROBE(TABORT) GOTO 12 4 CALL HYPER(TABORT) GOTO 12 5 CALL GALMAP RETURN 6 CALL CALC(TABORT,TNAV) GOTO 12 7 CALL SELFDS(TABORT) GOTO 12 8 CALL AUTOSH(TABORT) GOTO 12 9 CALL BASRPT RETURN 14 CALL SECURE(TABORT) 12 IF(.NOT.TABORT)RETURN 40 TYPE 41 41 FORMAT(1X,'*** COMMAND CANCELLED ***') RETURN END