home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
db3plsar.zip
/
BUCKS.PRG
< prev
next >
Wrap
Text File
|
1986-08-04
|
956b
|
51 lines
****************************************(BUCKS.PRG)
CLEA
SET TALK ON
USE CUST
COPY TO TEMP FIEL ACCT,NAME,ADDRESS,ALLPAY
USE TEMP
SORT ON ALLPAY/D TO TEMP2
USE TEMP2
DISP ALL OFF
? ì
'_________________________________________________________________ì
______'
?
? ' Do you want a printed report?'
?
STORE ' ' TO OPTION
WAIT ' ? ' TO OPTION
IF OPTION='Y'
REPO FORM BUCKS HEAD [&MTITLE;Total paid by customer] TO PRIN
CLEA
?
? 'Average pay per customer: '
?
AVER ALLPAY FOR ALLPAY<>0.00
WAIT 'Press anything...'
SET TALK OFF
CLEA
?
? CHR(12)
?
? 'Press F9 to return to main menu...'
?
RETURN
ENDIF
?
? 'Average pay per customer:'
? '$0 Accounts NOT averaged'
?
AVER ALLPAY FOR ALLPAY<>0.00
?
WAIT 'Press anything...'
?
DELE FILE TEMP.DBF
ZAP
SET TALK OFF
CLEA
?
? 'Press F9 to return to main menu...'
?
RETURN