Re: Help, asking for code to print out an enumerated type

[Anh Vo <anhvofrcaus@gmail.com>]

On Nov 21, 8:21 am, ChristopherL <clusard...@aol.com> wrote:
> Hello everyone in Ada land,
>
> Today, I'm looking for someone to post all the code to print out an
> enumerated type in Ada 83. Ideally, I would like a small program with
> an enumerated variable containing code to print it out.
>
> Thank you,
> Chris

This code should work for all Ada including Ada 2005. I hope you get
the idea to print any
enumerated values.

with Text_Io;
procedure Print_Enum_Values is
   I_Prefer_Ada : Boolean := True;   -- type Boolean is (True, False);
defined in Standard
begin
   Text_Io.Put_Line ("Are you prefer Ada? " & Boolean'Image
(I_Prefer_Ada));
end Print_Enum_Values;