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

⟦b606c7f1f⟧ TextFile

    Length: 737 (0x2e1)
    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

with Global_Def;
use Global_Def;

package Pack_2 is
--------------

    procedure Proc_6 (Enum_Par_In : in Enumeration;
                      Enum_Par_Out : out Enumeration);

    procedure Proc_7 (Int_Par_In_1, Int_Par_In_2 : in One_To_Fifty;
                      Int_Par_Out : out One_To_Fifty);

    procedure Proc_8 (Array_Par_In_Out_1 : in out Array_1_Dim_Integer;
                      Array_Par_In_Out_2 : in out Array_2_Dim_Integer;
                      Int_Par_In_1, Int_Par_In_2 : in Integer);

    function Func_1 (Char_Par_In_1, Char_Par_In_2 : in Capital_Letter)
                    return Enumeration;

    function Func_2 (String_Par_In_1, String_Par_In_2 : in String_30)
                    return Boolean;

end Pack_2;