{%PARAMETERS = "CC=mingw32-gcc-3.4.5 -gstabs+ -O3 -W -Wall -Wno-identifier-case -mwindows -mconsole"}
program TestBGI;

uses gpcutil, graph, crt;

const BGIPath = 'c:\bp\bgi';
var   Grd, Grm: Cinteger;
      GraphDriver, GraphMode: Integer;
      DriverName, ModeName: String[255];
      i:Integer;

begin
   SetBGImodeWHC(Grd,Grm,1280,1024,1 shl 23);
   GraphDriver:=Grd; GraphMode:=Grm;
   InitGraph(GraphDriver,GraphMode,BGIPath);
   DriverName:=GetDriverName;
   ModeName:=GetModeName(GetGraphMode);
   SetColor(graph.Black);
   SetBkColor(graph.Yellow);
   ClearViewPort;
   SetLineStyle(SolidLn,0,NormWidth);
   SetTextStyle(SmallFont,HorizDir,6);
   SetTextJustify(LeftText,TopText);
   OutText(DriverName+'  '
           +ModeName+'  '
           +Int2Str(GetMaxX)+'  '
           +Int2Str(GetMaxY)+'  '
           +Int2Str(GetMaxColor)+'  '
           +Int2Str(GetPaletteSize)+'  '
           +Int2Str(graph.Black)+'  '
           +Int2Str(graph.Yellow));
   moveto(0,GetY+2*TextHeight('M'));
   for i:=32 to 255 do begin
      OutText(' '+chr(i));
      if i mod 16 = 15 then moveto(0,GetY+2*TextHeight('M'));
   end;
   readln;

   {RestoreCrtMode;}
   TextColor(crt.Black);
   TextBackground(crt.Yellow);
   ClrScr;
   writeln(DriverName+'  '
           +ModeName+'  '
           +Int2Str(ScreenSize.x)+'  '
           +Int2Str(ScreenSize.y)+'  '
           +Int2Str(crt.White)+'  '
           +Int2Str(GetPaletteSize)+'  '
           +Int2Str(crt.Black)+'  '
           +Int2Str(crt.Yellow));
   for i:=32 to 255 do begin
      write(' '+chr(i));
      if i mod 16 = 15 then writeln;
   end;
   readln;

   CloseGraph;
end.