attributes_value_n_position.adb

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

with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
procedure attributes_value_n_position is
begin
   Put ("Character 'A' has internal code :");
   Put (Character'Pos ('A'));
   New_Line;
   Put ("Code 99 represents character: ");
   Put (Character'Val (99));
   New_Line;
end attributes_value_n_position;