RosettaCodeData/Task/Loops-While/BASIC/loops-while-2.basic
2017-09-25 22:28:19 +02:00

5 lines
50 B
Text

i = 1024
WHILE i > 0
PRINT i
i = i / 2
WEND