Dim n As Integer
n = 1024
While n > 0
    Print n
    n = n \ 2
Wend