	SUBROUTINE DELAY(X,LUN,A)
C	DELAYS PROGRAM X SECONDS
C	IF X IS NEGATIVE OR ZERO, GETS A READ FROM THE USER
	LOGICAL*1 A
	IF(X.LE.0.001) GOTO 5
	T=SECNDS(0.0)
	IF(SECNDS(T).GT.1.) T=T+86400.
1	IF(SECNDS(T).GT.X) GOTO 2
	GOTO 1
2	RETURN
5	WRITE(LUN,3)
3	FORMAT(' <CR>',$)
	READ(LUN,4) A
4	FORMAT(A1)
	GOTO 2
	END
