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

  TYPE
    nat$cn_sap_list = packed record
      access_control: ALIGNED [0 MOD 8] nlt$access_control,
      active_sap_list: ^nat$cn_active_sap_list,
    recend,

    nat$cn_active_sap_list = array [1 .. 10] of nat$cn_active_sap_list_entry,

    nat$cn_active_sap_list_entry = record
      in_use: boolean,
      link_access_sap_open: boolean,
      sap_id: nat$cn_sap_id,
      event_processor: nat$network_procedure,
    recend;

*copyc nat$cn_interface
*copyc nlt$access_control
*copyc nlt$cn_event_processor
*copyc ost$name
*copyc nat$network_procedure
