MODULE TExit;
VAR ExitCode : INTEGER;
BEGIN
  ExitCode := 7
END TExit.