SUBROUTINE MARK(EFN, TICKS, IJUNK, IDS)
INTEGER EFN, TICKS, IJUNK, IDS
INTEGER*4 DELTA(2)
DATA DELTA/-1, -1/
 
DELTA(1) = - TICKS * 166 667		# WAIT IN 1/60THS OF SECONDS
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*4 DELTA(2)
DATA DELTA/-1, -1/
 
IF (ITYPE < 2)
  DELTA(1) = - N * 166 667		# WAIT IN 1/60THS OF SECONDS
ELSE
  DELTA(1) = - N * 10 000 000		# WAIT IN SECONDS
CALL SYS$SETIMR(%VAL(0), DELTA, ,)
CALL SYS$WAITFR(%VAL(0))
RETURN
END