14 lines
255 B
Text
14 lines
255 B
Text
/* Loops/Do-while */
|
|
do_while_demo:
|
|
procedure options(main);
|
|
declare
|
|
i fixed binary;
|
|
i = 0;
|
|
/* first iteration - before the loop */
|
|
i = i + 1;
|
|
put skip list(i);
|
|
do while (mod(i, 6) ~= 0);
|
|
i = i + 1;
|
|
put skip list(i);
|
|
end;
|
|
end;
|