SUBROUTINE WAIT(NSECS)                                            !$VAX$
C
C     HIBERNATE FOR THE SPECIFIED NUMBER OF SECONDS
C     (NOT EXCEEDING 200 SECONDS)
C     1981-DEC-17 -- JWB -- REVISION 0
C
C     INPUT:  NSECS - NUMBER OF SECONDS BETWEEN ZERO AND 200
C 
      INTEGER NSECS
      INTEGER WTIME(2)
C
      INSECS = MIN(200,MAX(0,NSECS))
      WTIME(1) = -10000000*INSECS
      WTIME(2) = -1
      ISTAT = SYS$SCHDWK(,,WTIME,) ! SCHEDULE A WAKEUP IN NSECS SECONDS
      ISTAT = SYS$HIBER()          ! HIBERNATE FOR NSECS SECONDS
      RETURN
      END