!
!
! ***** SAVE SECTION FILE *****
!
PROCEDURE fred$save_section
   fred$local_init_buffer := CREATE_BUFFER ("fred$local_init.data","fred$local_init.data");
   READ_FILE ("fred_library:fred$local_init.data");

   fred$update_version;			! Set current version of FRED
   MESSAGE ("Saving TPU SECTION in FRED_LIBRARY:FRED.TPU$SECTION");
   eve_save_extended_tpu ("fred_library:fred.tpu$section");
   MESSAGE ("FRED version " + fred$x_version + " saved...");
   MESSAGE ("Please check for error messages.");
ENDPROCEDURE;
!
!
! ***** SAVE SECTION FILE FOR TESTING *****
!
PROCEDURE fred$save_test_section
   MESSAGE("Saving TPU SECTION test file in FRED_LIBRARY:FRED.TEST$SECTION");
   eve_save_extended_tpu ("fred_library:fred.test$section");
   MESSAGE("Please check for error messages.");
ENDPROCEDURE;