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

var i = integer
i = 1024
while i > 0 do
  begin
    print i;
    i = i / 2
  end
end