with Ada.Text_IO;
package Currency.IO is
------------------------------------------------------------------
--|                                                              
--| Specification of the input/output child package for Currency
--|                                                              
--| Author: Michael B. Feldman, The George Washington University 
--| Last Modified: July 1995                                     
--|                                                              
------------------------------------------------------------------

  -- input operations to read a Quantity from terminal or file

  procedure Get (Item : out Quantity);
  procedure Get (File: in Ada.Text_IO.File_Type; Item : out Quantity);
  -- Pre : File is open
  -- Post: The currency quantity is read as a normal 
  --   floating point value.

  -- output operations to display a Quantity on terminal or
  -- write it to an external file

  procedure Put (Item : in Quantity; Width: in Natural:=8);
  procedure Put (File : in Ada.Text_IO.File_Type;
                 Item : in Quantity; Width: in Natural:=8);
  -- Pre:  File is open, Item is defined
  -- Post: Displays or writes the currency quantity.
  --       Width is used by analogy with Integer_IO
  
end Currency.IO;