|
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 - downloadIndex: ┃ B T ┃
Length: 1403 (0x57b)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Text_Io;
procedure Saisie_Clavier is
use Text_Io;
type Jour is (Lundi, Mardi, Samedi);
J : Jour;
function Readstring return String is
C : Character;
begin
if End_Of_Line then
Skip_Line;
return "";
else
Get (C);
return C & Readstring;
end if;
end Readstring;
procedure Afficher is
begin
loop
declare
Chaine : constant String := Readstring;
begin
if Chaine'Length /= 0 then
Put_Line (Chaine);
exit;
else
Put_Line ("salut!");
exit;
end if;
end;
end loop;
end Afficher;
--**************************************************************************
--* Corps du programme principal *
--**************************************************************************
begin
loop
Traite:
begin
J := Jour'Value (Readstring);
Text_Io.Put_Line ("Le jour est => " & Jour'Image (J));
exit;
exception
when Constraint_Error =>
Put_Line ("erreur !");
New_Line;
end Traite;
end loop;
end Saisie_Clavier;