PadCenter                                                     StrngTTT



Purpose   Tp expand and center a string with a specific character.

Returns   String;

Declaration    PadCenter(Str:string; Size:byte; Pad:char):string;

          Str is the string to be expanded
          Size is the new string length
          Pad is the character to expand the string with

Uses StrngTTT.



Example


               USES STRNGTTT;
               VAR TTT : STRING;
               BEGIN
                 TTT := PADCENTER(' ASTERISKS ',20,'*');
               END.


The string TTT is assigned the value "***** Asterisk *****".