home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB3AR.ARC / BUCKS.PRG < prev    next >
Encoding:
Text File  |  1985-10-15  |  925 b   |  51 lines
  1. ****************************************(BUCKS.PRG)
  2. CLEA
  3. SET TALK ON
  4. USE B:CUST
  5. COPY TO B:TEMP FIEL ACCT,NAME,ADDRESS,ALLPAY
  6. USE B:TEMP
  7. SORT ON ALLPAY/D TO B:TEMP2
  8. USE B:TEMP2
  9. DISP ALL OFF
  10. ? ì
  11. '_________________________________________________________________ì
  12. ______'
  13. ?
  14. ? '                      Do you want a printed report?'
  15. ?
  16. STORE ' ' TO OPTION
  17. WAIT '                                   ? ' TO OPTION
  18. IF OPTION='Y'
  19. REPO FORM B:BUCKS HEAD [&MTITLE;Total paid by customer] TO PRIN
  20. CLEA
  21. ?
  22. ? 'Average pay per customer: '
  23. ?
  24. AVER ALLPAY FOR ALLPAY<>0.00
  25. WAIT 'Press anything...'
  26. SET TALK OFF
  27. CLEA
  28. ?
  29. ? CHR(12)
  30. ?
  31. ? 'Press F9 to return to main menu...'
  32. ?
  33. RETURN
  34. ENDIF
  35. ?
  36. ? 'Average pay per customer:'
  37. ? '$0 Accounts NOT averaged'
  38. ?
  39. AVER ALLPAY FOR ALLPAY<>0.00
  40. ?
  41. WAIT 'Press anything...'
  42. ?
  43. DELE FILE B:TEMP.DBF
  44. ZAP
  45. SET TALK OFF
  46. CLEA
  47. ?
  48. ? 'Press F9 to return to main menu...'
  49. ?
  50. RETURN
  51.