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

⟦529a06a12⟧ TextFile

    Length: 351 (0x15f)
    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 Text_Io;
with Travail;
use Text_Io, Travail;
procedure Test_Package is
    J : Jour;

begin
    for I in Jour loop

        if Is_Jour_Repos (I) then
            Put_Line (Jour'Image (I) & " : On dort");
        elsif Is_Jour_Travail (I) then
            Put_Line (Jour'Image (I) & " : On bosse");
        end if;

    end loop;
end Test_Package;