DEFFNleap(yr%)
 IF yr% MOD 4   THEN =FALSE
 IF yr% MOD 400 ELSE =TRUE
 IF yr% MOD 100 ELSE =FALSE
=TRUE