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

⟦8510ada7c⟧ Ada Source

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

Derivation

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

package Poubelle_Interpreteur is

    --Table (1) := 'a';
    --Table (2) := 'l';
    --Table (3) := 'l';
    --Table (4) := 'e';
    --Table (5) := 'r';
    --Table (6 .. 80) := (others => ' ');

    --Mot_Lu, Mot_In_Table : Mots.Mot;
    --Mots.Creer (Mot_In_Table, Table (1 .. 5));
    --Mots.Creer (Mot_In_Table, Un_Tableau (1).all);
    --Text_Io.Put_Line (Un_Tableaux (1).all);

    --if Mots.Valeur (Mot_Lu) = Mots.Valeur (Mot_In_Table) then
    --    Text_Io.Put_Line ("Ok !");
    --else
    --    Text_Io.Put_Line ("Ko !");
    --end if;

    --function "=" (Chaine1, Chaine2 : String) return Boolean
    --    renames Standard."=";

end Poubelle_Interpreteur;

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