Re: Testing $X

[Carl Distefano cld@xxxxxxxx]

Reply to note from Harry Binswanger  Sun, 28 Sep
2008 22:05:17 -0400

> Well . . . This sequence fails:
>
> 1. d wa=11<$Xkey>|XC-key
> 2. va/nv wa gives 11
> 3. va/nv wa<$Xkey> gives 0.

Hoh-kay. Try this.

And... nice knowing you, Harry. Take good care now.

No, seriously. This should do it.

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-e][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_]"{>}{<}SX03,"[BX_]d wa="+{<}IS03{>}
+"[Q2_]"{>}{<}IF"D "{238}@upr({<}IS01{>})==0!"DEFAULT "{238}@
upr({<}IS01{>})==0!"VA/NV "{238}@upr({<}IS01{>})==0{>}{<}SV02
,[BX_]es 1[Q2_]{>}{<}EI{>}{<}IF"D WA"{238}@upr({<}IS01{>})==0
!"DEFAULT WA"{238}@upr({<}IS01{>})==0{>}{<}SV03,{>}{<}EI{>}{<
}IF{<}VA|02{>}>0{>}[BX_]d eb=0,0[Q2_]{<}EI{>}{<}IF"VA/NV WA"{
238}@upr({<}is01{>})==0{>}{<}PV03{>}{<}SV03,{>}{<}EI{>}[XC_]{
<}IF@not({<}ER{>})!{<}VA$ER{>}<>12{>}{<}PV02{>}{<}PV03{>}{<}E
X{>}{<}EI{>}[BX_]wait[Q2_]{<}PV02{>}{<}PV03{>}{<}EI{>}{<}SV01
,{>}{<}IF{<}VA$MG{>}<>""{>}{<}SX01,{<}VA$MG{>}{>}{<}EI{>}{<}P
R@01{>}[BX_]es[Q2_][JM_]2.PrsCMline[Q2_]{002}[cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx