Mail

В этот день много лет назад...
1 ноября. В 1952 году (73 года назад) - Взрыв американцами первой водородной бомбы над атоллом Эниветок (Маршалловы острова в Тихом океане). Официально об этом будет сообщено только 2 февраля 1954. Термоядерное устройство, прозванное Майк, весит 82 тонны благодаря криогенной холодильной установке, сохраняющей дейтерий в жидком виде. В этом смысле это устройство не является бомбой, которую можно доставить на самолете или ракете. Мощность взрыва составляет 10,4 мегатонны, он полностью разрушает остров Элуджлаб в атолле Эниветок в Тихом океане; устройство в 800 раз мощнее бомбы, убившей более 100 тыс. человек в Хиросиме.

Turbo Pascal Documentation

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

      Функция: Выбирает фоновый цвет.
     Описание: TextBackGroud(цвет : byte)
     Примечания: Параметр "цвет" представляет собой  выраже-
ние  целого типа в диапазоне 0...7, соответствующее одной из
первых восьми констант цветов:

      { Константы фонового и основного цвета }
         Black          = 0;      { черный }
         Blue           = 1;      { синий  }
         Green          = 2;      { зеленый }
         Cyan           = 3;      { бирюзовый }
         Red            = 4;      { красный }
         Magenta        = 5;      { малиновый }
         Brown          = 6;      { коричневый }
         LightGray      = 7;      { светло-серый }

     В модуле Сrt имеется байтовая переменная ТехtАttr,  ко-
торая  используется  для  сохранения текущего видеоатрибута.
Процедура ТехtВackGround устанавливает биты 4-6 этой переме-
ной  в  соответствии  с  параметром "цвет". Фоновый цвет для
всех выводимых далее символов будет соответствовать заданно-
му цвету.
     Прочее: См. также процедуры TextColor, HighVideo, Norm-
Video, LowVideo.