Day of the week: Difference between revisions

m
→‎{{header|Commodore BASIC}}: Reformat and retitle output.
(→‎{{header|Atari BASIC}}: Add implementation)
m (→‎{{header|Commodore BASIC}}: Reformat and retitle output.)
Line 627:
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
220 PRINTY1 "SUNDAY CHRISTMASES= 2008-2121:";CHR$(13) Y2 = 2121
230 PRINT CHR$(147);"CHRISTMASES ON SUNDAY";Y1;"-";Y2;CHR$(13)
230240 FOR Y=2008 TO 2121
240250 : IF FNXS(Y) THEN PRINT Y,:REM PRINT YEARS IN COLUMNS
250 NEXT Y
260 PRINT</lang>NEXT Y
270 PRINT
</lang>
 
{{Out}}
<pre>SUNDAY CHRISTMASES ON SUNDAY 2008 - 2121:
 
2011 2016 2022 2033
1,480

edits