Testing $X

[Harry Binswanger hb@xxxxxxxx]

Carl,
I've been so wrapped up in the spelling-checker issue that I hadn't focused
until now on a problem I'm seeing here with the $X routine's restoration of
the default values.
The  doesn't seem to be working. It isn't restoring my EB value.
I have put in a test to write the contents of 02, early on, to the top of
the file and nothing gets written there (i.e., 02 is null).
Separately, do you agree with how I've inserted a test for calling $K
(which I think I want only when I've done a CI or CV)?
In accordance with Generally Accepted Accounting Principles, I've renamed
the frame, to $H, because I've modified it in three regards: 1. the
debugging test for EB, 2. the $K part, 3. at the end, I have it call my
HBCD frame if it gives "application error." But I get the same inability to
restore EB with the unmodified $X frame.
I haven't tested the WA restoration, because I have my own DF value there
set to 0 anyway.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5$H}} 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] HB: My slight modifications: call $K on CI or CV, call HBCD
(near end) if "application error"
[cr|lf]{002}{<}SX01,{<}IS00{>}{>}{<}IF{<}VA$KC{>}<>28&{<}VA$K
C{>}<>104{>}{<}LBa{>}{<}IF{<}VA!620{>}<1{>}[$S_]{<}EI{>}{<}SX
02,{<}VA$EB{>}{>}{<}SX03,{<}VAWA{>}{>}{<}SX02,"[BX_]es 1[Q2_]
[BX_]d eb="+{<}IS02{>}+[cr|lf]",wa="+{<}IS03{>}+"[Q2_]"{>}[TF
_]{<}PV02{>}{<}EX{>}[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{>}{<}EI{>}{<}PV02{>}[BX_]es[Q2_][JM_]2.PrsCMline[
Q2_]{<}IF{<}VA$ER{>}>1351{>}[JM_]2.hbcd[Q2_][BX_]es[Q2_]{<}EI
{>};*;[cr|lf]{<}EX{>}{<}EI{>}{<}IF{<}VA$SM{>}>0{>}[JM_]2.null
[Q2_]{<}EI{>}{<}IF{<}VA$TX{>}<1{>}{<}GLa{>}{<}EI{>}[255+048+0
68]{002}[cr|lf][cr|lf]
-nd
XPLeNCODE



Harry Binswanger
hb@xxxxxxxx