(*==========================================================*)
(*=                      Convert Tabs                      =*)
(*=                   ------------------                   =*)
(*= This utility will convert PC TABS to 4 spaces          =*)
(*=     Written by: Nir Dary       Date: 01/01/2001        =*)
(*==========================================================*)

  VAR
  Ch : CHAR;  {To store our Characters}
  
  BEGIN (*Main Program*)

   While not EOF DO

   BEGIN
    READ (CH);
     IF Ch=CHR($09) THEN
      BEGIN
       CH:=CHR($20);
       WRITE (CHR($20),CHR($20),CHR($20));
      End;

    WRITE (Ch);

   END; (*End of IF NOT EOF*)

  END.
