Re: Subject: Re: XYWRITE digest 2483

["Robert Holmgren" holmgren@xxxxxxxx]

** Reply to message from "Patricia M. Godfrey"  on Sat, 21
Jan 2006 15:22:18 -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 >
>
>
> Here's my edited version of ClipW, in case I scrambled anything in
> editing it, but I was very, very careful:

Not careful enough. For one thing, you have DO/NV/X/Z /C KMD ... instead of
DOS/NV/X/Z /C KMD. For another, you didn't insert the original command in the
Paste section of the program. I.e., you bungled the first mod (you may not use
/C with the DO command, illegal & nonsensical, so of course it doesn't Copy OR
Paste), and completely ignored the second mod (which would have at least
reenabled Paste). I'm scribbling on running water here. Like this (works
under Win95 OSR2):

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_]dos/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,125
2{>}{<}EI{>}{<}SX12,{<}IS05{>}{>}{<}IF{<}IS05{>}{240}" "{>}{<
}SX12,{<}VA@05 1{>}{>}{<}EI{>}{<}IF{<}VA{021}12{>}>0{>}{<}SX0
4,{<}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{>}
{>}{<}SX04,{<}IS04{>}+" "+{<}IS99{>}{>}{<}GLB{>}{<}EI{>}{<}SX
04,{<}IS04{>}+" 1252"{>}{<}LBB{>}{<}IF{<}VA|06{>}>0{>}{<}IF@U
PR({<}IS10{>})<>"V"{>}{<}SX12,{<}I
S06{>}{>}{<}IF{<}IS06{>}{240}" "{>}{<}SX12,{<}VA@06 1{>}{>}{<
}EI{>}{<}IF{<}VA{021}12{>}>0{>}{<}IF{<}IS06{>}{240}" "{>}{<}X
S06,07,,07,13{>}{<}SX06,{<}IS13{>}{>}{<}EI{>}{<}SX04,{<}IS12{
{062}}+" "+{<}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{>}{<}I
F{<}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 {<}
PV09{>}[Q2_][BX_]wait[Q2_]{<}LBC{>}[BX_]exist {<}PV09{>}[Q2_]
{<}IF{<}ER{>}{>}{<}GLC{>}{<}EI{>}{<}SX07,{<}IS07{>}+" bytes"{
{062}}{<}LBD{>}{<}SX52,{<}PV52{>}+1{>}[JM_]2.tmpfile/nv[Q2_][BX_]
dos/nv/x/z /c copy {<}PV09{>}/a+{<}PV50{>} {<}PV09{>}/b>NUL[Q
2_][BX_]wait[Q2_]{<}GT11{>}{<}IF{<}PV03{>}<1{>}[GH_]{<}EI{>}[
DO_][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{>}{<}
EI{>}{<}EI{>}{<}IF{<}VA|02{>}>0{>}{<}SV06,{>}{<}IF@UPR({<}IS0
2{>})<>"/F"{>}{<}SX07,{<}VA|02{>}{>}{<}SX07,{<}IS07{>}+" byte
s"{>}{<}SV06,%02,{>}{<}LBF{>}[BX_]sa/nv {<}PV06{>}{<}PV09{>}[
Q2_][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
{>}
{<}EI{>};*;[cr|lf]{<}SX13,0{>}{<}IF{<}IS01{>}=="CLIPWR"{>}{<}
IF{<}VA$DF{>}<1{>}{<}PRNothing to Replace{>}{<}EX{>}{<}EI{>}{
<}SX13,1{>}[DZ_][DB_][DB_][RD_]{<}EI{>}{<}SU11,[BX_]do/nv/x/z
 {<}PV08{>}\CLIP.EXE {<}PV04{>} {<}PV14{>}[Q2_]{>}{<}GT11{>}{
<}PRPasting (be patient!){>}{<}SX50,{<}IS09{>}{>}[JM_]2.Await
File[Q2_]{<}IF{<}PV03{>}<1&{<}PV13{>}<1{>}{<}SX50,"12,"+{<}IS
09{>}{>}{<}SX11,{<}VA$GM8{>}{>}{<}SU02,{<}SX01,{<}IS00{>}{>}{
{062}}[SI_][GH_][255+070+070]KH{<}GT02{>}{<}SX01,"[255+075+072]"{
238}{<}IS01{>}{>}[BD_]{<}IF{<}PV11{>}<1{>}[TI_]{<}EI{>}[JM_]2
{046}SVfile[Q2_][JM_]2.KillACAZ[Q2_][GH_][EL_]{<}CUG,01{>}[CR_]{<
}LBG{>}{<}GT12{>}{<}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{>}{>}[J
M_]2.ScrnRest[Q2_][DO_][FF_]{<}SX06,{<}PV07{>}-{<}PV06{>}{>}{
<}IF{<}PV03{>}<1{>}[GH_]{<}EI{>}{<}EI{>}{<}SX02,"Pasted "+{<}
IS06{>}+" bytes"{>}{<}PR@02{>}{002}[cr|lf]
-nd
XPLeNCODE

-----------------------------
Robert Holmgren
holmgren@xxxxxxxx
-----------------------------