Mail

В этот день много лет назад...
22 апреля. В 1370 году (656 лет назад) - По приказу короля Франции Карла V закладывается первый камень в основание крепости Бастилия. Крепость должна была защищать своими стенами Париж от атак англичан. Первоначально Бастилия проектировалась как укрепленные ворота, но уже Карл VI превратит ее в настоящую крепость, возведя стены на всех открытых участках. Восемь башен крепости высотой выше 30 метров, связанные стенами равной высоты и окруженные рвом шириной в 25 метров, будут возвышаться над городом. Завершится строительство было почти два века спустя. При кардинале Ришелье Бастилия станет использоваться как государственная тюрьма, каковой и будет оставаться до взятия восставшим народом 14 июля 1789. По постановлению Учредительного собрания Бастилия будет снесена. С 1880 день взятия Бастилии отмечается во Франции как национальный праздник.

Turbo Pascal Documentation

Функция Hi

     Функция: Возвращает старший байт аргумента.
     Описание: Нi(x)
     Тип результата: Байт.
     Примечания: Параметр x представляет собой выражение це-
лого  типа или слово. Функция Нi возвращает старший байт x в
виде значения без знака.
      Прочее: См. также функции Lo, Swap.
     Пример:
var
   w : word;
begin
   w := Hi(1234);                             { 12 }
end;

Процедура 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;