home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / LJUST.INC < prev    next >
Encoding:
Text File  |  1988-01-30  |  209 b   |  15 lines
  1.  
  2. (*
  3.  * ljust - macro for left justified strings in writeln format
  4.  *
  5.  *)
  6.  
  7. function ljust(s: string; w: integer): string;
  8. begin
  9.    while length(s) < w do
  10.       s := s + ' ';
  11.  
  12.    ljust := s;
  13. end;
  14.  
  15.