Day of the week: Difference between revisions

→‎{{header|Tiny BASIC}}: Works with (Tom Pittman's) TinyBasic.
m (→‎{{header|GW-BASIC}}: Works with BASICA.)
(→‎{{header|Tiny BASIC}}: Works with (Tom Pittman's) TinyBasic.)
Line 1,086:
 
==={{header|Tiny BASIC}}===
{{works with|TinyBasic}}
<syntaxhighlight lang="tinybasicbasic">10 REM Day of the week
LET Y = 2007
20 LET MY = 122007
30 LET DM = 2512
40 LET YD = 200725
10 IF Y = 2122 THEN END
50 LETIF Y = Y2122 +THEN 1END
60 LET Y = GOSUBY 100+ 1
70 GOSUB 200
IF Z = 0 THEN PRINT Y
80 IF Z = GOTO0 10THEN PRINT Y
90 GOTO 50
 
100170 REM CALCULATECalculate DAYday OFof WEEKweek Z GIVENgiven
180 REM YEARyear Y, MONTHmonth M, ANDand DAYday D
190 REM SUNDAYSunday = 0, SATURDAYSaturday = 6
200 IF M < 3 THEN LET Y = Y - 1
210 IF M < 3 THEN LET M = M + 12
220 LET Z = Y + Y / 4 - Y / 100 + Y / 400
230 LET Z = Z + D + (153 * M + 8) / 5
240 LET Z = Z - 7 * (Z / 7)
250 RETURN</syntaxhighlight>
{{out}}
<pre>2011
511

edits