15 lines
388 B
Plaintext
15 lines
388 B
Plaintext
10 CLS
|
|
20 REM WD(Y) = WEEKDAY OF Y-12-31, 0 = SUNDAY
|
|
30 DEF FNWD(Y) = (Y + INT(Y/4) - INT(Y/100) + INT(Y/400)) MOD 7
|
|
40 REM LY(Y) = NONZERO IF Y IS LONG
|
|
50 DEF FNLY(Y) = (4 = FNWD(Y)) OR (3 = FNWD(Y-1))
|
|
60 PRINT "*** LIST OF ISO LONG YEARS ***"
|
|
70 INPUT "START YEAR ";S
|
|
80 INPUT " END YEAR ";E
|
|
90 PRINT
|
|
100 FOR Y = S TO E
|
|
110 IF FNLY(Y) THEN PRINT Y,
|
|
120 NEXT Y
|
|
130 PRINT
|
|
140 END
|