From: jg@crescentcomputing.co.uk   
      
   "dik" said   
      
   >    with:   
      
   >       procedure sl (s : string ; l : integer) ;   
   >       begin   
   >          if length (s) < l then   
   >             fillchar (s [length (s) + 1], l - length (s), ' ') ;   
   >          s [0] := char (l) ; sl := s ;   
   >       end ;   
      
   >    format output:   
      
   >       writeln (invoice, 'Description: ', sl (item_name, 33) ... etc) ;   
      
   Wont work when proportional spaced font is used (the most common scenario).   
      
   JG   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)