wr.ltr
 ready "e:mail"
 if info(6)<29 print \"Mail bit-map full":return
 print #msg(d),un:if h$<>"" print #6,h$\
 print #6,"From ->"a1$" "a2$" (#"un")"
 print #6,"Date ->"date$" "time$\
 if P1 print #6,"Regarding: " i$\
 copy #s,#6:print #msg(d),chr$(4);chr$(0);
 msg(d)=1:update:return

rd.mail4
 input @2 \"[A]uto reply, [C]ontinue, [R]e-read :" i$
 if i$="" or i$="C" or i$="N" goto rd.mail2
 if i$="Q" return
 if i$="R" rewind:x=0:goto rd.mail3
 if i$="P" and info(5) rewind:x=5:goto rd.mail3
 if i$="W" and info(5) goto wr.mail
 if i$="F" goto forward
 if i$<>"A" goto rd.mail4
 if d=0 print \"Sorry, anonymous sender":goto rd.mail4
 P1=1:input @3 \"Regarding: " i$:if i$="" goto rd.mail2
 gosub editor:if not edit(2) goto rd.mail4
 print \"Wait..";:h$="":s=8:gosub wr.ltr
 print ".reply sent":P1=0:goto rd.mail2

bl.show6
 if a=0 print \"Sorry, anonymous sender":goto bl.show2
 P1=1:input @3 \"Regarding: " i$:if i$="" return
 gosub editor:if not edit(2) goto bl.show2
 h$=" --> Reply to a Bulletin <--"
 print \"Wait..";:s=8:gosub wr.ltr
 ready bf$:print ".reply sent":P1=0:goto bl.show2