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 - metrics - download
Index: B T

⟦76367ecb9⟧ TextFile

    Length: 817 (0x331)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

separate (Motor.Jouer)
task body Menu is
    The_Menu_Window : Window_Io.File_Type;
    Is_Menu_Open : Boolean := False;
    Quit : Boolean := False;
begin
    while not Quit loop
        select
            when not Is_Menu_Open =>
                accept Open do
                    Ouvrir_Menu (The_Menu_Window);
                    Is_Menu_Open := True;
                end Open;  
        or
            when Is_Menu_Open =>
                accept Beep do
                    Window_Io.Bell (The_Menu_Window);
                end Beep;
        or
            when Is_Menu_Open =>
                accept Close do  
                    Fermer_Menu (The_Menu_Window);
                    Is_Menu_Open := False;
                    Quit := True;
                end Close;
        end select;
    end loop;
end Menu;