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

⟦2ace320bf⟧ TextFile

    Length: 703 (0x2bf)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

with Chronometre;  
with Text_Io;
with Calendar;
procedure Test_Chronometre is
    package Chrono_Io is new Text_Io.Fixed_Io (Duration);
    Mon_Chronometre : Chronometre.Object;
begin
    Chronometre.Start (Mon_Chronometre);
    delay 5.0;
    Chronometre.Stop (Mon_Chronometre);
    Chrono_Io.Put (Chronometre.Get (Mon_Chronometre));
    Chronometre.Reset (Mon_Chronometre);
    Chronometre.Start (Mon_Chronometre);
    delay 10.0;
    Chronometre.Stop (Mon_Chronometre);
    Chrono_Io.Put (Chronometre.Get (Mon_Chronometre));
    Chronometre.Start (Mon_Chronometre);
    delay 10.0;
    Chronometre.Stop (Mon_Chronometre);
    Chrono_Io.Put (Chronometre.Get (Mon_Chronometre));

end Test_Chronometre;