10 lines
108 B
Text
10 lines
108 B
Text
|
Public Sub Main()
|
||
|
|
Dim siCount As Short = 1024
|
||
|
|
|
||
|
|
While siCount > 0
|
||
|
|
Print siCount;;
|
||
|
|
siCount /= 2
|
||
|
|
Wend
|
||
|
|
|
||
|
|
End
|