* TAINCOST.PRG is used to summarize political campaign contributions
* made to candidates or their organizations.
SET TALK OFF
STORE 'Y' TO ENTERIT
DO WHILE ENTERIT = 'Y'
ERASE
@ 10,18 SAY "BE SURE PRINTER IS TURNED ON. "
@ 12,18 SAY " WHEN READY, PRESS <RETURN>"
SET CONSOLE OFF
WAIT
SET PRINT ON
 * THIS SETS THE PRINTER TO COMPRESSED FOR GEMINI,IBM, AND EPSON COMPATIBLES
 ? CHR(15)
SET PRINT OFF
SET CONSOLE ON
USE ENTRTAIN
INDEX ON PAYEE + ITEM TO TAININDX
USE ENTRTAIN INDEX TAININDX
REPORT FORM TAINCOST TO PRINT
? '  '
? '                  REPORT IS FINISHED...PRESS <CR> TO RETURN.'
? '  '
STORE 'N' TO ENTERIT
ENDDO
USE
DELE FILE TAININDX.NDX
RELEASE ENTERIT
RETURN

  CASE PRNTFILE = '3'
     STORE 'OKIDATA' TO DATAFILE