20 LY=0
30 D= VAL(MID$(CC$,INT(YR/100)+2,1))
35 L= YR - INT(YR/100)*100
40 D=D+L:D= D + INT(L/4)+VAL(MID$(MC$,MN,1))
50 D=D+1:IF (YR/4-INT(YR/4))=0 AND MN<3THEN D=D-1:LY=1
60 D=D - INT(D/7)*7+1:IF D>6 THEN D=0
70 PRINT CHR$(19):PRINT:PRINT:PRINT:PRINT:C=D:A=0:R$=CHR$(13)
75 M= VAL(MID$(MD$,(MN-1)*2+1,2)):IF LY=1 AND MN=2 THEN M=M+1
80 PRINT SPC(2+5*C);:FOR L=C TO 6:A=A+1:IF A>M THEN L=7:GOTO100
85 IF A>M THEN L=7:GOTO100
87 IF A=DY THEN PRINTCHR$(28);
90 PRINT RIGHT$(" "+STR$(A),2);SPC(3);
100 PRINT CHR$(5);:NEXT:PRINT R$;R$:C=0:IF A<M THEN 80
110 PRINT CHR$(19):FOR L=1 TO 22:PRINT:NEXT:PRINT SPC(13);"PRESS  ANY KEY"
120 GETA$:IFA$=""THEN120
130 RETURN
999 END