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