Mail

В этот день много лет назад...
19 апреля. В 1915 году (109 лет назад) - Начинается Горлицкий прорыв. Русские отступают из Галиции, неся значительные потери (150000 человек убитыми и 700000 ранеными). Литва, Галиция и Польша переходят под контроль государств германо-австрийского блока.

Turbo Pascal Documentation

Процедура ClearDevice

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

  Randomize;
   repeat
    LineTo(Random(200), Random(200));
   until KeyPressed;
  ClearDevice;
  Readln;