Whoops, there was an error in frame XYENC*,XYDEC*. Please discard
the earlier one and use this:
'%--_XYENCode_start--
{{5xyenc*,xydec*}}_XYENCode|XYDECode_(DF_block_or_entire_fil
e)_[CLD_rev.1/19/09-a]'^~B~==1~>'BXes_1'Q2'DX~~)~>~~~=
"/"~>~~~>~~'DZ~<1~>'YD~~~<
IF~~="DEC"~>'XP'LB'BXse__~start--'Q2~)~>'LB~~'-'-end--'Q2~>~<
EI~>~~'DF~'DF~~~>'JM2
.GetPath'Q2~+"\"+~+"."~>'DE'BXsad/nv_~<
PV06~>in'Q2'BXwait'Q2~~>~~~'DN'BXernv_~out'Q2'BXwait'Q2
'BXdos/nv/x/z_/c_~com_._~out<~in'Q2'BXw
ait'Q2~~'BXexist_~out'Q2~)~>~~'BXp'Q2~'GT'DO'FF'DX~~=
"ENC"&~<1~>~+"start--'^'^"+~+"'-
'-end--'^"~>~~'LU'LU~~~>'BXm
e_~out'Q2'BXwait'Q2'BXernv_~out'Q2'BXwait'Q2~<
IF@upr(~)~="ENC"~>~~>0&~<
>8~>'TG~~~~>'BXseba__'?Z'Q2~)&~==~-2~>'RC'RC~~~~<
SX50,~~>'JM2.ReJuMP'Q2'DO'FF~~~~~B'^'^
'%--_XYENCode___end--
--
Carl Distefano
cld@xxxxxxxx