* SALETAX.PRG is used to compute the HAWAII STATE SALES TAX (currently
* .04 %) on the gross total of all checks written where STATE SALES TAX
* is known to be included in the check total.
SET TALK OFF
SET COLON OFF
ERASE
RESTORE FROM FILEDRIV ADDITIVE
STORE 000000.00 TO GROSSTOT
STORE 000000.00 TO NETTOT
STORE 000000.00 TO TAXTOT
STORE 'Y' TO DOIT
DO WHILE DOIT = 'Y'
STORE '          ' TO NEWFILE
STORE MD1+':'+'CHECKS' TO NEWFILE
USE &NEWFILE
@ 06,15 SAY "THIS PROGRAM COMPUTES THE STATE SALES TAX."
@ 08,15 SAY "WHEN PAU...THE COST BASIS AND TAX WILL BE"
@ 10,15 SAY "      DISPLAYED IN THE SPACE BELOW."
SUM AMT TO GROSSTOT FOR SALETAX = 'Y'
*  If the sales tax is different, change the 1.04 and the 4 to equivalent
* numbers in next two lines (ex. 6% tax would be 1.06 and 6).
STORE GROSSTOT/1.04 TO NETTOT
STORE 4 * NETTOT TO TAXTOT
STORE TAXTOT/100 TO TAXTOT
@ 15,20 SAY "SUM OF TAXABLE ITEMS IS " GET NETTOT
@ 17,20 SAY "  STATE TAX ON ITEMS IS " GET TAXTOT
@ 19,20 SAY "               TOTAL IS " GET GROSSTOT
@ 22,20 SAY "     TAP <SPACE BAR> TO RETURN."
SET CONSOLE OFF
WAIT
SET CONSOLE ON
STORE 'N' TO DOIT
ERASE
ENDDO
RELEASE DOIT
RETURN