FUNCTION StringRepeat$ (s$, n)
    LET cad$ = ""
    FOR i = 1 TO n
        LET cad$ = cad$ & s$
    NEXT i
    LET StringRepeat$ = cad$
END FUNCTION

PRINT StringRepeat$("rosetta", 1)
PRINT StringRepeat$("ha", 5)
PRINT StringRepeat$("*", 5)
END