* DONATION.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 DONATION
SET TALK ON
@ 04,15 SAY "INDEXING THE DONATION DATA BASE...PATIENCE."
INDEX ON SUB:CAT + PAYEE + ITEM TO DONAINDX
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 DONATION INDEX DONAINDX
   REPORT FORM DONACOST
   ?'          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 DONATION INDEX DONAINDX
   REPORT FORM DONACOST 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

RETURN
 = 'V' .AND. ORDER = 'C'
    USE CHECKS INDEX CHKINX
    REP