Re: XYENC/XYDEC programs - and a curiosity

[Carl Distefano cld@xxxxxxxx]

Reply to note from wbass@xxxxxxxx Thu, 8 Jan 2009 00:01:15 -0700 (MST)

Wally:

Well, ha, it's a short step from decoding XYENCoded material to
actually running it. Decode frame RUNN below, DeFine it, and add it
to U2 with ADD2U2.

Now -- in Xy4 -- DeFine the following line -- use eXPanded view to
be sure you've got all the tildes! -- and issue RUNN:

~+"_-_"+~~>~~

It works!

Or DeFine this code to display Ascii-26d on the PRompt line:

~~~
~~>~~
~~'NO~>
~+~+~+~+~~>
~~'^

Issue RUNN. It works, too.

You can also do
 RUNN d:\path\filename[ arg(s)],

where filename is a XYENCoded file. You can pass args to DeFined
code, too.

This is fun!

Here's frame RUNN:

{{5runn}}_Run_XYENCoded_XPL_(file_or_DF_block)_[CLD_1/9/09]'^
~B'BXes_1'Q2'DX'DZ',*','^
~<0~>~~',*','^
~~>',*','^
~~>'JM2.GetPath'Q2~+"\"~>',*','^
~+"RUNN.IN"~>',*','^
~+"RUNN.OUT"~>',*','^
~<1~>',*','^
~<1~>',*','^
~~>~',*','^
~',*','^
~~>~',*','^
~<0&"\"~{~<0~>~~>',*','^
~>3~>~+"\"~>~',*','^
~+~~>~',*','^
~~="_"~>',*','^
~~~~>',*','^
~',*','^
~~',*','^
~<>1~>~~~',*','^
'DE'BXsad/nv_~'Q2'BXwait'Q2',*','^
~'BXernv_~'Q2'BXwait'Q2',*','^
'BXdos/nv/x/z_/c_~xydec.com_~_~'Q2',*','^
'BXwait'Q2',*','^
~~'BXexist_~'Q2',*','^
~)~>~~',*','^
'BXp'Q2~',*','^
~==(~+"RUNN.IN")~>',*','^
'BXernv_~'Q2'BXwait'Q2',*','^
~',*','^
'DO'FF'BXrun_~_~'Q2~B'^


--
Carl Distefano
cld@xxxxxxxx