' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (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#0).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /JJJJ"L뷩 ᷩ췩 ɛ LDLSAVBPILOCUNLOCIBPIBPIBPPRBPIBLISCALBPIBUZZOFӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜv  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`# d£àĠz# u` @@A` @A@  B C BBCLCLfBL ީLhh`LLN7ɿLݍҭ -A@@i@@@i@AAݣ@ݢΩDDLeA@@lL /?@Hɷ@#@h@!ɵ@ɥͰi+hɝi@@/8e@@DAA͈@̈DDL܇@BA݅C@BAC濽տ`xxlt]iVȿQkKRE;BY;LꍁlL<ԍL WLHr7s8 LH HLݍ ,,(`l8 LH e UL׉ LH LH,, sL,,, t鍁` H `Le HL H LL H QL H Llש B\ȹ'ȹ' (LRANGWRITE PROEND DATFILE NOT FOUNVOLUMI/O ERDISK FULLOCKESYNTANO BUFFETYPE MISMATCTOO LARGNOT DIREC q`QrU`)`\N|Lي80ʭ) $% B橠 B  ` L߭ɍ_LةحW`8& 9ʩ8`WL () ~ۭ N N L,H whLZ؍^؍_`$,,L`hhhL٭0 ,0L,Ƀɛɍ8ɠnɻɺ: n(8l mnحuIn Lw8n {۠u  {ۥgh,,0۬ۍ،؍La8 L߭ u ب H بh,8m l بNۘHج,8۰h Z wةͼH h بLZ8Ѕυ Z0 Z LڭٍَٺHץ9ɾIn0 hH )? @(I7n׽Nשn I-- h+( ,,0 ,Hّ(ho Lލ ׭,0 )?( Ɉoɀ@MםH Ihh0 Lڊʰڍ,עLڍhhیڬ<۠x )ڠ8۬ڰ(HH `ȹ0,Ȍ ɍ  ɠ )?, @, LB LƠ LLւ&LݩLL#B B!P`L";:A$::F0:1BM)%DPP100.5:P(P)100:"AMOUNT PER PAYMENT =";P:Q(PMA)100.5:Q(Q)100:"TOTAL INTEREST = ";Q:"TO BEGIN LISTING TOUCH KEY>";:A$::BA:"PMT. INTEREST";16);"PRINCIPAL";26);" BALANCE"c&ECC1:LBE:KPL:BBK:CC100.5:LL100.5:KK"64 $B7%C3:2:" THE MORTGAGE AMORTIZATION TABLE"::" COMPUTE INTEREST PAYMENTS..."::2:"PLEASE USE DECIMAL POINTS":2:C0:"AMOUNT OF LOAN = ";A:"INTEREST IN PERCENT = ";J:"TERM IN YEARS = ";M:JJ100:MM12:EJ12:B1E:PAE(1ɰ2:"NUMBER OF PAYMENTS PER YEAR = ";M::"ANNUAL INTEREST RATE = ";E::"AMOUNT OF EACH PAYMENT = ";P::"AMOUNT OF LOAN PRINCIPAL = ";K::N((1(K(E100))(MP))((1E100M)M))$A"A TERM OF ";(N10.5)10;" YEARS SATISFIES THIS LOAN.":4:B$"YAYMENT = ";P::"LOAN PRINCIPAL = $";K::" (PAYMENT #, YEAR # )";X,N:EE100:VK:W1M(N1)X">R((VEM)100.5)100:APR:VVA:W::"THE REMAINING BALANCE IS $";(V100.5)100:4:B$"Y"61"?7#@3:2:10)"THE TERM OF A LOAN"::M)100.5)100:APT:VVA:W:"THE LAST PAYMENT FOR THIS LOAN,":"WILL BE $";((PV)100.5)100:4:B$"Y"57w!<7i"=3:2:7)"REMAINING BALANCE ON A LOAN"::2:"NUMBER OF PAYMENTS PER YEAR = ";M::"ANNUAL INTEREST RATE = ";E::"AMOUNT OF EACH PT ON A LOAN"::2:"LIFE OF THE LOAN IN YEARS = ";N:"ANNUAL INTEREST RATE = ";E::"AMOUNT OF EACH PAYMENT = ";P::"PAYMENTS PER YEAR = ";M::"AMOUNT OF LOAN PRINCIPAL = ";K::RE:EE100:VK :MN100ĺ20)"WORKING THE PROBLEM"p!;W1MN:T((VE::P((E100)KM)(11((E100)M1)(MN)):RE7"PAYMENTS OF $";(P100.5)100;" ";M;" TIMES EACH YEAR":"ARE REQUIRED TO SATISFY":"A LOAN OF $";K;" FOR ";N;" YEARS":"AT AN INTEREST RATE OF ";R;"%.":4:B$"Y"5487 93:2:9)"LAST PAYMEN)M1)(MN))(E100)::"THE PRINCIPAL IS $";(K100.5)100:4O4B$"Y"51V57163:2:8)"REGULAR PAYMENT ON A LOAN"::2:"LIFE OF LOAN IN YEARS = ";:N:"ANNUAL INTEREST RATE = ";:E:"HOW MANY PAYMENTS ANNUALLY? ";M:"PRINCIPAL AMOUNT = ";K:DISCOUNT AMOUNT":"WILL BE $";U;" AT A COST OF ";OU:4:B$"Y"48I27@33:2:10)"PRINCIPAL ON A LOAN"::2:"PAYMENTS PER YEAR = ";M::"AMOUNT OF EACH PAYMENT = ";P::"ANNUAL INTEREST RATE = ";E::"LIFE OF LOAN IN YEARS = ";N:KPM(11((E100OUNTED":" PAPER..":2::"FUTURE VALUE OF THE NOTE = ";O:"DISCOUNT RATE = ";D::"NUMBER OF DAYS TO MATURITY = ";M:DD100:UODM360::"IF YOU PURCHASE A NOTE WORTH $";OB1"DUE IN ";M;" DAYS AT A DISCOUNT":"RATE OF ";D100;"%, THE PRICE OF THE ITEM = ";K::"DEPRECIATION RATE = ";E::N110:S(100K(1E100)N.5)100:"YEAR ";N;" SALVAGE VALUE = $";S::GG1:G5G0-"TOUCH RETURN FOR NEXT":D$::S2ĂN.4:B$"Y"44/703:2:" CALCULATE THE NET COST OF DISC0::N110:DKE(1E)(N1):"YEAR #";N;" DEPRECIATION = $";(D100.5)100::GG1:G5G0)"TOUCH RETURN FOR NEXT";:D$::D2ĂN*4:B$"Y"2450+7,3:2:" CALCULATE THE SALVAGE VALUE":" OF AN ITEM...":2:"ORIGINAL AND SOLD IT ";N;" YEARS LATER":"FOR $";O;", THE ACTUAL DEPRECIATION":"RATE IS ";(1000D.5)1000;"%.":4:B$"Y"37}'7^(3:2:5)"AMOUNT DEPRECIATED WITHIN A YEAR":2:"ORIGINAL PRICE OF THE ITEM = ";K::"WHAT PERCENT DEPRECIATION? ";E::EE1034 $7%3:2:" ANNUAL DEPRECIATION RATE OF AN INVESTMENT"::2:"ORIGINAL ITEM PRICE = ";K::"RESALE PRICE OF ITEM = ";O::"ITEM'S LIFE IN YEARS = ";N::D100(1(OK)(1N))::"IF YOU PURCHASED THE ITEM FOR $";Kv&:"3:2:" EFFECTIVE INTEREST RATE ON INVESTMENT"::2:"INITIAL INVESTMENT = $";K::"FINAL VALUE = $";O::"LIFE OF INVESTMENT IN YEARS = ";N::"THE EFFECTIVE ANNUAL INTEREST RATE OF"::"THE INVESTMENT IS ";((OK)(1N)1)100;"%.":4#B$"Y"z#???    à"! Ġ Š Πı ұ!Ҳ˸!ϠĠ ՠŠӠ à'r'~?r'~g|?r'~?r'~_|}?r'~?r'~qG`~pq81"f?r'~?x?r'~_Kde}?r'~?r'~+U*U*U*U*U*5x?r'~_SfDi}?rp'~0N?x?r'~gO3fL3f`L3fOy_S`y?j}?r'~?r'~sL|1||?Nuy?x?r'~_K~e}?r'~?r'~_*@Ph}?r'~mnv3I<02&bI?r'~?~?r'~_ d R`}?r'r'~?r'~?r'~g|?r'~?r'~_|}?r'r'~qGqpx 8?r'~N9xpLy8xqp|}/x?r'~_Sdsi}?r'~`ACo#p0xc~?r'~}/x?r'~_KgD?e}?r'~}]5/x?r'~gO3fL3fsL3fay_C?@x?d}?r'~?r'~N|y||=ed\.x?r'~_Sp@i}?r'~?r'~_U(d}?r'~~~!8 >f$a?r'~~?r'~_d "a}?r'~?r'~?r'~?r'~x?r'~?r'~_|}?r'~?r'~oqB?x}?x?~~?r'~sL3fdyLs&rI?r'~}/~?r'~_C`R`}?rp'~?r'~?r'~g|?r'~?r'~_|}?r'~?r'~qc~!Nq8F1 3r?r'~.x?r'~_Sd i}?r'~?r'~?x?r'~_Kd@e}?rgs'~}/x?r'~gO3fL3fOgL3fLy_Kaq`}?r'~?r'~s";:A$::255:250O N:"DOS error #";ER;" has occurred.":A"Y"520! D$;"PR#1":(9)"80N"1 S15::S< A1NP LL1:L26150b 10);L$(A):i Ax D$;"PR#0" D$;"RUN MENU"  ERROR HANDLING ER(222) &D$;"CLOSE ";NF$ 0ER5F1450 :ER5420$ DER6ĺ:"File not found.,D$;"READ ";NF$' 6L$"":X(16384)7 @X127İ190? JC$N TC$R$370[ ^L$L$C$d h330o rR$;D$ |L$(N)L$:NN1 F1300 :CA$;L$ 300 255::5)"Output to the printer? (Y/N> ";::A$: A$"Y"A$"N"420 A$ L0:AA1:500' X198SPSP10; X211SPSP10L SP10SP10_ SP255SP255g SP{ X0:16368,0: MAIN PROGRAM :9)"Loading data. Be sure" :9)"the printer is ready." D$;"VERIFY ";NF$ "D$;"OPEN ";NF$ 1:2608 n12:3)" To change the speed during this"u x:3)"presentation touch ";::"F";::" for Faster or" :3);::"S";::" for Slower. Touch any key => ";:A$: :165:SP165:280 S14::S 40);P:PP1 S111::SP READER 40 COLUMN*L$(500):255?CA$(1):D$(4)T(R$(13):N1:P1g2NF$"IN":34,0q<540F:1);::"**> CHECKMASTER(TM) INSTRUCTIONS <**":P8:9:"SCREEN OR PRINTER (S/P>";:A$:A$ZA$"S"A$"P"80 dA$"P"F1y to continue or 'CONTROL,RESET'"E ":"to cancel. Key =>";:A$:O ,34,0a 6D$;"BRUN FC"D;"RUN RE" D$;"RUN SS"+ D$;"RUN WC"< D$;"RUN MD"M D$;"RUN SE"^ D$;"RUN SB" :"Install a new, blank disk or your Back-" :"up Disk in Drive 2. This system only" :"works for those with two drives. Touch"" :"any ke CHECKS"' d:T)"(4) MAKE DEPOSITS"E n:T)"(5) SEARCH & EDIT"c x:T)"(6) THE STATEMENT" :T)"(7) BACKUP SYSTEM" :T2)"< TOUCH # KEY)<" 20:T);">";:A$:A$ A(A$) A1A710 A190,200,210,220,230,240,250 D$b CHECKMASTER(TM) MENU534,0:D$(4)::255L ** MAIN MENU **(:7);::"*>>> CHECKMASTER(TM) <<<*"::34,22:8)"(c) 1989 by Adrian Vance"<T11F6:T)"(1) INSTRUCTIONS*"P:T)"(2) SYSTEM SETUP" Z:T)"(3) WRITE  I|>GNΠΠ ŠԠŠ?r'~?r'~'GV*UK?r'~~wrx?9?r` x: ȱ ȱ"! x `,U,R@ ,T,R WP` ȭȩȭ"ȭ!ȥ  ȭ ȭ H`n ^) )  C M`  "! ` ɍH hɋؠ   8; ȱ  ` / XXȹX ` ` 5 &I&  y"A$"N"A$"n"340{ hA$"Y"A$"y":FB1:FD0:NX$"":AF$"":ME$"":DA$(DA$,(DA$)1):DA$(DA$,(DA$)1):F20:630 r:"(1) Pay to the order of:" |:"=>";:50:NX$IN$ FE530 :"(2) Check amount in figures:" :"=>";:50:AF$IN"=>";:50:DA$IN$:F20; :"Is this OK? (Y/N> ";:A$:A$d "A$"Y"A$"N"A$"y"A$"n"260t ,A$"N"260} 6FD1 @:"Check Number: ";CK;" Balance $";BL JCK$(CK) T:"Is this to be a blank check? (Y/N> ";:A$:A$ ^A$"Y"A$"$"blank":ME$"blank":R 34,0::7);::"*>>> WRITE CHECKS <<<*"::34,2d D$;"OPEN D1"v D$;"READ D1" CK:AC$:BL:FR$:NA$:SA$:CS$:BN$:BA$:BC$ D$;"CLOSE D1" FD320 :"Input today's date as 'July 1, 1989':" : WRITE CHECKS, "WC"4D$(4):34,0:ST$"0"=200O( SUBROUTINES^2T3:IN$""n<T:C$:C$;~FC$(13)ıPC$(8)C$(136)ī100ZIN$IN$C$:TT1:60dTT1:T350nIN$(IN$,(IN$)1):60 xNX$"blank":AF$"blank":AM     RUN MENU"DCK:AC$:BL:FR$:NA$:SA$:CS$:BN$:BA$:BC$BD$;"CLOSE D1"VD$;"DELETE R1"lD$;"OPEN R1,L80"D$;"WRITE R1,R0" 0D$;"CLOSE R1" D$;"DELETE R2"*D$;"OPEN R2,L50"4D$;"WRITE R2,R0">0HD$;"CLOSE R2" RD$;"l"(6) ";SA$ v"(7) ";CS$3:"(8) ";BN$D"(9) ";BA$U"(10) ";BC$:"Any changes? Input # or NO =>";:IN$IN$"NO"710N(IN$):FE1N200,240,280,350,390,430,460,490,520,550D$;"OPEN D1"D$;"WRITE D1"/ address?"#:"=>";:50:BA$IN$/FE570[&:"And, its city, state and ZIP code?"t0:"=>";:50:BC$IN$::"(1) Starting Check #";CKD:"(2) Account ";AC$N:"(3) Balance: $";BL$X:"(4) Federal Reserve #";FR$b:"(5) ";NA$"What is your street address?"7 :"=>";:50:SA$IN$C FE570s :"What is your city, state and ZIP code?" :"=>";:50:CS$IN$ FE570 :"What is the name of your bank?" :"=>";:50:BN$IN$ FE570 :"What is its street is the Federal Reserve number that"M h:"appears on your printed checks?"f r:"=>";:50:FR$IN$r |FE570 :"What name, or names, do you want on the" :"check? Input one or both on one line." :"=>";:50:NA$IN$ FE570 ::"=>";:50:AC$IN$ FE570G :"What is your account balance?"` ":"=>";:50:BL$IN$p ,N1(BL$) 6(BL$,N,1)","L$(BL$,N1):R$(BL$,(BL$)N):P$(L$,(L$)1)(R$,(R$)1):BL(P$):340 @N JBL(BL$) TFE570$ ^:"What:"." :15)"=>";:IN$: IN$"YES"ĺD$;"RUN MENU"h :"What is the starting number for this" :"series of checks? =>";:CK CK0200 FE570 :"What is your account number, as it is" :"shown on your printed checks?" MASTER(TM) <<<*"::34,23 :14)"System Setup"d :" Use this system to start a new account" :"or renew this disk. Running to the end" :"will erase all records on this disk." :"If you wish to do this type/input: ";::"YES";:  SYSTEM SETUP, "SS"&D$(4)/120A( SUBROUTINESS2T3:IN$(34)c<T:C$:C$;FC$(13)IN$IN$(34):PC$(8)C$(136)ī100ZIN$IN$C$:TT1:60dTT1:T350nIN$(IN$,(IN$)1):60 x:7);::"*>>> CHECK     L$(DP$,N1):R$(DP$,(DP$)N):P$L$R$:AM(P$):BLBLAM:DP$P$:320O "Nf ,AM(DP$):BLBLAM{ 6 RESTORE QUOTES @DT$(34):DT$DT$DA$(34):DA$DT$ JDT$(34):DT$DT$DP$(34):DP$DT$ TDT$(34):DT$DT$AC$(34):AC$DT$ ^DT$(34(Y/N> ";:A$:A$9 A$"Y"A$"N"A$"y"A$"n"180I A$"N"180x :"Type/input the amount of the deposit:" :"=>";:50:DP$IN$ :"Is this OK? (Y/N>";:A$: A$"Y"A$"N"A$"y"A$"n"250 N1(DP$)H (DP$,N,1)","AKE DEPOSITS <<<*"::34,2. D$;"OPEN D1"@ D$;"READ D1"t CK:AC$:BL:FR$:NA$:SA$:CS$:BN$:BA$:BC$ D$;"CLOSE D1" FD230 :"Input today's date as ";(34);"July 1, 1989";(34);":" :"=>";:50:DA$IN$ :"Is this OK?  MAKE DEPOSITS, "MD"5D$(4):34,0:ST$"0">120P( SUBROUTINES_2T3:IN$""o<T:C$:C$;FC$(13)ıPC$(8)C$(136)ī100ZIN$IN$C$:TT1:60dTT1:T350nIN$(IN$,(IN$)1):60 x34,0::8);::"*>>> M E R1"D$;"OPEN R1,L80"3D$;"WRITE R1,R";R%ZST$:DA$:CK$:NX$:AF$:AM$:ME$mD$;"CLOSE R1":"Another? (Y/N> ";:A$:A$A$"Y"A$"y"A$"N"A$"n"1210A$"Y"A$"y"200D$;"RUN MENU"FB0D$;"OPEN D1")$D$;"WRITE D1"].CK:AC$:BL:FR$:NA$:SA$:CS$:BN$:BA$:BC$p8D$;"CLOSE D1"BD$;"OPEN R1,L80"LD$;"READ R1,R0"VR%:R%R%1`D$;"CLOSE R1"jD$;"OPEN R1,L80"tD$;"WRITE R1,R0"~R%D$;"CLOS(34):DT$DT$BA$(34):BA$DT$FDT$(34):DT$DT$BC$(34):BC$DT$SFBİ120{DT$(34):DT$DT$NX$(34):NX$DT$DT$(34):DT$DT$AF$(34):AF$DT$DT$(34):DT$DT$AM$(34):AM$DT$DT$(34):DT$DT$ME$(34):ME$DT$CKCK1:$:F21.DT$(34):DT$DT$AC$(34):AC$DT$VDT$(34):DT$DT$FR$(34):FR$DT$~DT$(34):DT$DT$NA$(34):NA$DT$DT$(34):DT$DT$SA$(34):SA$DT$DT$(34):DT$DT$CS$(34):CS$DT$DT$(34):DT$DT$BN$(34):BN$DT$DT$ ............................ *"UH"*";5);"Account ";AC$;47(AC$))"*"R"************************************************************"\N15::NfD$;"PR#0"p RESTORE QUOTESzF2910DT$(34):DT$DT$DA$(34):DA$DT10);AM$;DL$;42(AM$))"*"_ "* ................................................... *""*";5);BN$;55(BN$))"*" "*";5);BA$;55(BA$))"*"*"*";5);BC$;55(BC$))"*"4"*";5)"For: ";ME$;50(ME$))"*"*>"* *"`"* Pay to: ";NX$;31(NX$));"$";AF$;16(AF$))"*""* ................................................... *"FBĺ"* *":FB0:780"*";*****************************************************"g"*";5);NA$;45(NA$));CK$;11(CK$));"*""*";5);SA$;55(SA$))"*""*";5);CS$;31(CS$))"Date: ";DA$;19(DA$))"*""*";45);FR$;15(FR$))"*"$"* X:"Which one? =>";:A$:5bA(A$):A1A4600QlFE1:A370,400,470,510v:"Shall we print this check? (Y/N>";:A$:A$A$"Y"A$"N"A$"y"A$"n"630A$"N"A$"n"890DL$" Dollars"D$;"PR#1":(9);"80N"6"*******470 FE530" :"(4) For:"; :"=>";:50:ME$IN$U :"(1) Pay to: ";NX$g :"(2) ";AF$y &:"(3) ";AM$ 0:"(4) For: ";ME$ ::"Everything OK? (Y/N> ";:A$:A$ DA$"Y"A$"N"A$"y"A$"n"570 NA$"Y"A$"y"FE0:630$ N1(AF$)f (AF$,N,1)","L$(AF$,N1):R$(AF$,(AF$)N):P$L$R$:AM(P$):BLBLAM:460m N AM(AF$):BLBLAM FE530 :"(3) Amount (in words)" :"=>";:50:AM$IN$ (AM$)36ĺ:"Too long. Try again. Key>";:A$::A(A$):A1A8880@A930,990,1050,1110,1170,1230,1280,910SD$;"RUN MENU"l OUTSTANDING CHECKSxN1R%ST$(N)"0"İ140NNR%53050 SEARCH FOR DATE:"Input date:"::"=>";:60:DX$IN$NA%R% DA$AD R2,R0" D%$D$;"CLOSE R2"A DD$(D%),DP$(D%),SD$(D%)W*D$;"OPEN R2,L50"c4N1D%y>D$;"READ R2,R";NHDD$(N):DP$(N):SD$(N)RN\D$;"CLOSE R2"fFD1: DATA LOADEDp:5)"Touch number key of choice => ";:A$:A$zA$::D$;"RUN MENU"PST$(R%),DA$(R%),CK$(R%),NX$(R%),AF$(R%),AM$(R%),ME$(R%)fD$;"OPEN R1,L80"rN1R%D$;"READ R1,R";NST$(N):DA$(N):CK$(N):NX$(N):AF$(N):AM$(N):ME$(N)ND$;"CLOSE R1"D$;"OPEN R2,L50" D$;"REits (8) Exit "!XFD8803bD$;"OPEN D1"ElD$;"READ D1"yvCK:AC$:BL:FR$:NA$:SA$:CS$:BN$:BA$:BC$D$;"CLOSE D1"D$;"OPEN R1,L80"D$;"READ R1,R0"R%D$;"CLOSE R1"R%0ĺ:"There are no records. Key>";:0::8);::"*>>> SEARCH/EDIT <<<*"::34,2c6:2)"Which field would you care to search?"k&T60:T)"(1) Outstanding (2) Date"::T)"(3) Check Number (4) Name"D:T)"(5) Class (memo) (6) blank"N:T)"(7) Depos =>";:A$:A$&A(A$):A1A3470UA$"1"ĺ:"Date:"::"=>";:60:DD$(N)IN$A$"2"ĺ:"Input figures. No commas. =>";:DP$(N)A$"3"ĺ:"Touch 1 if the deposit is on the state-"::"ment or 0 if not: =>";:A$:SD$(N)A$390034, DEPOSIT :"(1) ";DD$(N)2 :"(2) ";DP$(N)f SD$(N)"1"ĺ:"(3) Deposit on statement.":440 :"(3) Deposit not on statement." :"Changes? (Y/N>";:A$: A$"Y"A$"y"A$"N"A$"n"440 A$"N"A$"n"1880 :"Which one?:NX$(N)IN$j ^A5AF(AF$(N))::"Input figures. No commas. =>";:AF$(N):DFAF(AF$(N)):BLBLDF:FS1 hA6ĺ:"Input correct word amount."::"=> ";:60:AM$(N)IN$ rA7ĺ:"Input correct class:"::"=>";:60:ME$(N)IN$ |140 : DISPLAYck returned 0 if not =>";:ST$(N)A 6ST(ST$(N)):ST0ST1300s @A2ĺ:"Input date:"::"=>";:60:DA$(N)IN$ JA3ĺ:"You cannot change the check number."::"Touch any key to continue. =>";:A$: TA4ĺ:"Input corrected name."::"=>";:60 :"(7) Class: ";ME$(N)A :"Any changes? (Y/N> ";:A$:A$j A$"Y"A$"y"A$"N"A$"n"230 FM(A$"N"A$"n")ı FM(A$"N"A$"n")1340 FM1 :"Which one? =>";:A$:A$ "A(A$):A1A7280! ,A1ĺ:"Input 1 if cheN$,(IN$)1):70 FEı5 : DISPLAY CHECK DATA^ ST$(N)"0"ĺ"(1) Check Outstanding" ST$(N)"1"ĺ"(1) Check Returned" :"(2) ";DA$(N) :"(3) Check Number ";CK$(N) :"(4) To: ";NX$(N) :"(5) $";AF$(N) :"(6) ";AM$(N) SEARCH/EDIT, "SE"+D$(4):34,04530G( SUBROUTINES~2:5)"End of data. Touch any key =>";:A$::530<T3:IN$""FT:C$:C$;PC$(13)ıZC$(8)C$(136)ī110dIN$IN$C$:TT1:70nTT1:T360 xIN$(I        DA$:DP$:ST$!D$;"CLOSE R2"C&:"Another? (Y/N> ";:A$:A$l0A$"Y"A$"y"A$"N"A$"n"550:A$"Y"A$"y"120DD$;"RUN MENU"NU"A"Y"A$"y"200D$;"RUN MENU"A34):BC$DT$  SAVE RECORDS0 D$;"OPEN D1"C D$;"WRITE D1"w CK:AC$:BL:FR$:NA$:SA$:CS$:BN$:BA$:BC$ D$;"CLOSE D1" D$;"OPEN R2,L50" D$;"READ R2,R0" R%:R%R%1 D$;"WRITE R2,R0" R% D$;"WRITE R2,R";R%):DT$DT$FR$(34):FR$DT$C hDT$(34):DT$DT$NA$(34):NA$DT$k rDT$(34):DT$DT$SA$(34):SA$DT$ |DT$(34):DT$DT$CS$(34):CS$DT$ DT$(34):DT$DT$BN$(34):BN$DT$ DT$(34):DT$DT$BA$(34):BA$DT$ DT$(34):DT$DT$BC$("SD$(N)"1":21305 "A$"N"A$"n"CBCB(DP$(N)); ,t 34,0::8);::"*>>> THE STATEMENT <<<*"::34,2 4:" Please sort all returned checks in" :"numerical order. We will display all" :"currently outstanding and you caA$"r"A$"N"A$"n"120@ A$"R"A$"r"ST$(N)"1":2010\ A$"N"A$"n"CBCBAMb y :"Date: ";DD$(N) :"Amount: $";DP$(N) :"Is this on the statement? (Y/N>";:A$:A$ A$"Y"A$"y"A$"N"A$"n"240 A$"Y"A$"y #";CK$(N) :"To: ";NX$(N)3 Z1(AF$(N)) (AF$(N),Z,1)","L$(AF$(N),Z1):R$(AF$(N),(AF$(N))Z):P$L$R$:AM(P$):180 Z AM(AF$(N)) :"Amount: $";AF$(N) :"If returned touch R or N if not. Key>";:A$: A$"R"x STATEMENT BALANCE, "SB"9D$(4):G$(7):34,0B500U( SUBROUTINESd2T3:IN$""t<T:C$:C$;FC$(13)ıPC$(8)C$(136)ī100ZIN$IN$C$:TT1:60dTT1:T350nIN$(IN$,(IN$)1):60 x:"Date: ";DA$(N);"     FS0:N SAVE R2?XDT$(34):DT$DT$DD$(N)(34):DD$DT$jbDT$(34):DT$DT$DP$(N)(34):DP$DT$lDT$(34):DT$DT$SD$(N)(34):SD$DT$vD$;"OPEN R2,L50"D$;"WRITE R2,R";NDD$:DP$:SD$D$;"CLOSE R2"60 xIN$(I$DT$CS$(34):CS$DT$?DT$(34):DT$DT$BN$(34):BN$DT$gDT$(34):DT$DT$BA$(34):BA$DT$DT$(34):DT$DT$BC$(34):BC$DT$D$;"OPEN D1"&D$;"WRITE D1"0CK:AC$:BL:FR$:NA$:SA$:CS$:BN$:BA$:BC$:D$;"CLOSE D1"D$:CK$:NX$:AF$:AM$:ME$-D$;"CLOSE R1"6FM0D SAVE D1OFSıwDT$(34):DT$DT$AC$(34):AC$DT$DT$(34):DT$DT$FR$(34):FR$DT$DT$(34):DT$DT$NA$(34):NA$DT$DT$(34):DT$DT$SA$(34):SA$DT$DT$(34):DT$DT$DA$(N)(34):DA$DT$E^DT$(34):DT$DT$NX$(N)(34):NX$DT$phDT$(34):DT$DT$AF$(N)(34):AF$DT$rDT$(34):DT$DT$AM$(N)(34):AM$DT$|DT$(34):DT$DT$ME$(N)(34):ME$DT$D$;"OPEN R1,L80"D$;"WRITE R1,R";NST$:DA ............................ *"d"*";5);"Account ";AC$;47(AC$))"*"""************************************************************",N15::N6D$;"PR#0"@ SAVE R1JCK$CK$(N):ST$ST$(N)TDT$(34):DT1500*"*";10);AM$;DL$;42(AM$))"*"n"* ................................................... *""*";5);BN$;55(BN$))"*""*";5);BA$;55(BA$))"*""*";5);BC$;55(BC$))"*""*";5)"For: ";ME$;50(ME$))"*"9"* *"n"* Pay to: ";NX$;31(NX$));"$";AF$;16(AF$))"*""* ................................................... *"FBĺ"* *":FB0:Dx"************************************************************"u"*";5);NA$;45(NA$));CK$;11(CK$));"*""*";5);SA$;55(SA$))"*""*";5);CS$;31(CS$))"Date: ";DA$;19(DA$))"*""*";45);FR$;15(FR$))"*"2"* DA$İ390N(50(2 PRINT/SAVEY<:"Shall we print this check? (Y/N>";:A$:FA$"Y"A$"y"A$"N"A$"n"1340PA$"N"A$"n"1610ZCK$CK$(N):DA$DA$(N):AF$AF$(N)dNX$NX$(N):AM$AM$(N):ME$ME$(N)nD$;"PR#1":(9);"80N"ass (memo):"::"=>";:ME$&N1R%;ME$(N)ME$İ140BNJ50W BLANKcN1R%AF$(N)"blank"AM$(N)"blank"ME$(N)"blank"İ140N50 DEPOSITSFE1::"Input date:"::"=>";:60:DA$IN$ N1D%DD$(N)(N)DX$İ140N50) CHECK #N:"Input check number =>";:IN$Z$N1R%o.CK$(N)IN$İ140v8N~B50L NAMEV:"Input name:"::"=>";:60:NX$IN$`N1R%jNX$(N)NX$İ140tN~50 CLASS:"Input cl嬠嬠젠젠堠젍栠堍렠ᠢ򬢠򬠠䬠堍ծӮ䠍塠蠍堠䠠䠠䠠󮠠栍󮠠򬠠젠堍栠󮠠䬠䠠ᠢ墠᠍堠嬠뮠堍ᠠ砍     D$;"OPEN D1"%D$;"WRITE D1"YCK:AC$:BL:FR$:NA$:SA$:CS$:BN$:BA$:BC$l D$;"CLOSE D1"w FS0:D$(13)ıPC$(8)C$(136)ī100ZIN$IN$C$:TT1:60dTT1:T350nIN$(IN$,(IN$)1):60 x:"Date: ";DA$(N);"R$(34):FR$DT$8DT$(34):DT$DT$NA$(34):NA$DT$`DT$(34):DT$DT$SA$(34):SA$DT$DT$(34):DT$DT$CS$(34):CS$DT$DT$(34):DT$DT$BN$(34):BN$DT$DT$(34):DT$DT$BA$(34):BA$DT$DT$(34):DT$DT$BC$(34):BC$DT$SE R1" >H SAVE R2PRDT$(34):DT$DT$DD$(N):DT$DT$(34):DD$(N)DT$f\D$;"OPEN R2,L50"}fD$;"WRITE R2,R";NpDD$(N):DP$(N):SD$(N)zD$;"CLOSE R2" SAVE D1DT$(34):DT$DT$AC$(34):AC$DT$DT$(34):DT$DT$F):DT$DT$NX$(N)(34):NX$DT$IDT$(34):DT$DT$AF$(N)(34):AF$DT$tDT$(34):DT$DT$AM$(N)(34):AM$DT$ DT$(34):DT$DT$ME$(N)(34):ME$DT$D$;"OPEN R1,L80" D$;"WRITE R1,R";N*ST$:DA$:CK$:NX$:AF$:AM$:ME$4D$;"CLOd you should enter a correction of"Vj:BLCB;" if you are keeping a paper record."t:"Touch any key to return to Main Menu>";:A$:~D$;"RUN MENU" SAVE R1CK$CK$(N):ST$ST$(N)DT$(34):DT$DT$DA$(N)(34):DA$DT$DT$(34in-"1:"put the amount here with no commas."B:"=>";:INO$BLBLIN.:"If there were any services charges, sum"8:"all and input with no commas."B:"=>";:SCLBLBLSC:2200V:"Your account balance is now $";BL#`:"an"y"A$"N"A$"n"910/A$"N"A$"n"850R:"Outstanding Checks:":34,4^N1R%sST$(N)"0"İ120zNG$:G$34,2::"Deposits:":34,4N1D%SD$(N)"0"İ240N34,2::"If the account earned any interest, New Balance printed on"?H:"the front of your statement?"XR:"=>";:50:SB$IN$h\N1(SB$)f(SB$,N,1)","L$(SB$,N1):R$(SB$,(SB$)N):P$L$R$:SB(P$):900pNzSB(SB$)CBSB:"OK? (Y/N>";:A$:A$A$"Y"A$E R1" GET DEPOSITS.D$;"OPEN R2,L50"CD$;"READ R2,R0"KD%^D$;"CLOSE R2"{DD$(D%),DP$(D%),SD$(D%)D$;"OPEN R2,L50" N1D%D$;"READ R2,R";N DD$(N):DP$(N):SD$(N)*N4D$;"CLOSE R2">:5)"What is the%0ĺ:"There are no records. Key>";:A$::D$;"RUN MENU"w ST$(R%),DA$(R%),CK$(R%),NX$(R%),AF$(R%),AM$(R%),ME$(R%) D$;"OPEN R1,L80" N1R% D$;"READ R1,R";N ST$(N):DA$(N):CK$(N):NX$(N):AF$(N):AM$(N):ME$(N) ND$;"CLOSn check"9 :"them off on this disk and on the state-"H &:"ment."Z 0D$;"OPEN D1"l :D$;"READ D1" DCK:AC$:BL:FR$:NA$:SA$:CS$:BN$:BA$:BC$ ND$;"CLOSE D1" XD$;"OPEN R1,L80" bD$;"READ R1,R0" lR% vD$;"CLOSE R1": {RԠŠ٢ƢԠƢϠĢӢԠ梍䢍𠹬ΠȢΠԢά٢Ԡ̢ȠȠǠȢ뢍ᬠᬠ栍堠堍堠宠堠堠嬠֠󬠠㮬ᠠ嬠ᠠᬠ젠栠뮠堠堠堠젍䠠뮠栠󮠠堍堠䠠砍䠠宠堍堠堍렠堠젠堠堢젍젍䠍󮠠堢󮠠堠᠍뮠렠堠ɫ󮍠堠𢠍堢󢠍砠뮠젍䠍堢Ӎ嬠䠍宠뮠젍ͬ᠍󮠠ᠠ렍󮠠堠󠳵묠䠠䮠堍𢠠䠍ᮠ砠蠍OF WITHDRAWALS PER YEAR = ";M::"NUMBER OF YEARS = ";N:EEM100:PK(E((1E)(MN)1)E):"YOU MAY WITHDRAW $";(P100.5)100::"FROM YOUR ACCOUNT ";M;" TIMES":"PER YEAR."::"FOR ";N;" YEARS WITHOUT REDUCING"::"THE PRINCIPAL.":4:B$"Y"221)::n"REGULAR DEPOSITS OF $";(P100.5)100;" FOR ":;N;" YEARS WILL YIELD $";O;" .":::4:B$"Y"19u7]3:2:6)" REGULAR WITHDRAWALS FROM":14)"AN INVESTMENT":2:"INITIAL INVESTMENT = $";K:"INVESTMENT EARNING RATE = ";E::"NUMBER 0:4:B$"Y"1673:2:7)"FUTURE VALUE OF AN ANNUITY":11)"OR SAVINGS ACCOUNT":2:"TOTAL VALUE AFTER Y YEARS = ";O::"THE INTEREST RATE = ";E::"NUMBER OF DEPOSITS EACH YEAR = ";M::"THE NUMBERS OF YEARS = ";N:EEM100:POE((E1)(MN)LUE OF REGULAR DEPOSITS":15)"(ANNUITY)"::2:"AMOUNT OF REGULAR DEPOSIT = ";P::"THE INTEREST RATE = ";E::"THE NUMBER OF DEPOSITS EACH YEAR = ";M::"THE NUMBER OF YEARS ";N:EEM100:OP((1E)(MN)1)E:10)"FUTURE VALUE = $";(O100.5)10STMENT"::2:"INITIAL INVESTMENT = ";K::"THE INTEREST RATE = ";E::"NUMBER OF COMPOUNDING PERIODS/YEAR = ";M::"THE NUMBER OF YEARS = ";N::EEM100:OK(1E)(MN):"FUTURE VALUE = $";(O100.5)100:4 B$"Y"13 73:2:4)"FUTURE VAN BALANCE":"(17) LOAN REPAYMENT PERIODS":"(18) MORTGAGE AMORTIZATION TABLE":2:4);") <= TYPE/INPUT NUMBER)":22:C$:H(C$):H13,16,19,22,25,28,31,34,37,40,44,48,51 H14IH13 I54,57,61,64,67 7 3:2:" FUTURE VALUE OF AN INVEVE INTEREST RATES":"(9) ANNUAL DEPRECIATION RATE":"(10) DEPRECIATED INVESTMENT":"(11) SALVAGE VALUE, YEAR END":"(12) DISCOUNTED COMMERCIAL PAPER":"(13) LOAN PRINCIPAL":"(14) LOAN PAYMENT SCHEDULES" "(15) FINAL LOAN PAYMENT":"(16) REMAINING LOAFUTURE VALUE OF AN INVESTMENT":"(2) FUTURE VALUE OF AN ANNUITY":"(3) FUTURE VALUE OF SAVINGS":"(4) WITHDRAWALS FROM INVESTMENT":"(5) MINIMUM INVESTMENT FOR AN INCOME":"(6) INCOME FROM INVESTMENTS" "(7) NOMINAL INTEREST RATES":"(8) EFFECTI"::"SAVING AND ANNUITY PLANS, MORTGAGES AND" :"LOANS, DEPRECIATION AND AMORTIZATION"::"SCHEDULES AND MUCH MORE.":2::"SELECT A PROGRAM FROM THE MENU BY TYPE/"::"INPUTTING ITS NUMBER."::22:15)"(TOUCH KEY>";:A$ :18)"MENU":2:"(1) 9 ::5#E140:"-";:E:+:O:13)"ANOTHER? (Y/N) ";:B$:. 11);::"THE FINANCIAL ANALYST"::2::"THIS SERIES OF PROGRAMS IS DESIGNED TO"::"AID YOU IN BUSINESS PLANNING. YOU WILL"::"FIND PROGRAMS FOR ANALYZING INVESTMENT,          i 8 Ӡ$ [$ [ L hh L@ HH`,,, `ݩ ɰ$0 ` d' P 2 0 1 0 1 7 7 .  + / C 3 #ЈL 3 4 .4 g3 i$0 i [0 5 6 0 /   8 ĠҠ L / / , 00 00 Ј4 LQ 3 3 #0 LC `$ [6 5-   87  " 8 ҠǠà L $ [ 8 ŠϮ i 8 Ԡ˿ W 2 .   8 ԠҠ L - 2 3 1 0 + / 7  C 3 2 3 X 8 ŠҠ̿ W ɱɲ%֢- . 8 ǠϠŠ!- . 8 ǠϠŠ $ [ 8 ưưt, $ [0 1 2 5 6    VEM)100.5)100:APT:VVA:W:"THE LAST PAYMENT FOR THIS LOAN,":"WILL BE $";((PV)100.5)100:4:B$"Y"57z!<7l"=3:2:7)"REMAINING BALANCE ON A LOAN"::2:"NUMBER OF PAYMENTS PER YEAR = ";M::"ANNUAL INTEREST RATE = ";E::"AMOUNT OF EACMENT ON A LOAN"::2:"LIFE OF THE LOAN IN YEARS = ";N:"ANNUAL INTEREST RATE = ";E::"AMOUNT OF EACH PAYMENT = ";P::"PAYMENTS PER YEAR = ";M::"AMOUNT OF LOAN PRINCIPAL = ";K::RE:EE100:VK :MN100ĺ20)"WORKING THE PROBLEM"s!;W1MN:T((;K:::P((E100)KM)(11((E100)M1)(MN)):RE7"PAYMENTS OF $";(P100.5)100;" ";M;" TIMES EACH YEAR":"ARE REQUIRED TO SATISFY":"A LOAN OF $";K;" FOR ";N;" YEARS":"AT AN INTEREST RATE OF ";R;"%.":4:B$"Y"5487 93:2:9)"LAST PAY100)M1)(MN))(E100)::"THE PRINCIPAL IS $";(K100.5)100:4R4B$"Y"51Y57463:2:8)"REGULAR PAYMENT ON A LOAN"::2:"LIFE OF LOAN IN YEARS = ";:N:"ANNUAL INTEREST RATE = ";:E:"HOW MANY PAYMENTS ANNUALLY? ";M:"PRINCIPAL AMOUNT = "HE DISCOUNT AMOUNT":"WILL BE $";U;" AT A COST OF ";OU:4:B$"Y"48L27C33:2:10)"PRINCIPAL ON A LOAN"::2:"PAYMENTS PER YEAR = ";M::"AMOUNT OF EACH PAYMENT = ";P::"ANNUAL INTEREST RATE = ";E::"LIFE OF LOAN IN YEARS = ";N:KPM(11((EISCOUNTED":" PAPER..":2::"FUTURE VALUE OF THE NOTE = ";O:"DISCOUNT RATE = ";D::"NUMBER OF DAYS TO MATURITY = ";M:DD100:UODM360::"IF YOU PURCHASE A NOTE WORTH $";OE1"DUE IN ";M;" DAYS AT A DISCOUNT":"RATE OF ";D100;"%, TAL PRICE OF THE ITEM = ";K::"DEPRECIATION RATE = ";E::N110:S(100K(1E100)N.5)100:"YEAR ";N;" SALVAGE VALUE = $";S::GG1:G5G0-"TOUCH RETURN FOR NEXT":D$::S2ĂN.4:B$"Y"44/703:2:" CALCULATE THE NET COST OF D100::N110:DKE(1E)(N1):"YEAR #";N;" DEPRECIATION = $";(D100.5)100::GG1:G5G0)"TOUCH RETURN FOR NEXT";:D$::D2ĂN*4:B$"Y"2450+7,3:2:" CALCULATE THE SALVAGE VALUE":" OF AN ITEM...":2:"ORIGIN:"AND SOLD IT ";N;" YEARS LATER":"FOR $";O;", THE ACTUAL DEPRECIATION":"RATE IS ";(1000D.5)1000;"%.":4:B$"Y"37'7a(3:2:5)"AMOUNT DEPRECIATED WITHIN A YEAR":2:"ORIGINAL PRICE OF THE ITEM = ";K::"WHAT PERCENT DEPRECIATION? ";E::EEY"34 $7%3:2:" ANNUAL DEPRECIATION RATE OF AN INVESTMENT"::2:"ORIGINAL ITEM PRICE = ";K::"RESALE PRICE OF ITEM = ";O::"ITEM'S LIFE IN YEARS = ";N::D100(1(OK)(1N))::"IF YOU PURCHASED THE ITEM FOR $";Ky&"3:2:" EFFECTIVE INTEREST RATE ON INVESTMENT"::2:"INITIAL INVESTMENT = $";K::"FINAL VALUE = $";O::"LIFE OF INVESTMENT IN YEARS = ";N::"THE EFFECTIVE ANNUAL INTEREST RATE OF"::"THE INVESTMENT IS ";((OK)(1N)1)100;"%.":4#B$"ENT = ";N::"COMPOUNDING PERIODS PER YEAR = ";M:TM((OK)(1(MN))1)100: "WHEN AN INVESTMENT OF $";K;" IS,":"HELD FOR ";N;" YEARS":"COMPOUNDING ";M;" TIMES PER YEAR":"AND YIELDS $";O;",":"THE INTEREST RATE IS ";T;"%.":4:B$"Y"31!7PERCENT PER YEAR TO ALLOW MONTHLY":"WITHDRAWALS OF $";P;" FOR ";N;" YEARS.":4:B$"Y"28a7N3:2:" NOMINAL INTEREST RATE ON INVESTMENTS"::2:"INITIAL AMOUNT DEPOSITED = ";K::"NET VALUE OF THE INVESTMENT = ";O::"NUMBER OF YEARS OF INVESTMRAWALS PER YEAR = ";M::"AMOUNT OF EACH WITHDRAWAL = ";P::"THE INTEREST RATE = ";E::"FOR HOW MANY YEARS? =>";N:RE:EE100:KPME(11((1EM)(MN))):Z"A MINIMUM INVESTMENT OF $";(100K.5)100;" MUST":"BE HELD AT AN INTEREST RATE OF ";R:"1E)(MN)::"YOU MUST INVEST $";(K100.5)100;" FOR A PERIOD":"OF ";N;" YEARS AT AN INTEREST RATE OF ";R;"% ":"COMPOUNDED ";M;" TIMES PER YEAR FOR $";O:::4:B$"Y"132073:2:6)" MINIMUM INVESTMENT FOR INCOME"::2:"NUMBER OF WITHD73:2:" INVESTMENT REQUIRED TO":" PROVIDE FUTURE VALUE.."::2:"AMOUNT DESIRED AFTER X YEARS = ";O::"# OF COMPOUNDING PERIODS/YEAR = ";M::"NUMBER OF YEARS OF INVESTMENT = ";N::"THE INTEREST RATE = ";E:RE:EEM100KO(0:"PMT INTEREST";16);"PRINCIPAL";26);" BALANCE":70EK100.5:BB100.5:C(C)100:L(L)100:K(K)100:B(B)100:C;7);L;17);K;27);B:FF1:F2073s&FBP69&GCC1:DBE100:C;(D)100,P(D)100:"LAST PAYMENT WAS...";(D)100B:4:B$"Y"67&HF0:78'I"TO CONTINUE TOUCH KEY>";:A$::F(11BM)%DPP100.5:P(P)100:"AMOUNT PER PAYMENT =";P:Q(PMA)100.5:Q(Q)100:"TOTAL INTEREST = ";Q:"TO BEGIN LISTING TOUCH KEY>";:A$::BA:"PMT. INTEREST";16);"PRINCIPAL";26);" BALANCE"f&ECC1:LBE:KPL:BBK:CC100.5:LL100.5:K"Y"64$B7 %C3:2:" THE MORTGAGE AMORTIZATION TABLE"::" COMPUTE INTEREST PAYMENTS..."::2:"PLEASE USE DECIMAL POINTS":2:C0:"AMOUNT OF LOAN = ";A:"INTEREST IN PERCENT = ";J:"TERM IN YEARS = ";M:JJ100:MM12:EJ12:B1E:PAE::2:"NUMBER OF PAYMENTS PER YEAR = ";M::"ANNUAL INTEREST RATE = ";E::"AMOUNT OF EACH PAYMENT = ";P::"AMOUNT OF LOAN PRINCIPAL = ";K::N((1(K(E100))(MP))((1E100M)M))$A"A TERM OF ";(N10.5)10;" YEARS SATISFIES THIS LOAN.":4:B$H PAYMENT = ";P::"LOAN PRINCIPAL = $";K::" (PAYMENT #, YEAR # )";X,N:EE100:VK:W1M(N1)X">R((VEM)100.5)100:APR:VVA:W::"THE REMAINING BALANCE IS $";(V100.5)100:4:B$"Y"61"?7#@3:2:10)"THE TERM OF A LOAN"򠱹뢍뢍뢍뢍 ! = ";N::"COMPOUNDING PERIODS PER YEAR = ";M:TM((OK)(1(MN))1)100: "WHEN AN INVESTMENT OF $";K;" IS,":"HELD FOR ";N;" YEARS":"COMPOUNDING ";M;" TIMES PER YEAR":"AND YIELDS $";O;",":"THE INTEREST RATE IS ";T;"%.":4:B$"Y"31!7"CENT PER YEAR TO ALLOW MONTHLY":"WITHDRAWALS OF $";P;" FOR ";N;" YEARS.":4:B$"Y"28^7K3:2:" NOMINAL INTEREST RATE ON INVESTMENTS"::2:"INITIAL AMOUNT DEPOSITED = ";K::"NET VALUE OF THE INVESTMENT = ";O::"NUMBER OF YEARS OF INVESTMENTALS PER YEAR = ";M::"AMOUNT OF EACH WITHDRAWAL = ";P::"THE INTEREST RATE = ";E::"FOR HOW MANY YEARS? =>";N:RE:EE100:KPME(11((1EM)(MN))):W"A MINIMUM INVESTMENT OF $";(100K.5)100;" MUST":"BE HELD AT AN INTEREST RATE OF ";R:"PER1E)(MN)::"YOU MUST INVEST $";(K100.5)100;" FOR A PERIOD":"OF ";N;" YEARS AT AN INTEREST RATE OF ";R;"% ":"COMPOUNDED ";M;" TIMES PER YEAR FOR $";O:::4:B$"Y"2573:2:6)" MINIMUM INVESTMENT FOR INCOME"::2:"NUMBER OF WITHDRAW73:2:" INVESTMENT REQUIRED TO":" PROVIDE FUTURE VALUE.."::2:"AMOUNT DESIRED AFTER X YEARS = ";O::"# OF COMPOUNDING PERIODS/YEAR = ";M::"NUMBER OF YEARS OF INVESTMENT = ";N::"THE INTEREST RATE = ";E:RE:EEM100KO(OF WITHDRAWALS PER YEAR = ";M::"NUMBER OF YEARS = ";N:EEM100:PK(E((1E)(MN)1)E):"YOU MAY WITHDRAW $";(P100.5)100::"FROM YOUR ACCOUNT ";M;" TIMES":"PER YEAR."::"FOR ";N;" YEARS WITHOUT REDUCING"::"THE PRINCIPAL.":4:B$"Y"221)::n"REGULAR DEPOSITS OF $";(P100.5)100;" FOR ":;N;" YEARS WILL YIELD $";O;" .":::4:B$"Y"19u7]3:2:6)" REGULAR WITHDRAWALS FROM":14)"AN INVESTMENT":2:"INITIAL INVESTMENT = $";K:"INVESTMENT EARNING RATE = ";E::"NUMBER 0:4:B$"Y"1673:2:7)"FUTURE VALUE OF AN ANNUITY":11)"OR SAVINGS ACCOUNT":2:"TOTAL VALUE AFTER Y YEARS = ";O::"THE INTEREST RATE = ";E::"NUMBER OF DEPOSITS EACH YEAR = ";M::"THE NUMBERS OF YEARS = ";N:EEM100:POE((E1)(MN)LUE OF REGULAR DEPOSITS":15)"(ANNUITY)"::2:"AMOUNT OF REGULAR DEPOSIT = ";P::"THE INTEREST RATE = ";E::"THE NUMBER OF DEPOSITS EACH YEAR = ";M::"THE NUMBER OF YEARS ";N:EEM100:OP((1E)(MN)1)E:10)"FUTURE VALUE = $";(O100.5)10STMENT"::2:"INITIAL INVESTMENT = ";K::"THE INTEREST RATE = ";E::"NUMBER OF COMPOUNDING PERIODS/YEAR = ";M::"THE NUMBER OF YEARS = ";N::EEM100:OK(1E)(MN):"FUTURE VALUE = $";(O100.5)100:4 B$"Y"13 73:2:4)"FUTURE VAN BALANCE":"(17) LOAN REPAYMENT PERIODS":"(18) MORTGAGE AMORTIZATION TABLE":2:4);") <= TYPE/INPUT NUMBER)":22:C$:H(C$):H13,16,19,22,25,28,31,34,37,40,44,48,51 H14IH13 I54,57,61,64,67 7 3:2:" FUTURE VALUE OF AN INVEVE INTEREST RATES":"(9) ANNUAL DEPRECIATION RATE":"(10) DEPRECIATED INVESTMENT":"(11) SALVAGE VALUE, YEAR END":"(12) DISCOUNTED COMMERCIAL PAPER":"(13) LOAN PRINCIPAL":"(14) LOAN PAYMENT SCHEDULES" "(15) FINAL LOAN PAYMENT":"(16) REMAINING LOAFUTURE VALUE OF AN INVESTMENT":"(2) FUTURE VALUE OF AN ANNUITY":"(3) FUTURE VALUE OF SAVINGS":"(4) WITHDRAWALS FROM INVESTMENT":"(5) MINIMUM INVESTMENT FOR AN INCOME":"(6) INCOME FROM INVESTMENTS" "(7) NOMINAL INTEREST RATES":"(8) EFFECTI"::"SAVING AND ANNUITY PLANS, MORTGAGES AND" :"LOANS, DEPRECIATION AND AMORTIZATION"::"SCHEDULES AND MUCH MORE.":2::"SELECT A PROGRAM FROM THE MENU BY TYPE/"::"INPUTTING ITS NUMBER."::22:15)"(TOUCH KEY>";:A$ :18)"MENU":2:"(1) 6 ::5#E140:"-";:E:+:O:13)"ANOTHER? (Y/N) ";:B$:. 11);::"THE FINANCIAL ANALYST"::2::"THIS SERIES OF PROGRAMS IS DESIGNED TO"::"AID YOU IN BUSINESS PLANNING. YOU WILL"::"FIND PROGRAMS FOR ANALYZING INVESTMENT,"" " " " " """""""""