>>> Continued from previous message
            IF LEN(Accum$) > 16384 THEN  'needed to help avoid running
               PUT$ #1, Accum$           ' out of RAM if many dupes found
               Accum$ = ""
            END IF
         ELSE
            EXIT DO
         END IF
      ELSE
         EXIT DO
      END IF
    LOOP
    IF ThisFile% = gFileTotal% THEN EXIT DO  'we're done - let's split!
    IF LastDupe% = (ThisFile% - 1) THEN      'this dupe group complete
       Accum$ = Accum$ + CRLF$               'add a blank line after
    END IF
    SWAP FileOne$, FileTwo$   'a wee bit faster than:  Two$ = One$
 LOOP
 TotalDupes$ = STR$(Dupes%)
 PUT$ #1, Accum$              'write the dupe list
 SEEK #1, LEN(Header$)        'go back and fill in
 PUT$ #1, TotalDupes$         '  the number of duplicate files
 CLOSE #1
END SUB
'===============================
 SUB PrintTwirlBar (Counter%)
'===============================
    LOCATE CSRLIN, (POS - 1)
    PRINT MID$("/-", (Counter% MOD 4)+ 1, 1);
END SUB
 * SLMR 2.1a * MAXLIB For PB v1.1 - Access arrays and files in EMS/XMS!
--- WILDMAIL!/WC v4.12 
---------------