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

⟦b9e0d0281⟧ TextFile

    Length: 476 (0x1dc)
    Types: TextFile
    Names: »B«

Derivation

└─⟦bfaa708f6⟧ Bits:30000531 8mm tape, Rational 1000, INSIGHT 1_3_0
    └─ ⟦c51948655⟧ »DATA« 
        └─⟦266b31e86⟧ 
            └─⟦this⟧

TextFile

with Billing;
with Ground_Transmission;
package body Credit_Card is
    procedure Connect is
    begin
        [statement]
    end Connect;


    procedure Check_Validity is
    begin
        [statement]
    end Check_Validity;


    procedure Check_Balance is
    begin
        [statement]
    end Check_Balance;


    procedure Transact is
    begin
        [statement]
    end Transact;


    procedure Close is
    begin
        [statement]
    end Close;
end Credit_Card;