Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DPROGS.ZIP
Filename : DEPMENU.PRG
* Select deposits or perform houskeeping on the checkbook.
***************************************************
*
SELECT 1
USE Deptemp
SELECT 8
USE Deposits
SELECT 10
USE Invoices INDEX Invoices
DO WHILE .T.
CLEAR
@ 3, 0 SAY '* * * * * D E P O S I T S & C H E C K B O O K * * * * *'
@ 5,20 SAY ' 1> Enter In Coming Money'
@ 7,20 SAY ' 2> Change our Check Number '
@ 9,20 SAY ' 3> Change Checkbook Balance'
@ 11, 0 SAY '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *'
@ 13,20 SAY 'Choose a number or press
@ 14, 0
*
WAIT ' ' TO Incoming
*
DO CASE
CASE Incoming = '1'
@ ROW(),0 SAY 'Loading In Coming Money'
DO Deposits
CASE Incoming = '2'
RESTORE FROM Konstant
CLEAR
@ 3,20 SAY 'CHANGE CHECK NUMBER'
@ 5, 0 SAY 'This is the next check number' GET NextCheck
@ 6, 0 SAY 'To leave it unchanged, press
@ 7, 0 SAY 'To change it, type in the new number.'
READ
SAVE TO Konstant
CASE Incoming = '3'
RESTORE FROM Konstant
CLEAR
@ 3,20 SAY 'CHANGE CHECKBOOK BALANCE'
@ 5, 0 SAY 'The current balance is:' GET MBalance
@ 6, 0 SAY 'To leave it unchanged, press
@ 7, 0 SAY 'To change it, type in the new value.'
READ
SAVE TO Konstant
CASE LEN(Incoming) = 0
@ ROW(),0 SAY 'Returning to Main Menu'
CLOSE DATABASE
RETURN
*
OTHERWISE
*
ENDCASE Incoming
ENDDO
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/