mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Leap-year/BBC-BASIC/leap-year-2.basic

6 lines
104 B
Plaintext
Raw Permalink Blame History

DEFFNleap(yr%)
IF yr% MOD 4 THEN =FALSE
IF yr% MOD 400 ELSE =TRUE
IF yr% MOD 100 ELSE =FALSE
=TRUE
Reference in New Issue View Git Blame Copy Permalink