Day of the week: Difference between revisions
Content added Content deleted
(Day of the week in various dialects BASIC (BASIC256, QBasic, True BASIC and XBasic)) |
(Day of the week in Chipmunk Basic) |
||
| Line 649: | Line 649: | ||
ENDIF |
ENDIF |
||
NEXT</syntaxhighlight> |
NEXT</syntaxhighlight> |
||
==={{header|Chipmunk Basic}}=== |
|||
{{works with|Chipmunk Basic|3.6.4}} |
|||
{{trans|Applesoft BASIC}} |
|||
<syntaxhighlight lang="qbasic">10 CLS : REM 10 HOME for Applesoft BASIC |
|||
20 DEF fnd7(n) = n - 7 * INT (n / 7) |
|||
30 DEF fnrd(y) = 365 * y + INT (y / 4) - INT (y / 100) + INT (y / 400) |
|||
40 PRINT "YEARS WITH CHRISTMAS ON A SUNDAY" CHR$(13) |
|||
50 FOR y = 2008 TO 2121 |
|||
60 IF NOT fn d7(fn rd(y)-6) THEN PRINT y, |
|||
70 NEXT y</syntaxhighlight> |
|||
{{out}} |
|||
<pre>YEARS WITH CHRISTMAS ON A SUNDAY |
|||
2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118 </pre> |
|||
==={{header|Commodore BASIC}}=== |
==={{header|Commodore BASIC}}=== |
||