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: B T

⟦27564d230⟧ TextFile

    Length: 1010 (0x3f2)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

with Abstract_Tree;
with Symbol_Table;
with Text_Io;
with Token;
use Abstract_Tree;
use Token;  
use Symbol_Table;
procedure Essai_Gdr is
    First_Node, Second_Node, Third_Node, Fourth_Node, Fifth_Node : P_Node;
    Ok : Boolean;  
    Val : Integer;

begin  
    Insert ("fiotte", Ok);
    Set_Val ("fiotte", 23, Ok);
    First_Node := Make_Foliage (L_Id, 4, "fiotte");
    Second_Node := Make_Foliage (L_Nbr, 5, "fiotte");
    Third_Node := Make_Node (L_Moins, First_Node, Second_Node);
    First_Node := Make_Foliage (L_Nbr, 6, "fiotte");
    Fourth_Node := Make_Node (L_Plus, First_Node, Third_Node);
    First_Node := Make_Foliage (L_Nbr, 7, "fiotte");
    Second_Node := Make_Node (L_Mult, First_Node, Fourth_Node);
    First_Node := Make_Foliage (L_Id, 3, "fiotte");
    Text_Io.Put_Line ("allah est grand");
    Fifth_Node := Make_Node (L_Affect, First_Node, Second_Node);
    Left_Right_Root (Fifth_Node);  
    Get_Val ("fiotte", Val, Ok);
    Text_Io.Put_Line (Integer'Image (Val));

end Essai_Gdr;