9 lines
246 B
Text
9 lines
246 B
Text
AUTO
|
|
REM Is% a non-proleptic Gregorian year y$<=9999 leap (0) 0R ordinary (1)?
|
|
DEF FN Is%(y$)
|
|
LOC l%,c%,y%
|
|
LET c%=y$(1 TO 2)&"00" : y%=y$
|
|
LET l%=c% MOD 16 AND y$(3 TO 4)="00" OR y% MOD 4
|
|
RET l%
|
|
END DEF Is%
|
|
ctrl+space
|