Grafikausgabe mit FreePascal (DOS)

[sirius]

Hier aus der Doku von FreePascal:

Delphi-Quellcode:

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.

(alles unter Reference zur Unit Graph)

Und was und wo du welche Dateien brauchst und viielleicht irgendwelche Pfade einbinden musst, weis ich nicht.