PROGRAM   SetLnStB ;
USES   Graph ;

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

   SetLineStyle ( SolidLn , 0 , ThickWidth );
   Line ( 0,0  ,  200,50 );
   Rectangle ( 0,0  ,  200,50 );
   Circle ( 100,25  , 20 );

   SetLineStyle ( UserBitLn , $F0F0 , NormWidth );         { $F0F0 = 11110000:11110000 }
   Line ( 0,100  ,  200,150 );
   Rectangle ( 0,100  ,  200,150 );
   Circle ( 100,125  , 20 );

   SetLineStyle ( UserBitLn , $F0F0 , ThickWidth );        { $F0F0 = 11110000:11110000 }
   Line ( 0,200  ,  200,250 );
   Rectangle ( 0,200  ,  200,250 );
   Circle ( 100,225  , 20 );

   ReadLn ;
   CloseGraph ;
END.
