Re: New Enter routine

[Carl Distefano cld@xxxxxxxx]

Reply to note from Harry Binswanger  Sat, 20 Sep
2008 17:41:00 -0400

> The new ENTER routine works beautifully and is a real pleasure.

Here, try this. Yet another variant, with a new framename: $X.

This frame replaces the three earlier ones; they are now combined
into a single routine.

The frame can be assigned to any key, including Enter, with
nn=NOJM(,2,.,$,X,)
or, simply
nn=$X
(For the latter assignment to work, frame {{5$?}} must be located in
the DLG file.)

Commands are stacked if Stack installed. No need to include the $S
function call in the key assignment; in fact, it is redundant.

Native commands take precedence over U2 framenames, with two
exceptions: 1-char commands (except "?"), and "HELP [framename]",
are launched as U2 framenames.

You *still* need regular Helpkey and Enter key assignments, for the
reasons noted in my earlier message.

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 assigned to key# 28 or
 104; command stacked if Stack is installed) [CLD rev.9/20/08
][cr|lf]{002}{<}IF{<}VA$KC{>}<>28&{<}VA$KC{>}<>104{>}{<}LBa{>
}{<}IF{<}VA!620{>}<1{>}[$S_]{<}EI{>}{<}SX01,{<}VA$EB{>}{>}{<}
SX02,{<}VAWA{>}{>}{<}SX01,"[BX_]es 1[Q2_][BX_]d eb="+{<}IS01{
{062}}+",wa="+{<}IS02{>}+"[Q2_]"{>}[BX_]d eb=0,0,wa=0[Q2_]{<}IF{<
}IS00{>}=="?"!{<}VA|00{>}<>1&"HELP"{238}@upr({<}IS00{>})<>0{>
}[XC_]{<}IF@not({<}ER{>}){>}{<}PV01{>}{<}EX{>}{<}EI{>}{<}SX02
,{<}VA$ER{>}{>}{<}PV01{>}{<}IF{<}PV02{>}<>12{>}[BX_]beep[Q2_]
{<}SX01,"{<}VA\"+{<}IS02{>}+"{>}"{>}{<}SX01,{<}PV01{>}{>}{<}P
R@01{>}{<}EX{>}{<}EI{>}{<}EI{>}{<}PV01{>}[BX_]es[Q2_][JM_]2.P
rsCMline[Q2_]{<}EX{>}{<}EI{>}{<}IF{<}VA$SM{>}>0{>}[JM_]2.null
[Q2_]{<}EI{>}{<}IF{<}VA$TX{>}<1{>}{<}GLa{>}{<}EI{>}[255+048+0
68]{002}[cr|lf]
-nd
XPLeNCODE

Enjoy.

--
Carl Distefano
cld@xxxxxxxx