PROGRAM   SetLnStA ;
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 , NormWidth );
   Line ( 0,0  ,  200,0 );

   SetLineStyle ( DottedLn , 0 , NormWidth );
   Line ( 0,5  ,  200,5 );

   SetLineStyle ( CenterLn , 0 , NormWidth );
   Line ( 0,10  ,  200,10 );

   SetLineStyle ( DashedLn , 0 , NormWidth );
   Line ( 0,15  ,  200,15 );

   {-----}

   SetLineStyle ( UserBitLn , $FFFF , NormWidth );         { $FFFF = 11111111:11111111 }
   Line ( 0,100  ,  200,100 );

   SetLineStyle ( UserBitLn , $FF00 , NormWidth );         { $FF00 = 11111111:00000000 }
   Line ( 0,105  ,  200,105 );

   SetLineStyle ( UserBitLn , $F0F0 , NormWidth );         { $F0F0 = 11110000:11110000 }
   Line ( 0,110  ,  200,110 );

   SetLineStyle ( UserBitLn , $CCCC , NormWidth );         { $CCCC = 11001100:11001100 }
   Line ( 0,115  ,  200,115 );

   SetLineStyle ( UserBitLn , $AAAA , NormWidth );         { $AAAA = 10101010:10101010 }
   Line ( 0,120  ,  200,120 );

   SetLineStyle ( UserBitLn , $8888 , NormWidth );         { $8888 = 10001000:10001000 }
   Line ( 0,125  ,  200,125 );

   SetLineStyle ( UserBitLn , $8080 , NormWidth );         { $8080 = 10000000:10000000 }
   Line ( 0,130  ,  200,130 );

   SetLineStyle ( UserBitLn , $8000 , NormWidth );         { $8000 = 10000000:00000000 }
   Line ( 0,135  ,  200,135 );

   ReadLn ;
   CloseGraph ;
END.
