Mail

В этот день много лет назад...
26 ноября. В 1718 году (306 лет назад) - Петр I издает указ "О назначении рынков в Санкт-Петербурге, о наблюдении чистоты торгующими съестными припасами и о ношении ими белых мундиров". По этому указу запрещается торговля вдоль больших улиц, поскольку "проезд по большой дороге от тесноты за многолюдством весьма труден". На городских рынках всем торговцам в мясном и рыбном рядах надлежит под страхом крупного штрафа носить белые мундиры. Пусть немного на военный манер, но Петр I все же продемонстрировал свое желание решать вопросы гигиены в своем невском "парадизе".

Turbo Pascal Documentation

Процедура CloseGraph
Модуль Graph

     Функция: Останавливает работу графической системы.
     Описание: CloseGraph
     Примечания: Данная процедура  восстанавливает  исходный
режим экрана (который был установлен до инициализации графи-
ки) и освобождает в динамически распределяемой  области  па-
мять, используемую графическим драйвером.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также  процедуры  CloseGraph,  DetectGraph,
InitGraph, RestoreCrtMode, SetGraphMode.
     Пример:

grDriver := Detect;  { установить автоматическое распозна-
                        вание аппаратуры }
InitGraph(grDriver,grMode,'');
  ...
CloseGraph;