mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Program-termination/Gambas/program-termination-2.gambas

12 lines
104 B
Plaintext
Raw Permalink Blame History

Public Sub Main()
Dim siCount As Short
Do
If siCount > 1000 Then Break
Inc siCount
Loop
Quit
End
Reference in New Issue View Git Blame Copy Permalink