6 lines
132 B
Text
6 lines
132 B
Text
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;
|