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 ┃

⟦bf14aa423⟧ TextFile

    Length: 708 (0x2c4)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

separate (Application)
function Month (M : Calendar.Month_Number) return String is
begin
    case M is
        when 1 =>
            return " Janvier";
        when 2 =>
            return " Fevrier";
        when 3 =>
            return " Mars";
        when 4 =>
            return " Avril";
        when 5 =>
            return " Mai";
        when 6 =>
            return " Juin";
        when 7 =>
            return " Juillet";
        when 8 =>
            return " Aout";
        when 9 =>
            return " Septembre";
        when 10 =>
            return " Octobre";
        when 11 =>
            return " Novembre";
        when 12 =>
            return " Decembre";
    end case;
end Month;