16 lines
272 B
Text
16 lines
272 B
Text
/* NetRexx */
|
|
options replace format comments java crossref savelog symbols nobinary
|
|
|
|
say
|
|
say 'Loops/Continue'
|
|
|
|
nul = '\-'
|
|
loop i_ = 1 to 10
|
|
say i_.right(2) || nul
|
|
if i_ // 5 = 0 then do
|
|
say
|
|
iterate i_
|
|
end
|
|
say ', ' || nul
|
|
|
|
end i_
|