OK, Harry. I think this is THE ONE. Solves all the problems you
mentioned
Yep!
AND successfully restores VAWA. Try it.
Well . . . This sequence fails:
1. d wa=11<$Xkey>|XC-key
2. va/nv wa gives 11
3. va/nv wa<$Xkey> gives 0.
I think it's only the doing of VA/NV<$Xkey> that results in an unrestored WA.
E.g., this works fine:
1. d wa=11<$Xkey>
2. xstreet<$Xkey>
3. va/nv wa
Strangely, EB is not subject to the problem--i.e., VA/NV EB<$Xkey> reports
the original value.
Since I normally work with WA=0, this is not an issue for me.
--Harry
XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5$X}} Issue COMMAND[ arg(s)] or U2_FRAMENAME[ arg(s
)] with a single key [CLD rev.9/28/08-d][cr|lf]{002}
{<}SX01,{<}IS00{>}{>}{<}IF{<}VA$KC{>}==28!{<}VA$KC{>}==104{>}
{<}IF{<}VA$SM{>}>0{>}[JM_]2.null[Q2_]{<}EI{>}{<}IF{<}VA$TX{>}
{062}0{>}[255+048+068]{<}EX{>}{<}EI{>}{<}EI{>}{<}IF{<}VA!620{>}<1
&{<}VA|01{>}>0{>}[$S_]{<}EI{>}{<}IF{<}IS01{>}=="?"!{<}VA|01{>
}>1&"HELP"{238}@upr({<}IS01{>})<>0{>}{<}SX02,{<}VA$EB{>}{>}{<
}SX03,{<}VAWA{>}{>}[BX_]d wa=0[Q2_]{<}SX02,"[BX_]es 1[Q2_][BX
_]d eb="+{<}IS02{>}+"[Q2_][BX_]d wa="+{<}IS03{>}+"[Q2_]"{>}{<
}IF"D "{238}@upr({<}IS01{>})==0!"DEFAULT "{238}@upr({<}IS01{>
})==0!"VA/NV "{238}@upr({<}IS01{>})==0{>}{<}SV02,{>}{<}EI{>}{
<}IF{<}VA|02{>}>0{>}[BX_]d eb=0,0[Q2_]{<}EI{>}[XC_]{<}IF@not(
{<}ER{>})!{<}VA$ER{>}<>12{>}{<}PV02{>}{<}EX{>}{<}EI{>}[BX_]wa
it[Q2_]{<}PV02{>}{<}EI{>}{<}SV01,{>}{<}IF{<}VA$MG{>}<>""{>}{<
}SX01,{<}VA$MG{>}{>}{<}EI{>}{<}PR@01{>}[BX_]es[Q2_][JM_]2.Prs
CMline[Q2_]{002}[cr|lf]
-nd
XPLeNCODE
Now, it's on to a deep study of Robert's truly unbelievable $K
routine. After some quick testing, I can see that it will both
fundamentally change the way we use XyWrite *and* solve the
financial crisis. Buddy, can you spare a paradigm?
--
Carl Distefano
cld@xxxxxxxx
Harry Binswanger
hb@xxxxxxxx