Anonymous user
Day of the week: Difference between revisions
→{{header|Minimal BASIC}}: Added
Walterpachl (talk | contribs) m (→{{header|ooRexx}}: add wd.rex) |
(→{{header|Minimal BASIC}}: Added) |
||
Line 762:
180 LET DAYWEEK=W-7*INT(W/7)
190 END DEF</lang>
==={{header|Minimal BASIC}}===
<lang gwbasic>
10 REM Find years with Sunday Christmas
20 LET F = 2008
30 LET T = 2121
40 PRINT "Sunday Christmases"; F; "-"; T
50 PRINT
60 FOR Y = F TO T
70 LET E = Y*365+INT(Y/4)-INT(Y/100)+INT(Y/400)
80 LET X = E-6
90 LET D = X-7*INT(X/7)
100 IF D <> 0 THEN 120
110 PRINT Y,
120 NEXT Y
130 PRINT
140 END
</lang>
==={{header|Sinclair ZX81 BASIC}}===
|