.IF P1 <> "" .GOTO PROCES
; / file [+lib] flag1 flag2 ...
;
;      c       =       c library compatibile       only if no file.bld exists
;      m       =       use small sprintf module    only "       "        "
;      d       =       debuger
;      l       =       listing
;      e       =       no edit
;      b       =       no build
;      t       =       only task build using ftb (Must include c or m)
/
.PROCES:
        .ENABLE SUBSTITUTION
	.SETS FILE P1
	.IF FILE = "" .ASKS FILE File
	
	.SETT GO
	.SETS DBG ""
	.SETS PRI ""
	.SETF FTB1
	.SETF FTB2
	.SETF LIST
	.SETT EDIT
	.SETT LINK
	.SETF BUILD
	.SETS TRCE ""
	
    .IF P2 = "TR" .SETS TRCE "/X7/X8"
    .IF P3 = "TR" .SETS TRCE "/X7/X8"
    .IF P4 = "TR" .SETS TRCE "/X7/X8"
    .IF P5 = "TR" .SETS TRCE "/X7/X8"
    .IF P6 = "TR" .SETS TRCE "/X7/X8"
    .IF P7 = "TR" .SETS TRCE "/X7/X8"
    .IF P8 = "TR" .SETS TRCE "/X7/X8"
    
    .IF P2 = "Q" .ENABLE QUIET
    .IF P3 = "Q" .ENABLE QUIET
    .IF P4 = "Q" .ENABLE QUIET
    .IF P5 = "Q" .ENABLE QUIET
    .IF P6 = "Q" .ENABLE QUIET
    .IF P7 = "Q" .ENABLE QUIET
    .IF P8 = "Q" .ENABLE QUIET
    
    .IF P2 = "T" .SETT BUILD
    .IF P3 = "T" .SETT BUILD
    .IF P4 = "T" .SETT BUILD
    .IF P5 = "T" .SETT BUILD
    .IF P6 = "T" .SETT BUILD
    .IF P7 = "T" .SETT BUILD
    .IF P8 = "T" .SETT BUILD
    
    .IF P2 = "B" .SETF LINK
    .IF P3 = "B" .SETF LINK
    .IF P4 = "B" .SETF LINK
    .IF P5 = "B" .SETF LINK
    .IF P6 = "B" .SETF LINK
    .IF P7 = "B" .SETF LINK
    .IF P8 = "B" .SETF LINK
    
    .IF P2 = "E" .SETF EDIT
    .IF P3 = "E" .SETF EDIT
    .IF P4 = "E" .SETF EDIT
    .IF P5 = "E" .SETF EDIT
    .IF P6 = "E" .SETF EDIT
    .IF P7 = "E" .SETF EDIT
    .IF P8 = "E" .SETF EDIT
    
    .IF P2 = "L" .SETT LIST
    .IF P3 = "L" .SETT LIST
    .IF P4 = "L" .SETT LIST
    .IF P5 = "L" .SETT LIST
    .IF P6 = "L" .SETT LIST
    .IF P7 = "L" .SETT LIST
    .IF P8 = "L" .SETT LIST
    
    .IF P2 = "M" .SETT FTB2
    .IF P3 = "M" .SETT FTB2
    .IF P4 = "M" .SETT FTB2
    .IF P5 = "M" .SETT FTB2
    .IF P6 = "M" .SETT FTB2
    .IF P7 = "M" .SETT FTB2
    .IF P8 = "M" .SETT FTB2
    
    .IF P2 = "C" .SETT FTB1
    .IF P3 = "C" .SETT FTB1
    .IF P4 = "C" .SETT FTB1
    .IF P5 = "C" .SETT FTB1
    .IF P6 = "C" .SETT FTB1
    .IF P7 = "C" .SETT FTB1
    .IF P8 = "C" .SETT FTB1
    
    .IF P2 = "D" .SETS DBG "/DA"
    .IF P3 = "D" .SETS DBG "/DA"
    .IF P4 = "D" .SETS DBG "/DA"
    .IF P5 = "D" .SETS DBG "/DA"
    .IF P6 = "D" .SETS DBG "/DA"
    .IF P7 = "D" .SETS DBG "/DA"
    .IF P8 = "D" .SETS DBG "/DA"

    .IF P2 = "P" .SETS PRI "/PRI=55."
    .IF P3 = "P" .SETS PRI "/PRI=55."
    .IF P4 = "P" .SETS PRI "/PRI=55."
    .IF P5 = "P" .SETS PRI "/PRI=55."
    .IF P6 = "P" .SETS PRI "/PRI=55."
    .IF P7 = "P" .SETS PRI "/PRI=55."
    .IF P8 = "P" .SETS PRI "/PRI=55."
	.IFT BUILD .GOTO BLD
	.IFT EDIT eee 'FILE'.MAC

	.SETS LIBRY ""
	.SETS SHIT P2[1:1]
	.IF SHIT = "+" .SETS LIBRY P2
	.IFF LIST INS DB:[222,7]MP'PRI'/PRM=~'FILE''TRCE'/LM/nl'LIBRY'~
	.IFT LIST INS DB:[222,7]MP'PRI'/PRM=~'FILE''TRCE'/LM'LIBRY'~
	
	.IFF LIST  MAC 'FILE'='FILE'.MPP
	.IFT LIST  MAC 'FILE','FILE'/NL/-SP/LI:TTM='FILE'.MPP

	.IFF LINK .GOTO OUT
	.TESTFILE 'FILE'.BLD
	.IF <FILERR> = 1 TKB @'FILE'.BLD
        .IF <FILERR> = 1 .GOTO OUT
.BLD:
	.IFT FTB1 ftb 'FILE''DBG',m/-sp='FILE',[1,1]PRTchdr,clib/lb
	.IFF FTB2 /
	
	ftb 'FILE''DBG',m/-sp='FILE',[222,7]MPM,MAIN/LB,[1,1]CLIB/LB
.OUT:
	/