XProfan

nProc date.isLeapYear(long yr) {

    return iff((((yr mod 4) = 0  & (yr mod 100) <> 0) | ((yr mod 400) = 0)),1,0)

}

Def IsLeapYear(1) If ((((%(1) MOD 4) = 0  & (%(1) MOD 100) <> 0) | ((%(1) MOD 400) = 0)),1,0)