10 lines
134 B
Text
10 lines
134 B
Text
|
dcl value fixed bin (31) init (0);
|
||
|
|
do forever;
|
||
|
|
value = value + 1;
|
||
|
|
|
||
|
|
if mod(value, 6) = 0 then
|
||
|
|
leave;
|
||
|
|
|
||
|
|
put list (value);
|
||
|
|
end;
|