First                                                         StrngTTT



Purpose   To return the first part of a string.

Returns   string;

Declaration    First(N: byte; Str: string):string;

          N is the number of characters to extract.
          Str is the string to extract them from

Uses StrngTTT.



Remarks   If the source string is fewer than N characters long, the
          whole string is returned.

Example


               USES STRNGTTT;
               VAR TTT : STRING;
               BEGIN
                 TTT := FIRST(25,'ALL GOOD THINGS WILL COME TO PASS!');
               END.


The string TTT is assigned the value "All good things will come".