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`100;" %"M$"TELEPHONE ";((TS5100.5)100)100;" %"$"TRANSPORTATION EXPENSES ";((SS5100.5)100)100;" %"$"CREDIT CARDS & DEPT STORES ";((S1S5100.5)100)100;" %"%"GROCERIES ";((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"----------------------------------------------------------------------"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&VALUE 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$qYOU 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 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 $";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 WORTHE 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& <+::$<.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,B5FF15F2028005BR2170617: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     )3"ALPHA ";ALPHA(1,J);" SE ";ALPHA(2,J)I"R SQUARED ";R2O  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,21KET 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 :" MAR10|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)      OF 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 CHARACIT 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:N1N40381: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    1490T2T1NUMX31560*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 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 DHS"; 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  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:DNNUMX81890X1910bNUMX11940l1 $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  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,           L L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER 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 \ KTHEN 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"20  䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHO12YOM)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(  ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ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.      `E/E//`$(H)? @(hl8NO,(,` ɛ`2H2 h2Ɉɘ  : 3  5ɕ()ߝɍв [=< @L< >=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`Lr1w"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- **      z #1,X°   ˠϠΠ Ӡ РԠӠ Ϡ ٠Ӡ ٠Ӡ٠ ŠԠ ˠΠӠ ˠΠĠŠ ˠΠǠɠ ˠΠǠɠ ΠԠΠ!ΠԠ"ԠҠˠŠΠ ҠҭӠˠҠӠɠ ӠؠԠ ĠŠ Ԡ٠ Πؠ ̠ˠ6Ԡ٠ӠȠӠ͠ ΠԠŠX°] ՠϠ٠̠Ԡ٠ҠӠ٭ӠˠĠŠԠ MPONENTS:"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$      D  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    b@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A"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.    RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P PxAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA &`"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                WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    $";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  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     :(4);"BRUNMENU"180: 23! D$;"BRUN MENU"' > CENTER STRING A$^ B(20((A$)2)):B0B1k B:A$: from our library." P:D Z"WILLAMETTE APPLE CONNECTION, INC."X d"P.O. Box 7252w n"SALEM, OREGON 97303-0053 x20:"PRESS ANY KEY TO CONTINUE" zA$ } D$(4): CTRL-D 12 C(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":l  ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as"("Public Domain. If any person has proof"2"that any program is not Public Domain,"<"please contact us and we will delete" F"the program$% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4    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 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,ER 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     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";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$  **********     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$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     . 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"**TOTAL ";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$: ,"************************          D$"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     100PT(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                     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     ? ";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     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$)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, "