home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / KABLOO.ZIP / BGI256.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-06-17  |  869 b   |  46 lines
  1. unit BGI256;
  2.  
  3. interface
  4.  
  5. const LineMode   = $00;
  6.         FillMode   = $40;
  7.         TextMode   = $80;
  8.         ImageMode  = $C0;
  9.         BackColor  = 24;
  10.  
  11.         Mode200    = 0;  {320x200x256}
  12.         Mode400    = 1;  {640x400x256}
  13.         Mode480    = 2;  {640x480x256}
  14.         Mode600    = 3;  {800x600x256}
  15.         Mode768    = 4;  {1024x768x256}
  16.         Mode1024   = 5;  {2048x1024x256}
  17.  
  18.         driver: integer = 0;
  19.         mode: integer = 0;
  20.         result: integer = 0;
  21.  
  22. implementation
  23.  
  24. uses Graph;
  25.  
  26. procedure BGI256DriverProc; external;
  27. {$L BGI256.OBJ }
  28.  
  29. function BGI256Detect: integer;
  30. begin
  31.   BGI256Detect := 0;  {Autodetect the mode}
  32. end;
  33.  
  34. begin
  35.     InstallUserDriver('BGI256',@BGI256Detect);
  36.     RegisterBGIDriver(@BGI256DriverProc);
  37.     InitGraph(driver, mode, '');
  38.     result:=GraphResult;
  39.     if result<>grOK then
  40.     begin
  41.         writeln(GraphErrorMsg(result));
  42.         halt(1)
  43.     end;
  44.     setGraphMode(getMaxMode);
  45. end.
  46.