78PCSSNDIAWCZTBSEQYWHICLINMMTAYA@ @4@#&&     && ./ 9IJ@$$HOUSEHOLD CHECK, CREDIT CARDS,AND BUDGET PROGRAMCOMPUTE! ISSUE 27 (8/82)By Richard Kalagher1841 Nigel Ct.Vienna, VA 22180##*****************************Typed by Paul R. Wheeler ##for the M.A.C.E. Disk Library ##***************************** .9@0,;@,*6.>:A%,.( 9A@8'A @29AAd-@0"68,-( -(2rI:, A(.A@hr(WARNING! ROOM FOR ABOUT P:I:,'@P, MORE ENTRIES<N+8@(,")8@),"D(FIRST RUN OF PROGRAMN @uF::(PROGRAM WAS LAST RUN ON 8@(,/8@),K @P(( (((ENTER TODAY'S DATE (MM,DD)Q R55)!@))!@1@V @WR( (H(9TRY AGAIN. THE MONTH OR DAY WAS TOO SMALL OR TOO LARGE.R @uXa( (W(HTRY AGAIN. THE FORMAT : MM,DD MUST BE USED. REMEMBER THE COMMA.a @uZ!68@(,-!68@),-d=;@8,=6.& e;@,6.f;@ ,6.g;@,6.h;@,6.i;@,6.j;@,6.,k;@8,6.l;@,6.n!;@,!6. BALANCE = o;@,6.p;@,6.q;@,"0000000000000000000000000000000CHANGE YEAR /82(%(WHAT DO YOU WANT TO DO?"(%(&#(1. Enter Checks and Charges&("(2. Print Check Register"(# (3. Print Charge Register#(..(&4. Update Balance in Budget Categories!(5. Calculate Sales Tax!($,) !6. Print Balances in all Category,(.0- %7. Perform Search for Charge or Check0(8,) !8. Examine an Individual Category,(G%% 9. Store Data and End Sessiont( (( ENTER NUMBERy A~(OOA0A@A@A%ApA A`A@AP 6.  A ''PRINTS BALANCES IN ALL CATEGORIES*'( BALANCES IN ALL CATEGORIES*( #A-@@&" 4ENDA!( = $ 8@:,&@d,  4'>,, Unallocated Deposits = $ 8@0,H00 Checking Account Balance = $ 8@', &("(HIT WHEN THROUGH& $ 77SUBROUTINE TO UPDATA BALANCESIN BUDGET CATEGORIES WT(LYOU CAN ADD OR SUBTRACT FROM ANY BUDGET CATERGORY. HIT WHEN DONEW( 6(6( YOU HAVE 8@0, UNALLOCATED DOLLARS $  WHICH BUDGET CATEGORY$ 4 $   ENTER AMOUNT 6-@:,&@d 68,-8,% 68@0,-8@0,& A% SUBROUTINE TO PUT IN DATA ""6-8,%B%@ ( 2/(CHECKING ACCOUNT BALANCE = $8@',2(  4N( REENTER DATA( KG(?ENTER CHECK NO. OR CREDIT CARD NO. OR Π WHEN THROUGH K 4 $ 6-@:, (ENTER DATE MM/DD DB:,@:(#REENTER DATE. REMEMBER FORMAT MM/DDD A0@ O7@<@,4,E($REENTER DATE PUT A '/' BETWEEN MM/DDO A0@ 67@<@,. ( ENTER PAYEE ( ENTER AMOUNT 2@C.(SALES TAX ON THIS (Y OR N)2 f"@CD(0DO YOU WANT THIS DEPOSIT ALLOCATED TO A CATEGORYHP4N\6-@0f A0s (ENTER CATEGORY 6-@:,&@d C @)!@&9(ILLEGAL CATEGORY, TRY AGAINC A00 (IS DATA OK? (Y OR N)   4N A0 "@06.  ##68,-8,%@ 6-A:, "@C6-66.N 68,-8,&& ) @e)68@',-8@',&0 -!@d-68&@d,-8&@d,%H A5z A0 22SUBROUTINE TO PUT DATA STATEMENTS IN PROGRAM ( **( DATA  ( ((CONT - AB@& AB@ $GGSUBROUTINE TO PRINT CHECK REGISTER, CHARGE REGISTER OR A CATEGORY6- A@d #B-"@)(WHICH BUDGET CATEGORY-)"@%(WHICH CHARGE CARD)55(-ENTER STARTING MONTH AND ENDING MONTH (M1,M2) 6-(--(%NUM. DATE PAYEE AMOUNT..(&--------------------------------------A32P:H:,$AU,@@A"%%A:7@<@,, A@@%%A:7@<@,,!A@@"@*0A@@$$"@*@:,!@dA@@,,"@*7@<@,0A@@ 6.H67@<@,.167@<@,.H67@<@0,.67@9&B:,<@8,.'@:,"@C6-&A:,' A@V6-%A:,(X6-%@"@ (J(%THERE'S MORE. HIT TO CONTINUENX A@) A@@(((2"@(8@',-"@)"@-(8@:,&@d,#(#(TOTAL FOR THE ABOVE = )( (%(HIT WHEN THROUGH)$::SUBROUTINE TO PUT P ARRAY IN DATA STATEMENTS 200-230-@0332P:H:,$AU,@@( 6-8,(A% DATA ( ((CONT-AB@&AB@%%2 (..(&SAVE PROGRAM AND DATA FOR NEXT SESSION/( (/(! 1. TURN OVER TAPE AND REWIND.(((( 2. PRESS AND .>(>(3 3. PRESS AFTER BUZZER RINGS TWICE.  AQP34(p""SUBROUTINE TO PERFORM SEARCHu AaP''(ENTER CHARACTERS TO BE SEARCHED(--(%NUM. DATE PAYEE AMOUNT..(&-------------------------------------- 6-B:,6- #B"B:, A``-@B:,&%@ 7<%&@,4Aa  A``' 6.H67@<@,.167@<@,.H67@<@0,.67@9&B:,<@8,.(6-%A:, A``#(#(TOTAL FOR THE ABOVE = 8&( ("(HIT WHEN DONE&B$X''SUBROUTINE TO CALCULATE SALES TAXb!!(ENTER TAX RATE IN PERCENTln6-'Aq(( (((CALCULATING... PLEASE WAITv Aq6- #B"0YAp`6-%A:, Ap`446-+P:'+@%,$A%?P,'A,$$$6-P:$A%?P,'A*( (*(TOTAL TAXABLE PURCHASES = )()(SALES TAX PAID =  DOLLARS)( (%(HIT WHEN THROUGH)$(#Automobile2# Clothes<#DonationsF#EntertainmentP#UtilitiesZ#Householdd#Insurancen#Large Purchasesx#Medical Expense#Repairs-House# Savings# Taxes#Utilities# Taxes#Visa Escrow% END'**+BAL,08/13/82,CHK.BALANCE,705.96, ,N'''241,08/13/82,DET.EDISON,28.94,U,Y D:BUDGET.MGR