Mail

В этот день много лет назад...
20 апреля. В 1924 году (100 лет назад) - Принятие Конституции Турецкой Республики.

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;