
  FUNCTION [INLINE] pmp$this_is_a_leap_year (year: integer): boolean;

?? PUSH (LISTEXT := ON) ??

    pmp$this_is_a_leap_year := (((year MOD 4) = 0) AND ((year MOD 100) <> 0) OR (year MOD 400 = 0));


  FUNCEND pmp$this_is_a_leap_year;
?? POP ??
