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

11 lines
85 B
Plaintext

window 1
long i = 1024
while i > 0
print i
i = int( i / 2 )
wend
HandleEvents