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