FUNCTION GETCALC()                            *changed*

  Short:
  ------
  GETCALC() Pops up a quick 'solar' calculator

  Returns:
  --------
  <expTotal> => total from calculator as either type
  "N" or "C"

  Syntax:
  -------
  GETCALC([nStart],[lReturnChar])

  Description:
  ------------
  Pop up 'solar' calculator for simple arithmetic

  [nStart]  starting number

  [lReturnChar]  return as character string (default
  .t.). False returns as a number.

  Examples:
  ---------
   GETCALC(5)

  NOTES:
  -------
  See also CALCWHEN(), CALCVALID(), CALCKSET()

  Source:
  -------
  S_GETCAL.PRG