DEFLNG a-z

'subtracts one file from another

FUNCTION PBMAIN()

   mainfile$ = PARSE$(COMMAND$," ",1)
   subfile$ = PARSE$(COMMAND$," ",2)

   IF mainfile$ = "" OR subfile$ = "" THEN
      PRINT "Error: subfile mainfile subfile"
      PRINT
      EXIT FUNCTION
   END IF
   IF DIR$(mainfile$) = "" OR DIR$(subfile$) = "" THEN
      PRINT "Error: filenotfound"
      PRINT
      EXIT FUNCTION
   END IF

   '1 - load subfile

   DIM Subs$(1 TO 60000)
   NumSubs = 0

   OPEN subfile$ FOR INPUT AS #1
   DO UNTIL EOF(1)
      LINE INPUT #1, x$
      IF TRIM$(x$) <> "" THEN
         INCR NumSubs
         Subs$(NumSubs) = LCASE$(TRIM$(x$))
      END IF
   LOOP
   CLOSE #1
   PRINT FORMAT$(NumSubs) & " subtraction entries loaded. Processing..."

   OPEN mainfile$ FOR INPUT AS #1
   numremoved = 0
   totallines = 0
   DO UNTIL EOF(1)
      LINE INPUT #1, x$
      temp$ = LCASE$(TRIM$(x$))
      nogood = 0
      INCR totallines
      FOR r=1 TO NumSubs
         IF temp$ = Subs$(r) THEN
            INCR numremoved
            nogood = 1
            EXIT FOR
         END IF
      NEXT
      IF nogood = 0 THEN
         STDOUT x$
      END IF
   LOOP
   CLOSE #1

   PRINT "Processed " & FORMAT$(totallines) & " lines and subtracted " & FORMAT$(numremoved) & "."


END FUNCTION