ELIMDUPE final part of 4

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

' Part 4 of 4 parts: ELIMDUPE.BAS >>>>>>>
IF q$ = "Y" THEN CLS : GOTO prepareforrestart
IF q$ = "N" THEN GOTO exitroutine
GOTO exitorcontinue
exitroutine:
path$ = drive$ + tempdir$ + CHR$(0)
inregs.es = -1
inregs.ax = &H3B00
inregs.ds = VARSEG(path$)
inregs.dx = SADD(path$)
CALL interruptx(&H21, inregs, outregs)
CLS : SCREEN 0: SYSTEM
prepareforrestart:
FOR x = 0 TO 500
f1.nam$(x) = ""
f2.nam$(x) = ""
f1.name$(x) = ""
f2.name$(x) = ""
NEXT
n1$ = ""
m2$ = ""
de1 = 0: de2 = 0
path$ = ""
temp$ = ""
GOTO restart
invaliddirectory1:
LOCATE 11, 4
PRINT "Invalid Directory"
SLEEP (1)
RETURN
invaliddirectory2:
LOCATE 11, 4
PRINT "Invalid Directory"
SLEEP (1)
RETURN
' Msg polishing/splitting was done by MSGSPLIT 1.0, a Victor Yiu creation.

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