|
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 - download
Length: 502 (0x1f6)
Types: TextFile
Names: »B«
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Text_Io;
procedure Affichetypeenum is
type Couleur is
(Bleu, Jaune, Vert, Rouge, Fiotte, Moumoun, Gerfuz, Alezan,
N_Importe_Quoi_Pourvu_Que_Ca_Marche_A_Part_Ca_Moi_Ca_Va_Pas_Mal_D_Ailleurs_Je_M_Etonne_Moi_Meme);
subtype Vraicouleur is Couleur range Bleu .. Rouge;
begin
for I in Couleur'First .. Couleur'Last loop
if I in Vraicouleur then
Text_Io.Put_Line ("La couleur est " & Couleur'Image (I));
end if;
end loop;
end Affichetypeenum;