' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!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`   LDcpq` [` ~  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õ`  \ 濭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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`*U*U*U* .""""< <"""<">$ "" &"""  "" ****$$$$"""$$0&< ,""""**"""$>>   *U"":*:<"">""$$$$$$$$$$$>$ $>>$ "2"<""">"""8 "  "$>"6*""""""&*2"""""""$$"""*,"" "" ">*"""""""""""""**"""""">"">>> >00000>* i @0 66$>>< (&20 *,  **> > "2*&" " >>  ">> "8""> """"""<  >> LKxHHD+(DA/(Dq'  I)(H  p闠 y) 񗰐 z$ r0θ4KHH0t# p y0p 9G @0ɩL[hHHϸȸI^hHHoTDD11266333--------------------26 $))6  ;36)))---(-(,2323232? 201 1 33 33621:##((((( ,-*)--((-- *-*.!!!!!!!!!!!!!!!!!!!!!!!!!!!!> 201 1  !!201 1 6 2013 13 !!201 1 #!!201 1 '22:# !!201 13 13 11666636666 -)))----- ----.6161266663333 ! )63 21() 4366 1?-*-*)----(((((6$88) )--((($ !!!!!!!!!!!!!!? .99Z(V1)Z(V1)1/(M)99.99Z(V1)Z(V1)1N(M)999.99Z(V1)Z(V1)1n(M)9999.99Z(V1)Z(V1)1(M)99999.99Z(V1)Z(V1)1(M)1Z(V1)Z(V1)1(M)0Z(V1)Z(V1)1 P(M)".00":70502v(((M)1)((P$(V1))2))7040VwM1((((10M)100).00001))100nxM2(10(M.00001)){M1M207045P$(V1)(M)"O"7050P$(V1)(M) LINES 7100-7180 LINE UP DIGITS ACCORDING TO PLACE VALUE(M)9$(V1);:V1 " "H P *** SUBROUTINE FOR SETTING YEAR AND COUNTERS ***YM31a Q1zYI0:YP0:YA0:YY1PR2İ1000hXM(M100.5)100ZM0P$(V1)"0.00":7050]P$(V1)(M)b(100M)(100(M))07030lP$(V1)70003l MYA:V17:P$(V1)(M):Z(V1)89:7100:7000cv MLI:V18:P$(V1)(M):Z(V1)105:7100:7000 MLP:V19:P$(V1)(M):Z(V1)116:7100:7000 MLA:V110:P$(V1)(M):Z(V1)127:7100:7000 M310ĺ" "; M3;"-1-";Y;  V1010:36,Z(V1):P:P$(V1)(M):Z(V1)14:7100I: MI:V12:P$(V1)(M):Z(V1)27:7100:7000xD MPP:V13:P$(V1)(M):Z(V1)38:7100:7000N MP:V14:P$(V1)(M):Z(V1)51:7100:7000X MYI:V15:P$(V1)(M):Z(V1)67:7100:7000b MYP:V16:P$(V1)(M):Z(V1)78:7100:----";4Z36,101:"------------------------------":xd *** SUBROUTINE FOR COMPUTATIONS ***p>PPPYI{HPPPPRYIYII\YPYPPPfLILIIpLPLPPPzYAYAPYLALAPY *** SUBROUTINE FOR PRINTING ***& MT:V11EST";(36,73:"PRINCIPAL";6236,85:"PAYMENTS";O<36,101:"INTEREST";iF36,111:"PRINCIPAL";P36,123:"PAYMENTS"U36,1:"--------------";V36,24:"-------------------";W36,48:"-------";X36,63:"--------------------------36,29:"APPLY TO";+36,48:"UNPAID";S36,66:"YEAR TO DATE TOTALS PAID";{36,104:"LOAN TO DATE TOTALS PAID"36,1:"DUE DATE";36,12:"NO.";36,24:"INTEREST"; 36,34:"PRINCIPAL";36,48:"BALANCE";36,63:"INTER1:(27);(15)"(27);(28)-(18)40:i *** SUBROUTINE FOR PRINTING HEADINGS ***p1(9);"133N"(27);(81)(14)L::::V36,23:"**** ";Y;" ****"[(15)](27);(81)~36,5:"PAYMENT";1:7000*P$(V1);" DUE ";M3;"-1-";Y;".">MLI:V11:7000d"TOTAL INTEREST IS $";P$(V1);"."xMLA:V11:7000"TOTAL AMOUNT OF PAYMENTS IS $";P$(V1);"."0:"DO YOU WANT TO TRY AGAIN? ";ANS$(ANS$,1)"N"9955PPP">YIYII:LILII:LPLPPP8HYAYAPY:LALAPYHRPR2İ3000dfPR1PR2ĺ(27);(14)ok(18)uMP8:V11:7000z"TOTAL NUMBER OF PAYMENTS IS ";T;"."}T1;" PAYMENTS OF $";~P$(V1);".""FINAL PAYMENT OF $";MPY:V1000 TT1PR2İ3000&QM3<M312İ4000:500HM3M31QQM3]ZQ12kIR2P12u2000 TT1PR2İ3000M3M31&PPY08000ZX4000b500 M313İ4000%TT1*IR2P124PPP:PYPI:P0:LI0:LI0:LP0:YA0:LAO:T0IrM34M36M39M311D130.41667:410d|M32D128.41667:410tD131.41667 *** COMPUTE 1ST MONTH AND PRINT ***R2R100IPR2(D1D)365M312YY1:M31:440M3M31PR2İ10002P$(V1)3"INTEREST RATE:";:36,20:R;" PER CENT"GMPY:V11:7000s"MONTHLY PAYMENT:";:36,20:"$";P$(V1)M312Y2Y1:M41:290 Y2Y:M4M31""1ST PAYMENT DUE:";:36,20:M4;"-1-";Y2, *** SET ALL COUNTERS TO 0 ***6YI0:YPT ":PR PR1PR2Ċ15 PR1PR2ĺ(27);(31)Q PR1PR2ĺ(27);(14)u "BORROWER'S NAME:";:36,20:B$ "LENDER'S NAME:";:36,20:L$ "LOAN DATE:";:36,20:M3;"-";D;"-";Y MP:V11:7000 P8PY"LOAN AMOUNT:";:36,20:"$"; B$ :6 "ENTER THE NAME OF THE LENDER ";B L$::o "WHICH OF THE FOLLOWING DO YOU WANT? " " (1) PRINTOUT OF LOAN SUMMARY" " (2) PRINTOUT OF LOAN SUMMARY AND AMORTIZATION TABLE" " (3) NO PRINTOUUNT, INTEREST RATE, OR PAYMENT AMOUNT.":::100: :Y "ENTER DATE LOAN MADE BY"o "MONTH,DAY,YEAR" "(EXAMPLE: JUNE 12,1981 WOULD BE" "ENTERED AS 6,12,1981)" M3,D,Y : "ENTER THE NAME TO WHOM" "THE LOAN IS TO ";NTER THE NUMBER OF MONTHLY PAYMENTS. ";NNT PYP(1((11(1R212)NN)(R212)))l PY(PY100.5)100u 150 ::"ENTER MONTHLY PAYMENT ";PY 2 RP12100PYĺ"PAYMENTS ARE NOT LARGE ENOUGH TO COVER INTEREST. CHANGE EITHER LOAN AMO"B " WE WILL COMPUTE THE LENGTH OF THE LOAN."m " (2) GIVEN THE NUMBER OF MONTHS," " WE WILL COMPUTE THE MONTHLY PAYMENT." :"ENTER THE NUMBER (1 OR 2) YOU WANT. ";ANS ANS1ī140 :* "E::::? *** PROGRAM TO BUILD AMORTIZATION TABLESed"WHAT IS THE AMOUNT OF LOAN? ";Pmn:x"ENTER INTEREST RATE IN PER CENT ";RyR2R100z:}"YOU NOW HAVE THE FOLLOWING CHOICES: " ~" (1) GIVEN A CERTAIN PAYMENT,             "ENTER NUMBER ";B@ B1ĺD$;"RUN PAYMENT-MONTHLY-EPS"g B2ĺD$;"RUN PAYMENT-MONTHLY-APL"E.99Z(V1)Z(V1)1/(M)99.99Z(V1)Z(V1)1N(M)999.99Z(V1)Z(V1)1n(M)9999.99Z(V1)Z(V1)1(M)99999.99Z(V1)Z(V1)1(M)1Z(V1)Z(V1)1(M)0Z(V1)Z(V1)1 P(M)".00":70502v(((M)1)((P$(V1))2))7040VwM1((((10M)100).00001))100nxM2(10(M.00001)){M1M207045P$(V1)(M)"O"7050P$(V1)(M) LINES 7100-7180 LINE UP DIGITS ACCORDING TO PLACE VALUE(M)9$(V1);:V1 " "H P *** SUBROUTINE FOR SETTING YEAR AND COUNTERS ***YM31a Q1zYI0:YP0:YA0:YY1PR2İ1000hXM(M100.5)100ZM0P$(V1)"0.00":7050]P$(V1)(M)b(100M)(100(M))07030lP$(V1)70003l MYA:V17:P$(V1)(M):Z(V1)89:7100:7000cv MLI:V18:P$(V1)(M):Z(V1)105:7100:7000 MLP:V19:P$(V1)(M):Z(V1)116:7100:7000 MLA:V110:P$(V1)(M):Z(V1)127:7100:7000 M310ĺ" "; M3;"-1-";Y;  V1010:36,Z(V1):P:P$(V1)(M):Z(V1)14:7100I: MI:V12:P$(V1)(M):Z(V1)27:7100:7000xD MPP:V13:P$(V1)(M):Z(V1)38:7100:7000N MP:V14:P$(V1)(M):Z(V1)51:7100:7000X MYI:V15:P$(V1)(M):Z(V1)67:7100:7000b MYP:V16:P$(V1)(M):Z(V1)78:7100:----";4Z36,101:"------------------------------":xd *** SUBROUTINE FOR COMPUTATIONS ***p>PPPYI{HPPPPRYIYII\YPYPPPfLILIIpLPLPPPzYAYAPYLALAPY *** SUBROUTINE FOR PRINTING ***& MT:V11EST";(36,73:"PRINCIPAL";6236,85:"PAYMENTS";O<36,101:"INTEREST";iF36,111:"PRINCIPAL";P36,123:"PAYMENTS"U36,1:"--------------";V36,24:"-------------------";W36,48:"-------";X36,63:"--------------------------36,29:"APPLY TO";+36,48:"UNPAID";S36,66:"YEAR TO DATE TOTALS PAID";{36,104:"LOAN TO DATE TOTALS PAID"36,1:"DUE DATE";36,12:"NO.";36,24:"INTEREST"; 36,34:"PRINCIPAL";36,48:"BALANCE";36,63:"INTER1:(27);(15)"(27);(28)-(18)40:i *** SUBROUTINE FOR PRINTING HEADINGS ***p1(9);"132N"(27);(31)(27);(14)(18)L::::V36,23:"**** ";Y;" ****"[(15)~36,5:"PAYMENT";1:7000*P$(V1);" DUE ";M3;"-1-";Y;".">MLI:V11:7000d"TOTAL INTEREST IS $";P$(V1);"."xMLA:V11:7000"TOTAL AMOUNT OF PAYMENTS IS $";P$(V1);"."0:"DO YOU WANT TO TRY AGAIN? ";ANS$(ANS$,1)"N"9955PPP">YIYII:LILII:LPLPPP8HYAYAPY:LALAPYHRPR2İ3000dfPR1PR2ĺ(27);(14)ok(18)uMP8:V11:7000z"TOTAL NUMBER OF PAYMENTS IS ";T;"."}T1;" PAYMENTS OF $";~P$(V1);".""FINAL PAYMENT OF $";MPY:V1000 TT1PR2İ3000&QM3<M312İ4000:500HM3M31QQM3]ZQ12kIR2P12u2000 TT1PR2İ3000M3M31&PPY08000ZX4000b500 M313İ4000%TT1*IR2P124PPP:PYPI:P0:LI0:LI0:LP0:YA0:LAO:T0IrM34M36M39M311D130.41667:410d|M32D128.41667:410tD131.41667 *** COMPUTE 1ST MONTH AND PRINT ***R2R100IPR2(D1D)365M312YY1:M31:440M3M31PR2İ10002P$(V1)3"INTEREST RATE:";:36,20:R;" PER CENT"GMPY:V11:7000s"MONTHLY PAYMENT:";:36,20:"$";P$(V1)M312Y2Y1:M41:290 Y2Y:M4M31""1ST PAYMENT DUE:";:36,20:M4;"-1-";Y2, *** SET ALL COUNTERS TO 0 ***6YI0:YPT ":PR PR1PR2Ċ15 PR1PR2ĺ(27);(31)Q PR1PR2ĺ(27);(14)u "BORROWER'S NAME:";:36,20:B$ "LENDER'S NAME:";:36,20:L$ "LOAN DATE:";:36,20:M3;"-";D;"-";Y MP:V11:7000 P8PY"LOAN AMOUNT:";:36,20:"$"; B$ :6 "ENTER THE NAME OF THE LENDER ";B L$::o "WHICH OF THE FOLLOWING DO YOU WANT? " " (1) PRINTOUT OF LOAN SUMMARY" " (2) PRINTOUT OF LOAN SUMMARY AND AMORTIZATION TABLE" " (3) NO PRINTOUUNT, INTEREST RATE, OR PAYMENT AMOUNT.":::100: :Y "ENTER DATE LOAN MADE BY"o "MONTH,DAY,YEAR" "(EXAMPLE: JUNE 12,1981 WOULD BE" "ENTERED AS 6,12,1981)" M3,D,Y : "ENTER THE NAME TO WHOM" "THE LOAN IS TO ";NTER THE NUMBER OF MONTHLY PAYMENTS. ";NNT PYP(1((11(1R212)NN)(R212)))l PY(PY100.5)100u 150 ::"ENTER MONTHLY PAYMENT ";PY 2 RP12100PYĺ"PAYMENTS ARE NOT LARGE ENOUGH TO COVER INTEREST. CHANGE EITHER LOAN AMO"B " WE WILL COMPUTE THE LENGTH OF THE LOAN."m " (2) GIVEN THE NUMBER OF MONTHS," " WE WILL COMPUTE THE MONTHLY PAYMENT." :"ENTER THE NUMBER (1 OR 2) YOU WANT. ";ANS ANS1ī140 :* "E::::? *** PROGRAM TO BUILD AMORTIZATION TABLESed"WHAT IS THE AMOUNT OF LOAN? ";Pmn:x"ENTER INTEREST RATE IN PER CENT ";RyR2R100z:}"YOU NOW HAVE THE FOLLOWING CHOICES: " ~" (1) GIVEN A CERTAIN PAYMENT,        );(14)"**"Q 3(14)"**";:36,3:(27);(15)"DATE: "D$;:36,73:(27);(14)"**"w 5I12:J140:(14)"*";:J::I 6(27);(15) X: ^1,62999 _0P(9)"80N"(27)" (14)-((28)=)(1)(28)H+(12)t,I12:J140:(27);(14)"*";:J::I/(27);(14)"**";:36,(20((P$)2)):P$;:36,38:(27);(14)"**" 1(14)"**";:36,3:(27);(15)"PROGRAMMED BY: ";N$;:36,73:(2730:10300 t'M32FS28:10300*'FS31;<(M310ĺ" ";Q(M3;"-";FS;"-";Y;u)V1010:36,Z(V1):P$(V1);:V1~h)" ")"INPUT PROGRAM NAME: ";:P$::"INPUT PROGRAMERS NAME: ";:N$::"INPUT DATE: ";:D$1(27);(28) Z(V1)Z(V1)1 @QM31@EQ4Q6Q9Q11D130:8030UJQ2D128:8030_TD131q^IPR2D1365zcQM3h(#QM3-#Q4Q6Q9Q11D130:90302#Q2D128:9030<#D131F#IPR2D1365P# 'M34M36M39M311FS> LINES 7100-7180 LINE UP DIGITS ACCORDING TO PLACE VALUE[(M)9.99Z(V1)Z(V1)1y(M)99.99Z(V1)Z(V1)1(M)999.99Z(V1)Z(V1)1(M)9999.99Z(V1)Z(V1)1(M)99999.99Z(V1)Z(V1)1(M)1Z(V1)Z(V1)1 (M)0"0.00":7050]P$(V1)(M)=b(100M)(100(M))07030YlP$(V1)(M)".00":7050|v(((M)1)((P$(V1))2))7040wM1((((10M)100).00001))100xM2(10(M.00001)){M1M207045P$(V1)(M)"O"7050P$(V1)(M)000:3400 M310ĺ" ";0 M3;"-";FD;"-";Y;T V1010:36,Z(V1):P$(V1);:V1] " "cH  *** SUBROUTINE FOR SETTING YEAR AND COUNTERS ***M31 Q1YI0:YP0:YA0:YY1PR2İ1000hXM(M100.5)100 ZM0P$(V1)001b MYP:V16:P$(V1)(M):Z(V1)78:7100:7000`l MYA:V17:P$(V1)(M):Z(V1)89:7100:7000v MLI:V18:P$(V1)(M):Z(V1)105:7100:7000 MLP:V19:P$(V1)(M):Z(V1)116:7100:7000 MLA:V110:P$(V1)(M):Z(V1)127:7100:7000  FD31İ10 *** SUBROUTINE FOR PRINTING ***H& MT:V11:P$(V1)(M):Z(V1)14:7100v: MI:V12:P$(V1)(M):Z(V1)27:7100:7000D MPP:V13:P$(V1)(M):Z(V1)38:7100:7000N MP:V14:P$(V1)(M):Z(V1)51:7100:7000X MYI:V15:P$(V1)(M):Z(V1)67:7100:70---";3X36,63:"------------------------------";aZ36,101:"------------------------------"gx *** SUBROUTINE FOR COMPUTATIONS ***>PPPYIHPPPPRYIYII\YPYPPPfLILIIpLPLPPPzYAYAPYLALAPY  L";36,48:"BALANCE";236,63:"INTEREST";K(36,73:"PRINCIPAL";c236,85:"PAYMENTS";|<36,101:"INTEREST";F36,111:"PRINCIPAL";P36,123:"PAYMENTS"U36,1:"--------------";V36,24:"-------------------";W36,48:"----" ****"[(15))~36,5:"PAYMENT";B36,29:"APPLY TO";X36,48:"UNPAID";36,66:"YEAR TO DATE TOTALS PAID";36,104:"LOAN TO DATE TOTALS PAID"36,1:"DUE DATE";36,12:"NO.";36,24:"INTEREST"; 36,34:"PRINCIPAGAIN? ";ANS$$(ANS$,1)"N"995+5?1:(27);(15)P(27);(28)[(18)b0h *** SUBROUTINE FOR PRINTING HEADINGS ***1(9);"80N"(27);(31)(27);(14)(18)L::::V36,30:"**** ";Y;""FINAL PAYMENT OF $";0MPY:V11:7000XP$(V1);" DUE ";M3;"-";FD;"-";Y;"."lMLI:V11:7000"TOTAL INTEREST IS $";P$(V1);"."MLA:V11:7000"TOTAL AMOUNT OF PAYMENTS IS $";P$(V1);"."0: "DO YOU WANT TO TRY A31İ9000:820*8000.4PPP:PYPI:PPPPK>YIYII:LILII:LPLPPPaHYAYAPY:LALAPYqRPR2İ3000fPR1PR2ĺ(27);(14)k(18)uMP8:V11:7000z"TOTAL NUMBER OF PAYMENTS IS ";T;"."}T1;" PAYMENTS OF $";~P$(V1);".2000TT1"PR2İ3000+QM3AM312İ4000:500MM3M31VQM3bZQ12xFD31İ9000:52080002000 TT1PR2İ3000M3M31&PPY08000ZX4000b500 M313İ4000%TT1 &FD31- *** COMPUTE 1ST MONTH AND PRINT ***:R2R100IFMM3422WFD1424qIPR2((D1D)1)365z425IPR2((FDD)1)365425IPR2((D1D)FD)365FMM3440M312YY1:M31:440M3M31PR2İ100020:"$";P$(V1)*M312Y2Y1:M41:290; Y2Y:M4M31m""1ST PAYMENT DUE:";:36,20:FM;"-";FD;"-";Y2, *** SET ALL COUNTERS TO 0 ***6YI0:YP0:LI0:LI0:LP0:YA0:LAO:T0rM34M36M39M311D130:410|M32D128:410D1ME:";:36,20:B$2"LENDER'S NAME:";:36,20:L$\ "LOAN DATE:";:36,20:M3;"-";D;"-";Yo MP:V11:7000y P8PY"LOAN AMOUNT:";:36,20:"$";P$(V1)"INTEREST RATE:";:36,20:R;" PER CENT"MPY:V11:7000"MONTHLY PAYMENT:";:36,U WANT? "4 " (1) PRINTOUT OF LOAN SUMMARY" " (2) PRINTOUT OF LOAN SUMMARY AND AMORTIZATION TABLE" " (3) NO PRINTOUT ":PR PR1PR2Ċ1 PR1PR2ĺ(27);(31) PR1PR2ĺ(27);(14)"BORROWER'S NAMAKE YOUR FIRST PAYMENT."9 "(EXAMPLE:JULY 3 WOULD BE"P "ENTERED AS 7,3)"[ FM,FDc : "ENTER THE NAME TO WHOM" "THE LOAN IS TO "; B$ : "ENTER THE NAME OF THE LENDER "; L$:: "WHICH OF THE FOLLOWING DO YOUNT, INTEREST RATE, OR PAYMENT AMOUNT.":::100: :Y "ENTER DATE LOAN MADE BY"o "MONTH,DAY,YEAR" "(EXAMPLE: JUNE 12,1981 WOULD BE" "ENTERED AS 6,12,1981)" M3,D,Y : "ENTER THE MONTH AND DAY YOU WOULD" "LIKE TO NTER THE NUMBER OF MONTHLY PAYMENTS. ";NNT PYP(1((11(1R212)NN)(R212)))l PY(PY100.5)100u 150 ::"ENTER MONTHLY PAYMENT ";PY 2 RP12100PYĺ"PAYMENTS ARE NOT LARGE ENOUGH TO COVER INTEREST. CHANGE EITHER LOAN AMO"B " WE WILL COMPUTE THE LENGTH OF THE LOAN."m " (2) GIVEN THE NUMBER OF MONTHS," " WE WILL COMPUTE THE MONTHLY PAYMENT." :"ENTER THE NUMBER (1 OR 2) YOU WANT. ";ANS ANS1ī140 :* "E::::? *** PROGRAM TO BUILD AMORTIZATION TABLESed"WHAT IS THE AMOUNT OF LOAN? ";Pmn:x"ENTER INTEREST RATE IN PER CENT ";RyR2R100z:}"YOU NOW HAVE THE FOLLOWING CHOICES: " ~" (1) GIVEN A CERTAIN PAYMENT,          z #????     ͺԠɠ!ԠРԠӠԭ٭Ӡ ԭ٭̠ϠԠ̠ˠ6ΠĠ ĮҠҠԠ "5. PAYMENT (FIGURED BY MONTH). :::Z "SELECT NUMBER OF PROGRAM DESIRED. ";Au A500,600,700,800,900 :6:"WHICH PRINTER WILL YOU BE USING?" :5:"1. MPI" :5:"2. EPSON" :5:"3. APPLE"  "ENTER NUMBER ";B &i D$(13)(4) 3'#9D("UTILITY DISKETTE---U5"d-9:"------- -------- --"l2:s<5F"1. PAYMENT (FIGURED BY DAY)"PZ5d"2. FINANCIAL PAK"n:5x"3. INFLATION":5"4. SHORTHAND":5"  ----------------------"xG *** SUBROUTINE FOR COMPUTATIONS ***S>PPPYI^HPPPPjRYIYIIw\YPYPPPfLILIIpLPLPPPzYAYAPYLALAPY *** SUBROUTINE FOR PRINTING ***& MT:V11:P$(V1)(M):Z(V1)14:7100,;236,85:"PAYMENTS";2<36,101:"INTEREST";LF36,111:"PRINCIPAL";dP36,123:"PAYMENTS"U36,1:"--------------";V36,24:"-------------------";W36,48:"-------";X36,63:"------------------------------";Z36,101:"--------,48:"UNPAID";636,66:"YEAR TO DATE TOTALS PAID";^36,104:"LOAN TO DATE TOTALS PAID"u36,1:"DUE DATE";36,12:"NO.";36,24:"INTEREST"; 36,34:"PRINCIPAL";36,48:"BALANCE";36,63:"INTEREST";(36,73:"PRINCIPAL"(28)(27);(30)0#R *** SUBROUTINE FOR PRINTING HEADINGS ***Y1i(9);"80N"z(27);(31)(27);(14)L::::V36,23:"**** ";Y;" ****"[(27);(15)~36,5:"PAYMENT";36,29:"APPLY TO";363;"-1-";Y;"."!MLI:V11:7000G"TOTAL INTEREST IS $";P$(V1);"."[MLA:V11:7000"TOTAL AMOUNT OF PAYMENTS IS $";P$(V1);"."0:"DO YOU WANT TO TRY AGAIN? ";ANS$(ANS$,1)"N"99551:(27);(15)(27);LILII:LPLPPP&HYAYAPY:LALAPY6RPR2İ3000RfPR1PR2ĺ(27);(14)fuMP8:V11:7000z"TOTAL NUMBER OF PAYMENTS IS ";T;"."}T1;" PAYMENTS OF $";~P$(V1);".""FINAL PAYMENT OF $";MPY:V11:7000 P$(V1);" DUE ";MPR2İ3000QM3*M312İ4000:5006M3M31?QM3KZQ12YIR2P12c2000m TT1}PR2İ3000M3M31&PPY08000ZX4000b500 M313İ4000%TT1*IR2P124PPP:PYPI:PPPP>YIYII:0:LI0:LI0:LP0:YA0:LAO:T0CrM34M36M39M311D130:410X|M32D128:410bD131 *** COMPUTE 1ST MONTH AND PRINT ***R2R100IPR2(D1D)365M312YY1:M31:440M3M31PR2İ10002000TT1 P$(V1)3"INTEREST RATE:";:36,20:R;" PER CENT"GMPY:V11:7000s"MONTHLY PAYMENT:";:36,20:"$";P$(V1)M312Y2Y1:M41:290 Y2Y:M4M31""1ST PAYMENT DUE:";:36,20:M4;"-1-";Y2, *** SET ALL COUNTERS TO 0 ***6YI0:YPT ":PR PR1PR2Ċ15 PR1PR2ĺ(27);(31)Q PR1PR2ĺ(27);(14)u "BORROWER'S NAME:";:36,20:B$ "LENDER'S NAME:";:36,20:L$ "LOAN DATE:";:36,20:M3;"-";D;"-";Y MP:V11:7000 P8PY"LOAN AMOUNT:";:36,20:"$"; B$ :6 "ENTER THE NAME OF THE LENDER ";B L$::o "WHICH OF THE FOLLOWING DO YOU WANT? " " (1) PRINTOUT OF LOAN SUMMARY" " (2) PRINTOUT OF LOAN SUMMARY AND AMORTIZATION TABLE" " (3) NO PRINTOUUNT, INTEREST RATE, OR PAYMENT AMOUNT.":::100: :Y "ENTER DATE LOAN MADE BY"o "MONTH,DAY,YEAR" "(EXAMPLE: JUNE 12,1981 WOULD BE" "ENTERED AS 6,12,1981)" M3,D,Y : "ENTER THE NAME TO WHOM" "THE LOAN IS TO ";NTER THE NUMBER OF MONTHLY PAYMENTS. ";NNT PYP(1((11(1R212)NN)(R212)))l PY(PY100.5)100u 150 ::"ENTER MONTHLY PAYMENT ";PY 2 RP12100PYĺ"PAYMENTS ARE NOT LARGE ENOUGH TO COVER INTEREST. CHANGE EITHER LOAN AMO"B " WE WILL COMPUTE THE LENGTH OF THE LOAN."m " (2) GIVEN THE NUMBER OF MONTHS," " WE WILL COMPUTE THE MONTHLY PAYMENT." :"ENTER THE NUMBER (1 OR 2) YOU WANT. ";ANS ANS1ī140 :* "E::::? *** PROGRAM TO BUILD AMORTIZATION TABLESed"WHAT IS THE AMOUNT OF LOAN? ";Pmn:x"ENTER INTEREST RATE IN PER CENT ";RyR2R100z:}"YOU NOW HAVE THE FOLLOWING CHOICES: " ~" (1) GIVEN A CERTAIN PAYMENT,          ;(15)"PROGRAMMED BY: ";N$;:36,73:(27);(14)"**"y3(14)"**";:36,3:(27);(15)"DATE: "D$;:36,73:(27);(14)"**"5I12:J140:(14)"*";:J::I6(27);(15)X:^1,62999_00DATE: ";:D$1$(27);(28)4(9)"80N"?(27)J (14)U((28)e)(1)(28)p+(12),I12:J140:(27);(14)"*";:J::I/(27);(14)"**";:36,(20((P$)2)):P$;:36,38:(27);(14)"**"31(14)"**";:36,3:(27)9.99Z(V1)Z(V1)11(M)999.99Z(V1)Z(V1)1Q(M)9999.99Z(V1)Z(V1)1r(M)99999.99Z(V1)Z(V1)1(M)1Z(V1)Z(V1)1(M)0Z(V1)Z(V1)1  "INPUT PROGRAM NAME: ";:P$::"INPUT PROGRAMERS NAME: ";:N$::"INPUT )((P$(V1))2))70409wM1((((10M)100).00001))100QxM2(10(M.00001))d{M1M207045xP$(V1)(M)"O"7050P$(V1)(M) LINES 7100-7180 LINE UP DIGITS ACCORDING TO PLACE VALUE(M)9.99Z(V1)Z(V1)1(M)9 *** SUBROUTINE FOR SETTING YEAR AND COUNTERS ***<M31D Q1]YI0:YP0:YA0:YY1mPR2İ1000shXM(M100.5)100ZM0P$(V1)"0.00":7050]P$(V1)(M)b(100M)(100(M))07030lP$(V1)(M)".00":7050v(((M)1):Z(V1)89:7100:7000Fv MLI:V18:P$(V1)(M):Z(V1)105:7100:7000v MLP:V19:P$(V1)(M):Z(V1)116:7100:7000 MLA:V110:P$(V1)(M):Z(V1)127:7100:7000 M310ĺ" "; M3;"-1-";Y; V1010:36,Z(V1):P$(V1);:V1 " "H 3: MI:V12:P$(V1)(M):Z(V1)27:7100:7000[D MPP:V13:P$(V1)(M):Z(V1)38:7100:7000N MP:V14:P$(V1)(M):Z(V1)51:7100:7000X MYI:V15:P$(V1)(M):Z(V1)67:7100:7000b MYP:V16:P$(V1)(M):Z(V1)78:7100:7000l MYA:V17:P$(V1)(M100PT(1I)(NY):X"YOU MUST INVEST $";(P100.5)100;" FOR A PERIOD""OF ";Y;" YEARS AT AN INTEREST RATE OF ";I1;" PERCENT""COMPOUNDED";N;"TIMES EACH YEAR TO YIELD $";T;".":!"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$9000@"ENTER THE AMOUNT YOU WANT TO HAVE AFTER Y YEARS";TF"ENTER THE NUMBER OF COMPOUNDING PERIODS EACH YEAR";N"ENTER THE NUMBER OF YEARS OF THIS INVESTMENT";Y"ENTER THE NOMINAL INTEREST RATE";I I1I IINYOUR INITIAL INVESTMENT."::H"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$d(Y$,1)"Y"İ9020:400l24 INVESTMENT REQUIRED TO PROVIDE FUTURE VALUE9020:9000" #5 INVESTMENT REQUIRED TO"" PROVIDE FUTURE VALUE..":H YEAR";N3"ENTER THE NUMBERS OF YEARS";YAIIN100_RP(I((1I)(NY)1)I)i::"YOU MAY WITHDRAW $";(R100.5)100"FROM YOUR ACCOUNT";N;"TIMES EACH YEAR,""FOR";Y;"YEARS WITHOUT REDUCING"";Y$Y(Y$,1)"Y"İ9020:300'^2479020:9000^5)"#4 REGULAR WITHDRAWALS FROM"}14)"AN INVESTMENT":9000"ENTER AMOUNT OF INITIAL INVESTMENT";P"ENTER NOMINAL INVESTMENT RATE";I "ENTER THE NUMBER OF WITHDRAWALS EACR OF DEPOSITS EACH YEAR";N 7D;"ENTER THE NUMBERS OF YEARS";YR@IIN100lERTI((I1)(NY)1)tG:J"REGULAR DEPOSITS OF $";(R100.5)100;" FOR "O;Y;" YEARS WILL YEILD $";T;" ."Q:T:"DO YOU WANT TO RUN ANOTHER (Y/N)"";Y$ $(Y$,1)"Y"İ9020:208(&248,9020:9000-" #3 FUTURE VALUE OF AN ANNUITY OR SAVINGS ACCOUNT".9000/"ENTER THE TOTAL VALUE AFTER Y YEARS";T01"ENTER THE NOMINAL INTEREST RATE";I26"ENTER MUNBEENTER THE NOMINAL INTEREST RATE";I(X"ENTER THE NUMBER OF DEPOSITS EACH YEAR";N^"ENTER THE NUMBER OF YEARS";YIIN100TR((1I)(NY)1)I10)"FUTURE VALUE =$";(T100.5)100":::"WANT TO RUN ANOTHER (Y/N)"FUTURE VALUE=$";(T100.5)100H::"WANT TO RUN ANOTHER (Y/N)";Y$c(Y$,1)"Y"İ9020:99k24{9020:9000" #2 FUTURE VALUE OF REGULAR DEPOSITS"15)"(ANNUITY)":9000"ENTER AMOUNT OF REGULAR DEPOSIT";R"" e f90008 n"ENTER THE INITIAL INVESTMENT (P)";P> sk x"ENTER THE NOMINAL INTEREST RATE (I)";Iq y "NUMBER OF COMPOUNDING PERIODS EACH YEAR(N)";N "ENTER THE NUMBER OF YEARS (Y)";Y IIN100 TP(1I)(NY) 5:9000::24:"SELECT PROGRAM NUMBER AND HIT RETURN";:? 2Z} 7Z99,208,300,400,500,600,700,800,900,1000,1100,1200,1300 9Z14Z1Z13 ;Z11400,1500,1600,1700,1800,1900,2000 <21 c9020:9000 d" #1 FUTURE VALUE OF AN INVESTMENT" 15 LOAN PYMT SCHEDULE" "6 INC FRM INVSTMT 16 FINAL LOAN PYMT ":"7 NOMINAL INT %'S 17 BAL OF LOAN LEFT ":"8 EFFECTIVE INT % 18 LOAN RPMT PERIOD ":"9 << RESERVED >> 19 << RESERVED >> ":"10 AN DEP'N RATE 20 MORT AMORTIZATION "8 (259000, "PRESS RETURN TO DISPLAY MENU":M$8 :9000 "1 FUT VAL/INVSTMT 11 DEPREC'D INVSTMNT ":"2 FUT VAL/ANNUITY 12 YEAR END SALV VAL ":"3 FUT VAL/SAVINGS 13 DISC COMML PAPER ":"4 INVSTMT WTHDRLS 14 LOAN PRINCIPAL ":"5 MIN INCOME INVTUDED ARE PROGRAMS WHICH EXAMINE":"INVESTMENTS,SAVINGS AND ANNUITYS," "MORTGAGES AND LOANS, DEPRECIATION AND":"AMORTIZATION SCHEDULES, AND MUCH MORE..."::"SELECT A PROGRAM FROM THE MENU BY":"ENTERING THE APPROPRIATE NUMBER ON THE":"KEYBOARD...":%410000::9000Z$(5)N" **** BANKING AND FINANCIAL ****"YM$(5)t:(I);17)"PROGRAMS"~9000E "THIS SERIES OF PROGRAMS IS DESIGNED TO":"AID CONSUMERS AND BUSINESSES IN LONG":"OR SHORT RANGE BUSINESS PLANNING.":"INCL                   $";T,&H" DUE IN";N;"DAYS"Z&K"AT A DISCOUNT RATE OF";D100;"PERCENT,"&M"THE DISCOUNT AMOUNT WILL BE $";D1&P"AND THE COST WILL BE $";TD1;" ."&U::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$&Z(Y$,1)"Y"İ9020:1300&_24SCOUNTED")%" PAPER.."3%#90009%$e%("ENTER THE FUTURE VALUE OF THE NOTE";T%-"ENTER THE DISCOUNT RATE";D%.%2"ENTER THE NUMBER OF DAYS TO MATURITY";N%7DD100%<D1TDN360%A&F"IF YOU PURCHASE A NOTE WORTHVALUE IS $";S$&$XX1:X5X0I$"PRESS RETURN FOR MORE":X$:V$S2ĂY$:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$$(Y$,1)"Y"İ9020:1200$ 24$ FIND AMOUNT OF DISC PAPER$9020:9000 %"#13 CALCULATE THE NET COST OF DICALCULATE THE SALVAGE VALUE"?#" OF AN ITEM..."I#9000w#"ENTER THE ORIGINAL PRICE OF THE ITEM";P}##"ENTER THE ITEM'S DEPRECIATION RATE";I##K100#Y1K#S(100P(1I100)Y.5)100 $"YEAR #";Y;"SALVAGE K"qDPI(1I)(Y1)M"y"YEAR #";Y;"DEPRECIATION IS $";(D100.5)100:`"{XX1:X5X0"|"PRESS RETURN FOR MORE":X$:"~D2ĂY":"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$"(Y$,1)"Y"İ9020:1100"24"9020:9000#" #12 CALCULATE THE AMOUNT OF DEPREC OF AN ITEM:!Q9020:9000j!V" #11 AMOUNT DEPRECIATED WITHIN A YEAR.."t![9000!`"ENTER THE ORIGINAL PRICE OF THE ITEM";P!a!bK100!e"WHAT PERCENT DO YOU WANT TO DEPRECIATE";I!f!jII100"o:Y1* "IF YOU PURCHASED THIS ITEM FOR $";PP :"AND SOLD IT";Y;"YEARS LATER-"{ "FOR $";T;", THE ACTUAL DEPRECIATION" "RATE IS";(1000D.5)1000;"PERCENT." $:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$ )(Y$,1)"Y"İ9020:1000 .24*!L ANNUAL DEPRECIATION RATE OF AN INVESTMENT"BL9000z"ENTER THE ORIGINAL PRICE OF THE ITEM";P"ENTER THE RESALE PRICE OF THE ITEM";T"ENTER THE ITEM'S LIFE IN YEARS";Y D100(1(TP)(1Y)) 800 \24) EARNED INTEREST TABLE99020:9000h"#9 EARNED INTEREST TABLE FOR INVESTMENT"nx9000" ******** UNDER CONSTRUCTION ********"I12000:I:24 DEPRECIATION RATE ON INVESTMENT9020:9000<" #10EARS";T :@>"ENTER THE LIFE OF THE INVESTMENT IN YEARS";YF?LCyH"THE EFFECTIVE ANNUAL INTEREST RATE OF"IM"YOUR INVESTMENT IS";((TP)(1Y)1)100;"PERCENT.."R:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$W:(Y$,1)"Y"İ9020:";Y$ (Y$,1)"Y"İ9020:700(24V  EFFECTIVE INTEREST RATE ON INVESTMENTSf%9020:9000*" EFFECTIVE INTEREST RATE ON INVESTMENT"+/90004"ENTER THE AMOUNT OF YOUR INITIAL INVESTMENT";P59"ENTER THE TOTAL VALUE Y YI2N((TP)(1(NY))1)100"I"WHEN AN INVESTMENT OF $";P;"IS,"c"HELD FOR";Y;"YEARS""COMPOUNDING";N;"TIMES EACH YEAR""AND YIELDS $";T;",""THE NOMINAL INTEREST RATE IS";I2;"PERCENT..":"DO YOU WANT TO RUN ANOTHER (Y/N)T RATE ON INVESTMENTS"&9000Q"ENTER THE AMOUNT OF THE PRINCIPAL";PW"ENTER THE TOTAL AMOUNT OF THE INVESTMENT";T"ENTER THE NUMBER OF YEARS OF THE INVESTMENT";Y"ENTER THE COMPOUNDING PERIODS EACH YEAR";NERCENT PER YEAR ,TO ALLOW MONTHLY"Y"WITHDRAWALS OF $";R;"FOR A PERIOD OF";Y;"YEARS."::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$(Y$,1)"Y"İ9020:60024 NOMINAL INTEREST RATE ON INVESTMENTS9020:9000" NOMINAL INTERES"ENTER THE NOMINAL INTEREST RATE";I*rZv"WITHDRAWAL TO OCCUR FOR HOW MANY YEARS";YcyI1Io{II100PRNI(11((1IN)(NY)))"A MINIMUM INVESTMENT OF $";(100P.5)100;"MUST""BE HELD AT AN INTEREST RATE OF";I1""P&(Y$,1)"Y"İ9020:500"+24CX MIN INVESTMENT FOR INCOMESZ9020:9000]5)"#6 MINIMUM INVESTMENT FOR INCOME"ab9000g"ENTER THE NUMBER OF WITHDRAWALS EACH YEAR";Nhl"ENTER THE AMOUNT OF EACH WITHDRAWAL";Rm$qCC16DBI100/6C;(D)100,R(D)100U6"LAST PAYMENT WAS...";(D)100B6"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$6(Y$,1)"Y"İ9020:20006 F06 246 "TO CONTINUE HIT ANY KEY..."6 A$6 6 F07 "PMT INTEREST PRINCIT ANY KEY..."5jA$5k:BAK5p"PMT INTEREST PRINCIPAL BALANCE"g5zCC1:LBI:PRL:BBP5{CC100.5:LL100.5:PP100.5:BB100.55|C(C)100:L(L)100:P(P)100:B(B)1005C;L,P,B5FF15F2028005BR21706 PERCENT";J4C"".4H"NUMBER OF YEARS";N94M""E4\JJ100m4]NN12:IJ12:B1I:RAI(11BN)|4_RR100.54`R(R)1004a"AMOUNT PER PAYMENT =";R4bQ(RNA)100.54cQ(Q)1004f"TOTAL INTEREST=";Q 5i"TO BEGIN LISTING HIORTGAGE AMORTIZATION TABLE"!3N3" COMPUTE INTEREST PAYMENTS..."T3^390003"PLEASE USE DECIMAL POINTS"390003 LEADING & TRAILING ZERO'S NOT ?"ED"3*C034"ENTER AMOUNT OF LOAN";A39"" 4>"AMOUNT OF INTEREST IN WANT TO RUN ANOTHER (Y/N)";Y$;2I(Y$,1)"Y"İ9020:1800C2N24S2l9020:90002q"#19 THE ANNUAL INTEREST RATE ON A LOAN"2v90002" ******** UNDER CONSTRUCTION ********"2I12000:I2I11000::2429020:90003" THE MTHE AMOUNT OF EACH REGULAR PAYMENT";R+1"]1&"WHAT IS THE AMOUNT OF THE LOAN PRINCIPAL";Pc1+10Y((1(P(I100))(NR))((1I100N)N))1:"A TERM OF";(Y10.5)10;"YEARS WILL SATISFY THIS LOAN."1?"SATISFY THIS SCHEDULE."2D:"DO YOU:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$G0(Y$,1)"Y"İ9020:1700O024_09020:9000}0 10)"THE TERM OF A LOAN"0090000"ENTER THE NUMBER OF PAYMENTS EACH YEAR";N00"ENTER THE ANNUAL INTEREST RATE";I0%1!"WHAT IS R THE LAST PAYMENT MADE ,"E/" (PAYMENT #, YEAR # )";N1,Ya/:"WORKING ON PROBLEM"m/II100v/BOP/J11N(Y1)N1/I1((BOIN)100.5)100/ARI1/BOBOA/J1/:"THE REMAINING BALANCE IS $";(BO100.5)100*0ALANCE ON A LOAN".!.9000W."ENTER THE NUMBERS OF PAYMENTS MADE EACH YEAR";N].."ENTER THE ANNUAL INTEREST RATE";I.."WHAT IS THE AMOUNT OF EACH PAYMENT";R.."WHAT IS THE AMOUNT OF THE LOAN PRINCIPAL";P./"ENTE((BOIN)100.5)100 -wARI2,-|BOBOA4-J1[-"THE LAST PAYMENT FOR THIS LOAN,"-"WILL BE $";((RBO)100.5)100-::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$-(Y$,1)"Y"İ9020:1600-24-9020:9000." #17 REMAINING B;I,U<,Y"WHAT IS THE AMOUNT OF EACH REGULAR PAYMENT";RB,Zs,^"HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";Ny,_,c"ENTER THE AMOUNT OF THE LOAN PRINCIPAL";P,h:I1I:II100:BOP,jNY100ĺ20)"WORKING THE PROBLEM",mJ11NY-rI2CENT PER ANNUM."?+,::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$\+1(Y$,1)"Y"İ9020:1500d+624t+@9020:9000+E10)"#16 LAST PAYMENT ON A LOAN"+F+J9000+O"WHAT IS THE LIFE OF THE LOAN IN YEARS";Y,T"ENTER THE ANNUAL INTEREST RATE"::R((I100)PN)(11((I100)N1)(NY))7*I1Ih*"REGULAR PAYMENTS OF $";(R100.5)100;","*"MADE ";N;" TIMES EACH YEAR"*"ARE REQUIRED TO SATISFY"*""A LOAN OF $";P;"FOR A PERIOD OF";Y;"YEARS"+'"AT AN INTEREST RATE OF";I1;"PER))9000V)"WHAT IS THE LIFE OF THE LOAN IN ":27):50,63:"YEARS":50,255])Y)"WHAT IS THE ANNUAL":19):50,63:"INTEREST RATE":50,255:I) "HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N)"WHAT IS THE LOAN PRINCIPAL AMOUNT";P.* IN YEARS";Y8(PRN(11((I100)N1)(NY))(I100)q(:"THE PRINCIPAL ON THIS LOAN IS $";(P100.5)100(::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$((Y$,1)"Y"İ9020:1400(24(9020:9000)" #15 REGULAR PAYMENT ON A LOAN.."'x9020:90001'}5)"#14 PRINCIPAL ON A LOAN"7'~A'9000r'"HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";Nx''"WHAT IS THE AMOUNT OF EACH PAYMENT";R''"WHAT IS THE LOAN ANNUAL INTEREST RATE";I' ("ENTER THE LIFE OF THE LOAN <+::$<.I138:" ";::" ":":10:" "-;'I12000:I8;*:200M;+J110:12000:|; +" A V E L A R ' S ";+" "; +" F I N A N C I A L P A K ";*+J111:12000:<+I12000:I E G R H"m:t'5:"E T R A A":14:"S A R N":~'15:"O M Y G":16:"U";:40:"E";:'17:"N":18:"D";'50,63:::10:" ":10:" P R E S E N T S ;:5:" ";:7:" ";:9:" ";:15:" ";:17:" ";m9L'23:" ";:25:" ";:31:" ";:33:" ";:39:" "{9V'50,255:9`'"A P P L E":2:"P U R I X" :j'3:"P G O B C":4:"L ";:9:" ";:17:" ";:25:" ";:33:" "8$'" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" "8.'" ";:9:" ";:17:" ";:25:" ";:33:" "88'" ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" "09B'" "PAL BALANCE"7 2190D7(# SUBROUTINE TO MAKE A LINE OF ----`72#I138:"-";:I:"-":r7<#"":936:~7F#936:7P# 7Z#I116::I:7&"000 ?";(34);:9950:" -";:9950:"-";(34)7&7&I117:(95);::7'::58'1:2:"O ENTER? ";A$$ (A$,1)"Y"ī1480. :10V "THANK YOU FOR USING THIS PROGRAM" EP.5)P# `V1(S2)(V1(S2)P.5)P0 fY1(S1);@ p8:V1(S1);Q 22:Y1(S2);a 29:V1(S2)n S1S11{ S2S21 2140  W2(W12)2270 2290  Y1(S1); V1(S1)(V1(S1)P.5)P 8:V1(S1) ::"MORE VALUES T)V V2V(I100)! VVV2. Y2Y21; S3S31E 1950K U S11h W1(2000Y)1u W2W12 W2(W12)2110 S2W21 *2139 4 >S2(W2)2 H2139 R [ \Y1(S2)02240 ^P102 _V1(S1)(V1(S1) &:"YEAR"; '10:"VALUE";1 (22:"YEAR";B )31:"VALUE"O 0"----";a 310:"-----";r 522:"----"; 731:"-----" N XS4122 bY1(S4)0 lV1(S4)0 vS4  Y2Y S31 Y220002040 Y1(S3)Y2 V1(S3 r:"ENTER VALUE "; |V0& V> V1V10000001710H 1740N m "INVALID VALUE-REENTER ";w 1670}  :"ENTER INFLATION RATE "; I1 I I0I251800 1830  "INVALID RATE-REENTER "; 1760 XY1(22),V1(22) A$" "&7A$"N"2400=b"INTRODUCTION TO COMPUTERS AND"|" DATA PROCESSING"" ""ENTER YEAR ";"Y0,Y6Y1980Y20001620@1650JT"INVALID YEAR-REENTER ";^1580h     "ENCLOSE","GOVERN".V 15,83,111,84,110,68BV "C","B","F" eV "WORLD","SUCCESS","QUESTION"k THIS IS FRON J DOERGES GARNER HAYFIELD PLEASE DO NOT COPY SHAPE TABLE USED IS SHORTHAND.MASTER PLEASE DO NOT GIVE TO ANY ONE ELSE!!!!!!","F","A")tV "ONE-WON","A-AN","IN-NOT"?|V 6,4,35,25,75,99Q}V "F","B","D"w~V "VERY","ADVANTAGE","EVER-EVERY"V 58,3,16,94,61,97V "C","D","F"V "CHARACTER","THROUGHOUT","USUAL"V 34,24,26,98,70,23V "D","F","A"V "VALUE",19,105,17UV "F","B","D"OVV "CIRCULAR","WORK","CORRESPOND/CORRESPONDENCE"g^V85,108,91,88,28,89y_V "D","F","C"`V "THE","THERE/THEIR","THEY"hV 104,105,9,74,102,49iV "C","D","E"jV "ANY","SEND","WERE"rV 41,7,10,52,104,1 sV "DERIENCE"#6V 107,103,55,77,56,10657V "A","E","B"T8V "WISH","ORDINARY","WHAT"m@V 88,115,93,92,89,86AV "F","C","D"BV "THANK","THIS","THING/THINK"JV 15,67,115,68,18,107KV "A","B","E"LV "CAN","QUANTITY","COMPANY" TV 10,109,89,","A"/ V "NEWSPAPER","REQUEST","RESPONSIBLE"I V 51,100,115,97,59,96[ V "F","B","A"t V "UNDER","WAS","OF" "V 112,22,20,77,55,8 #V "C","F","D" $V "COULD","AND","SHOULD" ,V 27,79,36,82,100,108 -V "B","E","A".V "SPEAK","WAS","EXP,42 !N "E","A","D"D "N "IMPORTANT/IMPORTANCE","MS.","IMMEDIATE"] *N 76,81,36,80,114,78p +N "A","F","B" ,N "SHORT","SOON","STREET" 4N 54,60,53,63,14,65 5N "D","B","C" 6N "PROBABLE","PART","OPINION" V 72,18,70,79,48,71 V "E","F(J1)17:(64J3(I1)) hJ' rI9 34,20:1:20T "WHICH CHARACTER IS:"_ I13j 21:5u W$(I)} R$ R$A$(I)500 "WRONG, IT IS ";A$(I) 510 "CORRECT" J11500:J (12) I K N 46,7,45,39,40 K1N8 READ IN SHAPE #, ANSWER, AND QUESTIONL I16:S(I):Ia I13:A$(I):Iv I13:W$(I):I , PUT SHAPES ON THE SCREEN 634,0:1:1:(12) @I12 JJ13 TS(J3(I1))39(J1)80,29(I1)60 ^6(I1)10:1L BE LABLED WITH A LETTER FROM 'A' TO 'F'." <"FOR EACH GROUP OF BRIEF FORMS YOU WILL BE ASKED THREE QUESTIONS. PRESS THE KEY OF YOUR CHOICE." F:"YOU DO NOT HAVE TO PRESS THE RETURN KEY." P:"PRESS ANY KEY TO CONTINUE.":A$:A$:(12) dN18 :(4)"BRUN LOMEM:":16384::(4)"BRUN HIGHER TEXT"G214,255q(4)"BLOAD SHORTHAND.MASTER ,A25443"1:0:232,99:233,993+ 2:"THIS IS A DRILL OVER SHORTHAND BRIEF FORMS. YOU WILL BE GIVEN SIX DIFFERENT BRIEF FORMS. EACH WIL     ))))))?$(((-;; ?$(((-? -$(((--  **$ ) ))(*- -- ((((( 11: ((( -% # ((  )))    ) )) -----------------(((626 232323232$26!!!201 1 ((((--- *-*6266 !!201 1 (((((----- *-*-*I$((( ) ;#.$((( 9 )-$(((  '$((((-< ) ))(-$$((()))))))))  # )(((((((((883*** 666?8(( ?26?##(-**6161266666363-6666!!!!!!!!!!!!!!!!?6666!!!!!!!!!!!!!!!!!!!!!!!!!7233 6336 1166266 111$26&!!!!!!!!!!!!!!!%233 ,*- ----- *66,-*)--(((-- *-*---------(-(-(-(-(?;:;;;?---,($6 611$-*)--(((:;8(((((---- *-*-*'-*)--((((-- *;; ! 16&!!!!!!!!!!!!!!!?-*)--- (((21 3366111,1 21222;#((((((((((63361--*)--(((=3366 6)*- -- (((333326666 616 6 6 -3366 6)*)--(((((---- *-*-*>3366 6 6 33336666 6 6 6 6 .3366 6 6 33336666 6 6 6 6 666-(((---* ((3 ( )))   ) ) ?( !)---- ) ) .- 6:; (( -73 ()  ???????????????????33266 6 6 &!!!!!!!!!-33266 6161163;! ! ! ( ((333361.3 () 666666326666 6 .((-- *-*-3 () 7 201 1 ()))))))))))'3 () 63332611-------531() 6333261--- -- (-() !!!!!!!!!!!!!!!!!!!!!!!!!,--------------------------51666363 ------------------------------; )--------------------*- --((((v--------------------*- --- ((((6--------------------2116------------516126666636363----------5636116666111$-*-*$((((---- *-* 66666666666616126666636326?336 ( $ 2222;  3&?????????? )%(--------------- ;:?$--------------------3366116---------------6666663636363-!!26 33266 6 6 6126663-116666.-------------------623232323233;; #))))))))))))) 2323232323.---------------------------?-*-*)----((((((---- *-*-* ((((---- *!!!!!!!!!!!!!!6((((((( (--)))6::)((-- *-*$ -*)--((( ((-- *-* --------666363666 )- - ----((((6# 1 6 612666633333-; ((1111663##)((((-- * 2666 6 6 6 6 36 6 33336666 6 6 6 6 (((---*(((-- * 2;?! ((((-- *-*6366)) ( 6 ))--(((-- *-*((-- *-*36666 1((---*-*--(((?6N(((---*%!!!!33?; $ )161666663636& ! ! ! ! $323)) 361 ;; $ )1666363&!!!!!!!!!!!-------------------- ) ))(( 8 2:?$-*)--(((7!!!!!!!!!!!!!!636326666 6161-33336-??-)  $ ;3636666616161?3:;;,----- *))-6?; $ )216126666636@Ks<K Jn*8\/ENi$KpNe9 b $ W  U ) A g }  $ W /P#Ft)=[r2H      `p8      8p`@`pp@@@@@@@@pppx @`p8 ||||@@ xp@`p8 |||| || xp@`p8 ||  xp||@`p000@`p8 8p`@@@@@@@L\xppx\L@@@@@@||@@@@`pp`@`p0||`pp`@`p8 Ƀpppppppppppp>>>><<88` ` ` |?|?00~~px\\xp@@||``<f0f8<@`p8330xLLL|xxlL xp`pp`@`p0 W         O ң/  M $' 1$L11 $$ ɍ` )?~?7 , AY M 3 o 2+I`*)hQL$h 1L$h)L$h*`ɇ :I :`,0`  I`UU**ժU**U4+;߂ +|[?,$ +|B\|#B\9 Σ8 0h`H 0Iȱ 0I _ 0h `+i,^!*i,4*iPII*&if*+`, P\H_p , PPH` Bh $ 0IPH*&& h*H&& h& f$)% Ș)% L$, J , 0IH)hl )M H4+))`,1ɰ(ɸ$)_ B``ɠhɃ`ə`ɚ`ɂ`ɀ`ɐ`ɑ `ɗ@ `Ʌ `ɒ `ɔL `H, P $$!$  , %%#%% y $h( k HH _ 0h,  k  $( ɛɍ `HH 3, P Ș! 3$hh` k,  %%#%*I* 0`H, ,0 h`(*)) &+`H,0 @ &,P,R,Wh,  N H%2 hH)*** **m(L(mhH h '`,ɰ Ʌ+hi#2H $)) &)!(*e))e++8) )L Lp"H $)) &+(*hi#H j j L *(+) 0!*(`$ H))? @(hN    Vɖ ILɓ%Ɂ)ɍ*ɘ&,  ɕ( ` (LN N ` `(5 $, P$$!#$%, i#V%i#%M%L" `"%$Iiii=ߤ$%H " %%, %%#h%LB y ,fH <hLp $,  %%#%  kH %+I`*L )*! 0h`"H $)) &)(*)#`LkL Li ލR,0 ,J̩@K @& &  < 2 y6789L8L< | $(  ΰɐ$, P$$~!$$P$"%n%, %%L"ɍ7Ɋ7ɈɌOɎfɆ>ɉɋɏZ $ H h .#` L}%J u H h d #` L Q ; #` Q #`#2 '( H() 1 eȱm)h`JJ`#JȱJLh `#  <(eΨ =)eϰ%Hh>?iJK̅  1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`00', "&,i8i#H&ii&hif&i'`'i, &i,. &iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaIL &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%0J$)` .Q&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j         0L@` g RgƖ8PgPQhQghe Ӣi  g y  gh^_8^eP^ȱ^ eQ^^_Ll8ePeQ`LB1ĺD$;"RUN PAYMENT EPS": 0B2ĺD$;"RUN PAYMENT EPS"Y :B3ĺD$;"RUN PAYMENT APP"u XD$;"RUN FINANCIAL PAK" D$;"RUN INFLATION" D$;"RUN SHORTHAND" :6:"WHICH PRINTER WILL YOU BE USING?" :5:"1. EPSON" :5:"2. APPLE" 6,48:"BALANCE";(36,63:"INTEREST";A(36,73:"PRINCIPAL";Y236,85:"PAYMENTS";r<36,101:"INTEREST";F36,111:"PRINCIPAL";P36,123:"PAYMENTS"U36,1:"--------------";V36,24:"-------------------";W36,48:"-------";)X27);(15)~36,5:"PAYMENT";836,29:"APPLY TO";N36,48:"UNPAID";v36,66:"YEAR TO DATE TOTALS PAID";36,104:"LOAN TO DATE TOTALS PAID"36,1:"DUE DATE";36,12:"NO.";36,24:"INTEREST"; 36,34:"PRINCIPAL";3S$(ANS$,1)"N"995 541:(27);(15)E(27);(28)V(27);(30)]0c *** SUBROUTINE FOR PRINTING HEADINGS ***1(9);"80N"(27);(81)(27);(14)L::::V36,23:"**** ";Y;" ****" [(AL PAYMENT OF $";%MPY:V11:7000MP$(V1);" DUE ";M3;"-";FD;"-";Y;"."aMLI:V11:7000"TOTAL INTEREST IS $";P$(V1);"."MLA:V11:7000"TOTAL AMOUNT OF PAYMENTS IS $";P$(V1);"."0:"DO YOU WANT TO TRY AGAIN? ";AN31İ9000:820*8000.4PPP:PYPI:PPPPK>YIYII:LILII:LPLPPPaHYAYAPY:LALAPYqRPR2İ3000fPR1PR2ĺ(27);(14)uMP8:V11:7000z"TOTAL NUMBER OF PAYMENTS IS ";T;"."}T1;" PAYMENTS OF $";~P$(V1);".""FIN2000TT1"PR2İ3000+QM3AM312İ4000:500MM3M31VQM3bZQ12xFD31İ9000:52080002000 TT1PR2İ3000M3M31&PPY08000ZX4000b500 M313İ4000%TT1 &FD31- *** COMPUTE 1ST MONTH AND PRINT ***:R2R100IFMM3422WFD1424qIPR2((D1D)1)365z425IPR2((FDD)1)365425IPR2((D1D)FD)365FMM3440M312YY1:M31:440M3M31PR2İ100020:"$";P$(V1)*M312Y2Y1:M41:290; Y2Y:M4M31m""1ST PAYMENT DUE:";:36,20:FM;"-";FD;"-";Y2, *** SET ALL COUNTERS TO 0 ***6YI0:YP0:LI0:LI0:LP0:YA0:LAO:T0rM34M36M39M311D130:410|M32D128:410D1ME:";:36,20:B$2"LENDER'S NAME:";:36,20:L$\ "LOAN DATE:";:36,20:M3;"-";D;"-";Yo MP:V11:7000y P8PY"LOAN AMOUNT:";:36,20:"$";P$(V1)"INTEREST RATE:";:36,20:R;" PER CENT"MPY:V11:7000"MONTHLY PAYMENT:";:36,U WANT? "4 " (1) PRINTOUT OF LOAN SUMMARY" " (2) PRINTOUT OF LOAN SUMMARY AND AMORTIZATION TABLE" " (3) NO PRINTOUT ":PR PR1PR2Ċ1 PR1PR2ĺ(27);(31) PR1PR2ĺ(27);(14)"BORROWER'S NAMAKE YOUR FIRST PAYMENT."9 "(EXAMPLE:JULY 3 WOULD BE"P "ENTERED AS 7,3)"[ FM,FDc : "ENTER THE NAME TO WHOM" "THE LOAN IS TO "; B$ : "ENTER THE NAME OF THE LENDER "; L$:: "WHICH OF THE FOLLOWING DO YOUNT, INTEREST RATE, OR PAYMENT AMOUNT.":::100: :Y "ENTER DATE LOAN MADE BY"o "MONTH,DAY,YEAR" "(EXAMPLE: JUNE 12,1981 WOULD BE" "ENTERED AS 6,12,1981)" M3,D,Y : "ENTER THE MONTH AND DAY YOU WOULD" "LIKE TO NTER THE NUMBER OF MONTHLY PAYMENTS. ";NNT PYP(1((11(1R212)NN)(R212)))l PY(PY100.5)100u 150 ::"ENTER MONTHLY PAYMENT ";PY 2 RP12100PYĺ"PAYMENTS ARE NOT LARGE ENOUGH TO COVER INTEREST. CHANGE EITHER LOAN AMO"B " WE WILL COMPUTE THE LENGTH OF THE LOAN."m " (2) GIVEN THE NUMBER OF MONTHS," " WE WILL COMPUTE THE MONTHLY PAYMENT." :"ENTER THE NUMBER (1 OR 2) YOU WANT. ";ANS ANS1ī140 :* "E::::? *** PROGRAM TO BUILD AMORTIZATION TABLESed"WHAT IS THE AMOUNT OF LOAN? ";Pmn:x"ENTER INTEREST RATE IN PER CENT ";RyR2R100z:}"YOU NOW HAVE THE FOLLOWING CHOICES: " ~" (1) GIVEN A CERTAIN PAYMENT,          "G 3(14)"**";:36,3:(27);(15)"DATE: "D$;:36,73:(27);(14)"**"m 5I12:J140:(14)"*";:J::I~ 6(27);(15) X: ^1,62999 _0N" (27) (14)#((28)3)(1)(28)>+(12)j,I12:J140:(27);(14)"*";:J::I/(27);(14)"**";:36,(20((P$)2)):P$;:36,38:(27);(14)"**" 1(14)"**";:36,3:(27);(15)"PROGRAMMED BY: ";N$;:36,73:(27);(14)"**t'M32FS28:10300 'FS311<(M310ĺ" ";G(M3;"-";FS;"-";Y;k)V1010:36,Z(V1):P$(V1);:V1th)" "z)"INPUT PROGRAM NAME: ";:P$::"INPUT PROGRAMERS NAME: ";:N$::"INPUT DATE: ";:D$1(27);(28)(9)"80)1  @QM316EQ4Q6Q9Q11D130:8030KJQ2D128:8030UTD131g^IPR2D1365pcQM3vh(#QM3-#Q4Q6Q9Q11D130:90302#Q2D128:9030<#D131F#IPR2D1365P#'M34M36M39M311FS30:10300ES 7100-7180 LINE UP DIGITS ACCORDING TO PLACE VALUEQ(M)9.99Z(V1)Z(V1)1o(M)99.99Z(V1)Z(V1)1(M)999.99Z(V1)Z(V1)1(M)9999.99Z(V1)Z(V1)1(M)99999.99Z(V1)Z(V1)1(M)1Z(V1)Z(V1)1(M)0Z(V1)Z(V1050]P$(V1)(M)3b(100M)(100(M))07030OlP$(V1)(M)".00":7050rv(((M)1)((P$(V1))2))7040wM1((((10M)100).00001))100xM2(10(M.00001)){M1M207045P$(V1)(M)"O"7050P$(V1)(M)4 LIN M310ĺ" ";& M3;"-";FD;"-";Y;J V1010:36,Z(V1):P$(V1);:V1S " "YH  *** SUBROUTINE FOR SETTING YEAR AND COUNTERS ***M31 Q1YI0:YP0:YA0:YY1PR2İ1000hXM(M100.5)100ZM0P$(V1)"0.00":7P:V16:P$(V1)(M):Z(V1)78:7100:7000Vl MYA:V17:P$(V1)(M):Z(V1)89:7100:7000v MLI:V18:P$(V1)(M):Z(V1)105:7100:7000 MLP:V19:P$(V1)(M):Z(V1)116:7100:7000 MLA:V110:P$(V1)(M):Z(V1)127:7100:7000 FD31İ10000:3400UTINE FOR PRINTING ***>& MT:V11:P$(V1)(M):Z(V1)14:7100l: MI:V12:P$(V1)(M):Z(V1)27:7100:7000D MPP:V13:P$(V1)(M):Z(V1)38:7100:7000N MP:V14:P$(V1)(M):Z(V1)51:7100:7000X MYI:V15:P$(V1)(M):Z(V1)67:7100:7000'b MY36,63:"------------------------------";WZ36,101:"------------------------------"]x *** SUBROUTINE FOR COMPUTATIONS ***>PPPYIHPPPPRYIYII\YPYPPPfLILIIpLPLPPPzYAYAPYLALAPY *** SUBRO34:"PRINCIPAL";'36,48:"BALANCE";?36,63:"INTEREST";X(36,73:"PRINCIPAL";p236,85:"PAYMENTS";<36,101:"INTEREST";F36,111:"PRINCIPAL";P36,123:"PAYMENTS"U36,1:"--------------";V36,24:"-------------------";W***"X(15) [(27);(81)6~36,5:"PAYMENT";O36,29:"APPLY TO";e36,48:"UNPAID";36,66:"YEAR TO DATE TOTALS PAID";36,104:"LOAN TO DATE TOTALS PAID"36,1:"DUE DATE";36,12:"NO.";36,24:"INTEREST"; 36, TRY AGAIN? ";ANS$*(ANS$,1)"N"99515E1:(27);(15)V(27);(28)g(27);(78)n0t *** SUBROUTINE FOR PRINTING HEADINGS ***1(9);"133N"(27);(81)(14)L::::V36,23:"**** ";Y;" *V1);"."""FINAL PAYMENT OF $";6MPY:V11:7000^P$(V1);" DUE ";M3;"-";FD;"-";Y;"."rMLI:V11:7000"TOTAL INTEREST IS $";P$(V1);"."MLA:V11:7000"TOTAL AMOUNT OF PAYMENTS IS $";P$(V1);"."0:"DO YOU WANT TO31İ9000:820*8000.4PPP:PYPI:PPPPK>YIYII:LILII:LPLPPPaHYAYAPY:LALAPYqRPR2İ3000fPR1PR2ĺ(27);(14)k(27);(78)uMP8:V11:7000z"TOTAL NUMBER OF PAYMENTS IS ";T;"."}T1;" PAYMENTS OF $";~P$(2000TT1"PR2İ3000+QM3AM312İ4000:500MM3M31VQM3bZQ12xFD31İ9000:52080002000 TT1PR2İ3000M3M31&PPY08000ZX4000b500 M313İ4000%TT1 &FD31- *** COMPUTE 1ST MONTH AND PRINT ***:R2R100IFMM3422WFD1424qIPR2((D1D)1)365z425IPR2((FDD)1)365425IPR2((D1D)FD)365FMM3440M312YY1:M31:440M3M31PR2İ100020:"$";P$(V1)*M312Y2Y1:M41:290; Y2Y:M4M31m""1ST PAYMENT DUE:";:36,20:FM;"-";FD;"-";Y2, *** SET ALL COUNTERS TO 0 ***6YI0:YP0:LI0:LI0:LP0:YA0:LAO:T0rM34M36M39M311D130:410|M32D128:410D1ME:";:36,20:B$2"LENDER'S NAME:";:36,20:L$\ "LOAN DATE:";:36,20:M3;"-";D;"-";Yo MP:V11:7000y P8PY"LOAN AMOUNT:";:36,20:"$";P$(V1)"INTEREST RATE:";:36,20:R;" PER CENT"MPY:V11:7000"MONTHLY PAYMENT:";:36,U WANT? "4 " (1) PRINTOUT OF LOAN SUMMARY" " (2) PRINTOUT OF LOAN SUMMARY AND AMORTIZATION TABLE" " (3) NO PRINTOUT ":PR PR1PR2Ċ1 PR1PR2ĺ(27);(31) PR1PR2ĺ(27);(14)"BORROWER'S NAMAKE YOUR FIRST PAYMENT."9 "(EXAMPLE:JULY 3 WOULD BE"P "ENTERED AS 7,3)"[ FM,FDc : "ENTER THE NAME TO WHOM" "THE LOAN IS TO "; B$ : "ENTER THE NAME OF THE LENDER "; L$:: "WHICH OF THE FOLLOWING DO YOUNT, INTEREST RATE, OR PAYMENT AMOUNT.":::100: :Y "ENTER DATE LOAN MADE BY"o "MONTH,DAY,YEAR" "(EXAMPLE: JUNE 12,1981 WOULD BE" "ENTERED AS 6,12,1981)" M3,D,Y : "ENTER THE MONTH AND DAY YOU WOULD" "LIKE TO NTER THE NUMBER OF MONTHLY PAYMENTS. ";NNT PYP(1((11(1R212)NN)(R212)))l PY(PY100.5)100u 150 ::"ENTER MONTHLY PAYMENT ";PY 2 RP12100PYĺ"PAYMENTS ARE NOT LARGE ENOUGH TO COVER INTEREST. CHANGE EITHER LOAN AMO"B " WE WILL COMPUTE THE LENGTH OF THE LOAN."m " (2) GIVEN THE NUMBER OF MONTHS," " WE WILL COMPUTE THE MONTHLY PAYMENT." :"ENTER THE NUMBER (1 OR 2) YOU WANT. ";ANS ANS1ī140 :* "E::::? *** PROGRAM TO BUILD AMORTIZATION TABLESed"WHAT IS THE AMOUNT OF LOAN? ";Pmn:x"ENTER INTEREST RATE IN PER CENT ";RyR2R100z:}"YOU NOW HAVE THE FOLLOWING CHOICES: " ~" (1) GIVEN A CERTAIN PAYMENT,!! ! ! ! ! !!!!!!!!!""" " " " " """:36,73:(27);(14)"**"^ 3(14)"**";:36,3:(27);(15)"DATE: "D$;:36,73:(27);(14)"**" 5I12:J140:(14)"*";:J::I 6(27);(15) X: ^1,62999 _027);(28)(9)"80N"$(27)/ (14):((28)J)(1)(28)U+(12),I12:J140:(27);(14)"*";:J::I/(27);(14)"**";:36,(20((P$)2)):P$;:36,38:(27);(14)"**" 1(14)"**";:36,3:(27);(15)"PROGRAMMED BY: ";N$;39M311FS30:10300-t'M32FS28:103007'FS31H<(M310ĺ" ";^(M3;"-";FS;"-";Y;)V1010:36,Z(V1):P$(V1);:V1h)" ")"INPUT PROGRAM NAME: ";:P$::"INPUT PROGRAMERS NAME: ";:N$::"INPUT DATE: ";:D$1 ((M)0Z(V1)Z(V1)1  +@QM31MEQ4Q6Q9Q11D130:8030bJQ2D128:8030lTD131~^IPR2D1365cQM3h(#QM3-#Q4Q6Q9Q11D130:90302#Q2D128:9030<#D131F#IPR2D1365P#'M34M36M)(M) K LINES 7100-7180 LINE UP DIGITS ACCORDING TO PLACE VALUEh(M)9.99Z(V1)Z(V1)1(M)99.99Z(V1)Z(V1)1(M)999.99Z(V1)Z(V1)1(M)9999.99Z(V1)Z(V1)1(M)99999.99Z(V1)Z(V1)1(M)1Z(V1)Z(V1)1ZM0P$(V1)"0.00":7050*]P$(V1)(M)Jb(100M)(100(M))07030flP$(V1)(M)".00":7050v(((M)1)((P$(V1))2))7040wM1((((10M)100).00001))100xM2(10(M.00001)){M1M207045P$(V1)(M)"O"7050P$(V1 FD31İ10000:3400' M310ĺ" ";= M3;"-";FD;"-";Y;a V1010:36,Z(V1):P$(V1);:V1j " "pH  *** SUBROUTINE FOR SETTING YEAR AND COUNTERS ***M31 Q1YI0:YP0:YA0:YY1PR2İ1000hXM(M100.5)10067:7100:7000>b MYP:V16:P$(V1)(M):Z(V1)78:7100:7000ml MYA:V17:P$(V1)(M):Z(V1)89:7100:7000v MLI:V18:P$(V1)(M):Z(V1)105:7100:7000 MLP:V19:P$(V1)(M):Z(V1)116:7100:7000 MLA:V110:P$(V1)(M):Z(V1)127:7100:7000Y- *** SUBROUTINE FOR PRINTING ***U& MT:V11:P$(V1)(M):Z(V1)14:7100: MI:V12:P$(V1)(M):Z(V1)27:7100:7000D MPP:V13:P$(V1)(M):Z(V1)38:7100:7000N MP:V14:P$(V1)(M):Z(V1)51:7100:7000X MYI:V15:P$(V1)(M):Z(V1)36,48:"-------";@X36,63:"------------------------------";nZ36,101:"------------------------------"tx *** SUBROUTINE FOR COMPUTATIONS ***>PPPYIHPPPPRYIYII\YPYPPPfLILIIpLPLPPPzYAYAPYLALAP