SUBROUTINE MTORPS
C
C     * MOVE ALL ACTIVE TORPEDOES
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,FBASE
	BYTE MESSAG,INITLS,CHAR
	COMMON /TORPES/ XHOM(8,15),YHOM(8,15),TLOCS(8,15,3),TDIR(8,15)
C
C
	DO 10500 J=1,IUNIMX
C
	DO 10001 I=1,8
	DO 10004 K=1,15
	IF (TLOCS(I,K,3).NE.J) GOTO 10004
	IX=TLOCS(I,K,1)
	IY=TLOCS(I,K,2)
C
C     * MAKE SURE THE TORPEDO IS STILL THERE AND ACTIVE
C
	CALL UNIV(IX,IY,CHAR,J)
	IF (CHAR.NE.'+'.OR.TDIR(I,K).LT.0) GOTO 10006
	CALL MOVE(TLOCS(I,K,1),TLOCS(I,K,2),X,Y,TDIR(I,K),10.,CHAR,IMAXX,
	1  IMAXY,J)
	KX=X
	KY=Y
	IF (CHAR.EQ.'.') GOTO 10009
	CALL THIT(I,KX,KY,CHAR,TDIR(I,K),500.,J)
	CALL UNIVIN(IX,IY,'.',J)
	GOTO 10006
C
C	DIDN'T HIT ANYTHING
C
10009	CALL UNIVIN(IX,IY,'.',J)
	CALL UNIVIN(KX,KY,'+',J)
	TLOCS(I,K,1)=X
	TLOCS(I,K,2)=Y
	GO TO  10004
C
C	COULD HAVE LOST A TORPEDO -- MAKE SURE IT STAYS LOST
C
10006	TDIR(I,K)=-1.
C
10004	CONTINUE
10001	CONTINUE
C
10500	CONTINUE
C
	RETURN
	END