Day of the week: Difference between revisions
Applesoft BASIC
Not a robot (talk | contribs) (Add CLU) |
(Applesoft BASIC) |
||
Line 570:
Dec 25, 2118</lang>
==={{header|Applesoft BASIC}}===
{{trans|Commodore BASIC}}
<lang gwbasic> 1 DEF FN D7(N) = N - 7 * INT (N / 7)
2 DEF FN RD(Y) = 365 * Y + INT (Y / 4) - INT (Y / 100) + INT (Y / 400)
3 PRINT "YEARS WITH CHRISTMAS ON A SUNDAY" CHR$ (13)
4 FOR Y = 2008 TO 2121
5 IF NOT FN D7( FN RD(Y) - 6) THEN PRINT Y,
6 NEXT Y</lang>
==={{header|Atari BASIC}}===
{{trans|Commodore BASIC}}
| |||