1  'Modified to advance by Charles
2  'Dailey. 8/88.
10 CLEAR1024:ONERRORGOTO130
20 GOSUB180:D$="":DA%=0
21 IFQ=0THEN23
22 PRINT:INPUT" Month/year";D$
23 IFD$=""THEND$=DATE$:DA%=VAL(MID$(D$,4,2)):D$=LEFT$(D$,3)+RIGHT$(D$,2):IFQTHENMENU
30 L%=INSTR(D$,"/"):IFL%<2ORL%>3ORL%=LEN(D$)THENBEEP:GOTO20
40 W=VAL(LEFT$(D$,L%-1))
41 V=VAL(RIGHT$(D$,LEN(D$)-L%)):X=1:IFW<1ORW>12ORV<0THENBEEP:GOTO20
50 IFV<100THENV=V+1900
58 RESTORE
60 ONERRORGOTO0:GOSUB150:FORI%=1TOW:READM$,MD%:NEXTI%:IFW=2THENMD%=MD%-(0=VMOD4)+(0=VMOD100)-(0=VMOD400)
70 CLS:PRINTTAB(7);M$;" ";V:PRINTTAB(6);RV$" Sun Mon Tue Wed Thu Fri Sat "NV$:D%=D-7*INT(D/7):PRINTTAB(6);SPACE$(4*D%);:FORI%=1TOMD%:IFI%=DA%THENPRINTRV$;
80 PRINTUSING"####";I%;:IFI%=DA%THENPRINTNV$;
90 D%=D%+1:IFD%>6ANDI%<>MD%THENPRINT:PRINTTAB(6);:D%=0
100 NEXTI%:LINE(36,14)-(36,63):LINE(209,14)-(209,63):LINE(36,63)-(209,63)
102 PRINT@117,"-":PRINT@156,"Last"
103 PRINT@237,"=":PRINT@276,"Next";
110 C$=INKEY$:IFC$=""THEN110
120 CLS:Q=1
121 IFC$="="THENC$="":DA%=0:W=W+1
122 IFC$="-"THENC$="":DA%=0:W=W-1
123 IFC$=""THENGOSUB190:GOTO50
124 GOTO20
130 IFERL<>60THENONERRORGOTO0:RESUME
140 BEEP:RESUME20
150 Y=-INT((14-W)/12):Z=X-32074+INT(1461*(V+4800+Y)/4):Z=Z+INT(367*(W-2-12*Y)/12):D=Z-INT(3*INT((V+4900+Y)/100)/4):RETURN
160 DATA January,31,February,28,March,31,April,30,May,31,June,30,July,31,August,31,September,30,October,31,November,30,December,31
180 RV$=CHR$(27)+"p":NV$=CHR$(27)+"q":RETURN
190 IFW=13THENW=1:V=V+1:GOTO195
192 IFW=0THENW=12:V=V-1
195 RETURN