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