SUBROUTINE WARPC(WHO,L)
C
C      WARP 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
10070	CALL CPOS(L)
	IF (IDAMGE(WHO,6).GT.50) WRITE (5,15000) CLRIT
15000	FORMAT (' Warp drive damaged -- maximum impulse velocity = .2'
	1  ,2A1)
	WRITE(5,10071) CLRIT
10071	FORMAT('$Warp factor sir ? ',2A1)
	CALL GETREL(VALUE,OK,0.,8.)
	IF (.NOT.OK) GO TO 10072
	IF (IDAMGE(WHO,6).GT.50.AND.VALUE.GT..2) GO TO 10070
	WARP(WHO)=VALUE
	CALL CPOS(L)
	WRITE(5,10075) WARP(WHO),CLRIT
10075	FORMAT(' Warp factor ',F5.2,' sir.',2A1)
10072	RETURN
	END