15 lines
229 B
Text
15 lines
229 B
Text
|
/* Loops/Do-while */
|
||
|
|
do_while_demo:
|
||
|
|
procedure options(main);
|
||
|
|
declare
|
||
|
|
i fixed binary;
|
||
|
|
i = 0;
|
||
|
|
do while ('1'b);
|
||
|
|
i = i + 1;
|
||
|
|
put skip list(i);
|
||
|
|
if mod(i, 6) = 0 then
|
||
|
|
goto lab_done;
|
||
|
|
end;
|
||
|
|
lab_done:
|
||
|
|
end;
|