RosettaCodeData/Task/Loops-Continue/PL-I/loops-continue.pli

7 lines
132 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
loop:
do i = 1 to 10;
put edit (i) (f(3));
if mod(i,5) = 0 then do; put skip; iterate loop; end;
put edit (', ') (a);
end;