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 ┃

⟦5673468f3⟧ TextFile

    Length: 1346 (0x542)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

separate (Motor)
procedure Jouer (Nom_Du_Fichier_Physique : String) is  
    Un_Evenement : Evenement;
    Running : Boolean := False;
    Done : Boolean := False;


    task Menu is
        entry Open;
        entry Beep;
        entry Close;
    end Menu;

    task Envoi_Message is
        entry Debut;
        entry Stop;
        entry Pause;
        entry Jouer;
    end Envoi_Message;

    task Espion is  
    end Espion;


    task body Espion is separate;

    task body Envoi_Message is separate;

    task body Menu is separate;

    procedure Afficher_Evenement_Courant (Source : Evenement) is separate;

begin
    Menu.Open;
    while not Done loop
        while Running and then (not Codes_Io.End_Of_File
                                       (Nom_Du_Fichier_Logique)) loop
            Codes_Io.Read (Nom_Du_Fichier_Logique, Un_Evenement);
            Afficher_Evenement_Courant (Un_Evenement);
            if Un_Evenement.Date_Relative /= 0 then
                Attendre (Un_Evenement);
            end if;
            Envoyer_Trame (Un_Evenement);
            if Codes_Io.Is_Open (Nom_Du_Fichier_Logique) and then
               Codes_Io.End_Of_File (Nom_Du_Fichier_Logique) then  
                Envoi_Message.Stop;  
                abort Espion;
            end if;
        end loop;
    end loop;
    Menu.Close;
end Jouer;