DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: B T

⟦705c9f3d0⟧ TextFile

    Length: 1806 (0x70e)
    Types: TextFile
    Names: »B«

Derivation

└─⟦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⟧ 

TextFile

separate (Inquiry_Operations)

--  For now, just print a message.
--  Could be more extensive, with external Help Files, and a
--    dialog with the user to navigate to a specific topic.
--  Could also be a process invoked at any point in user interaction,
--    context-sensitive enough to display the 'right' message.

procedure Help_Prompt is
begin
    Put_Line (" There are 3 parameters you can set/change:             ");
    New_Line;
    Put_Line ("1. COLLECT the names of files which contain Statistics  ");
    Put_Line ("   Then SELECT the Attributes you wish to display.      ");
    Put_Line
       ("2. The Query parameter tells the Report Writer how to search the");
    Put_Line ("   Database and Statistics files.                       ");
    Put_Line ("     You can query by Name or by Category.              ");
    Put ("3. The Display parameter tells what test unit Attributes");
    Put_Line (" to display.                                            ");
    Put_Line ("   The LIST command produces the Report you've defined. ");
    New_Line;
    Put ("   Use the PRINT command to see what's in the selected ");
    Put_Line ("Statistics files.");
    Put ("   SAVE is just like List, but lets you put the report ");
    Put_Line ("in a named file for later processing in the Host environment.");
    New_Line;
    Put ("   You can change Statistics files and Attributes ");
    Put_Line ("as often as you wish.");
    New_Line;
    Put_Line (" See the User's Manual for details.");
    New_Line;
    if Answer ("Ready to continue?") then
        -- this is here to
        null;                              -- keep things from
    end if;                              -- scrolling away
end Help_Prompt;
--*****************************************************************************