Leap year: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 622: | Line 622: | ||
= (yr% MOD 4 = 0) AND ((yr% MOD 400 = 0) OR (yr% MOD 100 <> 0))</lang> |
= (yr% MOD 4 = 0) AND ((yr% MOD 400 = 0) OR (yr% MOD 100 <> 0))</lang> |
||
<lang bbcbasic>DEFFNleap(yr%) |
|||
IF yr% MOD 4 THEN =FALSE |
|||
IF yr% MOD 400 ELSE =TRUE |
|||
IF yr% MOD 100 ELSE =FALSE |
|||
=TRUE</lang> |
|||
==={{header|Commodore BASIC}}=== |
==={{header|Commodore BASIC}}=== |