Re: Subject: Re: XYWRITE digest 2483

["Patricia M. Godfrey" PriscaMG@xxxxxxxx]

** Reply to message from "Robert Holmgren"  Fri, 20
Jan 2006 15:54:43 -0500
>>try this: about 11 lines down into U2 frame ClipW*, you'll see this
SUbroutine:
\CLIP.EXE  Q2 >
 Change it as follows:
\CLIP.EXE  Q2 >
<<
Did so (I left the other change you suggested to do later, on the
premise that one should change one thing at a time when debugging). Did
Loadhelp Helpkey to get it into U2, then DEfined the same piece of
XPLeNcoded text and Clipped it. Clip reported Clipped 585 bytes, and
CLip.txt contained the code, but when I went into EditPad (a plain text
editor that I use in place of Notepad; very lean and stable app, never
gives any trouble) and hit Ctrl-V, NOTHING was pasted. Apparently the
copy never got posted to the Windows clipboard (something I just
verified by opening the Clipboard Viewer, one of M$'s system tools in 9x).
Here's my edited version of ClipW, in case I scrambled anything in
editing it, but I was very, very careful:
XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5ClipW*}} Copy|Paste (Win32 only) RJH LastRev.12/1/05[cr|
lf]{002}{<}SX01,@UPR({<}VA$FR{>}){>}[BX_]es 1[Q2_]{<}SV02,{>}
{<}SX03,{<}VA$TX{>}{>}{<}SV04,{>}{<}SX05,{<}IS00{>}{>}{<}SV06
,{>}{<}SV07, {>}{<}IF{<}PV03{>}<1{>}{<}SX06,{<}IS05{>}{>}{<}I
F"CLIP"{238}@UPR({<}IS05{>})==0{>}{<}IF{<}IS05{>}{240}" "{>}{
<}SV08, {>}{<}XS05,07,,07,06{>}{<}SX05,{<}IS06{>}{>}{<}GLA{>}
{<}EI{>}{<}SV06,{>}{<}SV05,{>}{<}LBA{>}{<}EI{>}{<}EI{>}{<}IF{
<}VA|50{>}>0&{<}VA|06{>}<1{>}{<}SX06,{<}IS50{>}{>}{<}EI{>}{<}
SX50,{<}VA$ED{>}{>}[JM_]2.GetPath[Q2_]{<}SX08,{<}IS50{>}{>}{<
}SX09,{<}IS08{>}+"\CLIP.TXT"{>}[BX_]ernv {<}PV09{>}[Q2_][BX_]
wait[Q2_]{<}SV99,EXE_or_VBS{>}[JM_]2.RegData[Q2_]{<}SX10,{<}I
S99{>}{>}{<}IF@UPR({<}IS99{>})=="V"{>}{<}SU11,[BX_]do/nv/x/z{032}
CSCRIPT.EXE //nologo {<}PV08{>}\CLIP.VBS {<}PV04{>}[Q2_]{>}{<
}GLB{>}{<}EI{>}{<}SV99,ChunkSz{>}[JM_]2.RegData[Q2_]{<}SX14,{
<}IS99{>}{>}{<}IF{<}VA|14{>}<1{>}{<}SV14,8192{>}{<}EI{>}{<}SU
11,[BX_]do/nv/x/z /c kmd /c start /min {<}PV08{>}\CLIP.EXE {<
}PV04{>} {<}PV14{>}[Q2_]{>}{<}IF{<}IS01{>}{240}"/"{>}{<}SX04,
{<}VA@01/2{>}{>}{<}EI{>}{<}IF{<}VA{021}04{>}<1{>}{<}SV04,1252
{>}{<}EI{>}{<}SX12,{<}IS05{>}{>}{<}IF{<}IS05{>}{240}" "{>}{<}
SX12,{<}VA@05 1{>}{>}{<}EI{>}{<}IF{<}VA{021}12{>}>0{>}{<}SX04
,{<}IS12{>}{>}{<}IF{<}IS05{>}{240}" "&{<}PV03{>}<1{>}{<}XS05,
07,,07,06{>}{<}EI{>}{<}EI{>}{<}SV99,1252{>}[JM_]2.RegData[Q2_
]{<}IF@UPR({<}IS99{>})=="Y"{>}{<}SX04,{<}IS04{>}+" 1252"{>}{<
}GLB{>}{<}EI{>}{<}IF{<}VA$VE{>}<>"V4.1"{>}{<}SX99,{<}VALA{>}{
{062}}{<}SX04,{<}IS04{>}+" "+{<}IS99{>}{>}{<}GLB{>}{<}EI{>}{<}SX0
4,{<}IS04{>}+" 1252"{>}{<}LBB{>}{<}IF{<}VA|06{>}>0{>}{<}IF@UP
R({<}IS10{>})<>"V"{>}{<}SX12,{<}IS
06{>}{>}{<}IF{<}IS06{>}{240}" "{>}{<}SX12,{<}VA@06 1{>}{>}{<}
EI{>}{<}IF{<}VA{021}12{>}>0{>}{<}IF{<}IS06{>}{240}" "{>}{<}XS
06,07,,07,13{>}{<}SX06,{<}IS13{>}{>}{<}EI{>}{<}SX04,{<}IS12{>
}+" "+{<}VA@04 2{>}{>}{<}EI{>}{<}EI{>}{<}IF{<}PV03{>}<1!@UPR(
{<}VA@06{>})=="/F"{>}{<}SX02,{<}IS06{>}{>}{<}EI{>}{<}EI{>}{<}
IF{<}IS01{>}<>"CLIPWP"&{<}IS01{>}<>"CLIPWR"{>}{<}IF{<}IS01{>}
{240}"A"{>}{<}SX04,"A "+{<}IS04{>}{>}{<}EI{>}{<}IF{<}IS01{>}{
240}"B"{>}{<}SX04,"B "+{<}IS04{>}{>}{<}EI{>}{<}SX52,0{>}{<}IF
{<}VA|02{>}<1{>}{<}IF{<}VA$DF{>}>0&{<}PV03{>}>0{>}[DZ_][GT_]{
<}IF{<}VA$DS{>}<{<}VA$DN{>}{>}{<}SX07,{<}VA$DN{>}{>}{<}SX06,{
<}VA$DS{>}{>}{<}SX07,{<}PV07{>}-{<}PV06{>}{>}[BX_]sad/nv {<}P
V09{>}[Q2_][BX_]wait[Q2_]{<}LBC{>}[BX_]exist {<}PV09{>}[Q2_]{
<}IF{<}ER{>}{>}{<}GLC{>}{<}EI{>}{<}SX07,{<}IS07{>}+" bytes"{>
}{<}LBD{>}{<}SX52,{<}PV52{>}+1{>}[JM_]2.tmpfile/nv[Q2_][BX_]d
os/nv/x/z /c copy {<}PV09{>}/a+{<}PV50{>} {<}PV09{>}/b>NUL[Q2
_][BX_]wait[Q2_]{<}GT11{>}{<}IF{<}PV03{>}<1{>}[GH_]{<}EI{>}[D
O_][FF_]{<}SX07,"Clipped "+{<}IS07{>}{>}{<}PR@07{>}{<}EX{>}{<
}EI{>}{<}EI{>}{<}IF{<}PV03{>}<1{>}{<}IF@UPR({<}IS05{>}){238}{
<}IS01{>}==0{>}{<}IF{<}IS05{>}{240}" "{>}{<}SV50, {>}{<}XS05,
50,,50,02{>}{<}GLE{>}{<}EI{>}{<}SV02,{>}{<}LBE{>}{<}EI{>}{<}E
I{>}{<}EI{>}{<}IF{<}VA|02{>}>0{>}{<}SV06,{>}{<}IF@UPR({<}IS02
{>})<>"/F"{>}{<}SX07,{<}VA|02{>}{>}{<}SX07,{<}IS07{>}+" bytes
"{>}{<}SV06,%02,{>}{<}LBF{>}[BX_]sa/nv {<}PV06{>}{<}PV09{>}[Q
2_][BX_]wait[Q2_]{<}GLD{>}{<}EI{>}{<}SX07,"file "+{<}VA$FP{>}
{>}{<}GLF{>}{<}EI{>}{<}IF{<}IS01{>}{240}"A"!{<}IS01{>}{240}"B
"!{<}IS01{>}{240}"WC"{>}{<}PRNothing to Copy{>}{<}EX{>}{<}EI{
{062}}
{<}EI{>};*;[cr|lf]{<}SX13,0{>}{<}IF{<}IS01{>}=="CLIPWR"{>}{<}
IF{<}VA$DF{>}<1{>}{<}PRNothing to Replace{>}{<}EX{>}{<}EI{>}{
<}SX13,1{>}[DZ_][DB_][DB_][RD_]{<}EI{>}{<}GT11{>}{<}PRPasting
(be patient!){>}{<}SX50,{<}IS09{>}{>}[JM_]2.AwaitFile[Q2_]{<
}IF{<}PV03{>}<1&{<}PV13{>}<1{>}{<}SX50,"12,"+{<}IS09{>}{>}{<}
SX11,{<}VA$GM8{>}{>}{<}SU02,{<}SX01,{<}IS00{>}{>}{>}[SI_][GH_
][255+070+070]KH{<}GT02{>}{<}SX01,"[255+075+072]"{238}{<}IS01
{>}{>}[BD_]{<}IF{<}PV11{>}<1{>}[TI_]{<}EI{>}[JM_]2.SVfile[Q2_
][JM_]2.KillACAZ[Q2_][GH_][EL_]{<}CUG,01{>}[CR_]{<}LBG{>}{<}G
T12{>}{<}SX06,{<}VA|12{>}{>}{<}EI{>}{<}IF{<}PV03{>}>0!{<}PV13
{>}>0{>}[DX_][GT_]{<}SX06,{<}CP{>}{>}[BS_]{<}SX02,{<}CP{>}{>}
[HM_]{<}SX08,{<}CP{>}{>}{<}SX50,{<}IS06{>}{>}[JM_]2.ReJuMP[Q2
_][BX_]me {<}PV09{>}[Q2_][BX_]wait[Q2_]{<}SX07,{<}CP{>}{>}{<}
SX50,{<}IS08{>}+"|"+{<}IS02{>}+"|"+{<}IS07{>}{>}[JM_]2.ScrnRe
st[Q2_][DO_][FF_]{<}SX06,{<}PV07{>}-{<}PV06{>}{>}{<}IF{<}PV03
{>}<1{>}[GH_]{<}EI{>}{<}EI{>}{<}SX02,"Pasted "+{<}IS06{>}+" b
ytes"{>}{<}PR@02{>}{002}[cr|lf]
-nd
XPLeNCODE
As I have said, I can work around this, and I know your opinion of 9x,
so anythime you want to throw in the towel, it's fine by me. On the
other hand, if you really want to get to the bottom of this, I'll be
glad to continue testing.

Patricia M. Godfrey