Anonymous user
Repeat a string: Difference between revisions
→{{header|Oz}}
(→{{header|REXX}}: added the '''changestr''' bif. -- ~~~~) |
|||
Line 717:
=={{header|OpenEdge/Progress}}==
<lang Progress (OpenEdge ABL)>MESSAGE FILL( "ha", 5 ) VIEW-AS ALERT-BOX.</lang>
=={{header|OxygenBasic}}==
<lang oxygenbasic>
'REPEATING A CHARACTER
print string(10,"A") 'result AAAAAAAAAA
'REPEATING A STRING
function RepeatString(string s,sys n) as string
sys i, le=len s
if le=0 then exit function
n*=le
function=nuls n
'
for i=1 to n step le
mid function,i,s
next
end function
print RepeatString "ABC",3 'result ABCABCABC
</lang>
=={{header|Oz}}==
| |||