SUBROUTINE DELAY (TASK)
C*****************************************
C
C   THIS ROUTINE IS USED TO SUSPEND
C   THE CALLING PROGRAM UNTIL THE
C   SPECIFIED TASK "TASK" HAS
C   TERMINATED.  A CHECK IS MADE
C   EVERY FIVE CLOCK TICKS.
C
C*****************************************
C
	INTEGER*2 TASK
	DATA IEACT,IPRI/-7,100/
C
100	CALL ALTPRI (TASK,IPRI,IDS)
	IF (IDS.EQ.IEACT) RETURN
	CALL MARK (10,5,1,IDS)
	IF (IDS.LT.0)		PAUSE 'MARK TIME ERROR'
	CALL WAITFR (10)
	GO TO 100
	END