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: ┃ T V ┃

⟦b87a89c1c⟧ TextFile

    Length: 1027 (0x403)
    Types: TextFile
    Names: »V«

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

package Avance is
    type Nom_De_Mois is (Janvier, Fevrier, Mars, Avril, Mai, Juin, Juillet,
                         Aout, Septembre, Octobre, Novembre, Decembre);
    type Date is
        record
            Jour : Integer range 1 .. 31;
            Mois : Nom_De_Mois;
            Annee : Integer range 1900 .. 2100;
        end record;
    type Genre is (Masculin, Feminin, Neutre);
    type Personne (Sexe : Genre := Neutre) is
        record
            Naissance : Date;
            case Sexe is
                when Masculin =>
                    Barbe : Boolean;
                when Feminin =>
                    Enfants : Integer range 1 .. 100;
                when Neutre =>
                    null;
            end case;
        end record;
    Erreur_Rasage, Erreur_Neutre : exception;
    subtype Homme is Personne (Masculin);
    subtype Femme is Personne (Feminin);
    subtype Mutant is Personne;
    procedure Raser (Etre : in out Personne);
    procedure Steriliser (Etre : in out Personne);
end Avance;