11 lines
121 B
Text
11 lines
121 B
Text
Public Sub Main()
|
|
Dim siCount As Short
|
|
|
|
LOOPIT:
|
|
|
|
Print siCount;;
|
|
Inc siCount
|
|
If siCount > 100 Then Quit
|
|
Goto LoopIt
|
|
|
|
End
|