	PROGRAM AVAIL
	EXTERNAL CRTN
	INTEGER*2 AREA(4)
	COMMON IDONE,ICTR,IMAX
	IMAX=1
    1	ICTR=0
	IDONE=0
	CALL ITIMER(0,0,5,0,AREA,1,CRTN)
   10	CONTINUE
	DO 11 I=1,50
   11	CONTINUE
	ICTR=ICTR+1
	IF(IDONE.EQ.0) GO TO 10
	IF(ICTR.GT.IMAX) IMAX=ICTR
	A=ICTR
	B=IMAX
	IPER=A/B*100.+0.5
	TYPE 1001,IPER,ICTR,IMAX
 1001	FORMAT('+',I5,'% AVAILABILITY.   ',I5,'/',I5)
	GO TO 1
   99	STOP
	END
	SUBROUTINE CRTN(ID)
	COMMON IDONE,ICTR,IMAX
	IDONE=1
	RETURN
	END
