/* 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;