REM Multiple files word count
REM by Mark Robinson
REM (c) The Micro User
REM Feburuary 1991
 CLS
 Z%=0
 PRINT "Remove embedded commands? "; 
 P$=GCK$
 IF P$="Y" OR P$="y" THEN P$="Y"
 IF P$="Y" THEN PRINT "Yes"
 IF P$<>"Y" THEN PRINT "No"
 PRINT
 SELECT SEGMENT 9
 CURSOR TOP
 IF EOT THEN GOTOerror
  REPEAT
     A$=GLT$
     PRINT A$;
     SELECT TEXT
     LOAD TEXT A$
     IF P$="Y" THEN PROCstrip
     PRINT ".....";
     PRINT WORDS
     Z%=Z%+WORDS
     SELECT SEGMENT 9
  UNTIL EOT
 SELECT TEXT
 DELETE TEXT
 PRINT
 PRINT "TOTAL WORDCOUNT ";
 PRINT Z%
.end
 PRINT
 PRINT "Press any key"
 P$=GCK$
 A$=""
 P$=""
END

.error
 CLS
 PRINT "Files list not present."
 GOTOend

.strip
 CURSOR TOP
  REPEAT
     CURSOR AT 0
     FIND "|G"
     FKEY 3
     FIND "|W"
     IF EOT=FALSE THEN CURSOR RIGHT
     FKEY 3
     DELETE MARKED
  UNTIL EOT
 RECOUNT
ENDPROC
