home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / dbaseii / checkbk2.lbr / BALANCE.CMD next >
Encoding:
Text File  |  1986-08-06  |  512 b   |  20 lines
  1. USE CHECKREG
  2. STORE 0 TO MDEPOSIT,CHECKS
  3. DO WHILE .NOT.EOF
  4.   IF DEPOSIT
  5.     STORE AMOUNT+MDEPOSIT TO MDEPOSIT
  6.   ENDIF
  7.   IF .NOT.DEPOSIT
  8.     STORE AMOUNT+CHECKS TO CHECKS
  9.   ENDIF
  10. SKIP
  11. ENDDO
  12. @ 5,15 SAY 'TOTAL DEPOSIT' GET MDEPOSIT
  13. @ 7,15 SAY 'TOTAL CHECKS' GET CHECKS
  14. STORE MDEPOSIT-CHECKS TO BALANCE
  15. @ 9,15 SAY 'BALANCE      ' GET BALANCE
  16. CLEAR GETS
  17. WAIT
  18. USE CHECKREG INDEX CHECKNO
  19. RETURN
  20.                   0.00         F    7                                  0.00         F 2091MONTGOMERY C