MODULE QBadExit;
VAR ExitCode : INTEGER;
BEGIN
  ExitCode := 1;
  EXIT
END QBadExit.