10 lines
399 B
Plaintext
10 lines
399 B
Plaintext
10 DEF FN M7(N) = N - 7 * INT (N / 7)
|
|
20 DEF FN WD(Y) = FN M7(Y + INT (Y / 4) - INT (Y / 100) + INT (Y / 400))
|
|
30 DEF FN LY(Y) = (4 = FN WD(Y)) OR (3 = FN WD(Y - 1))
|
|
40 HOME : INVERSE : PRINT "**** LIST OF ISO LONG YEARS ****": NORMAL
|
|
50 INPUT "START YEAR? ";S
|
|
60 INPUT "END YEAR? ";E
|
|
70 PRINT : FOR Y = S TO E
|
|
80 IF FN LY(Y) THEN PRINT S$Y;:S$ = " "
|
|
90 NEXT Y
|