k_return_line_feed= k_return+ k_line_feed;
          k_new_line= k_return+ k_line_feed;

          k_word_max= 65534;
         
    type t_characters= array[0..0] of Char;
         t_pt_characters= ^t_characters;

         t_pt_character= ^Char;

         t_pt_byte= ^Byte;

         t_bytes= array[0..0] of Byte;
         t_pt_bytes= ^t_bytes;

         t_oa_bytes= array of Byte;
         t_oa_characters= array of Char;

         t_handle_procedure= procedure(p_pt: Pointer);

         t_set_of_characters= Set of Char;

         t_byte_date= packed record
                               m_day, m_month, m_year: byte;
                             end;
         t_date_4= packed record
                            m_day, m_month: byte;
                            m_year: Integer;
                          end;