ELIMDUPE part 2 of 4 part

 BBS: Inland Empire Archive
Date: 03-17-93 (16:41)             Number: 327
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: ELIMDUPE part 2 of 4 part      Conf: (2) Quik_Bas

Msg#: 2 >>>>>> Continued from last message: ELIMDUPE.BAS >>>>>>>
path$ = drive$ + n2$ + CHR$(0)
inregs.es = -1
inregs.ax = &H3B00
inregs.ds = VARSEG(path$)
inregs.dx = SADD(path$)
CALL interruptx(&H21, inregs, outregs)
IF outregs.ax = 3 THEN GOSUB invaliddirectory2: GOTO secondinput
GOSUB lookfordupes
begin:
     de1 = 0
     filespec$ = "*.*" + CHR$(0)
     inregs.ax = &H2F00
     CALL interruptx(&H21, inregs, outregs)
     data.seg = outregs.es
     data.off = outregs.bx
     inregs.ax = &H4E00
     inregs.dx = SADD(filespec$)
     inregs.ds = -1
     CALL interruptx(&H21, inregs, outregs)
     cy = outregs.flags AND 1
     IF cy = 0 THEN
     END IF
     WHILE cy = 0
     DEF SEG = data.seg
     f1.name$ = ""
     i = data.off + 30
     WHILE PEEK(i) <> 0
     f1.name$ = f1.name$ + CHR$(PEEK(i))
     i = i + 1
     WEND
     DEF SEG
     de1 = de1 + 1
     f1.nam$(de1) = f1.name$
     inregs.ax = &H4F00
     CALL interruptx(&H21, inregs, outregs)
     cy = outregs.flags AND 1
     WEND
     IF i = 0 THEN
     END IF
     RETURN
lookfordupes:
de2 = 0
filespec$ = "*.*" + CHR$(0)
     inregs.ax = &H2F00
     CALL interruptx(&H21, inregs, outregs)
     data.seg = outregs.es
     data.off = outregs.bx
     inregs.ax = &H4E00
     inregs.dx = SADD(filespec$)
     inregs.ds = -1
     CALL interruptx(&H21, inregs, outregs)
     cy = outregs.flags AND 1
     IF cy = 0 THEN
     END IF
     WHILE cy = 0
     DEF SEG = data.seg
     f2.name$ = ""
     i = data.off + 30
     WHILE PEEK(i) <> 0
     f2.name$ = f2.name$ + CHR$(PEEK(i))
     i = i + 1
' >>>>>>> Continued on next message >>>>>>>

--- Maximus 2.01wb
 * Origin: Rabbit and Snake's BBS - Richardson, Texas (1:124/6108)