Anonymous user
Day of the week: Difference between revisions
m
→{{header|BASIC}}: corrected formatting error, I hope
m (→{{header|AppleScript}}: (light refactor)) |
m (→{{header|BASIC}}: corrected formatting error, I hope) |
||
Line 689:
AUTO 100,10
REM
LOCal y$,m%,d%,i$,n%,w%
LET m%=12 : d%=25
REM
LET i$=m%*256+ 19300 : n%=i$(2TO 3)+ d%
REM
FOR count=S TO O
LET y$=count : w%=(y$(1TO 2)&"32"DIV 16+ count DIV 4+ count+ n%)MOD 7
REM or
IF w%=0 THEN PRINT count : count = count+ 4
END FOR count
{{keypress|ctrl|space}}
</lang>
=={{header|Batch File}}==
<lang dos>
:: Day of the Week task from Rosetta Code
:: Batch File Implementation
::
|