CocoR/Test2/tests/q_full.mod

MODULE QFull;
CONST Limit = 20;
VAR k, n, s : INTEGER; ExitCode : INTEGER;
BEGIN
  n := 0; s := 0;
  FOR k := 1 TO 10 DO s := s + k END;
  n := s MOD Limit;
  WHILE n < 0 DO n := n + 1 END;
  REPEAT n := n + 1 UNTIL n >= 17;
  LOOP IF n > 100 THEN EXIT END; n := n + 1; IF n >= 19 THEN EXIT END END;
  CASE n OF
    19 : ExitCode := s + n
  ELSE ExitCode := 0
  END
END QFull.