11 lines
89 B
Text
11 lines
89 B
Text
|
' FB 1.05.0 Win64
|
||
|
|
|
||
|
|
Dim i As Integer = 1024
|
||
|
|
|
||
|
|
While i > 0
|
||
|
|
Print i
|
||
|
|
i Shr= 1
|
||
|
|
Wend
|
||
|
|
|
||
|
|
Sleep
|