Day of the week: Difference between revisions

Content added Content deleted
(→‎{{header|Atari BASIC}}: Add implementation)
m (→‎{{header|Commodore BASIC}}: Reformat and retitle output.)
Line 627: Line 627:
200 DEF FNXS(Y) = FND7(FNRD(Y) - 6):REM 6 DAYS BEFORE THE END OF THE YEAR
200 DEF FNXS(Y) = FND7(FNRD(Y) - 6):REM 6 DAYS BEFORE THE END OF THE YEAR
210 REM TRY OUR TARGET YEARS AND OUTPUT THE ONES THAT MATCH
210 REM TRY OUR TARGET YEARS AND OUTPUT THE ONES THAT MATCH
220 PRINT "SUNDAY CHRISTMASES 2008-2121:";CHR$(13)
220 Y1 = 2008: Y2 = 2121
230 PRINT CHR$(147);"CHRISTMASES ON SUNDAY";Y1;"-";Y2;CHR$(13)
230 FOR Y=2008 TO 2121
240 FOR Y=2008 TO 2121
240 : IF FNXS(Y) THEN PRINT Y,:REM PRINT YEARS IN COLUMNS
250 : IF FNXS(Y) THEN PRINT Y,:REM PRINT YEARS IN COLUMNS
250 NEXT Y
260 PRINT</lang>
260 NEXT Y
270 PRINT
</lang>


{{Out}}
{{Out}}
<pre>SUNDAY CHRISTMASES 2008-2121:
<pre>CHRISTMASES ON SUNDAY 2008 - 2121:


2011 2016 2022 2033
2011 2016 2022 2033
Retrieved from "https://rosettacode.org/wiki/Day_of_the_week"