$FUNCNAME$
  READEXIT()
$CATEGORY$
  TERMINAL/IO
$SUMMARY$
   Toggle Up arrow and Down arrow as READ exit keys
$LANG_RU$
     UP  DOWN   
$SYNTAX$
     READEXIT([<lToggle>]) --> lCurrentState
$LANG_RU$
     READEXIT([<>]) -->   
$ARGUMENTS$
     <lToggle> toggles the use of Up arrow and Down arrow as READ exit
     keys.  Specifying true (.T.) enables them as exit keys, and false (.F.)
     disables them.
$LANG_RU$
     <>    < >
      < >      READ. 
     "" (.T.)    ,   "" (.F.)
       .
$RETURNS$
     READEXIT() returns the current setting as a logical value.
$LANG_RU$
     READEXIT()       .
$DESCRIPTION$
     READEXIT() is an environment function that reports the current state of
     Up arrow and Down arrow as keys the user can press to exit a READ from
     the first or last Get object in a GetList.  If the optional <lToggle>
     argument is specified, Up arrow and Down arrow are either enabled or
     disabled as READ exit keys.  At program startup, Up arrow and Down arrow
     are not enabled as READ exit keys.  Normally, READ exit keys include
     only Pgup, Pgdn, Esc, or Return from the last GET.
$LANG_RU$
     READEXIT() -   ,    
      < >  < >  , 
       ,     READ,
         GET-   GetList.
            READ   
      GET    <PgUp>, <PgDn>, <Esc>  <Enter>.
$EXAMPLES$
       This example shows READEXIT() enabling Up arrow and Down arrow
	exit keys before a READ then resetting them after the READ
	terminates:

	cMyvar = SPACE(10)
	lLastExit = READEXIT(.T.)   // Result: Turn on exit keys
	//
	@ 10, 10 SAY "Enter: " GET cMyvar
	READ
	READEXIT(lLastExit)         // Result: Restore previous setting
$LANG_RU$
           READEXIT(), 
         < >  < >  
          READ,    READ 
        :

       cMyvar = SPACE(10)
       lLastExit = READEXIT(.T.)    // :   
       //
       @ 10,10 SAY ": " GET cMyvar
       READ
       READEXIT(lLastExit)          // : 
				    //  
$SEEALSO$
  READINSERT()
$END$
