Re: New Enter routine

[Carl Distefano cld@xxxxxxxx]

Reply to note from Carl Distefano  Sun, 21 Sep 2008
22:19:17 -0400

Whoops! Inadvertently omitted the code to Stack commands. Apologies.

Use this version, please, and discard all earlier.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5$X}} Execute native command|launch U2 frame [ arg(s)] (na
tive commands take precedence over framenames, except that 1-
char commands and HELP [framename] are launched as framenames
; Enter key functionality preserved if frame is assigned to k
ey# 28 or 104; command stacked if Stack is installed) [CLD re
v.9/21/08-a][cr|lf]{002}{<}SX01,{<}IS00{>}{>}{<}IF{<}VA$KC{>}
<>28&{<}VA$KC{>}<>104{>}{<}LBa{>}{<}IF{<}VA!620{>}<1{>}[$S_]{
<}EI{>}{<}SX02,{<}VA$EB{>}{>}{<}SX03,{<}VAWA{>}{>}{<}SX02,"[B
X_]es 1[Q2_][BX_]d eb="+{<}IS02{>}+",wa="+{<}IS03{>}+"[Q2_]"{
{062}}[BX_]d eb=0,0,wa=0[Q2_]{<}IF{<}IS01{>}=="?"!({<}VA|01{>}<>1
&"HELP"{238}@upr({<}IS01{>})<>0){>}[XC_]{<}IF@not({<}ER{>}){>
}{<}PV02{>}{<}EX{>}{<}EI{>}{<}SX03,{<}VA$ER{>}{>}{<}PV02{>}{<
}IF{<}PV03{>}<>12{>}[BX_]beep[Q2_]{<}SX02,"{<}VA\"+{<}IS03{>}
+"{>}"{>}{<}SX02,{<}PV02{>}{>}{<}PR@02{>}{<}EX{>}{<}EI{>}{<}E
I{>}{<}PV02{>}[BX_]es[Q2_][JM_]2.PrsCMline[Q2_]{<}EX{>}{<}EI{
{062}}{<}IF{<}VA$SM{>}>0{>}[JM_]2.null[Q2_]{<}EI{>}{<}IF{<}VA$TX{
{062}}<1{>}{<}GLa{>}{<}EI{>}[255+048+068]{002}[cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx