6 lines
69 B
Text
6 lines
69 B
Text
Dim n As Integer
|
|
n = 1024
|
|
While n > 0
|
|
Print n
|
|
n = n \ 2
|
|
Wend
|