.;[1,7]STOPACC		B. Z. Lederman
.;
	.ENABLE SUBSTITUTION
	.ENABLE ESCAPE
.;
.NOW:
.ASK [<TRUE>:10S] ACCDAT Do you want to summarize the data now
.IFF <ESCAPE> .GOTO NOQUES
	.DISABLE QUIET
;
;	Summarizing the data now saves the relevant information just
;  collected, and purges out old files. It will take a few minutes.
;
	.IFDF $QUIET .ENABLE QUIET
	.GOTO NOW
.NOQUES:
.IFT ACCDAT .GOTO PROCES
	STOP/ACCOUNTING SCHEDULED_SHUTDOWN
	.WAIT SYSLOG
	SRD [1,6]LASTFIL.ACC=[1,6]ACNTRN.SYS/FU
	.GOTO ENDACC
.PROCES:
	@[1,6]PROCESS
.ENDACC:
/
