Anonymous user
Day of the week: Difference between revisions
m
→{{header|QL SuperBASIC}}
Line 700:
REM or by using w%=(y$(1TO 2)&"16"DIV 16+ count DIV 4+ count)MOD 7 as
REM further optimisation beyond skipping irrelevant years below
IF w%=0 THEN PRINT count : count = count+ 4
END FOR count
END DEFine
{{keypress|ctrl|space}}
</lang>
| |||