	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
	.SETS LI ""
	.SETS MP ""
	.IFDF $ASM .GOTO START
	.SETF $MAP
	.SETF $LIST
	.IFNDF $TKB .SETF $TKB
	.IFNDF $ASM .SETF $ASM
	.ASK $ASM ASSEMBLE
	.IFT $ASM .ASK $LIST LISTASK $LIST LIST
	.IFT $LIST .SETS LI ",TI:"
.START:	.IFT $ASM .OPEN MAILASM.CMD;1
	.IFT $ASM .DATA MAIL'LI'=PREMAL.MAC,MAIL.MAC
	.IFT $ASM .DATA ERRSUB'LI'=PREMAL.MAC,ERRSUB
	.IFT $ASM .CLOSE
	.IFT $ASM MAC @MAILASM
	.IFT $ASM PIP MAILASM.CMD;1/DE
	.IFT $TKB .GOTO START2
	.ASK $TKB TASKBUILD
	.IFT $TKB .ASK $MAP MAP
	.IFT $MAP .SETS MP ",TI:"
.START2:.IFT $TKB PIP MAIL.TSK;*/DE
	.IFT $TKB .OPEN MAILBLD.CMD;1
	.IFT $TKB .DATA MAIL/PR:0/MM/CP'MP'=MAIL,ERRSUB
	.IFT $TKB .DATA MCR/LB:ACTFIL
	.IFT $TKB .DATA MCR/LB
	.IFT $TKB .DATA /
	.IFT $TKB .DATA PAR=GEN:0:40000
	.IFT $TKB .DATA ACTFIL=1
	.IFT $TKB .DATA PRI=55
	.IFT $TKB .DATA TASK=...MAI
	.IFT $TKB .DATA /
	.IFT $TKB .CLOSE
	.IFT $TKB TKB @MAILBLD
	.IFT $ASM PIP MAILBLD.CMD;1/DE,MAIL.OBJ;*,ERRSUB.OBJ;*
.END:	; EOF MAIL
