12 lines
209 B
Text
12 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
|