L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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- ( t Ϡ@跻~!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` $";TT400D"HOTEL EXPENSES $";HTJw"ESTIMATED MEAL EXPENSES $";FD500"DO YOU WANT TO ENTER ANOTHER TRIP Y/N ";:N$N$"Y"1090" THANK YOU FOR USING THIS PROGRAM"255IANCE ";:Fx:I"***************************************":n10)"ESTIMATED TRIP EXPENSES":"***************************************""TOTAL AIRFARE $";A350 "TRANSPORTATION EXPENSES ONE ";D <("ARE YOU GOING TO HAVE A RENTAL CAR Y/N";D-X$d2X$"Y"Ą"AMOUNT PER DAY";Rj47"ARE THE HOTEL EXPENSES KNOWN Y/N "9Y$<Y$"Y"İ250FY$"N"İ300PZ"WHAT IS YOUR ESTIMATED DAILY FOOD" d"EXPENSE ALLOW- "IF THE TRANSPORTATION COST ARE NOT"T "KNOWN THEN ENTER '0' FOR COST": "IF THERE ARE NO TRANSPORTATION COST" "THEN ENTER '00' FOR COST": "TRANS COST TO/FROM YOUR CITY AIRPORT " T 200"HOW MANY DAYS WILL YOU BE GWN THEN EXPENSES ARE FIGURED ON"& K "AVERAGES FROM PREVIOUS TRIPS."Q ] $::: ."HIT ANY KEY TO CONTINUE....."; 8Z$ B D: F"HOW MANY PLACES ARE YOU GOING ?";N H150 : "TOTAL AIRFARE $";A "; (! )"$";A *ATTHT(FD)(RD)(D25)I 0:O ?U a ::: " THIS PROGRAM ESTIMATES THE EXPENSES"  "OF A PROJECTED TRIP BASED ON ACTUAL"  "KNOWN EXPENSES OR IF THESE ARE NOT"  "KNO " ,HT(D1)37 @& ^I1N5 hTTT(I)TT< rIH wTTTTTN |Y I1Dh HTHTH(I)o Iu {  "RENTAL CAR $"RD  "MISCELLANEOUS $"D25 :  &"TOTAL EXPENSES  I1N + "CITY NUMBER ";I;6 C$(I)= IC N I1Nz "TRANS COST TO/FROM AIRPORT IN ";C$(I) T(I) T(I)0T(I)20 T(I)0T(I)0 I I1D1 "HOTEL EXPENSES FOR NIGHT ";I; "$";H(I) I::::::::&255U " AN ORIGIONAL PROGRAM BY PAUL PAGE"::w" MAY 24,1978 "110150::::::: :#5)"TRIP EXPENSE ESTIMATING PROGRAM"(110d1000nI15000xI  0" IJT21"V(J)V(J)X(I)(1R(I)(IJ1)8"I?"(JE"2f"< SAMPLE DATA FOLLOWS..."F 1,302,6.85,7,.16,.4,1,.05,30,1973"d QE!8K2JT2!!BGGK1(K2K3)7!LY(J)Y(J1)(1G)G!VX(J)Y(J)DR!`G(J)GY!jJj!tGG2:G(J)G2{!~N99992200!2020!!!X(T2)X(T2)(X(T2)(1A(7))(A(4)A(7)))!!X(T2)X(T2)A(8)Y(T2)!!!J1T2"V(J)21E f K3K3(KT2) p K) z K1GG25 JT1EB K2EJ1U GGK1(K2K3)k Y(J)Y(J1)(1G){ X(J)Y(J)D G(J)G J GG2:G(J)G2 N99992200 2020 K30 KT21E K3K3(KT2) K $K1GG2!.JT21  JT1T2" Y(J)Y(J1)(1G)- G(J)G= X(J)Y(J)DD JJ P e K1(GG2)(ET2)s JT21E~ GGK1 Y(J)Y(J1)(1G) X(J)Y(J)D G(J)G J GG2:G(J):G2* N999922004 2020> H R K30 \ KT Z(I)63010 3040! Z11+ 30404 Z21; IE 3080a "NO CHANGES WERE MADE"k 3150{ Z213140 Z113130 & "ITEM 6?";0 A(6): 870D Z11890N 960X Q$"YES"3180b Q$"NO"l 960v  CH ITEMS?"J Z110:Z(Z):Z;T X010:X(X)02905:XSY NUMXX:NUMX03010_^ Q2NUMXmh Z10:Z20r "WHAT ARE THE NEW VALUES?";| X110:K(X):K(X)0NUMXX:K(X)02950:X NUMX03060 I1Q2 A(Z(I)K(I) Z(I)03030% W(PV(11))(1R(T2))(T2)Y(T2)w 936:"REQUIRED P/E RATIO IN";A(9)T2;" TO JUSTIFY PRICE IS";(W100.5)100 "DO YOU WISH TO CHANGE ANY ITEM <0 TO 9>?"; R$ R$"NO"3160" R$"STOP"3190, R$"END"3190@ Q$"NO" E " WHI4))(T21)P WP2700%Z T2T215d T2752700?n 2610E  936:"GROWTH RATE ";G2;"MUST BE BEYOND ";A(9)T21;"TO JUSTIFY PRICE" 2760 936:"GROWTH RATE ";G2;" MUST LAST TO ";A(9)T21;"TO JUSTIFY PRICE" 2820  383000.5)100< "VALUE/EARNINGS: ";((V(I)Y(I))100.5)100d "INTRS.VALUE: ";(V(I)100.5)100k Iw :2820}  3830( G3A(7)2 X(T21)X(T2)(1G2)< V(1)V(1)X(T21)(1A(4))(T21) F WV(1)(X(T21)((1G3)(A(4)G3)))(1A("FOR YR. ";A(9)T2;" FORECASTED P/E IS ";A(8):"AND PRICE IS ";Y1Gj t "DO YOU WANT A LIST OF FUTURE VALUES?";A$::A$"YES"2470:2820 G(1)G(2) I1D2:D1A(9) "YEAR: ";ID1 "EARNINGS: ";(Y(I)100.5)100  "GROWTH: ";(G(I)1;"VALUES":"PRICE ";P3"EARNINGS ";YY "P/E RATIO ";((PY)100.5)100_ p A(6)22360$ "LONG TERM GROWTH RATE";A(7). 8 "INTRINSIC VALUE ";(V(1)100.5)100B G A(6)12410L Y1(A(8)Y(T2)100.5)100A` 1440  %/*A(0)22580@4A(6)22230LHG2A(7)WRDA(5)b\A9999hazfET212190pT1E:T2Ez32102210X93290,3410,3580T2E3740224037903820R$"NO"2360 A(9)910vD6D6T(2)T(6)!19400D6D6T(2)6GNUMX82080WD6;" ";X110:T(X):X:X110:T(X)0NUMXX:T(X)01980:XT(1)02090G2T(1)ET212020X93290,3410,3580GG2T1E ET21NUMX71780!,DT(7)=NUMX81820KIT21EYR(I)T(8)`Ij1850uDA(5)ET211820R(E)A(4)1850IT21E&R(I)A(4)0I:DNNUMX81890X1910bNUMX11940l11490T2T1NUMX31560*DT(3);NUMX41570HIT1T2VR(I)T(4)]Ig1600rDA(5)"IT1T2,R(I)A(4)6I@3210TNUMX51650^X9T(5)h1660rX91|NUMX61700ET21T(6)1710OF THE ADJUSTMENT IN YEARS, AND THE DIVIDEND PAYOUT RATIO AND DISCOUNT RATE FOR THIS ADJUSTMENT PERIOD."wxD6;" "P110:T(P):P:X110:T(X)0NUMXX:T(X)01420:XT(1)02090GT(1)G2GNUMX11480T2T1T(2)1BEGINNING IN THE YEAR PRINTED BELOW, ENTER THE EARNING GROWTH RATE, THE DURATION OF THE "2"GROWTH RATE IN YRS., THE DIVIDEND PAYOUT RATIO FOR THESE YEARS, THE DISCOUNT RATE FOR THESE YEARS, THE TYPE OF AD-"i<"JUSTMENT, THE DURATION &`"RATE FOR THE ADJUSTMENT PERIOD.":" THIS WILL BE REPEATED, AND YOU MAY MAKE FORECASTS REACHING UP TO 75 YEARS FROM THE CURRENT YEAR.":"HIT ENTER";ZZ$:T11N0D6A(9)1 Q$"YES"1400e(" FOR THE YEARS , THE TYPE OF AJUSTMENT FROM THIS TO THE NEXT GROWTH RATE (ANSWER 1 FOR STRAIGHT LINE"V" ADJ, 2 FOR FAST ADJ, 3 FOR SLOW ADJ), THE DURATION OF THE ADJUSTMENT PERIOD IN YEARS, THE DIVIDEND PAYOUT FOR THE ADJUSTMENT PERIOD, AND THE DISCOUNT"TION FEASIBLE. ENTER A LARGER DISCOUNT RATE."8A(4)B1010V$Q$"YES"1230b.936:B" YOU WILL NOW BE ASKED TO FORECAST A GROWTH RATE IN EARNINGS, THE DURATION OF THAT RATE IN YEARS, THE DIVIDEND"\L"PAYOUT RATIO FOR THESE YEARSpA(0)3950zA(6)19304:"ITEM 8 ";A(8)=960R"ITEM 7 ";A(7)XtPA(1):YA(2):Y(0)A(3)A(0)31060A(7)A(4)1060."THE LONG TERM DISCOUNT RATE MUST BE GREATER THAN THE LONG TERM GROWTH RATE TO MAKE THE SOLU PR./EARN. RATIO IS NOT NEEDED IN THIS CASE.":H X110000:X:936 936:"CURRENT CALANDER YEAR":"ITEM 9-------";A(9):936 4970 R936::"ENTER ITEMS 0-6": \Q06:"ITEM ";Q;" ";:A(Q):Q a"ITEM 9 ";A(9) fA(0)2930 "ITEM 6-----";A(6)" A(6)1740b 936:"PRICE/EARNINGS RATIO PROJECTION":"ITEM 8----";A(8) " ITEM 7, LONG TERM GROWTH RATE, IS NOT NEEDED FOR THIS CASE." 770 936:"LONG TERM GROWTH RATE":"ITEM 7-----";A(7)0 " ITEM 8,":"ITEM 4---";A(4):936r D"LONG TERM DIVIDEND PAYOUT RATIO":"ITEM 5----";A(5):936 lA(0)2740 vA(0)3820 {34,0:936 "1. FORECAST OF A LONG TERM GROWTH RATE":"2. PRICE/EARNINGS RATIO PROJECTION":  936U "WHAT IS THE CURRENT MARKET VALUE?":"ITEM 1-------?";A(1):936 "CURRENT EARNINGS PER SHARE?":"ITEM 2------";A(2):936 "NORMALIZED EARNINGS THIS PERIOD":"ITEM 3-----";A(3):936' 0"LONG TERM DISCOUNT RATENSE. PLEASE RETYPE."::250> :"RESPOND AS INDICATED."::D P :34,6 "1 DETERMINE INTRINSIC VALUE":"2 DETERMINE REQUIRED TIME AT A GIVEN GROWTH RATE":"3 REQUIRED FUTURE PRICE/EARNINGS RATIO": "ITEM 0-------WHICH?";A(0)  :::HX(80),G(80),C(80),V(80),Y(80),R(80),T(10),Z(10),K(10)"DO YOU WANT INSTRUCTIONS FOR SUPPLYING DATA??";Q$936R$"YES":Q$"YES"410Q$"NO"850"Q$"DATA"370@I09:A(I):I^970 r:"INCORRECT RESPO             YEARLY DIVIDEND= ";TYD<"YEARLY DIVIDEND YIELD= ";YDYBR% f"PERCENT CHANGE= ";E(I)+ g2 pI8 q> rb "VALUATION OF TOTAL PORTFOLIO" "----------------------------"  "ORIGINAL VALUE= ";S "CURRENT VALUE = ";S1 "PERCENT CHANGE IN VALUE ";PC"TOTALI PC(S1S)S1100- YDYTYDS11008 *I1NT 4"STOCK # IS ";IZ 5y >"NUMBER OF SHARES= ";A(I) ? H"ORIGINAL PRICE= ";B(I) I R"CURRENT PRICE= ";C(I) S \"DIVIDEND= ";D(I) ]ES ";A(I)+ ""ENTER ORIGINAL PRICE ";B(I)L 6"ENTER CURRENT PRICE ";C(I)h J"ENTER DIVIDEND ";D(I)n Ku TI~ ]S0 bS10 hTYD0 lI1N E(I)(C(I)B(I))B(I)100 SSA(I)B(I) S1S1A(I)C(I) TYDTYDA(I)D(I) *****************************"$ {* |M A(10),B(10),C(10),D(10),E(10)v "NUMBER OF STOCKS IN PORTFOLIO- ";N| "ENTER NUMBER OF SHARES, ORIGINAL PRICE," "AND DIVIDEND AS REQUESTED." I1N "STOCK # ";I "ENTER # OF SHARTHE". F"PROGRAM RETURNS THE PERCENT CHANGE"Z P"OF EACH STOCK, VALUE OF THE ORIGINAL" Z"PORTFOLIO, NEW PORTFOLIO VALUE, PER-" d"CENT CHANGE IN VALUE AND ANNUAL DIV-" n"IDEND YIELD AS A PERCENT OF CURRENT" x"MARKET VALUE." y z"*C+ "**********************************"U"**** STOCK PORTFOLIO VALUATION ***""**********************************"("USER INPUTS THE INITIAL STOCK PRICES,"2"NUMBER OF SHARES, CURRENT MARKET" <"PRICE AND THE ANNUAL DIVIDEND.      RLYING STOCKS RETURNS' JOURNAL OF FINANCE"8H&:::e&"TO CONTINUE PLEASE PRESS ANY KEY";:A$m&:s'A936 %::N%"REFERENCES"'X%:%"MERTON,R. 1976 'OPTION PRICING WHEN UNDERLYING RETURNS ARE DISCONTINUOUS' JOURNAL OF FINANCIAL ECONOMICS"%:,%"MERTON,R. 1976 'THE IMPACT ON OPTION PRICING OF SPECIFICATION ERROR IN THE UNDE .5 (50 PERCENT PER YEAR)" $Y"$"ANNUAL INTEREST RATE = .08 (8 PERCENT PER YEAR)"_'$,$"TIME TO MATURITY = .25 (3 MONTHS OR 1/4 YEARS)"6$@$"PERCENTAGE ERROR = (OPT - BS)/BS"J$T$"TO CONTINUE PLEASE PRESS RETURN";:A$$::SHOWN BELOW:"N#"VARIANCE OF CONTINUOUS PART = .25 (25 PERCENT PER YEAR)"T##"VARIANCE OF JUMPS = .12 (12 PERCENT PER YEAR)"$$"EXPECTED NUMBER OF JUMPS = 2 (PER YEAR)"$$"THIS IMPLIES A TOTAL VARIANCE = .25 + 2*.12 = 0 WE GET THE BLACK-SCHOLES RESULT EXACTLY.";#:::h#"TO CONTINUE PLEASE PRESS ANY KEY";:A$v#::::~#:#"REMEMBER TO USE REASONABLE NUMBERS FOR THE INPUTS(BASED ON YEARLY RETURNS)" #"SOME EXAMPLES OF REASONABLE VALUES ARE ICTED BY BLACK-SCHOLES BECAUSE OF THE PROBABILITY OF JUMPING OUT OF THE MONEY."W#/#"PLAY AROUND WITH DIFFERENT STOCK PRICES AND SEE WHAT HAPPENS. NOTE THAT IF WE SET THE EXPECTED NUMBER OF JUMPS EQUAL TO 0 AND THE VARIANCE OF THE JUMPS EQUALTONS OUT THAT OPTIONS THAT ARE WAY OUT OF THE MONEY ARE WORTH MORE THAN WHAT THE BLACK-SCHOLES MODEL WOULD PREDICT,SINCE THERE IS A CHANCE THAT THEY CAN JUMP INTO THE MONEY."Q#"OPTIONS THAT ARE RIGHT ON THE MONEY ARE WORTH LESS THAN THAT PREDO THE VALUE OF AN OPTION WHEN IT IS WAY OUT OF THE MONEY(STOCK PRICE BELOW EXERCISE PRICE)? HOW ABOUT WHEN IT IS WAY IN THE MONEY(STOCK PRICE GREATER THAN EXERCISE PRICE)?"##"TO CONTINUE PLEASE PRESS ANY KEY";:A$#:#:#"IT TURISTRIBUTION."#"THE PROGRAM SHOULD NOT BE USED TO PREDICT OPTION PRICES. HOWEVER IT IS USEFUL AS AN AID IN DETERMINING THE SENSITIVITY OF THE BLACK-SCHOLES MODEL TO ITS INHERENT ASSUMPTIONS."#"FOR EXAMPLE:"##"WHAT HAPPENS TTERISTICS. IT ALSO CALCULATES THE VALUE OF THE OPTION ASSUMING THE BLACK-SCHOLES MODEL HOLDS." x#"WHEN THE TWO OPTION VALUES ARE COMPARED,WE CAN DETERMINE THE IMPACT ON OPTION PRICING OF AN ERROR IN THE SPECIFICATION OF THE STOCK'S RETURN DOF IMPORTANT NEW INFORMATION ABOUT THE STOCK (EARNINGS REPORTS,COURT CASES ETC.)"bh#i#"TO CONTINUE PLEASE PRESS ANY KEY";:A$k#:::in#"THIS PROGRAM CALCULATES THE VALUE OF AN OPTION WHEN THE STOCK RETURN HAS THE PREVIOUS CHARACMPONENTS:"U#Z#"(1) A CONTINUOUS PART DUE TO 'NORMAL' VIBRATIONS IN PRICE CAUSED BY A TEMPORARY IMBALANCE BETWEEN SUPPLY AND DEMAND,CHANGES IN CAPITALIZATION RATES ETC. "_#\d#"(2) A JUMP COMPONENT DUE TO THE ARRIVAL ETURNS DO NOT FOLLOW A CONTINUOUS PROCESS WE CAN NO LONGER USE THE BLACK-SCHOLES FORMULA IN EVALUATING OPTIONS. THIS PROGRAM " P#"CALCULATES THE VALUE OF A CALL OPTION ON SECURITIES WHICH DO NOT PAY DIVIDENDS AND WHOSE RETURNS ARE MADE UP OF TWO COC3.0032776263"C4.00003800365C5.0000488906HC6.0000053830N1.5(1C1XC2X2C3X3C4X4C5X5C6X6)16(#9362#" OPTION PRICING WITH"<#" DISCONTINUOUS RETURNS"A#F#"IF THE UNDERLYING STOCK'S R1N 4038& X(D1):7000:N11N5 D204045I XD2:7000:N2NS 4050l X(D2):7000:N21N OPTSN1EN2(RT) HN1  X CUM NORMAL APPROX. ABROMOWITZ AND STEGUN 26.2.19 bC1.0498673470 lC2.0211410061vERCENTAGE ERROR= ";(SUMOPT)100OPT* 5 FACT1A I1NNQ FACTFACTIX I^ z  BLACK-SCHOLES ROUTINE D1((SE)(R.5VAR)T)(VART) D2D1(VART)  CUM NORMAL DEFINED FOR POSITIVE X ONLY D104035 XD1:7000:N LVAR(VNNDT)! ~GAM(1K)7 RINLKNNGAMTG 4000:WOPTV xLPL(1K)` 3000 @TERM((LPT)(LPT)NN)FACT SUMSUMTERMW NN ::"OPTION= ";SUM ( VAR(VLD) 2 RIN < 4000 F :"BLACK-SCHOLES= ";OPT$ P :"PEST RATE: ";IN0 "INPUT TIME TO MATURITY: ";TZ "VARIANCE OF CONTINUOUS PROCESS: ";V~ "VARIANCE OF JUMP PROCESS: ";D "EXPECTED NUMBER OF JUMPS: ";L K=0 MERTON SPECIAL CASE K0 XN25 SUM0  INFINITE SERIES NN0XN : A$"Y"İ9000$ d936E n" OPTION PRICING WITH"g s" DISCONTINUOUS RETURNS" x:"LOGNORMAL MAGNITUDE CASE" :"ENTER PARAMATER VALUES: " "INPUT STOCK PRICE: ";S "INPUT EXERCISE PRICE: ";E "INPUT INTERt! WRITTEN BY ERIC ROSENFELD= 70 LANCASTER RD\ ARLINGTON,MA 02174f936 "OPTION PRICING WITH DISCONTINUOUS RETURNS":: "DO YOU WISH TO RECEIVE BACKGROUND INFORMATION ON THIS TOPIC...(Y OR N)";:A$            IT STOCK PRICE FOR PERIOD 1":P1,^I2NUMWh"INPUT STOCK PRICE FOR PERIOD ";I:P2imR(I)(P2P1)soP1P2rMMMMR(I)(NUM1)|II1(NUM1)SSSS((R(I)MM)2)(NUM1)ISS(SSPERIOD)::"STANDARD DEVIATION= ";SSC4.0000380036%C5.00004889068C6.0000053830sN1.5(1C1XC2X2C3X3C4X4C5X5C6X6)16y@::"NUMBER OF OBSERVATIONS: ";NUMJ"PERIODICITY OF DATA (I.E. WEEKLY DATA IS 52 ): ";PERIODOTSS0:MM0Y"INPUX(D1):7000:N11N%D2040459XD2:7000:N2NC4050\X(D2):7000:N21NvOPTSN1EN2(RT)HN1X CUM NORMAL APPROX. ABROMOWITZ AND STEGUN 26.2.19bC1.0498673470lC2.0211410061vC3.0032776263:"ENTER STD. DEV.: ":STD#210E:"ENTER INTEREST RATE: ":RN210j BLACK-SCHOLES ROUTINED1((SE)(R.5VAR)T)(VART)D2D1(VART) CUM NORMAL DEFINED FOR POSITIVE X ONLYD104035XD1:7000:N1N403817:I+PI1410,1420,1430,1440,1450,14605Z1340X:"ENTER EXERCISE PRICE: ":Ea210:"ENTER STOCK PRICE: ":STK(3)210:"ENTER TIME TO MATURITY 1:":TIME(1)210:"ENTER TIME TO MATURITY 2: ":TIME(2)210E= ";E':"2. STOCK PRICE= ";STK(3)P#:"3. TIME TO MATURITY 1= ";TIME(1)y(:"4. TIME TO MATURITY 2= ";TIME(2)2:"5. STD. DEV.= ";STDA:"6. INTEREST RATE= ";RC::"ENTER THE NUMBER (1-6) OF THE INPUT YOU WISH TO CHANGE: "F17:STK(I);" ";P(I,1);" ";P(I,2)V" ";HEDGE(I,1);" ";HEDGE(I,2)\cI"DO YOU WISH TO CHANGE ANY INPUTS... (ENTER Y OR N):"23:17:A$A$"N"Ā936 "CURRENT INPUT VALUES:":"1. EXERCISE PRIC! 4000:P(I,J)OPT:HEDGE(I,J)H+ J:I> L PRINT OUTPUTJ V936:o `" EXERCISE PRICE= ";E j" R= ";R;" STD DEV= ";STD t ~" TIME TO MATURITY" "STOCK PRICE",TIME(1),TIME(2)  I15& 1ST OPTION:":TIME(1)N "ENTER TIME TO MATURITY FOR 2ND OPTION: ":TIME(2) "ENTER STANDARD DEVIATION OF THE LOGARITM OF THE STOCK RETURN SERIES: ":STD VARSTD2 I15:STK(I)STK(3)2(I3):I I15:J12 SSTK(I) TTIME(J) THE STD. DEV. FROM STOCK PRICE DATA...(ENTER Y OR N):"I 23:40:A$[ A$"Y"İ8000e :: "ENTER EXERCISE PRICE: ":E "ENTER CURRENT STOCK PRICE:":STK(3) "ENTER CURRENT ANNUAL INTEREST RATE: ":R "ENTER TIME TO MATURITY FORN YEARS (I.E. .25 MEANS THERE ARE THREE MONTHS LEFT BEFORE THE OPTION EXPIRES)" :"5. ANNUALIZED STANDARD DEVIATION OF THE STOCK'S RETURN CONTINOUSLY COMPOUNED (STD. DEV. OF THE LOGARITHM OF THE STOCK RETURN SERIES)9 :"DO YOU WISH TO ESTIMATES TO THE BLACK-SCHOLES FORMULA ARE: "@ |:"1. EXERCISE PRICE"y }:"2. CURRENT STOCK PRICE (MUST BE GREATER THAN 4)" ~:"3. CURRENT ANNUAL INTEREST RATE CONTINOUSLY COMPOUNDED (I.E. .065 EQUALS 6.5% PER YEAR)"P :"4. TIME TO MATURITY I ! WRITTEN BY ERIC ROSENFELD; 70 LANCASTER RD.X ARLINGTON,MA 02174~2STK(5),TIME(2),P(5,2),HEDGE(5,2)3R(250)d936n10:15:"BLACK-SCHOLES"x12:11:"OPTION PRICING MODEL"yI11500:Iz936% {"THE INPUT         10|3V3);;R1;"%"/b" IN ";B1;V3);D4;" DAYS"Sf" OUT ";B2;V3);" =";R2;"%"wj"OPTION ";B3;V3);" ANNUALLY"n"MARGIN ";M2;V3);" BRK-EVEN"q6);"-----";12);" -----";23);" IS"t"TOTALS ";C5;V2);" ";T4;V3);" $";((R310))SELL ";O6;" ";M(M6),S6;"'S AT$";P6;" EACH":AJV16:V213:V329rPV1);"COST";V2);"PROCEEDS";V31);"RETURN"R"YOUR $";C2;V2);"STOCK ";T1;V3);"$";N1;" ON"T"LOAN $"C3;V2);"OPTION ";T2;V3);(C6);" IS " ^"BROKER'S";V2);"DIVIDEND ";T3;OFIT AND RORN1T4C5FC6C2T2T3B1B2B3M2: C6=NET CAPITALR1((N11000)C6)10:R2(3650R1D4)10:R3(((C1N1)100)S1)100A936: OUTPUT RESULTSB"COVERED WRITE NO. ";N9,M;"/";D;"/";Y,E"BUY ";S1;" SHARES AT ";P1::"5=TOTAL COST* M2(((R100)C4)D4365)9 M11M20R C5C2C3B1B2B3M2XsyB((X.009)22)(X16)}M81B(B.7): NYSE DISCOUNTMX2BX121: OTC COSTM83B(B.82): CBOEB25B25: MIN FEE  COMPUTE PR100#1401: COMPUTE FEE ON SHRS;B1B:XT1:X1S1100E1401^B2B:XT2:X1O6:M831401: COMPUTE FEE ON OPTIONSB3B:C4C3T2T3B1B2B3  C4=NET CAPITAL BORROWED;M2= MARGIN INTEREST COST; M1,M2=WHETHER THERE IS INTEREST COST; C4365SeQ((D490).5): COMPUTE NUMBER OF QUARTERS TO RECV DIVIDENDSYj C1=TOTAL COST; C2=OWN CAPITAL; M8=MARKET TYPE FOR BROKERAGE CALCULATION; B= BROKER'S FEE; M8=3 MEANS CBOEC1(S1P1):C2(C1M1):C3C1C2:M8M9:XC1:X1S1101: TO COMPUTE DAYS IN LIFE AND # QTRSRT3(D1S1Q): TOTAL DIVIDEND INCOMExT4T1T2T3:COMPUTE TOTAL INCOME~MY1Y365: Y1= DAYS IN LIFEQD2C(M)DY1:D3C(M6)20Y1: THIS ASSUMES OPTION EXPIRES ON 20TH DAY[D4D3D2:D40D4DE1080143E10:O6S1100: COMPUTE NO.OPTSHM61M612İ955_S610S6300İ960oP625İ965u"PRICE (";P6;" IS < $25":E1E11:T1(O6100S6): T1=PROCEEDS IF OPTION IS CALLEDT2(O6P6): T2= OPTION PROCEEDS(1İ755" M9(M9):M91M92İ760( Q "NOT EVEN 100'S (",S1,")":E1E11: "PRICE OF ";P1;" IS <10 OR >300":E1E11  "EXCHANGE (";M9;") SHOULD BE 1 OR 2":E1E11: !"INPUT EXPIRATION MONTH,STRIKE, COST/OPTION":M6,S6,P6:900/ &E10:D10D15İ575 0L ?"DIVIDEND RANGE IS 0 TO $5 ",D1:E1E11: Y"NO. SHARES,PRICE/SHARE, MARKET(1=NYSE,2=OTC) ":S1,P1,M9:701 gE10601: E10: EDIT STOCK DATA S1100İ751 S9(S1100):S1S9100İ751 P110P130075 Y85 450! M31440: M1.5:R5R14İ455@ b "DATE ERROR",M,D,Y:E1E11: "INTEREST RANGE = 5 TO 14%; R=";R:E1E11: "EVALUATION NO,DIVIDEND($/SHARE/QTR) ":N9,D1 550: CHECK FOR OBVIOUS ERRORS E10501 125  < 501: 601:801:1001:1201:1501:1601:q -"INPUT MM,DD,YY ";M,D,Y::"MARGIN (1=YES) ";M3 .M31306 0::"INPUT MONTHLY LOAN RATE(#.##) ";R 2M11:400: E10 301: E10: M1 M12 450: D1 D12 450: YX(18):IS$"TRANSLATED TO APPLESOFT":20N Y(22):IS$"BY F. PAUL WYMAN":20 ZC(12):0,31,59,90,120,151,182,212,243,273,304,334 [I12000:I:936 \ I1 12: C(I): I _ M(12):I112:M(I)I:I x301 }210:"MORE(Y/N)";A$:A$"Y"  936:CT20:80120((IS$)2)):IS$:bPIS$"STOCK OPTION/COVERED HEDGE PROGRAM":20R(3):IS$"BASED ON 'MICROCOMPUTER STOCK OPTIONS'":20T(9):IS$"BY EDWARD CHRISTIANSON":20V(11):IS$"INTERFACE AGE, FEB. 1977, PP.29-38":20)         1:1060W.5$C121090-.PW:11005BQW;LMEfpC20:C12920(SJ:9300SK=S0970KS01050YSS:C21T1(((2.71828(S2))23.14159))S.231642S1U1SV(U41.33027(U3A1)(U21.78148)(U.356564).319382)WVUTC211060WW ONE? ";B$(B$,1)"Y"Ā%16E0:CC1900CA3790E(MCDLAL(1((.4A2.3)))((C4))(O((CN))O)) 800E(MCDLAL(((C1)4))((O(((C1)N))O))) I2840*I38604E1E:870HE2E:870\E3Z 6 "***************************************"H "*";39);"*"v "* VALUE OF THIS OPTION IS ";R;39);"*" "* HEDGE RATIO = ";P;39);"*" "*";39);"*" "***************************************"  "DO YOU WANT ANOTHERS BEFORE EXPIRATION? ";B$/ (B$,1)"Y"5508 350C &HHB2j 0J((HZ)((F.5G2)X))(G(X))x :C11:880 NK((HZ)((F.5G2)X))(G(X)) XC12 b880 lRHP(Z2.71828(FX))Q v:8 12);A$;" - ";(MN$,3D12,3);" ";VIDEND (MM,DD,YY): ";A,D,C- |I3:7509 BE3E1H E3E2440U B1440^ 460 "** WRONG DIVIDEND DATE **"::90 Y((F365)1) "ENTER THE AMOUNT OF THE DIVIDEND: ";B1 B1B1(YB):B2B2B1 "ANY MORE DIVIDEND365 E2E11270 290P "** EXERCISE DATE PAST - RE-ENTER DATES":90 ""ENTER THE CURRENT MARKET PRICE: ";H ,B20 6"ANY DIVIDENDS PRIOR TO EXPIRATION? ";B$ @(B$,1)"Y"560 ^B0:Y0:B10 h"ENTER THE DATE OF DI INTEREST: ";F" FFF100Y P"ENTER THE EXERCISE PRICE: ";Z Z"ENTER TODAY'S DATE (MM,DD,YY): ";A,D,C dI1:750 n"ENTER THE EXPIRATION DATE (MM,DD,YY): ";A,D,C sD1A xI2:750 X(E2E1)=6MN$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"j A$(20),B$(3):L31:M365:N100:O.75:A11.82126p"ENTER THE NAME OF THE COMPANY: ";A$("ENTER THE VOLATILITY OF THE STOCK: ";G <"ENTER THE RISKLESS RATE OF        HS"; dYO,M! iY(12YOM)12/ nIIN100C xTP(1I)(NY)i "FUTURE VALUE=$";(T100.5)100o "WOULD YOU LIKE TO CONTINUE ?";N$ N$"N"180 9 :D$;"RUNMENU"36 5:"BYE"  D$(4) 8 "FUTURE VALUE OF AN INVESTMENT">h STATEMENT 30-100 REQUSET USER INPUT"INITAL INVESTMENT";(P2"NOMINAL INTEREST RATE";<IF"NUMBER OF COMPOUNDING PERIODS PER YEAR";PN Z"NUMBER OF YEARS, MONT  $S$ .ND(1):PERIODD(2):TD(3). 8936G B12:"TURN TAPE OFF"R LJ12d QI1STK(J,0) VSEC$(J)SEC$(J)(STK(J,I)) `I:J I11000:I 600 N 936P 10:"DO YOU WISH TO MAKE ANOTHER COPY ENTER Y OR N: ";:Z$X :i Z$"Y"ī600o y 936 10:"PLACE TAPE TO BE COPIED IN TAPE RECORDER" 12:"TURN TAPE ON (PLAY)" "AND PRESS ANY KEY" ANS$ STK D0)(SEC$(J)) I1STK(J,0)> STK(J,I)((SEC$(J),I,1))H I:JR 936s 12:"TURN TAPE ON (RECORD)" "AND PRESS ANY KEY" D(1)N:D(2)PERIOD:D(3)T ANS$ STK 4D >S H936 R12:"TURN TAPE OFF" I11500:ID$(3)"MONTHLY"# PD$(4)"YEARLY"- NUM27 936Y 10:10:"COPY SECURITY DATA"j I13000:It ,1000~ X936 b10:"PLACE NEW TAPE IN TAPE RECORDER" l:"TO CONTINUE PLEASE PRESS ANY KEY";:Z$ v: 936 J12 STK(J,! WRITTEN BY ERIC ROSENFELD@ 70 LANCASTER RDb ARLINGTON,MA 02174vdSEC$(2),PD$(4)eA(2),B(2),ALPHA(2,2),BETA(2,2)fS(2,250),R(2,250),X(250),Y(250)gD(3),STK(2,10)PD$(1)"DAILY"PD$(2)"WEEKLY" P   )3"ALPHA ";ALPHA(1,J);" SE ";ALPHA(2,J)I"R SQUARED ";R2O  RETURN DATA"4:"HIGH ";PHIGH;" ";RHIGHX:"LOW ";PLOW;" ";RLOW~:"MEAN ";PMEAN;" ";RMEAN:"VAR ";PVAR;" ";RVAR:"STD DEV ";(PVAR);" ";(RVAR)"::"BETA ";BETA(1,J);" SE ";BETA(2,J$B(2)(S2X2P)5.A(2)(S2((1OBS)XMEAN2X2P))K8R2B(1)2X2PSSTQjfX OUTPUT ROUTINEpY936Z"SECURITY ";SEC$(J)b:"NUMBER OF OBSERVATIONS ";Nl"PERIODICITY OF DATA ";PD$(PERIOD)v:"PRICE DATA .XMEANXMEANX(I)OBS:YMEANYMEANY(I)OBS5IBI1OBSTXPX(I)XMEANfYPY(I)YMEANxXYPXYPXPYPX2PX2PXP2SSTSSTYP2IB(1)XYPX2PA(1)YMEANB(1)XMEANS2(1(OBS2))(SSTB(1)XYP)S20S20 OBSN1"I1OBS.,X(I)R(1,I1)RFC6Y(I)R(J,I1)RFJ@IT|6000gBETA(1,J)B(1)zBETA(2,J)B(2)ALPHA(1,J)A(1)ALPHA(2,J)A(2)op LINEAR REGRESSION ROUTINEzXYP0:X2P0:SST0:XMEAN0:YMEAN0I1OBSZRLOWR(J,2):RHIGHR(J,2).dRMEAN0:RVAR09fI2NXiR(J,I)(S(J,I)S(J,I1))1unR(J,I)RLOWRLOWR(J,I)xR(J,I)RHIGHRHIGHR(J,I)RMEANRMEANR(J,I)(N1)RVARRVAR(R(J,I)2)(N1)IRVARRVARRMEAN2RF((1R)T)1 CALCULATION ROUTINE6PLOWS(J,1):PHIGHS(J,1)IPMEAN0:PVAR0TI1NqS(J,I)PLOWPLOWS(J,I)S(J,I)PHIGHPHIGHS(J,I)PMEANPMEANS(J,I)NPVARPVAR(S(J,I)2)NIPVARPVARPMEAN2PR(J,2)(S(J,2)S(J,1))1R@936SJ12:"DO YOU WISH TO UPDATE THE DATA (ENTER Y OR N):":ANS$fTANS$"N"2000^::"HOW MANY ADDITIONAL DATA POINTS? "hADDrINITN1|NNADD655J1NUM50007000JJ13000:JJJ S!.ND(1):PERIODD(2):TD(3)+8936DB12:"TURN TAPE OFF"OLJ12aQI1STK(J,0)VSEC$(J)SEC$(J)(STK(J,I))`I:JI11000:I93612::"ENTER THE CURRENT YIELD ON 1 YEAR TBILLS(IN PERCENT I.E. .09 FOR 9 PERCENT):"12:"TURN TAPE ON (RECORD)"4"AND PRESS ANY KEY"RD(1)N:D(2)PERIOD:D(3)T\ANS$e STKl4Ds>S}H936R12:"TURN TAPE OFF"f200093612:"TURN TAPE ON (PLAY)""AND PRESS ANY KEY"ANS$STKD$IINITN) "OBSERVATION ";I:S(J,I)3 I:J= 936 12:"DO YOU WISH TO SAVE DATA ON TAPE (ENTER Y OR N): ";ANS$ ANS$"N"2000 J12 STK(J,0)(SEC$(J)) I1STK(J,0) STK(J,I)((SEC$(J),I,1)) I:J 9363T112 lPERIOD4T15 vPERID1PERIOD4ī520a "ENTER THE NUMBER OF OBSERVATIONS:":N :"ENTER THE CURRENT YIELD ON 1 YEAR TBILLS(IN PERCENT I.E. .09 FOR 9 PERCENT):" R INIT1 J12 936:"ENTER DATA FOR ";SEC$(J): THE SECURITY (UP TO 10LETTERS):":SEC$(2)P :"ENTER THE APPROPRIATE NUMBER:"d "THE DATA IS:"y " 1. DAILY" &" 2. WEEKLY" 0" 3. MONTHLY" :" 4. YEARLY" DPERIOD NPERIOD1T1360 XPERIOD2T152 bPERIOD:I ,9363 612:"ARE YOU ENTERING DATA FROM"J @" 1. KEYBOARD"] J" 2. TAPE" T"ENTER APPROPRIATE NUMBER: ";TAPE ^TAPE21000 936 "ENTER THE NAME OF THE MARKET INDEX (UP TO 10 LETTERS):":SEC$(1)) "ENTER THE NAME OF 2)' fS(2,250),R(2,250),X(250),Y(250); gD(3),STK(2,10)N PD$(1)"DAILY"b PD$(2)"WEEKLY"w PD$(3)"MONTHLY" PD$(4)"YEARLY" NUM2 936 10:10:"SECURITY ANALYSIS" 12:" USING THE CAPITAL ASSET PRICING MODEL" I13000Q! WRITTEN BY ERIC ROSENFELD: 70 LANCASTER RD.V ARLINGTON,MA 02174Z IF YOU DO NOT HAVE ENOUGH MEMORY TO RUN THIS PROGRAM CHANGE THE DIM STATEMENT IN 102 (CHANGE FROM 250 TO 100)dSEC$(2),PD$(4) eA(2),B(2),ALPHA(2,2),BETA(2,     HEN IT ASKS FOR THE AMOUNT. TO START IT AGAIN JUST TYPE 'RUN'." :"TYPE 'HELP' AT ANY TIME TO REPEAT THESE INSTRUCTIONS." 24::" PRESS 'RETURN' ";:A$:::20N JUST TYPE THE AMOUNT FOLLOWED BY A RETURN. IT IS NOT NECESSARY TO INSERT A DECIMAL POINT AND TRAILING ZEROS.": "TO ENTER $10.00 YOU CAN ENTER ANY OF THEFOLLOWING:"::5);"10.00";6);"10.0";5);"10":A "TO EXIT THE PROGRAM JUST PRESS 'RETURN' W (A$,(A$)2,1)"."170+ A$A$".00"L A$" "A$:A$(A$,PL3)R g INSTRUCTIONSt 3:958 "THIS PROGRAM WILL CALCULATE THE SALES TAX FOR ANY GIVEN AMOUNT:"::7);"0 < AMOUNT < 9433962.26":q "WHEN IT SAYS 'AMOUNT= $ '(7);" NUMBER TOO LARGE":25_ sA(A$):PL1(A0)(A9)(A99)(A999)(A9999)(A99999)x xA(A$)100:A070 }AA((A(A)).5) A(A)100 A$(A) (A$)1165 (A$,(A$)1,1)"."155 A$A$"0":170 (A$)21650 #A$AM$:100:AM$A$6 (AST((AM$)):125:TX$A$V -A(AM$)(TX$):135:TP$A$o 25);"AMOUNT= $";AM$ 75);"TAX= $";TX$ <5);"TOTAL= $";TP$ A25 F(37)2:958:34,0 K d ROUND OFF iA(A$):A9433962.26115 n: SERIAL #02-032780-1226A1 SALES TAXD BY ED MAGNINR 9/29/79 N$"SALES TAX"::::15);N$;16)::34,2:"DO YOU WANT INSTRUCTIONS? ";R$::(R$,1)"Y"200ST6: 6% SALES TAX "AMOUNT= $ ";AM$::AM$"HELP"2012YOM)12 PIIN1003 ZRTI((I1)(NY)1)= d::i n"REGULAR DEPOSITS = $";(R100.5)100u o::: x"WOULD YOU LIKE TO CONTINUE ? ";N$ N$"N"150 9  D$(4) 6 " REGULAR DEPOSITS"<Bh"TOTAL VALUE AFTER # YEARS ? ";Tp:("NOMINAL INTREST RATES ? ";I):2"NUMBER OF DEPOSITS PER YEAR ? ";N3:<"NUMBER OF YEARS ,MONTH ? ";YO,M=: FY(  005L):IM3M211:BP$(N1$,I,1):BP$" "BP$","BP$":"BP$"."BP$";"BP$"-"LNM3M235008: FIND BREAK POINT I:M2:(N1$,M3M21);:"-":IM3M21:LN(N1$):35009: HYPHENATE LONG WORD M2:(N1$,I) LNM3M2ı ˆN1$(N1$,LNI):35$";"BP$"-"LNM3M135003: FIND BREAK POINTx I:M1:(N$,M3M11);:"-":IM3M11:35004: HYPHENATE LONG WORDS M1:(N$,I):LNM3M1ı N1$(N$,LNI) (N1$,1)" "LN(N1$)1:N1$(N1$,LN):35005: DELETE EXCESS SPACESr LN(N1$CER WRITER' ADD IT AS A SUBROUTINE TO YOUR PROGRAM. DEFINE CW,M1 M2 ,M3 AND N$ THEN GOSUB 35000. M3M1CWM3M2CWĺ"LINE TOO LONG FOR PRINTER.":::: CHECK FOR LINE LENGTH0 LN(N$):IM3M111:BP$(N$,I,1):BP$" "BP$","BP$":"BP$"."PB : M1= THE MARGIN INDENT FOR THE FIRST LINE. M2= MARGIN INDENT FOR SUBSEQUENT LINES(NOTE- LEFT JUSTIFICATION IS HTAB 1 NOT HTAB 0) M3= LENGTH OF THE LINE YOU WANT PRINTED. N$= THE LINE YOU WANT PRINTED. ` : TO USE THE 'NI+: NICER WRITER C: BY RICK CONNOLLY^: ADAPTED FROM MICROy: OCTOBER 1979 PAGE 5 : CW=COLUMN WIDTH. THIS SPECIFIES THE MAXIMUM COLUMNAR WIDTH OF YOUR OUTPUT DEVICE, AND IS USED FOR ERROR CATCHING.  r1w"IN THE ";M12;" YEAR OF YOUR LOAN.":X|"$";R1;" WAS YOUR ANUAL PAYMENT."^"$";R2;" WENT TO PAY THE INTEREST.""$";R3;" WENT TO PAY THE PRINCIPAL.""HIT RETURN TO CONTINUE.";:K$936255:X$"Y"100"4, THIS ROUTINE ACCUMES:-P. YEARLY FIGURES.V/\0l1MC14ī370|6MC12ī3207MC08R109R20:R30;R40@MCMC1JR1R1P1TR2R2P2^R3R3P3hR4PmMC12ī399BBP:"TOTAL PAYMENTS MAID ";BA "TOTAL YEARS PAID ";D_ "TOTAL MONTHS PAID ";A "YOUR MONTHLY PAYMENT IS ";P1 I1ĪII100:"THE INTEREST RATE IS ";I;" %" :: "WANT TO DO ANOTHER":" ANSWER Y OR N ";:X$ 34,0 J$"S"ī2511 M;5)P1;12)P2;20)P3;31)P: 300R AM0:BP1B:CP2C J$"S"K0ĺ:"** I'M COMPUTING AS FAST AS I CAN !! **":::K1 M J$"D"MC12ĪMC14:300 "ORIGIONAL LOAN AMOUNT ";E "TOTAL INTEREST PAID ";C! 6 J$"S"ī157U "PER";4)"PAYMENT";14)"INT";21);"PRIN RED.";31)"PRIN BAL."a :34,2 P1P(I12)(1(1(1(I12))(L12))) P1(P1100.5)100 M1L12 P2PI12 P2(P2100.5)100 P3P1P2 P((PP3)100.5)100AR;":" HOW MANY YEARS ";:L9 DL: "DO YOU WANT FAST OR SLOW PRINT:":" ANSWER F OR S ";:G$ G$"S"ĩ100 :"DO YOU WANT A DETAIL & A SUMMARY LIST,":" OR JUST A SUMMARY LIST?":" ENTER D OR S ";:J$:93 *****************************************":::t x"HOW MUCH IS THE MORTGAGE ";:P:| }EP "WHAT IS THE INTEREST RATE ";:I I1ī150 II100/ "# OF YEARS TO PAY:":" ENTER I.E. .5 FOR HALF A YE"c DONATED BY KEVIN ARMSTRONG,d9365eA0>fB0GgC0PhD0YiE0cjF19lkK0wlMC13M n"***************************************** ** -MORTGAGE CALCULATION- **    243,273,304,334# #H1M(#AK/#H\#AKAKY365(Y4)D1(Y100)(Y400)s#(Y4)Y4ī2350# Y400(Y400)ī2340# Y100(Y100)ī2350# M2ī2350#$ AKAK1#. 60,2160,2240,2160,2240,21607"\"INVALID DATE":0,5000="fM"pD31ī2140W"z2250n"Y4(Y4)ī2210"Y400((Y400)ī2220"Y100(Y100)ī2220"D28ī2240"D29ī2140"2250"D30ī2140# 0,31,59,90,120,151,181,212, END PROGRAM"%!MN:MN::MN1ī103!MN2ī80B! MN3ī500Q!MN4ī799`! MN5ī850o!*MN6ī950{!/MN7Ā!4:DAYS BETWEEN DATES!>MM1:DD1:YY1:2130!HNAK:MM2:DD2:YY2:2130!MNAKN:"RM2160,2180,2160,2240,2160,2240,21z#X±  ӠРԠӠ  ٠Ӡ٠ ŠԠ ˠΠӠ ˠΠĠŠ ˠΠǠɠ ˠΠǠɠ ˠϠΠ ! ΠԠ! ԠҠˠ ŠΠ ҠҭӠˠ ҠӠɠ ӠؠԠ٠Ӡ ĠŠ  Ԡ٠  Πؠ Ԡ٠ӠȠӠ͠ ΠԠŠ ΠԠΠ̠Ϡ ̠Ϯà!̠ˠ6٠̠Ԡ ٠ҠӠ٭ӠˠĠŠԠ @@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp> 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               P*U*U*U*U*U*U*U*U*U*U*U`xP*U*U*U*U**U*U*U*U*U``@P*U*U*U*U*U*U*U*U*U*U`xP*U*U*U*U**U*U*U*U*U`@1@P*L3O?NsOsLgyg9U`~P*U*U*U*U*U*U*U*U*U*U*U``P*?`<P*U*U*U*U**U*U*U*U*U``P*y|?&bD 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) ;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 $";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: <+::$<.I138:" ";::" ":I":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:"CC16DBI100/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 BER TYPE OF ANNUITY; 4)'4' TO GET TOTAL INTEREST PAID OVER THE"<$"N PERIODS; 5)'5' FOR A TABLE OF WITHDRAWALS, PRINCIPAL, AND INTEREST;"@$"OR 6)'6' TO TERMINATE";D$SH$S19064L$S29064P$S39048T$S69796X$A19320\$5ERIOD = R =";R1 $9252 $$R ($" ---------------"X ,$ 0$"ANOTHER CASE? ENTER ONE OF THE FOLLOWING: 1)'1' FOR ANOTHER CASE, SAME" 4$"TYPE; 2)'2' FOR ANOTHER CASE, DIFFERENT UNKNOWN; 3)'3' FOR ANOTHER">8$"CASE, OTHAT END OF N PERIODS = A =";A1' #9252- #S #"WHAT ARE N(INTEGER),A($),R($)";a #N1,P1,R1g #z #N1R1P19788 $9624 $ $"WHAT ARE N(INTEGER),A($),I(PCT)"; $N1,A1,I1 $I1I1100 $R1A1I1((1I1)N11) $"PAYMENT EACH P" #"WHAT ARE A($),I(PCT),R($)";0 #A1,I1,R1? #I1I1100_ #N1((A1I1R1)1)(1I1) #"NUMBER OF PERIODS = N =";N1 #9252 # #"WHAT ARE N(INTEGER),I(PCT),R($)"; #N1,I1,R1 #I1I1100 #A1R1((1I1)N11)I1 #"AMOUNT 4 l#A29328 p#5 t#" ANSWER 1 OR 2 PLEASE."? x#9024M |#S19104S # #"WHICH VARIABLE IS UNKNOWN (1=N,2=A,3=I,4=R)"; #D #D19132 #D29164 #D39196 #D49220 # #" ANSWER 1,2,3,OR 4 PLEASE." #9092 ##"* ANNUITY *" 8#S0 <#_ @#"THIS PROGRAM COMPUTES PAYMENT AND WITHDRAWAL ANNUITIES."i A#9804o D# H#"WHICH ANNUITY TYPE (1=PAYMENT, 2=WITHDRAWAL)"; L#A(U).01(100U.5) T#9064 X#A19060 \#A1 `#9064 d#A2 h#A1908Z(A8P4(P1P3)D%\+17=LA2A(A3)V9656hP4.0019672(# *****ANNUIT*****BUSINESS PROGRAM,# ANNUIT**********VERSION #1 (7/31/69)*****ANNUITY*****0# COMPUTES PAYMENT AND WITHDRAWAL ANNUITIES 4     Y)1)I/ d"FUTURE VALUE= $";(T100.5)1005 n\ x"WOULD YOU LIKE TO CONTINUE ?";N$l N$"N"150s 9 u D$(4) ; "FUTURE VALUE OF REGULAR DEPOSITS"Ae"AMOUNT OF REGULAR DEPOSITS";R2"NOMINAL INTREST RATE ?";I<"NUMBER OF DEPOSITS PER YEAR";NF"NUMBER OF YEARS,MONTHS";YO,MKY(12YOM)12PIIN100 ZTR((1I)(N P f:8 p"THE P/I BREAKDOWN FOR PAYMENT ";A;" IS:"U u"$";PP;" PRINCIPAL AND"l z"$";IP;" INTERESTt : "DO YOU HAVE ANOTHER PROBLEM (Y/N)? ";Y$ Y$"Y"Č936 Y$"Y"100 L , INPUT N ";A RNA. BC(1(1I)R)I4 d "AFTER ";A;" PERIODS THE BALANCE WILL BE:"o "$";Bw : "WOULD YOU LIKE THE PRINCIPAL/INTEREST BREAKDOWN FOR THIS PAYMENT (Y OR N) ?";Y$ 4Y$"N"Ā HIPBI \PPCIIODS DOES THE LOAN COVER?"! @N> C(PI)(1(1I)N)::h "THE MONTHLY PAYMENTS WILL BE $";C:v &T(CN)P X"THE TOTAL AMOUNT OF INTEREST PAID OVER THE LIFE OF THE LOAN IS:" ]"$";T :: "TO FIND THE BALANCE AFTER 'N' PAYMENTS (936-:n2"THIS PROGRAM WILL FIGURE THE MONTHLY PRINCIPAL AND INTEREST FOR AN ANNUNITY."::d"WHAT IS THE INITIAL AMOUNT OF THE LOAN?"n"$";P"WHAT IS THE ANNUAL INTEREST RATE?""%";XI(X100)12 6"HOW MANY PER   ";12);"MATURITY IN YEARS, MONTHS";40);3 6M1,M29 @e J"ITEM 5";12);"YIELD TO MATURITY";40)l TYr ^{ h440 r"ENTER ITEMS 1 THROUGH 5"; |C,R,M1,M2,Y  440  C,R,M1,M2,Y  6,100,12,5,.055 "COUPON";C,"REDEMPTERING DATA"; A$ . A$"DATA"420? A$"NO"370h "ENTER THE FOLLOWING ITEMS OF DATA"n "ITEM 1";12);"ANNUAL COUPON IN DOLLARS";40); C  "ITEM 2";12);"PROCEEDS ON REDEMPTION";40); R "( ,"ITEMS 3 & 4ER), SELLING TO YIELD Y.X ********** ************** ************ LINE 150 CONTAINS SAMPLE DATA STATEMENTS. ************* MAIN PROGRAM ************** 6,100,12,5,.055 "DO YOU WANT INSTRUCTIONS FOR EN************************************* i d THIS PROGRAM COMPUTES THE PRICE AND ACCRUED INTEREST FOR n A BOND WITH A COUPON OF C DOLLARS A YEAR, REDEMPTION x AT R DOLLARS, AND A MATURITY OF M1 YEARS AND M2 MONTHS (M2 NEED NOT BE AN INTEG 175Z:"DESCRIPTION & USES ON PROGRAM START AT LINE 555 TO 600";d:::"ENTER YES, NO, OR DATA TO START"; :: THIS BASIC PROGRAM COMPUTES THE PRICE AND ACCRUED INTEREST OF A BOND$  **********     "----------------------------------------------------------------------"Sp&9028Y'P&"DEFINITION OF VARIABLES:"?T&" --N = NUMBER OF PERIODS"oX&" --A = AMOUNT LEFT AT END OF N PERIODS"\&" --I = INTEREST IN PERCENT PER PERIOD"`&" --R = AMOUNT OF PAYMENT PER PERIOD"d&" --P = ORIGINAL PRINCIPAL AMOUNT"h&Il&1100+$&R1P1I1(1I1)N1((1I1)N11)R,&"WITHDRAWAL EACH PERIOD = R =";R1\0&92524&"THE PRINCIPAL [P] IS NOT RECOVERED; [I] MUST BE POSITIVE."8&9604<&"AMOUNT PAID IN [N*R] NOT RECOVERED; [I] MUST BE POSITIVE"@&9196D&L&704%I2I1 %I1(I1I3)2*%96405%I3I1G%I1(I1I2)2Q%9640_%A19728o%P3P19736y%9692&P3P19736&9692&I3I1 &I1(I1I2)4&9640&&"WHAT ARE N(INTEGER),P($),I(PCT)";&N1,P1,I1 &I1IP19780%%I1.1#%I20-%I31<%A19652X%P3R1((1I1)N11)I1%P3R1((1I1)N11)(I1(1I1)N1)%"INTEREST PER PERIOD (PCT) = I =";100I1%9252%P4P1.39716%A19688%P3P19704%9692%P3P19B,X9,Y`%9252d%>h%"WHAT ARE N(INTEGER),I(PCT),R($)";Ll%N1,I1,R1[p%I1I1100t%P1R1((1I1)N11)(I1(1I1)N1)|%"ORIGINAL PRINCIPAL AMOUNT IS";P1%9252%%"WHAT ARE N(INTEGER),P($),R($)";%N1,P1,R1%%N1R1 %XXA3%X9X9A3)%YA(YC)9 %P209512J$%S,A2,B,X9,YQ(%S],%SN11j0%A3P1Xy4%A2A(A3)8%B1I1A3<%BA(B1)@%XXA3D%X90H%YYB1L%P209564P%T%"TOTAL INTEREST PAID =";YX%9252\%S,A2, $N1(N1)$P21%$S494603$S59440=$P20C$$"PERIOD","PRINCIPAL","INTEREST","PRINC BAL","INT TO DATE"$$" 0"," "," ",P1$X0$X9P1$Y0%S1N1%A3(R1P1I1)(1I1)(S1) %CR1A3%BA(C)2,3, OR 4 PLEASE."$9340"$D$"WHAT ARE P($),I(PCT),R($)";R$P1,I1,R1a$I1I1100$N1(R1(R1P1I1))(1I1)$"NUMBER OF PERIODS = N =";N1$9252$N1N1.00001$P2(N1)N1$(P2).000019424$N1N11$9428`$"ALTERNATIVE NOT APPLICABLE TO PAYMENT ANNUITIES."?d$9252Mh$S49404[l$S59404ip$S19344ot$x$"WHICH VARIABLE IS UNKNOWN (1=N,2=P,3=I,4=R)";|$A1$A119372$A129572$A139604$A149748$$" ANSWER 1,0$ 121,7,79, "Q6167121051E",0,0F 122,8,79,"Q6167145765E",0,0h 123,9,79,"Q6259589395E",0,0 124,10,79,"Q6331618294E",0,0 125,3,77,"Q6158024355E",0,0 0,0,0,"",0,0F1 (1(.052420000612))M2  (S$,1)" " 60Q6274135777E",0,05t 114,12,78,"Q6284674436E",0,0X~ 115,1,79,"Q6284730705E",0,0z116, 2,79,"Q6284756220E",0,0 117,3,79,"Q6295103518E",0,0118,4,79,"Q6295157383E",0,0 119,5,79,"Q6295181812E",0,0 120,6,79,"Q6322967745E",0, 105,4,78,"Q6221316289E",0,0 A $106,5,78,"Q6259607197E",0,0b 8108,6,78,"Q6259645923E",0,0 B109,7,78,"Q6259705179E",0,0 L110,8,78,"Q6268381783E",0,0 V 111,9,78,"Q6274051523E",0,0 ` 112,10,78,"Q6274109568E",0,0j 113,11,78,"20:V4$O$H :"TOTAL BOND VALUE $ ";V3$:"TOTAL BOND INTEREST $ ";V4$T  10000w  100,11,77,"Q6049497203E",0,0  101,12,77,"Q6207876136E",0,0  102,1,78,"Q6207937411E",0,0 103,2,78,"Q6207962296E",0,0 104,3,78,"Q6221232155E",0,0 520:Z$Z$O$9 O$(V1): 6550:L26:6520:Z$Z$" $"O$f O$(V2): 6550:L26:6520:Z$Z$" $"O$o  Z$ L1L11: L110 100   "HIT ANY KEY AND RETURN TO CONTINUE";S$  100 XO$(V3):L28:6550:6520:V3$O$:O$(V4):6550:65 M20 100 5020" 6020A V1((F1D2)102.5)102^ V2((V1D2)100.5)100t V2.005 V20 V3V3V1:V4V4V2 O$(N):L24: 6520 Z$O$:O$(M0):L23: 6520 Z$Z$O$:O$(Y0):L23: 6520 Z$Z$O$:O$S$:L213: 6L NO. VALUE INTEREST" \4 d N,M0,Y0,S$,M2,Y2D f N0 600U m A12 130n n Y20 A10 100 x Y20 A11 100 Y20 140 M3M2:Y3Y2: 150 M3M1:Y3Y1 Y3 1900 160 Y3Y31900 M2(M3M0)12(Y3Y0) \ J "PROGRAM TO COMPUTE BOND VALUES"::"VALUATION DATE:M,D,Y";M1,D1,Y1z("ACTIVE =0 , CASHED =1 ALL BONDS =2 ";A1V:"VALUATION DATE ";M1;D1;Y1:X:Y " DATE"Z " BOUGHT PRESENT ACCUM'D" [ "NO. M YR SERIA LL PRINT A DESCRIPTION OF THE DATA INPUTS.ZH 2. NO - IT WILL ASK FOR THE FIVE INPUTS.I 3. DATA - IT WILL PRINT WHAT DATA IS PRESENT IN THE PROGRAM.J ALL DATA IS EXPRESSES PER HUNDRED DOLLARS PER BOND VALUE.ASMEN, WORKERS, HOUSEWIVES, RETIREES, ALMOST ANYONE WHO HAS MONEY TO INVEST.aD INSTRUCTIONSE TYPE "RUN"; THE PROGRAM WILL THEN ASK YOU IF YOU WANT INSTRUCTIONS.F THERE ARE THREE POSSIBLE VALID RESPONSES TO THIS PROMPT.*G 1. YES - IT WITHE TERMS OF THE BOND ALLOW IT TO BE CALLED BEFORE MATURITY THE PURCHASER WILL ONLY RECEIVE INTEREST UP TO THE CALL DATE.A USERSB ANYONE WHO BUYS, SELLS, OR TRADES IN BONDS OF ANY NATURE COULD USE THIS PROGRAM.KC THIS WOULD INCLUDE BUSINES IT IS MATURE HE EXPECTS TO RECEIVE INTEREST PAYMENTS ON A REGULAR BASIS.> THESE INTEREST PAYMENTS ARE CALLED "COUPON" PAYMENTS.? AT MATURITY THE PRICE OF THE BOND IS CALLED "PAR" AND IS THE SAME AS THE FACE VALUE OF THE BOND.y@ IN THE EVENT M ***** !: DESCRIPTIONx; THIS PROGRAM IS USED TO COMPUTE THE PRICE & ACCRUED INTEREST FOR BOND ACCOUNTING< THE ACQUISITION COST OF A BOND INCLUDES ITS PURCHASE PRICE PLUS ITS ACCRUED INTEREST.I= IF THE PURCHASER HOLDS THE BOND UNTILF FUTURE COUPONS4V1C2(1(1Y2)(M4))(Y2)c P.V. OF PRINCIPAL AT TIME OF NEXT COUPONzV2R(1Y2)(M4) P.V. OF BOND NOWP(V1V2C2)((1Y2)M5)(C2)(1M5)"PRICE",P,"ACCR INT",C2(1M5)&0 **** BOND PROGRATION AT";R1 "MATURITY",M1;"YEARS",M2;"MONTHS"@ "YIELD";YF q  NUMBER OF COUPON PERIODS TO MATURITY M3M12M26  NUMBER OF WHOLE COUPON PERIODS TO MATURITY M4(M3)  TIME TO NEXT COUPON M5M3M4 PRESENT VALUE O ";K$;" ";J$0C:"***************************************"IDpl"MORTGAGE OR RENT $";M"GAS AND ELECTRICITY $";U"TELEPHONE $";T"TRANSPORTATION EXPENSES $";S "CREDIT CARDS & DEPT A HAS BEEN ENTERED" rN4N41>|" ACCOUNT ";N4;: S$(N4)Y S$(N4)"STOP" 1800p" AMOUNT ";S(N4)S4S4S(N4) 1650 "***************************************":N$"BUDGET FOR THE MONTH OF": 50&" " AMOUNT ";I(N3)"S3S3I(N3)- 14509@:::J"DO YOU HAVE  ";: 50,63:"SAVINGS ACCOUNTS";: 50,255:" TO ENTER": " Y/N ";N$ Y N$"N" :: 1800h"PLEASE ENTER ";: 50,127 :"STOP";: 50,255 :" FOR'ACCOUNT'":"WHEN ALL DATMISCELLANEOUS";: 50,255:" EXPENSES": " Y/N ";N$ N N$"N" :: 1600"PLEASE ENTER ";: 50,127 :"STOP";: 50,255 :" FOR'ACCOUNT'":"WHEN ALL DATA HAS BEEN ENTERED" N3N31" ITEM ";N3;: I$(N3)  I$(N3)"STOP" 1600 ";: 50,127:"ZERO";: 50,255 :" (0) FOR THE DATE" :"WHEN ALL DATA HAS BEEN ENTERED" gN2N21 " DAY OF THE MONTH ";D(N2) D(N2) 0 1400" AMOUNT ";G(N2) S2S2G(N2)  1250x:::3"DO YOU HAVE ";: 50,63:"N1N11'$"ACCOUNT ";N1;: C$(N1)B) C$(N1)"STOP" 1200Z." AMOUNT ";C1(N1)k8S1S1C1(N1)vB 1050:::"DO YOU HAVE ";: 50,63:"GROCERY";:50,255:" EXPENSES": " Y/N ";N$  N$"N" :: 1400 Z"PLEASE ENTERN) pSST1(N) z 850& :::| "DO YOU HAVE ";: 50,63:"CREDIT CARD OR STORE CREDIT": 50,255: " Y/N ";N$  N$"N" :: 1400 "PLEASE ENTER ";: 50,127 :"STOP";: 50,255 :" FOR'ACCOUNT'":"WHEN ALL DATA HAS BEEN ENTERED" TATION";: 50,255: " EXPENSES":" Y/N ";N$ F 9 N$"N" :: 1000 H"PLEASE ENTER ";: 50,127 :"STOP";: 50,255 :" FOR 'ITEM' " :"WHEN ALL DATA HAS BEEN ENTERED" RNN1 \"ITEM ";N;: T$(N) a T$(N)"STOP" 1000 f" AMOUNT ";T1( :& "MONTH THIS LIST IS FOR ";K$7  K$"" 650U "THE CURRENT YEAR ";J$ _ :: "MORTGAGE OR RENT PAYMENT ";M : "GAS & ELECTRIC PAYMENT ";U : "TELEPHONE CHARGES ";T : :, *"DO YOU HAVE ";: 50,63:"TRANSPORECTRIC "' " 3. TELEPHONE "J " 4. TRANSPORTATION EXPENSES"v " 5. CREDIT & DEPARTMENT STORES CARDS" &" 6. GROCERY EXPENSES" ?" 7. MISCELLANEOUS EXPENSES" X" 8. SAVINGS ACCOUNTS" q"---------------------------------------":***************":A EN$"THIS PROGRAM WILL SUMMARIZE YOUR": 50f ^N$"MONTHLY BUDGET FOR YOU": 50l h w"***************************************"::: "THE FOLLOWING CATEGORIES ARE INCLUDED": " 1. MORTGAGE OR RENT " " 2. GAS & ELG:::::::HN$"AN ORIGIONAL PROGRAM BY PAUL A PAGE"^ 20(N$)2) N$d N$"WRITTEN APRIL 30,1978" 20(N$)2) N$ I1 7000 I 250 2 20(N$)2) N$: ,"************************         O$".00":6553)(O$)Z26580=O$O$"0":6572TZZ2:O$(O$,Z):Z'I)L2 6530G| "STRING FIELD SPACE TOO SMALL, L2= ";L2: O$: 10000] (O$)L2 6540rO$" "O$: 6530x(O$,1)"-"6553:"NEGATIVE SIGN WAS STRIPPED*******"O$(O$,(O$)1)Z120 (O$,Z,1)"." 6570 ZO$40:S$(S$,(S$)1): 6020*C$ (S$,1)D C$"Q" D218.75:^ C$"L" D237.50:x C$"C" D275.00: C$"D" D2375.00:8 "DENOMINATION FOR CHARACTER ";C$;" NOT FOUND IN SUB AT 6020"::B"WILL SET D2=1":D21: x (O$Y BUDGET PROGRAM"#F#"***************************************"L#{#"ITEM % OF INCOME"##"MORTGAGE OR RENT ";((MS5100.5)100)100;" %" $"GAS AND ELECTRICITY ";((US5100.5)100)) "S3(S3Q)I(R)#" 4300A"" WHICH ITEM NUMBER ";R \","ACCOUNT ";R;: S$(R)g"1QS(R)}"6 "AMOUNT "; S(R)"JS4(S4Q)S(R)"c 4500"p"tS51979"uM234"z"***************************************""#" MONTHLAMOUNT ";C1(R)"!S1(S1Q)C1(R)-!7 3900J!P" WHICH ITEM NUMBER ";Rf!d" DATE ";R;: D(R) q!iQG(R)!n "AMOUNT "; G(R) !S2(S2Q)G(R)! 4100!" WHICH ITEM NUMBER ";R !" ITEM ";R;: I$(R)!QI(R)" "AMOUNT "; I(RTA Y/N ";N$ #  N$"Y" 5400 1 * 2500 < $ 8000Y " WHICH ITEM NUMBER ";Rq "ITEM ";R;: T$(R)} QT1(R)  "AMOUNT ";T1(R) S(SQ)T1(R)  3700 " WHICH ITEM NUMBER ";R "ACCOUNT ";R;: C$(R) QC1(R) !  "500 =" ACCOUNT AMOUNT":O I1 N41 b I;" ";S$(I);u 32)"$";S(I)} I"---------------------------------------"  " ** TOTAL EXPENSES **";: 32)"$";S4 :"DO YOU WANT TO CHANGE ANY DA AMOUNT": ! I1 N31 4 I;" ";I$(I);H 32)"$";I(I) Q I  "---------------------------------------"  " ** TOTAL EXPENSES **";: 32)"$";S30:"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$ D N$"Y" 5300 b 2" I;" ";D(I);$, 32)"$";G(I),6 I[E"---------------------------------------"O " ** TOTAL EXPENSES **";: 32)"$";S2h:"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$ | N$"Y" 5200 2500" ITEM 1(I) n I;}"---------------------------------------"g " ** TOTAL EXPENSES **";: 32)"$";S1:"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$  N$"Y" 5100 2500" DATE AMOUNT": I1 N21------------------------"E " ** TOTAL EXPENSES **";: 32)"$";S u:"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$ N$"Y" 5000  2500 <F" ACCOUNT AMOUNT":P I1 N11Z I;" ";C$(I);d 32)"$";CNT TO CHANGE THE AMOUNT"( " Y/N ";N$< N$"Y" 3570G 2500c "CORRECTED AMOUNT ";Tn 2500tt~" ITEM AMOUNT":  I1 N1 I;" ";T$(I); 32)"$";T1(I)  I"---------------S & ELECTRIC $";U+ :S "DO YOU WANT TO CHANGE THE AMOUNT"c " Y/N ";N$w N$"Y" 3370 2500* "CORRECTED AMOUNT ";U4 2500  :::: "TELEPHONE $";T : "DO YOU WA N106000 N114900# 1& ::::\0 "MORTGAGE EXPENSES $";Md: :D "DO YOU WANT TO CHANGE THE AMOUNT" I " Y/N ";N$N N$"Y" 3170X 2500b "CORRECTED AMOUNT ";Ml 2500  ::::# "GA"v " #10. PERCENTAGE BREAKDOWN"4x " #11. QUIT"<} :f "WHICH ( # ) NUMBER DO YOU WANT ";Nw N1 3100 N2 3300 N3 3500 N4 3700 N5 3900 N6 4100 N7 4300 N8 4500 N9 1800. MORTGAGE OR RENT"/2 " # 2. GAS & ELECTRIC"F< " # 3. TELEPHONE"bF " # 4. TRANSPORTATION"P " # 5. CREDIT CARDS & DEPT STORES"Z " # 6. GROCERIES"d " # 7. MISCELLANEOUS"n " # 8. SAVINGS ACCOUNTS "s " # 9. COMPLETE PRINTOUT AGAIN" EXPENSES FOR MONTH";"p 50,255.s" =$";6uS5<f"DO YOU WANT TO SEE INDIVIDUAL LIST"v" Y/N ";N$ N$"Y" 2500  N$"YES" 2500 8000 ::: "WHICH ITEM OR LIST " "WOULD YOU LIKE TO SEE "::( " # 1STORES $";S15"GROCERIES $";S2]"MISCELLANEOUS EXPENSES $";S3"SAVINGS ACCOUNTS $";S4 S5(((((((MU)T)S)S1)S2)S3)S4)*4"---------------------------------------":f 50,127k"**TOTALD$"PR#0":D";::> A12PS1:X((100PS)100)AS100:60:X$;10)e BL%M%:120:60:X$" ";::::u M%N%3060 ::50,255::"IS ANALYSIS OF ANOTHER OPTION NEEDED? ";A$:(A$,1)"N"3260 :"ENTER NUMBER OF OPTION : ";O:3050 ""  (X))"TABLE OF WEIGHTED VALUES"H: (X))"========================"qD :X(7(M%L%)22)2:X0X10:3160|N XX10X "DEV."(X))"PARAMETER BEING VARIED":"FACTOR"9);b IL%M%:"#"I" ";:I10ĺ" ";l v  I1(M%L%)719:"-MAXIMUM DEVIATION IN PERCENT : ";PE :"INCREMENT IN PERCENT : ";SK V L%15q :L%L%16:N%163080 M%L%14:M%N%M%N% X(7(M%L%)24)2:X0X10:3110 XX10 (31):M%4Ĺ50,130& (X))"========================""0WEIGHTED AVERAGE RANKS ARE :"AI1N%:XA(I):60:X$" ";::OD$"PR#0"22:T$"<< PRESS ANY KEY TO CONTINUE >>"::40::A$:D$"PR#"PR PARAMETRIC SENSITIVITY ::N%M%:T$"* PARAMETRIC SENSITIVITY ANALYSIS *":LE75:40:" "21104TA(I):OI>0H COMPUTE AVERAGEKRI1N%:A(I)A(I)M%:Z\D$"PR#"PRwf"OPTIMUM OPTION IS :";Op:"OPTIMUM PARAMETER RANKS ARE :"zK1M%:(R%(O,K))" ";:::"OPTIMUM WEIGHTED AVERAGE IS :"(A(O)100.5)100:"ANK OF PARAMETER #";J;:":";R%(I,J):::E  SUMMATION OF PRODUCTSV I13::: I1N%:A(I)0:J1M%:A(I)A(I)W(J)R%(I,J)::  FIND MIN OR MAX TA(1):O1 I1N%:F%12090 A(I)T2110 TA(I):OI 2110*A(I)TANY OPTIONS TO CONSIDER : ";N%:N%2İ50:1080Z BA(N%1),W(M%1),R%(N%1,M%1),R1(M%1)x L ENTER WEIGHTING FACTORS V: `I1M%:"WEIGHTING FACTOR FOR PARAMETER #"I;:":";W(I): j ENTER RANKS) tI1N%:::"FOR OPTION #"I:J1M%:5:"R128Ă V V6:180:"DO YOU WANT HARD COPY OF THE INPUT?";P$:(P$,1)"Y"1060e D$"PR#"PR $180:"ENTER '0' FOR MIN OR '1' FOR MAX : ";F%:F%0F%1İ50:1060 .180:"HOW MANY PARAMETERS TO CONSIDER : ";M%:M%2İ50:1070. 8180:"HOW M1PR7ĺ"":1000P :LE40:T$"* * * DECISION MATRIX PROGRAM * * *":10:40 T$"* * D. BLAIR AND J. SPENCER-JONES * *"::40::T$"* ADAPTED FOR THE APPLE ]"(91)" COMPUTER *":40 :T$"* * * BY JOEL L. AMROMIN * * *":40:I1500:(16384)ERAGE WITH DEVIATION0 xI1N%:R1(I)R%(O,I):U DEVIATION IN ONE PARAMETER RANK R1(B)R1(B)((100PS)100)(AS100)R1(B) X0:I1N%:XXR1(I)W(I): AVERAGE XXN%: VV2:V:868: :10:"PRINTER IN SLOT # : ";PR:PR  D$(4)!D$"NOMONI,O,C"+1000C((LE(T$))2:T$:{2::T$"*** INVALID DATA ENTRY ***":40::VV2:<X(X100.5)100:X$(X):X10X$" "X$FX1X$" "X$PX(X)X$X$".00":Z(X$)5ıdX$X$"0":90 n AV   YOU FOR USING THIS PROGRAM": 50 ?&TN$"HAVE A NICE DAY": 50E&YNS2S5100.5)100)100;" %"[%"MISCELLANEOUS EXPENSES ";((S3S5100.5)100)100%"SAVINGS ACCOUNTS ";((S4S5100.5)100)100;" %"%:::%"HIT RETURN TO GET BACK TO MENU"%U1$%2500%@:::!&JN$"THANK 100;" %"M$"TELEPHONE ";((TS5100.5)100)100;" %"$"TRANSPORTATION EXPENSES ";((SS5100.5)100)100;" %"$"CREDIT CARDS & DEPT STORES ";((S1S5100.5)100)100;" %"%"GROCERIES ";(( FIT IS ";CR;"%"#f 34,5: 35,23Mp "FORECASTING (ENTER X=0 TO QUIT)":f"X =? ";X:X07500r 50,63Y2ABX:Y2A(Y2)"Y =";Y2:: 50,255 7300LV 10@J"INT? ";I;:X,Y8JJX:KKY:LLX2:MMY2:R2R2XYI (7);(7);Q  IxB(NR2KJ)(NLJ2):A(KBJ)N>JB(R2JKN):MMK2N:KMJ:R2JMHR"READY TO START FORECASTING..."WCR(R2):CRCR100:CRA(CR)\"GOODNESS OF 10 X"] (7);(7);(7)Fb 9) ;"FORECASTS (TREND LINE)"Nl:rv"NUMBER OF KNOWN POINTS? ";N:{ N2 7037| 7040}"YOU MUST USE AT LEAST 2 POINTS":I912000:I9:7000J0:K0:L0:M0:R20 I1 N"X,Y OF PO ";T&(7);:"NUMBER OF YEARS? ";YW(7);:"NO. OF COMPOUNDING PERIODS/YR.? ";N_:I2N((TP)(1(NY))1)100 50,63:AI2:AA(A)"NOMINAL INTEREST RATE =";A;"%":: 50,255"MORE DATA? ";RE$:RE$"Y"RE$"YES"600050,63:AP:AA(A)1 "INITIAL INVESTMENT = $";AB 50,255::q"MORE DATA? ";RE$:RE$"Y"RE$"YES"5000z( 10pu (7);(7);(7)z" NOMINAL INTEREST RATE ON INVESTMENTS":(7);:"PRINCIPLE? ";P(7);:"TOTAL VALUE? INVESTMENT":  (7);;"NUMBER OF YEARS? ";Ys(7);:"TOTAL VALUE DESIRED AFTER ";Y:"YEARS? ";T(7);:"NUMBER OF COMPOUNDING PERIODS/YR.? ";N(7);:"NOMINAL INTEREST RATE? ";I:IIN100PT(1I)(NY) MBER OF YEARS? ";Y IIN100>RP(I((1I)(NY)1)I)N:: 50,63^ AR:AA(A)""AMOUNT OF EACH WITHDRAWAL = $";A, 50,255::6"MORE DATA? ";RE$:RE$"Y"RE$"YES"4000@ 10 (7);(7);(7); : 11);"INITIALA? ";RE$:RE$"Y"RE$"YES"3000)N 10/o (7);(7);(7):" REGULAR WITHDRAWALS FROM AN INVESTMENT"w:(7);:"INITIAL INVESTMENT? ";P(7);:"NOMINAL INTEREST RATE? ";I(7);:"NUMBER OF WITHDRAWALS/YR.? ";N(7);:"NUED IN ACCOUNT AFTER ";Y;:" YEARS? ";T5 (7);V "NOMINAL INTEREST RATE? ";I (7);:"NUMBER OF DEPOSITS/YR.? ";N& IIN1000 RTI((I1)(NY)1)5 :: 50,638 AR:AA(A): "REGULAR DEPOSITS =$";A::: 50,255 D "MORE DAT)(NY)1)I& MAT:AA(A): 50,63:L R"FUTURE VALUE = $";A:50,255::{ f"MORE DATA? ";RE$:RE$"Y"RE$"YES"2000 p 10 (7);(7);(7) 12);"REGULAR DEPOSITS":: (7);:"NUMBER OF YEARS? ";Y) (7);"TOTAL VALUE DESIR0 '  (7);(7);(7);: 2);" "<  16);"ANNUITY"D :q (7);:"AMOUNT OF REGULAR DEPOSITS? ";R (7);:"NOMINAL INTEREST RATE? ";I (7);:"NUMBER OF DEPOSITS/YR.? ";N *(7);:"NUMBER OF YEARS? ";Y >IIN100 HTR((1IEST RATE? ";IA .(7);:"NUMBER OF COMPOUNDING PERIODS/YR.? ";Nc 8(7);:"NUMBER OF YEARS? ";Yq VIIN100 `TP(1I)(NY) e:: 50,63 hAT:AA(T) j"FUTURE VALUE = $";A::50,255 t"MORE DATA? ";RE$:RE$"Y"RE$"YES"1000 ~ 1::"WHICH? ";RE%# RE%0 10W RE% 1000,2000,3000,4000,5000,6000,7000,8000` 10f t  2);" "  (7);(7);(7);  "*** FUTURE VALUE OF AN INVESTMENT ***" : (7);:"INITIAL INVESTMENT? ";P (7);:"NOMINAL INTERN INVESTMENT":$ < "2. ANNUITY":B F "3. REGULAR DEPOSITS":t P "4. REGULAR WITHDRAWALS FROM INVESTMENTS": Z "5. INITIAL INVESTMENT ": d "6. NOMINAL INTEREST RATE ON INVESTMENTS": n "7. FORECASTS (TREND LINE)": x "8. QUIT" 3:::::::"COMMON BASIC PROGRAMS--VOL.1"e:"ADAPTED FOR THE APPLE II BY JOSEPH BOLUS""FEB.9,1978": I61 5000: I6 A(A)(A100.5)100 "** INVESTMENTS,ANNUITY,AND FORECASTS **"(: 2 "1. FUTURE VALUE OF A     (V$)1) -V(V)55+ 2O$O$".00":70G 7VV10:V1(V):VV165d 9VV10:V1V110:VV165l <70z AO$O$"0" F36,(H(O$)):O$;: PV10Ĺ36,3 QV100V10Ĺ36,2 RV100Ĺ36,1 SV;:, U" PMT MO, YEAR INT PRIN "T MO$(8)"AUG, ":MO$(9)"SEP, ":MO$(10)"OCT, ":MO$(11)"NOV, ":MO$(12)"DEC, "o T13:T226:T336:T447 C0:LT0:PT0:GL0:GP0:L10 936:100 V$" ":O$" " VV100.5:V(V)100:VC80 #V$(V) (O$(V$,$ Q AMORTIZATION SCHEDULE REQUIRING APPLESOFT AND USING A PRINTER FROM SLOT 1X9o:L1L11:L1657u::L11:85: MO$(12) MO$(1)"JAN, ":MO$(2)"FEB, ":MO$(3)"MAR, ":MO$(4)"APR, ":MO$(5)"MAY, ":MO$(6)"JUN, ":MO$(7)"JUL,     ? ";A$BA$"Y"190LD)11000("ACCOUNT NUMBER ";ACC$;"."0:a"STATUS OF YOUR PLAN AS OF JAN 1, ";I;".":{"TOTAL INTEREST $";Z"TOTAL OF CONTRIBUTIONS $";QC$"TOTAL SAVINGS IN KEOGH $";TC.D$;"PR#0"8:"ANOTHER CALCULATION (Y/N)KLfTTGpZZG>z"TOTAL ACCUMULATED INTEREST $";Zb"TOTAL IN SAVINGS TO DATE $";TnL0:K0v:}PTTCQQCI::" *** *** *** *** *** ***":(ACC$)1ĺ"ACCOUNT # (NONE)"(ACC$E PRINCIPAL OF $";T;" INCLUDES":"JANUARY 1, ";U;" CONTRIBUTION OF $";C;"."Y IUī820*:P1ĺI" CONTRIBUTION $";C;", TOTAL $";Q4P1LTR>P1ĺ"INTEREST FOR PERIOD ONE $";LHP2KR(TL)RP2ĺ"INTEREST FOR PERIOD TWO $";K\G"END OF SAVINGS PROGRAM JAN 1, ";(UY);"."G12:"(";Y;" YEARS)"k:"IS THIS CORRECT (Y/N)? ";A$|A$"N"ī190RR100.5IU(UY)1P12P1ĺ"JULY 1, ";I;"."P2ĺ"JANUARY 1, ";I1;"." KIUP1ĺ"TH N"STATUS OF ACCOUNT #";7 X(ACC$)1ĺ" (NONE)"L b(ACC$)0ĺACC$R l v"CURRENT BALANCE INCLUDING CONTRIBUTION FOR ";U;" OF $";C;", IS $";T;"."  "ANNUAL CONTRIBUTIONS WILL BE $";C :"INTEREST SEMI-ANNUAL AT ";R;"%." .  410 Z "CURRENT TOTAL SHOULD INCLUDE CONTRIBUT- ION ON JAN 1, ";U;"."y "ENTER CURRENT TOTAL $";T  "ENTER INTEREST RATE ";R  &"ENTER ANNUAL CONTRIBUTION ";C 0 :"START OF SAVINGS PROGRAM JAN 1, ";U;"." D$ @3 J"ENTER YEAR TO START CALCULATION ";U:C TU1700410R ^"ENTER ";X he r"FOUR";k | " DIGITS PLEASE!": 330 "HOW MANY YEARS DO YOU WANT CALCULATED?";Y Y0490   "I CAN'T WORK WITHOUT FIGURES!" YEAR.". :"TOUCH 'RETURN' TO CONTINUE!";G$4 : H ACC$(50)S D$""Y } "OUTPUT TO PRINTER (Y/N)? ";Q$ Q$"N"310 Q$"Y"290 "ENTER ONLY 'Y' OR 'N'!"::240 "D$;"PR#1" ,: 6"ENTER ACCOUNT NUMBER:";ACCOUNDED EACH SIX":"MONTHS, ADDING THE ACCUMULATED INTEREST TO THE PRINCIPAL, AND AT THE START OF" "EACH YEAR ADD THE CONTRIBUTION TO THE":"ACCOUNT. ACCRUED TOTALS WILL BE DIS-":"PLAYED FOR EACH SIX MONTH PERIOD. THE PROGRAM IS BASED ON A 360 DAY  d:12:"SAVINGS PROGRAM"$nSx"BY HAROLD JEFFERY *** KNIGHTSTOWN, IND."[:"THIS PROGRAM WILL CALCULATE YOUR EARN-":"INGS FROM THE 1ST OF JANUARY EACH YEAR""TO THE 31ST OF DECEMBER OF THE LAST YEAR";a "AND ADD INTEREST COMP      GET PV+ L"ENTER PRINCIPLE (PV)";:PVB VPV0ĺ"";:1100H T  GET N| 4"ENTER NUMBER OF PAYMENTS (N)";:N >N0ĺ"";:2100  GET PMT  "ENTER PAYMENT (PMT)";:PMT & PMT0ĺ"";:3100  GET INTEREST RATE. MULATED INTEREST PAID BY":"PAYMENTS ";C;" THRU ";K;" = $ ";I(ICK)L 820U 500[ % *"FOR REMAINING BALANCE AFTER PAYMENT K,":"ENTER K";:K 4PK(PMTII)(1(1II)(KN)) >"REMAINING PRINCIPLE":"AFTER PAYMENT ";K;" = $ ";I(PK) p X4000:1000:30005 bN(((1IIPVPMT))(1II))E l12000:100N 500 "FOR ACCUMULATED INTEREST PAID BY":"PAYMENTS C THRU K, ENTER C,K";:C,K CKĺ"";:710  JC1 ICKPMT(KJ((1II)(KN))II(1(1II)(JK)))C "ACCU" "CHOOSE DESIRED UNKNOWN:";:AZ A1A5ĺ"ONLY TYPE A NUMBER BETWEEN 1 AND 5":200u ,A400,500,600,700,800 112000 6100 4000:2000:3000 PVPMT((1(1II)N)II)  4000:1000:2000 PMTPV(II(1(1II)N))  S 939: CLEAR SCREEN5I(X)(X100.5)100`"DIRECT REDUCTION LOAN CALCULATIONS."d:"1 PRESENT VALUE (PV)":"2 PAYMENT (PMT)":"3 NUMBER OF PAYMENTS (N)"f"4 ACCUMULATED INTEREST (I(C-K))":"5 REMAINING BALANCE (PV(K))"n     !!GL:HT2:30:VGP:HT3:30:5:5:TV)100:V$(V):O$(V$,(V$)1)2V(V)1230DO$O$".00":bVV10:V1(V):VV11260VV10:V1V110:VV11260O$O$"0":" YEARLY TOTAL";:VLT:HT2:30:VPT:HT3:30:5GLGLLT:GPGPPT"(" GRAND TOTAL";:V:43)"P. O. BOX 976"Q`"INTEREST RATE: ";K;"%";:43)"SELMA, ALABAMA 36701"_eVR:1200j"MONTHLY PAYMENT: $";O$;:40)"DATE OF RUN: ";DT$tZ064:"-";:Z:"-":~85:L1L111:110V$" ":O$" " VV100.5:V(/" SPACE BAR ";::" TO BEGIN ";:A$:1:3:" 100N"|820)"AMORTIZATION SCHEDULE":19)"-----------------------":B"TO: ";FR$;:40)"PREPARED BY:"GVA:1200L"AMOUNT OF LOAN: $";O$;:43)"THE BAUDIE SHOPPE"V"TERM: ";N;" MONTHS";NT OF MONTHLY PAYMENT ";R:V"DO YOU WANT A MONTHLY LISTING ";B$::(B$,1)"N"15$"MO. AND YEAR TO BEGIN ";F,C1::936:("WHO IS IT FOR ";FR$:,"WHAT IS TODAY'S DATE ";DT$:." LINE UP PAPER IN PRINTER TO BEGIN"::" HIT ";:+: Q12Q11Q12( Q12Q66 Q14Q3EQ112Q1fJJ100:IJ12Q:B1I:MNQ"WANT PAYMENT COMPUTED FOR YOU ";B$::(B$,1)"N"1050RAI(11BM):RR100.5:R(R)100:"AMOUNT OF MONTHLY PAYMENT ";R::1055"AMOUVER HIT ANY KEY ... ";:A$:15B:9)"AMORTIZATION SCHEDULE":o" ENTER DATA WITHOUT USING COMMAS"::"AMOUNT OF LOAN ";A:"AMOUNT OF INTEREST IN PERCENT ";J:KJ:"NUMBER OF PAYMENTS ";N:"PAYMENT PERIOD (1,2,4, OR 12) ";Q11 DBI100.5:D(D)100o VC:HT1:30:36,T13:MO$(F);C1;:VD:HT2:30:VB:HT3:30:36,T44:"0.00" "LTLTD:PTPTB 'Q12300 *:93:310 ,1300 6VDB:" LAST PAYMENT WAS . . . ";:H30:30: @" I":0J:" TO START O100.57 C(C)100:L(L)100:P(P)100:B(B)100H VC:HT1:30a 36,T13:MO$(F);C1;r VL:HT2:30 VP:HT3:30 VB:HT4:30 5 LTLTL:PTPTP Q12245 FFQ F12İ90 250 C1C11 BR120 CC BAL":Z046:"-";:Z:"-"::L1L13:g Z" YEARLY TOTAL";:VLT:HT2:30:VPT:HT3:30:5:5} ]GLGLLT:GPGPPT aFF12:LT0:PT0:C1C11: d1000 nBA xCC1:CM270 LBI:PRL:BBP CC100.5:LL100.5:PP100.5:BB ";V:"INTEREST RATE = ";R1;"%"1::Z1ī700V"OPTION CALL VALUE = $";CO:710u"OPTION PUT VALUE = $";PO"HEDGE RATIO = ";Q1:750"ENTER STOCK HIGH FOR PAST YEAR ";SH:"ENTER STOCK LOW FOR PAST YEAR ";SL:V(SHSL)(.5(SHSL)):4NG1Q1:610XG11Q1)bD20ī6308lG2Q2:640DvG21Q2RZ1ī660tCOTKG1TRG2(RT)::670POTR(1G2)(RT)TK(1G1):::"CURRENT STOCK PRICE = $";TK:"STRIKING PRICE = $";TR:"YEARS TO EXPIRATION = ";T:"VARIANCE =)(R.5V2)T)(VT.5)@D2((TKTR)(R.5V2)T)(VT.5)n&Y11(1.3327(D1)):Y21(1.3327(D2))0Q1((D122)(23.14159))(Y1(.4362.12Y1.9371Y12)):Q2((D222)(23.14159))(Y2(.4362.12Y2.9371Y22))DD10ī600 '0' FOR A CALL":Z:Z: "ENTER STRIKING PRICE FOR OPTION ";TR:"ENTER PRICE OF UNDERLYING STOCK ";TK:"ENTER DAYS TO EXPIRATION ";DY "ENTER VARIANCE ('-1' IF UNKNOWN) ";V:"ENTER INTEREST RATE (%) ";R1:RR1100:V1İ720TDY365:D1((TKTR;S} "CURRENT VALUE = $";S1:"% CHANGE IN VALUE = ";PC;"%":"TOTAL YEARLY DIVIDEND = $";TY:"YEARLY DIVIDEND YIELD = $";YD :: "HIT ANY KEY TO CONTINUE":A9$:A9$:::2000 :"PUT AND CALL OPTION VALUES"::::"KEY A '1' FOR A PUT OR A 100:SSA(I)B(I):S1S1A(I)C(I):TYTYA(I)D(I)9 IZ PC(S1S)S100:YDTYS1100e I1N "STOCK NUMBER ";I;" % CHANGE = ";E(I) I "HIT ANY KEY TO CONTINUE":A9$:A9$::" VALUATION OF TOTAL PORTFOLIO"::::"ORGNIAL VALUE = $"A(N),B(N),C(N),D(N),E(N):% ZI1N> d"FOR STOCK ";I;" ";b n"ENTER NUMBER OF SHARES ";A(I) x" ENTER ORGINAL PRICE ";B(I) " ENTER CURRENT PRICE ";C(I) " ENTER DIVIDEND ";D(I):2 E(I)(C(I)B(I))B(I) = ";D:"BID QUOTATION = ";B;"%"o <"ASK QUOTATION = ";A;"%":::"PRICE PER $100 = $";H:"TOTAL VALUE = $";T F::"HIT ANY KEY TO CONTINUE":A9$:A9$::2000 P" STOCK PORTFOLIO VALUATION ":::::"HOW MANY STOCKS IN THE PORTFOLIO? ";N: 20009 :" TREASURY BILL VALUATION"::"ENTER FACE AMOUNT ";F:"ENTER DAYS TO MATURITY ";D:"ENTER BID QUOTATION (%) ";B"ENTER ASK QUOTATION (%) ";A:H100(BA)2(D360):TFH100: 2"FACE AMOUNT = $";F:"DAYS TO MATURITY!!!!!!!!!""" " " " " """"""""" T OF $";PB 2P1(P1DI) ZP1T:, dT1(T100.5)100H nTI((T1P)100.5)100X xPAT(12Y)p PA(PA100.5)100 P1PA((12Y)1) PB((TP1)100.5)100 ::"TOTAL INTEREST = $";TI :(12Y1);" PAYMENTS OF $";PA :"AND FINAL PAYMEN :V"LOAN PROGRAM INTEREST COMPOUNDED DAILY"::"JERRY JENKINS AUG 78"::s"AMT OF LOAN - $";:P:("INTEREST (%)- ";:I:-II100:D3652"# OF YEARS -- ";:Y:7DII(DY): DAILY INTEREST<T0:P1PFX1(DY) PT! ! ! HLY PAYMENT (PMT) = $ ";I(PMT)Ep0"SUM OF PAYMENTS = $ ";I(NPMT)K0Q0NI"ENTER ANNUAL INTEREST RATE (PERCENT)";:IIK II0II100ĺ"";:4100Z hIIII1200` v . PRINT OUT STUFF| . /"PRESENT VALUE (PV) = $ ";I(PV) D/"ANNUAL INTEREST RATE = ";II1200;" %" /"NUMBER OF PAYMENTS (N) = ";I(N) 0"MONTKET EVALUATOR":::  " MENU":"1 = TREASURY BILL EVALUATOR":"2 = STOCK PORTFOLIO VALUATION":"3 = PUT AND CALL OPTION VALUE" "4 = CALL OPTION ROI":"5 = ROI ON AN OPTION STRADDLE " "6 = AFTER TAX YIELD ON A BOND" !"7 =365)N)):NP(((NP.5)100)100)l "NET PROFIT AFTER INFLATION = $";NP:AR((NP(APQU))N)365:ARAR100 "ANNUALIZED RETURN ON INVESTMENT = ";((AR)100)100;"%":"HIT ANY KEY TO CONTINUE":A9$:A9$::::2000 :" MARE TAX $";TX(3):" SUBTOTAL $";TTB:_GP((GIGO.5)100)100"GROSS PROFIT = $";GP"NET PROFIT = $";((GPTT)100)100:NP((GIGO)TT)(((FI365)N)((GIGO)TT))!NPNP(AP((FIVQU)*" SUBTOTAL $";GI9"OFFSETS"DI13qFE$(I)"N"TX(I)FB(I)(((IRN)AP)QU)TX(I)((TX(I)100))100:TTTTTX(I)I" - FEDERAL TAX $";TX(1)" - STATE TAX $";TX(2)" - STAT SUBTOTAL $";GO/V"GROSS CASH INPUT"a[IR(1)(IRN)(APQU):IR(1)((IR(1)100))100`" - TRUE INTEREST $";IR(1)eTS((TS100))100j" - TAX SAVINGS $";TSt" - SALE AT MATURITY $";FVQU~GIIR(1)TS(FTSTS((ABIB)FB(I)) I9$"GROSS CASH OUTPUT"a." - BOND PURCHASE $";APQU8" - INTEREST PAYMENTS $";(((ABIB)100))100B" - COMMISSION/OHEAD $";C0QULGO(APQU)(ABIB)(C0QU):GO((GO100))100M" CKET ";FB(2):FB(2)FB(2)100T"PERCENT LOCAL TAX BRACKET ";FB(3):FB(3)FB(3)100"PERCENT ANNUAL INFLATION ";FI:"COMMISSION/OVERHEAD PER BOND $";C0:"NUMBER BONDS BOUGHT ";QU2100FI((FI100)365)N:IB(IB365)N:IR(IR365)I13OWINGS ";IB:IBIB100H"BOND EXEMPT FROM FEDERAL TAX (Y/N)? ";FE$(1){"BOND EXEMPT FROM STATE TAX (Y/N)? ";FE$(2)"BOND EXEMPT FROM LOCAL TAX (Y/N)? ";FE$(3):"PERCENT FEDERAL TAX BRACKET ";FB(1):FB(1)FB(1)100"PERCENT STATE TAX BRA" AFTER TAX YIELD OF A BOND":::{"FACE VALUE $";FV:"AMOUNT PAID PER BOND $";AP:"DATE BOUGHT (M,D,Y) ";M1,D1,Y1"DATE OF MATURITY (M,D,Y) ";M2,D2,Y2:"PERCENT INTEREST RATE ";IR"AMOUNT BORROWED $";AB:IRIR100:"INTEREST RATE ON BORREVEN = ";((PU1000))1000;"%""LOWSIDE BREAKEVEN POINT = $";L:"NET CREDIT TO ACCOUNT = $";ND:"MAINTENANCE REQUIRMENT = $";MT"MAXIMUM PROFIT = $";MN:"ROI = ";((MP1000))1000;"%":::"HIT ANY KEY TO CONTINUE":A9$:A9$:::2000&(N7N6):PU100((UN1)N1):L(N7(N2N3)N6N4)N7usND100(N6N4N7N2):MT100(N6N7)(1.3N1N5):MT250MT250vMN(N7(N5N3N2)N6N4)100:MPMN(N7N2N6N4MT100):ND0L0yz"UPSIDE BREAKEVEN POINT = $";U:"% MOVE IN STOCK TO BREAKTION ";N4:"ENTER STRIKING PRICE OF SOLD OPTION ";N5::::"HOW MANY OPTIONS SOLD ";N6:"HOW MANY OPTIONS BOUGHT ";N7::kN7N6880l:"THEN NUMBER OF BUYS CANNOT EQUAL THE":"NUMBER OF SELLS. TRY AGAIN.":::8602pU(N7(N2N3)N6(N5N4))(A STRADDLE IS THE SIMULTANEOUS BUY AND SELL OF AN OPTION":"ON THE SAME UNDERLYING STOCK)":::\"ENTER PRICE OF UNDERLYING STOCK ";N1:"ENTER PRICE OF BOUGHT OPTION ";N2:"ENTER STRIKING PRICE OF BOUGHT OPTION ";N3:::zf"ENTER PRICE OF SOLD OPB).539SR((SR1000))1000:AR((AR1000))1000>:::"REQUIRED CAPITAL = $";R:"PROFIT = $";PR:"ROI = ";SR;"%":"ANNUALIZE ROI = ";AR;"%":"INTEREST PAYMENT = $";TIH:::"HIT ANY KEY TO CONTINUE":A9$:A9$:::2000aR"OPTION STRADDLES E ";So*"ENTER WEEKS UNTIL OPTION EXPIRES ";W:"ENTER PREMIUM PER SHARE ";P:"ENTER MARGIN INTEREST RATE ";I/R.5((C100B)(P10027)2)0PR((S100B)(P10027))((C100B)(W53I(C100B).5))4SRPR100R:ARSR(W52):TIW52I(C100Ⱥ:::"HIT ANY KEY TO CONTINUE":A9$:A9$:::2000" ROI ON OPTIONS":::"NOTE THAT A $27 OPTION COMMISSION RATE":"IS ASSUMED":: "ENTER UNDERLYING PRICE PER SHARE ";C:"ENTER COMISSION PER SHARE ";B:BB100:"ENTER STRIKING PRIC