Here's a version of MPEX QEDIT.LISTF that totals lines in Qedit
files. There may be another way of doing it but this works.
Note: This *does* change the access date.
Bob
------------------
(*  QEDITTOT: a LISTF mode that displays total number of lines   *)
(* in files with a QEDIT or 111 file code.                 *)
(*  Bob Walker 5/12/97  - based on QEDIT.LISTF.VESOFT by    *)
(*  Shawn M. Gordon, VESOFT Tech Support, 91/06/21          *)

VAR LINES   :INTEGER;
VAR XLINES  :INTEGER;
VAR SRCFILE :STRING[35];
VAR REC0    :STRING[16];

MPEXHEADER1:="";
MPEXHEADER2:="";
MPEXHEADER3:="";
XLINES:= 0;

BEGIN
FOR RFILE IN MPEXFILESETTOTAL
   SELECT INTCODE=111
   DO BEGIN

     SRCFILE:= FILE+(IF LOCKWORD<>"" THEN "/"+LOCKWORD ELSE "")+
               "."+GROUP+"."+ACCOUNT;

     TRY BEGIN
        REC0   := VEFREADDIR(SRCFILE+',OLD;ACC=IN;SHR',0);
     END
     RECOVER BEGIN
        REC0   := 16*'0';
     END;

     LINES  := INTEGER(REC0[6:2]);
     XLINES := XLINES + LINES;
   END;
 WRITELN('Total Lines in Qedit files : ',XLINES:8);
END;
--=--=--
Bob Walker, Computer Centre  --  [log in to unmask]
Capilano College, North Vancouver, BC, CANADA.
(Warning. SnApPy! SIG Generator returned : NULL)