.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.SETS UIC <UIC>
	.SETS N "5"
	.SETS FCS ""
	.IFNDF $20KEX .ASK $20KEX DO YOU HAVE 20K EXEC SUPPORT
	.IFT $20KEX .SETF $RESLB
	.IFT $20KEX .GOTO 10
	.IFNDF $RESLB .ASK $RESLB DO YOU WISH TO BUILD IND WITH AN FCS RESIDENT LIBRARY
	.IFT $RESLB .SETS N "4"
.10:	.IFT $RESLB .SETS FCS "FCS"
	.IFDF $ASM .GOTO START
	.ASK $ASM ASSEMBLE
.START:	.IFF $ASM .GOTO START2
	PIP IND.OLB;*/DE/NM
	PIP =[1,24]IND.OLB
	.SETS A$ "INDFIL"
	.GOSUB ASMMCR
	.SETS A$ "INDERR"
	.GOSUB ASMMCR
	.SETS  A$ "INDIMP""
	.GOSUB ASMMCR
	.SETS A$ "INDINX"
	.GOSUB ASMMCR
	.SETS A$ "INDPDW"
	.GOSUB ASMMCR
	.SETS A$ "INDROT"
	.GOSUB ASMMCR
	.SETS A$ "MGCML"
	.GOSUB ASMMCR
	.SETS A$ "INDSU1"
	.GOSUB ASMMCR
	.SETS A$ "INDSU2"
	.GOSUB ASMMCR
	.SETS A$ "INDOPN"
	.GOSUB ASMMCR
.START2:.IFDF $TKB .GOTO START3
	.ASK $TKB TASKBUILD
.START3:.IFF $TKB .GOTO EXIT
	PIP IND.TSK;*/DE/NM
	.OPEN IND'FCS'BLD.CMD;1
	.ENABLE DATA
IND.TSK;1/PR:'N'/MM/FU/CP/-FP=IND'FCS'BLD/MP
GBLDEF=WPRI:12
PRI=65
STACK=128
UNITS=8
ASG=TI:1
ASG=SY:4:5:6:7:8
PAR=GEN
GBLREF=$C5TA
GBLREF=$CAT5
.DISABLE DATA
.IFT $RESLB .DATA LIBR=FCSRES:RO:6
.ENABLE DATA
EXTTSK=1500
TASK=...AT.
.DISABLE DATA
.DATA /
	.CLOSE
	TKB @IND'FCS'BLD
;	PIP IND'FCS'BLD.CMD;1/DE/NM
.END:	.EXIT
 
.ASMMCR:
	.TESTFILE [12,10]'A$'.VGN
	.IF <FILERR> NE 1 ; FILE [12,10]'A$'.VGN IS MISSING, EXITING
	.IF <FILERR> NE 1 .EXIT
	SLP @'A$'.SLP
MAC 'A$';1=LB:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,SY:'<UIC>''A$'
	PIP 'A$'.MAC;2/DE/NM
	LBR IND/RP='A$'
	PIP 'A$'.OBJ;*/DE/NM
	.RETURN