RosettaCodeData/Task/Loops-While/True-BASIC/loops-while.basic

LET i = 1024

DO WHILE i > 0
   PRINT i
   LET i = INT(i / 2)
LOOP
END