DataMuseum.dk

top - download

    Length: 1280 (0x500)
    Types: TextFile
    Names: »B«

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

TextFile

separate (Motor.Jouer)
task body Envoi_Message is
    Open : Boolean := False;
    Quit : Boolean := False;
begin
    while not Quit loop
        select  
            accept Debut do
                if not Open then
                    Text_Io.Put_Line ("Le debut du spectacle est annonce");
                    Running := False;
                    Open := True;
                    Ouvrir_En_Lecture (Nom_Du_Fichier_Physique);
                end if;
            end Debut;
        or  
            accept Jouer do
                if Open then
                    Running := True;
                    Text_Io.Put_Line ("Jouer...");
                end if;
            end Jouer;

        or  
            accept Pause do
                if Open then
                    Running := False;
                    Text_Io.Put_Line ("Pause cafe...");
                end if;
            end Pause;  
        or  
            accept Stop do  
                Text_Io.Put_Line (" Fin du spectacle...");
                if Open then
                    Fermer;
                end if;  
                Done := True;
                Quit := True;
                Running := False;
                Open := False;
            end Stop;
        end select;
    end loop;
end Envoi_Message;