'содержит ошибочную информацию (например, взят от другого ПК) ' +

'или не учитывает',

'новое разбиение жесткого диска на логические разделы.',

'Рекомендую перезагрузить DOS с эталонной дискеты и убедиться в том, '+

'что вирус',

'действительно существует (с помощью AIDSTEST, PCTOOLS и т.п.).');

begin

(Предупреждаем об опасности) for k := 1 to 9 do

begin

GotoXY((8O-Length(t[k])) div 2,WhereY);

WriteLn(t[k])

end;

Write(#7); (Звуковой сигнал} if Okay(*13#10'Перезагрузить DOS') then

ReStartDOS; (Перезагружаем ДОС} Write('Лечить (Y/N,Enter=N)? ');

if UpCase(ReadKey)<>'X' then

Halt;

{Запрашиваем дублирование на ГД и готовим файл с копиями зараженных секторов}

if Okay('Сохранить копию структуры ЖД на дискете') then repeat

Write('Вставьте дискету с открытой прорезью и введите имя ГД: ');

ReadLn(S) ;

s[l] := UpCase(s[l]);

if Length (s)=l then

s := s+':' until (s='A:') or (s='B:');

if so' 1 then begin

Assign(Fl,s+'\VIRDAT.$V$') ;

Rewrite(Fl);

end;

{Восстанавливаем структуру ЖД} Seek(F,l) ;

with Head do

for k := 1 to NDisk do with LDisk[k] do begin

Read(F,c);

Save(BHd,BSC) ;

RWSecIntl3(3,BHd,BSC,c.SecO) end;

if So1 ' then Close(Fl);

{Перезагружаем ДОС} ReStartDOS end; {Alarm} ^———————————;

Procedure CheckBoots;

{Проверяет структуру ЖД- Head уже содержит проверенный заголовок архивного

файла}

var

с: CheckType;

ch:"CheckType;

Buf: LType;

к: Word;