

POP_ADDER() (c)                                            page 1/3



This is a Pop-Up Adding Machine I use in my applications.  


Included are 6 files:    KAWADDER.TXT   -  this file

                         KAWADDER.PRG   -  the sample program  

                         MAKE_ADD.BAT   -  .BAT file to compile and
                                           link KAWADDER.PRG into an .EXE

                         M_CT1_AD.BAT   -  .BAT file to compile and
                                           link KAWADDER.PRG into an .EXE
                                           using "Clipper Tools One"

                         ABCOLUSE.MEM   -  My Memory file of Colors

                         ABE_KEYS.MEM   -  My keyboard variables
                                           ex.) rtn=CHR(13)




If you have "Clipper Tools One" please remove the folowing from
KAWADDER.PRG and create KAWADDER.EXE with M_CT1_AD.BAT

  1.) FUNCTION COUNTLEFT  - found @ end of KAWADDER.PRG

  2.) FUNCTION CHARREM    - found @ end of KAWADDER.PRG

  3.) FUNCTION POSREPL    - found @ end of KAWADDER.PRG

  4.) FUNCTION POSINS     - found @ end of KAWADDER.PRG

  5.) "*" in front of function COLORWIN - Allows true shading of
                                          boxes in "CT1"
                                          (used 10 times)


Also if you have "Clipper Tools One" you can add the appropriate
"CSET" functions to maintain the Professional continuity a Pop-Up
function should have using functions like CSETDECI(), CSETKEY(),
CSETFUNC(), and CSETCURS() to return these values to what they were
when POP_ADDER() (c) was called. I do this in my routines but took them
out here so it would run without the "CT1" Library.


After creating the KAWADDER.EXE by running MAKE_ADD.ABT or
M_CT1_AD.BAT just type KAWADDER for an example of a data input
routine (very simple example <g>) then press <ALT-A> to call the
POP_ADDER() (c).  Press <F-1> to show the options for the adder.
Please note you may Quit the adder by pressing <ESC> or <F-10>.
<F-10> returns the variable you have "Totaled" to the active Read.

To quit KAWADDER just press <ESC>.

Have fun!



POP_ADDER() (c)                                            page 2/3



There are 15 UDF's: 

  1.) POP_ADDER()  - The actual Pop-Up adder (c)

  2.) ADDFUNC()    - Function to process keys from ACHOICE

  3.) DIVIDE()     - Check for divide by ZERO - NOT allowed!
                   
  4.) STUFF_COMM() - Stuff commas into tape display

  5.) HOT_KEY_ON() - Sets <ALT-A> to call POP_ADDER() (c)

  6.) HOT_KEY_OF() - Resets <ALT-A> - prevents recursive calls

  7.) ABERMEFU()   - Error * Message function to get out of
                     MEMOEDIT() by pressing any key

  8.) Y_N_ANSWER() - Get Yes - No answer using INKEY() in a window

  9.) WIN_PUSH()   - Push a window on the screen

 10.) WIN_POP()    - Pop a window from the screen

 11.) NXT_COLOR    - Generate the next WINDOW color as a NUMBER variable

 12.) LST_COLOR    - Generate the last WINDOW color as a NUMBER variable

 13.) NXT_CLR_ST   - Generate the next WINDOW color as a STRING variable

 14.) LST_CLR_ST   - Generate the last WINDOW color as a STRING variable

 15.) N_WORD       - Parsing function to return next word used in
                     Y_N_ANSWER()



There are 14 PROCEDURES:

  1.) ADD_SCREEN   - Dispaly the keyboard of adder to the screen

  2.) CHANG_DEC    - Change the decimal position in the display

  3.) DISP_TOT     - Display total number

  4.) DISP_SUB     - Display subtotal number

  5.) _NUMBER      - Act on NUMBER key pressed

  6.) SHIFT_ADD    - They pressed the space bar - change from
                     add mode to multiply mode

  7.) ADD_TOTAL    - Enter key - SUBTOTAL - TOTAL

  8.) ADD_NUM      - Process + or - keypress

  9.) ADD_HELP     - Help window - <F-1> key



POP_ADDER() (c)                                            page 3/3



Procedures continued....

 10.) CLEAR_ADD    - Clear entry / Clear Adder <DEL> key

 11.) DISP_TAPE    - Display tape

 12.) UPD_TRANS    - Update transactions array

 13.) ABERROR      - Print error messages

 14.) MESSAGE      - Print messages or notices




If you use the POP_ADDER() (c)  in your routines please check that I
am not using the same names as any of your FUNCTIONS or  PROCEDURES.









You have my permission to use (or modify) POP_ADDER() (c) and the
functions included, in any of your applications.  However, YOU 
MAY NOT SELL any of them.  If you do you will receive the curse 
of a THOUSAND Clipper programers. <g> 


                         Keith A. Wire  73760,2427
                         Keith's Hardware, Inc.
                         106 S. Johnson St. 
                         Ada, Ohio   45810
                         (419) 634-3650


