{Тестовая программа для модуля F_Anti}
Uses F_Anti;
begin
  case CheckVirusResult of
    0: WriteLn('В файле ',ParamStr(0),' вирус не обнаружен.');
    1: WriteLn('Установлена защита файла ',ParamStr(0),'.');
   -1: WriteLn('Вирус удален с разрешения пользователя.');
   -2: WriteLn('Вирус удален автоматически.');
   -3: WriteLn('Контроль блокирован ключом /NOANTI.');
   -4: WriteLn('Вирус расположен в начале '+
               'файла - удаление невозможно.')
  end
end.
