Programmer 7500/MAX_PROGRAMMERS.iso/INFO/TURBOPAS/TPTC17SC.ARC/LJUST.INC

Text File | 1988-03-25 | 219 b | 16 lines

(*
 * ljust - macro for left justified strings in writeln format
 *
 *)

function ljust(s: string; w: integer): string;
begin
   repeat
      s := s + ' ';
   until length(s) >= w;

   ljust := s;
end;