' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  ՠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`  d ֠z# u`z#     ՠ ŠԠ4 ˠ,ˠҠ ̠Ůà"$;"OPEN HOLD"!. D$;"READ "CA$*8 BA$3B MA$<L YA$pV MA(MA$):MAMA(AM$):UR$(MA):25000:MA$UR$` YA(YA$):YAYA(AM$):UR$(YA):25000:YA$UR$j D$;"WRITE HOLD"t BA$~ MA$ YA$ D$;"READ "CA$ EX$ EX$"END""1234567890.-":UL10:RM1:600001UR$"<"130D25000:AM$UR$[14:11:" $ ";AM$30000:20:12:"IS THIS CORRECT? ";A$A$"Y"2310A$"N"20002270 30000:20:16:"WRITING..." D$(4) D$;"OPEN "CA$ $ D:"CATEGORY DOESN'T EXIST!":20000:130D(4);"CLOSE CATEGORIES"U10:9:" ";|US$"1234567890/":UL8:RM1:60000UR$"<"130DA$UR$12:16:" ";US$"":UL20:RM1:60000UR$"<"130DE$UR$14:11:" "; US$ETURN TO MENU"! :8:13:" ";>US$"":UL16:RM1:60000O UR$"<"130[*CA$UR$g4D$(4)>D$;"OPEN CATEGORIES"HD$;"READ CATEGORIES"RAC$WAC$"END"2155\AC$CA$2200f2120k(4);"CLOSE CATEGORIES"'p:12:8:OSE CATEGORIES":D$;"CLOSE HOLD"6D$;"DELETE HOLD"k(:12:9:"CATEGORY ALREADY EXISTS!":20000:130:4:16::"EXPENSES"8:" CATEGORY :":" DATE :":" DESCRIPTION :":" AMOUNT :"20:7::"PRESS '<' TO RD" ~CA$"END"BD$;"CLOSE CATEGORIES":D$;"CLOSE HOLD"^D$;"DELETE CATEGORIES"D$;"RENAME HOLD,CATEGORIES"D$;"OPEN "CA$D$;"WRITE "CA$BA$" 0.00"" 0.00""END"D$;"CLOSE "CA$130 D$;"CL"1080 4A$"N"1000! 61072B 830000:20:16:"WRITING..."N :D$(4)h =D$;"OPEN CATEGORIES"| ?D$;"OPEN HOLD" BD$;"READ CATEGORIES" GCN$ LCN$"END"1140 VCA$CN$1300 [D$;"WRITE HOLD" `CN$ j1090tD$;"WRITE HOLUS$"ABCDEFGHIJKLMNOPQRSTUVWXYZ -":UL16:RM1:60000F UR$"<"130R CA$UR$d 14:18:" "; US$"1234567890.":UL9:60000 !UR$"<"130 $25000:BA$UR$ )14:18:" $";BA$ +30000 .20:11:"IS THIS CORRECT? "; 0A$ 2A$"Y0 A$"2"2000# A$"3"30004 A$"4"4000E A$"5"5000T A$"6"10] 170~ :5:13::"ADD A CATEGORY" :12:" CATEGORY NAME :" :14:" BUDGET AMOUNT :" 20:6::"ENTER '<' TO RETURN TO MENU" :12:18:" ";5 DGET" BB00 :8:10:"1. ADD A CATEGORY"O :10:"2. ENTER EXPENSES"o :10:"3. DISPLAY REPORTS" :10:"4. PRINT REPORTS" :10:"5. START A NEW MONTH" :10:"6. QUIT" ::11:"ENTER YOUR CHOICE? "; A$ A$"1"100R YOUR CHOICE? "; -A$+ 2A$"1"10000; 7A$"2"100L <A$"3"9000^ AA$"4"55000f F45 d:::12:6:"INSERT HOME BUDGET DATA DISK" i20000 n:BB1 s(4);"READ CATEGORIES" x(4);"CLOSE CATEGORIES" :5:15::"HOME BU$2 35000/ ::5:14::" "K 6:14:" HOME BUDGET "g 7:14:" ":10:7:"1. INSTRUCTIONS":7:"2. HOME BUDGET":7:"3. CREATE A NEW HOME BUDGET"#:7:"4. RETURN TO MAIN MENU" (19:11:"ENTE                  ::12:16:"LOADING..."6 D$;"RUN ";N$((A$))< 3,"PERSONAL FINANCE","CHECKBOOK","CHECKBOOK BALANCER","HOME BUDGET" )1012,(1012)10! N$(5)1:16302,0CD$(13)(4)X1012,(1012)10b(N,T$m2X1Nx<N$(X)FXP:Z16302,0dD$;"BLOAD ";T$;".PIC,A8192"nA$:A$""110sD$(13)(4)x(A$)0(A$)N1140110 (AM$)));"$ ";AM$;13(PT$));PT$;"%"8#(4);"PR# 0"B#4352Y#(4);"CLOSE "CA$#(4);"PR# 1"::X180:"_";:X:#:10);"BUDGET AMOUNT: $ ";BA$# 10);"MONTHLY TOTAL: $ ";MA$#"10);"YEAR TO DATE: $ ";YA$#$(4);"PR# 0"$&4ENT""X180:"_";:X:/":(4);"PR# 0"E"(4);"READ "CA$N"DA$b"DA$"END"4380k"DE$t"AM$" AM(AM$):MA(MA$):PT(AM100)(BA$):PT(((PT100).5))100" PT$(PT)" (4);"PR# 1"&#17(DA$));DA$;4);DE$;32((DE$):"FILE DOESN'T EXIST!")!20000:4000F!:12:16:"PRINTING..."\!(4);"OPEN "CA$r!(4);"READ "CA${!BA$!MA$!YA$!(13);(4);"PR# 1"!40(CA$)2);CA$:"11);"DATE";24);"DESCRIPTION AMOUNT PERC(4);"CLOSE CATEGORIES"" b4000< h:3:17::"PRINT":[ r10:" ENTER CATEGORY: ";{ |US$"":UL16:60000:CA$UR$ (13);(4);"OPEN CATEGORIES" (4);"READ CATEGORIES" AC$ AC$"END"4290 CA$AC$4300 4240!:12:8:C2$"END"4180DC3$-FC3$"END"41806HC4$dT(13);(4);"PR# 1":C1$;:C2$"END"4190V18(C1$));C2$;:C3$"END"4190X18(C2$));C3$;:C4$"END"4190Z18(C3$));C4$\(13);(4);"PR# 0":4154^(13);(4);"PR# 0" _A$"1"4150A$"2"42000A$"3"4500@A$"4"130J4060w6(13);(4);"PR# 1":35);"CATEGORIES":7X180:"_";:X:::(4);"PR# 0"8(4);"OPEN CATEGORIES":(4);"READ CATEGORIES"<C1$>C1$"END"4190@C2$B:" YEAR TO DATE EXPENSES: $ ";TY$720000:3000Q:6:18::"PRINT":t10:11:"1. PRINT CATEGORIES":11:"2. PRINT A CATEGORY":11:"3. PRINT TOTALS":11:"4. RETURN TO MENU"::11:"ENTER YOUR CHOICE? ";A$"CA$F3630,(4);"CLOSE CATEGORIES"720000TUR$(TB):25000:TB$UR$qUR$(TM):25000:TM$UR$UR$(TY):25000:TY$UR$:4:17::"TOTALS":10:" TOTAL MONTHLY BUDGET: $ ";TB$:" TOTAL MONTHLY EXPENSES: $ ";TM$&IES" 0CA$!2CA$"END"374074(4);"OPEN "CA$M6(4);"READ "CA$V8BA$_:MA$h<YA$>TBTB(BA$):TMTM(MA$):TYTY(YA$)@" ";CA$;28(BA$));BA$;38(MA$));MA$BNRNR1:NR10NR0:20000:30000:40000D(4);"CLOSE   8:" BUDGET : $ ";BA$B :" MONTH EXPENSES: $ ";MA$b :" YEAR TO DATE: $ ";YA$s 20000:3000:15::"HOME BUDGET"3:" CATEGORY BUDGET ACTUAL "::NR0$(4);"OPEN CATEGORIES".(4);"READ CATEGOR0  5 (4);"READ "CA$( DA$< DA$"END"3554E DE$N AM${ DA$;10);(DE$,15);36(AM$));"$ ";AM$ NRNR1 NR10NR0::20000:40000 3538 (4);"CLOSE "CA$ 16384,0 20000 :2:20(CA$)2::CA$z CA$C$3490 34405 (4);"CLOSE CATEGORIES"_ :12::8:"CATEGORY DOESN'T EXIST!"r :20000:3000 (4);"CLOSE CATEGORIES" (4);"OPEN "CA$ (4);"READ "CA$ BA$ MA$ YA$  2::20(CA$)2:CA$ :NR000:40000 3190" " ";C1$= D$;"CLOSE CATEGORIES"N 20000:3000hH :4:16::"DISPLAY"R :10:" ENTER CATEGORY : ";\ US$"":UL16:60000a CA$UR$f (4);"OPEN CATEGORIES"p (4);"READ CATEGORIES"u C$:C$"END"3460070'N :2:11::"BUDGET CATEGORIES"5X :D$(4)Ob D$;"OPEN CATEGORIES"[l NR0:5uv D$;"READ CATEGORIES"~ C1$ C1$"END"3270 D$;"READ CATEGORIES" C2$ C2$"END"3262 NRNR1 " ";C1$;22);C2$  NR10NR0:20Y") :10:10:"1. DISPLAY CATEGORIES"L :10:"2. DISPLAY A CATEGORY"k :10:"3. DISPLAY TOTALS" :10:"4. RETURN TO MENU" ::11:"ENTER YOUR CHOICE? "; A$ A$"1"3150 A$"2"3400 A$"3"3600& A$"4"1300 32490 D$;"WRITE HOLD"# EX$- 2450B D$;"WRITE HOLD"K DA$T DE$] AM$h "END"} D$;"CLOSE "CA$ D$;"CLOSE HOLD" D$;"DELETE "CA$ D$;"RENAME HOLD,"CA$ 130 TB0:TM0:TY0:PT0  6:17::"DISPLA"."250603aX,3a(UR$)8UR$UR$".00"G3a(UR$)9UR$(UR$,9)M3au3a(UR$)X0(UR$)9UR$UR$"00":3a(UR$,X1,1)"."UR$(UR$,X)"00":3a(UR$)X1(UR$)9UR$UR$"0":3aX9UR$(UR$,9): 4b(UR$,X2,1)"."UR$(UR$,X/:" WILL ZERO THE MONTHLY BALANCES, WHILE"325/`2:/" KEEPING YOUR YEAR TO DATE EXPENSES."o2 020000:102 N22:8::"PRESS ANY KEY TO CONTINUE";2%N16384,0:16368,02*N16384,12824N16384,0::2a252002aX1(UR$) 3a(UR$,X,1)ARE READY TO"<1':" ENTER YOUR MONTHLY EXPENSES AS THEY"l1(:" OCCUR. WHEN YOU HAVE ENTERED ALL THE"1 (:" EXPENSES FOR THE MONTH, PRINT OUT THE"1(1(" INFORMATION YOU NEED AND THEN USE"1(:" OPTION '5' START A NEW MONTH. THIS"-20NOW ENTER THE NAME OF"D0':" THE CATEGORY AND THE BUDGET AMOUNT"v0':" OF THAT CATEGORY. AFTER THE CATEGORIES"0'" HAVE BEEN ENTERED, USE OPTION '2',"0'20000:0':" TO ENTER YOUR BEGINNING BALANCE FOR" 1':" EACH CATEGORY. NOW YOU +/~':" THESE CATEGORIES CAN BE ANYTHING"[/':" YOU SPEND YOUR INCOME ON, UTILITIES,"/':" HOUSE PAYMENT, FOOD, CLOTHING, ETC."/':" ONCE YOU HAVE DECIDED ON YOUR CAT-"/':" EGORIES, ENTER 'ADD A CATEGORY' BY"0':" SELECTING '1'. L FOR IN-".G';.L'" STRUCTIONS. USE OPTION '3' CREATE"d.Q':" A NEW HOME BUDGET. AFTER THIS"j.T'.V'" HAS BEEN COMPLETED, PRESS '2' FOR".`':" HOME BUDGET. THE FIRST THING YOU".e'20000:.j':" MUST DO IS TO CREATE YOUR CATEGORIES."ELP YOU ORGANIZE"-'A-'" YOUR BILLS BY CREATING A MONTHLY"G-'p-$'" BUDGET. OBTAIN A BLANK DISK AND"v-)'-.'" LABEL IT 'HOME BUDGET'. FORMAT THIS"-3'-8'" DISK USING THE 'INIT' COMMAND. REFER"-=' .B'" TO THE APPLE DOS 3.3 MANUA$,P#A$"Y"9060!,Z#A$"N"10+,_#9030U,d#:12:12:"INSERT DATA DISK!":20000w,n#:12:13:"CREATING FILE...",#(4);"OPEN CATEGORIES",#(4);"WRITE CATEGORIES",#"END",#(4);"CLOSE CATEGORIES",#10-':2:" HOME BUDGET WILL H+(4);"WRITE "CA$ +BA$-+" 0.00"6+YA$A+"END"^+(4);"CLOSE "CA$:5130+(4);"CLOSE CATEGORIES":130+(#:11:" THIS FUNCTION SHOULD ONLY BE USED TO"+2#13:9:"START A NEW BUDGET!!!"+<#17:12:"CONTINUE? (Y/N): ";,F#A";BA$(*x20:11:"ENTER NEW BUDGET? ";0*A$A*A$"N"5300R*A$"Y"5270\*5250n*14:19:" ";*US$"1234567890.":UL9:60000:25000:BA$UR$*14:19:" $ ";BA$*:12:15:"WRITING..."*(4);"DELETE "CA$+(4);"OPEN "CA$);"OPEN CATEGORIES"/) (4);"READ CATEGORIES"8)CA$L)CA$"END"5350b)((4);"OPEN "CA$x)2(4);"READ "CA$)<BA$)FMA$)PYA$)U(4);"CLOSE "CA$)Z:4:14::"NEW MONTH")d:12:" CATEGORY: ";CA$*n:" BUDGET AMOUNT: $ BE ABLE TO"9(:" CHANGE ANY OF YOUR BUDGET AMOUNTS."e(:" THIS WILL PERMANENTLY ALTER YOUR"|(:" RECORDS !!!"(:::(12:"CONTINUE (Y/N) ? ";(A$(A$"Y"5110(A$"N"130(5080(:12:15:"SEARCHING...")(4 $ ";TB$3'20);"TOTAL MONTHLY EXPENSES: $ ";TM$]'20);"YEAR TO DATE EXPENSES: $ ";TY$o'(4);"PR# 0"y'4000':5:" THIS ROUTINE WILL ZERO YOUR MONTHLY"':" BALANCE, WHILE KEEPING YOUR YEAR TO" (:" DATE TOTALS. YOU WILL ALSO $):TYTY(YA$)!&%(4);"PR# 0"8&&(4);"CLOSE "CA$B&(4560_&z(4);"CLOSE CATEGORIES"q&(4);"PR# 1"&:X180:"_";:X&UR$(TB):25000:TB$UR$&UR$(TM):25000:TM$UR$&UR$(TY):25000:TY$UR$&:'20);"TOTAL BUDGET:);"READ CATEGORIES"%CA$0%CA$"END"4730F%(4);"OPEN "CA$\%(4);"READ "CA$e%BA$n% MA$w%YA$%(4);"PR# 1"% 5);CA$;30((CA$)(BA$)));"$ ";BA$;%"15(MA$));"$ ";MA$;17(YA$));"$ ";YA$&$TBTB(BA$):TMTM(MA000$TB0:TM0:TY0:PT03$(13);(4);"PR# 1"Q$:::35);"HOME BUDGET"Y$:$10);"CATEGORY";28);"BUDGET";42);"MONTHLY EXPENSES YEAR TO DATE"$X180:"_";:X:$:(4);"PR# 0"$(13);(4);"OPEN CATEGORIES"%(13);(4:" CHECK, USE OPTION '3' TO ERASE THE"X\:" THE TRANSACTION. WHEN YOU RECEIVE A "^:" BANK STATEMENT USE OPTION '4', PURGE"`:" TRANSACTIONS, AND ENTER A Y FOR ALL"b:" TRANSACTIONS THAT ALSO APPEAR ON YOUR"d:" BANK STATEMENT. '2', "4N:" 'ENTER DEPOSIT'. NOW ENTER THE DATE"eP:" AND THE CURRENT BALANCE OF YOUR CHECK-"R:" BOOK. YOU ARE NOW READY TO ENTER YOUR"T20000:V:" TRANSACTIONS. IF YOU ENTER A WRONG "X:" TRANSACTION OR YOU HAVE STOPPED A")ZTIALIZED DATA DISK, USE"ID:" OPTION '3' TO CREATE A CHECKBOOK FILE."zF:" ONCE THIS PROCESS IS COMPLETED, SELCET"H:" OPTION '2' FROM THE MENU. A NEW MENU"J:" WILL BE DISPLAYED AND YOU WILL BE"L:" ASKED TO MAKE A SELECTION. PRESS RE STARTING TO USE THIS PROGRAM,"L 8:" OBTAIN A BLANK DISK AND LABEL IT } ::" CHECKBOOK DATA. FORMAT THIS DISK USING" <:" THE 'INIT' COMMAND. REFER TO THE APPLE" >20000: @:" DOS MANUAL FOR INSTRUCTIONS. ONCE YOU "B:" HAVE AN IN1 ,::" THIS PROGRAM WILL HELP YOU KEEP YOUR"` .:" CHECKING ACCOUNT UP TO DATE. IT WILL" 0:" KEEP A RUNNING BALANCE AND A REGISTER" 2:" OF ALL OUTSTANDING TRANSACTIONS, WHICH" 4:" MAY BE VIEWED AND PRINTED AT ANY TIME."! 6:" BEFOURGE TRANSACTION"0 :9:"5. REVIEW REGISTER"S :9:"6. RETURN TO MAIN MENU" ::10::"ENTER YOUR CHOICE?";::" "; A$:A$""180 A$"1"1000 A$"2"2000 A$"3"3000 A$"4"4000 A$"5"5000 A$"6"10 180 C(4);"CLOSE BALANCE"& DBA(BA$)/ FBB1T P:3:10::" "r Z10:" CHECKBOOK KEEPER " d10:" ": n::9:"1. ENTER CHECK" x:9:"2. ENTER DEPOSIT" :9:"3. DELETE A TRANSACTION" :9:"4. PENU"' ::11:"ENTER YOUR CHOICE?";9 Q$:Q$""30I Q$"1"300X "Q$"2"60i $Q$"3"9000{ &Q$"4"63000 (30 5 <:12:4:"INSERT YOUR CHECKBOOK DATA DISK":20000 =:12:16:"READING..." A(4);"READ BALANCE" BBA$(*TR$(9,4)30000# :F 4:10::" "d10:" CHECKBOOK KEEPER "10:" "::8:"1. INSTRUCTIONS":8:"2. CHECKBOOK":8:"3. CREATE A DATA DISK" :8:"4. RETURN TO MAIN M          L600109pUS$""60020*9qUS1(US$)E9rUI$(US$,US,1)60060T9sUS:60010i9tUI$(32)600609~UI$(45)UI$(91)600609600109UR$UR$UI$9UI$;9600109X(0)9X:" ";9X(0):X:"";9(UR$)1UR$"":60010 "85:D8֗:12:10::"INSERT PROGRAM DISK!"O8ְ20000j8ֺ(13);(4);"RUN MENU"|8`UR$"":UI$""8jUI$:UI$""600108kUI$"<"RM1UR$"<"::RM0:8lUI$(13)(UR$)0ĺ" ":8mUI$(8)(UR$)0601009o(UR$)U "W7|" "7" "7" "7" "8" 601306@4=6E" "l6J" "6T" "6^" "6h" "(7r" "5Du!5ER(222)H5ˆER4ER$"WRITE PROTECTED":35100n5̈ER6ER$"FILE NOT FOUND":351005ֈER8ER$"I/O ERROR":351005ER9ER$"DISK FULL":351005ER$"DATA ERROR"5:12:20(ER$)2::ER$:200005&BB1BB0:101)"0":4 bUR$(UR$,X2):,4pbUR(UR$)F4zbUR((UR100).5)100V4bUR$(UR):40u18:" "45u" "4:u" " 5?u" "END"! (4);"CLOSE HOLD"< (4);"CLOSE REGISTER"X (4);"DELETE REGISTER"y (4);"RENAME HOLD,REGISTER" (4);"DELETE BALANCE" (4);"OPEN BALANCE" (4);"WRITE BALANCE" BA$ ((4);"CLOSE BALANCE" 280 <8:8001 "%q19:15:"SEARCHING..."?t(4);"READ REGISTER"HyCN$\~CN$"END"3810v(4);"READ REGISTER"DA$:CD$:CA$CN$"D"I$DA$ĺ(4):3900(4);"WRITE HOLD"CN$:DA$:CD$:CA$(4):3695(4);"WRITE HOLD"$15:" ":#.10:7003L811:8:US$"1234567890/":UL5:60000WBI$UR$L19:" "Q19:15:"SEARCHING..."`(4);"OPEN HOLD"j(4);"OPEN REGISTER" o19:" D,REGISTER"&z (4);"DELETE BALANCE"? (4);"OPEN BALANCE"Y (4);"WRITE BALANCE"b BA$ (4);"CLOSE BALANCE":80 8000 AN$"N"3370 BABA(CA$):UR$(BA):25000:BA$UR$ 3310:2:15::" "15:" DELETE "CN$CN$"W"CN$"",' IN$CN$ĺ(4):3500A* CN$" "CN$"W"X/ (4);"WRITE HOLD"p4 CN$:DA$:CD$:CA$z> 3310R (4);"WRITE HOLD"W "END"\ (4);"CLOSE REGISTER"a (4);"CLOSE HOLD"f (4);"DELETE REGISTER" p (4);"RENAME HOL "0 19:15:"SEARCHING..."F (4);"OPEN HOLD"` (4);"OPEN REGISTER"z (4);"READ REGISTER" CN$ CN$"END"3410 (4);"READ REGISTER" DA$:CD$:CA$ 19:" "% IN$000:A$UR$X A$"1"3200,b A$"2"3600;g A$"3"80El 3150` :3:15::" "t 15:" DELETE " 15:" ": 7000 9:16:US$"1234567890":UL5:RF1:60000 UR$""UR$"W" IN$UR$ 19:" "Y"3090 A$"N"80" 3050= :5:15::" "Q 15:" DELETE "g& 15:" ":0 ::10:"1. DELETE A CHECK": :10:"2. DELETE A DEPOSIT"? :10:"3. EXIT DELETE"D ::11:"ENTER YOUR CHOICE? "; N US$"123":UL1:60A$):UR$(BA):25000:BA$UR$&f1180Z :9:"THIS FUNCTION WILL CHANGE YOUR REGISTER" "BALANCE. IT SHOULD ONLY BE USED TO MAKE" "CORRECTIONS OR FOR CANCELLED CHECKS." :::12:"CONTINUE? (Y/N) "; US$"YN":UL1:60000:A$UR$  A$S$"":UL20:60000:CD$UR$B:10:US$"1234567890.":UL9:60000U 25000:CA$UR$o"15:11:" "#15:10:" $ ";CA$*18:12:"IS THIS CORRECT? ";4A$:A$""2100>A$"Y"2140HA$"N"2000R2100\BA(BA$):BABA(C(4);"OPEN BALANCE"/(4);"WRITE BALANCE"8BA$R(4);"CLOSE BALANCE"Z80w:2:14::" "14:" DEPOSITS "14:" "10:700311:8:US$"1234567890/":UL5:60000CN$"D":DA$UR$ :15:UN$:IN$"END"1260)(4);"WRITE HOLD"2IN$<1205S(4);"WRITE HOLD"rCN$:DA$:CD$:CA$:"END"(4);"CLOSE REGISTER" (4);"CLOSE HOLD"(4);"DELETE REGISTER"(4);"RENAME HOLD,REGISTER"x(4);"DELETE BALANCE"jA$:A$""1130$tA$"Y"11705~A$"N"1000?1130iBABA(CA$):UR$(BA):25000:BA$UR$17:12:" "18:12:"WRITING TO FILE..."(4);"OPEN REGISTER"(4);"OPEN HOLD"(4);"READ REGISTER"I$""UR$"W"CN$UR$I$11:8:US$"1234567890/":UL5:60000:DA$UR$q.13:16:US$"":UL20:60000:CD$UR$815:10:US$"1234567890.":UL9:60000B25000:CA$UR$L15:10:" "V15:10:"$ ";CA$`17:12:"IS THIS CORRECT? ";Y EXIT THE"<r:" PROGRAM AND USE THE CHECKBOOK BALANCER"at:" TO RECONCILE YOUR ACCOUNT."pv20000:10:3:14::" "14:" WITHDRAWAL "14:" ":70009:16:US$"1234567890":UL5:RF1:60000 URTHIS WILL CLEAR THEM"Bf:" FROM THE REGISTER. AFTER YOU HAVE "rh:" PURGED ALL THE TRANSACTIONS FROM YOUR"i20000:j:" STATEMENT, USE OPTION '5', 'VIEW REGI-n:" STER', TO GET A PRINT OUT OF THE" p:" CURRENT REGISTER. NOW YOU MA180 0uE0@:12:4:"MAKE SURE YOUR PRINTER IS READY!":20000:W0`UR$"":UI$""n0jUI$:UI$""600100kUI$(13)RF1(UR$)0UR$"":" ":RF0:0lUI$(13)(UR$)0ĺ" ":0mUI$(8)(UR$)0601000o(UR$)UL600101pUS$""6002R6ER$"FILE NOT FOUND":30060@/NuER8ER$"I/0 ERROR":30060a/XuER9ER$"DISK FULL":30060v/buER$"DATA ERROR"/lu::12:20(ER$)2::ER$/vu:22:8::"PRESS ANY KEY TO CONTINUE"/u16384,0:16368,0/u16384,128/u16384,00uBBUR$,X)"00":4.a(UR$)X1(UR$)9UR$UR$"0":L.aX9UR$(UR$,9):w.b(UR$,X2,1)"."UR$(UR$,X1)"0":. bUR$(UR$,X2):.pbUR(UR$).zbUR((UR100).5)100.bUR$(UR):.0uER(222).:uER4ER$"WRITE PROTECTED":30060/DuE*N16384,0:16368,0%-4N16384,128=->N16384,0:16368,0M-aX1(UR$)]-aX1(UR$)w-a(UR$,X,1)"."25060~-aX-a(UR$)8UR$UR$".00"-a(UR$)9UR$(UR$,9)-a-a(UR$)X0(UR$)9UR$UR$"00": .a(UR$,X1,1)"."UR$(3:"CREATING FILE..."/,x#(4);"OPEN REGISTER"J,#(4);"WRITE REGISTER"U,#"END"p,#(4);"CLOSE REGISTER",#(4);"OPEN BALANCE",#(4);"WRITE BALANCE",#"0.00",#(4);"CLOSE BALANCE",#10, N22:8::"PRESS ANY KEY TO CONTINUE":-S$"YN":UL1:60000:AN$UR$:P+(#:11:" THIS FUNCTION SHOULD ONLY BE USED TO"u+2#13:" START A NEW CHECKBOOK!!!"+<#17:12:"CONTINUE? (Y/N): ";+F#A$+P#A$"Y"9060+Z#A$"N"10+_#9030+d#:12:12:"INSERT DATA DISK!":20000,n#:12:1R#0":(4);"CLOSE REGISTER":808*X9:" CHECK NUMBER:"]*[:" DATE: (MONTH/DAY)"t*l:" DESCRIPTION:"*v:" AMOUNT:"**@9:16::CN$:*A11:8::DA$:*B:15::CD$:*C:10::CA$:*J19:12:"DELETE? (Y/N): ";+TU$ )|PP$)PA$)SG$"-"<)PN$"D"PN$" ":SG$" "Q)PN$"W"PN$" "t)(4);"PR#1":14(PD$));PD$;)12(PN$));PN$;)8);PP$;)37((PP$)(PA$)));SG$;"$ ";PA$)5450):40(9(BA$))2);"BALANCE $ ";BA$*(4);"P2:14:"PRINTING..."%((4);"PR#1"@(32);"CHECK REGISTER"F("x(,10)"DATE"4)"CHECK NUMBER"6)"DESCRIPTION";(618)"AMOUNT"(;(@(4);"PR#0"(E(13)(4);"OPEN REGISTER"(J(4);"READ REGISTER"(TPN$(jPN$"END"5600)rPD "3'" ":'7@'['(4);"CLOSE REGISTER"'17:20(10(BA$))2::"BALANCE";::" $ ";BA$':6:"WOULD YOU LIKE A PRINT OUT? ";'A$'A$"Y"5370'A$"N"80'5330'40000(:1 "H&P" "w&Z" "&d" "&n" "'x" G$"-"#%CN$"D"CN$" ":SG$" "8%CN$"W"CN$" "B%(4)W%6(DA$));DA$;l% 6(CN$));CN$;%18);(CD$,10);%37(CA$));SG$;CA$%(C%220000:5180:5080%<8:" "&F" ER" $80($:2:14::" ">$14:" REGISTER "V$14:" ":$:" DATE CKNO. DESCRIPTION AMOUNT"$$(4);"OPEN REGISTER"$C18$(4);"READ REGISTER"$CN$$CN$"END"5300$DA$:CD$:CA$%SUS$"YN":UL1:60000'#JUR$"Y"4230>#T(4);"WRITE HOLD"V#^CN$:DA$:CD$:CA$r#C:(4):5180:8:4060#(4);"WRITE HOLD"#"END"#(4);"CLOSE HOLD"#(4);"CLOSE REGISTER"#(4);"DELETE REGISTER"$(4);"RENAME HOLD,REGISTHOLD""C18*"(4);"READ REGISTER"3"CN$G"CN$"END"4235Z"DA$:CD$:CA$d"(4)p"SG$"-""5(DA$));DA$;"CN$"D"SG$" ":4140"CN$"W"4140""6(CN$));CN$;",14);(CD$,10);"634(CA$));SG$;CA$;" ";#@!FAN$"N"3760;!PBABA(CA$):UR$(BA):25000:BA$UR$E!Z3800c!:22:14:"PURGE? (Y/N)"{!2:15::" "!15:" PURGE "!15:" ":!:"DATE CKNO. DESCRIPTION AMOUNT PURGE"!(4);"OPEN REGISTER""(4);"OPEN 25000:RR$UR$116:18:" "N16:36(RR$):"$ ";RR$p15000:20:15:"ENTER TAXES"$13:18:" ")13:26(T$):"$ ";:UL10:60000.25000:T$UR$313:18:" " 813:36(T"$ ";RR$:15000220:8:"ENTER SERICE CHARGES"V11:18:" "11:26(SC$):"$ ";:US$"1234567890.":UL10:6000025000:SC$UR$11:18:" "11:36(SC$):"$ ";SC$ RRRR(UR$):UR$(RR):0z20:13:"ENTER INTEREST"79:30:" "o9:26(IE$):"$ ";:US$"1234567890.":UL10:6000025000:IE$UR$9:18:" "9:36(IE$):"$ ";IE$RRRR(UR$):UR$(RR):25000:RR$UR$16:36(RR$):K BALANCE"-47:18:" "e>7:26(CB$):"$ ";:US$"1234567890.":UL10:60000xH25000:CB$UR$R7:18:" "\7:36(CB$):"$ ";CB$fRRRR(UR$):UR$(RR):25000:RR$UR$p16:36(RR$):"$ ";RR$:1500R$UR$(TC):25000:TC$UR$013:14:TC$]15000:20:10:"ENTER ANOTHER CHECK? ";eA$|A$"Y"CC1:630A$"N"790 750RCRCTC:UR$(RC):25000:RC$UR$:1000020000 11000:15000 *20:6:"ENTER YOUR CHECKBOO10:14:" "H7:18:" ";:US$"1234567890":UL8:60000YCH$(C,1)UR$|15000:20:14:"ENTER AMOUNT"10:14:" ";:US$"1234567890.":UL10:6000025000:TCTC(UR$):CH$(C,2)UR$13:14:" "10:15:UUL1:60000&UR$"N"80070:3:17::"CHECKS":RN7:5:"CHECK NUMBER:"kX10:5:"AMOUNT: $ "b13:5::"TOTAL:";::" $"l15000:X140:"_";:XqC1v15000:20:11:"ENTER CHECK NUMBER"7:18:" "TD$115000:20:9:"ENTER ANOTHER DEPOSIT? ";9A$PA$"Y"DD1:412`A$"N"520i490RCRCTD:UR$(RC):25000:RC$UR$:10000:1500015000:20:8:"IS THERE ANY CHECKS NOT" " INCLUDED IN STATEMENT (Y/N)? ";:US$"YN":DE$(D,1)UR$/ 15000:22:14:"ENTER AMOUNT"` 10:15:" ";:US$"1234567890.":UL10:60000 25000:TDTD(UR$):DE$(D,2)UR$ 10:15:" " 10:16:UR$ UR$(TD):25000:TD$UR$ 13:15:" "13:15: 7:" DATE: "0 10:" AMOUNT: $"P 13:6::"TOTAL:";::" $"l 15000:X140:"_";:Xt D1 15000:20:15:"ENTER DATE" 7:11:" " 10:15:" " 7:11:" ";:US$"1234567890/-":UL8:60000:S(ST$):RCRCS:UR$(RC):25000:RC$UR$A ]15:30:" "e ^15:36(RC$):"$ ";RC$:15000 `15000:20:7:"IS THERE ANY DEPOSITS NOT" b6:"INCLUDED IN STATEMENT (Y/N)? ";:US$"YN":UL1:60000 dUR$"N"530 h:3:14::"DEPOSITS":705 ,10000:15000:20:10:"ENTER CURRENT BALANCE"O 613:"FROM STATEMENT"r ;6:18:" " @6:30(ST$):"$ ";:US$"1234567890.":UL10:60000 J25000:ST$UR$ O6:18:" " T6:36(ST$):"$ ";ST$* Y " :::3 7:"1. INSTRUCTIONS"9 #] (7:"2. BALANCE YOUR STATEMENT"c - 27:"3. RETURN TO MAIN MENU" 7: <:11:"ENTER YOUR CHOICE? "; FA$ PA$"1"2000 ZA$"2"300 dA$"3"ĺ(13);(4);"RUN MENU" noCH$(50,2),DE$(50,2)kST$"0.00":TD$"0.00":TC$"0.00":RC$"0.00":CB$"0.00":IE$"0.00":SC$"0.00"T$"0.00":RR$"0.00":CH$(0,1)"0.00":DE$(0,1)"0.00" ::5:10::" "10:" CHECKBOOK BALANCER " 10:"           01qUS1(US$)-1rUI$(US$,US,1)60060<1sUS:60010Q1tUI$(32)60060p1~UI$(45)UI$(91)60060{1600101UR$UR$UI$1UI$;1600101X(0)1X:" ";1X(0):X:"";1(UR$)1UR$"":600101UR$(UR$,(UR$)1)%lUI$(13)(UR$)0ĺ" ":;%mUI$(8)(UR$)060100P%o(UR$)UL60010b%pUS$""60020s%qUS1(US$)%rUI$(US$,US,1)60060%sUS:60010%tUI$(32)60060%~UI$(45)UI$(91)60060%60010%UR$UR$UI$%UI$;&6001$UR$"00":6$a(UR$,X1,1)"."UR$(UR$,X)"00":]$a(UR$)X1(UR$)9UR$UR$"0":u$aX9UR$(UR$,9):$b(UR$,X2,1)"."UR$(UR$,X1)"0":$ bUR$(UR$,X2):$`UR$"":UI$""$jUI$:UI$""60010$kUI$"<"RM1UR$"<":" ":2:8::"PRESS ANY KEY TO CONTINUE":=#*N16384,0:16368,0M#4N16368,128e#>N16384,0:16368,0k#HNv#a16000#aX1(UR$)#a(UR$,X,1)"."25060#aX#a(UR$)8UR$UR$".00"#a(UR$)9UR$(UR$,9)#a $a(UR$)X0(UR$)9UR" "Y":" "":" "":" "":17:">UR(UR$)">UR((UR100).5)100">UR$(UR):%# N2"/!*+" SERVICE CHARGES";36(SC$));"$ ";SC$\!,+:" TAXES WITHHELD";36(T$));"$ ";T$p!/+30)"________"v!1+!4+"REVISED REGISTER BALANCE"36(RR$));"$ ";RR$!9+X140:"_";:!>+!:18!:" "*":CURRENT BALANCE";36(RC$));"$ ";RC$; Q':X140:"_";:A V'I *:j +:11:"CHECKBOOK BALANCE":t +:: +" CURRENT BALANCE" +" FROM CHECKBOOK";36(CB$));"$ ";CB$ +"ADD:" +" INTEREST EARNED";36(IE$));"$ ";IE$!%+"LESS:T BALANCE"7$'" FROM STATEMENT";36(ST$));"$ ";ST$C.'"ADD:"8'" DEPOSITS NOT IN-":" CLUDED IN STATEMENT";36(TD$));"$ ";TD$='"LESS:"B'" CHECKS/WITHDRAWALS":" OUTSTANDING";36(TC$));"$ ";TC$G'30)"_________"% L':"REVISED CTLY"3:" BALANCED CHECKBOOK, THE DIFFERENCE"a :" SHOULD BE '0'. IF IT ISN'T, CHECK":" TO MAKE SURE YOU HAVE ENTERED ALL" :" CHARGES, WITHDRAWALS, AND DEPOSITS."*20000:':::12::"CURRENT BALANCE" '::" CURRENBA$));"$ ";BA$%0:15000:20000:T::" THIS PROGRAM WILL HELP YOU IN":" BALANCING YOUR CHECKBOOK. SIMPLY":" FOLLOW THE PROMPTS AT THE BOTTOM OF":" THE SCREEN AND ENTER THE CORRECT":" INFORMATION. FOR A CORRE" REVISED REGISTER BALANCE";46(RR$));"$ ";RR$JX079:"_";:XT::" REVISED CURRENT BALANCE";47(RC$));"$ ";RC$:" REVISED REGISTER BALANCE";46(RR$));"$ ";RR$67);"__________":" DIFFERENCE";60(5d:" CHECKBOOK BALANCE";53(CB$));"$ ";CB$An"ADD:"rx" INTEREST EARNED";55(IE$));"$ ";IE$"LESS:"" SERVICE CHARGES";55(SC$));"$ ";SC$" TAXES WITHHELD";56(T$));"$ ";T$67);"__________"53602X1C5<" ";CH$(X,1);5(CH$(X,1)));YA43(CH$(X,2)));"$ ";CH$(X,2)bFX:P" TOTAL AMOUNT OF CHECKS";48(TC$));"$ ";TC$U67);"__________"Z" REVISED CURRENT BALANCE";47(RC$));"$ ";RC$_X079:"_";:::" DEPOSITS NOT INCLUDED IN STATEMENT":;D01310FX1Dm " ";DE$(X,1);8(DE$(X,1)));40(DE$(X,2)));"$ ";DE$(X,2)X" TOTAL OF DEPOSITS";53(TD$));"$ ";TD$("LESS:":" CHECKS OUTSTANDING":-C01ENTER TODAY'S DATE: ";:US$"1234567890/-":UL8:60000ADT$UR$V PRINTER OUTPUT]1m(9);"80N"::28:"CHECKBOOK RECONCILIATION"::" DATE: ";DT$::" CURRENT BALANCE FROM STATEMENT";40(ST$));"$ ";ST$-"ADD:"(RR$));"$ ";RR$$~30:"________"RBA(RC$)(RR$):UR$(BA):25000:BA$UR$}::"DIFFERENCE";36(BA$));"$ ";BA$20000:1500020:7:"WOULD YOU LIKE A PRINT OUT?";A$A$"N"ĬA$"Y"12401200515000:20:6:"$):"$ ";T$5=RRRR(UR$):UR$(RR):25000:RR$UR$YB16:18:" "G16:36(RR$):"$ ";RR$:15000:20000L:3:17::"BALANCE":`7:"REVISED CURRENT BALANCE";36(RC$));"$ ";RC$t10:"REVISED REGISTER BALANCE";36? ?33??3 𜌘0?33??ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ033k333 0L p 0  0@L  03333333333733 0 0  p 7 33333333 3 0@0  8 333333333ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ?3?w??3????̙̃??3??;???;???3????3???3?3??3????̃6?3??;???;;?????ժժժժժժժժժժժժժժժժժժժ?333??333?ժժժժժժժժժժժժժժժժժժժ3c?3??pp|| @|| 0@L|l03?333? | |  @ ?3??333??l0@0   <3?333??? ժժժժժժժժժժժժժժժժժժժ?;??33??333??           0 &X(0)&X:" ";,&X(0):X:"";H&(UR$)1UR$"":60010`&UR$(UR$,(UR$)1)k&60010S̛ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ??3?? ???3c?? x p@  |p?3?333?33?3|p`p l |?3 ?3 33??03?333???3ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ33373 7373?3?c?????? ??3??;???;?3?33??;쁰?3 ?; ??;?3????0?3??;???;;???;ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ?????3???3?3??0?3c3333 0@  0xx|px  |3?33333??;3L080 < ;  333?3 3 |@|x ` 03?3333ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ?3??33?>?3c33; ̙8?33????ժժժժժժժժժժժժժժժժժժժժժժժժժժժ03;? ;?;3:UR$(UR$,(UR$)1)":600100 260010%2(13);(4);"RUN MENU"L