SUBROUTINE SLEEP(TIME)
	REAL*4 TIME
	INTEGER TIMEX(2)
	TIME=ABS(TIME)
	IF(TIME.GT.300) THEN
	TYPE *,'ILLEGAL ARGUMENT FOR SLEEP >300 SECS.'
	RETURN
	ENDIF
	  TIMEX(2)=-1
	  TIMEX(1)=-10000000*TIME
	  J=SYS$SCHDWK(,,TIMEX,TIMEX)
	  CALL SYS$HIBER
	  CALL SYS$CANWAK(,,)
	RETURN
	END