VIRUS ALERT !!!

 BBS: Inland Empire Archive
Date: 01-28-93 (12:59)             Number: 336
From: RICHARD DALE                 Refer#: NONE
  To: JOHN GALLAS                   Recvd: NO  
Subj: VIRUS ALERT !!!                Conf: (2) Quik_Bas

JG>Do you know if the problem is in PKZIP or PKUNZIP?  Because if its only
JG>in PKZIP, I'd still like to be able to use pkunzip 2.04 (because its
JG>faster than 1.10)..

    Use 2.04 to unzip, then zip things up with 1.10 using the -EX
switch.  That will handle all situations.  I'm pretty sure the problem
is in 2.04 PKZIP.  However, from what I understand, 2.04 and 1.93 are
identical.  If you can find a version of 1.93, you might try it.  BE
AWARE!!!!!  The only version of 1.93 I have ever seen is an alpha test
version!  I've only used it on one file, so I can't vouch for its
usefulness.


DECLARE SUB GetInputFile ()
DECLARE SUB GetOutputFile ()
DECLARE SUB Pause ()
DECLARE SUB TestFileName ()
DECLARE SUB ZipIt ()
COMMON SHARED InputFile$, OutputFile$, Chooser$, Sw1$

' Make your changes here
CONST ZipSpec$ = "C:\PKXARC", ZipDir$ = "D:\ZIPFILES"

CLS : LOCATE 6, 10: PRINT "Select one of the following: "

LOCATE 8, 20: PRINT "A - Files in one directory only"
LOCATE 10, 20: PRINT "B - Files in directory and all its subdirectories"
LOCATE 12, 20: PRINT "C - All files on current drive modified today"
LOCATE 14, 20: PRINT "D - Exit program immediately!"

DO WHILE Chooser$ = ""
    Chooser$ = INKEY$
    IF UCASE$(Chooser$) < "A" OR UCASE$(Chooser$) > "D" THEN : Chooser$ = ""
LOOP

SELECT CASE Chooser$
CASE "A", "a"
    CLS : Sw1$ = " "
    GetInputFile
    GetOutputFile
    ZipIt

CASE "B", "b"
    CLS : Sw1$ = "-p -r"
    GetInputFile
    GetOutputFile
    ZipIt

CASE "C", "c"
    CLS : Sw1$ = "-t -p -r"
    GetInputFile
    GetOutputFile
    ZipIt

CASE "D", "d"
    END

END SELECT

CLS : SYSTEM

SUB GetInputFile
    CLS : LOCATE 10, 10
    INPUT "Enter name of file(s) to ZIP (default is *.*): ", InputFile$
    IF InputFile$ = "" THEN InputFile$ = ""
END SUB

SUB GetOutputFile
    OutputFile$ = "": CLS : LOCATE 10, 10
    INPUT "Enter name of destination file (no extension): ", OutputFile$
    TestFileName
END SUB

SUB Pause
    PRINT "         Press any key to continue. . ."
    DO: LOOP UNTIL INKEY$ <> ""
END SUB

SUB TestFileName
    IF INSTR(OutputFile$, ".") <> 0 THEN
        CLS : PRINT "No extensions allowed!  Try again.           ": Pause
        LOCATE 10, 10: PRINT SPACE$(70)
        GetOutputFile
    ELSE
        IF LEN(OutputFile$) > 8 OR LEN(OutputFile$) = 0 THEN
            CLS : PRINT "Filename must be 1-8 characters!  Try again.": Pause
            LOCATE 10, 10: PRINT SPACE$(70)
            GetOutputFile
        END IF
    END IF
END SUB

SUB ZipIt
    OutputFile$ = ZipDir$ + "\" + UCASE$(OutputFile$) + ".ZIP" + " "
    CLS : PRINT "The current drive/directory is "; : SHELL "CD"
    SELECT CASE Chooser$
        CASE "A", "a"

(Continued in the next message)

 * DeLuxe2 1.26b #2989 * "We will link China's trading privileges to its
                          human rights record."  Bill Clinton, 1/13/92
--- FidoPCB v1.2 [ff013/c]
 * Origin: Sound Advice - 24 Nodes (816)436-4516 (1:280/333)