RosettaCodeData/Task/Loops-While/BASIC256/loops-while.basic

i = 1024

while i > 0
	print i
	i = i \ 2
end while

end