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

11 lines
85 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
window 1
long i = 1024
while i > 0
print i
i = int( i / 2 )
wend
HandleEvents