*****************  EDITEXP.CMD  ********************
*                                                  *
*  The EDITEXP.CMD command file is used to change  *
* mistakes that inadvertently made it into the file*
* If they should happen to appear the screen asks  *
* for the date and then asks for the record number *
* of the file you want to correct.  It makes a dif-*
* ference if the file you want to change is mileage*
* or expense.                                      *
*                                                  *
****************************************************

ERASE

ACCEPT 'PRESS "M" FOR MILEAGE, "E" FOR EXPENSE' TO TYPE
IF !(TYPE) = 'M'

?
?
?
?
?
?
INPUT 'ENTER DATE YOU WANT TO CHANGE' TO FINDER

USE B:MILEAGE
     DISPLAY ALL FOR DATE = FINDER
     INPUT 'ENTER RECORD NUMBER TO BE CHANGED' TO FINDER

ERASE
@ 7,10 SAY "I'm going as fast as I can!"

     GOTO FINDER
     ERASE

     @ 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 DESTINATION  '     GET DESTINAT
     @ 17,10 SAY 'ENTER BEGINNING MILEAGE' GET BEGMILES
     @ 20,10 SAY 'ENTER ENDING MILEAGE   ' GET ENDMILES
READ
ENDIF

IF !(TYPE) = 'E'

USE B:EXPENSES
?
?
?
?
  INPUT 'ENTER DATE AS (yymmdd)' TO FINDER
     DISPLAY ALL FOR DATE = FINDER
INPUT 'ENTER RECORD NUMBER YOU WISH TO CHANGE' TO FINDER

ERASE

@ 7,10 SAY "I'm looking already."

     GOTO FINDER

     ERASE

     @ 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

ENDIF

RETURN