DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦a4372cadd⟧ Ada Source

    Length: 2048 (0x800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Token, seg_0319ca

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧

E3 Source Code



package Token is
    type Object is (L_Au, L_Activer, L_Alors, L_Attendre, L_Avec, L_Binaire,
                    L_Desactiver, L_Discret, L_En, L_Est, L_Experience, L_Faire,
                    L_Fin, L_Fois, L_Fugitif, L_Materiel, L_Puis, L_Repeter,
                    L_Scene, L_Si, L_Spectacle, L_Station, L_Temporel, L_Temps,
                    L_Crochetd, L_Crochetg, L_Deuxpoints, L_Different, L_Egal,
                    L_Id, L_Inf, L_Inf_Ou_Egal, L_Int, L_Moins, L_Parenthesed,
                    L_Parentheseg, L_Plus, L_Point, L_Virgule, L_Slash,
                    L_Sup, L_Sup_Ou_Egal, L_Star, L_Time, L_Unk, L_Eof);

    function Search_Token (S : String) return Token.Object;
end Token;

E3 Meta Data

    nblk1=1
    nid=0
    hdr6=2
        [0x00] rec0=0e rec1=00 rec2=01 rec3=000
    tail 0x2172bc8dc84c14d3bb94e 0x42a00088462060003