Re: Testing $X

[Carl Distefano cld@xxxxxxxx]

Reply to note from Harry Binswanger  Sat, 27 Sep 2008
14:50:47 -0400

Harry:

> 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

That couldn't possibly work. Even assuming that by "e" you mean the
Ascii-238 epsilon character, those [wX] SEarch wildcards will NOT do
the job! Plus, the placement of that code would mess up Enter key
functionality if the cursor is in text and a DEFAULT command is on the
CMline. No, that won't do.

But you do have a point insofar as insulating *all* DEFAULT and VA/NV
commands from the EB and WA reset would simplify matters -- and would
allow the routine to work with all commands. Try this:

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-a][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{>}{>}{<}SX02,"[BX_]es 1[Q2_][BX_]d eb="+{<}IS02
{>}+",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{032}
eb=0,0,wa=0[Q2_]{<}EI{>}[XC_]{<}IF@not({<}ER{>}){>}{<}PV02{>}
{<}EX{>}{<}EI{>}{<}SX01,{<}VA$ER{>}{>}{<}PV02{>}{<}IF{<}PV01{
{062}}<>12{>}[BX_]beep[Q2_]{<}SX01,"{<}VA\"+{<}IS01{>}+"{>}"{>}{<
}SX01,{<}PV01{>}{>}{<}PR@01{>}{<}EX{>}{<}EI{>}{<}EI{>}[BX_]es
[Q2_][JM_]2.PrsCMline[Q2_]{002}[cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx