SUBROUTINE RESET(K)
C
C     * RE-INCARNATE DESTROYED SHIPS
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,FBASE
	BYTE MESSAG,INITLS,CHAR
	COMMON /ACCUM/ ACCUME
	LOGICAL*1 ACCUME
C
	COMMON /TORPES/ XHOM(8,15),YHOM(8,15),
	1      TLOCS(8,15,3),TDIR(8,15)
C
	COMMON /STATS/SEN(8),IPHA(8),IFRGHT(8),IPODS(8),IHOM(8),ITORP(8),
	1      IMESS(8),IDEST(8),IOEN(8),GMTIM,IJMPS(8)
C
	IDEST(K)=IDEST(K)+1
	XSHIP(K)=.FALSE.
	ENERGY(K)=10000
	JMPLOC(K)=0
	WARP(K)=0.
	TORPS(K)=ICNTRL(5)
	IPOD(K)=0
	WPOD(K)=5.
	SCAN(K)=10
	NHOM(K)=ICNTRL(4)
	FBASE(K)=.FALSE.
	SHIELD(K)=0
	ITRAC(K)=0
C
	DO 10001 I=1,15
	IF (I.LE.8) IDAMGE(K,I)=0
	LHOM(K,I)=0
10001	CONTINUE
C
	IF (.NOT.ACCUME) SCORE(K)=0
	IF (ACCUME) SCORE(K)=SCORE(K)-1000
	CALL SENT(K,3)
	KX=XCORD(K)
	KY=YCORD(K)
	CALL UNIVIN(KX,KY,'.',IUNIV(K))
C
10008	IX=RAN(I1,I2)*IMAXX+1.
	IF (IX.GT.IMAXX) IX=IMAXX
	IY=RAN(I1,I2)*IMAXY+1.
	IF (IY.GT.IMAXY) IY=IMAXY
	IU=RAN(I1,I2)*IUNIMX+1.
	IF (IU.GT.IUNIMX) IU=IUNIMX
	CALL UNIV(IX,IY,CHAR,IU)
	IF (CHAR.NE.'.') GO TO 10008
	ENCODE(1,10015,CHAR) K
10015	FORMAT (I1)
	CALL UNIVIN(IX,IY,CHAR,IU)
	XCORD(K)=IX
	YCORD(K)=IY
	IUNIV(K)=IU
C
	RETURN
	END