|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 2099 (0x833)
Types: TextFile
Names: »B«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
separate (Inquiry_Operations.Select_Attributes)
procedure Query_Options is
procedure Select_Value (Index : Category_Type) is separate;
procedure Display_Value (Index : Category_Type) is separate;
begin
-- put out a list of choices - current
Put ("Listing setting: ");
Put_Line (Listing_Type'Image (Listing));
if Answer ("Do you wish to change?") then
if Listing = Attribute_Options.Listing_Type'Last then
Set_List (Listing_Type'First);
else
Set_List (Listing_Type'Succ (Listing));
end if;
Put ("Listing setting: ");
Put_Line (Listing_Type'Image (Listing));
end if;
if Attribute_Options.Listing = List_By_Category then
Put ("Category is: ");
Put (Category_Type'Image (Category));
Display_Value (Category);
if Answer ("Do you wish to change both Category and Value?") then
Put_Line ("The choice is one of the following:");
for Index in Attribute_Options.Category_Type loop
Put_Line (" " & Category_Type'Image (Index));
end loop;
Put_Line ("Select the new category as it comes by... ");
for Index in Attribute_Options.Category_Type loop
New_Line;
if Answer (Category_Type'Image (Index)) then
Put_Line ("Now, select a value as it comes by ...");
Select_Value (Index);
exit;
end if;
end loop;
Put ("Category is: ");
Put (Category_Type'Image (Category));
Display_Value (Category);
elsif Answer ("Do you want a new Value within this Category?") then
Display_Value (Category);
Put_Line ("Select a value as it comes by ...");
Select_Value (Category);
Put ("Category is: ");
Put (Category_Type'Image (Category));
Display_Value (Category);
end if;
end if;
end Query_Options;
--*****************************************************************************