WinTask - Replicate$

'
' Replicate$(<string>,<count>)
'

' Author: Joe Strazzere

'
' Returns a string <string> repeated <count> times.
'

Function Replicate$(basestr$, count)
    Local i
    Local work$
    i=0
    work$=""
    If count > 0 then
        While i < count
            work$=work$+basestr$
            i=i+1
        Wend 
    EndIf
    Replicate$=work$
EndFunction

 

Msgbox("["+Replicate$("=========+",3)+"]")