High-Level Screen Management Intrinsic Library Reference Manual (32424-90002)

C-: 31
$TITLE ' Main Program'$
{
*****************************************************************
* *
* Main Program *
* *
*****************************************************************
}
BEGIN
STOP_NOW := FALSE;
DONE_WITH_TXNS := FALSE;
NBR_TXNS_COLLECTED := 0;
SETUP_FOR_WORK;
WHILE NOT STOP_NOW
AND NOT DONE_WITH_TXNS DO
COLLECT_TRANSACTIONS;
CLEANUP_AFTER_WORK;
WRITELN ('Deduction transactions collected this session = ',
NBR_TXNS_COLLECTED);
IF STOP_NOW THEN
DISPLAY_SYSTEM_ERROR;
END. { Main Program }"