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

  TYPE
    nlt$sl_event_processor = ^procedure (xns_connection: ^nlt$cl_connection;
          event: nlt$sl_event;
      VAR inventory_report: nlt$ta_inventory_report);

*copyc nlt$sl_event
*copyc nlt$ta_inventory_report
*copyc nlt$cl_connection
