t_lower1.mod 255 B

12345678910
  1. MODULE TLower1;
  2. (* Lower L1: relations, boolean operators, short-circuit AND/OR, NOT.
  3. Exit 0. *)
  4. VAR b, c : BOOLEAN; x, y : INTEGER;
  5. VAR ExitCode : INTEGER;
  6. BEGIN
  7. b := (x < y) AND (y > 0);
  8. c := NOT (x = y) OR (x <= y);
  9. ExitCode := 0
  10. END TLower1.