COMMON ICHAR(7)
	CALL CLOCK(0,100)
 1	DO 10 I=1,12
	ICHAR(1)=I
	CALL RADC
	CALL TIME(T1)
  99	CALL TIME(T2)
	IF((T2-T1).LT.0.1)GO TO 99
C	WRITE(4,999)I
C 999	FORMAT(1X,I2)
 10	CONTINUE
	GO TO 1
	END