RosettaCodeData/Task/Loops-While/XBasic/loops-while.basic
2023-07-01 13:44:08 -04:00

5 lines
56 B
Text

i% = 1024
DO WHILE i% > 0
PRINT i%
i% = i% / 2
LOOP