home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / CENTER.INC < prev    next >
Encoding:
Text File  |  1988-01-29  |  593 b   |  38 lines
  1.  
  2. #log Center strings
  3.  
  4. (*
  5.  *
  6.  * centers a string around a given width
  7.  *
  8.  *)
  9.  
  10. procedure center (var str:       anystring;
  11.                   width:         integer);
  12. var
  13.    front:         integer;
  14.    back:          integer;
  15.  
  16. begin
  17.  
  18.    if length (str)> width then
  19.       str[0]:= chr (width);
  20.  
  21.    back := width - length (str);
  22.    front := back div 2;
  23.    back := back - front;
  24.  
  25.    while front > 0 do
  26.    begin
  27.       str := ' ' + str;
  28.       front := front - 1;
  29.    end;
  30.  
  31.    while back > 0 do
  32.    begin
  33.       str := str + ' ';
  34.       back := back - 1;
  35.    end;
  36. end;
  37.  
  38.