Anonymous user
Leap year: Difference between revisions
→{{header|BBC BASIC}}
No edit summary |
|||
Line 622:
= (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}}===
| |||