DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦15a1d7c9b⟧ TextFile

    Length: 805 (0x325)
    Types: TextFile
    Notes: R1k Text-file segment

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦d2e1cb401⟧ 
            └─⟦this⟧

TextFile

package Feu_Rouge is
    type Objet is limited private;
    procedure Demarrer (F : in Objet);
    procedure Arreter (F : in Objet);
    procedure Changer_Tempo (F : in Objet;
                             Tr : in Duration;
                             To : in Duration;
                             Tv : in Duration);
private
    task type Feu_Type is
        entry Demarre;
        entry Changt_Tempo
                 (Tr : in Duration; To : in Duration; Tv : in Duration);
        entry Arrete;
    end Feu_Type;  
    type Couleurs is (Vert, Orange, Rouge);
    type Objet is  
        record
            Temps_Rouge : Duration;
            Temps_Orange : Duration;
            Temps_Vert : Duration;
            Valeur_Actuelle : Couleurs;
            Feu : Feu_Type;
        end record;
end Feu_Rouge