SUBROUTINE HYPERC(WHO,L) C C HYPERSPACE COMMAND FOR MTREK C INCLUDE 'TRKCOMMON.FTN' REAL LAUNCH INTEGER SCAN,WHOM,CREW,HYPER,TORPS,WHO LOGICAL*1 THRU,XSHIP,CLOAK,CLON,OK,FBASE BYTE MESSAG,INITLS,CLRIT(2) DATA CLRIT/"33,'K'/ C C CALL CPOS(L) C WRITE(5,10088) HYPER(WHO,1),HYPER(WHO,2),CLRIT 10088 FORMAT(' Current hyperspace set: port = ',I1, 1 ' universe = ',I1,2A1) WRITE(5,10089) CLRIT 10089 FORMAT('$New port setting ? ',2A1) CALL GETINT(II,OK,1,6) IF (.NOT.OK) GOTO 10100 HYPER(WHO,1)=II C 10100 WRITE (5,10101) CLRIT 10101 FORMAT ('$New universe setting ? ',2A1) CALL GETINT(II,OK,1,IUNIMX) IF (.NOT.OK) GOTO 10200 HYPER(WHO,2)=II C 10200 RETURN END