Most years have 52 weeks, some have 53, according to ISO8601.



Task

Write a function which determines if a given year is long (53 weeks) or not, and demonstrate it.




 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