Day of the week: Difference between revisions
add Tiny BASIC
(→{{header|Commodore BASIC}}: Fix line numbers) |
(add Tiny BASIC) |
||
Line 791:
ctrl+space
</lang>
{{out}}
<pre>2011
2016
2022
2033
2039
2044
2050
2061
2067
2072
2078
2089
2095
2101
2107
2112
2118</pre>
==={{header|Tiny BASIC}}===
<lang tinybasic>
LET Y = 2007
LET M = 12
LET D = 25
10 IF Y = 2122 THEN END
LET Y = Y + 1
GOSUB 100
IF Z = 0 THEN PRINT Y
GOTO 10
100 REM CALCULATE DAY OF WEEK Z GIVEN
REM YEAR Y, MONTH M AND DAY D
REM SUNDAY = 0, SATURDAY = 6
IF M < 3 THEN LET Y = Y - 1
IF M < 3 THEN LET M = M + 12
LET Z = Y + Y/4 - Y/100 + Y/400
LET Z = Z + D + (153*M + 8)/5
LET Z = Z - 7*(Z/7)
RETURN</lang>
{{out}}
<pre>2011
| |||