}
{ When specified, the "do quietly" indicates that messages should be      }
{ suppressed.  This is useful in .BATs.                                   }
{                                                                         }
{ When the "query" question mark is specified, instead of moving in the   }
{ indicated direction, the command simply indicates what action would be  }
{ taken.  It may be useful in .BAT programs to see if you can descend in  }
{ a given direction, but not have the path indicated.  CLIMB allows you to}
{ specify both "do quietly" and "query" in either order as long as they   }
{ are the first two characters.  It is also possible to specify -- or ??  }
{ in which case the second - or ? is ignored.                             }
{                                                                         }
{ If a drive is not specified, the default drive is assumed.              }
{                                  );
      CLine := CLine + 1;
      for I := 1 to length(LineIn) do
        begin;
        while LineIn[I] = tab do
          begin;
            LineIn[I] := ' ';
            CTab := CTab + 1;
          end;
        end;
      writeln(OutFile,LineIn);
    end;
  writeln(con,'Lines read = ',Cline);
  writeln(con,'Tabs replaced = ',CTab);
end;

{.cp10}
procedure closem;
begin;
  close (InFile);
  close (OutFile);
end;

{.cp10}
begin                                  {The REAL program starts here.}
   StartIO;
   DoStrip;
   closem;
end.                                   {My, That was quick...}