.;STOPACC
.;
	.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 just the relevant information just
;  collected, and purges out old files. It should take less than 2 minutes.
;
	.IFDF $QUIET .ENABLE QUIET
	.GOTO NOW
.NOQUES:
.IFT ACCDAT .GOTO PROCES
	STOP/ACCOUNTING SCHEDULED_SHUTDOWN
	.WAIT SYSLOG
	.GOTO ENDACC
.PROCES:
	@[1,6]SYSACT
.ENDACC:
/
