11 lines
104 B
Text
11 lines
104 B
Text
Public Sub Main()
|
|
Dim siCount As Short
|
|
|
|
Do
|
|
If siCount > 1000 Then Break
|
|
Inc siCount
|
|
Loop
|
|
|
|
Quit
|
|
|
|
End
|