home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dbc.lbr / CREPBAL.CZD / CREPBAL.CMD
Encoding:
Text File  |  1993-10-26  |  2.0 KB  |  70 lines
  1.  
  2. * notice..: copyright 1985, all rights reserved
  3. ***************************************************************
  4. ** PROGRAM: CK85.XXX                                         **
  5. ** PURPOSE: CHECK TRACKING OR ACCOUNTS PAYABLE               **
  6. ** FEATURES: ALLOWS MANAGEMENT BY USE OF ACCOUNTING CODES    **
  7. ** AUTHOR:  DON SABA - SAN DIEGO, CA - SABALINE SYSOP        **
  8. ** HELP:  CALL SABALINE (619)692-1961                        **
  9. ***************************************************************
  10. **********start of crepbal.prg*********************************
  11. ERASE
  12. SET talk OFF
  13. ?
  14. ?
  15. ? '                      CHECK BALANCING FOR FILE CK85 ' 
  16. ? '                  THIS ROUTINE WILL UPDATE ALL BALANCES' 
  17. ? '        REMEMBER THAT THIS PROGRAM WILL REPLACE THE BALANCE FIELD' 
  18. ?
  19. @ 8,0 SAY ' DO YOU WISH TO CONTINUE ?  (Y/N)' 
  20. STORE 'Y' TO answer 
  21. @ 8,50 GET answer PICTURE '!' 
  22. READ 
  23. USE &ckdat INDEX cnum
  24. GOTO 2
  25. STORE 0 TO bal
  26. STORE 0 TO depamt
  27. STORE 0 TO amt
  28. STORE 0 TO mnewbal
  29. DO WHILE .not. eof .AND. answer <> 'N' 
  30.  SKIP -1
  31.  STORE bal TO mbal
  32.  SKIP
  33.  
  34.  STORE depamt TO mdepamt
  35.  STORE amt TO mamt
  36.  STORE mdepamt + mbal - mamt TO mnewbal
  37.  IF depamt <> 0
  38.   @ 11,0
  39.   @ 11,0 SAY 'Deposit Amount ' 
  40.   @ 11,50 SAY str(depamt,9,2)
  41.  ENDIF depamt <> 0 
  42.  @ 13,0
  43.  @ 13,0 SAY number + ' ' + payee + expense+ str(amt,9,2)
  44.  @ 15,30 SAY mnewbal
  45.  @ 15,26 SAY #
  46.  @ 15,0 SAY 'New Balance for record...' 
  47.  REPLACE bal WITH mnewbal
  48.  SKIP
  49. ENDDO WHILE .not. eof 
  50. ERASE
  51. RETURN
  52. ***************************************************************
  53. ***************************************************************
  54. ***************************************************************
  55.  
  56.   @ 11,0
  57.   @ 11,0 SAY 'Deposit Amount ' 
  58.   @ 11,50 SAY str(depamt,9,2)
  59.  ENDIF depamt <> 0 
  60.  @ 13,0
  61.  @ 13,0 SAY number + ' ' + payee + expense+ str(amt,9,2)
  62.  @ 15,30 SAY mnewbal
  63.  @ 15,26 SAY #
  64.  @ 15,0 SAY 'New Balance for record...' 
  65.  REPLACE bal WITH mnewbal
  66.  SKIP
  67. ENDDO WHILE .not. eof 
  68. ERASE
  69. RETURN
  70.