Click above to get retro games delivered to your door ever month!

 C_GETVAR()

 DESCRIPTION

 C_GETVAR() returns the contents of the currently active GET during
 a Clipper READ command.

 NOTES

 The C_GETVAR() function returns the contents of the active GET
 variable as opposed to Clipper's READVAR() function which returns
 the name of the active GET variable.

 C_GETVAR() is most useful during a VALID function or a SET KEY
 procedure to report the contents of the GET variable.

 SYNTAX

 C_GETVAR()

 PARAMETERS

 There are no parameters.

 RETURNS

 C_GETVAR() returns the contents of the currently active GET for
 whatever data type was specified when the GET was initialized.  If
 the GET variable is empty, the empty values for the particular data
 type are returned.

 EXAMPLES

 mname = space(15)
 maddr = space(25)
 mcity = space(12)

 @ 0,0 get mname valid ck_name()
 @ 1,0 get maddr
 @ 2,0 get mcity
 read

 **-----------------------**
 FUNCTION ck_name

 seek c_getvar()
 if found()
   ? "Name is already entered"
   return .f.
 endif
 return .t.