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

 FT_ADDER()
 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.01
      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.


      The Help screen below gives a brief description of the operation
      of the adder.


                  +------- INSTRUCTIONS -------+
                  |                            |
                  | All number keys as usual   |
                  | <+> <-> keys as usual      |
                  | <SPACE>---shift <+> to <*> |
                  |         +-shift <-> to </> |
                  |  <D>    change decimal pt. |
                  |  <M>    move ADDER         |
                  |  <T>    display tape       |
                  |  <S>    scroll tape disp.  |
                  | <DEL>-----1st Clear entry  |
                  |         +-2nd Clear ADDER  |
                  | <ESC>   to Quit            |
                  | <F10>   to Return Total    |
                  |           to program       |
                  |                            |
                  +---- Any Key to Continue ---+



      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.) It uses the <SPACE> bar to shift from Add/Subtract
          mode to Multiply/Divide. That means the <+> and <-> keys
          become the <*> and </> keys.

      3.) 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>.

      4.) 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!

      5.) 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.

      6.) To make FT_Adder a Hot key from inside your application
          at the beginning of your application add the line:

                 SET KEY K_ALT_A  TO FT_Adder

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

      7.) If you use FT_SINKEY(), you can even have active hotkeys
          in an INKEY().




 Examples


 Header File: INKEY.CH, SET.CH, SETCURS.CH, ACHOICE.CH

 Source: POPADDER.PRG

 Author: Keith A. Wire