Re: A program to date-stamp print-outs [more]

[cld@xxxxxxxx (Carl Distefano)]

Reply to note from Harry Binswanger  Sun, 27 Apr
2003 21:10:32 -0400

Harry:

Whoops -- one other thing. You've got to run a second test for an
available window before you do the DIR command, and ABort the temp
file if all windows are in use.

Is that forced SAve really necessary? I always hesitate to fool
around with other people's work that way. Why not omit it, so that
the program prints out the file as currently written to disk (thus
ignoring changes made since the last SAve). That way, the user has
options (to SAve immediately before running the program, or not to
SAve), and you the programmer don't get involved in making decisions
for him that he can and should be making for himself. If you
document this behavior, I don't see any downside. The upside, in my
view, is real.

Here's the new revision:

XPLeNCODE v2.0
b-gin [UNTITLED]
;*; A program to date-stamp print-outs [HB rev. CLD 4/28/03 1
2:22 AM][cr|lf]{<}IF{<}VA$WA{>}<1{>}{<}PRNo window available{032}
for temp file - Abort{>}{<}EX{>}{<}EI{>};*;[cr|lf][BX_]es 1[Q
2_];*;[cr|lf];*;[cr|lf];*;[BX_]sa[Q2_][BX_]wait[Q2_];*; <== I
 recommend omitting the SAve![cr|lf];*;[cr|lf]{<}SX01,{<}VA$F
P{>}{>}{<}SV02,$_$__.tmp{>}[BX_]ernv {<}PV02{>}[Q2_][BX_]wait
[Q2_]{<}SX03,{<}VA$WA{>}{>}[BX_]func #{<}PV03{>}[Q2_][BX_]ne/
100 {<}PV02{>}[Q2_][BX_]me {<}PV01{>}[Q2_][BX_]wait[Q2_][TF_]
[BX_]se /[w<]RH/[Q2_]{<}IF{<}ER{>}{>}{<}SV03,RHA{>}{<}GLa{>}{
<}EI{>}[TF_][BX_]se /[w<]RF/[Q2_]{<}IF@not({<}ER{>}){>}{<}PRA
borted--file already has a header and a footer{>}{<}EX{>}{<}E
I{>}{<}SV03,RFA{>}{<}LBa{>}{<}IF{<}VA$WA{>}<1{>}{<}SX03,{<}VA
$WN{>}{>}[BX_]ab/nv[Q2_]{<}IF{<}VA$WN{>}=={<}PV03{>}&{<}VA$WO
{>}>1{>}[BX_]rs[Q2_]{<}EI{>}{<}PRTwo available windows requir
ed - Abort{>}{<}EX{>}{<}EI{>}{<}SX04,{<}VA$WA{>}{>}[BX_]func{032}
#{<}PV04{>}[Q2_]{<}SX04,{<}VA$XD{>}{>}[BX_]d xd=0[Q2_][BX_]di
r {<}PV01{>}[Q2_][NW_][NW_][DF_][LE_][CL_][DF_][BX_]lc[Q2_]{<
}SV04{>}[BX_]ab/nv[Q2_][TF_]{<}SX03,{<}IS03{>}+"{<}FR{>}{<}SZ
6PT{>}"{>}{<}IF{<}IS03{>}{240}"RHA"{>}{<}SX03,{<}IS03{>}+"[cr
|lf][cr|lf][cr|lf]"{>}{<}EI{>}{<}SX03,{<}IS03{>}+{<}IS01{>}+"
 "+{<}IS04{>}{>}{<}SX03,"{<}"+{<}IS03{>}+"{>}"{>}{<}GT03{>}[
BX_]ty[Q2_][BX_]wait[Q2_][BX_]ab/nv[Q2_]{<}PRPrinting is done
{046}{>}{<}EX{>}[cr|lf][cr|lf]
-nd
XPLeNCODE

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