Program GraphicsTest;

Uses
   Crt, Graph;

Var
   HighMode  : Integer;
   LowMode   : Integer;
   GraphMode : Integer;
   Driver    : Integer;
   Count     : Integer;
   Middle    : Integer;
   Temp      : String;

Begin

   Driver := Detect; { Modes Range From 0 (Detect) To 10 }
   InitGraph(Driver, GraphMode, ' ');
   If GraphResult <> GrOk then
   begin
      WriteLn('Graphics driver cannot be loaded');
      ReadLn;
      Halt(1);
   End;
   GetModeRange(Driver, LowMode, HighMode); { LowMode = 0 & HighMode = 3 }

   SetGraphMode(LowMode);

   Middle := (GetMaxX Div 2) - 92;

   Str(GetMaxX, Temp);
   OutTextXY(Middle, 50, 'Screen Width:' + Temp);

   Str(GetMaxY, Temp);
   OutTextXY(Middle, 60, 'Screen Height:' + Temp);

   Str(GetMaxColor, Temp);
   OutTextXY(Middle, 70, 'Max Screen Colours:' + Temp);

   Str(GetMaxMode, Temp);
   OutTextXY(Middle, 80, 'Max Graph Modes:0 To ' + Temp);

   For Count := 0 To GetMaxMode Do
   Begin
      OutTextXY(Middle + 10, 90 + (Count * 10), 'Mode:' + GetModeName(Count));
   End;

   Str(GetGraphMode, Temp); { Returns Current Graphics Mode }
   OutTextXY(Middle, 100 + (Count * 10), 'Current Mode:' + Temp);

   For Count := 0 to GetMaxColor Do
   Begin
      SetColor(Count);
      Rectangle(Count, Count, GetMaxX - Count - 1, GetMaxY - Count - 1);
   End;

   ReadLn;

   RestoreCrtMode;

   { CloseGraph; - Closes Graphics Mode }

End.