$FUNCNAME$
  SETBLINK()
$CATEGORY$
  TERMINAL/IO
$SUMMARY$
   Toggle asterisk (*) interpretation in the SETCOLOR() string between blinking
$LANG_RU$
      "" (*),   
$SYNTAX$
     SETBLINK([<lToggle>]) --> lCurrentSetting
$LANG_RU$
     SETBLINK([<>]) -->   
$ARGUMENTS$
     <lToggle> changes the meaning of the asterisk (*) character when it
     is encountered in a SETCOLOR() string.  Specifying true (.T.) sets
     character blinking on, and false (.F.) sets background intensity.  The
     default is
     true (.T.).
$LANG_RU$
     <>      (*),
         , 
      SETCOLOR().  "" (.T.)  , 
      "" (.F.) -  .   - 
     "" (.T.).
$RETURNS$
     SETBLINK() returns the current setting as a logical value.
$LANG_RU$
     SETBLINK()      .
$DESCRIPTION$
     SETBLINK() is an environment function that toggles the
     blinking/background intensity attribute and reports the current state of
     SETBLINK().  When SETBLINK() is on, characters written to the screen can
     be made to blink by including an asterisk (*) in a color string passed
     to SETCOLOR().  When SETBLINK() is off, the asterisk (*) causes the
     background color to be intensified instead.  Thus, blinking and
     background intensity attributes are not available at the same time.

     Note:  This function is meaningful only on the IBM PC or compatible
     computers with CGA, EGA, or VGA display hardware.
$LANG_RU$
     SETBLINK() -   ,  
     /      
     .    ,     
        (*)    ,
       SETCOLOR().   , 
      (*)    .  
              .

     :
           IBM-PC 
     ,     CGA, EGA  VGA.
$EXAMPLES$
       This example saves the current SETBLINK() state before passing
	control to a user-defined function.  Upon return, SETBLINK() is
	restored to its original value:

	lOldBlink := SETBLINK()
	MyFunc()
	SETBLINK(lOldBlink)
$LANG_RU$
            SETBLINK() 
          .   SETBLINK()
         :

       lOldBlink := SETBLINK()
       MyFunc()
       SETBLINK(lOldBlink)
$SEEALSO$
  SETCOLOR()
$END$
