RosettaCodeData/Task/Loops-While/FutureBasic/loops-while.futurebasic

include "ConsoleWindow"

dim as long i : i = 1024

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