dANYDAY n 1100L x" ANY DAY" #T=2:1400x:2800 :"WHAT IS TODAY'S DATE" :"DAY MONTH YEAR" :"1-31 1-12 19--" 4X=0:Y=8:1700:21004:D1=K )X=6:1700:21004:M1=K *X=15:1700:21004:Y1=K !Y1<100d Y1=1900l+Y1 "2800 ::"DATE OF INTEREST" :"DAY MONTH YEAR" .X=0:Y=7:1700:21004 /D2=K:X=7:1700:21004:M2=K *X=15:1700:21004:Y2=K !Y2<100d Y2=1900l+Y2 2800 ::  D(12 ) "Z=1 12 :D(Z):Z ,t0,31,59;,90Z,120x,151,181,212,243,273,3040,334N 6$Y3=Y1-1900l:Y4=Y2-1900l @(T1=365m*Y3+(Y3/4)+D(M1)+D1 J(T2=365m*Y4+(Y4/4)+D(M2)+D2 T6Y3=4*(Y3/4) M1<3 T1=T1-1 ^6Y4=4*(Y4/4) M2<3 T2=T2-1 h:"TIME INTERVAL IS " r:;(T2-T1);" DAYS" | T=(T2-T1) Y=(T/365m) T=T-365m*Y M=(T/30.5t) D=(T-30.5t*M) :"WHICH IS": (Y);" YEARS ";M;" MONTHS" "AND ";D;" DAYS": ":(D2);"/";(M2);"/";(Y2);" "; T1T2 "WAS" $R=T2-7*(T2/7)+1 I=1 R:D$:I  :"A ";D$ : "SUNDAY","MONDAY","TUESDAY" &,"WEDNESDAY","THURSDAY","FRIDAY","SATURDAY" SPECTRUM SUBROUTINES L1W=32 :D=22:F=8:1200: :8,0;: R=(N*+1): xZ=1 200*T:Z: ""1500 =""1510 G$=: @K$=:  Y,X;:  (X);: l(11 );: (9 );: 42200:K=("0"+K$): K$="" !1500:(G$)=13 : ,(G$)12 K$=K$+G$:G$;:2210 (K$)=0 2210 @(8);" ";(8);:K$=K$( ̱(K$)-1):2210 : `.1}L,Z/10 -6: R$=(R+64@): ( P$=K$(P): 2600( :A=(P$): : TV$(26): W$(60<,26):  GG=(G$): 6