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: T V

⟦474c115ac⟧ TextFile

    Length: 1823 (0x71f)
    Types: TextFile
    Names: »V«

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

-------------------------PROLOGUE---------------------------------------
--                                                                    -*
-- Unit name    :  HELP_UTILITY                         spec
-- Date created :  28 January 1985
-- Last update  :
--                                                                    -*
------------------------------------------------------------------------
--                                                                    -*
-- Abstract     : VAX like HELP Utility. There are three procedures:
----------------: 1) Initialize - reads the help file into a data structure
----------------: 2) Help_Me - the help driver
----------------: 3) Terminate_help - terminates the help utility
----------------:
----------------: A function is provided to check if help is active
--                                                                    -*
------------------------------------------------------------------------
--
-- Mnemonic     :
-- Name         :
-- Release date :
------------------ Revision history ------------------------------------
--
-- DATE  AUTHOR   HISTORY
--
--
--

--------------------END-PROLOGUE----------------------------------------
package Help_Utility is

    Illegal_Format_For_Help_File : exception;
    Help_File_Does_Not_Exist : exception;
    Cannot_Open_Help_File : exception;
    Help_File_Not_Initialized : exception;
    Nothing_To_Output : exception;

    procedure Initialize (Help_File_Name : in String);

    procedure Help_Me (Cli_Buffer : in String);

    procedure Get_Text_Line (Line : out String;
                             Char_Count : out Natural;
                             Is_Last : out Boolean);

    procedure Exit_Help;

    procedure Reset_Help;

    function Help_Is_Terminated return Boolean;

end Help_Utility;