Public Sub Main()
Dim siCount As Short
LOOPIT:
Print siCount;;
Inc siCount
If siCount > 100 Then Quit
Goto LoopIt
End