home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB3PLSAR.ARC / BUCKS.PRG < prev    next >
Encoding:
Text File  |  1986-08-04  |  956 b   |  51 lines
  1. ****************************************(BUCKS.PRG)
  2. CLEA
  3. SET TALK ON
  4. USE CUST
  5. COPY TO TEMP FIEL ACCT,NAME,ADDRESS,ALLPAY
  6. USE TEMP
  7. SORT ON ALLPAY/D TO TEMP2
  8. USE 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 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 TEMP.DBF
  44. ZAP
  45. SET TALK OFF
  46. CLEA
  47. ?
  48. ? 'Press F9 to return to main menu...'
  49. ?
  50. RETURN
  51.