M2compiler-V3/compiler/tests/t_repeat.mod

MODULE TRepeat;
VAR ExitCode, i, s : INTEGER;
BEGIN
  s := 0; i := 1;
  REPEAT s := s + i; i := i + 1 UNTIL i > 10;
  ExitCode := s
END TRepeat.