19 lines
492 B
Plaintext
19 lines
492 B
Plaintext
100 REM M7(N) = N MOD 7
|
|
110 DEF FNM7(N) = N - 7*INT(N / 7)
|
|
120 :
|
|
130 REM WD(Y) = WEEKDAY OF Y-12-31, 0 = SUNDAY
|
|
140 DEF FNWD(Y) = FNM7(Y + INT(Y / 4) - INT(Y / 100) + INT(Y / 400))
|
|
150 :
|
|
160 REM LY(Y) = NONZERO IF Y IS LONG
|
|
170 DEF FNLY(Y) = (4 = FNWD(Y)) OR (3 = FNWD(Y-1))
|
|
180 :
|
|
190 PRINT CHR$(147); CHR$(18); "**** LIST OF ISO LONG YEARS ****"
|
|
200 INPUT "START YEAR"; S
|
|
210 INPUT "END YEAR"; E
|
|
220 PRINT
|
|
230 :
|
|
240 FOR Y = S TO E
|
|
250 : IF FNLY(Y) THEN PRINT Y,
|
|
260 NEXT Y
|
|
270 PRINT
|