
  PROCEDURE [INLINE] nlp$select_timer
    (    duration: integer;
         count: nlt$timer_count;
     VAR timer: nlt$timer);

?? PUSH (LISTEXT := ON) ??
*copy nlh$select_timer

    timer.expiration_time := (#FREE_RUNNING_CLOCK (0) + duration);
    timer.count := count;
    timer.selected := TRUE;

  PROCEND nlp$select_timer;
*copyc nlt$timer
?? POP ??
