13 lines
234 B
Text
13 lines
234 B
Text
|
FUNCTION StringRepeat$ (s$, n)
|
||
|
|
cad$ = ""
|
||
|
|
FOR i = 1 TO n
|
||
|
|
cad$ = cad$ + s$
|
||
|
|
NEXT i
|
||
|
|
StringRepeat$ = cad$
|
||
|
|
END FUNCTION
|
||
|
|
|
||
|
|
PRINT StringRepeat$("rosetta", 1)
|
||
|
|
PRINT StringRepeat$("ha", 5)
|
||
|
|
PRINT StringRepeat$("*", 5)
|
||
|
|
END
|