Initial data commit

Task/Long-year/MSX-Basic/long-year.basic

@@ -0,0 +1,14 @@
+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