Re: search

[Carl Distefano cld@xxxxxxxx]

Reply to note from Judith Davidsen  Mon, 07
Aug 2000 18:44:31 -0400

Judith:

Here's a more polished version of CSE (Circular SEarch). Among
other things, it now permits use of native SEarch command switches,
e.g., CSE/W (to find entire Words only), CSE/F (to leave cursor on
First letter of a found string), CSE/3 (to find every third
occurrence), etc. As in the native command, switches can be
combined, e.g., CSE/W/5 it.

Again, import this message into XyWrite and issue DECODE,
then copy the XPL code as a discrete block into U2 and issue
LH to reload U2.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5cse*}} Circular SEarch (bidirectional) [CLD 8/7/00][cr|lf
]{2}[XH_]{<}IF{<}VA$WS{>}<>1{>}{<}PRNo file{>}{<}EX{>}{<}EI{>
}[BX_]es 1[Q2_];*;[cr|lf]{<}IF{<}VA|50{>}<1{>};*;[cr|lf]{<}PR
CSE[B][A]/SW1/SW2.../SWn search_term(s){>}{<}EX{>}{<
}EI{>};*;[cr|lf]{<}SX01,{<}CP{>}{>}{<}SX02,@upr({<}VA$FR{>}){
>};*;[cr|lf]{<}SV03,[TF_][TF_]{>}{<}SV04,{>}{<}IF{<}IS02{>}{2
40}"B"{>}{<}SV03,[BF_][BF_]{>}{<}SV04,b{>}{<}EI{>};*;[cr|lf]{
<}SV05,{>}{<}IF{<}IS02{>}{240}"/"{>}{<}SV05,/{>}{<}XS02,05,06
,,05{>}{<}LBa{>}[DX_];*;[cr|lf][BX_];*;[cr|lf]se{<}PV04{>}{<}
IF{<}IS02{>}{240}"A"{>}a{<}EI{>}{<}IF{<}VA|05{>}>0{>}/{<}PV05
{>}{<}EI{>} [999]{<}PV50{>}[999];*;[cr|lf][Q2_];*;[cr|lf]{<}I
F{<}ER{>}{>}{<}IF{<}VA|04{>}<1&{<}VA$FB{>}<1!{<}VA|04{>}>0&{<
}VA$FE{>}<1{>}{<}PV03{>}{<}GLa{>}{<}EI{>};*;[cr|lf][BX_]jmp {
<}PV01{>}[Q2_]{<}PR\10{>}{<}EI{>}{<}EX{>}{2}[cr|lf][cr|lf]
-nd
XPLeNCODE


--------------
Carl Distefano
cld@xxxxxxxx
http://users.datarealm.com/xywwweb/