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

  TYPE
    nat$application_buffer = record
      CASE description_kind: nat$buffer_description_kind OF
      = nac$fixed =
        fixed_description: nat$buffer_description,
      = nac$allocated =
        allocated_description: ^nlt$al_data_description,
      CASEND,
    recend,

    nat$buffer_description_kind = (nac$fixed, nac$allocated),

    nat$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$fixed_fragments] of nat$data_fragment,
    recend;

    CONST
      nac$fixed_fragments = 4;

*copyc nat$data_fragments
*copyc nlt$al_data_description
