Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3AR.ZIP
Filename : BUCKS.PRG

 
Output of file : BUCKS.PRG contained in archive : DB3AR.ZIP
****************************************(BUCKS.PRG)
CLEA
SET TALK ON
USE B:CUST
COPY TO B:TEMP FIEL ACCT,NAME,ADDRESS,ALLPAY
USE B:TEMP
SORT ON ALLPAY/D TO B:TEMP2
USE B:TEMP2
DISP ALL OFF
? 
'_________________________________________________________________
______'
?
? ' Do you want a printed report?'
?
STORE ' ' TO OPTION
WAIT ' ? ' TO OPTION
IF OPTION='Y'
REPO FORM B: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 B:TEMP.DBF
ZAP
SET TALK OFF
CLEA
?
? 'Press F9 to return to main menu...'
?
RETURN


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3AR.ZIP
Filename : BUCKS.PRG

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/