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

  TYPE
    nat$gt_event_queue = record
      beginning: ^nat$gt_event_element,
      ending: ^nat$gt_event_element,
    recend,

    nat$gt_event_element = record
      data_length: integer,
      event: nlt$ta_event,
      next_event: ^nat$gt_event_element,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc nlt$ta_event
?? POP ??
