Mail

В этот день много лет назад...
9 мая. В 1914 году (110 лет назад) - У. Невелл выполняет первый в Великобритании прыжок с парашютом из аэроплана. Прыжок Невелла, покинувшего борт аэроплана Грэхем-Уайт "Чарабэнк" на высоте 610 метров с парашютом весом 18 кг и диаметром купола 7,9 метра, длится 2 минуты 22 секунды.

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;