SUBROUTINE CLOK(I)
C
C      ROUTINE TO DETERMINE IF A DAMAGED SHIP SHOULD STAY CLOAKED
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS
	INTEGER GINBUF(80)
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,FBASE
	BYTE MESSAG,INITLS
C
C
	CALL TICKS (ISEED)
	IVAR = IFIX(100*RAN(DFLOAT(ISEED)))+1
	IF (IVAR.GT.IDAMGE(I,4)) GO TO 10020
	IF (CLOAK(I)) GO TO 10010
	CLOAK(I) = .TRUE.
	GO TO 10020
10010	CLOAK(I) = .FALSE.
10020	RETURN
	END