Re: Testing $X

[Carl Distefano cld@xxxxxxxx]

Reply to note from Harry Binswanger  Fri, 26 Sep
2008 21:46:38 -0400

Harry:

> Does any of this make sense to you?

You're right! There were (at least) two errors in my code: one that
caused EB to stay at 0,0 (and WA to stay at 0) under certain
conditions, and another that precluded using <$Xkey> to change the
EB or WAit settings. Fixed below.

One thing, though: Because of a feedback loop, you cannot use
<$Xkey> to set EB=0,0 or WA=0. You have to use a standard func XC or
 to set those values (only). If you can think of a way around
that, I'd be eager to hear it.

Try this new frame and let me know. Thanks for the helpful comments!

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5$X}} Issue COMMAND[ arg(s)] or U2_FRAMENAME[ arg(s
)] with a single key [CLD rev.9/26/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{>}
{062}1&"HELP"{238}@upr({<}IS01{>})<>0{>}{<}SU02,{<}SX03,{<}VA$EB{
{062}}{>}{<}SX04,{<}VAWA{>}{>}{<}SX03,"[BX_]es 1[Q2_][BX_]d eb="+
{<}IS03{>}+",wa="+{<}IS04{>}+"[Q2_]"{>}{>}{<}GT02{>}[BX_]d eb
=0,0,wa=0[Q2_][XC_]{<}IF@not({<}ER{>}){>}{<}SX05,{<}VA$EB{>}{
{062}}{<}SX05,{<}IS05{>}{>}{<}IF{<}IS05{>}>"0,0"!{<}VAWA{>}>0{>}{
<}GT02{>}{<}EI{>}{<}PV03{>}{<}EX{>}{<}EI{>}{<}SX04,{<}VA$ER{>
}{>}{<}PV03{>}{<}IF{<}PV04{>}<>12{>}[BX_]beep[Q2_]{<}SX03,"{<
}VA\"+{<}IS03{>}+"{>}"{>}{<}SX03,{<}PV03{>}{>}{<}PR@03{>}{<}E
X{>}{<}EI{>}{<}EI{>}[BX_]es[Q2_][JM_]2.PrsCMline[Q2_]{002}[cr
|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx