{Setgbfsz.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the SetGraphBufSize procedure.}

 uses
   Graph;
 const
   BigPoly : array[1..700] of PointType =
    ((x:  50; y: 100),
     (x: 100; y: 100),
        { ...etc...} );
 var
   Gd, Gm : Integer;
 begin
   { Allocate 8K of buffer space so we
     can fill a 700-vertex polygon }
   SetGraphBufSize(8*1024);
   Gd := Detect; InitGraph(Gd, Gm, '');
   if GraphResult <> grOk then Halt(1);
   FillPoly(SizeOf(BigPoly) div
             SizeOf(PointType), BigPoly);
   ReadLn;
   CloseGraph;
 end.