Почти наверняка для вас графический драйвер представлен файлом egavga.bgi, расположенном в каталоге BGI. Если сам Паскаль расположен в каталоге TP диска c, то строка вашей программы будет выглядеть так:
InitGraph(Device, Mode, ‘c:\TP\BGI’)

18.13.38 InitGraph
Synopsis: Initialize grpahical system
Declaration: procedure InitGraph(var GraphDriver: SmallInt;var GraphMode: SmallInt;
const PathToDriver: String)
Visibility: default
Description: InitGraph initializes the graph package. GraphDriver has two valid values: GraphDriver=0
which performs an auto detect and initializes the highest possible mode with the most colors. 1024x768x64K
is the highest possible resolution supported by the driver, if you need a higher resolution, you must
edit MODES.PPI. If you need another mode, then set GraphDriver to a value different from
zero and graphmode to the mode you wish (VESA modes where 640x480x256 is 101h etc.).
PathToDriver is only needed, if you use the BGI fonts from Borland. Free Pascal does not offer
BGI fonts like Borland, these must be obtained separately.
Example code:
var
gd,gm : integer;
PathToDriver : string;
begin
gd:=detect; { highest possible resolution }
gm:=0; { not needed, auto detection }
PathToDriver:=’C:\PP\BGI’; { path to BGI fonts,
drivers aren’t needed }
InitGraph(gd,gm,PathToDriver);
if GraphResult<>grok then
halt; ..... { whatever you need }
CloseGraph; { restores the old graphics mode }
end.
412