with Inquiry_Operations;
use Inquiry_Operations;
--  This subprogram acts as the 'main' routine of the portion
--  of the Benchmark system that deals with information
--  retrieval and user interaction.
procedure Report_Writer is
begin
    Initialize;     -- display greeting and helpful prompt
    loop
        case Request is
            when Collect_Command =>
                Collect_Files;
                -- set up statistics files
            when Select_Command =>
                Select_Attributes;
                -- customize display
            when List_Command =>
                List_Statistics;
                -- display statistics and database attributes
            when Save_Command =>
                Save_Statistics;
                -- display statistics and database attributes (to named file)
            when Print_Command =>
                Print_Files;
                -- dump contents of statistics files to screen
            when Help_Command =>
                Help_Prompt;
                -- display helpful prompt
            when Quit_Command =>
                Quit;
                exit;
                -- close files
        end case;
    end loop;
end Report_Writer;