Public Sub Main()
Dim siCount As Short

LOOPIT:

Print siCount;;
Inc siCount
If siCount > 100 Then Quit
Goto LoopIt

End