!                                                                    
!
!***** FRED$WRITE_BUFFER *****
!                                                    
! Write the specified buffer to the specified file.  If there is no valid 
! output filename, the BUFFER_NAME.TXT is used for the output filename.
!
! Parameters:   
!
!	buffer_to_write		! Variable containing buffer to write - input

PROCEDURE fred$write_buffer (buffer_to_write)

   LOCAL write_result,		! File name string returned by write_file
	temp;			! Save passed filename

   on_error
      RETURN (0);
   endon_error;

   if eve$x_trimming then                                       
      eve$trim_buffer (buffer_to_write);
   endif;           

   temp := GET_INFO(buffer_to_write,"output_file");
   if temp = 0 then
      temp := FILE_PARSE(GET_INFO(buffer_to_write,"name"),".TXT");
   else
      temp := FILE_PARSE(SUBSTR(temp,1,INDEX(temp,";")),".TXT");
   endif;
   write_result := WRITE_FILE (buffer_to_write, temp);
             
   SET (output_file, buffer_to_write, write_result);
   RETURN (1);
             
ENDPROCEDURE;