* AUTOCOST.PRG is used to run report on medical deductions
ERASE
SET TALK OFF
SET EJECT OFF
RESTORE FROM TAXDATA ADDITIVE
SET HEADING TO TAX YEAR &TAXYEAR
STORE 'Y' TO GOFORIT
DO WHILE GOFORIT = 'Y'
STORE ' ' TO SEE
USE AUTO
SET TALK ON
@ 04,15 SAY "INDEXING THE AUTO DATA BASE...PATIENCE."
INDEX ON SUB:CAT + TYPE + PAYEE + ITEM TO AUTOINDX
SET TALK OFF
@ 10,15 SAY "DO YOU WANT TO VIEW OR PRINT REPORT (V/P)? " GET SEE
READ
IF SEE = 'ABCDEFGHIJKLMNOQRSTUWXYZ'
   @ 12,15 SAY "    YOU HAVE ENTERED INCORRECT COMMAND."
   @ 14,15 SAY "              TRY AGAIN."
   STORE 1 TO DELAY
   DO WHILE DELAY < 15
      STORE DELAY + 1 TO DELAY
   ENDDO
   RELEASE DELAY
   ERASE
ENDIF
IF SEE = 'V'
   USE AUTO INDEX AUTOINDX
   REPORT FORM AUTOCOST
   ?'          REPORT IS FINISHED......TAP <CR> TO RETURN TO MENU'
   SET CONSOLE OFF
   WAIT
   SET CONSOLE ON
   ERASE
ENDIF
IF SEE = 'P'
   @ 12,15 SAY "BE SURE YOUR PRINTER IS TURNED ON."
   @ 14,15 SAY "TAP <SPACE BAR> TO BEGIN PRINTING."
   SET CONSOLE OFF
   WAIT
   SET CONSOLE ON
   USE AUTO INDEX AUTOINDX
   REPORT FORM AUTOCOST TO PRINT
   ?'          REPORT IS FINISHED......TAP <CR> TO RETURN TO MENU'
   SET CONSOLE OFF
   WAIT
   SET CONSOLE ON
   ERASE
ENDIF
STORE 'N' TO GOFORIT
ENDDO
RELEASE GOFORIT,SEE
RETURN
ITION
@ 23,15 SAY 'PRESS <PgDn> KEY WHEN FINISHED.'
READ
ERASE
@ 10,15 SAY "DO Y