Long year: Difference between revisions
→{{header|Commodore BASIC}}: Simplify weekday calc; don't need actual RD value
m (→{{header|Forth}}: Add ? to predicate word.) |
(→{{header|Commodore BASIC}}: Simplify weekday calc; don't need actual RD value) |
||
Line 579:
=={{header|Commodore BASIC}}==
<lang basic>100 REM
110 DEF
120 :
130 REM WD(
140 DEF FNWD(
150 :
160 REM LY(Y) = NONZERO IF Y IS LONG
170 DEF FNLY(Y) = (4 = FNWD
180 :
190 PRINT CHR$(147); CHR$(18); "**** LIST OF ISO LONG YEARS ****"
Line 600:
{{Out}}
<pre>**** LIST OF ISO LONG YEARS ****
START YEAR? 1995
| |||