[Date Prev][Date Next][Subject Prev][Subject Next][ Date Index][ Subject Index]

XYENC/XYDEC helper frames for Xy4+U2 (#2 of 2)



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'^~~~~+"AE"~>',*','^'BXch/1__;~'`_;~'`'Q2~)~>',*','^'BX{ch/1__'BX_'BX
}'Q2~~>~'BXch/1__;~
)~>'JM2.xyfmtD/'Q2~'JM2.xydec'Q2~~~',*','^
'BXch/1__~_~'Q2~)~>',*','^'BX{ch/1
__'BX_'BX}'Q2~~>~~~',*','^'BX{ch/1__'BX
_'BX}'Q2~)~>~~'JM2.xyenc/'Q2~
~',*','^'BXch/1__'BC_'BC'Q2~)~>~~
',*','^'BXch/1__;~<_;~<'Q2~)~>',*','^'BXch/1__;~<
MDBO;~>'`_;~'`'Q2~~>~~~',*','^
',*','^~'DX~~~~~~~~~~~~~~~~~~>~'TF',*','^'BXch__'`?_;~:'?'Q2'BXwt'Q2',*',_<==_Critical_change',_do_not_remove'|'^
'BXch__;~['Q2'BXwt'Q2',*','^'BXch_~252'?'BXch_~252;~[;~['?)~>'BXwt'Q2~~',*','^'BXch_~252'?~252;~['?~252'Q2'BXwt'Q2',*','^~'BXch_~252;~[;~['?
~252;~['?~252'Q2~)~>'BXwt'Q2~~<
EI~>',*','^'BXch_~252'?~252'?;~[~252'Q2'BXwt'Q2',*
','^'BXch_~252'?;~[;~[~252'?;~[~252'Q2'BXwt'Q2',*',
'^~'BXch__;~[;~[;~)~>'BXwt
'Q2~~',*','^'BXch_~252;NDI;~>;~[~252;NDI;~>~252'Q2',
*','^'BXch_~252'`;A;X~252;~'`;A;X_;~~252'Q2'BX
wt'Q2',*','^'BXch_~252'`@;A~252;~'`@;A_;~~252'Q2
'BXwt'Q2',*','^'BXch_~252'`#;A~252;~'`#;A_;~~252
'Q2'BXwt'Q2',*','^'BXch_~252'`$;A~252;~'`$;A_;~
~252'Q2'BXwt'Q2',*','^'BXch_~252'`&;A~252;~'`&;A_;~~252'Q2'BXwt'Q2',*','^'BXch_~252'`≪~252;~'`≪_;~<
MDNM;~>~252'Q2'BXwt'Q2',*','^'BXch_~252'`≫~252;~'`≫_
;~~252'Q2'BXwt'Q2',*','^'BXch_~252'`*;X~252;~'`
*;X_;~~252'Q2'BXwt'Q2',*','^'BXch_~252'?~252;~<
MDBI;~>'?;~~252'Q2'BXwt'Q2',*','^'BXch_~252'?<
GL;W'?>~252;~'?;~~252'Q2'BXwt'Q2',*','^
'BXch_~252'?~252;~'?;~~252'Q2'BX
wt'Q2',*','^'BXch_~252'?~252;~'?;~
~252'Q2'BXwt'Q2',*','^'BXch_~252'?~252;~'?;~~252'Q2'BXwt'Q2',*','^'BXch_~252;~['?>;~~252
'?>;~;~[~252'Q2'BXwt'Q2',*','^'BXch__'`^_'`^;~['Q2'BXw
t'Q2',*','^~'BXch__'`^;~[;~[_'`^;~['Q2~)~>
'BXwt'Q2~~',*','^'BXch_~252'?'BXch_~252;~[;~['?)~>~~'BXwt'Q2',*','^'BXch_~252;~'?'?'?'?'?'?'?'?;~~252'?
;~;~[~252'Q2'BXwt'Q2',*','^'BXch__;~[,_,'Q2'BXwt'Q2',*
','^'BXch_~252;~'`BX~252;~[;~'`BX~252'Q2'BXwt'Q2
',*','^'BXch_~252;~[;~[;~'`BX~252;~[;~'`BX~252
'Q2'BXwt'Q2',*','^'BXch_~252;~'`BC~252;~[;~'`B
C~252'Q2'BXwt'Q2',*','^'BXch_~252;~[;~[;~'`BC~252;~[;~<
MDBO;~>'`BC~252'Q2'BXwt'Q2',*','^'BXch_~252'`Q2_;~~252
'`Q2_;~;~[~252'Q2'BXwt'Q2',*','^'BXch_~252'`Q2_;~;~[;~[~252'`Q2_;~;~[~252'Q2'BXwt'Q2',*','^'BXch_~252
'`XC_;~~252'`XC_;~;~[~252'Q2'BXwt'Q2',*','^'BX
ch_~252'`XC_;~;~[;~[~252'`XC_;~;~[~252'Q2'BXwt
'Q2',*','^'BXch_~252;~;~[;~[~252;~;~[~252'Q2'BX
wt'Q2',*','^',*',_Low|High_code-to-3-byter_translation_table'^
',*',_None_for'._0,_174-175_(handled_below),_253-255'^~~',*','^~~~~~~>',*','^'TF'BXcha_)~)'Q2'BXwt'Q2
~~',*','^'TF~~3DI,~3DI'Q2'CR~>~~~',*','^~~<1~>~~~'BX
se__'?'Q2~)~>'DF'CL'DF~'YD'CR',*','^~)=="F"~>~+1~>~+1~>~~~',*','^~-1~>
~-1~>~<0~>~~>~<====_****EXTRA_"+~+"EndIf:~>_HERE'|****~
~>~~~+1~>~<1~>~~~>~~',*','^'BXseb__'?<'Q2
~~'BXse__'?>'Q2~~',*','^'TF'BXch__'?
<_~'Q2'BXwt'Q2'BXch__'?>_:~>'Q2'BXwt'Q2',*','^'BXch__',
;~[_','Q2'BXwt'Q2',*','^'BXch_~252',;X~252',;~;X;~~252'Q2'BXwt'Q2',*','^'BXch_~252'`;X;X_;~;~[:',*:',
~252'`;X;X_;~:',*:',~252'Q2'BXwt'Q2',*','^'BXch_~252:~>
;~[:',*:',~252:~>:',*:',~252'Q2'BXwt'Q2',*','^'JM2.xyfmtD/'Q2'WG
~<9~>'MK~'TF'JM2.ReJuMP'Q2'DO'FF~
~~~~~<
IF~<5~>~~~~
+"_&_"~>~~+~~>~~
+~~>~~~~~~~B'^
'^{{5xyfmtD*}}_Apply|Remove_extra_(non-XYDECodable)_formatting
_to|from_XYENCode_structured_listing_[CLD_rev.2/20/09]'^~B'DX'XP
'TF~'BXch/1_~252;~~>~<
LBa~>'BXse__'?;N;N;N'Q2~)~>'YD'DF'CL'CL'CL'DF~'YD~'CL~[~>~'CR'CR
'CR'CR~~>~~~~'TF~|'-~252;~_|;~'`~252;~
;~|',;~~252;~;~|'.;X~252;~;X|'|;A;A~252;~|~>~~
~~~~>'BXch_~252~~252'Q2'BXwt'Q2~~~<0~>'WG~<9~>'MK~~~~~~252'`
^|;~_~252'-|;~;~~252;~'`|;~<
IV]',;~>;~~252',;~|;~;X~252'.;X|;~~252'|;A;A|;~['?;N;N;N~252;~'?;N;N;N
|;N;N;N];~~252;N;N;N;~|~>~~B'^'^{{5ifei2
}}_Check_for_balanced_IF|HF...EI_pairs_in_XPL_code_[CLD_1/30/0
9]'^~B~==1~>'BXes_1'Q2'YD'XD'YD'XP'TF'DX~~~~~~~<
LBa~>~~="No"~>~~+"_
"~>~~'BXse__;~'Q2~
)~>'DF'CL'DF~'YD'CR~)=="F"~>~+1~>~+1~>~~~-1~>~-1~>~<0~>~~+1~>~<
IF~<1~>~~~>~~~~<
EI~>'TF'DO'FF~~+~~<
SV96,Extra_~>~~+"IF"~>~~~~="IF"~>~+"_&_Extra_"~>~<
EI~>~+"EI"~>~~~+"Nesting
"~>~+~+"'._View_structured_list?_(y|N)"~>
'JM2.ReJuMP'Q2'JM2.RK'.01'Q2~)=="Y"~>'BCXYDEC_
decodes_to_original'GT'JM2.xyfmtC'Q2~~~~~~~B'^'^{{5SV50}}_SaVe_file_contents_to_S/G
_50_(S/G_50_in_&_out'._d'.\path\filename_in',_file_contents_ou
t)_[CLD_1/18/09]'^~B~'BXexist_~'Q2~)~>~<0~>~~>'JM2.Us
urpB'Q2~<0~>~+",~>~~+"~>~>"~>~'BXldpm_~,~'Q2'BX
wt'Q2~+"~>+""""~>~<0~>'BX
remove_"+~+"'Q2~~+",~~>"~>~~~>~~~+",50"~>'JM2.l
dnb'Q2~~~~~B'^'^{{5xplfmt}}_Format_XPLe
NCODE_with_line_breaks_[CLD_2/12/09]'^~B',*',________Position_
cursor_before_"b-gin..."_header'^'BXes_1'Q2'DX',*','^'BXse_"b-
gin;W;~["'Q2'YD'DF'BXse/f_"-nd;~[XPL"'Q2'DF'DB',*','^'BXse/f__
[cr|lf]{002}'Q2~)~>'DM'DZ~',*','^'BXch/s__;
~['Q2',*','^'BXch/s__[BX'-]_;~[[BX'-]'Q2',*','^'BXch/s__[JM'-]
_;~[[JM'-]'Q2',*','^'BXch/s__[Q2'-]_[Q2'-];~['Q2',*','^'BXch/s
__[XC'-]_[XC'-];~['Q2',*','^'BXch/s__{<}IF_;~[{<}IF'Q2',*','^'BX
ch/s__{<}EI{>}_;~[{<}EI{>}'Q2',*','^'BXch/s__{<}LB_;~[{<}LB'Q2
',*','^'BXch/s__{<}GL_;~[{<}GL'Q2',*','^'BXch/s__{<}PR_;~[{<}P
R'Q2',*','^'BXch/s__{<}S_;~[{<}S'Q2',*','^'BXch/s__{<}S_;~[{<}
S'Q2',*','^'BXch/s__{<}XS_;~[{<}XS'Q2',*','^'BXch/s__{002}_{00
2};~['Q2',*','^'BXch/s__{062}_>'Q2'BXch/s__{060}_<'Q2',*','^'BX
ch/s__[cr|lf]_[cr|lf];~['Q2',*','^~'DB'WG'LD'LB~~>~'LE~~-~~>~~+65-~~>'JM2.ReJuMP'Q2
~~'CR~~',*','^~'BXch/s__;~[;~[_;~[
'Q2~)~>~~',*','^'BXch/s__;~[;X;~[_;X;
~['Q2'BXch/s__;~[;X;X;~[_;X;X;~['Q2'BXch/s__;~[;X;X;X;~[_;X;X;
X;~['Q2',*','^'DB'BXch/s_"_;~["{032};~["'Q2',*','^'YD'BXseba__
XPLeNCODE'Q2'DO'FF~~B'^'^~Z
'%--_XYENCode___end--

--
Carl Distefano
cld@xxxxxxxx