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

13 lines
119 B
Text

i = 1024
WHILE i > 0
PRINT i
i = INT(i / 2)
WEND
PRINT
i = 1024
DO WHILE i > 0
PRINT i
i = i \ 2
LOOP
END