8 lines
126 B
Text
8 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
|