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

6 lines
94 B
Text

100 LET I = 1024
110 DO WHILE I > 0
120 PRINT I
130 LET I = INT(I / 2)
140 LOOP
150 END