attributes_value_n_position.adb.npp

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;