
  FUNCTION [INLINE] nlp$timer_expired
    (    current_time: integer;
         timer: nlt$timer): boolean;

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??
*copy nlh$timer_expired

    nlp$timer_expired := (timer.selected AND (current_time > timer.expiration_time));

  FUNCEND nlp$timer_expired;
*copyc nlt$timer
?? POP ??
