1qBALANCE CMD(RBALMENU1CMD=BALMENU2CMD­“BALMENU3CMD:ÉBALMENU4CMDå:BANKMENUCMD oCHANGES CMD,ƒwCHECKENTCMD4 –CHECKNO NDX8$‘CHECKREGDBF\T]ÙCHKBANK CMD°u£DEDUCT CMD´gDEDUCT FRM¸iYDEPOSITSCMDºO/LOOK CMD¾ÀÍUSE CHECKREG STORE 0 TO MDEPOSIT,CHECKS DO WHILE .NOT.EOF IF DEPOSIT STORE AMOUNT+MDEPOSIT TO MDEPOSIT ENDIF IF .NOT.DEPOSIT STORE AMOUNT+CHECKS TO CHECKS ENDIF SKIP ENDDO @ 5,15 SAY 'TOTAL DEPOSIT' GET MDEPOSIT @ 7,15 SAY 'TOTAL CHECKS' GET CHECKS STORE MDEPOSIT-CHECKS TO BALANCE @ 9,15 SAY 'BALANCE ' GET BALANCE CLEAR GETS WAIT USE CHECKREG INDEX CHECKNO RETURN  0.00 F  7 0.00 F 2091MONTGOMERY CSTORE ' ' TO ENABLE STORE 0 TO NUMBER,TOTAL DO WHILE.NOT.ENABLE='X' ERASE STORE ' ' TO FINDER @ 5,10 SAY 'ENTER CHECK NUMBER' GET FINDER READ FIND &FINDER @ 7,10 SAY 'CHECK PAID TO' GET PAIDTO @ 9,10 SAY 'THE AMOUNT IS' GET AMOUNT @ 7,50 SAY 'DATED' GET DATE CLEAR GETS @ 9,50 SAY 'CANCEL (Y/N)' GET CANCEL READ IF CANCEL STORE TOTAL+AMOUNT TO TOTAL STORE NUMBER+1 TO NUMBER @ 12,10 SAY 'NUMBER OF CHECKS CANCELED' GET NUMBER @ 12,40 SAY 'TOTALING' GET TOTAL ENDIF CLEAR GETS @ 15,10 SAY 'ENTER X WHEN FINISHED-RETURN TO CONTINUE' GET ENABLE READ ENDDO RETURN  SAY 'ENTER CHECK NUMBER' GET FINDER READ FIND &FINDER @ 7,10 SAY 'CHECK PAID TO' GET PAIDTO @ 9,10 SAY 'THE AMOUNT IS' GET AMOUNT @ 7,50 SAY 'DATED' GET DATE CLEAR GETS @ 9,50 SAY 'CANCEL (Y/N)' GET CANCEL READ IF CANCEL STORE TOTAL+AMOUNT TO TOTAL STORE NUMBER+1 TO NUMBER @ 12,10 SAY 'NUMBER OF CHECKS CANCELED' GET NUMBER @ 12,40 SAY 'STORE T TO ENABLE STORE 0 TO NR,DEP DO WHILE ENABLE ERASE REMARK WHEN FINISHED ENTER-STOP-FOR THE RECORD NUMBER REMARK DISPLAY AMOUNT,DATE FOR DEPOSIT.AND..NOT.CANCEL ACCEPT 'ENTER RECORD NUMBER TO BE CANCELED' TO F1 IF F1='STOP' STORE F TO ENABLE ELSE STORE VAL(F1) TO FINDER GOTO FINDER STORE NR+1 TO NR STORE DEP+AMOUNT TO DEP REPLACE CANCEL WITH Y ENDIF ENDDO ERASE @ 10,10 SAY 'NUMBER OF CANCELED DEPOSITS' GET NR @ 15,10 SAY 'TOTAL VALUE WAS' GET DEP WAIT RETURN BLE='X' ERASE STORE ' ' GET FINDER @ 5,10 SAY 'ENTER CHECK NUMBER' TO FINDER READ FIND &FINDER @ 7,10 SAY 'CHECK PAID TO' GET PAIDTO @ 9,10 SAY 'THE AMOUNT IS' GET AMOUNT @ 7,50 SAY 'DATED' GET DATE CLEAR GETS @ 9,50 SAY 'CANCEL (Y/N)' GET CANCEL READ IF CANCEL STORE TOTAL+AMOUNT TO TOTAL STORE NUMBER+1 TO NUMBER @ 12,10 SAY 'NUMBER OF CHECKS CANCELED' GET NUMBER @ 12,40 SAY 'TOTALING' GEERASE APPEND BLANK @ 5,5 SAY 'ENTER BANK CHARGES' GET AMOUNT @ 7,5 SAY 'ENTER DATE (mm/dd/yy)' GET DATE READ REPL DEPOSIT WITH N,PAIDTO WITH 'BANK CHARGE',CANCEL WITH Y RETURN TION='1' DO CHECKENT ENDIF IF SELECTION='2' DO DEPOSITS ENDIF IF SELECTION='3' DO CHANGES ENDIF IF SELECTION='4' DO LOOK ENDIF IF SELECTION='5' DO DEDUCT ENDIF IF SELECTION='6' DO BALANCE ENDIF IF SELECTION='7' DO CHKBANK ENDIF IF SELECTION='8' SET TALK ON CANCEL ENDIF ENDDOERASE INPUT 'ENTER BANKS VERSION OF BALANCE' TO BANKBAL SUM AMOUNT TO SPENT FOR CANCEL.AND..NOT.DEPOSIT SUM AMOUNT TO EARNED FOR CANCEL.AND.DEPOSIT STORE EARNED-SPENT TO MYBALANCE @ 10,10 SAY 'MY VERSION OF BALANCE' GET MYBALANCE STORE BANKBAL-MYBALANCE TO ERROR @ 15,10 SAY 'THE BANKS ERROR IS' GET ERROR CLEAR GETS WAIT RETURN ING IF YOU WROTE A PARTICULAR CHECK' ? ' 5. LISTING DEDUCTIBLE CHECKS AT TAX TIME' ? ' 6. DETERMINE CURRENT BALANCE' ? ' USE CHECKREG INDEX ON CHECKNO TO CHECKNO USE CHECKREG INDEX CHECKNO SET TALK OFF DO WHILE T ERASE ? ? ? ' CHECK REGISTER MENU' ? ? ' 1. ENTER A CHECK' ? ' 2. ENTER A DEPOSIT' ? ' 3. CHANGING AN ENTRY TO CORRECT A MISTAKE' ? ' 4. SEEING IF YOU WROTE A PARTICULAR CHECK' ? ' 5. LISTING DEDUCTIBLE CHECKS AT TAX TIME' ? ' 6. DETERMINE CURRENT BALANCE' ? ' 7. BALANCING (COMPARE TO BANK STATEMENT)' ? ' 8. EXIT' ? ? ' PRESS THE NUMBER CORRESPONDING TO YOUR SELECTION' WAIT TO SELECTION ERASE IF SELECTION='1' DO CHECKENT ENDIF IF SELECTION='2' DO DEPOSITS ENDIF IF SELECTION='3' DO CHANGES ENDIF IF SELECTION='4' DO LOOK ENDIF IF SELECTION='5' DO DEDUCT ENDIF IF SELECTION='6' DO BALANCE ENDIF IF SELECTION='7' DO CHKBANK ENDIF IF SELECTION='8' SET TALK ON CANCEL ENDIF ENDDO estroy file with old structure . USE NAMES -- opens new file . DELETE FILE TEMP > MODIFY COMMAND -- provides full screen facility for creating and editing command (.CMD), text (.TXT), and format (.FMT) files. *EXIT *NOTE > NOTE or * -- permits the insertion of comments into a command file. Comments following NOTE or * in file will not be read or executed. *EXIT *PACK > PACK -- erases records marked for delACCEPT 'PRESS C FOR CHECK,D FOR DEPOSIT' TO TYPE IF TYPE='C' ACCEPT 'ENTER CHECK NUMBER' TO FINDER FIND &FINDER ERASE @ 5,10 SAY ' CHECK NUMBER' GET CHECKNO CLEAR GETS @ 7,10 SAY 'PAID TO THE ORDER OF' GET PAIDTO @ 9,10 SAY 'ENTER AMOUNT OF CHECK' GET AMOUNT @ 11,10 SAY 'ENTER DATE (mm-dd-yy)' GET DATE @ 13,10 SAY 'IS THIS CHECK DEDUCTIBLE (Y/N)' GET DEDUCT READ ENDIF IF TYPE='D' ACCEPT 'ENTER DATE OF DEPOSIT' TO FINDER DISPLAY FOR DEPOSIT.AND.DATE=FINDER INPUT 'ENTER RECORD NUMBER TO BE EDITED' TO FINDER GOTO FINDER ERASE @ 9,10 SAY 'ENTER AMOUNT OF DEPOSIT' GET AMOUNT @ 11,10 SAY 'ENTER DATE (mm-dd-yy)' GET DATE READ ENDIF RETURN  150.00FN 4/10/84 5TEST5 22.10FY 4/15/84 DEPOSIT 1000.00T 4/5/84  0.00 F 0BANK CHARGE 25.00Y4-10-84 F 7 0.00 F  7 0.00 F 2091MONTGOMERY CGO BOTTOM STORE 'Y' TO ANSW DO WHILE T STORE CHECKNO+1 TO CNO APPEND BLANK REPLACE CHECKNO WITH CNO, DEPOSIT WITH N @ 5,10 SAY ' CHECK NUMBER' GET CHECKNO CLEAR GETS @ 7,10 SAY 'ENTER DATE (mm-dd-yy)' GET DATE @ 9,10 SAY 'PAID TO THE ORDER OF' GET PAIDTO @ 11,10 SAY 'ENTER AMOUNT OF CHECK' GET AMOUNT @ 13,10 SAY 'IS THIS CHECK DEDUCTIBLE (Y/N)' GET DEDUCT @ 15,10 SAY 'DO YOU WANT TO CONTINUE (Y/N)' GET ANSW READ IF ANSW='N' RELEASE ANSW RETURN ENDIF ENDDO RELEASE ANSW RETURN O  2CHECKNOª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ  !"#$%&'()*+,-./0123456789:;=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstC!4C!3NC!YhC!…‚C"œC"7!C!"C!#C!$C!%C!&C!'C! (C!!)C!"*C!#+C!$,C!%-C!&.C!'/C!(0C!)1C!02C!13C!2C!C!C! C!ÂÃÄÅÇC ‚C ƒC „C …C †C ‡C ˆC ‰ C C ‘ C ’ C “ C ”C •C –C —C ˜C ™C!C!C!C!C!C!C!C! C!!C!"C!#C!$C!%C!&C!'C! (C!!)C!"*C!#+C!$,C!%-C!&.C!'/C!(0C!)1C!02C!13C!2C!C! C!C!C! C!!C!"C!#C!$C!%C!&C!'C! (C!!)C!"*C!#+C!$,C!%-C!&.C!'/C!(0C!)1C!02C!13C!24C!35C!46C!57C!68C!79C!8:C!9;C!@<C!A=C!B>C!C?C!D@C!EAC!FBC!GCC!HDC!IEC!PFC!QGC!RHC!SIC!TJC!UKC!VLC!WMC!XC!4C!3NC!YhC!…‚C"œC"7!C!"C!#C!$C!%C!&C!'C! (C!!)C!"*C!#+C!$,C!%-C!&.C!'/C!(0C!)1C!02C!13C!2C!C!C! C!C!C! C!!C!"C!#C!$C!%C!&C!'C! (C!!)C!"*C!#+C!$,C!%-C!&.C!'/C!(0C!)1C!02C!13C!25C!46C!57C!68C!79C!8:C!9;C!@<C!A=C!B>C!C?C!D@C!EAC!FBC!GCC!HDC!IEC!PFC!QGC!RHC!SIC!TJC!UKC!VLC!WMC!XNC!YOC!`PC!aQC!bRC!cSC!dTC!eUC!fVC!gWC!hXC!iYC!pZC!q[C!r\C!s]C!t^C!u_C!v`C!waC!xbC!ycC!€dC!eC!‚fC!ƒgC!„OC!`PC!aQC!bRC!cSC!dTC!eUC!fVC!gWC!hXC!iYC!pZC!q[C!r\C!s]C!t^C!u_C!v`C!waC!xbC!ycC!€dC!eC!‚fC!ƒgC!„hC!…iC!†jC!‡kC!ˆlC!‰mC!nC!‘oC!’pC!“qC!”rC!•sC!–tC!—uC!˜vC!™wC"xC"yC"zC"{C"|C"}C"~C"C"€C" C"iC!†jC!‡kC!ˆlC!‰mC!nC!‘oC!’pC!“qC!”rC!•sC!–tC!—uC!˜vC!™wC"xC"yC"zC"{C"|C"}C"~C"C"€C" C"‚C"ƒC"„C"…C"†C"‡C"ˆC"‰C"ŠC"‹C" ŒC"!C""ŽC"#C"$C"%‘C"&’C"'“C"(”C")•C"0–C"1—C"2˜C"3™C"4šC"5›C"6ƒC"„C"…C"†C"‡C"ˆC"‰C"ŠC"‹C" ŒC"!C""ŽC"#C"$C"%‘C"&’C"'“C"(”C")•C"0–C"1—C"2˜C"3™C"4šC"5›C"6œC"7C"8žC"9ŸC"@ C"A¡C"B¢C"C£C"D¤C"E¥C"F¦C"G§C"H¨C"I©C"PªC"Q«C"R¬C"S­C"T®C"U¯C"V°C"W±C"X²C"Y³C"`´C"aµC"b&C"8žC"9ŸC"@ C"A¡C"B¢C"C£C"D¤C"E¥C"F¦C"G§C"H¨C"I©C"PªC"Q«C"R¬C"S­C"T®C"U¯C"V°C"W±C"X²C"Y³C"`´C"aµC"b¶C"c·C"d¸C"e¹C"fºC"g»C"h¼C"i½C"p¾C"q¿C"rÀC"sÁC"tÆC"u©C"PªC"Q«C"R¬C"S­C"T®C"U¯C"V°C"W±C"X²C"Y³C"`´C"aµC"b0CHECKNON¹pPAIDTOC½pAMOUNTNÖpDEPOSITLÝpDEDUCTLÞpCANCELLßpDATECàp 2082BETHAL CHRISTIAN CENTER 100.00 TT1/1/84 *2083LUCKYS 141.26 T1/2/84 *2084VOID 0.00 F1/3/84 *2085MERVYN'S 22.35 T1/3/84 *2086PETRIES 15.98 T1/4/84 *2087SECURITY PACIFIC M.C. 700.00 T1/5/84 *2088VONS 20.16 T1/7/84 *2089BETHEL CHRISTIAN CENTER 50.00 TT1/8/84 *2090LUCKYS 90.10 T1/10/84 *2091MONTGOMERY CLEANERS 7.75 T1/10/84 *2092ACTION 1HR PHOTO 32.40 T1/12/84 *2093SAVON 54.57 T1/13/84 *2094ALBERTSONS 33.00 T1/17/84 *2095POSTMASTER 20.00 T1/18/84 *2096LITTLE FOLK SHOP 30.83 T1/18/84 *2097JC PENNEY 10.37 T1-18-84 *2098JC PENNEY 3.98 T1-18-84 *2099CASH 233.00 T1-20-84 *2100CHILD CARE INSTITUTE 2.48 TT1-20-84 *2101C+K PUBLISHING CO 6.55 T1-20-84 *2102BAR MON INC 9.95 T1-20-84 *2103C+K BABY PRODUCTS 3.40 T1-20-84 *2104SAFEWAY 19.04 T1-21-84 *2105BETHEL CHRISTIAN CENTER 50.00 TT1-22-84 *2106CHRIST LUTHERAN NURSERY 39.00 TT1-24-84 *2107MONTGOMERY CLEANERS 11.00 T1-24-84 *2108MISSION HILLS 1012.00 T1-25-84 *2109GECC 123.82 T1-25-84 *2110EAC FED CREDIT UNION 297.93 T1-25-84 *2111CITY OF LAKEWOOD 29.24 T1-25-84 *2112AMEX GOLD 214.45 T1-25-84 *2113GENERAL TELEPHONE 72.28 T1-25-84 *2114B OF A VISA 201.33 T1-25-84 *2115SHELL OIL CO 98.43 T1-25-84 *2116MEGAVISION 4.00 T1-25-84 *2117SO CAL EDISON 60.69 T1-25-84 *2118CHEVRON 82.41 T1-25-84 *2119SO CAL GAS CO 138.81 T1-25-84 *2120BILL JACOBS 450.00 Y1-25-84 *2121FEDCHARGE 781.70 T1-25-84 *2122VANS TENNIS SHOES 22.21 T1-25-84 *2123HAMILTON ELECTRO SALES 260.93 TT1-25-84 *2124LUCKYS 136.81 T1-25-84 *2125TIME MAGAZINE 22.62 T1-25-84 *2126FEDCHARGE 223.41 T1-25-84 *2127SO CAL EDISON CO 63.47 T1-25-84 *2128MERVYNS 23.96 T1-27-84 *2129MERVYNS 26.08 T1-27-84 *2130MERVYNS 24.02 T1-27-84 *2131BETHEL CHRISTIAN CENTER 100.00 TT1-29-84 *2132TOYS R US 44.49 T1-30-84 *2133MERVYNS 14.81 T2-1-84 *2134MERVYNS 17.04 T2-1-84 *2135MERVYN'S 10.38 T2-1-84 *2136MONTGOMERY CLEANERS 7.75 T2-2-84 *2137FEDCO 54.03 T2-2-84 *2138LUCKY'S 117.77 T2-2-84 *2139MERVYN'S 34.92 T2-8-84 *2140MERVYN'S 27.58 T2-8-84 *2141THE GAP 12.76 T2-8-84 *2142JC PENNEY'S 36.30 T2-8-84 *2143JC PENNEY'S 13.83 T2-8-84 *2144LUCKY'S 121.08 T2-10-84 *2145BETHEL CHRISTIAN CENTER 100.00 TT2-12-84 *2146CHRIST LUTHERAN NURSERY S 39.00 TT2-12-84 *2147LAKEWOOD NURSERY 26.12 T2-16-84 *2148LUCKY'S 62.57 T2-17-84 *2149MISSION HILL MORTGAGE 1012.00 T2-17-84 *2150STATE FARM AUTO INSURANCE 479.62 T2-17-84 *2151SHELL OIL CO. 82.85 T2-17-84 *2152MEGAVISION CABLE 25.36 T2-17-84 *2153MAY CO. 40.47 T2-17-84 *2154CHEVRON 71.62 T2-17-84 *2155SECURITY PACIFIC M.C. 239.53 T2-17-84 *2156SO CAL GAS CO 124.15 T2-17-84 *2157TEXACO INC. 20.50 T2-17-84 *2158TV GUIDE 23.40 T2-17-84 *2159GENERAL TELEPHONE 146.05 T2-17-84 *2160BANK OF AMERICA VISA 544.92 T2-17-84 *2161EAC FED CREDIT UNION 297.93 T2-17-84 *2162NORWEST FINANCIAL 776.64 T2-17-84 *2163GECC 118.82 T2-17-84 *2164BETHEL CHRISTIAN CENTER 100.00 TT2-19-84 *2165BETHEL CHRISTIAN CENTER 400.00 TT2-19-84 *2166MERVYNS 61.77 T2-18-84 *2167JC PENNEY 41.54 T2-18-84 *2168JC PENNEY 55.38 T2-18-84 *2169JC PENNEY 10.65 T2-18-84 *2170CALIFORNIA DIGITAL 61.77 TT2-19-84 *2171BODELLS 10.55 T2-20-84 *2172LUCKYS 114.37 T2-27-84 *2173UNITED PARCEL SERVICE 9.08 T2-28-84 *2174SAVON 20.16 T2-28-84 *2175SAVON 18.66 T2-29-84 *2176ALBERTSONS 41.81 T3-4-84 *2177TOYS R US 49.68 T3-7-84 *2178LUCKYS 101.00 T3-9-84 *2179SAVON 17.96 T3-10-84 *2180FASHION GAL 25.54 T3-10-84 *2181MONTGOMERY CLEANERS 9.00 T3-10-84 *2182BETHEL CHRISTIAN CENTER 100.00 TT3-11-84 *2183CHRIST LUTHERAN SCHOOL 39.00 TT3-15-84 *2184LUCKYS 87.47 T3-16-84 *2185MERVYNS 13.83 T3-16-84 *2186SAVON 13.61 T3-17-84 *2187AMERICAN EXPRESS 1145.59 T3-17-84 *2188MISSION HILLS 1012.00 T3-17-84 *2189EAC FEDERAL CREDIT UNION 297.93 T3-17-84 *2190GECC 118.82 T3-17-84 *2191TEXACO 40.57 T2-17-84 *2192SO CAL EDISON CO 48.89 T3-17-84 *2193SO CAL GAS CO 79.58 T3-17-84 *2194CHEVRON 106.23 T3-17-84 *2195MEGAVISION 29.85 T3-17-84 *2196CITY OF LAKEWOOD 30.57 T3-17-84 *2197GENERAL TELEPHONE 84.06 T3-17-84 *2198BANK OF AMERICA VISA 102.77 T3-17-84 *2199SHELL OIL CO 107.94 T3-17-84 *2200BRITANNICA LIBRARY SERVIC 34.45 T3-17-84 *2201OUTDOOR LIFE BOOK CLUB 5.13 T3-17-84 *2202BELLFLOWER PHARMACY 10.40 TT3-19-84 *2203NRA INSTITUTE 31.00 TY3-22-84 *2204PENNEYSAVER 16.52 Y3-22-84 *2205LUCKYS 142.37 T3-24-84 *2206NATIONAL LUMBER 51.96 T3-24-84 *2207NORDSTROMS 8.52 Y3-30-84 *2208ROBINSONS 24.46 Y3-30-84 *2209BETHEL CHRISTIAN CENTER 100.00 TY4-1-84 *2210LUCKYS 100.55 Y4-2-84 *2211PIC N SAVE 25.80 Y4-5-84 *2212DIMENSIONS 31.93 Y4-5-84 *2213KIDS MART 54.76 Y4-5-84 *2214MORRIS STUDIOS INC 16.00 Y4-6-84 *2215JOHNSON & JOHNSON TOYS 7.20 Y4-6-84 *2216POSTMASTER 20.00 Y4-6-84 *2217VONS 50.01 Y4-6-84 *2218H & R BLOCK 99.00 TY4-16-84 *2219TIM BALLARD 50.00 Y4-7-84 *2220GEMCO (DEB'S B-DAY) 292.19 Y4-9-84 *2221CASH 20.00 Y4-9-84 *2222CHRIST LUTHERAN CHURCH 12.00 TY4-10-84 *2223MONTGOMERY CLEANERS 5.50 Y4-10-84 *2224MONTGOMERY CLEANERS 6.00 Y4-10-84 *2225SO CAL EDISON 54.89 Y4-10-84 *2226SO CAL GAS CO 45.09 Y4-11-84 *2227CHEVRON USA 105.52 Y4-11-84 *2228UNION 76 5.58 Y4-11-84 *2229OUTDOOR LIFE BOOK CLUB 27.40 Y4-11-84 *2230MEGAVISION 45.85 Y4-11-84 *2231THE FAN MAN 13.79 Y4-11-84 *2232STRIDE RITE SHOES 26.63 Y4-11-84 *2233FAYVA SHOES 23.39 Y4-11-84 *2234LUCKYS 108.00 Y4-12-84 *2235FRANCHISE TAX BOARD 1228.09 F4-16-84 *2236HUGHES PAINT 21.59 Y4-16-84 *2237BETHEL CHRISTIAN CENTER 100.00FTY4-15-84 *2238VONS 19.30FNY4-15-84 *2239SAFEWAY 35.27FNY4-17-84 *2240MISSION HILLS 1012.00FNY4-17-84 *2241GECC 118.82FNY4-17-84 *2242GECC 118.82F Y4-17-84 *2243EAC FED CREDIT UNION 297.93F Y4-17-84 *2244AMEX 291.66F Y4-17-84 *2245B OF A VISA 301.51F Y4-17-84 *2246SHELL OIL CO 102.77F Y4-17-84 *2247SECURITY PACIFIC BANK 500.00F Y4-17-84 *2248INT'L SHOOTERS DEV FUND 35.00FY 4-17-84 *2249GENERAL TELEPHONE 78.96F Y4-18-84 *2250JOHN CARABBA 105.00FNY4-24-84 *2251LUCKYS 84.26F Y4-18-84 *2252CONNIE JOYAL 20.00F Y4-20-84 *2253CONNIE JOYAL 25.45F Y4-20-84 *2254VONS 43.79F Y4-21-84 *2255BETHAL CHRISTIAN CENTER 100.00FYY4-22-84 *2256CHRIST LUTHERAN NURSERY 39.00FY 4-24-84 *2257LUCKYS 89.46F Y4-24-84 *2258CASH 500.00F Y4-24-84 *2259VERONICAS 69.23F Y4-25-84 *2260SAVON 13.47F 4-26-84 *2261ALBERTSONS 17.63F 4-26-84 *2262MERVYNS 28.38F 4-27-84 *2263MERLE NORMAN 10.65F 4-28-84 *2264MAY CO 44.73F 4-29-84 *2265PAM VANDERLOOK 150.00F 4-27-84 *2266AMERICAN KENNEL CLUB 5.00F 4-27-84 *2267PAW SHOPPE 38.92F 4-28-84 *2268VONS 11.46F 4-28-84 *2269GRAYS PHARMACY 7.11FY 5-1-84 *2270CERRITOS SO. VETERNARIAN 58.00F 5-2-84 *2271VONS 94.75F 5-2-84 *2272SAVON 24.87F 5-2-84 *2273KIDS MART 103.71F 5-3-84 *2274VONS 29.67F 5-3-84 * 0DEPOSIT 584.50T 4-30-84 * DEPOSIT 9000.00T TTEST * DEPOSIT 9000.00T TTEST * DEPOSIT 4770.42T TTEST *2275BETHEL CHRISTIAN CENTER 100.00FY 5-6-84 * DEPOSIT 744.65T 5-7-84  0DEPOSIT 60.00T T1-1-84 * 0BANK CHARGE 60.00F T1-1-84 * 0DEPOSIT 60.00T T1-1-84 * 0BANK CHARGE 60.00F T1-1-84 2253CONNIE JOYAL 25.45F Y4-20-84 2254VONS 43.79F Y4-21-84 2255BETHAL CHRISTIAN CENTER 100.00FYY4-22-84 2256CHRIST LUTHERAN NURSERY 39.00FY 4-24-84 2257LUCKYS 89.46F Y4-24-84 2258CASH 500.00F Y4-24-84 2259VERONICAS 69.23F Y4-25-84 2260SAVON 13.47F 4-26-84 2261ALBERTSONS 17.63F 4-26-84 2262MERVYNS 28.38F 4-27-84 2263MESTORE ' ' TO CHOICE DO WHILE.NOT.CHOICE='5' ERASE @ 5,15 SAY '(1) CHECK OFF CANCELED CHECKS' @ 7,15 SAY '(2) CHECK OFF CANCELED DEPOSITS' @ 9,15 SAY '(3) ENTER BANK CHARGES' @ 11,15 SAY '(4) COMPARE BANK BALANCE TO YOUR BALANCE' @ 13,15 SAY '(5) RETURN TO MAIN MENU' @ 20,15 SAY 'ENTER YOUR SELECTION' GET CHOICE READ DO CASE CASE CHOICE='1' DO BALMENU1 CASE CHOICE='2' DO BALMENU2 CASE CHOICE='3' DO BALMENU3 CASE CHOICE='4' DO BALMENU4 ENDCASE ENDDO RETURN XYZ[\]^_`abcdefghijklACCEPT 'DO YOU WANT A PRINTED COPY (Y/N)' TO QUERY IF QUERY='Y' REPORT FORM DEDUCT TO PRINT FOR DEDUCT ENDIF IF QUERY='N' REPORT FORM DEDUCT FOR DEDUCT ENDIF WAIT RETURN EST4 150.00FN 4-10-84 5TEST5 22.10FY 4-15-84 DEPOSIT 1000.00T 4/5/84  0.00 F 0BANK CHARGE 25.00Y4-10-84 F 7 0.00 F  7 0.00 F 2091MONTGOMERY CM=4,L=55,W=80 Y TAX DEDUCTIBLE CHECKS N Y N 10,DATE DATE 7,CHECKNO CHECK # N 25,PAIDTO WRITTEN TO 10,AMOUNT AMOUNT Y STORE "Y" TO ANSW1 DO WHILE T APPEND BLANK REPLACE DEPOSIT WITH Y,PAIDTO WITH 'DEPOSIT' @ 9,10 SAY 'ENTER AMOUNT OF DEPOSIT' GET AMOUNT @ 11,10 SAY 'ENTER DATE(mm-dd-yy)' GET DATE @ 15,10 SAY 'DO YOU WANT TO CONTINUE (Y/N)' GET ANSW1 READ IF ANSW1='N' RELEASE ANSW1 RETURN ENDIF ENDDO RELEASE ANSW1 RETURN USE CHECKREG ACCEPT 'ENTER MONTH AND YEAR (mm-yy)' TO TIME DISPLAY FOR $(DATE,1,2)+$(DATE,7,2)=$(TIME,1,2)+$(TIME,4,2) USE CHECKREG INDEX CHECKNO WAIT RETURN ' 1. ENTER A CHECK' ? ' 2. ENTER A DEPOSIT' ? ' 3. CHANGING AN ENTRY TO CORRECT A MISTAKE' ? ' 4. SEEING IF YOU WROTE A PARTICULAR CHECK' ? ' 5. LISTING DEDUCTIBLE CHECKS AT TAX TIME' ? ' 6. DETERMINE CURRENT BALANCE' ? '