MODULE SigProg; VAR ExitCode : INTEGER; BEGIN ExitCode := 0 END SigProg.