|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 807 (0x327)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
separate (Motor.Jouer)
task body Espion is
Item : Window_Io.Raw.Key;
Term : Window_Io.Raw.Stream_Type;
The_Char : Character := ' ';
begin
Window_Io.Raw.Open (Term);
while The_Char /= 's' loop
Window_Io.Raw.Get (Term, Item);
Menu.Beep;
The_Char := Character (Window_Io.Raw.Convert (Item));
case The_Char is
when 'd' =>
Envoi_Message.Debut;
when 's' =>
Envoi_Message.Stop;
when 'j' =>
Envoi_Message.Jouer;
when 'p' =>
Envoi_Message.Pause;
when others =>
Text_Io.Put_Line ("Erreur de frappe");
end case;
end loop;
Window_Io.Raw.Disconnect (Term);
Window_Io.Raw.Close (Term);
end Espion;