SUBROUTINE WAIT(MILSECS)
C Routine to wait the requested number of milliseconds
	IMPLICIT REAL*8 (A-Z)
	INCLUDE 'ARRAYS.INC/NOLIST'
	INTEGER*4 MILSECS
	INTEGER*4 ISTAT,SYS$SETIMR,SYS$WAITFR,TIME(2)
	DATA TIME(2) / -1 /
C
	TIME(1) = -10000*MILSECS
	ISTAT = SYS$SETIMR(%VAL(EFN_KILLEDTIMR),TIME,,
     1		%VAL(EFN_KILLEDTIMR))
	ISTAT = SYS$WAITFR(%VAL(EFN_KILLEDTIMR))
	RETURN
	END