Re: Corrected HBSA--Corrected

[Harry Binswanger hb@xxxxxxxx]

Carl,

Yes, your revision is exactly what I would have done, had I know how .
I wanted to test for the 4 conditions of save and backup and somehow
combine the resultant text with . E.g., @01> with 01 having some composite value, 0 thru 3, to be decoded. I gave
up on that. I learned that you can have  but not
 Your way of using an additional S/G and saving the
error messages is perfect! Lesson learned.
- You don't need a "Done" PRompt if the SAve succeeds -- Editor does
that for you.
I wanted (particularly in testing) to be able to distinguish my PRompt from
Editor's. That's why I surrounded mine with hyphens. But now I'm happy with
your routine and Editor's message.

Thanks, Carl.

Regards,
Harry
XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5hbsa}} For ctrl-s and ctrl-e: keep bk=0 but get same effe
ct; also if file is U2, calls LoadHelp [HB 10/21/09 rev. CLD{032}
10/22/09][cr|lf]{002}{<}SX01,{<}VA$FP{>}{>}{<}SX02,{<}VA$U2{>
}{>}{<}IF{<}IS01{>}<>{<}IS02{>}{>};*; regular, non-U2 case[cr
|lf]{<}SX02,{<}VA$FI{>}{>}{<}SV03,{>};*;[cr|lf][BX_]exist {<}
PV01{>}[Q2_]{<}IF@NOT({<}ER{>})&{<}IS01{>}<>("C:\BAK\"+{<}IS0
2{>}){>}[BX_]copy/nv {<}PV01{>} C:\BAK\{<}PV02{>}[Q2_]{<}IF{<
}ER{>}{>}{<}SX03,{<}VA$ER{>}{>}{<}SX03,{<}VA\@03{>}{>}{<}EI{>
}{<}EI{>};*; [cr|lf][GT_]{<}SV01,{>}{<}GT01{>};*; force disk-
write without (even temporarily) modifying file[cr|lf][BX_]sa
[Q2_]{<}IF{<}ER{>}{>}{<}SX01,{<}VA$ER{>}{>}{<}SX01,{<}VA\@01{
{062}}{>}{<}SX01,"SAve error: "+{<}IS01{>}{>}{<}EI{>}{<}IF{<}VA|0
3{>}>0{>}{<}SX01,{<}IS01{>}+" Backup error: "+{<}IS03{>}{>}{<
}EI{>}{<}IF{<}va|01{>}>0{>}{<}PR@01{>}{<}EI{>}{<}EX{>};*;[cr|
lf]{<}EI{>};*;[cr|lf][JM_]2.LH[Q2_]{<}EX{>}{002}[cr|lf][cr|lf
]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx


Harry Binswanger
hb@xxxxxxxx