

FUNCTION FastDemo()

LOCAL lVirus := .F.
LOCAL aArray
LOCAL nInd
LOCAL aName  := { ;
                  "shake",                          "invader", ;
                  "mg",                             "669 / thirteen minutes", ;
                  "1063 / mono",                    "plastique / anticad", ;
                  "jabberwocky",                    "horse-2", ;
                  "murphy-2",                       "patricia / smack", ;
                  "plastique2576 / anticad 2576",   "horse", ;
                  "sparse",                         "murphy-1 / murphy-4", ;
                  "shirley",                        "zherkov-1882", ;
                  "1876 / dash-em",                 "nomenklatura", ;
                  "948 / screenplus1",              "magnitogorsk", ;
                  "lozinsky / zherkov",             "hitchcock", ;
                  "dark avenger-1028",              "1193 / copyright", ;
                  "ussr-707",                       "justice", ;
                  "europe-92",                      "cascade", ;
                  "516 / leapfrog",                 "1067 / headcrash", ;
                  "rape-747",                       "klaeren / hate", ;
                  "growing block",                  "squeaker", ;
                  "SVC",                            "SVC 5.0 or SVC 6.0", ;
                  "vriest",                         "carioca", ;
                  "789 / filehider",                "eddie-2", ;
                  "blinker",                        "backtime", ;
                  "600 or voronezh family",         "hey you", ;
                  "datalock",                       "ussr-1049", ;
                  "slow / zerotime",                "solano", ;
                  "905 / backfont",                 "sverdlov", ;
                  "socha",                          "yankee or mlti", ;
                  "mh-757",                         "milous", ;
                  "vitcode",                        "westwood", ;
                  "fellowship",                     "diamond-a", ;
                  "diamond-b",                      "dir", ;
                  "gotcha",                         "plovdiv 1.3", ;
                  "durban",                         "brothers", ;
                  "jerusalem family",               "armagedon", ;
                  "8-tunes",                        "mendoza", ;
                  "fu manchu",                      "anarkia", ;
                  "spyer / kiev",                   "terror", ;
                  "jerusalem-g",                    "pregnant", ;
                  "frere jacques",                  "tremor", ;
                  "pcvrsds",                        "carfield", ;
                  "gp1",                            "cinderella", ;
                  "dbase",                          "troi", ;
                  "border",                         "483", ;
                  "flip",                           "2468 / tequila", ;
                  "black monday",                   "sunday", ;
                  "tumen 0.5 / hero",               "twins", ;
                  "08/15 / many fingers",           "ontario", ;
                  "year 1992 / b1m92",              "revenge" ;
                }

    ? "Welcome to FAST.lib SCAN-VIR TOOL demo"
    ? "FAST.lib detects 100+ viruses as jerusalem, flip, tequila, dbase..."
    ?
    ? "Press any key to continue..."
    Inkey( 0 )

    ? "Checking memory for viruses..."
    aArray := VirCheck()

    ?
    ? "Checking memory report..."
    aEval( aArray, { | nX | IIF( nX, lVirus := .T., ) } )

    ?
    IF lVirus

      ? "DANGER!!! Viruses found"
      FOR nInd := 1 TO LEN( aArray )
        IF aArray[ nInd ]
          ? "Viruses " + aName[ nInd ] + " detected in memory"
          Tone( 500, 10 )
        ENDIF
      NEXT

    ELSE

      ? "Viruses not found"

    ENDIF
    ?


RETURN NIL
