> Mail.lst " List message info from BASIC + Updated to list sent messages as well  ( ctrl%31,name%79:X%=ctrl%:Y%=X%256  :Close_All:: examine:  :  examine: idx%,f$ C:8:wid%=:13: "Message Date From Subject";  ,f$=gbpb8(idx%):idx%=X%!9: f$<>"":file  f$=""  :  file: type% "type%=file(f$,5): type%<>1: #date%=X%!15:in%=(f$): in%=0: ! To,Date,From - sent message ! To,From,Sent - sent message % To,From,Date - received message  No To - received message : %to$="":from$="":date$="":subj$="" A$=swap(#in%,9," ") < A$,2)="To" :to$=s(A$,4)): to$,1)=":":to$=to$,3) D A$,4)="From":from$=s(A$,6)): from$,1)=":":from$=from$,3)  A$=swap(#in%,9," ") D A$,4)="From":from$=s(A$,6)): from$,1)=":":from$=from$,3) D A$,4)="Date":date$=s(A$,6)): date$,1)=":":date$=date$,3) !& A$,4)="Date": from$<>"":to$="" "D A$,4)="Sent":date$=s(A$,6)): date$,1)=":":date$=date$,3) #D A$,2)="RE" :subj$=s(A$,4)): subj$,1)=":":subj$=subj$,3) $N A$,4)="Subj":subj$=s(A$,9)): subj$,7)="Subject":subj$=s(subj$,9)) % #in% A$="":#in%:in%=0 & date$=0: date%31:date$="xxx, "+d0(date%31,2)+" "+Mon((date%&F00)256)+" "+d0(1981+(date%&F000)4096+(date%&E0)2,4) 'date$=DateFix(date$) (to$=swap(to$,"""","") )from$=swap(from$,"""","") *%'f$;(11- f$);date$,6,11);" "; +,A$=from$,11): to$<>"":A$="To:"+to$,8) ,$ A$;(12- A$);subj$,wid%-34); - .: / DateFix(A$) 0T A$=11:=" "+A$ : 14-Nov-1985 1O A$=15:=A$,3)+","+A$,5) : Mon 15 Sep 1986 2V A$,15,1)=":": A$,18,1)=":":=" "+A$ : 21-Nov-1985 12:34:56 3L A$,5,1)=" ": A$,7,1)=" ":A$=A$,5)+"0"+A$,6): Mon, 6 Sep 2008 ... 4U A$,8,2)=" ":A$=A$,8)+"0"+A$,10) : Thu Dec 9 15:00:22 ... 5; A$,12,1)=" ": A$,15,1)=" ":A$=A$,12)+"19"+A$,13) 6` A$,14,1)=":": A$,17,1)=":":A$=A$,3)+", "+A$,9,2)+A$,4,5)+A$,21,4)+A$,11,9)+A$,25) 7? A$=24:=A$,3)+","+A$,4) : Mon 15 Sep 1986 16:22:06 8N A$>24:=A$ : Sat, 28 Jun 2008 13:32:52 .... 9=A$ :: ; swap(A$,m$,r$) <2:A%=A$,m$): A%:A$=A$,A%-1)+r$+A$,A%+ m$) = A%=0:=A$ >: ? Close_All @#in%=in%: in%:A%=in%:in%=0:#A% A B: CC file(A$,A%):$name%=A$:?X%=name%:X%?1=name%256:=(&FFDD)&FF D gbpb8(ptr%) E` >&FFFF:!name%=0:ș12,9,"",name%,1,ptr%,32,,,X%!5,X%!9:!name% X%!5=0:ș70,name%A$:=A$ F8X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:&FFD1: X%!5=1:="" G'A%=name%:A%?(1+?A%)=13:=s($(A%+1)) HM Mon(A%):="000JanFebMarAprMayJunJulAugSepOctNovDecDDDEEEFFF",A%*3+1,3) I% d0(A%,N%)="00000000"+ A%,N%) J3 s(A$): A$,1)=" ": A$=A$,2): A$,1)<>" " K/ A$,1)=" ": A$=A$, A$-1): A$,1)<>" " L=A$