105 RESTORE 200¢107 FOR X=%1 TO M:READ T:NEXT X¢110 Y=J:N=M:IF M<>%2 THEN 117¢112 A=Y MOD 4:IF Y MOD 100=%0 THEN A=Y MOD 400¢115 IF A=%0 THEN T=29¢117 IF M<=%2 THEN Y=Y-%1:N=N+12¢120 A=INT(Y/100):B=%2-A+INT(A/4)¢122 JD=INT(365.25*Y)+INT(30.6001*(N+%1))+%1+B+1720994.5:JD=INT(JD+%1):Y=JD-INT(JD/7)*7:X=5¢
