1 DEFINT D-M,Y : N=1 : INPUT Y,M,D : IF Y<1583 THEN RUN ELSE Y.=VAL(RIGHT$(DATE$,4)) : DIM M$(12),D(12) : FOR L=1 TO 12 : READ M$(L),D(L) : NEXT : GOSUB 4 : FOR L=0 TO 6 : READ W$(L) : NEXT : GOSUB 5 : N=0 : D=D-1
2 FOR L=1 TO 500 : D=D+1 : IF D>D(M) THEN D=1 : M=M+1 : IF M>12 THEN M=1 : Y=Y+1 : GOSUB 4
3 NEXT : N=N+500 : IF Y<Y. GOTO 2 ELSE GOSUB 5 : IF Y=Y. GOTO 2 ELSE RUN ' d.rychkov
4 IF Y/4<>Y\4 XOR Y/100=Y\100 AND Y/400<>Y\400 THEN D(2)=28 : RETURN ELSE D(2)=29 : RETURN
5 L=Y-1 : G=L+L\4-L\100+L\400+D : FOR L=1 TO M-1 : G=G+D(L) : NEXT : ? N Y M$(M) D W$(G MOD 7) : RETURN : DATA JAN,31,FEB,,MAR,31,APR,30,MAY,31,JUN,30,JUL,31,AUG,31,SEP,30,OCT,31,NOV,30,DEC,31,SU,MO,TU,WE,TH,FR,SA