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

⟦c361a2d94⟧ TextFile

    Length: 1227 (0x4cb)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Element;
with Station_Identifier;
with Trame_Product;
procedure Test_Trame_Product is
    My_Adress : Element.Adress := "1A";
    My_Station : Station_Identifier.Object := Station_Identifier.Object (12);
    use Trame_Product;
begin  
    Choose_The_Destination;

    Write_Number_Of_Station (Station_Identifier.Object (15));

    Write_Activate (The_Station => Station_Identifier.Object (11),
                    The_Adress_Station => My_Adress,
                    The_Time => 50,
                    The_Acteur => 7);

    Write_Desactivate (The_Station => Station_Identifier.Object (11),
                       The_Adress_Station => My_Adress,
                       The_Time => 100,
                       The_Acteur => 7);

    Write_Change (The_Station => My_Station,
                  The_Adress_Station => My_Adress,
                  The_Time => 150,
                  The_Acteur => 12,
                  The_Value => 34);

    Write_Evoluate (The_Station => My_Station,
                    The_Adress_Station => My_Adress,
                    The_Time => 200,
                    The_Acteur => 12,
                    The_Value => 34,
                    The_Duration => 123);

    Done;
end Test_Trame_Product;