PROGRAM	IDLE
C
C			I D L E
C
C		Written by Les Stockton
C		July 21, 1986
C
C
	IMPLICIT INTEGER*4 (A-Z)
C
	CHARACTER	ASCTIM*13 /'0 00:05:00.00'/
C
	INTEGER*4	BINTIM(2)
	INTEGER*4	RANGE(2)	/0,'7FFFFFFF'X/
	INTEGER*4	ISTAT
	INTEGER*4	LIB$SPAWN
	INTEGER*4	SYS$SCHDWK
	INTEGER*4	SYS$SNDOPR
	INTEGER*4	SYS$PURGWS
	INTEGER*4	SYS$BINTIM
	INTEGER*4	SYS$HIBER
	INTEGER*4	SYS$DELPRC
C
	I = 0
	DO WHILE (.TRUE.)
	I = I + 1
	PRINT *,'.'
	ISTAT = SYS$BINTIM(ASCTIM,BINTIM)
	IF (.NOT. ISTAT) CALL LIB$STOP(%VAL(ISTAT))
	ISTAT = SYS$SCHDWK(,,BINTIM,)
	IF (.NOT. ISTAT) CALL LIB$STOP(%VAL(ISTAT))
	ISTAT = SYS$PURGWS(%REF(RANGE))
	IF (.NOT. ISTAT) CALL LIB$STOP(%VAL(ISTAT))
	ISTAT = SYS$HIBER()
	IF (.NOT. ISTAT) CALL LIB$STOP(%VAL(ISTAT))
	IF (I .GE. 6) THEN ISTAT = SYS$DELPRC(,)
998	ENDDO
32500	CALL EXIT(EXIT_STATUS)
	END