begin

(Восстанавливаем первый сектор} SetBeg: Seek(FF,O);

BlockWrite(FF,SecO,sz,nz) ;

{Восстанавливаем начальную длину} if sz=nz then begin

Seek(FF,SizO) ;

Truncate(FF); {Отсекаем вирус} Close(FF) end else begin

Close(FF) ;

HriteLn('Ошибка записи в файл ^сп^.Ыате) end end;

2: {Вирус в начале СОМ-файла} begin

{Перемещаем программу вверх} ReWriteFilefch^.SizO) ;

{И восстанавливаем ее начало} Goto SetBeg;

end;

3: begin (Пользователь запретил лечение} Close(FF) ;

goto Next end end {case Cure} end; {if not Disk_Error} Next: if KeyPressed and (ReadKey#27) than

Goto Stop end {with ch"} end; {for k:=0 to} Stop:

SetIntVec($62,01d62) ;

Intl3Addr := NIL;

{Сообщаем об итогах проверки} Write(#13'Проверено ',Files,' файлов. 'It-if not IsVirus then

WriteLn(tx2) else begin

WriteLn(tx3) ;

WriteLn(tx4) ;

if OKay(tx5) then

begin {Перезапускаем ДОС} Close(f); {Сохраняем архив} ReStartDOS end end;

WriteLn('(C) 1992 г. В.В.Фаронов':80) end; {Check}

{

+_-_---_____--_--—————————-—————----+

I Типы, константы и подпрограммы для \ 1 реализации диалога средствами Turbo Vision I

+---_--______--_-_-_-_-_-—___———---------—-+

;