sep_empty_prog.mod 160 B

123456
  1. MODULE SepEmptyProg;
  2. FROM SepEmpty IMPORT Answer;
  3. VAR ExitCode : INTEGER;
  4. BEGIN
  5. IF Answer() = 42 THEN ExitCode := 42 ELSE ExitCode := 1 END
  6. END SepEmptyProg.