/* $DOC$
   $NAME$
      ft_Adder()
   $CATEGORY$
      Menus/Prompts
   $ONELINER$
      Pop up a simple calculator
   $SYNTAX$
      ft_Adder()
   $ARGUMENTS$
      None
   $RETURNS$
      NIL .... but optionally places Total of calculation in active
               Get variable using oGet:varPut()
   $DESCRIPTION$
      PopAdder() gives you an adding machine inside your Clipper 5.2
      application. It has the basic functions add, subtract, multiply,
      and divide. You may move it from one side of the screen to the
      other. It even displays a scrollable tape, if you want it.


      There are a few HOT Keys while using the Adder:

             <D>ecimals - change # of decimals
             <M>ove     - the Adder from right display to left
             <T>ape     - turn the Tape Display On or Off
             <S>croll   - the tape display
             <DEL> ---+-- 1st Clear entry
                      +-- 2nd Clear ADDER
             <ESC>      - Quit
             <F10>      - return a <TOTAL> to the active get


      A couple of notes about the adder:


      1. It was designed to be used on an Enhanced keyboard with
         separate <DELETE> key. <DELETE> is used to clear the adder.
         However, it will still work on a Standard keyboard.

      2. You do not have to display the tape. You may turn it on
         at any time by pressing <T>. You may SCROLL back through
         the tape once there are more than 16 entries in the
         adder, by pressing <S>.

      3. To Quit the Adder just press <ESC>. To return your Total
         to the application press <F10>. The adder will place the
         Total in the active GET variable using oGet:varPut(). The
         adder will only return a Total to a numerical GET!

      4. There are many support functions that you might find
         interesting. They are part of my personal library, but
         are necessary to the operation of the adder.
         You might want to pull these out to reduce the overall
         size of the adder. Many are worth at least a little
         time studying.

      5. To make ft_Adder() a Hot key from inside your application
         at the beginning of your application add the line:

                SetKey( K_ALT_A, {|| ft_Adder() } )

         This will make <ALT-A> a key "Hot" and permit you to
         Pop - Up the adder from anywhere in the application.

      6. If you use ft_SInkey(), you can even have active hotkeys
         in an Inkey().

   $EXAMPLES$

   $SEEALSO$

   $INCLUDE$
      inkey.ch, setcurs.ch, achoice.ch
   $END$
 */