Re: Testing $X

[Carl Distefano cld@xxxxxxxx]

Reply to note from Harry Binswanger  Sat, 27 Sep 2008
21:45:52 -0400

> Do you get, as I do, "Command is not recognized" when you do
> CA$ U2?

Only if I set default WA to a value greater than zero. In fact, I've
decided to take default WA out of the equation altogether, because it
is not reliably being set to zero when the routine executes. It's a
very touchy setting, and the workarounds are laborious. So just set
default WA=0 and be done with it. I've added code to eliminate any
unwanted "sticky" PRompts. Try 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][cr|lf]{002}{<
}SX01,{<}IS00{>}{>}{<}IF{<}VA$KC{>}==28!{<}VA$KC{>}==104{>}{<
}IF{<}VA$SM{>}>0{>}[JM_]2.null[Q2_]{<}EI{>}{<}IF{<}VA$TX{>}>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{>}{>}{<}S
X02,"[BX_]es 1[Q2_][BX_]d eb="+{<}IS02{>}[Q2_]"{>}{<}IF"D "{2
38}@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{>})
{>}{<}PV02{>}{<}EX{>}{<}EI{>}{<}SX01,{<}VA$ER{>}{>}{<}PV02{>}
{<}IF{<}PV01{>}<>12{>}[BX_]beep[Q2_]{<}SX01,"{<}VA\"+{<}IS01{
{062}}+"{>}"{>}{<}SX01,{<}PV01{>}{>}{<}PR@01{>}{<}EX{>}{<}EI{>}{<
}EI{>}{<}SV01,{>}{<}IF{<}VA$MG{>}<>""{>}{<}SX01,{<}VA$MG{>}{>
}{<}EI{>}{<}PR@01{>}[BX_]es[Q2_][JM_]2.PrsCMline[Q2_]{002}[cr
|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx