SUBROUTINE HOMING(WHO,L)
C
C      SHIP HOMING FUNCTION 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 (IDAMGE(WHO,5).GT.0)	WRITE (5,26000) CLRIT
26000	FORMAT (' Navigation computer damaged -- Unable to perform homing'
	1  ,2A1)
	IF (IDAMGE(WHO,5).GT.0) GOTO 25061
	IF (IHOME(WHO).GT.0) GOTO 25050
25005	WRITE (5,25010) CLRIT
25010	FORMAT ('$Which ship should be locked on to?',2A1)
	CALL GETINT (II,OK,1,8)
	IF (.NOT.OK) GOTO 25050
	IF (CLOAK(II).OR.IUNIV(WHO).NE.IUNIV(II)) GOTO 25070
	IHOME(WHO)=II
	CALL COURSE (XX,YY,INT(XCORD(IHOME(WHO))),
	1 INT(YCORD(IHOME(WHO))),EDIR,EDIS)
	IF (EDIR.LT.3) DIR(WHO) = (3.-EDIR)*30
	IF (EDIR.GE.3) DIR(WHO) = (15.-EDIR)*30
	GOTO 25061
C
25050	WRITE (5,25060) CLRIT
25060	FORMAT (' Automatic helm control disabled',2A1)
	IHOME(WHO)=0
	GOTO 25061
C
25070	WRITE (5,25071) CLRIT
25071	FORMAT (' Navigation computer unable to lock onto target',2A1)
25061	RETURN
	END