Re: SL command

[cld@xxxxxxxx (Carl Distefano)]

Reply to note from Judith Davidsen  Mon, 26
Nov 2001 14:59:08 -0500

> This appeals tremendously. In fact, it's vaguely familiar--
> maybe this is the way SL originally worked for me.
>
> Judith Davidsen
>
>> On yet another hand (and in combination either of the other
>> two hands), it could be designed more cautiously to pause at
>> each open window and ask for user confirmation before saving
>> the file.

I don't think func SL ever had an option for user confirmation --
not even if the 5th value of default EP is set to 1 (which enables
user confirmation with func SA). Be that as it may, building this
option into the U2 frame I posted earlier was no problem.

Issue DECODE to decode the new frame below. CAll U2 and
delete the old frame {{5saveall,storeall}}. CoPy the new frame in
its place. Don't try to SAve or STore U2; rather, issue
LH, then ABort U2. Usage instructions are in the frame.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5saveall*,storeall*}} SAve|STore all open files [CLD rev.1
1/26/01][cr|lf]{2}{<}GLa{>}           Workaround f
or buggy funcs SL and SF[cr|lf][cr|lf]Commands:[cr|lf]SAVEALL
 or STOREALL[cr|lf]For No Verify (unPRompte
d) operation, append /NV to framename:[cr|lf]SAVEALL/NV or STOREALL/NV[cr|lf][cr|lf]Keyboard file:[cr|lf
]SAve all/Verify:[cr|lf]nn=NOXHJM2,.,s,a,v,e,a,l,l,Q2[cr|lf]S
Ave all/No Verify:[cr|lf]nn=NOXHJM2,.,s,a,v,e,a,l,l,/,n,v,Q2[
cr|lf]STore all/Verify:[cr|lf]nn=NOXHJM2,.,s,t,o,r,e,a,l,l,Q2
[cr|lf]STore all/No verify:[cr|lf]nn=NOXHJM2,.,s,t,o,r,e,a,l,
l,/,n,v,Q2[cr|lf][cr|lf]{<}LBa{>}{<}SX01,@upr({<}VA$FR{>}){>}
{<}SV02,{27}L{27}L{>}{<}XS01,02,,02,03{>}{<}SV03,{>}{<}IF"/NV
"{238}{<}IS01{>}<0{>}{<}SV03,ve{>}{<}IF{<}IS02{>}=="ST"{>}{<}
SV03,ore{>}{<}EI{>}{<}SX03,{<}IS02{>}+{<}IS03{>}+" this file?
 (Y|N|Esc)"{>}{<}EI{>}{<}SX01,{<}VA$WN{>}{>}{<}LBb{>}{<}PRWor
king{>}{<}IF{<}VA$WS{>}==1{>}{<}IF{<}VA|03{>}>0{>}{<}PR|@03{>
}{<}IF@upr({<}RK{>})=="Y"{>}{<}GLc{>}{<}EI{>}{<}IF{<}VA$KC{>}
<2{>}{<}PRQuit{>}{<}EX1{>}{<}EI{>}{<}GLd{>}{<}EI{>}{<}LBc{>}{
<}SX04,{<}VA$WN{>}{>}[BX_]{<}PV02{>}[Q2_]{<}IF{<}ER{>}{>}{<}S
X01,{<}VA$ER{>}{>}{<}SX01,"{<}VA\"+{<}IS01{>}+"{>}"{>}{<}SX01
,{<}PV01{>}{>}{<}PR@01{>}{<}EX1{>}{<}EI{>}[BX_]wait[Q2_]{<}IF
{<}IS02{>}=="ST"{>}{<}IF{<}VA$NW{>}=={<}PV04{>}&{<}VA$WO{>}>1
{>}[BX_]rs[Q2_]{<}EI{>}{<}IF{<}PV04{>}=={<}PV01{>}{>}{<}SX01,
{<}VA$WN{>}{>}{<}EI{>}{<}EI{>}{<}EI{>}{<}LBd{>}[NX_]{<}IF{<}V
A$WN{>}<>{<}PV01{>}&{<}VA$WO{>}>1{>}{<}GLb{>}{<}EI{>}{<}PRDon
e{>}{2}[cr|lf][cr|lf]
-nd
XPLeNCODE

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