RosettaCodeData/Task/Loops-While/BaCon/loops-while.bacon

6 lines
50 B
Plaintext

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