PROGRAM   PutPixe_ ;
USES   Graph ;

VAR
   G_GraphDriver : Integer ;
   G_GraphMode   : Integer ;
BEGIN
   G_GraphDriver := Detect ;
   G_GraphMode   := Detect ;
   InitGraph ( G_GraphDriver , G_GraphMode , 'C:\Lib\BGI' );

   PutPixel ( 10 , 10 , White );

   PutPixel ( 10 , 20 , White );
   PutPixel ( 11 , 20 , White );

   PutPixel ( 10 , 30 , White );
   PutPixel ( 11 , 30 , White );
   PutPixel ( 12 , 30 , White );

   ReadLn ;
   CloseGraph ;
END.
