Mail

В этот день много лет назад...
9 мая. В 1998 году (26 лет назад) - 27-летний парашютист-любитель из баварского города Бургхайм на юге ФРГ, покидая самолет на высоте 1 км (!), ударяется о люк машины, отчего по ошибке открывает запасной парашют. Основной же купол зацепился за хвостовое оперение самолета, и спортсмен некоторое время летел за машиной, пока ему не удалось отцепиться. Бедолага стал падать вниз, как камень, и, запутавшись в стропах, с большой скоростью ударился о землю. К удивлению товарищей и медиков, парашютист остался жив, отделавшись переломами и ушибами. Доставленный в больницу счастливчик заявил, что после выздоровления будет прыгать с парашютом и дальше.

Turbo Pascal Documentation

Процедура HighVideo
Модуль Сrt

     Функция: Устанавливает для символов подсветку.
     Описание: HighVideo
     Примечания: В модуле Сrt  имеется  байтовая  переменная
ТехtАttr,  которая используется для хранения текущих атрибу-
тов изображения. Процедура HighVideo устанавливает для цвета
символов  переменной  ТехtAttr бит подсветки. Таким образом,
цвета 0..7 отображаются в цвета 8..15.
     Отличия: В версии 3.0 процедура HighVideo всегда  выби-
рала  желтый цвет на черном фоне (белый на черном фоне в мо-
нохроматическом режиме и в видеорежимах ВW80).
     Прочее: См. также процедуры NomVideo, LowVideo, TextCo-
lor, TextBackGround.
     Пример:

uses Crt;
begin
   TextAttr := LightGray;
   HighVideo;                   { цвет становится белым }
end;