PROGRAM   TextAtt_ ;
USES   CRT ;

BEGIN
   ClrScr ;

   WriteLn ( 'TextBackGround = ' , TextAttr shr 4   );
   WriteLn ( 'TextColor = '      , TextAttr and $0F );
   WriteLn ;

   TextBackGround ( Green );
   TextColor ( Blue );
   WriteLn ( 'TextBackGround = ' , TextAttr shr 4   );
   WriteLn ( 'TextColor = '      , TextAttr and $0F );
   WriteLn ;

   TextAttr := (Green shl 4) + Blue ;
   WriteLn ( 'TextBackGround = ' , TextAttr shr 4   );
   WriteLn ( 'TextColor = '      , TextAttr and $0F );

   TextAttr := (Black shl 4) + LightGray ;
   WriteLn ;
END.
