RosettaCodeData/Task/Loops-While/Run-BASIC/loops-while.run
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

6 lines
59 B
Text

i = 1024
while i > 0
print i
i = int(i / 2)
wend
end