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

 
Output of file : CHECKER.PRG contained in archive : DB3AR.ZIP
*!!* dBASE CONVERT - dBASE III File Conversion Aid v1.0 6/14/84
*
SET HEADING OFF
SET SAFETY OFF
SET TALK OFF
******************************************* (B:CHECKER.PRG)
CLEAR
USE B:INV
GO TOP
SET EXACT OFF
@ 5,1 SAY 'These invoices have a net amount due of $0.00 and show as OPEN '
?
LIST OFF ACCT,INVNO,NEWDATE,PRICE,CRINV,AMTAPPL,NET FOR .NOT. 
PAID .AND. NET=0
?
? 'Be careful of any of these...... '
?
LIST OFF ACCT,INVNO,NEWDATE,PAYDATE,PRICE,NET FOR NET<0.00
?
? '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
~~~~'
?
WAIT
@ 2,0 CLEA
SET EXACT ON
?
? "This takes a long time,don't touch anything until I say it's 
OK "
?
? 'Are these dates for real?'
? ' WAIT!'
GO TOP
DO WHILE .NOT. EOF()
*STORE ' / / ' TO XDATE
*STORE ' / / ' TO MDATE
STORE YEAR(NEWDATE) TO MDATE
STORE YEAR(DATE()) TO XDATE
STORE XDATE-1 TO XDATE
***********************\/ IF MDATE=XDATE
@ 5,0 CLEA
? 'Account #'+ACCT+STR(MDATE)+' '+' '+'Invoice #'+INVNO+' '+'Amt. 
Due'+STR(NET,8,2)
ENDIF
SKIP
ENDDO
WAIT ' OK! OK! ------->So touch me already '
CLEA
?
? ' Oooooooooooooh that felt gooooooooooooood...............'
?
RETURN



  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3AR.ZIP
Filename : CHECKER.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/