December 1, 2005 - WinTask - Replicate$

'
' Replicate$(,)
'

' Author: Joe Strazzere

'
' Returns a string repeated 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)+"]")