separate (Inquiry_Operations.Select_Attributes)
procedure Display_Options is
    procedure Attribute_Status (Index : Attribute_Options.Attribute_Type) is
    begin
        Put ("Attribute: ");
        Put (Attribute_Type'Image (Index));
        Set_Col (To => 30);
        Put ("Current value is: ");
        Put_Line (Boolean'Image (Is_Set (Index)));
    end Attribute_Status;
begin
    New_Line;   -- echo choice
    Put_Line (" Display options are: ");
    New_Line;
    for Index in Attribute_Options.Attribute_Type loop
        Attribute_Status (Index);
        Set_Col (To => 30);
        -- get choice
        if Answer ("Do you wish to change?") then
            if Is_Set (Index) then
                Reset (Index);
            else
                Set (Index);
            end if;
            Set_Col (To => 50);
            Put_Line ("... changed.");
        end if;
    end loop;

    New_Line;   -- echo choice
    Put_Line (" Display options are: ");
    New_Line;
    for Index in Attribute_Options.Attribute_Type loop
        Attribute_Status (Index);
    end loop;
end Display_Options;
--*****************************************************************************