MODULE TBadDup;
VAR ExitCode, ExitCode : INTEGER;
BEGIN
  ExitCode := 1
END TBadDup.