@*Job history.
 We introduce a history variable that allows us to set a
return code if the operating system and the local \PASCAL\
compiler allow it.  First we introduce the coded values for
the history.

@d spotless = 0
@d troublesome = 1
@d fatal = 2

@<Globals in ...@>=
@!int history;


@ We must initialize this variable at the very beginning.

@<Set initial values@>=
history=spotless;
@ At the end of the job we may want to print out the history.
@<Print the job |history|...@>=
switch ( history) {
case spotless: if (verbose) print_ln("(No errors were found.)"); break;
case troublesome: print_ln("(Pardon me, but I think I spotted something wrong.)"); break;
case fatal: print_ln("(That was a fatal error, my friend.)"); break;
}
