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