.TITLE	DLERPL
/
/  20 JUL 77 - PAUL HENDERSON
/
/  ROUTINE INVOKED FROM SUBROUTINE 'PULSE' TO DELETE THE
/  REPLAY FILE AFTER IT HAS BEEN USED
/
	.DEC
DK=9
	.OCT
/
	.GLOBL	.IOERR
/
DLERPL	CAL	DELETE
	CAL	WAITFR
	LAC	EVDK
	SPA
	JMS*	.IOERR		/ COMPLAIB IF STRANGE ERROR
	CAL	(10		/ OTHERWISE JUST EXIT QUIETLY
/
DELETE	3500;	EVDK;	DK; .SIXBT 'PULSE@RPL'
WAITFR	20;	EVDK
EVDK
	.END	DLERPL