13 lines
201 B
Text
13 lines
201 B
Text
|
function StringRepeat$ (s$, n)
|
||
|
|
cad$ = ""
|
||
|
|
for i = 1 to n
|
||
|
|
cad$ += s$
|
||
|
|
next i
|
||
|
|
return cad$
|
||
|
|
end function
|
||
|
|
|
||
|
|
print StringRepeat$("rosetta", 1)
|
||
|
|
print StringRepeat$("ha", 5)
|
||
|
|
print StringRepeat$("*", 5)
|
||
|
|
end
|