.ENABLE SUBSTITUTION
	.SETS DA ""
	.IF P1 = "DEBUG" .SETS DA "/DA"
	.IF P1 = "DEBUG" .GOTO LINK
	.IF P1 = "LINK" .GOTO LINK
	PIP LS:MCE.LST;*/DE/NM,OB:.OBJ;*
	MAC OB:MCE,LS:MCE/-SP=RO:MCE
	.IF <EXSTAT> <> <SUCCES> .EXIT
.LINK:
	PIP TK:MCE.TSK;*/DE/NM,MP:.MAP;*
	.OPEN OB:MCE.TMP
.ENABLE DATA
TK:MCE/CP'DA',MP:MCE/-SP=OB:MCE
LB:[1,1]VMLIB/LB:INIDM:EXTSK
/
TASK=...MCE
PRI=60
EXTTSK=600
/
.DISABLE DATA
	.CLOSE
	TKB @OB:MCE.TMP
	DEL OB:MCE.TMP;*