REM  RepeatPrint - print a string several times

FUNCTION RepeatPrint(RepeatString AS STRING, RepeatAction AS INTEGER) AS STRING
 DIM AS INTEGER x
 DIM AS STRING Result = ""
 FOR x = 1 TO RepeatAction
   Result += RepeatString
 NEXT x
 RETURN Result
END FUNCTION

You are viewing proxied material from gopher.viste.fr. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.