Re: Testing $X

[Harry Binswanger hb@xxxxxxxx]

Carl,
The new routine indeed solves that EB/WA problem, as tested so far. Thanks
very much. At odd times, however, my EB becomes 0,0. I am tracking it down
by changing the $X frame to do 1,1 instead of 0,0--and I'll see if when I
"lose" my EB settings, it goes to 1,1 or 0,0.

Could I prevail upon you to explain the new code? I mean the section from:
>
to:
I understand all the old code, but this new part uses more s/gs and calls
that SUbroutine (and seemingly too late--after 03 is defined in terms of it).
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.

This works for me (for the beginning of $X):

XPLeNCODE v2.0
b-gin [UNTITLED]
{<}SX01,{<}IS00{>}{<}IF"D [wX][wX]="e@upr({<}IS01{>})==0!"VA/
NV"e@upr({<}IS01{>})==0{>}[XC_]{<}EX{>}{<}EI{>}
-nd
XPLeNCODE

Inelegant but effective.
One outstanding problem: I sometimes see a prompt "Command is not
recognized"--e.g., when doing CA$ U2. Do you get that as well?
Reply to note from Harry Binswanger  Fri, 26 Sep 2008
18:03:39 -0400

Here's $X again. I'd found that missing close paren on my office
computer, but didn't make the change at home.

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

--
Carl Distefano
cld@xxxxxxxx


Harry Binswanger
hb@xxxxxxxx