12 lines
246 B
Text
12 lines
246 B
Text
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
|