7 lines
126 B
Text
7 lines
126 B
Text
PROCEDURE REPEAT_STRING(S$,N%->REP$)
|
|
LOCAL I%
|
|
REP$=""
|
|
FOR I%=1 TO N% DO
|
|
REP$=REP$+S$
|
|
END FOR
|
|
END PROCEDURE
|