then

number := counter;

if (number < 6) and (((1 shl (7-number)) and r) <> 0) then

begin

m := m and (jump[number] and $FF);

m := m or (jump[number] shr 8)

end;

if (i < 600) and (i > 540) and (j < 170) and (j > 150)

then

m := m_0;

if (i < 600) and (i > 540) and (j < 240) and (j > 220)

then

flag_of_exit := true

end;

until flag_of_exit;

Hide_Mouse;

CloseGraph

end

else

begin

CloseGraph;

WriteLn('Ошибка мыши: Device or driver not found.')

end

End.