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