Re: Two U2 frames 1. CheckU2dupes 2. Extract

[Harry Binswanger hb@xxxxxxxx]

Thanks, Harry. Your dupe finder seems to work as advertised. However,
I'm not sure what the CMline usage for EXTRACT is. Tried a few
variants, and none seem to work.
Yeah, I see that. There were two problems: 1. I was trying to get a 2-for-1
by JuMping to EXTRACT, but that was wrong and not really necessary, and 2.
The use of ASCII 252 created problems with . Might have
been a one-byte/three-byte confusion. But I checked for that in LIST, and
didn't see it.
So here are the two frames that were changed, and note that the new
separator is the double vertical bar of ASCII 186. And it used to be
case-sensitive, so I added a call to @LWR when I saved s/g 50. Found an
additional dupe afterwards (of one of mine with one of yours).

XPLeNCODE v2.0 (ENCODE.EXE)
b-gin [UNTITLED]
{123}{123}5CheckU2Dupes,ckd{125}{125} Exits if it finds one. C
alls frame EXTRACT (immediately below)[cr|lf]{002}{<}SV50,{>}{<}
SV51,{>};*;[cr|lf][JM_]2.hhlist[Q2_][TF_];*;[cr|lf]{<}SV01,{123}
{>}{<}SV02,{125}{>};*; can't put in the two braces directly--i
t confuses the U2[cr|lf];*;[cr|lf]{<}LBA{>};*; BIG LOOP [cr|lf]
;*;[JM_]2.extract{186}{<}PV97{>}{<}PV97{>}{186}{<}PV98{>}{<}PV
98{>}[Q2_];*;[cr|lf][BX_]se {186}{<}PV01{>}{<}PV01{>}{186}[Q2_]
;*;[cr|lf]{<}IF{<}ER{>}{>}[XD_][TF_]{<}PRNo duplicate frame na
mes found in current U2{>}{<}EX1{>}{<}EI{>};*;[cr|lf][XD_][DF_]
[BX_]se/f {186}{<}PV02{>}{<}PV02{>}{186}[Q2_];*;[cr|lf]{<}IF{<}
ER{>}{>}{<}PRFound start of frame but no end{>}{<}EX1{>}{<}EI{>}
;*;[cr|lf][DF_];*; below here have DeFined a frame name[cr|lf]
{<}SV50{>}[JM_]2.@LWR[Q2_];*; store it in s/g 50 and lower-cas
e it[cr|lf];*;  now test whether it's a dupe of previous (in{032}
s/g 51)[cr|lf]{<}IF{<}IS50{>}<>{<}IS51{>}{>};*; present select
ion not a duplicate of previous[cr|lf]{<}SX51,{<}IS50{>}{>};*;
 so update previous selection to present one, for next loop[cr|lf]
{<}GLA{>};*; lastly, loop back to see if next pair is a dupe[cr|lf]
;*;[cr|lf]{<}EI{>};*;Below here, have found a dupe, so show it
 in the U2[cr|lf]{<}SX51,{<}VA$U2{>}{>};*; had difficulties us
ing this variable directly[cr|lf][BX_]gofile {<}PV51{>}[Q2_]{<}
IF{<}ER{>}{>}[BX_]ca/100 {<}PV51{>}[Q2_]{<}EI{>};*; open U2 [cr|lf]
[XP_][XD_][TF_][BX_]se/f {186}{<}PV50{>}{186}[Q2_][XD_][DF_][BC_]
se {186}{<}PV50{>}{186}[XC_][DF_]{<}PR dupe found--SEearch for
 its dupe is on the CMLine{>}{<}EX1{>}{002}[cr|lf][cr|lf]{123}
{123}5extract*{125}{125} DeFines the text that lies between sp
ecified start and end. E.g., extract{186}{186}" and "" IF it lies beneath the cursor position.[cr|lf]
{002}{<}SX01,{<}VA$FR{>}{>}{<}SX02,{<}VA@01{186}2{>}{>}{<}SX03
,{<}VA@01{186}3{>}{>};*; parse out the args[cr|lf][BX_]se {186}
{<}PV02{>}{186}[Q2_];*;[cr|lf]{<}IF{<}ER{>}{>}[XD_]{<}PRU2 ext
ract frame reports: not found: @02{>}{<}EX1{>}{<}EI{>};*;[cr|lf]
[XD_][DF_];*;[cr|lf][BX_]se/f {186}{<}PV03{>}{186}[Q2_];*;[cr|lf]
{<}IF{<}ER{>}{>}[XD_]{<}PRU2 extract frame reports: not found:
 @03{>}{<}EX1{>}{<}EI{>};*;[cr|lf][DF_]{<}EX{>}{002}[cr|lf]
-nd
XPLeNCODE