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(ABSV/10):U=ABSV-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 " "