Re: Self-referential problem

[Carl Distefano cld@xxxxxxxx]

Reply to note from Carl Distefano  Sun, 22 Feb 2009
18:00:25 -0500

It further occurred to me that the Xy3 search routine is easily
adapted to enable a search for any 3-byte function -- the equivalent
of the SE/FN command in Xy4. That's value-added for Xy3 users, I
think.

Here's SEFN3.PM:

'%--_XYENCode_start--
~'^
SEFN3.PM_for_XyWrite_III+_v3.55+_--_CLD_2/22/09'^
Search_for_any_3-byte_function_by_specifying_its'^
__2-character_plain-text_mnemonic'^
'^
Usage'.'^
RUN_SEFN3.PM_xx'^
__where_"xx"_is_any_(plain-text)_2-char_function_mnemonic'^
__E.g.'._RUN_SEFN3.PM_BC'^
Works_from_cursor_position_to_end_of_file'^
'^
~
~~>
~)<1~>
  ~~>~
~'BCpfun_~'XC
'XD'DF'CL'DF
~'RD
~
~
~~>'GT
~~>
~'BCWorking...'DX'GT
~'XD
~~>'CR
~==~~>
  ~'BCjmp_~'XC
  'BC'GT'DO'FF
  ~~
~
~+1024~>'DF'BCjmp_~'XC
'BC'GT'DF
~
~)<1~>'XD
  ~
~
~~{~<0~>
  ~
~
~~>
~+~~{~~>
'XD'BCjmp_~'XC'BC'GT'DO'FF
~~'^
'%--_XYENCode___end--

--
Carl Distefano
cld@xxxxxxxx