FUNCTION CALCKSET()

  Short:
  ------
  CALCKSET() Allows use of GETCALC() calculator in GETS

  Returns:
  --------
  Nil

  Syntax:
  -------
  CALCKSET(nKey,cProc,cVar,lAssign)

  Description:
  ------------
  Sets up a call to GETCALC() when key <nKey> is
  pressed while in proc or function <cProc> at variable <cVar>.

  If <lAssign> is True, the value returned from
  GETCALC() is assigned to the current get. Use CALCKCLR() when
  done.

  Examples:
  ---------
   // this will pop up a the calculator when F2 is pressed  while
   // on the get V2. The value will be assigned to V2.

   proc test

   v1 := 123
   v2 := 456

   @10,10 get v1
   @11,10 get v2

   CALCKSET(K_F2,"TEST","V2",.t.)

   read

   CALCKCLR()  // clear it out

  Source:
  -------
  S_CALCK.PRG