with Text_DC; use Text_DC;

     package body Read_DC is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------

     procedure Read (
       Path_File_Name : in    string ) is
     ----------------------------------------------------------------------
       File : File_Type;
     begin
       Open ( File, Text_DC.In_File, Path_File_Name );
       loop
	 exit when End_Of_File ( File );
	 Get ( Char );
	 Put ( Char );
       end loop;
       Close ( File );
     exception
       when others =>
	 Close ( File );
	 raise;
     end Read;

     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end Read_DC;