{ remtab.txt -- Algorithm #7: Remove Tabs by Tom Swan }

procedure RemoveTabs(L: String);
var
  T: String;
  I: Integer;
  C: Char;
begin
  Set T to null string;
  for I <- 1 to Length(L) do
  begin
    C <- L[I];
    if C = tab then
      repeat
        Append blank to T;
      until Length(T) mod tabWidth = 0;
    else
      Append char C to T;
  end;
  Return T;
end;


(*
// --------------------------------------------------------------
// Copyright (c) 1993 by Tom Swan. All rights reserved
// Revision 1.00    Date: 04/06/1993   Time: 03:55 pm
*)
