SUBROUTINE TRACTR (I,J,X,Y,KX,KY,CHAR,FLAG)
C
C      ROUTINE TO HANDLE TRACTOR BEAMS FOR MTREK
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,FBASE,US,FLAG
	BYTE MESSAG,INITLS,CHAR,SHIP,CHARA
C
C	SHIP J HAS TRACTORS ON SHIP I
C
	FLAG=.FALSE.
	IX=XCORD(I)
	IY=YCORD(I)
	ENERGY(J)=ENERGY(J) - ICNTRL(2)
	IF (ENERGY(J).GT.0) GOTO 10000
	SCORE(J)=SCORE(J)-1000
	CALL RESET(J)
	GOTO 10013
C
10000	IIX = XCORD(J)
	IIY = YCORD(J)
	CALL COURSE(X,Y,IIX,IIY,EDIRX,EDIS)
	XI=X
	YI=Y
	IF (EDIRX.LT.3) EDIR = (3.-EDIRX)*30
	IF (EDIRX.GE.3) EDIR = (15.-EDIRX)*30
	EWARP = 7 - (EDIS/10)
	IF (EWARP.LE.0) GOTO 10013
	CHARA=CHAR
	CALL MOVE(XI,YI,X,Y,EDIR,EWARP,CHAR,IMAXX,IMAXY,IUNIV(I))
	KX=X
	KY=Y
	IIX=XI
	IIY=YI
	IF (IX.EQ.KX.AND.IY.EQ.KY) CHAR = '.'
	IF (IIX.EQ.KX.AND.IIY.EQ.KY) CHAR = CHARA
10013	RETURN
	END