DECLARE
   file1  TEXT_IO.FILE_TYPE;
   file2  TEXT_IO.FILE_TYPE;
   str    VARCHAR2(80);
BEGIN
   file1 := TEXT_IO.FOPEN( 'input.txt','r' );
   file2 := TEXT_IO.FOPEN( 'output.txt', 'w' );
   TEXT_IO.GET_LINE( file1, str );
   TEXT_IO.PUT_LINE( file2, str );
   TEXT_IO.FCLOSE( file1 );
   TEXT_IO.FCLOSE( file2 );
END;