Repeat a string: Difference between revisions

Content added Content deleted
Line 339:
 
=={{header|PureBasic}}==
<lang PureBasic>Procedure.s RepeatString(count, text.s$="Default Text.",num=10)
Define Protected i, ret$=num""
For i=0 To num▼
Print(text)▼
Next i▼
EndProcedure▼
 
▲ For i =0 1 To numcount
If OpenConsole()
▲ Print( ret$ + text)$
RepeatString() ; Print Default Txt, default times
▲ Next iNext
RepeatString("New Text!"+#CRLF$) ; Print this text default times
ProcedureReturn ret$
RepeatString("** Yet a New **",3) ; Uses these parameters
▲EndProcedure</lang>
Input(): CloseConsole() ; Wait for a 'ENTER', then quit
EndIf </lang>
 
=={{header|Python}}==
Retrieved from "https://rosettacode.org/wiki/Repeat_a_string"