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