Hi Paul,
         I've just been fiddling trying to read and write to the same
file without much success, so I gave it up and read files.20 into an
array and then wrote in back separately, to avoid having to use a
temp file which bloody useless C is unable to erase properly like a
decent language like Pascal can do with one leg in the air.

  This is the revised utility which removes the zero length files from
files.20 without using a temp file. It's limited to 512 lines which
ought to be enough. The only catch I can see is that it rewrites
files.20 with the actual data in memory, and if something went wrong
at that point you'd be rooted.

section 1 of 1 of file null20.zip  

begin 644 null20.zip
M4$L#!!0````(`&Z!72%$5\(V]{at}(``/P&```(````3E5,3#(P+D.-5.M*&T$4
M_CU"WN$D_>&NN6Y`*<8(4A2$T$*T4-#\F&YFD\'-;#H[T=CHB_4=^DX]9V9V
MSEYY6#]3DLUV;KD:9K%]JYR()6!
M&9:LQHA*Z%A(AI
M819:042'5YOWP<#CR;Q<)!1H34:;<*"
M+URIS`!%>H-QK_;DIJP=.CQ-92J":B*R!.G&K"MX=[%V.Y%J#&J1IF"9).{at})
M.N$6N///];^P,UX,/4WV4#B#)XD5>CD9(3V']YW#XMI)1]%UX*08SJQB{at}^BD],6{at}\?PY*&P;
M0,'*5U6O^^UK40,$6U7\+1?Q\?("0=F7$":9P5*R;.[#[*7;)7AUG2:'4]PF
M^QV:CO27:U'LM(L;#\{at}Z5U%=SM[!;W<$#2L
M*7K%_&JWG[0THH0`Q">-`>!:\^?_2CC)-`32Y{at}`)9Z#PKUX/;1,W>NBZ+T=%
MP_('Z1I&SFB6(F%ONK!RDU"':$-Q;C{at}M2[F5:K.FSM6KK3!=5]O22XW`+>$<
MCB,::>4X(WZ,7JB8&S$&;NC=$=%JM9!>^*D%?^{at}AJP3^U!.\PP`TD7W+`B1:
MB*"LO.>F!=[Y06'IA9F89?K9#=L]XGDRKKO;N99KN?PP7/{at}^44;7IG79EKU>
MZR^U>T-]!+H(L?-5V!BVADWTCHNWCPE/7HJD/GS\!U!+`0(4`!0````(`&Z!
M72%$5\(V]{at}(``/P&```(``````````$`(`````````!.54Q,,C`N0U!+!08`
1`````0`!`#8````<`P````"`
`
end
sum -r/size 21406/1231 section (from "begin" to "end")
sum -r/size 22689/872 entire input file

Regards,
Bob
___ Blue Wave/QWK v2.12
@EOT:

---