Day of the week: Difference between revisions
m
→{{header|Commodore BASIC}}: Improve function names
m (→{{header|Commodore BASIC}}: Fix typo.) |
m (→{{header|Commodore BASIC}}: Improve function names) |
||
Line 590:
110 REM MODULO FUNCTION (USES CALLER'S Y AS DIVIDEND)
120 DEF FNYM(D) = Y - D * INT(Y/D)
130 REM
140 DEF
150 REM
160 DEF FNLY(Y) =
170 REM RATA DIE OF 31 DEC Y (CAN BE TAKEN MODULO 7
180 DEF FNRD(Y) = 365 * Y + INT(Y/4) - INT(Y/100) + INT(Y/400)
190 REM TRUE IF THE GIVEN RD IS A SUNDAY
200 DEF FND7(Y) =
210 REM TRUE IF CHRISTMAS FALLS ON A SUNDAY
220 DEF FNXS(Y) = FND7(FNRD(Y) - 6):REM CHRISTMAS IS 6 DAYS BEFORE THE END OF THE YEAR
230 REM TRY OUR TARGET YEARS AND OUTPUT THE ONES THAT MATCH
Line 605:
260 : IF FNXS(Y) THEN PRINT Y,:REM PRINT YEARS IN COLUMNS
270 NEXT Y
280 PRINT
</lang>
{{Out}}
| |||