?? LEFT := 1, RIGHT := 110 ??

  TYPE
    nat$gt_application_buffer = record
      CASE description_kind: nat$gt_buffer_description_kind OF
      = nac$gt_fixed =
        fixed_description: nat$gt_buffer_description,
      = nac$gt_allocated =
        allocated_description: ^nlt$al_data_description,
      CASEND,
    recend,

    nat$gt_buffer_description_kind = (nac$gt_fixed, nac$gt_allocated),

    nat$gt_buffer_description = record
      current_lowerbound: 0 .. nac$max_data_fragment_count * nac$max_data_fragment_count,
      data_length: nat$data_length,
      fragment: array [1 .. nac$gt_fixed_fragments] of nat$data_fragment,
    recend;

    CONST
      nac$gt_fixed_fragments = 2;

*copyc nat$data_fragments
*copyc nlt$al_data_description
