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

⟦ea7ab27db⟧ TextFile

    Length: 2510 (0x9ce)
    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 (Browser)
function Help_Message return Help.List is
    --
    The_Message : Help.List := Help.Create;
    --
    procedure Add_To (This_List : in out Help.List; This_String : in String) is
        --
        This_Vstring : Vstrings.Variable_String := Vstrings.Value (This_String);
        --
    begin
        Help.Add (To_List => This_List, This_Element => This_Vstring);
    end Add_To;
    --
    procedure Add_Blank_Line is
    begin
        Add_To (The_Message, " ");
    end Add_Blank_Line;
    --
begin
    Add_To (The_Message, "DEFINITION:");
    Add_To (The_Message, "  Moves to next lower level in menu structure.");
    Add_To (The_Message, "  Doesn't work on ""Preface"" or ""Appendix"".");
    Add_To (The_Message,
            "  FACIT => ""F4"", R1000 => ""F10"", vt100 => ""Numeric-8"".");
    Add_Blank_Line;
    Add_To (The_Message, "EXPLAIN:");
    Add_To (The_Message, "  Gives description of selected object.");
    Add_To (The_Message,
            "  FACIT => ""C_F8"", R1000 => ""F17"", vt100 => ""Esc-Q"".");
    Add_Blank_Line;
    Add_To (The_Message, "ENCLOSING OBJECT:");
    Add_To (The_Message, "  Moves to next higher level in menu structure.");
    Add_To (The_Message, "  If already at top level, exits program.");
    Add_To (The_Message,
            "  FACIT => ""C_F4"", R1000 => ""M_F10"", vt100 => ""Esc-E"".");
    Add_Blank_Line;
    Add_To (The_Message, "INSTALL UNIT:");
    Add_To (The_Message, "  Extracts selected object from catalog and");
    Add_To (The_Message, "  places it in a user-specified library.");
    Add_To (The_Message, "  Enter responses to this procedure with the");
    Add_To (The_Message, "  'PROMOT' key. Doing so without entering a");
    Add_To (The_Message, "  pathname installs the item in the default");
    Add_To (The_Message, "  location.");
    Add_To (The_Message,
            "  FACIT => ""F6"", R1000 => ""F13"", vt100 => ""Esc-I"".");
    Add_Blank_Line;
    Add_To (The_Message, "CURSOR MOVEMENT KEYS:");
    Add_To (The_Message, "  Change currently selected menu option.");
    Add_To (The_Message, "  May be used with numeric key arguments.");
    Add_Blank_Line;
    Add_To (The_Message, "WINDOW UP ARROW AND WINDOW DOWN-ARROW:");
    Add_To (The_Message,
            "  Temporarily disconnect from browser program window.");
    Add_To (The_Message,
            "  To reconnect, move back into browser program window");
    Add_To (The_Message, "  and hit 'ENTER' key.");
    return (The_Message);
end Help_Message;