modular_mod_arthimetic.adb

This contains the following topics and more ADA versus C and Cplus plus Ada_training ADA 2005 for

with Text_IO;             use Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Ada.Float_Text_IO;   use Ada.Float_Text_IO;
procedure modular_mod_arthimetic is
   type byte is mod 256;
   count : byte := 255;
   -- package instantiation
   --package by_io is new text_io.enumeration_io(byte);
  -- package int_io is new text_io.integer_io(integer); --for integer
begin
   count := count + 1;
   New_Line;
   Put (byte'Image (count));
   New_Line;
   --count := count + 2;-- here 0+2 =2
   --by_io.put(count);
end modular_mod_arthimetic;