program vga_mode;

uses graph,crt;

{---------------------------------------------------------------}

 Procedure InitGraphics;

 var gd, gm : integer;

   begin
    Gd := detect; InitGraph(Gd, Gm, '');
    if GraphResult <> grOK then Halt(1);
   end;

{---------------------------------------------------------------}

 Procedure About;
   begin
    writeln;
    writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
    writeln('º    DOS MONO VGA GRAPHIC ENHANCER    º');
    writeln('º                                     º');
    writeln('º          A C T I V A T E D          º');
    writeln('º                                     º');
    writeln('º Written By Franz Ayestaran (c) 1995 º');
    writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
   end;

{-------------------------------------------------------------- }


begin

initgraphics;
directvideo := false;
about;
closegraph;
about;

end.