RE: Programming question

[cld@xxxxxxxx (Carl Distefano)]

Reply to note from "Brian Henderson"  Sat,
26 Apr 2003 18:11:45 -0700

> Morris, I got it to work (in Xy3) with:
>
> TF >{place CR}BC stXC BC abXC

What if the d:\path\filename is already at top of file, as either
hard text or an embedded ? The routine should avoid
inserting duplicative information. Also, since STore is the
equivalent of SAve+ABort, there's no need for a separate AB command.
It is, however, good housekeeping to remove any empty screen
(command RS) that may be left after SToring the file -- but only if
it's not the last open window (in which case RS triggers an error).
This works in Xy4:

XPLeNCODE v2.0
b-gin [UNTITLED]
{<}SX01,{<}VA$FP{>}+"[cr|lf]"{>}[XP_][TF_][YD_][DL_]{<}SV02{>
}[DB_][YD_]{<}IF("|"+@upr({<}IS02{>})+"|"){238}("|"+{<}IS01{>
}+"|{<}VA$FP{>}[cr|lf]|")<0{>}{<}GT01{>}{<}EI{>}[BX_]st[Q2_][
BX_]wait[Q2_]{<}IF{<}VA$WO{>}>1{>}[BX_]rs[Q2_]{<}EI{>}{<}EX{>
}[cr|lf][cr|lf]
-nd
XPLeNCODE

Same for Xy3 (but Xy4+ is needed to decode it):

XPLeNCODE v2.0
b-gin [UNTITLED]
{<}SX01,{<}VA$FP{>}{>}{<}SV02,[cr|lf]{>}{<}SX01,{<}IS01{>}+{<
}IS02{>}{>}{<}SV03,{<}VA$FP{>}{>}{<}SX03,{<}IS03{>}+{<}IS02{>
}{>}[XP_][TF_][YD_][DL_]{<}SV02{>}{<}SX02,@upr({<}IS02{>}){>}
[TF_][YD_]{<}IF{<}IS02{>}<>{<}IS01{>}&{<}IS02{>}<>{<}IS03{>}{
>}{<}GT01{>}{<}EI{>}{<}SX01,{<}VA$NW{>}{>}[BC_]d nw=1[XC_][BC
_]st[XC_][BC_]wait[XC_][BC_]d nw={<}PV01{>}[XC_][BC_][GT_]{<}
EX{>}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx
http://users.datarealm.com/xywwweb/