@A$=OS_GetEnv:debug%=:in%=0:out%=0:quit$="":err:end() Lctrl%31,line%256:X%=ctrl%:Y%=X%256:A$="":"Mailto: "A$:A$="":end(0) NA$,"-?"):"*MailTo (@()) () (-quit )":end(0) (DI%=A$," -d"):I%:debug%=:A$=A$,I%-1)+A$,A$+" "," ",I%+1)+1) 2DI%=A$," -q"):I%:quit$=A$,A$," ",I%+1)+1):A$=A$,I%-1),I%-1) <;debug%:"DEBUG INFO:"'"File: '"A$"'"'"Quit: '"quit$"'" F7I%=A$+" "," "):to$=A$,I%-1):A$=A$,I%+1):file$=A$ P3out$="&.Mail.":addr$=lookup:addr$="":end(-1) Z/A%=to$,"."):A%:to$=to$,A%-1)+to$,A%+1) d A%=0 n6I%=to$,"@"):I%>1:to$=to$,I%-1) to$=to$,I%+1) x,To$=to$:to$=out$+"To"+to$,8):in%=(to$) 4in%:CloseIn:to$=to$,9)+"_1",2+(to$,3)<>0)) :in%=(to$) -in%:#in%:to$=to$,to$-1)+(1+to$,1)) in%=0 3in%=open("!Mail"):in%=0:in%=("&.Mail.!Mail") /in%=0:"Can't open mail template":end(-2) 7"Save "+to$+" 0+200 FFFF0000 FFFFFF00":out%=(to$) 7pop%=#in%<>60:#in%=0:I%=addr$,"@"): I%<2:pop%=0 pop%:I%=0:pop bbs wr(out%,19-2*(I%<2),13)) =file$<>"":#in%:in%=0:in%=(file$):in%:#out%=#out%-17 )in%:#out%,#in%:#in%:#in%:in%=0 _WORD: :pop:wr(out%,"To: "+To$+" <"+addr$+">"+13):A$=time Pwr(out%,"Date: "+A$,4)+" "+A$,5)+13):wrl():wr(out%,"Subject: "+13): -bbs:wrl(I%>1):I%=1:wr(out%," ") "I%=0:wr(out%," ->") ,,wr(out%,addr$):I%=1:wr(out%," ->All") 6^#out%,13:wrl(I%>1):wr(out%,"Put subject on this line (no 'Subject' for c.s.a.*)"+13): @1ݤlookup:to$,"@"):=to$,to$+(to$,1)="@")) J9in%=openup("#Addrs*"):in%=0:in%=("&.Mail.#Addrs*") T)in%=0:"Can't open address book":="" ^ATo$=uc(to$):a%=0::gbpb(3,in%,line%,256,a%):a%=a%+$line%+1 h746:fnd%=(To$=uc($line%,To$)) line%?To$<"!") rJfnd%#in%:fnd%:CloseIn:'"Can't find '"to$"' in address book":="" |7addr$=$(line%+to$):addr$,1)<"!":addr$=addr$,2) 6addr$,1)>" ":I%=addr$+9,9):addr$=addr$,I%-1) 1To$=$line%:b%=a%-To$-1:b%<1:CloseIn:=addr$  :num%=b%:num%>256:num%=256 Cgbpb(3,in%,line%,num%,b%-num%):gbpb(1,in%,line%,num%,a%-num%) b%=b%-num%:a%=a%-num%:b%<1 :$line%=To$:gbpb(1,in%,line%,1+To$,0):CloseIn:=addr$ _WORD:tag_add(out%) CClose:"KEY0 LOAD "+to$+"|Z|MSEARCH <"+3-2*(I%>=2)-pop%,"|M") %22,&80,28,0,31,71,0:*FX138,0,192  *WORD : %wrl(A%):b%=#in%:A%:#out%,b%  b%=13: 8Close:CloseIn:out%=out%:out%:A%=out%:out%=0:#A%  ,CloseIn:in%=in%:in%:A%=in%:in%=0:#A% &'in1%=in1%:in1%:A%=in1%:in1%=0:#A% 0'in2%=in2%:in2%:A%=in2%:in2%=0:#A% : Dݤopen(A$):A%=(A$):A%:=A% NA%=("&."+A$):A%:=A% XA%=("%."+A$):A%:=A% b=("$."+A$) l!ݤopenup(A$):A%=(A$):A%:=A% vA%=("&."+A$):A%:=A% A%=("%."+A$):A%:=A% =("$."+A$) (end(A%):A$=quit$:quit$="":A$="": os(A$+" "+A%):  %ݤerr::" at line ";;:Close:= tag_add(out%): in% !tag_$="&.MAIL.!Tags":A%=(-) in%=(tag_$+ó(9)):in% #in%=(#in%):A$="****" 0A$=A$,2)+tag_bg:A$=13+"%%"+13 #in%  #in% ,:A$=rd(in%):A$<>"%%":wr(out%,A$+13) A$="%%":#in%:in%=0:  &ݤtag_bg:A%=#in%:A%=10:=13 =A% (ݤtime:?X%=0:A%=14:&FFF1:?X%=0:=""  X%?24=13:A%=$(X%+4):$(X%+4)="0"+(A%31),2):$(X%+11)=($(X%+11)+(A%&E0)2-100*($(X%+11)<1981)):X%?6=32:X%?15=46:=$X% *Ugbpb(A%,chn%,addr%,num%,ptr%):?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%: &FFD1: 4ݤuc(A$): B$:A$="":="" >5B$=B$+(A$((A$<"@")&DF)):A$=A$,2):A$="":=B$ Hݤrd(i%):A$: R&A%=#i%:A%<>10 A%<>13:A$=A$+A% \A%=10 A%=13 #i%:=A$ fwr(o%,A$):A$="": p!A%=1A$:#o%,A$,A%,1):: z&os(A$):A$=42:A$ A$<>"":A$  (ݤOS_GetEnv:A$=$&600:A%=A$+" "," ") run$=A$,A%-1):=A$,A%+1) B(C) {H {h H {h * pqKrlsrpqs {۠{L `{{`{{H Ϋ{ {h`p{{{p`Q%=PAGE OLD RUN BASIC