Public Sub Main()
Dim siCount As Short

Do
  If siCount > 1000 Then Break
  Inc siCount
Loop

Quit

End