* TRYING TO PATCH AROUND THE BUSTED "SUM" FUNCTION...
*
ERASE
USE BUDGET
STORE 0 TO CHECKS
STORE 0 TO BILLS
GO TOP
DO WHILE .NOT. EOF
IF ENTRY='CREDIT'
STORE AMOUNT+CHECKS TO CHECKS
ELSE
STORE AMOUNT+BILLS TO BILLS
ENDIF
SKIP
ENDDO
ERASE
@ 2,1 SAY 'TOTAL INCOME:'
@ 2,20 SAY CHECKS
@ 4,1 SAY 'TOTAL LIABILITIES:'
@ 4,20 SAY BILLS
@ 5,20 SAY '----------'
@ 7,5 SAY ' TOTAL'
@ 7,19 SAY (CHECKS-BILLS)
?
?
ACCEPT 'Depress ENTER to return to menu' TO X
DO MENU
RETURN
10.0083 7DEBIT HOME IMPROVEMENT LOAN 317.0283 7DEBIT HOUSE PAYMENT 474.0083 7DEBIT HOUSTON POST 7.2583 7DEBIT INS.LOA 0.0083 7DEBIT VW (6 OF 12) AT 26.80/YR. 2.0083 7DEBIT *WAXING 15.0083 7DEBIT WESTLAKE CLUB 200.0083 7DEBIT WESTLAKE CLUB 200.0083 7DEBIT Tber returns to menu.' TO HOOK
IF HOOK = 0
PACK
ERASE
@ 10,10 SAY 'Item has been deleted, returning to menu.'
DO B:MENU
ELSE
RECALL
ERASE
@ 10,15 SAY 'Item marked for deletion has been restored'