Mail

В этот день много лет назад...
26 апреля. В 1998 году (26 лет назад) - На лондонском марафоне Ник и Аластэйр Бенбоу устанавливают мировой рекорд в марафоне с привязанными друг к другу ногами - 3 часа 40 минут 16 секунд.

Turbo Pascal Documentation

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

     Функция: Для данного драйвера возвращает  наименьший  и
наибольший графический режим.
     Описание: GetModeRange(GraphDriver : integer;  var
LoMode, HiMode : integer)
     Примечания: Вывод следующей программы:

  uses Graph;
  var
    Lovest, Highest : integer;
  begin
    GetModeRange(EGA64, Lowest, Highest);
    Write('Наименьшее значение = ', Lowest);
    Write('Наибольшее значение = ', Highest);
  end.

даст наименьшее значение = 0 и наибольшее значение = 1. Если
значение  GraphDriver является недопустимым, то возвращаемый
параметр будет равен -1.
     Аналогичная функция имеется в версии 2.0 Турбо-Си.
     Прочее: См. также  процедуры  SetGraphMode,  InitGraph,
DetectGraph.