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

⟦193ffd449⟧ TextFile

    Length: 663 (0x297)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Text_Io, Nodes, Product;
procedure Testproduct is
    Ptrdebut, Pperiph, Pacteur, Pexpr : Nodes.Pnode;
    Ptrcourant : Nodes.Pnode;
begin
    Pperiph := Nodes.Mkidnode (70);
    Pacteur := Nodes.Mkidnode (1);
    Ptrdebut := Nodes.Mkactivernode (Pperiph, Pacteur);
    Pperiph := Nodes.Mkidnode (65);
    Pacteur := Nodes.Mkidnode (3);
    Pexpr := Nodes.Mkexprnode (null, null);
    Nodes.Exprsetvalue (Pexpr, 34);
    Ptrcourant := Nodes.Mkmodifiernode (Pperiph, Pacteur, Pexpr);
    Ptrdebut.Next := Ptrcourant;
    Nodes.Printtree (Ptrdebut);
    Product.Openoutputfile;
    Product.Producttree (Ptrdebut);
    Product.Closeoutputfile;
end Testproduct;