SUBROUTINE REPAIR(ICLK)
C
C     REPAIR DAMAGE DONE TO SHIPS, AT THE RATE OF 1% PER ICNTRL(7) SECONDS
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,FBASE
	BYTE MESSAG,INITLS,CHAR
C
C
	DO 10001 I=1,8
	IF (.NOT.XSHIP(I)) GOTO 10001
	DO 10002 J=1,8
	IF (IDAMGE(I,J).GT.0) IDAMGE(I,J)=IDAMGE(I,J)-1
10002	CONTINUE
	SCAN (I) = 10 - (IDAMGE(I,3)/10)
10001	CONTINUE
	ICLK=1
	RETURN
	END