"$CHECKS DQC9i$ACCTS MNU?|-$BALANCECMDSWX$CANCEL CMDgj$CATGS DBF$CHECKS DBFM:$CHECKS CMD$CHK-DATMNU$DEPCANCCMDA$DEPOSITDBFd$DEPOSITCMD$EXIT CMDt$GET-BALCMD A$MENU CMD$PAYEES DBF/8$REPORT CMD7u $REPORT1FRMK&w$REPORT1CMDL^$REPORT2FRM\ $REPORT2CMDh$VOID CMD$$CHKPRNTCQD8Dv/$CHECKS.DOC   !"#_$%'&)(+*-,./o10243576 89:<;=r>?@BAC DEFGH JIKLQMON PRQTSUVXWYZ[\]^S_`bacdefhgijlknmp9o]rqstuv:xzw|yD{}~VXu0+AU-,;6\*51>8E@^M˜9^tǛ#,Mѣ?s\ VA߃ˆR @S۝L)쏠WC^P`v,~b6X<7s/ XtxKǴx4} Pe.ssPn\mԉy0 !_W k'`*s =Qӣ+J|vێ}7 :`+CuUCW<"u=$^$x;W X} ў3U_PNmQ"`=z j},jeĞ-U?ND>m pP[j(@]ܸ\_PQ?@ !jzTrߔ;#U*ꉃtjE:sޟ.sog$:EBS-| Sx }P Un} ?313Rr_vNUͻQXFȳ`{ޟ}QhE*|og#v`: Qӣꃩd;sz M#|sG oy2iMh2HOI a΍ 3<n#Q`*sDMC֯`)vF{Jvn|Lſm~k-.ZE, ށD _@ZQ(>ZZ{`aJ9`NһLF7lo3z E([o[ ][1|`[lF'杒e0qChg,?6Rb?cI䀹'>0f +$vFzCK{oxWkv냩5=9Xy-j*~0{(> >K%Qv*[?9.~~ uk9Z*SMWSQ"QoMů]g"~D9{I2y݀ܨ?\X?xަ >6!ST`CX}0ky-v*[,%^X_һLF7lo3z qSWkg_. 8)a԰ޥORÖqK~ޏ[_CZh%Ӎhm {ୡVy d26ݡOvEjحoS;%[C.xKK[闻> m jح_;af'V"9N`Hz b.oSN@ }ET6%Q3&J/oߴ5=}ꋨ3Rb@Q#E%TF_剧+`-0|5m?G~SA0F{ъBQ0ْS7\Bk 3<- }SubC۹AQ3S9k7表ַ+EȇY|E|<yB61.|Wk( Gb ?n}5}EK'l&v50/V=_l(G qߔ ;mb#}KL/~;7(}T=_A\X?xۉ$/#f;T`"_Nmk") -7yen?`-&/s{27jn 3<K&G-lo35yd󃙂#}KoΧQ_@dϫ ? `rS5Ş;b~(v5~ V ۹qQWH:l~ %4 V!o07kW*Eϑï*=~mfqCOuA{ (ϙG>`z ?ҷow.{HCŃG3 }C` v\vn{AĪ_'1WT*~1WPW=$fFS_;]%>`*s@+VTT| )JL/ ?@(+P@0,ԯבs,{{ְ`*s1Us԰`mk(Axyo7K5H/ohw39p}te:eꋭ?JOuQ۞(?G= d26Kj!3뷆5Zu_}S-~6NһLF7lo`Mw/`*50]e'`*JW%ӍhŃ@LmB` @د ,`袯UTDMu)*I/Ilo3 GL50Ӌ۹?PhO_;*j!R|NT3s{ٜ7,/5sοyd26Ke.s/II{_)|H|T4x/./weexK?tYPxK/4 d]/]^6GdK}_/]]㗻/F/M/].s/˗_1t{h<˂/wNj_̽l4ta<.C_fr1t\<~eB`v7ydo~ev`~k-Ul_GH6,^ZClկ%>U.|ej |RDX!qԞal8+s0$~6/W`a`}N$;m~ߔ@j;ԉy0BAo_;۪fQ_&LY~`PӲ%~PmX9YgQӋ?~ů]kz}SWy%XR\1vnW(VÏQ}ȷsペ/zr_;0\QZ"Ar+`*sCOuBH o]J/$vqii !qx:;s. 8H~)*0_Td \ZevuUvf.s/C1奆c. 7. 8,̽l$%}Y"Q߻L?s/;^˂/w;^̽l4/~Ǘ/ J5cz2x<e/wweexߗ~Krxx3xK?xK'rxFq//_~k<^eeCq2e.s ן!Gݮ>) -W)O<;C,30ÛcIWk.fZ};#u)*enCo9 W(^Q;|wgx22R\ d22/hLE̷3뷑Rmg_T{hI_u~P[~03OW%ǒB19kS,>2E:R`Hog$OĞCsCXBy-4%΍ 3`@$vF*};WHNPn}0k3 R`詚H6;sKZ.lo3 GLjHPH1.vnwſv0{Q))t|`P΍f1K|;WH$s,[vmI0`Hvn|0`z۹A jH|p}oW'G-lol`1[2M+~ vm;+jJ|BJ\mUQB[=x.&>v T(9R QB U{[ee#f򩝒H?s/K1 M2[ge#6z?9 T2ݡ TB2ybg2x49fyK5H/w;%㣖K4,̽OJPMqE⣒ߧ7~w~+s/w\,DMf~~q|Q/~k<^r{СLJ}G~e.sR5<߲8>mfqCOu_GM!S?Pj_\M6ꃎoʿe$8/8yLm~s*!}ܸ03_MPCQ-~;#BmU DqC2zcАlw`5= v`*\ums;s0( w;y(~"A''/0 PQ W3s{iihm\^״ٿya,1^Η.&3r?o_~Xq48#Giߗc17ǛKK/ _\$>*y}x{g~~/ J5/~Y̽o<^ҏwN4$\dL/ z|KЗٸ񎗅\25 7=9 ohᣆ7Pkd>I=xIv~0^t -?Ry>Z~DMCD)nwxog$Qj`կ#sC+0D ?nyi_| As*_P+#SD_QӣW[4ajӧT.MŒalSو- 1΍K{dq&Wkgu{ъfFy)z)˃G>=$vߚ<|SnӞ`W=D}o3Ub!?bBK۹qj*U԰kjeogjeaN߸#vs5x,%s\z)-0ܔ5_P`z۹q GS#jzT_!ſꨧW=vvHQ(`3s~ !Ss0>b>X=Hu]N>XL[m􏮡ÏQ}+?P۹qaf'nz,Q3Ӑc$jx~;#>6ʻkl~en&Bo5_p$.{>kWm{H\D 30M Q3S#jzT_3#8fҷrcĘ9Yh杒8>m\^״ٿya,1^Η.&3r?o_~X* * * * * $ACCTS.MNU * * * * * 6/30/84 * * This file is the data which will be user dependent * to the $CHECKS database system. You should modify * this (as well as the other 'MNU' files to fit your * own specific applications. * STORE 'ABC' TO active ? ? ? ? ' WHICH ACCOUNT ???' ? ' =================' ? ? ? ' A - JOINT ACCOUNT' ? ? ' B - LAW FIRM ACCOUNT' ? ? ' C - ESCROW ACCOUNT' ? ? ' X - EXIT' ? ? ? ' Please enter your CHOICE...' SET CONSOLE OFF WAIT TO account STORE !(account) TO account SET CONSOLE ON DO CASE CASE account = 'A' STORE 'JOINT ACCOUNT' TO acctname CASE account = 'B' STORE 'LAW FIRM ACCOUNT' TO acctname CASE account = 'C' STORE 'ESCROW ACCOUNT' TO acctname ENDCASE RETURN account = 'X' USE RETURN ENDIF STORE T TO again DO WHILE again ERASE SET TALK OFF STORE ' ' TO voiditm SEORE ' ' TO voiditm SET TALK OFF STORE ' ' TO voiditm SETO voiditm SET TALK OFF STORE ' ' TO voiditm SE SET TALK OFF STORE ' ' TO voiditm  - PRINT REPORTS  * * $ACCTS.MNU * * * * * 6/30/84 * * This file is the data which will be user dependent * to the $CHECKS database system. You should modify * this (as well as the other 'MNU' files to fit your * own specific applications. * STORE 'ABC' TO active ? ? ? ? ' WHICH ACCOUNT ???' ? ' =================' ? * * * * * $BALANCE.CMD * * * * * 6/30/84 * * This program is used to balance your checkbook. * ERASE STORE 'Y' TO again DO WHILE again = 'Y' .OR. again = 'y' DO $get-bal * This program gets the memory variable MBALANCE for the * specified account. When called, $DEPOSIT.DBF is left in * use and MBALANCE, ACCOUNT, ACTIVE and ACCTNAME memory * variables are available. IF account = 'X' RELEASE account, again RETURN ENDIF ERASE ? ? ' RECONCILLIATION OF', acctname ? ' =================================' ? ? SUM amt TO dp:out FOR acct = '&account' .AND. .NOT. can USE $checks SUM amt TO ck:out FOR acct = '&account' .AND. .NOT. can ? ? ' ACTUAL ACCOUNT BALANCE = $', mbalance ? * - display total of outstanding deposits ? 'TOTAL OUTSTANDING DEPOSITS = $', dp:out ? * - display total of outstanding checks ? 'TOTAL OUTSTANDING CHECKS = $', ck:out ? ? ' BANK STATEMENT BALANCE = $', mbalance + ck:out - dp:out ? ? ? ? ? ' Reconcile ANOTHER account (Y/any)?' SET CONSOLE OFF WAIT TO again SET CONSOLE ON ENDDO ===> again = 'y' or 'Y' RELEASE mbalance, account, active, acctname, again, dp:out,; ck:out RETURN  WAIT TO right STORE !(right) TO right SET CONSOLE ON IF right <> 'Y' LOOP ENDIF ==> right ag $BALANCE.CMD * * * * * 6/30/84 * * This program is used to balance your checkbook. * ERASE STORE 'Y' TO again DO WHILE again = 'Y' .OR. again = 'y' DO $get-bal * This program gets the memory variable MBALANCE for the * specified account. When called, $DEPOSIT.DBF is left in * use and MBALANCE, ACCOUNT, ACTIVE and ACCTNAME memory * variables are available. IF account = 'X' RELEASE account, again RETURN ENDIF ERASE ?* * * * * $CANCEL.CMD * * * * * * * For cancelation of checks when bank statement arrives in mail. * * - loop while check number not equal to zero SET TALK OFF USE $CHECKS DO WHILE T ERASE ? ? ? ? ' CHECK CANCELLATION MENU' ? ' =======================' ? ? ? ' Enter check number of ZERO to EXIT' ? ? INPUT ' Enter cancelled check number ' TO c:can * - testing for zero check number IF c:can = 0 RELEASE c:can, answer USE RETURN ENDIF * - position to top of database and search for cancelled checks. GO TOP LOCATE FOR c:can = NO .AND. .NOT. CAN * - testing to see if at end of database file IF .NOT. EOF * - if not at end of file display check data ERASE ? ? ? ' CHECK CANCELLATION VERIFICATION' ? ' -----------------------------------' ? ? ? ' CHECK NUMBER: ', c:can ? ? ' Paid to: ', to ? ' on: ', date ? ? ' Amount of check is: ', amt ? * - ask if this is right check ? ? ? ' Is this the RIGHT one (Y/any) ?' SET CONSOLE OFF WAIT TO answer STORE !(answer) TO answer SET CONSOLE ON IF answer = 'Y' * - change logical flag for cancelled check REPLACE can WITH T ELSE LOOP ENDIF ELSE * - message to tell user his check is not in file. ? ? ? ' Check ', c:can, ' cannot be found' ? ? ? ' Press any key to continue...' SET CONSOLE OFF WAIT SET CONSOLE ON ENDIF ENDDO  63.22T07/01/84RR A 558FIVE FIFTY EIGHT 22.00T07/01/84RE A 559TEST 37.07T07/01/84UU A 560ONE FOR THE MONEY 1.00T07/01/84EE A 561TWO FOR THE SHOW aid to: ', to ? ' on: ', date ? ? ' Amount of check is: ', amt ? * - ask if this is right check ? ? ? ' Is this the RIGHT one (Y/any) ?' SET CONSOLE OFF WAIT TO answer STORE !(answer) TO answer SET CONSOLE ON IF answer = 'Y' * - change logical flag for cancelled check REPLACE can WITH T ELSE LOOP ENDIF ELSE * - message to tell user his cheTMEMOClDESCRIPCl A CASH TRANSACTIONS AECASH - EAL B BOOK EXPENSES BBBUSINESS BOOKS BCCOMPUTER BOOKS BLLAW BOOKS C CAR EXPENSES 0T *A01/07/84MISC 205.00T *A01/07/84MISC. 3650.00T *A01/11/84INTEREST -- VOI 0.00TXV*A01/14/84MISC. 2012.34F *A01/17/84MISC. 2200.00T *A07/01/84MISC 930.00T *A07/01/84GOOD LUCK 2500.00F *A07/01/84STOCKS 1200.00T *A07/01/84RACE TRACK 250.00F *A07/02/8T:ACCTClNONlTOClAMTN lCANLlDATECmMEMOCm S SYSTEMS PS*HOWARD CABLE T.V. UT*GIANT FOOD FG*THE WASHINGTON POST NP*CMPC NURSERY SCHOOL VN*EASTERN AIRLINES A * * * * * * * $CHECKS.CMD * * * * * * * * 6/30/84 * * $CHECKS.CMD is used to enter checks into $CHECKS.DBF and * to print the check entered, if desired. * ERASE DO $get-bal * This program gets the memory variable MBALANCE for the * specified account. When called, $DEPOSIT.DBF is left in * use and MBALANCE and ACCOUNT memory variables are stored. * IF account = 'X' RELEASE account RETURN ENDIF STORE DATE() TO ch:dat USE $checks GOTO BOTTOM STORE 'Y' TO more DO WHILE more = 'Y' ERASE * initialize memory variables STORE ' ' TO m:payee STORE 0.00 TO m:amt STORE ' ' TO ch:memo STORE (no + 1) TO m:no SET INTENSITY ON DO b:$chk-dat.mnu SET INTENSITY OFF READ IF $(m:payee,1,1) = "." USE b:$payees GOTO VAL($(m:payee,2,4)) STORE payee TO m:payee STORE catgory TO ch:memo USE b:$checks @ 4,2 SAY 'PAYEE WILL BE ENTERED AS ' GET m:payee @ 7,2 SAY 'PURPOSE WILL BE ENTERED AS ' GET ch:memo @ 23,03 SAY ' ' ENDIF ==> $(m:payee,1,1) = "." ? ' Are all entries correct (Y/any) ?' SET CONSOLE OFF WAIT TO right STORE !(right) TO right SET CONSOLE ON IF right <> 'Y' LOOP ENDIF ==> right * - put blank card and add data to $CHECKS.DBF APPEND BLANK IF m:no = 0 REPLACE no WITH m:no, to WITH m:payee, amt WITH m:amt,; date WITH ch:dat, memo WITH !(ch:memo),; acct WITH account, can WITH T ELSE REPLACE no WITH m:no, TO WITH m:payee, amt WITH m:amt,; date WITH ch:dat, memo WITH !(ch:memo),; acct WITH account, can WITH F DO $chkprnt ENDIF ===> m:no STORE mbalance - m:amt TO mbalance ERASE ? ? ? ? ? ' ', acctname, 'BALANCE IS NOW: $', mbalance ? ? ? ' Enter another check to this account (Y/any)?' SET CONSOLE OFF WAIT TO more STORE !(more) TO more SET CONSOLE ON ENDDO ==> WHILE more = 'Y' * Last, the new balance and date are stored at the top * of $DEPOSIT.DBF with MBALANCE and ACCOUNT memory variables. USE $deposit GOTO TOP LOCATE FOR source = 'BANK&account' REPLACE amt WITH mbalance, date WITH DATE() RELEASE account, more, mbalance, right, ch:dat, m:payee, m:amt,; ch:memo, m:no USE RETURN * * * * * $CHK-DAT.MNU * * * * * 6/30/84 * * This is the user modifiable form used when entering checks * into the $CHECKS.DBF. You should only change the lower half * of this form starting at "@ 10,03 ..." to conform to your purpose * codes. This is set up for an 80 column screen which may require * modification if your screen is a different width. * SET INTENSITY OFF ? ' CHECK ENTRY FORM - CURRENT ACCOUNT BALANCE = $', mbalance @ 3,2 SAY 'CHECK NUMBER (00 for cash withdrawl) ' GET m:no PICTURE '9999' @ 4,2 SAY 'PAY TO THE ORDER OF ' GET m:payee @ 5,2 SAY 'AMOUNT OF CHECK ' GET m:amt @ 6,2 SAY 'DATE WRITTEN ' GET ch:dat PICTURE '99/99/99' @ 7,2 SAY 'ENTER PURPOSE LETTER ' GET ch:memo SET INTENSITY ON @ 9,25 SAY 'PURPOSE LETTER CODES' @ 10,03 SAY 'A - CASH H - HOUSE O - DENTIST' @ 11,03 SAY 'B - BOOKS HI - IMPROVEMENTS P - PHONE' @ 12,03 SAY ' BL - LAW HM - MORTGAGE PC - 992' @ 13,03 SAY ' BB - BUSINESS I - INSURANCE PW - 982' @ 14,03 SAY ' BC - COMPUTER J - PS - SBS' @ 15,03 SAY 'C - CARS K - CREDIT CARDS Q - COMPUTER SUPPY' @ 16,03 SAY ' CT - TOYOTA KC - CHOICE R - REAL ESTATE' @ 17,03 SAY ' CO - OLDS KS - SEARS S - STOCK' @ 18,03 SAY ' CS - SUBARU KV - VISA T - TAX DEDUCTIONS' @ 19,03 SAY 'D - DONATIONS L - LAW PRACTICE U - UTILITIES' @ 20,03 SAY 'E - EASTERN M - MEDICAL V - SITTERS' @ 21,03 SAY 'F - FOOD N - NEWSPAPERS W - UNION EXPENSES' @ 22,03 SAY 'G - CLOTHING NP - WASH POST X - MISCELLANEOUS' F - REPORTS' ? ? ' V - VOID A CHECK or DEPOSIT PREVIOUSLY ENTERED' ? ? ? ' Please entero PICTURE '9999' @ 4,2 SAY 'PAY TO THE ORDER OF ' GET m:payee @ 5,2 SAY 'AMOUNT OF CHECK ' GET m:amt @ 6,2 SAY 'DATE WRITTEN ' GET ch:dat PICTURE '99/99/99' @ 7,2 SAY 'ENTER PURPOSE LETTER ' GET ch:memo @ 9,25 SAY 'PURPOSE LETTER CODES' SET INTENSITY ON @ 10,03 SAY 'A - CASH H - HOUSE O - DENTIST' @ 11,03 SAY 'B - BOOKS HI - IMPROVEMENTS P - PHONE' @ 12,03 SAY ' BL - LAW HM - MORTGAGE SIT PREVIOUSLY ENTERED' * * * * * $DEPCANC.CMD * * * * * 6/30/84 * * This file is used to cancel deposits in the $DEPOSIT.DBF * ERASE USE $deposit GOTO TOP DO WHILE T * - find first uncancelled deposit LOCATE FOR .NOT. can NEXT 65535 IF .NOT. EOF * Display date, amount and source of deposit and verify. ERASE ? ? ? ' DEPOSIT CANCELLATION MENU' ? ' =============================' ? ? ? ' Deposited to ACCOUNT: ', acct ? ? ' Deposited on: ',date, ' Amount = $',amt ? ? ' Memo: ', source ? ? ? * - verify if deposit is to be cancelled ? ' Is this the RIGHT deposit to cancel (Y/any) ?' ? SET CONSOLE OFF WAIT TO answer STORE !(answer) TO answer SET CONSOLE ON IF answer = 'Y' * - change logical flag for cancelled deposit REPLACE can WITH T ENDIF ELSE ? ? ? * - tell user there are not more deposits ? ' There are no more uncancelled deposits---' ? ' Press any key to continue...' SET CONSOLE OFF WAIT SET CONSOLE ON RETURN ENDIF ? ? ? ' Do you have any MORE deposits to cancel (Y/any) ?' SET CONSOLE OFF WAIT TO answer STORE !(answer) TO answer SET CONSOLE ON IF answer <> 'Y' * Exit program $DEPCANC.CMD RELEASE c:can, answer, acctname, USE RETURN ENDIF SKIP ENDDO --' ? ' user there are not more deposits ? ' No more uncancelled deposits---' ? ' Press any key to continue...' SET CONSOLE OFF WAIT SET CONSOLE ON RETURN ENDIF ? ? ? ' Do you have any MORE deposits to cancel (Y/any) ?' SET CONSOLE OFF WAIT TO answer STORE !(answer) TO answer SET CONSOLE ON IF answer <> 'Y' * Exit program $DEPCANC.CMD RELEASE c:can, answer, acctname, USE RETURN ENDIF T&ACCTClDATEClSOURCEClAMTN lCANLlMEMOCl A07/03/84BANKA - JOINT 2889.00TZZ B07/03/84BANKB - LAW ACC 499633.00TZZ C05/03/84BANKC - ESCROW 800.00TZZKS C CAR EXPENSES 0T *A01/07/84MISC 205.00T *A01/07/84MISC. 3650.00T *A01/11/84INTEREST -- VOI 0.00TXV*A01/14/84MISC. 2012.34F *A01/17/84MISC. 2200.00T *A07/01/84MISC 930.00T *A07/01/84GOOD LUCK 2500.00F *A07/01/84STOCKS 1200.00T *A07/01/84RACE TRACK 250.00F *A07/02/8* * * * * $DEPOSIT.CMD * * * * * 6/30/84 * * Command file which enters deposits into specified account. * DO $get-bal IF account = 'X' RELEASE account RETURN ENDIF * This program gets the memory variable MBALANCE for the * specified account. When called, $DEPOSIT.DBF is left in * use and MBALANCE and ACCOUNT memory variables are stored. * * - initialize date value STORE DATE() TO c:dat STORE 'Y' TO more DO WHILE more = 'Y' .OR. more = 'y' STORE ' ' TO dep:from STORE 0.00 TO c:amt ERASE @ 5,14 SAY 'DEPOSIT ENTRY FORM' @ 6,10 SAY 'Enter zero (amount) to Exit' @ 9,10 SAY 'ENTER AMOUNT OF DEPOSIT ' GET c:amt @ 11,10 SAY 'ENTER SOURCE OF DEPOSIT ' GET dep:from @ 13,10 SAY 'ENTER DATE OF DEPOSIT ' GET c:dat PICTURE '99/99/99' READ IF c:amt = 0 RELEASE again, account, mbalance, acctname, c:dat,; more, dep:from, c:amt, dep:from, go:on RETURN ENDIF * - test for correct data ? ? ? ? ' Are all entries CORRECT (Y/any) ?' SET CONSOLE OFF WAIT TO go:on STORE !(go:on) TO go:on SET CONSOLE ON IF go:on <> 'Y' LOOP ENDIF ===> go:on * - put blank card into database file and add data APPEND BLANK REPLACE acct WITH account, date WITH c:dat, source WITH dep:from,; amt WITH c:amt, can WITH F STORE mbalance + c:amt TO mbalance ERASE ? ? ? ? ? ' ', acctname, ' BALANCE IS: $', mbalance ? ? 'Is there ANOTHER deposit to enter into this account (Y/any) ?' SET CONSOLE OFF WAIT TO more SET CONSOLE ON ENDDO ===> more GOTO TOP LOCATE FOR source = 'BANK&account' REPLACE amt WITH mbalance, date WITH DATE() RELEASE again, account, more, c:dat, dep:from, c:amt, go:on USE RETURN 'JOINT ACCOUNT' TO acctname CASE account = 'B' STORE 'LAW FIRM ACCOUNT' TO acctname CASE account = 'C' STORE 'ESCROW ACCOUNT' TO acctname ENDCASE RETURN 40.70T03/05/84UT A 670CONSOLIDATED INSURANCE 226.00T03/05/84I A 671SAN JOSE STATE UNIVERSITY  STORE 0atabase file and add data APPEND BLANK REPLACE acct WITH account, date WITH c:dat, source WITH dep:from,; amt WITH c:amt, can WITH F STORE mbalance + c:amt TO mbalance ? ? ? ' NEW ACCOUNT BALANCE IS: ' TO acctname ENDCASE RETURN 40.70T03/05/84UT A 670CONSOLIDATED INSURANCE 226.00T03/05/84I A 671SAN JOSE STATE UNIVERSITY * * * * * $EXIT.CMD * * * * * 6/30/84 * * Used to exit from the program. ERASE SET INTENSITY OFF @ 4,30 SAY "EXIT MENU" @ 5,27 SAY "===============" @ 8,23 SAY "A - Exit to DBASE II" @ 10,23 SAY "B - Exit to CP/M" @ 12,23 SAY "C - ABORT Exit" @ 16,27 SAY "PLEASE ENTER YOUR DESIRE..." SET CONSOLE OFF WAIT TO stop STORE !(stop) TO stop SET CONSOLE ON DO CASE CASE stop = 'A' USE RELEASE ALL SET INTENSITY ON SET EJECT ON SET TALK ON ERASE * - return to dBASE CANCEL CASE stop = 'B' USE ERASE QUIT CASE stop = 'C' ERASE RELEASE stop RETURN OTHERWISE ? ? ? " Invalid entry, please enter 'A'" ?? "or 'B' or 'C'" ENDCASE 9/99' READ @ 7,9 SAY 'Is date correct (Y/any) ? ' SET CONSOLE OFF WAIT TO again STORE !(again) to again 6/30/84 * * Used to exit from the program. ERASE SET INTENSITY OFF @ 4,30 SAY "EXIT MENU" @ 5,27 SAY "===============" @ 8,23 SAY "A - Exit to DBASE II" @ 10,23 SAY "B - Exit to CP/M" @ 12,23 SAY "C - ABORT Exit" @ 16,27 SAY "PLEASE ENTER YOUR DESIRE..." SET INTENSITY ON SET CONSOLE OFF WAIT TO stop STORE !(stop) TO stop SET CONSOLE ON DO CASE CASE stop = 'A' USE RELEASE ALL SET TALK ON ERASE ** * * * * $GET-BAL.CMD * * * * * 6/30/84 * * This program gets the memory variable MBALANCE for the * specified account. When called, $DEPOSIT.DBF is left in * use and MBALANCE and ACCOUNT memory variables are stored. * The program calls $ACCTS.MNU which generates a memory * variable ACCTNAME which is a textual name for the account * and a memory variable ACTIVE which is a string of all * the active accounts (ie. 'ABCD') * SET TALK OFF DO WHILE T ERASE DO $accts.mnu IF account = 'X' RELEASE active, acctname, mbalance RETURN ENDIF IF account $(active) USE $deposit LOCATE FOR source = 'BANK&account' STORE amt TO mbalance RELEASE active RETURN ELSE ? ? CHR(7) ? ? ' Invalid entry, press any key to reenter...' SET CONSOLE OFF WAIT SET CONSOLE ON ENDIF ENDDO ==> WHILE T  * * * * * $MENU.CMD * * * * * 6/30/84 * * Main menu for $CHECKS, $DEPOSIT and $PAYEE database files. * ERASE SET TALK OFF SET INTENSITY OFF * - initialize date if not already set IF DATE() = '00/00/00' STORE T TO over DO WHILE over STORE ' ' TO ch:dat ERASE @ 5,9 SAY "Enter today's date (MM/DD/YY) " GET ch:dat; PICTURE '99/99/99' READ @ 7,9 SAY 'Is date correct (Y/any) ? ' SET CONSOLE OFF WAIT TO again STORE !(again) to again SET CONSOLE ON IF again <> 'Y' LOOP ENDIF SET DATE TO &ch:dat RELEASE ch:dat STORE F TO over ENDDO ===> over ENDIF ===> DATE() = '00/00/00' * - specify disk containing command files @ 10,9 SAY 'Enter disk drive containing command files: ' SET CONSOLE OFF WAIT TO disk STORE !(disk) TO disk SET CONSOLE ON SET DEFAULT TO &disk RELEASE disk DO WHILE T ERASE ? " The GRIFFIN'S Personal Finance System" ? ? ' MAIN MENU' ? ' ==============' ? ? ' A - Enter CHECKS' ? ? ' B - Enter DEPOSITS' ? ? ' C - CANCEL entered CHECKS' ? ? ' D - CANCEL entered DEPOSITS' ? ? ' E - VOID a Check/Deposit previously entered' ? ? ' F - MONTHLY RECONCILIATION' ? ? ' G - Print a REPORT' ? ? ' X - EXIT' ? ? ? ' Please enter your choice ...' SET CONSOLE OFF WAIT TO action STORE !(action) TO action SET CONSOLE ON DO CASE CASE action='A' * - enter new check data DO $checks CASE action='B' * - enter new deposit data DO $deposit CASE action='C' * - enter cancelled check data DO $cancel CASE action='D' * - enter cancelled deposit data DO $depcanc CASE action='E' * - void check or deposit DO $void CASE action= 'F' DO $balance CASE action = 'G' DO $report CASE action='X' DO $exit OTHERWISE ? ? ' INVALID selection, press any key to try again... ' SET CONSOLE OFF WAIT SET CONSOLE ON LOOP ENDCASE RELEASE action ENDDO this account (Y/any)?' SET CONSOLE OFF WAIT TO more STORE !(more) TO more SET CONSOLE ON ENDDO ==> WHILE moERASE ? "  CASE actiDnce CASE action = 'V' DO $report CASE action='X' DO $exit OTHERWISE ? ? ' INVALID selection, press any key to try again... ' SET CONSOLE OFF WAIT SET CONSOLE ON LOOP ENDCASE RELEASE action ENDDO this account (Y/any)?' SET CONSOLE OFF WAIT TO more STORE !(more) TO more SET CONSOLE ON ENDDO ==> WHILE moT!PAYEEClCATGORYCl S SYSTEMS PS*HOWARD CABLE T.V. UT*GIANT FOOD FG*THE WASHINGTON POST NP*CMPC NURSERY SCHOOL VN*EASTERN AIRLINES A * * * * * $REPORT.CMD * * * * * 6/30/84 * * This program generates reports from $CHECKS.DBF and $DEPOSIT.DBF * SET TALK OFF STORE ' ' TO account DO WHILE T IF account = 'X' RELEASE active, acctname, account RETURN ENDIF ERASE ? ? ? ' ----------- REPORTS MENU------------' ? ? ? ' X - Exit ( to MAIN MENU )' ? ? ' A - Print Report of outstanding CHECKS' ? ? ' B - Print Report of checks for a SPECIFIC PURPOSE' ? ? ? ' Enter desired action...' SET CONSOLE OFF WAIT TO action SET CONSOLE ON DO CASE CASE action='X' .OR. action='x' RELEASE action RETURN CASE action = 'A' .OR. action = 'a' DO $REPORT1 CASE action = 'B' .OR. action = 'b' DO $REPORT2 OTHERWISE ? ? ? CHR(7) ? ' INVALID ENTRY, please re-enter...' ENDCASE ENDDO 00T07/01/84VD A 556FIVE FIVE SIX, INC.  226.00T03/05/84I A 671SAN JOSE STATE UNIVERSITY  $REPORT.CMD * * * * * 6/30/84 * * This program generates reports from $CHECKS.DBF and $DEPOSIT.DBF * SET TALK OFF STORE ' ' TO account DO WHILE T IF account = 'X' RELEASE active, acctname RETURN ENDIF ERASE ? ? ? ' ----------- REPORTS MENU------------' ? ? ? ' X - Exit ( to MAIN MENU )' ? ? ' A - Print Report of outstanding CHECKS' ? ? ' B - Print Report of checks for a SPECIFIC PURPOSE' ? ? ? ' Ente Y CHECKS OUTSTANDING N Y N 8,DATE DATE 5,NO NO N 30,TO PAYEE 10,AMT AMOUNT Y * * * * * $REPORT1.CMD * * * * * 6/30/84 * * This program will print REPORT "CHECKS OUTSTANDING" * from $CHECKS.DBF * SET TALK OFF SET EJECT OFF STORE 'Y' TO again DO WHILE again = 'Y' ERASE DO $accts.mnu IF account = 'X' RELEASE again RETURN ENDIF USE $checks ERASE ? ? ? " Don't forget to turn PRINTER ON !!! " + CHR(7) ? ? ? ' Press any key to continue...' SET CONSOLE OFF WAIT SET PRINT ON REPORT FORM $REPORT1 FOR acct = '&ACCOUNT' .AND. .NOT. can ? CHR(7) SET CONSOLE ON SET PRINT OFF ? ? ? ' Would you like to print another OUTSTANDING CHECK' ?? ' Report (Y/any) ?' SET CONSOLE OFF WAIT TO again STORE !(again) TO again SET CONSOLE ON ENDDO RELEASE again RETURN 4FG*A 613FIRST BANKCARD CENTER 450.00T01/18/84KV*A 614GIANT FOOD 27.41T01/23/84FG*A 615OS program gener * * * $EXIT.CMD * * * * * 6/30/84 * * Used to exit from the program. ERASE SET INTENSITY OFF @ 4,30 SAY "EXIT MENU" @ 5,27 SAY "===============" @ 8,23 SAY "A - Exit to DBASE II" @ 10,23 SAY "B - Exit to CP/M" @ 12,23 SAY "C - ABORT Exit" @ 16,27 SAY "PLEASE ENTER YOUR DESIRE..." SET INTENSITY ON SET CONSOLE OFF WAIT TO stop STORE !(stop) TO stop SET CONSOLE ON DO CASE CASE stop = 'A' USE RELEASE ALL SET TALK ON ERASE * Y CHECKS WRITTEN FOR SPECIFIED PURPOSE N Y N 8,DATE DATE 5,NO NO N 30,TO PAYEE 10,AMT AMOUNT Y FIED * PURPOSE, BETWEEN SPECIFIED INCLUSIVE DATES" from $CHECKS.DBF * USE b:$checks SET TALK OFF SET EJECT OFF STORE 'Y' TO again DO WHILE again = 'Y' ERASE DO $accts.mnu IF account = 'X' RETURN ENDIF ERASE ? ? ? ACCEPT ' Enter START Date ( MM/DD/YY ): ' TO start ? ACCEPT ' Enter END Date ( MM/DD/YY ): ' TO end ? ACCEPT ' Enter PURPOSE d ? ACCEPT 'Enter PURPOSE of checks (one or two letters) '; TO purpose STORE !(purpose) to purpose ? ? ? ' Please wait while sorting....' USE $catgs INDEX ON memo TO memo USE $catgs INDEX memo FIND &purpose STORE descrip TO cat USE $checks ERASE ? CHR(7) ? ? ? ' THANK-YOU...' ? ? ' Now, be sure to turn the PRINTER ON !!!' ? ? ? ' Press any key to continue...' SET CONSOLE OFF WAIT SET PRINT ON ? 'REPO* * * * * $REPORT2.CMD * * * * * 30 JUN 84 SMM & JJG * * This program will print REPORT "CHECKS WRITTEN FOR A SPECIFIED * PURPOSE, BETWEEN SPECIFIED INCLUSIVE DATES" from $CHECKS.DBF * USE b:$checks SET TALK OFF SET EJECT OFF STORE 'Y' TO again DO WHILE again = 'Y' ERASE DO $accts.mnu IF account = 'X' RETURN ENDIF STORE 'X' TO over DO WHILE over <> 'Y' STORE ' ' TO start STORE ' ' TO end STORE ' ' TO purpose ERASE @ 5,15 SAY 'Enter START Date ( MM/DD/YY ) ' GET start; PICTURE '99/99/99' @ 7,15 SAY 'Enter END Date ( MM/DD/YY ) ' GET end; PICTURE '99/99/99' @ 9,15 SAY 'Enter PURPOSE of checks (one or two letters) '; GET purpose READ @ 13,15 SAY 'Are all entries correct (Y/any) ? ' SET CONSOLE OFF WAIT TO over STORE !(over) TO over SET CONSOLE ON ENDDO ===> over STORE !(purpose) to purpose ERASE ? ? ? ' Please wait while sorting....' USE $catgs INDEX ON memo TO memo USE $catgs INDEX memo FIND &purpose STORE descrip TO cat USE $checks ERASE ? CHR(7) ? ? ? ' THANK-YOU for waiting...' ? ? ' Now, be sure to turn the PRINTER ON !!!' ? ? ? ' Press any key to continue...' SET CONSOLE OFF WAIT SET PRINT ON ? 'REPORT FOR', acctname, 'CHECKS DATED FROM : ',start,; ' THRU ', end ? ? 'PURPOSE OF CHECKS: ', TRIM(cat), ' -- (', purpose, ')' ? ? REPORT FORM $REPORT2 FOR acct = '&account' .AND. ; date >= '&start' .AND. date <= '&end' .AND. ; memo = '&purpose' PLAIN ? CHR(7) SET PRINT OFF SET CONSOLE ON ? ? ? " Would you like ANOTHER 'purpose' report (Y/any) ?" SET CONSOLE OFF WAIT TO again STORE !(again) TO again SET CONSOLE ON ENDDO DELE FILE B:MEMO.NDX RETURN over ENDDO ===> over ENDIF ===> DATE() = '00/00/00' * - specify disk containing command files @ 10,9 SAY 'Enter disk drive containing command files: ' SET CONSOLE OFF WAIT TO disk STORE !(disk) TO disk SET CONSOLE ON SET DEFAULT TO &disk RELEASE disk DO WHILE T ERASE ? " The GRIFFIN'S Personal Finance System" ? ? '       ? ' Now, be sure to turn the PRINTER ON !!!' ? ? ? ' Press any key to continue...' SET CONSOLE OFF WAIT SET PRINT ON ? 'REPO* * * * * $VOID.CMD * * * * * 6/30/84 * * This file cancels a check which has been entered and * re-adjusts the balance which is stored in $DEPOSIT.DBF * DO $GET-BAL * This program gets the memory variable MBALANCE for the * specified account. When called, $DEPOSIT.DBF is left in * use and MBALANCE and ACCOUNT memory variables are stored. * IF account = 'X' USE RETURN ENDIF STORE T TO again DO WHILE again ERASE SET TALK OFF STORE ' ' TO voiditm SET BELL OFF SET COLON OFF @ 10,9 SAY 'Void a (C)HECK or (D)EPOSIT (C/D) ? ' GET voiditm SET COLON ON READ STORE !(voiditm) TO voiditm DO CASE CASE voiditm = 'C' USE $checks STORE 'CHECK' TO itm STORE F TO again CASE voiditm = 'D' USE $deposit STORE 'DEPOSIT' TO itm STORE F TO again OTHERWISE ? CHR(7) ? ? ? ' Invalid entry!!! Press any key to continue ....' ? SET CONSOLE OFF WAIT SET CONSOLE ON ENDCASE ENDDO ===> again GOTO TOP ERASE ? ? ? ' ENTER AMOUNT OF ZERO TO EXIT' ? INPUT " ENTER VOIDED AMOUNT" TO amt:void * - testing for zero check number IF amt:void = 0 USE RELEASE amt:void, account, mbalance, voiditm, again,; answer, acctname, itm, active RETURN ENDIF * - locate and display data for first such non-cancelled item. LOCATE FOR amt = amt:void .AND. acct = account STORE T TO another DO WHILE another IF voiditm = 'C' STORE to TO m:party STORE 'TO' TO field ELSE STORE source TO m:party STORE 'SOURCE' TO field ENDIF * - testing to see if at end of database file ERASE IF .NOT. EOF * - display check data ? ? ? ' DATA FOR ', itm ? ' ==================' ? ? ? ' Item from : ', acctname ? ? ' Source/Payee of item : ', m:party ? ? ' Transaction Date : ', date ? ? ' Amount to VOID is : ', amt ? * - ask if this is right check ? ' Is this the one (Y/any) ? ' SET CONSOLE OFF WAIT TO answer STORE !(answer) TO answer SET CONSOLE ON IF answer = 'Y' * Adjust MBALANCE, change AMT to 0.00, and show as CANCELLED. REPLACE amt WITH 0.00, can WITH T, memo WITH 'XV',; &field WITH STR(amt,10,2) + '-- VOIDED --' + m:party IF voiditm = 'C' STORE mbalance + amt:void to mbalance ELSE STORE mbalance - amt:void to mbalance ENDIF ===> voiditm = 'C' STORE F TO another ELSE CONTINUE ENDIF ===> answer ELSE * - message to tell user his check is not in file. @ 9,7 SAY 'Check of the specified amount ($'+ STR(amt:void,10,2) +; ') cannot be found.' ? ? ' Press any key to continue...' SET CONSOLE OFF WAIT SET CONSOLE ON STORE F TO another ENDIF ===> .NOT. EOF ENDDO * Store new MBALANCE in $DEPOSIT.DBF USE $DEPOSIT GOTO TOP LOCATE FOR source = 'BANK&account' REPLACE amt WITH mbalance, date WITH DATE() RELEASE field, amt:void, account, mbalance, voiditm, again, another,; m:party, answer, itm, acctname, active USE RETURN /84UU A 560ONE FOR THE MONEY 1.00F07/01/84EE A 561TWO FOR THE SHOW 9.00F07/01/84EE A 562ANOTHER 1.00F07/02/84RR A 563LOOKS GOOD 5.00F07/02/84CC A 564THIS IS IT - * * * $VOID.CMD * * * * * 6/30/84 * * This file cancels a check which has been entered and * re-adjusts the balance which is stored in $DEPOSIT.DBF * DO $GET-BAL * This program gets the memory variable MBALANCE for the * specified account. When called, $DEPOSIT.DBF is left in * use and MBALANCE and ACCOUNT memory variabK OFF STORE ' ' TO voiditm SEvf$CHKPRNT.CMD_   !"#$&%')(*+,.-o/0132456789:;<=>?A@BDCEFGHIJKLMNOPRQSTUVWXYZ[\^]СC.n#(_KbqtСC^D\ZΒ;~>mKX׺j7N\>wtImOS_<$(Gy?1XD7oaq'Y=43O'- 77%eb_=Ghڃ<׺j呠V?a_f0gimy|A7$u[ J MyҎ?38ar!gl-nL[2IT(#a-o1=fa%͏NCTb I¤ZE SH/m#a&4?Z;ŗ;Qy1T& je$L#P~-o1=f]̯_-,C ),CyvS_ csGbn8j|rwѭ-juKo )ns/ݒ.3ses@wjl 6ڲf:B E]xys4>I:Y. 3j]]fp杬s%w :[[v՝V珇f] :s v_)>uZPQ K}D^Z-љ;bsùO.eWt30]fiǟTT7kˮs>5 bǧAD %Sy'k.~m*͜ɭAtֺA7Xuu+ݒkiǟA[<<et` 塛f08VwnmU3EvG]tΜ]yvAteWt30]ԯ|IQXݰ_~-u{y`o&2,C uɃ;Y\ :k]]~8M5Y].y.bysAtZk ܂nsvWҎ?3:a -W'ϟs?_aogeXz0[2I(oI¤Zn GzD~-~D/$1 ; Q男$aR-7#="O?+-~D/̪%O)>d:U& j1Xyٟŏ(YE}!LQ\Ns[e0e?fo7EqIbv;)oI¤Zn GzD~VԖſ0{M7LQ\Ns[e0eue[_%X(.INy'C92ITˍ2Hb?fIH7(.INy'C92ITˍ2Hϊ?f#(.INy'C92ITˍ2HϺ-~D/0EqIbv;)o៨L $ Q Ns <2ITˍ2?f$/$wrV$L`za-~D/NQ_$/$wrV$L`zaϊmyQ ( ;9U& j1X^#ŏ(` $/$wrhP$L`zaϺ-~D/̎`i%O|!a#ǗG$aR-7 {D~Ӗſ0; Qv;9r|yL&rc GgElyQ X%O|!a#Ǘ$aR-7 {D~ֵ-o#av?'S|ɑ[e0e="O?n[_N_bOT& ]ۈ_Ewr?)-ݿ/s18 o}[Џ5Ͻ<f )> k^K4'wڲf:_ҥev;I¤Zn eGBo[,P$L`zqϊ? ǧ#wry*I,C/yY׶ŏ(y')?wry*I,C/yv[G¼)> 2I(/؛ .g.F_?E쪙~,C8w_w2D#9^;YЎlZn w 唽=>;ŗqຫ9͹i`ǧA.y.>8Fƽ÷ Hp :s h}nV7 :s/]]~Zkwt : :s 霹ܺNӜL7^?hy% a)lǗM%ſ0x/-n MyD/Le=g?^ƽqvNp*]?sGǝtkY<9" 掎;j]y6ù}u :f_>Ʈ3ww] KC#A?~sS^LʓxvVEg,wuɃwi`d-OU/R[ě^(Ơ <7i1iG ֒%L_ě^sZ6 NyAz}Ĥ!X_C}Z6Z$"vB%Q3]_IMT(n+>M)*\˩4OmSib9u[ylJU0U/r6u[yiBL9UQJTNUԧETE}PNUԧb)VQFT=f/C'ܵ=k]EZ?cU{&mӸӏkig}ȐObʩ4r>M,"*ĮTE}XDNV^E}SNUԧSib9UQ&v-*ĮT6Z .wmϠwjXcU{a iG;>>hƝ~s]ciBL9UQ&ZNUԧETE}XDNUԧ˩ʫObʩ4Wr>M,"*Dr>MSNe2Npu\5͠Sj?w[is_M)*~ TE}Oȩ4џr*ӄr>MĵOȩ4Ou%^'7\ڞA7xϘu8 ˝a]q')hƝ~]s4ON?sk*ӄr>uOȩ4OEmUԧ 1TE}+Q9UQ&Sib9UQ&*Sٸw8ήC' sGǝdֺjhƝ~]~}ywObʩ4r>M,"*D9UQ&SiBL9UQZ#Au<$5~sS^%(Y_6ZW 7k]ڧK;:$m3I(oQGyۏ]Qwe/ ̼pGyۏHxtKrܝ;W,PFZLZy j{6闍U{( $aٸw8ή~uN?~[L1X~x6X~m Ѻj2n;_6Vb~|U{;Ql~봠/(_}?%:r6u[yiBL9UQJTNUԧETE}PNUԧb)