P [0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) 5 CoQ0o e+Nbgp # 1Ec*s4>TS_K}\4vE Y/c*j`# VBabyl F# VBabyl \# VBabyl ^I# VBabyl ^X& Mail Headerp& Setup VBabyl Commands& VBabyl Select Message& VBabyl TrampolineVBabyl^R VBabyl Fix Control Characters^R VBabyl Forward Region^R VBabyl Indented Fill Region~DIRECTORY~~DOC~ # VBabyl F~DOC~ # VBabyl \~DOC~ # VBabyl ^I~DOC~ # VBabyl ^X~DOC~ & Mail Headerp~DOC~ & Setup VBabyl Commands~DOC~ & VBabyl Select Message~DOC~ & VBabyl Trampoline~DOC~ ~DOC~ VBabyl~DOC~ ^R VBabyl Fix Control Characters~DOC~ ^R VBabyl Forward Region~DOC~ ^R VBabyl Indented Fill Region~DOC~ ~Filename~~Filename~~INVERT~:i*[0 f[:EJPage fn0M.VVBabyl Initialized fm(m.mVBabyl)0  0fo..QBabyl Standalone Job( )m.vBabyl Standalone Job f[dfile :i*[0 ff&2"n &1"n 1[Babyl Standalone Job'' 0fo..QVBabyl ^X Break"n !"!fsrgetty"n@'ftResuming ^X'd VBabyl 0uVBabyl ^X Break' 0fo..QVBabyl Initialized"e 1,m(m.m& Get Library Pointer)Babyl"e m(m.mLoad Library)Babyl' m(m.m& Setup VBabyl Commands) fsosteco"e fq0:"g fshsname:f6[Hfsxuname:f6[X e?DSK:H;X BABYL"n fsrgetty"n@'ftCreating Babyl File for X 0fsechoactive e\fne^ ewDSK:H; f[BBind iBABYL OPTIONS: No Original Owner:X Mail:DSK:H;X MAIL Version:4  10000 *** EOOH *** Subject: Default Babyl File  Welcome to VBabyl. A Babyl file has been created with default settings for your convenience. You can get more info by printing the file MC:KP;VBABYL INFO or running :INFO BABYL  Your saved mail will live in the file H;X BABYL You may create a VBabyl init file under the name H;X VBABYL  *NOTE* If this is the only file in your babyl file, do not delete it. BABYL gets utterly and completely confused when it finds an empty babyl file. Leave this as a place holder until you find a pen-pal who can fill your BABYL file with something more interesting.  hpefX BABYL f]BBind ]..Nwe^ ]X]H'' 1m.VVBabyl Initialized'' m(m.mBabyl)0 [0[1[2[3[4[5 f[vbwf[vz m.m^R Back to Indentationu3 m.m^R Delete Horizontal Spaceu4 m.m& Mail Headerpu5 .,(w.)ffsbound 0l.u0 q0f(:\u0fn0jw)u0 zjfsshpos"ni i'q0j <.-z; <<.-z;m5@;l> .-z; (-1,1a-)*(-1,1a- ):@;l> @M3 fsshposu1 @m4 -l.: fswidth-2-q1[Fill Column lm(m.m^R Fill Region) ]Fill Column z-.u2 q1@M(M.M^R Indent Rigidly) z-q2j > q0j <:s:: Re: ; [1 .u1:lfsshpos-(fswidth)+2"g q1j -4d.(:l),.fx1 15.i12.iiSubject: g1 -lM3fsshpos(l)' ]1 > z: q0,z[0[1[2 0l.u0:l.u2q0j <1:q2-.:"gq0joLast' -1,1a--"n0;'> (-1,1a-:)*(-1,1a-@)"eq0j1' .u01:<-fwlr>w.,q0x1 f~1MESSAGE FROM"eq0j-1' f~1[MESSAGE"eq0j-1' !Last! 4f~-----"eq0j2' 4f~_____"e q0j2' 11f~*** EOOH ***"eq0j2' 25f~--Text follows this line--"e q0j2' q0j0'f[vbwf[vz .,(w.)ffsbound j <:s ; rd fshpos[0 i iq0r > j <:s;2r2d> j <:s ; ri  > j z: b,z[0[1[2 1,m(m.m& Read Line)To: u0 fq0:"g fsrgetty"n@'ft(Not Forwarded) 0fsechoactive 0' 1,m(m.m& Read Line)Subject: u1 fq1"g:i1 Subject:1' "# :i1' .,(w.)fx2f[BBind iTo:01 --Text follows this line-- 2 1: 0.[1fnq1jw f[vbf[vz m(m.m& Babyl Select Message) js*** EOOH *** .u1 [1.: zj m()Fm.m# VBabyl ^IM.VMM # Babyl ^I m.m# VBabyl ^XM.VMM # Babyl ^X m.m# VBabyl FM.VMM # Babyl F m.m# VBabyl \M.VMM # Babyl \m(m.m& VBabyl Select Message) m.m^R VBabyl Fix Control Characters:m(m.m& VBabyl Trampoline)m(m.m& VBabyl Select Message) m.m^R VBabyl Forward Region:m(m.m& VBabyl Trampoline)nm(m.m& VBabyl Select Message) :s   m.m^R VBabyl Indented Fill Region:m(m.m& VBabyl Trampoline)w1M.VVBabyl ^X Break :i*CfsEchoDisplay 0fo..QBabyl Standalone Job"e 2f;Babyl-Catch' "# 100000.fsexitw0'VBABYLVMAIL flavored Babyl MacrosS Come here IF AND ONLY IF you are doing a Run Library S Run Babyl with winning VMail-like features... *** ARGS ARE NOT YET MADE USE OF BUT THEY WILL EVENTUALLY BE BIT-DECODED **** *** AS FOLLOWS (MORE OPTIONS MAY ALSO BE ADDED LATER ... **** Precomma arg, 1 = Standalone Job (Exit to DDT, not Teco, when user does ^X) Postcomma arg, 4 = Summarize New Mail on Entry ^R Fill Region being smart about indentation Remove text overflow from lines by clever reformatting keeping indentation in the correct proportions... S Check for mail headerness. Return 0 if not mail-related, 1 if a mail header, 2 if a mail separator -1 if send header ^R Fix stray ^H, ^J, ^M in region. Replace them with their visual counterparts... ^H deletes character before it, ^J inserts carriage return + whitespace ^M becomes CRLFS Forward the region to another user ala MailS Use macro given as arg on whole message & Trampoline macro for running region functions S Put the VBabyl commands in effect S Reformat a losing message that contains ^J's, ^H's, etc.S Forward a message to another user.sS Return the message number of current message. To get old functionality of reselecting current message, do .JS Exit temporarily Exit to DDT if a standalone job else to Emacsz VBabyl ^R VBabyl Indented Fill Region & Mail Headerp ^R VBabyl Fix Control Characters ^R VBabyl Forward Region & VBabyl Select Message & VBabyl Trampoline & Setup VBabyl Commands # VBabyl ^I # VBabyl F # VBabyl \ # VBabyl ^X +8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2