SUBROUTINE DELAY(ID)
C ZEITSCHLEIFE FUER PROGRAMM-VERZOEGERUNG
C	ID = 0		: [MS]
C	ID = 7777	: [MS]
C FORTRAN II
SCT,	0
S	TAD I \ID
S	DCA CT
SA,	ISZ CT
S	JMP A
	RETURN
	END