SUBROUTINE TRACTR(WHO,L)
C
C      SHIP TRACTOR BEAM 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 (DOCKED(WHO)) GOTO 24000
	IF (ITRAC(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)) GOTO 25070
	IF (IUNIV(WHO).NE.IUNIV(II)) GOTO 25070
	ITRAC(WHO)=II
	GOTO 25061
C
25050	WRITE (5,25060) CLRIT
25060	FORMAT (' Tractor beams disabled',2A1)
	ITRAC(WHO)=0
	GOTO 25061
C
25070	WRITE (5,25071) CLRIT
25071	FORMAT (' Computer unable to lock onto target',2A1)
	GOTO 25061
C
24000	WRITE (5,24001) CLRIT
24001	FORMAT (' Cannot user tractor beams while docked',2A1)
25061	RETURN
	END