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