include "ConsoleWindow"

dim as long i : i = 1024

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