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 - download
Index: ┃ T V ┃

⟦7c21cf7a8⟧ TextFile

    Length: 1411 (0x583)
    Types: TextFile
    Names: »V«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

package Gui_Interface is

    function Get_Make_Controlled_Activate return Integer;
    pragma Interface (C, Get_Make_Controlled_Activate);
    pragma Linkname (Get_Make_Controlled_Activate, "GetMakeControlledActivate");


    function Get_Make_Uncontrolled_Activate return Integer;
    pragma Interface (C, Get_Make_Uncontrolled_Activate);
    pragma Linkname (Get_Make_Uncontrolled_Activate,
                     "GetMakeUncontrolledActivate");


    function Get_Check_Out_Activate return Integer;
    pragma Interface (C, Get_Check_Out_Activate);
    pragma Linkname (Get_Check_Out_Activate, "GetCheckOutActivate");


    function Get_Check_In_Activate return Integer;
    pragma Interface (C, Get_Check_In_Activate);
    pragma Linkname (Get_Check_In_Activate, "GetCheckInActivate");


    function Get_History_Activate return Integer;
    pragma Interface (C, Get_History_Activate);
    pragma Linkname (Get_History_Activate, "GetHistoryActivate");


    function Get_Quit_Activate return Integer;
    pragma Interface (C, Get_Quit_Activate);
    pragma Linkname (Get_Quit_Activate, "GetQuitActivate");

    function Get_Activate return Integer;
    pragma Interface (C, Get_Activate);
    pragma Linkname (Get_Activate, "GetActivate");


    procedure Set_Output (Output : String);

    function File_Name return String;

    procedure Set_Clock_Cursor;
    procedure Set_Arrow_Cursor;
end Gui_Interface;