sub StringRepeat$ (s$, n)
    cad$ = ""
    for i = 1 to n
        cad$ = cad$ + s$
    next i
    return cad$
end sub

print StringRepeat$("rosetta", 1)
print StringRepeat$("ha", 5)
print StringRepeat$("*", 5)
end