Initial data commit

Task/Call-a-function/Gambas/call-a-function.gambas

@@ -0,0 +1,25 @@
+Public Sub Main()
+
+Hello
+Print CopyIt("Hello ", 6)
+Print CopyIt("Hello ", 3, "!!")
+
+End
+'_____________________________________________________________________________________
+Public Sub CopyIt(sString As String, siNo As Short, Optional sEnd As String) As String
+Dim siCount As Short
+Dim sNewString As String
+
+For siCount = 1 To siNo
+  sNewString &= sString
+Next
+
+Return Trim(sNewString) & sEnd
+
+End
+'_____________________________________________________________________________________
+Public Sub Hello()
+
+Print "Hello world!"
+
+End