1 'CALNDR.NEC
2 '(author unknown)
10 SCREEN,0:CLEAR500:DIMN$(12),N(12)
20 DATAJanuary,31,February,28,March,31,April,30,May,31,June,30,July,31,August,31,September,30,October,31,November,30,December,31
30 FORI=1TO12:READN$(I),N(I):NEXTI:M=VAL(RIGHT$(DATE$,5)):Y=1900+VAL(DATE$):D=1:A1=M:A2=Y:A3=VAL(RIGHT$(DATE$,2))
40 IFM<3THENF=365*Y+D+31*(M-1)+INT(Y/4-.25)-INT(.75*(INT((Y-1)/100)+1))
50 IFM>2THENF=365*Y+D+31*(M-1)-INT(.4*M+2.3)+INT(Y/4)-INT(.75*(INT(Y/100)+1))
60 F=F-(INT(F/7)*7):IFF=0THENF=7
70 N(2)=28:IFM=2AND(INT(Y/4)=Y/4)THENN(2)=29
80 CLS:LOCATE2,0:PRINTN$(M):LOCATE17,0:PRINTY:LOCATE2,1:PRINT"Su Mo Tu We Th Fr Sa":L=1:FORJ=FTOF+N(M)-1:PL=79+INT((J-1)/7)*19+3*J:L1=INT(PL/40):L2=PL-L1*40
90 IFM=A1ANDY=A2ANDL=A3THENPRINTCHR$(27);"p";
100 LOCATEL2,L1:PRINTUSING"##";L;:PRINTCHR$(27);"q";:L=L+1:NEXT:LOCATE25,2:PRINT"<N>ext Month":LOCATE25,3:PRINT"<P>rev Month":LOCATE25,4:PRINT"<D>iff Month":LOCATE25,5:PRINT"<M>enu";
110 A$=INKEY$:IFA$=""THEN110
120 IFA$="N"ORA$="n"THEN170
130 IFA$="P"ORA$="p"THEN190
140 IFA$="D"ORA$="d"THENCLS:INPUT"mm/yyyy";N$(0):M=VAL(N$(0)):D=1:Y=VAL(RIGHT$(N$(0),4)):GOTO40
150 IFA$="M"ORA$="m"THENMENU
160 GOTO110
170 M=M+1:IFM=13THENM=1:Y=Y+1
180 GOTO40
190 M=M-1:IFM=0THENM=12:Y=Y-1
200 GOTO40