Day of the week: Difference between revisions

Content added Content deleted

Inline

@@ Line 506: / Line 506: @@
 =={{header|BASIC}}==
 <b>Works with:</b> FreeBASIC <br>
 This program needs the modulo function because there is a bug in the built in modulo function.
@@ Line 554: / Line 555: @@
 Dec 25, 2112
 Dec 25, 2118</lang>
+==={{header|Atari BASIC}}===
+{{trans|Commodore BASIC}}
+<lang basic>100 REM FIND YEARS WITH SUNDAY CHRISTMAS
+PRINT CHR$(125);"SUNDAY CHRISTMASES 2008-2121:":PRINT
+FOR Y=2008 TO 2121
+EOY=Y*365+INT(Y/4)-INT(Y/100)+INT(Y/400)
+XMAS=EOY-6
+DOW=XMAS-7*INT(XMAS/7)
+IF DOW THEN 220
+PRINT Y;
+FOUND=FOUND+1
+IF FOUND<3 THEN PRINT ,:GOTO 220
+FOUND=0
+PRINT
+NEXT Y
+IF FOUND THEN PRINT</lang>
+{{Out}}
+<pre>  SUNDAY CHRISTMASES 2008-2121
+2016          2022
+2039          2044
+2061          2067
+2078          2089
+2101          2107
+2118</pre>
 ==={{header|BaCon}}===
@@ Line 599: / Line 627: @@
 DEF FNXS(Y) = FND7(FNRD(Y) - 6):REM 6 DAYS BEFORE THE END OF THE YEAR
 REM TRY OUR TARGET YEARS AND OUTPUT THE ONES THAT MATCH
-PRINT "THE FOLLOWING YEARS HAVE CHRISTMAS ON A SUNDAY:"
+PRINT "SUNDAY CHRISTMASES 2008-2121:";CHR$(13)
 FOR Y=2008 TO 2121
 : IF FNXS(Y) THEN PRINT Y,:REM PRINT YEARS IN COLUMNS
@@ Line 606: / Line 634: @@
 {{Out}}
+<pre>SUNDAY CHRISTMASES 2008-2121:
-<pre>RUN
-THE FOLLOWING YEARS HAVE CHRISTMAS ON A
-SUNDAY:
 2016      2022      2033
 2044      2050      2061
 2072      2078      2089
 2101      2107      2112
+</pre>
-READY.
-</pre>
 ==={{header|FreeBASIC}}===