.IF P1 <> "" .GOTO PROCES
; / file [+lib] flag1 flag2 ...
;
; c = c library compat
; m = use small sprintf module
; big = use bigmp
; d = debuger
; l = Listing
; e = no edit
; b = no build
; q = echo
; t = just ftb (Must include c or m)
/
.PROCES:
        .ENABLE SUBSTITUTION
        .ENABLE QUIET
	.SETT QUIETT
	.SETS FILE P1
	.SETS NB ""
	.IF FILE = "" .ASKS FILE File
	
	.SETT GO
	.SETS DBG ""
	.SETS PRI ""
	.SETF FTB1
	.SETF FTB2
	.SETF LT
	.SETT EDIT
	.SETT LINK
	.SETF BUILD
	.SETS TRCE ""
	.SETS BIG ""
	.SETS NEW ""
	
    .IF P2 = "NEW" .SETS NEW "VD2:"
    .IF P3 = "NEW" .SETS NEW "VD2:"
    .IF P4 = "NEW" .SETS NEW "VD2:"
    .IF P5 = "NEW" .SETS NEW "VD2:"
    .IF P6 = "NEW" .SETS NEW "VD2:"
    .IF P7 = "NEW" .SETS NEW "VD2:"
    .IF P8 = "NEW" .SETS NEW "VD2:"
    
    .IF P2 = "BIG" .SETS BIG "BIG"
    .IF P3 = "BIG" .SETS BIG "BIG"
    .IF P4 = "BIG" .SETS BIG "BIG"
    .IF P5 = "BIG" .SETS BIG "BIG"
    .IF P6 = "BIG" .SETS BIG "BIG"
    .IF P7 = "BIG" .SETS BIG "BIG"
    .IF P8 = "BIG" .SETS BIG "BIG"
    
    .IF P2 = "TR" .SETS TRCE "/X7"
    .IF P3 = "TR" .SETS TRCE "/X7"
    .IF P4 = "TR" .SETS TRCE "/X7"
    .IF P5 = "TR" .SETS TRCE "/X7"
    .IF P6 = "TR" .SETS TRCE "/X7"
    .IF P7 = "TR" .SETS TRCE "/X7"
    .IF P8 = "TR" .SETS TRCE "/X7"
    
    .IF P2 = "TRODT" .SETS TRCE "/X7/X8"
    .IF P3 = "TRODT" .SETS TRCE "/X7/X8"
    .IF P4 = "TRODT" .SETS TRCE "/X7/X8"
    .IF P5 = "TRODT" .SETS TRCE "/X7/X8"
    .IF P6 = "TRODT" .SETS TRCE "/X7/X8"
    .IF P7 = "TRODT" .SETS TRCE "/X7/X8"
    .IF P8 = "TRODT" .SETS TRCE "/X7/X8"

    .IF P2 = "Q" .SETF QUIETT
    .IF P3 = "Q" .SETF QUIETT
    .IF P4 = "Q" .SETF QUIETT
    .IF P5 = "Q" .SETF QUIETT
    .IF P6 = "Q" .SETF QUIETT
    .IF P7 = "Q" .SETF QUIETT
    .IF P8 = "Q" .SETF QUIETT
    
.IFT QUIETT .SETS NB "/NB"
.IFF QUIETT .DISABLE 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 LT
    .IF P3 = "L" .SETT LT
    .IF P4 = "L" .SETT LT
    .IF P5 = "L" .SETT LT
    .IF P6 = "L" .SETT LT
    .IF P7 = "L" .SETT LT
    .IF P8 = "L" .SETT LT
    
    .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 e 'FILE'.MAC

	.SETS LBY ""
	.SETS SHIT P2[1:1]
	.IF SHIT = "+" .SETS LBY P2
.SETS BIG NEW+BIG
.IFF LT INS DB:[222,7]'BIG'MP'PRI'/PRM=~NR:'FILE'='FILE''NB''TRCE''DBG'/LM/nl'LBY'~
.IFT LT INS DB:[222,7]'BIG'MP'PRI'/PRM=~NR:'FILE'='FILE''NB''TRCE''DBG'/LM'LBY'~
	
	.IFF LT  MAC 'FILE'=NR:'FILE'.MPP
	.IFT LT  MAC 'FILE','FILE'/NL/-SP/LI:TTM=NR:'FILE'.MPP
	 PIP NR:'FILE'.MPP/PU/NM

	.IFF LINK .GOTO OUT
	.TESTFILE 'FILE'.FTB
	.IF <FILERR> = 1 FTB @'FILE'.FTB
        .IF <FILERR> = 1 .GOTO OUT

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