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

⟦86bd29d41⟧ TextFile

    Length: 1397 (0x575)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Time_Utilities;
with Text_Io;
with Calendar;
use Calendar;
procedure Thetime is
    My_Time, My_Time2 : Time_Utilities.Time;
    Tempo : Duration;
    Laps : Time_Utilities.Interval;
    Clock1, Clock2 : Calendar.Time;
begin
    My_Time := Time_Utilities.Get_Time;
    delay (125.0);
    Tempo := -Time_Utilities.Duration_Until (My_Time);
    My_Time2 := Time_Utilities.Get_Time;

    Text_Io.Put_Line (Time_Utilities.Image (My_Time));
    Text_Io.Put_Line (Time_Utilities.Image (My_Time2));

    Laps := Time_Utilities.Convert (Tempo);
    Text_Io.Put_Line ("Tempo_duration " & Time_Utilities.Image (Tempo));
    Text_Io.Put_Line ("Laps_interval " & Time_Utilities.Image (Laps));
    Text_Io.Put_Line ("Minutes : " &
                      Time_Utilities.Minutes'Image (Laps.Elapsed_Minutes));
    Text_Io.Put_Line ("Secondes : " &
                      Time_Utilities.Seconds'Image (Laps.Elapsed_Seconds));
    Text_Io.Put_Line ("Millisecondes : " & Time_Utilities.Milliseconds'Image
                                              (Laps.Elapsed_Milliseconds));

    Clock1 := Calendar.Clock;
    delay (125.0);
    Clock2 := Calendar.Clock;
    Tempo := Clock2 - Clock1;
    Text_Io.Put_Line ("Tempo_duration " & Time_Utilities.Image (Tempo));
    Text_Io.Put_Line ("Secondes : " & Integer'Image
                                         (Integer (Seconds (Clock2 - Tempo))));

end Thetime;