.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.SETS UIC <UIC>
	.SETS LI ""
	.IFNDF $RESLB .ASK $RESLB BUILD ACNT WITH AN FCS RESIDENT LIBRARY
	.IFT $RESLB .SETS FCS "FCS"
	.IFF $RESLB .SETS FCS "BLD"
	.IFDF $ASM .GOTO START
	.SETF $LIST
	.IFNDF $TKB .SETF $TKB
	.IFNDF $ASM .SETF $ASM
	.SETF $TKB
	.ASK $ASM ASSEMBLE
	.IFT $ASM .ASK $LIST LIST
	.IFT $LIST .SETS LI ",TI:"
.START:	.IFT $ASM PIP ACNT.OBJ;*/DE/NM
	.IFT $ASM .TESTFILE [15,10]ACNT.VGN
	.IFT $ASM .IF <FILERR> NE 1 ; ACNT.VGN IS MISSING ON [15,10]
	.IFT $ASM .IF <FILERR> NE 1 ; EXITING
	.IFT $ASM .IF <FILERR> NE 1 .EXIT
	.IFT $ASM SLP @ACNT.SLP
	.IFT $ASM .OPEN ACNTASM.CMD;1
	.IFT $ASM .DATA ACNT'LI'=LB0:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,-
	.IFT $ASM .DATA SY:'UIC'ACNT
	.IFT $ASM .CLOSE
	.IFT $ASM MAC @ACNTASM
	.IFT $ASM PIP ACNTASM.CMD;1/DE,ACNT.MAC;2
	.IFT $TKB .GOTO START2
	.ASK $TKB TASKBUILD
.START2: .IFF $TKB .EXIT
.START2: PIP ACNT.TSK;*/DE/NM
	 .OPEN ACNT'FCS'.CMD;1
.ENABLE DATA
ACNT/-FP/MM/PR:4=ACNT'FCS'/MP
TASK=ACNT
EXTTSK=1024
PAR=GEN
UNITS=4
ASG=TI:1
ASG=SY:2
ASG=SY:3
.DISABLE DATA
.IFT $RESLB .DATA LIBR=FCSRES:RO:6
.ENABLE DATA
GBLDEF=N$MLIN:64  ;OCTAL NUMBER OF LINES PER PRINTED PAGE
GBLDEF=W$KLUN:4	 ;WORKFILE LUN
GBLDEF=N$MPAG:20 ;FAST PAGE SEARCH PAGE COUNT
GBLDEF=W$KEXT:24 ;WORK FILE EXTENSION SIZE (BLOCKS)
GBLDEF=ENCRPT:0  ;ADDRESS OF PASSWORD ENCRPTION SUB (0=NOT USED)
GBLDEF=T$KINC:256;TASK INCREMENT SIZE
GBLDEF=T$KMAX:0  ;TASK MAX SIZE
.DISABLE DATA
	 .DATA /
	.CLOSE
	 TKB @ACNT'FCS'
;	PIP ACNT'FCS'.CMD;1/DE
.FINIT:	;EOF ACNT
	TCF 7