Wikibook Ada Programming Code

--  {{Ada/Sourceforge|convert_evaluate_as.adb}}

pragma License (Gpl);
pragma Ada_95;

with Ada.Text_IO;

procedure Convert_Evaluate_As is
   type Byte is mod 256;

   package T_IO renames Ada.Text_IO;
   package M_IO is new Ada.Text_IO.Modular_IO (Byte);

   A : constant Byte := Byte'(-1);
begin
   T_IO.Put ("A = ");
   M_IO.Put (Item => A, Width => 5, Base => 10);
end Convert_Evaluate_As;

----------------------------------------------------------------------------
--  $Author$
--
--  $Revision$
--  $Date$
--
--  $Id$
--  $HeadURL$
----------------------------------------------------------------------------
--  vim:  textwidth=0 nowrap tabstop=8 shiftwidth=3 softtabstop=3 expandtab
--  vim:  filetype=ada encoding=utf-8 fileformat=unix foldmethod=indent