[Date Prev][Date Next][Subject Prev][Subject Next][
Date Index][
Subject Index]
Re: Xy4 routine to format XYENCode output
- Subject: Re: Xy4 routine to format XYENCode output
- From: Carl Distefano cld@xxxxxxxx
- Date: Thu, 22 Jan 2009 11:00:02 -0500
One further tweak was needed to get the IFs to indent properly. Here's a resend
of what I posted last night. Use this, please, and discard the earlier one.
'%--_XYENCode_start--
{{5xyenc*,xydec}}_XYENCode|XYDECode_(DF_block_or_entire_file
)_[CLD_rev.1/21/09]'^~B~==1~>'BXes_1'Q2'DX~~)~>~~~="/"
~>~~~>~~'DZ~<1~>'YD~~~~="DEC"~>'XP'LB'BXse__~start--'Q2~
)~>'LB~~'-'-end--'Q2~>~
~~'DF~'DF~~~>'JM2.Get
Path'Q2~+"\"+~+"."~>'DE'BXsad/nv_~in'Q2~~>~~~
'BXwt'Q2'DN'BXernv_~out'Q2'BXwt'Q2'BXdos/nv/x/z_/c_~<
PV06~>com_._~out<~in'Q2'BXwt'Q2~~'BXexist_~out'Q2~)~>~~'BX
p'Q2~'GT'DO'FF'DX~~="ENC"&~<1~>~+"start--'^'^"+~+"'-'-end--'^"~>~~<
SV03,~>'LU'LU~~~>'BXme_~out'Q2'BXwt'Q2
'BXernv_~out'Q2'BXwt'Q2~)~="ENC"~>~~>0&~<>8~>'TG~~~~>'BXseba__'?Z'Q2~)&~==~
-2~>'RC'RC~~~~~>'JM2.ReJuMP'Q2
'DO'FF~~~~~B'^'^{{5xyfmt}}_Fo
rmat_XYENCoded_XPL_[CLD_rev.1/22/09]'^~B'BXes_1'Q2'XP'TF'BXc
ia__'?<_:~<'Q2'BXcia__'?>_:~>'Q2',*','^~~~~~~~~~~~~~~~