/*
 * $Id: tgetlist.txt 9312 2008-09-05 00:08:34Z vszakats $
 */

/*
 * Las siguientes partes son derechos adquiridos de sus autores individuales.
 * www - http://www.harbour-project.org
 *
 * Copyright 2002 Alejandro de Grate <alex_degarate@hotmail.com>
 * Documentacin en Espaol de:
 *
 * Copyright 1999 Chen Kedem <niki@actcom.co.il>
 *    Documentacin en Ingls de: READVAR()
 *
 * Vea doc/license.txt por los trminos de la licencia.
 *
 */

/*  $DOC$
 *  $FUNCNAME$
 *      READVAR()
 *  $CATEGORY$
 *      Data input and output
 *  $ONELINER$
 *      Retorna el nombre de la variable del actual GET  MENU
 *  $SYNTAX$
 *      READVAR( [<cNombreVar>] ) --> cViejoNombreVar
 *  $ARGUMENTS$
 *      <cNombreVar> es el nuevo nombre de la variable a establecer
 *  $RETURNS$
 *      READVAR() retorna el viejo nombre de la variable <cViejoNombreVar>.
 *      Si ninguna variable fue establecida anteriormente, READVAR() retorna
 *      una cadena vaca.
 *  $DESCRIPTION$
 *      READVAR() es establecida dentro del comando READ  MENU TO para
 *      mantener el nombre en maysculas de la variable del GET / MENU TO
 *      actual y volverla de nuevo al viejo valor cuando aquellos comandos
 *      finalizan.
 *      Ud. no debera normalmente establecer un nombre de variable, sino
 *      usarlo para obtener el nombre de la variable de un GET cuando se
 *      ejecuta una clausula VALID  WHEN.  durante la ejecucin de un
 *      SET KEY y Ud. esta dentro de un READ  MENU TO.
 *  $EXAMPLES$
 *      // Visualiza un menu, presione <F1> para ver el nombre de la
 *      // variable de MENU TO
 *      CLS
 *      @ 1, 10 PROMPT "insecto chupador de sangre que infecta camas"
 *      @ 2, 10 PROMPT "germen; infeccion viral                     "
 *      @ 3, 10 PROMPT "defecto; snag; (fuente de) malfuncionamiento"
 *      @ 4, 10 PROMPT "pequeo microfono oculto                    "
 *      @ 6, 10 SAY "(Presione F1 por una pista)"
 *      SET KEY 28 TO ShowVar
 *      MENU TO What_Is_Bug
 *
 *      PROCEDURE ShowVar
 *       ALERT( READVAR() )        // WHAT_IS_BUG in red ALERT() box
 *      RETURN
 *      </fixed>
 *  $STATUS$
 *      R
 *  $COMPLIANCE$
 *      READVAR() trabaja exactamente como la funcin READKEY() de Clipper.
 *      Note sin embargo que el parmetro <cVarName> no est documentado
 *      y es usado internamente por CA-Cl*pper.
 *  $PLATFORMS$
 *      Todas
 *  $FILES$
 *      La Librera es rtl
 *  $SEEALSO$
 *      @...GET,@...PROMPT,MENU TO,READ,SET KEY,__AtPrompt(),__MenuTo()
 *  $END$
 */


