package Inquiry_Operations is

    type Command_Type is (Collect_Command, Select_Command,
                          Print_Command, Help_Command, Save_Command,
                          List_Command, Quit_Command);

    --  ANSWER prompts the user for a Yes-No response, converting the
    --            result to type BOOLEAN
    --  REQUEST prompts with a menu of choices, converting the
    --            result to type Command_Type
    --  INITIALIZE prints greeting and initial help info.
    --  COLLECT could be called more than once, to change file name setup
    --   -- builds Current Files Record and opens Statistics files.
    --  SELECT could be called repeatedly, to change selections
    --   -- builds Current Options Record
    --  LIST could be called out-of-sequence, and repeatedly
    --   -- uses built records
    --  PRINT dumps the current contents of the statistics files
    --  SAVE  prints (a less formatted) version of the Report dialog to
    -- a named file
    --  HELP re-displays the initial prompt.
    --  QUIT closes any open files and exits.

    function Request return Command_Type;
    procedure Initialize;
    procedure Collect_Files;
    procedure Select_Attributes;
    procedure List_Statistics;
    procedure Print_Files;
    procedure Help_Prompt;
    procedure Save_Statistics;
    procedure Quit;

end Inquiry_Operations;
--*************************************************************************