SUBROUTINE ECOURS(WHO,L)
C
C      'COURSE' 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)
	IF (IHOME(WHO).EQ.0) GOTO 26000
	IHOME(WHO)=0
	WRITE (5,25100) CLRIT
25100	FORMAT (' Automatic helm control disengaged',2A1)
26000	IF (IDAMGE(WHO,5).GT.0) WRITE (5,26001) CLRIT
26001	FORMAT (' Navigation computer damaged - course may not ',
	1  'be accurate',2A1)
	WRITE(5,10078) CLRIT
10078	FORMAT ('$Course sir ? ',2A1)
	CALL GETREL(VALUE,OK,0.,12.)
	IF (.NOT.OK) GO TO 10079
	CALL TICKS (ISEED2)
	IVAR = IFIX(10*RAN(DFLOAT(ISEED2)))+1
	IF (IVAR.LE.IDAMGE(WHO,5).AND.IDAMGE(WHO,5).GT.0)
	1 VALUE = VALUE - (VALUE*(FLOAT(IVAR)/100))
	IF (VALUE.LT.3) GO TO 10082
	DIR(WHO)=(15.-VALUE)*30.
	GO TO  10083
10082	DIR(WHO)=(3.-VALUE)*30.
10083	CALL CPOS(L)
	WRITE(5,10085) VALUE,CLRIT
10085	FORMAT(' Heading ',F5.2,'  sir.',2A1)
10079	RETURN
	END