
  TYPE
    nlt$tcpaa_event_processor = ^procedure (cl_connection: ^nlt$cl_connection;
          event: nlt$tcpaa_event;
      VAR inventory_report: integer);

*copyc nlt$cl_connection
*copyc nlt$tcpaa_event
