SUBROUTINE MARK(EFN, TICKS, IJUNK, IDS)
      INTEGER EFN, TICKS, IJUNK, IDS
      INTEGER*4DELTA(2)
      DATA DELTA/ - 1,  - 1/
C WAIT IN 1/60THS OF SECONDS
      DELTA(1) =  - TICKS*166667
      CALL SYS$SETIMR(%VAL(EFN), DELTA, , )
      RETURN
      END
      SUBROUTINE WAITFR(EFN, IDS)
      INTEGER EFN, IDS
      CALL SYS$WAITFR(%VAL(EFN))
      RETURN
      END
      SUBROUTINE WAIT(N, ITYPE, M)
      INTEGER N, ITYPE, M
      INTEGER*4DELTA(2)
      DATA DELTA/ - 1,  - 1/
      IF (.NOT.(ITYPE .LT. 2)) GOTO 2000
C WAIT IN 1/60THS OF SECONDS
        DELTA(1) =  - N*166667
        GOTO 2010
2000  CONTINUE
C WAIT IN SECONDS
        DELTA(1) =  - N*10000000
2010  CONTINUE
      CALL SYS$SETIMR(%VAL(0), DELTA, , )
      CALL SYS$WAITFR(%VAL(0))
      RETURN
      END