Replicate


Purpose   Constructs a string of repeated characters.

Decln.    Replicate(N:byte; Ch:char):string;

Returns   String

Remarks   N is the length of the returned string.
          Ch is the character to repeat.

          This procedure uses memory moves and is much faster than a for
          loop.

Example

BEGIN
    FWRITE(REPLICATE(80,'*'));
END;

A line of 80 asterisks is written to the display.