*****************  ADDXPENS.CMD  *******************
*                                                  *
*  This command is to add a business expense that  *
* has been incurred which needs reimbursment to    *
* EXPENSES.DBF.  It prompts for information.       *
*                                                  *
****************************************************

USE B:EXPENSES

APPEND BLANK

@ 7,10 SAY 'MAKE SURE YOU ENTER THE DATE WITH THE'
@ 8,10 SAY 'YEAR FIRST, THEN MONTH, AND THEN THE DAY'
@ 11,10 SAY 'ENTER DATE (yymmdd)' GET DATE
@ 14,10 SAY 'ENTER ITEM         ' GET ITEM
@ 17,10 SAY 'ENTER REASON       ' GET REASON
@ 20,10 SAY 'ENTER AMOUNT       ' GET AMOUNT

READ

RETURN
