SUBROUTINE HDTIM
	DATA A/0/
1	B=SECNDS(A)
	IF (B.LT.18)GOTO 1
	A=B
	RETURN
	END