Re: The value of $X

[Carl Distefano cld@xxxxxxxx]

Reply to note from Harry Binswanger  Sun, 05 Oct
2008 16:41:24 -0400

Harry:

I made a small mod to frame $X, to allow "point-and-shoot"
operations on DIRectory listings. Here it is:

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5$X}} Issue COMMAND[ arg(s)] or U2_FRAMENAME[ arg(s
)] with a single key [CLD rev.10/10/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&{<}VA$WS{>}<2{>}[255+048+068]{<}EX{>}{<}EI{>}{<}EI{>}{<}IF{
<}VA!620{>}<1&{<}VA|01{>}>0{>}[JM_]2.$S[Q2_]{<}EI{>}{<}IF{<}I
S01{>}=="?"!{<}VA|01{>}>1&"HELP"{238}@upr({<}IS01{>})<>0{>}{<
}SX02,{<}VA$EB{>}{>}{<}SX03,{<}VAWA{>}{>}[BX_]d wa=0[Q2_]{<}S
X02,"[BX_]es 1[Q2_][BX_]d eb="+{<}IS02{>}+"[Q2_]"{>}{<}SX03,"
[BX_]d wa="+{<}IS03{>}+"[Q2_]"{>}{<}IF"D EB"{238}@upr({<}IS01
{>})==0!"DEFAULT EB"{238}@upr({<}IS01{>})==0!"D $EB"{238}@upr
({<}IS01{>})==0!"DEFAULT $EB"{238}@upr({<}IS01{>})==0!"VA/NV{032}
EB"{238}@upr({<}IS01{>})==0!"VA/NV $EB"{238}@upr({<}IS01{>})=
=0{>}{<}SV02,[BX_]es 1[Q2_]{>}{<}EI{>}{<}IF"D WA"{238}@upr({<
}IS01{>})==0!"DEFAULT WA"{238}@upr({<}IS01{>})==0{>}{<}SV03,{
{062}}{<}EI{>}{<}IF{<}VA|02{>}>10{>}[BX_]d eb=0,0[Q2_]{<}EI{>}{<}
IF"VA/NV WA"{238}@upr({<}IS01{>})==0{>}{<}PV03{>}{<}SV03,{>}{
<}EI{>}[XC_]{<}IF@not({<}ER{>})!{<}VA$ER{>}<>12{>}{<}PV02{>}{
<}PV03{>}{<}EX{>}{<}EI{>}[BX_]wait[Q2_]{<}PV02{>}{<}PV03{>}{<
}EI{>}{<}SV01,{>}{<}IF{<}VA$MG{>}<>""{>}{<}SX01,{<}VA$MG{>}{>
}{<}EI{>}{<}PR@01{>}[BX_]es[Q2_][JM_]2.PrsCMline[Q2_]{002}[cr
|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx