!	[ 1 , 1 ] A C C O U N T . C M D
!
!
! ****************************************
! **                                    **
! **     BIOMETRICS COMPUTER CENTER     **
! ** WEEKLY ACCOUNTING RUN COMMAND FILE **
! **                                    **
! ****************************************
!
!
!	P R I N T   A C C O U N T I N G   S U M M A R Y
!
ON WARNING CONTINUE
!
SHOW TIME
!
DIRECTORY/FREE DR0:
DIRECTORY/FREE DR1:
!
USERS EXAMINE/CONNECT ALL
USERS EXAMINE/UTILIZATION ALL
!
ON WARNING STOP
!
!
!	A R C H I V E   T H E   U S E R   P R O F I L E
!
COPY	LB:[1,100]PDSUPF.DAT	LB:[1,200]PDSUPF.DAT
!
!
!	A R C H I V E   T H E   U S E R   C O M M A N D   F I L E
!
COPY	LB:[1,1]USERS.CMD	LB:[1,200]USERS.CMD
!
!
!	C P U   U T I L I Z A T I O N
!
!USERS EXAMINE/OUTPUT:LB:[1,200]ACCOUNTS.DAT ALL
ON WARNING CONTINUE
!
!	R E S E T   A C C O U N T I N G   F I L E S
!
USERS UPDATE/ZERO ALL
!
!
!	D I S C   S T O R A G E
!
!SHOW TIME
!DIRECTORY/SUMMARY/OUTPUT:DIRECT.DR0 DR0:[*,*]
!DIRECTORY/SUMMARY/OUTPUT:DIRECT.DR1 DR1:[*,*]
!SHOW TIME
!
!COPY	DIRECT.DR0+DIRECT.DR1	LB:[1,200]DIRECTORY.DAT
!DELETE	DIRECT.*;*
!
!
!	M O N E Y . L O G   D O L L A R S
!
ON WARNING CONTINUE
COPY	LB:[1,1]MONEY.LOG	LB:[1,200]MONEY.DAT
COPY	LB:[1,1]MONEY.LOG	LB:[1,5]MONEY.LOG
ON WARNING STOP
!
!
!	P R O C E S S   C H A R G E S
!
!ACCOUNT
!
!	DO TJM ACC
!
SET DEF [1,5]
RUN [11,1]READUPF
!RUN [11,1]READDIR		! COMMENT OUT IF DONE EARLIER
RUN [11,1]ACCSUMM
RUN [11,1]ACCANAL
PR/CO:2 ACCANAL
RUN [11,1]ACCCOMBO
PR/CO:2 ACCCOMBO.DAT
MCR PIP @ACCCLEAN
!
SET DEF [1,1]
!
ON WARNING CONTINUE
!@LB:[1,1]ACCOUNT.TMP
!
!DELETE LB:[1,1]ACCOUNT.TMP;*
!
DELETE [1,1]MONEY.LOG;*
!
REN NOTICE.TXT NOTICE.DWN
REN NOTICE.UP  NOTICE.TXT
!
SHOW TIME
!
! **************************************
! **                                  **
! **            D  O  N  E            **
! **                                  **
! **************************************
!