RosettaCodeData/Task/Leap-year/BBC-BASIC/leap-year-2.basic
2023-07-01 13:44:08 -04:00

5 lines
104 B
Text

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