Re: Testing $X

[Harry Binswanger hb@xxxxxxxx]

Carl,
Right you are. I had reverted for testing to something closer to your
original. Here's how I call it:


XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5$Hsav}} test of new September 23, 2008 Enter routine[cr|l
f]{002}{<}IF{<}VA$TX{>}>0{>}[255+048+068]{<}EX{>}{<}EI{>};*;[
cr|lf]{<}IF"ci"{238}{<}IS00{>}==0!"cv"{238}{<}IS00{>}==0{>}[J
M_]2.$K[Q2_]{<}EI{>};*; a CI or CV: save w. $K[cr|lf]{<}SV91,
[BX_]es [Q2_][BX_]d eb=768,20000[Q2_]{>};*; store turning on{032}
beep[cr|lf][BX_]d eb=0,00[Q2_];*; turn off beep[cr|lf][XC_];*
; try to execute as a native Xy command[cr|lf]{<}IF@not({<}ER
{>}){>}{<}PV91{>}{<}EX{>}{<}EI{>};*; native command done, so{032}
reset & exit[cr|lf]{<}SX92,{<}VA$ER{>}{>};*; below here, may{032}
have been intended as U2 call[cr|lf]{<}IF{<}PV92{>}<>12{>};*;
 was NOT intended for U2: reset, give msg, beep, exit[cr|lf]{
<}PV91{>}{<}SX93,"{<}VA\"+{<}IS92{>}+"{>}"{>}{<}SX93,{<}PV93{
{062}}{>}{<}PR@93{>}[BX_]beep[Q2_]{<}EX{>}{<}EI{>};*; ;*; below h
ere is a U2 call, so do then reset[cr|lf][JM_]2.PrsCMline[Q2_
];*;[cr|lf]{<}IF{<}VA$ER{>}>1351{>}[JM_]2.hbcd[Q2_][BC_]{<}EI
{>};*;[cr|lf]{<}PV91{>}{002}[cr|lf]
-nd
XPLeNCODE
> Harry:
>
> > call $K on CI or CV
>
> I don't see this in your code.
>
> --
> Carl Distefano
> cld@xxxxxxxx


Harry Binswanger
hb@xxxxxxxx