with Ada.Text_IO;
generic
  with procedure Get
    (File: in Ada.Text_IO.File_Type; Item: out Element) is <>;
  with procedure Put
    (File: in Ada.Text_IO.File_Type; Item: in Element) is <>;
package Tables_Generic.Backup is
------------------------------------------------------------------------
--| Generic Child Package for Save and Restore of a Table
--| Author: Michael B. Feldman, The George Washington University 
--| Last Modified: January 1996                                     
------------------------------------------------------------------------

  procedure Save (T: in TableType; FileName: in String);
  -- Pre:  T and FileName are defined
  -- Post: The contents of T are written to the given file

  procedure Restore (T: out TableType; FileName: in String);
  -- Pre:  T and FileName are defined
  -- Post: T is restored from the given file

end Tables_Generic.Backup;