10 INPUT "YEAR?",Y,"MONTH?",M
   20 T=INT (M/10):U=M-10T:O=Y
   30 Z=M-INT ((M-1)/7)*7:Z=30+Z-INT (Z/2)*2
   40 IF M=2 LET Z=29-((Y/4<>INT (Y/4))+((Y/100=INT (Y/100))*(Y/400<>INT (Y/400))))
   50 IF M>2 LET M=M+1: GOTO 70
   60 M=M+13:Y=Y-1
   70 V=INT (365.25Y)+INT (30.6M)-621049
   80 V=1+INT (V/7)*7-V
   90 A$(27)="0":A$(28)="1":A$(29)="2":A$(30)="3":A$(31)="4"
  100 A$(32)="5":A$(33)="6":A$(34)="7":A$(35)="8":A$(36)="9"
  110 A$=A$(T+27):B$=A$(U+27)
  120 PRINT "    ";USING "#####";O;USING ;"-";A$;B$
  130 PRINT "  M T W T F S S"
  140 FOR O=1 TO 13 STEP 2
  150 T=INT (ABS V/10):U=ABS V-10T:A$(O)=A$(T+27):A$(O+1)=A$(U+27)
  160 IF (V<10)+(V>Z) LET A$(O)=" "
  170 IF (V<1)+(V>Z) LET A$(O+1)=" "
  180 V=V+1
  190 NEXT O
  200 PRINT " ";A$;B$;C$;D$;E$;F$;G$;H$;I$;J$;K$;L$;M$;N$
  210 IF V<=Z THEN 140
  220 PRINT " "