PadRight                                                      StrngTTT



Purpose   To expand and right justify a string with a specific
          character.

Returns   String;

Declaration    PadRight(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 := PADRIGHT(' ASTERISKS ',20,'*');
               END.


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