1220 PRINT@280,"This Year Any Year Find Date Menu";:GOSUB120:LINE(57,55)-(57,63):LINE(117,55)-(117,63):LINE(177,55)-(177,63):RETURN
1300 CLS:PRINT@0,CHR$(27);"p Weekdays ";CHR$(27);"q";:PRINT:PRINT@82,"1. Days between 5. Year given Day";:PRINT@122,"2. Wkdays between 6. Date given Day"
1310 PRINT@162,"3. # of times 8. Date Menu";:PRINT@202,"4. Nth Occurrence";:PRINT@280," Press function keys ";:GOSUB120:RETURN
1500 CLS:PRINT@0,CHR$(27);"p Conversions ";CHR$(27);"q";:PRINT@280,"Gregorian Julian Day of Yr Date Menu";:GOSUB120:LINE(58,55)-(58,63):LINE(115,55)-(115,63):LINE(178,55)-(178,63):RETURN
13480 K=200:BEEP:BEEP:K$="There aren't"+STR$(N)+" "+DY$(W)+"s in "+MN$(M):GOSUB250:GOTO13495
13490 Z=D:GOSUB27100:K=200:K$="It's on the "+R$:GOSUB250
13495 GOSUB260:GOSUB1300:RETURN
13500 GOSUB200:GOSUB210:K=40:K$="Given Date occurs on given day":GOSUB250:Q1=91:GOSUB24500:Q1=139:PRINT@127,"Start date :";:GOSUB20000:A=M:F=0:F1=1:GOSUB13510:GOSUB260:GOSUB1300:RETURN
13530 X=INT((Y-1-(4*X))/28)*28+(4*X)+F:F=1:GOSUB200:Z=D:GOSUB27100:K=40:K$=DY$(W)+" will be on "+MN$(A)+" "+R$+" in":GOSUB250:
13540 GOSUB13570:X=X+6:IFF=>13THENRETURN
13542 GOSUB13570:X=X+11:IFF=>13THENRETURN
13544 GOSUB13570:X=X+6:IFF>=13THENRETURN
13546 GOSUB13570:X=X+5:IFF<12THEN13540
13550 RETURN
13570 IF X>=Y THEN IF(A*D<>58)OR(X/4=INT(X/4))THENGOSUB13580:F=F+1
13572 RETURN
13580 IFF<4THENF1=(F*40)+86
13582 IFF>3ANDF<7THENF1=((F-3)*40)+93
13584 IFF>6ANDF<10THENF1=((F-6)*40)+100
13586 IFF>9THENF1=((F-9)*40)+107
13590 BEEP:PRINT@F1,STR$(X);:RETURN
13600 GOSUB200:K=40:K$="Dates of given day of the week":GOSUB250:Q1=89:GOSUB24500:Q1=138:PRINT@128,"Start Date : ";:GOSUB20000:GOSUB200:K=40:K$=DY$(W)+" falls on ":GOSUB250:GOSUB13602:GOSUB260:GOSUB1300:RETURN
15500 GOSUB200:GOSUB27000:K=80:K$=DY$(D2)+", "+S1$:GOSUB250:GOSUB27200:K=120:K$=J$+" Julian Days":GOSUB250:GOSUB27100:K=159:K$=R$+" day of the year":GOSUB250:K=200:K$=STR$(W)+" remain in the year":GOSUB250:GOTO15010