[Date Prev][Date Next][Subject Prev][Subject Next][
Date Index][
Subject Index]
XYENC/XYDEC helper frames for Xy4+U2 (#2 of 2)
- Subject: XYENC/XYDEC helper frames for Xy4+U2 (#2 of 2)
- From: Carl Distefano cld@xxxxxxxx
- Date: Sat, 21 Feb 2009 23:41:29 -0500
Here are the frames.
'%--_XYENCode_start--
'0 checksum F531771A
'02-20-2009 23:59:59
[Add_to_U2_-_replace_earlier_version_of_same]'^'^Frame_XYENC50
_must_precede_frame_XYENC*'^{{5xyenc50,xydec50,xyrun50}}_Encod
e|Decode|RUN_XYENCoded_XPL_contained_in_S/G_50_[CLD_1/25/09]'^
~B~<1~>~~~~>~)~>~~>'JM2.GetPath'Q2~+"\"
~>~+~+".IN"~>'BXsa_'/01,~'Q2'BXwt'Q2
~+~+".OUT"~>'BXernv_~'Q2'BXwt'Q2~<
SV04,DEC~>~~="EN"~>~~'BXdos/nv/x/z_
/c_~XY~.COM_._~<~'Q2~~'BXexist_~'Q2~)~>~~'BXp'Q2
~'BXernv_~'Q2'BXwt'Q2~<0~>~~>'JM2.SV50'Q2'BXernv_~'Q2'BXwt'Q2~~=
"ENC"~>~+"~N("~>~~~~~'FF'BXrun_~'Q2~B'^'^{{5xyenc*,x
ydec}}_XYENCode|XYDECode_(DF_block_or_entire_file)_[CLD_rev.2/
12/09]'^~B~==1~>'BXes_1'Q2'DX~~)~>~~~="/"~>~~~>~~~~="ENC"~>~)~>~~~<1~>
~+"_65"~>~~~
'DZ~<1~>'YD~~~
~="DEC"~>'XP'BXch/1__;~)~>'JM2.xy
fmtD/'Q2~'LB'BXse__~start--'Q2~)~>'LB
~~'-'-end--;~['Q2~>~~~<
PV05~>'DF~'DF~~~>'JM2.GetPath'Q2~+"\"+~+"."~>'DE'BXsad/nv_~in'Q2~~>~~~'BXwt'Q2'DN'BXern
v_~out'Q2'BXwt'Q2'BXdos/nv/x/z_/c_~com_~<0~>._~out<~in~~~in_~<
PV07~>out~_~'Q2'BXwt'Q2~~'BXexi
st_~out'Q2~)~>~~'BXp'Q2~
'GT'DO'FF'DX~~="ENC"&~<1~>~+"
start--'^'^"+~+"'-'-end--'^"~>~~'LU'LU~<
EI~>~~>'BXme_~out'Q2'BXwt'Q2'BXernv_~
in'Q2'BXwt'Q2'BXernv_~out'Q2'BXwt'Q2~)~=
"ENC"&"C"~{~<0~>~~<>8~>
'TG~~~~>'BXseba__'?Z'Q2~)&~==~-2~>'RC'RC~~~~~>'JM2.ReJuMP'Q2'DO'FF~~~~
~B'^'^{{5xyrun}}_Run_XYENCoded_XPL_(file_or_DF_block)_[CLD_2/1
1/09]'^~B'BXes_1'Q2'DX'DZ~<0~>~~~~>~~>'JM2.GetPath'Q2~+"
\"~>~+"XYRUN.IN"~>~+"XYRUN.PM"~>~<
IF~<1~>~<1~>~~>~~~~>~~<0&"\"~{~<0~>~~>~~+"\"~>~~+~~>~<
EI~>~~="_"~>~~~~>~~~~<>1~>~~~'DE'BXsad/nv_~'Q2'BXwait'Q2~'BXernv_~'Q2'BXwait'Q2'BXdos/nv/x/z_/c_~xydec.com_~_~<
PV03~>'Q2'BXwait'Q2~~'BXexist_~'Q2~)~>~~'BXp'Q2~~==(~+"XYRUN.IN")~>'BXernv_~'Q2'BXwait'Q2~'DO'FF'BXr
un_~_~'Q2~B'^'^{{5xyfmt}}_XYENCode_3-way_toggle'.
_XPL|Raw'-ENCode|Formatted'-ENCode_[CLD_rev.2/12/09]'^~B~==1~>'TF'DX'XP'BXch/1__;~<_;~<'Q2~)~>'BXc
h/1__;~~>~'JM2.xyenc/'Q2',*','^
',*',~'JM2.xyfmtB'Q2',*','^~~~'BXch/1_
_'?<_'?<'Q2~)~>'BXch/1__;~~>',*','^',*','JM2.xydec'Q2'^'JM2.xyfmtC'Q2~~~
'JM2.xydec'Q2~~~~B'^'^{{5xyfmtA*,xyfmtB*
}}_Format_XYENCode_with_line_breaks_and_white_space_(manual_af
ter-editing_may_be_required)_[CLD_2/15/09]'^~B~==1
~>~~>~)~>'BXes_1'Q2'XP'TF'DX
~<0~>'BXch/1__'?<_'?<'Q2~)~>'JM2
%.xydec'Q2~~~'BXch/1__;~<_;~<'Q2~
)~>'JM2.HIDE'.01-02'Q2'BXch/1__;~
)~>'JM2.xyfmtC'Q2~~'JM2.xyenc/'Q2'JM2.UNHIDE'Q2~<
EI~>'XP'TF'DX~',*','^'BXsea__'`'/--'-XYENCode'-
start--;~['Q2',*','^'BXsea_"'`0_checksum_;A;A;A;A;A;A;A;A;~["'Q2
',*','^'BXsea_"'`;N;N-;N;N-;N;N;N;N_;N;N'.;N;N'.;N;N;~["'Q2',*
','^~~>~<0~>'BXch__;~['Q2~',*
',_'^'BXcha/1_"'`'/--'-XYENCode'-'-'-end--";~['`'/--'-XYENCode
'-'-'-end--"'Q2',*','^'BXcha/1_"'`'/--'-XYENCode'-'-'-end--"'`
'/--'-XYENCode'-'-'-end--;~["'Q2',*','^'BXch__'`BX_;~['`BX'Q2',
*','^'BXch__'`JM_;~['`JM'Q2',*','^'BXch__'`Q2_'`Q2;~['Q2',*','^
'BXch__'`Q2;~['`,*'`,'`^_'`Q2'`,*'`,'`^;~['Q2',*','^'BXch__'`X
C_'`XC;~['Q2',*','^'BXch__'?~==1~>~~~<
SX02,~+"_"~>~~~~~~~+~~>~~>',*','^~~<1~>'YD'DL~'DB~)~="'?~+1~>~~)~="'?"~>~<
SX01,~-1~>~<0~>~~~~
~'DE'YD'CR~~="'^"~>~~~~'XP'JM2.ReJuMP'Q2~'BXch__;~[;~[_;~['Q2~)
~>~~',*','^'BXch__;~[;X;~[_;X;~['Q2'BXch__;~[;X;X;~[
_;X;X;~['Q2'BXch__;~[;X;X;X;~[_;X;X;X;~['Q2',*','^'BXch__'`^_'`
^;~['Q2'BXch__'`^;~[;~[_'`^;~['Q2'DO'FF~~~~<
PRNo_file~>~B'^'^{{5xyfmtC}}_Toggle_XPL|formatted_XYENCode_[CL
D_rev.2/20/09]'^~B~==1~>'BXes_1'Q2'DX'XP'TF~',*','^',*',_Toggle_code'^~~