RosettaCodeData/Task/Loops-While/FutureBasic/loops-while.futurebasic
2016-12-05 23:44:36 +01:00

8 lines
93 B
Text

include "ConsoleWindow"
dim as long i : i = 1024
while i > 0
print i
i = int( i / 2 )
wend