@*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 @= @!int history; @ We must initialize this variable at the very beginning. @= history=spotless; @ At the end of the job we may want to print out the 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; }