XYENCode and Xy4 (1 of 3)

[Carl Distefano cld@xxxxxxxx]

One further option added to U2 frame XYENC*,XYDEC*: You can suppress
output of the "start" and "end" boundary comments by commanding
XYENC/, with a final forward slash. This is useful for
pinpointed, inline encoding of DeFined material, where the header
and footer are usually unwanted. Here's the revised frame:

'%--_XYENCode_start--
{{5xyenc*,xydec*}}_XYENCode|XYDECode_(DF_block_or_entire_fil
e)_[CLD_rev.1/19/09]'^~B~==1~>'BXes_1'Q2'DX~~)~>~~~="/
"~>~~~>~~'DZ~<1~>'YD~~~~="DEC"~>'XP~<1~>'LB'BXse__~start
--'Q2~)~>'LB~~'-'-'-end--;~['Q2~>~~~~'DF~'DF
~~~>'JM2.GetPath'Q2~+"\"+~<
IS01~>+"."~>'DE'BXsad/nv_~in'Q2'BXwait'Q2~~>
~~~'DN'BXer
nv_~out'Q2'BXwait'Q2'BXdos/nv/x/z_/c_~com_._~<
PV06~>out<~in'Q2'BXwait'Q2~~'BXexis
t_~out'Q2~)~>~~'BXp'Q2~
'GT'DO'FF'DX~~="ENC"&~<1~>~
+"start--'^'^"+~+"'-'-'-end--'^"~>~~'LU
'LU~~~>'BXme_~out'Q2'BXwait'Q2'BXern
v_~out'Q2'BXwait'Q2~)~="ENC"~>~~>0&~<>8~>'TG~~~~>'BXseba__'?Z'Q2~)&~==~-2~>
'RC'RC~~~~~>'JM2.ReJuMP'Q2'DO
'FF~~~~~B'^'^
'%--_XYENCode____end--

--
Carl Distefano
cld@xxxxxxxx