	.ENABLE SUBSTITUTION
	.IFACT MFLUSH	ABORT MFLUSH
	.IFACT MAILER	ABORT MAILER
	.IFACT DELIVR	ABORT DELIVR
	.IFINS MFLUSH	REMOVE MFLUSH
	.IFINS MAILER	REMOVE MAILER
	.IFINS DELIVR	REMOVE DELIVR
	.IFINS TTYNOT	REMOVE TTYNOT
	.IFINS MTP$$$	REMOVE MTP$$$
.;	.IFINS VMSMAI	REMOVE VMSMAI
	.SETS VERB "MFLUSH"
	.GOSUB SEARCH
	INSTALL 'IMAGE'/TASK=MFLUSH/PRI=45./UIC=[10,1]
	.SETS VERB "MAILER"
	.GOSUB SEARCH
	INSTALL 'IMAGE'/TASK=MAILER/PRI=75./UIC=[10,1]
	.SETS VERB "DELIVR"
	.GOSUB SEARCH
	INSTALL 'IMAGE'/TASK=DELIVR/PRI=45./UIC=[10,1]
	.SETS VERB "TTYNOT"
	.GOSUB SEARCH
	INSTALL 'IMAGE'/TASK=TTYNOT/PRI=75./UIC=[10,1]
	.SETS VERB "DMTPRX"
	.GOSUB SEARCH
	INSTALL 'IMAGE'/TASK=MTP$$$/PRI=75./UIC=[10,1]
.;	.SETS VERB "VMSTOMSG"
.;	.GOSUB SEARCH
.;	INSTALL 'IMAGE'/TASK=VMSMAI/PRI=75./UIC=[10,1]
	PIP ST1:[105,5]*.LCK;*/DE/NM
	PIP ST1:[105,5]SRT.DAT/NV/RE=ST1:[105,5]SRETRY.*;*
	PIP ST1:[105,5]SRETRY.SAV;*/RE=ST1:[105,5]SRT.DAT;*
	PIP ST1:[105,5]FRT.DAT/NV/RE=ST1:[105,5]FRETRY.*;*
	PIP ST1:[105,5]FRETRY.SAV;*/RE=ST1:[105,5]FRT.DAT;*
.;	PIP ST1:[105,5]VRT.DAT/NV/RE=ST1:[105,5]VRETRY.*;*
.;	PIP ST1:[105,5]VRETRY.SAV;*/RE=ST1:[105,5]VRT.DAT;*
	PIP ST1:[105,5]MRT.DAT/NV/RE=ST1:[105,5]MRETURN.*;*
	PIP ST1:[105,5]MRETURN.SAV;*/RE=ST1:[105,5]MRT.DAT;*
	PIP ST1:[105,5]DRT.DAT/NV/RE=ST1:[105,5]DRETURN.*;*
	PIP ST1:[105,5]DRETURN.SAV;*/RE=ST1:[105,5]DRT.DAT;*
	RUN DELIVR
	RUN MAILER
	RUN MFLUSH
	.WAIT	DELIVR
	.EXIT
.SEARCH:
	.SETS IMAGE "SY:"+<UIC>+VERB+".TSK"
	.TESTFILE 'IMAGE'
	.IF <FILERR> = 1 .RETURN
	.SETS IMAGE "ST0:[105,2]"+VERB+".TSK"
	.TESTFILE 'IMAGE'
	.IF <FILERR> = 1 .RETURN
	.SETS IMAGE "ST0:[105,1]"+VERB+".TSK"
	.RETURN
