|
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: T V
Length: 1448 (0x5a8)
Types: TextFile
Names: »V«
└─⟦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⟧
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;
--*************************************************************************