11 lines
209 B
Text
11 lines
209 B
Text
/* NetRexx */
|
|
options replace format comments java crossref savelog symbols nobinary
|
|
|
|
say
|
|
say 'Loops/While'
|
|
|
|
x_ = 1024
|
|
loop while x_ > 0
|
|
say x_.right(6)
|
|
x_ = x_ % 2 -- integer division
|
|
end
|