{***********************************************************************}
{*                            BGIInst.Pas                              *}
{*                             Version 1.0                             *}
{*                 Copyright (C) by SoftWeyr    , 1991                 *}
{*                  Модуль инициализации графики для                   *}
{*                           CGA, EGA и VGA                            *}
{*          Обеспечивает автоматическую линковку EGAVGA.BGI            *}
{*          и, если необходимо - CGA.BGI к вашей программе             *}
{***********************************************************************}
{
  Этот модуль должен быть указан в операторе uses ПОСЛЕ graph.tpu
  После того, как вы это сделаете, процедура InitGraph вызывается
  без параметров и вам доступны переменные
      GraphDriver - номер текущего графического драйвера
      GraphMode - номер текущего графического режима
      GraphStringHeight - высота 1/25 экрана в пикселах
                                                          }
--
Phone: 230-80-61                                Victor B.Wagner
E-Mail:vitus@agropc.msk.su                      Dokuchaev Soil Institute
                                                7, Pyzhevsky lane,
                                                Moscow, Russia