Jump to content

Calendar - for "REAL" programmers: Difference between revisions

Calendar - for "REAL" programmers (view source)

Revision as of 19:28, 15 December 2017

No change in size ,  6 years ago
m
→‎{{header|BaCon}}
Line 529:
Y$ = "1969"
' Leap year
INCR MON[21], IIF(MOD(VAL(Y$), 4) = 0 OR MOD(VAL(Y$), 100) = 0 AND MOD(VAL(Y$), 400) <> 0, 1, 0)
PRINT ALIGN$("[SNOOPY HERE]", 132, 2)
PRINT ALIGN$(Y$, 132, 2)
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/184787"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information