SUBROUTINE JMPHYP(WHO,L) C C SHIP HYPERSPACE JUMP COMMAND FOR PLAYER 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) IF (IDAMGE(WHO,6).GT.50) GOTO 12000 IF (IDAMGE(WHO,6).EQ.0) GOTO 10000 WRITE (5,10001) CLRIT 10001 FORMAT (' ** Damage to warp drive may be hazardous **',2A1) 10000 WRITE (5,10002) CLRIT 10002 FORMAT ('$Enter universe for jump : ',2A1) CALL GETINT(II,OK,1,IUNIMX) IF (.NOT.OK) GOTO 20000 JMPLOC(WHO)=II GOTO 20000 C 12000 WRITE (5,10003) CLRIT 10003 FORMAT (' ** Unable to perform jump due to warp drive damage **' 1 ,2A1) C 20000 RETURN END