1 program Minimum_Size_Test;
2 {
3  * test program for the Graph unit
4 }
5 
6 uses
7   Graph;
8 
9 var
10   grDriver, grMode: Integer;
11 begin
12   grDriver := Detect;
13   InitGraph(grDriver, grMode,'');
14   CloseGraph
15 end.
16