home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbbudget.zip / ADDUP.CMD next >
OS/2 REXX Batch file  |  1987-02-14  |  2KB  |  41 lines
  1. * COMMAND FILE 'ADDUP'
  2. * TRYING TO PATCH AROUND THE BUSTED "SUM" FUNCTION...
  3. *
  4. ERASE
  5. USE BUDGET
  6. STORE 0 TO CHECKS
  7. STORE 0 TO BILLS
  8. GO TOP
  9. DO WHILE .NOT. EOF
  10. IF ENTRY='CREDIT'
  11. STORE AMOUNT+CHECKS TO CHECKS
  12.    ELSE
  13.    STORE AMOUNT+BILLS TO BILLS
  14. ENDIF
  15. SKIP
  16. ENDDO
  17. ERASE
  18. @ 2,1 SAY 'TOTAL INCOME:'
  19. @ 2,20 SAY CHECKS
  20. @ 4,1 SAY 'TOTAL LIABILITIES:'
  21. @ 4,20 SAY BILLS
  22. @ 5,20 SAY '----------'
  23. @ 7,5 SAY '  TOTAL'
  24. @ 7,19 SAY (CHECKS-BILLS)
  25. ?
  26. ?
  27. ACCEPT 'Depress ENTER to return to menu' TO X
  28. DO MENU
  29. RETURN
  30.                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
  31. IF HOOK = 0
  32.    PACK
  33.    ERASE
  34.    @ 10,10 SAY 'Item has been deleted, returning to menu.'
  35.    DO B:MENU
  36.       ELSE
  37.       RECALL
  38.       ERASE
  39.       @ 10,15 SAY 'Item marked for deletion has been restored'
  40. r ?
  41.