Replicate                                                      FastTTT



Purpose   To construct a string of repeated characters

Declaration    (N:byte; C:Char): string;

Uses FastTTT.

Result type    String

Remarks   This function uses memory moves and is much faster than a
          "for" loop.

Example


               USES FASTTTT;
               VAR TXT:STRING;
               BEGIN
                 TXT := REPLICATE(80,'+');
                 FASTWRITE(1,1,14,TXT);
               END.


The variable Txt is set to an 80 character string composed of +'s i.e.
line of the screen in yellow. Note that these two procedures could be
combined to form a single statement:
     FastWrite(1,1,14,Replicate(80,'+'));