.From: Vitus B. Wagner 
.Organization: Agroecological problems Center

  Это есть VGA256.BGI. Поддерживает режим 320х200 256 цветов.
Обнаружен один глюк. - при выполнении процедуры GetImage в поле
размера образа по горизонтали записывается число на 1 больше,
чем всеми остальными мне известныи BGI. Для тех, кто не готовит
данные для PutImage вручную, это не имеет никакого значения.

   Еще - игнорирует значение параметра GraphDriver  в процедуре
InitGraph. Процедура GetModeRange возвращает чушь.

   При вызове InstallBGIDriver передавайте в нее в качестве AutoDetect
function адрес такой функции:

{$F+}
function DetectVGA256:Integer;
var GraphDriver,Graphmode:Integer;
begin
 if GraphDriver=VGA then
  DetectVga256:=1 else
  DetectVGA256:=grError;
end;
{$F-}

{Главная программа}
var VGA256,GD,GM:Integer;
 begin
VGA256:=InstallUserDriver('VGA256',@DetectVGA256);
Gd:=VGA256;
InitGraph(GD,GM,'');
...