CocoR/Test2/tests/q_full.LST

Listing:

    1  MODULE QFull;
    2  CONST Limit = 20;
    3  VAR k, n, s : INTEGER; ExitCode : INTEGER;
    4  BEGIN
    5    n := 0; s := 0;
    6    FOR k := 1 TO 10 DO s := s + k END;
    7    n := s MOD Limit;
    8    WHILE n < 0 DO n := n + 1 END;
    9    REPEAT n := n + 1 UNTIL n >= 17;
   10    LOOP IF n > 100 THEN EXIT END; n := n + 1; IF n >= 19 THEN EXIT END END;
   11    CASE n OF
   12      19 : ExitCode := s + n
   13    ELSE ExitCode := 0
   14    END
   15  END QFull.

    0 errors