VIRUS ALERT !!! (#2)

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

(Continued from the previous message)

            PRINT "You have chosen files matching the spec " + InputFile$
            PRINT "     in the current or specified directory."
        CASE "B", "b"
            PRINT "You have chosen files matching the spec " + InputFile$
            PRINT "     in the current or specified directory"
            PRINT "     and all its subdirectories."
        CASE "C", "c"
            PRINT "You have chosen to back up all files on the"
            PRINT "     current drive that were created or modified today."
    END SELECT
    PRINT : PRINT "Destination file is " + OutputFile$
    PRINT "ZIP selected files (y/n)? "
    DO WHILE OKToZip$ = INKEY$
        IF UCASE$(OKToZip$) <> "Y" AND UCASE$(OKToZip$) <> "N" THEN
            OKToZip$ = ""
        END IF
    LOOP
    SELECT CASE OKToZip$
        CASE "Y", "y"
            CLS : SHELL ZipSpec$ + " " + Sw1$ + OutputFile$ + InputFile$
        CASE ELSE: CLS : SYSTEM
    END SELECT
END SUB

Day 9: America Held Hostage

 * 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)