with Ada.Characters.Latin_1;

package P is

   Data_Link_Escape      : Character renames Ada.Characters.Latin_1.DLE;
   Start_Of_Transmission : Character renames Ada.Characters.Latin_1.STX;
   Carriage_Return       : Character renames Ada.Characters.Latin_1.CR;
   Line_Feed             : Character renames Ada.Characters.Latin_1.LF;
   End_Of_Transmission   : Character renames Ada.Characters.Latin_1.ETX;

   Data_Link_Escape_Substitution      : constant Character := 'D';
   Start_Of_Transmission_Substitution : constant Character := 'S';
   Carriage_Return_Substitution       : constant Character := 'R';
   Line_Feed_Substitution             : constant Character := 'L';
   End_Of_Transmission_Substitution   : constant Character := 'E';

end P;