' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠z# u`OMINAL INTEREST RATE= ";I2;" %"0@t+255::9900T@v+"WANT ANOTHER RUN (Y/N) ? ";A$f@x+A$"Y"11104n@z+90z@+34,8:@+"(EFFECTIVE INTEREST RATE ON INVESTMENTS)"@+"ENTER INITIAL INVESTMENT..........$";P@+ A+"TOTAL VALUE AFTER (X) # OR PRINCIPAL AMT OF INVESTMENT ";P'?b+T?d+"ENTER TOTAL VALUE AT MATURITY.....";TZ?f+?h+"ENTER NUMBER OF YEARS.............";Y?j+?l+"COMPOUNDING PERIODS PER YEAR ?....";N?n+?p+I2N((TP)(1(NY))1)100?q+:9900:100@r+"THE ND PLAY, HIT RETURN":U$:A:B5@5uX(218)(219)256B@:uY(222)Y@PM0:D0:YR0:3040_@QÀ(Q,1)A(P,1):A(Q,2)A(P,2):A(Q,3)A(P,3):A(Q,4)A(P,4):A(Q,5)A(P,5)K?>QZ?>A(0,1)100i?>Q101450?>A(Q,1)0:A(Q,2)0:A(Q,3)0:A(Q,4)0:A(Q,5)0?>Q?>5000?PFPAP120:11030@0u"ERROR HAS BEEN DETECTED;SAVE DATA ON TAPE. PRESS RECORD AN:"":15020JJ N:" BASIC FINANCE I-----------COPYRIGHT 1978":10)G$:RJ0u:SUBTOTAL AFTER ";C$(0);" NO.";:PP0:OO5000:100:AAS:Q115080WI:AAGGAA0AAGGI:T10:T20:T30:T40:BA0:BB0:IN0:LL0:XX0:Q0I>BA(A2)C(A)(A2)0:40 J>:"SORRY, YOU'VE PICKED A NONSENSE SCHEDULE":"PLEASE CHOOSE AGAIN.":KK11500::::J$;" FOR:":" 1 ";B$(0):" 2 ";B$(1);", OR"::" 3 ";B$(2);" ACCOUNT"::"WHICH";:PP1:OO3:100:AS1:Q15030H::" WOULD YOU LIKE:":" 1 A COMPLETE ";J$;", OR":" 2 A ";D$(0);" SUMMARY ONLY":" WHICH";:PP1:OO2:100:JJS:Q15060@I:" FIRST AN ";J$;" (Y/N) ";:E$:(E$,1)"Y"15030OG:"MORE (Y/N) ?";E$:(E$,1)"N"ĀG::" 1 ANOTHER PROBLEM":" 2 ANOTHER SCHEDULE":" 3 BACK TO THE FIRST PAGE":" 4 QUIT":" WHICH";:PP1:OO4:100:Q15020G:S10100,15027,1000,30000G:R216070tH4IJ3KO28L4O:8F)MH12I3JK84OL12O:ZF)MHO7IO28JO84KL7:wF)MHOIO4JO12K7LF*M(M):TMGG:NFGGF0*1000F::R15010,15015F:"ANOTHER ";J$;" (Y/N) ";:"? ";E$:(E$,1)"Y"15030F:15020)G:"LIKE P0:OO1E8:100:DS:Q10495+E)B310600bE6)" ENTER TOTAL ";A$;:PP0:OO1E8:100:CS:Q10550qEh)R210700Em)B410700E|)" ENTER BALLOON ";A$;:100:PS:Q10620E)G110710,10720,10730,10740,10750:10760E)MHI4J12K7OLO:F)MH(0);"S/";C$(2);"S, OR":" 2 A SINGLE ";C$(0);"/";C$(2);" ONLY...":" WHICH";:PP1:OO2:100:RS:Q10465rD(::D(B110520D(R10495,10492D("ENTER ";C$(0);"/";C$(2);F$;A$;:PP0:OO1E8:100:DS:Q10492D(10520E(" ENTER ";D$(G);F$;A$;:P5 ";D$(4):" WHICH";:PP1:OO5:100:GS1:Q10400bC(GG(G0)(G1)4(G2)12(G3)O7(G4)OyC(KL0G310465C(" HOW MANY ";L$(4);" IN YOUR ":"ACCOUNTING YEAR";:PP0:OO365:100:OS:Q10420hD(:" WILL YOU BE MAKING:":" 1 ";D$(G);F$;C$;F$;L$(1);:100:QIS:I$;F$;L$(2);:OO1200:100:QJS:I$;F$;L$(3);:OO10E4:100:QKS:I$;F$;L$(4);:OO1E6:100Bs(QLS:10390Bx(10340B(:" "2C(" WITH INTEREST TO BE COMPOUNDED:":" 1 ";D$(0):" 2 ";D$(1):" 3 ";D$(2):" 4 ";D$(3):" INTEREST RATE (APR) IN %";:PP.005:OO1000:100:FS100:Q10220PAF(B210390Ad(" TERM OF THE ACCOUNT:":" YOU MAY ENTER ANY COMBINATION OF ";L$(0)",":L$(1);", ";L$(2);", ";L$(3);", OR ";L$(4);"."wBn(PP0:OO400::I$;F$;L$(0);:Q0:100:QHS:I$(0);"/";C$(2);F$;A$:" 3 ";I$;F$;C$(0);"S/";C$(2);"S":" 4 TOTAL ";A$;" OR,":" 5 BALLOON ";C$(0)@'" WHICH (ENTER BY NUMBER PLEASE)";:PP1:OO5:100:Q10140@'BS1@':10)G$:" OK..NOW I NEED TO KNOW THE FOLLOWING: "@'B010310AA'"ANNUALALLOON ";C$(0);K$;", AND "::J$;K$;" FOR ";B$(0);"S, ";B$(1);K$`?$'"AND ";B$(2);"S ACCOUNTS."?['" HIT RETURN WHEN READY...";E$?t'20000?y'O365:LL0:BB0:Q0:P0:a@~'"YOU MAY CALCULATE ANY OF THE FOLLOWING:":" 1 INTEREST RATE (APR)":" 2 ";C$UN (Y/N) ? ";A$PE0A$"N"90)PH012300/Pp09Pr09000aPt08);"REMAINING BALANCE ON A LOAN"gPv0qPx09000P|0"ENTER REGULAR PAYMENT AMOUNT.....$";RP~0P0"ENTER PRINCIPAL AMOUNT...........$";PP0Q0"NUMBER OF PAYMENTS PER/YEAR......%";I5 O$0O&0I5I5100CO(0"NUMBER OF PAYMENTS PER/YEAR...#";NIO*0RO,0B0P`O.0J11NYO00I1((B0I5N)100.5)100O20ARI1O40B0B0AO60J1O809900O:011);"LAST PAYMENT= $";((RB0)100.5)100O<0O>09900PA0"WANT ANOTHER RN 0N09000:N06);"((( LAST PAYMENT ON A LOAN )))":DN09000JN0tN0"ENTER REGULAR PAYMENT AMOUNT..$";RzN0N0"ENTER PRINCIPAL AMOUNT........$";PN0N0"ENTER THE TERM IN YEARS.......#";YN 0O"0"ENTER ANNUAL INTEREST RATE....TE....%";I5M/;M/"NUMBER OF PAYMENTS/YEAR.......#";NAM/qM/R((I5100)PN)(11((I5100)N1)(NY)){M/9900M/8);"REGULAR PAYMENT= $";(R100.5)100M/M/9900M/M/"WANT ANOTHER RUN (Y/N) ? ";A$M/A$"N"90M/12200"WANT ANOTHER RUN (Y/N) ? ";A$.Lg/A$"N"909Li/12100?L/IL/9000pL/7);"REGULAR PAYMENT ON A LOAN":zL/9000L/L/"WHAT IS TERM IN YEARS.........#";YL/L/"WHAT IS PRINCIPAL AMOUNT......$";PL/ M/"ENTER ANNUAL INTEREST RA................#";YKR/HKT/"ENTER ANNUAL INTEREST RATE......%";I5NKU/zKW/"ENTER NUMBER OF PAYMENTS/YEAR...#";NKX/KZ/PRN(11((I5100)N1)(NY))(I5100)K[/9900K]/5);"!!! PRINCIPAL= $";(P100.5)100;" !!!"K_/Kb/9900Le/ANNUAL INTEREST RATE= ";I5100;" %")J,3J,9900WJ,"WANT ANOTHER RUN (Y/N) ? ";A$fJ,A$"N"90qJ,11420wJD/JF/9000JH/8);"((( PRINCIPAL ON A LOAN )))"JI/JJ/9000JL/"REGULAR PAYMENT AMOUNT..........$";RJN/KP/"TERM IN YEARS...";N I,I,I510:I20?I,R1(I5PN)(11((I5N1)(NY)))WI,R1(R1100.5)100iI,I3(I5I2)2sI,I2I5I,R1R11460I,R1R11456I,I5I5I3I,11441I,I5I5I3I,11441I,I5((((I51000)100.5))100)1000I,9900#J,5);",90003H,6);"ANNUAL INTEREST RATE ON A LOAN":=H,9000CH,oH,"ENTER REGULAR PAYMENT AMOUNT....$";RuH,H,"ENTER TERM IN YEARS.............#";YH,H,"ENTER PRINCIPAL AMOUNT..........$";PH,I,"NUMBER OF PAYMENTS PER YEAR.....#R(X)(X100.5)100HGz," (";J0;")";9);R(B2);20);R(I3);30);R(I2)WG|,I30:KK1aG~,B0B2yG,J0J1N1Y11403G,J1G,J0X11402G,G,KK1G,J0G,G,:G,"WANT ANOTHER RUN (Y/N) ? ";A$G,A$"N"90G,:11300G,HFh,L11:N21:P21 Fi,J11N1Fj,N2N111374GFk,N2N1J1N11374[Fl,B0B0R:N2N21nFn,B2B0(1I5N){Fo,I1B2B0Fp,I3I3I1:I2I2I1Fq,P2P1J1N11380Fs,I2R(I2):B2R(B2):P2P21Ft,J0X11390Fv,J1NL1L211390Fx,L1L11Gy,;Y;" YEARS"EZ,9900%E[,N1011360[E\,"DEPOSITS/WITHDRAWALS $";R;" ";N1;" TIMES/YEAR"eE],9900E^,R(X)(X100.5)100E`,"EFFECTIVE INTEREST RATE ";R(100((1I5N)N1));" % PER YEAR"Ea,Eb,"YEAR BALANCE INTEREST ACC/INTEREST"Ff, DI,X(X)DJ,B0PDK,I10&DL,I20/DM,I308DN,K66ADO,P14RDP,J01(Y)1bDQ,J0X11368rDR,K5511366DS,K1K66DT,DU,K1DV,K6:9000DW,7);"((( EARNED INTEREST TABLE )))"DX,:9000 EY,"PRINCIPAL = $";P;" AT ";I5100;" % FOR "UNT OF DEPOS/WITHDRAWAL.........$";R*C9,4C:,N360>C<,L2N1IC=,11332xC?,"COMPOUNDING PERIODS PER YEAR.......#";N~C@,CA,N10CB,L24CD,"STARTING WITH WHAT YEAR......(1-30) ";XCE,CF,"STOP PRINTING WITH WHAT YEAR (1-30) ";YDG,:34,0:(,7);"((( EARNED INTEREST TABLE )))"2B),:9000:B*,:gB,,"ENTER PRINCIPAL AMOUNT...........$";PmB-,B.,"NOMINAL INTEREST RATE............%";I5B/,B0,I5I5100B2,"HOW MANY DEPOS/WITHDRAWALS PER YEAR ";N1B4,B5,N1011327$C7,"AMOF YEARS $ ";TA+AA+"ENTER NUMBER OF YEARS.............#";YGA+VA+9900:100A+7)"ANNUAL INTEREST RATE = ";((TP)(1Y)1)100;" %"A+255::9900A+"WANT ANOTHER RUN (Y/N) ? ";A$A+A$"N"11228A+11200A+90A$,A&,9000&BTION TABLE"`;`;9000!`;M` ;"ENTER AMOUNT OF REGULAR PAYMENT.$";RS` ;`;"ENTER TERM IN YEARS.............#";Y`;`;"ENTER PRINCIPAL AMOUNT..........$";P`;`;"ENTER ANNUAL INTEREST RATE......%";I5`;`;I5I5100$a;";Y_7_7I5I5N1004_7RTI5((I51)(NY)1)>_79900G_7100z_7" REGULAR DEPOSITS = $";(R100.5)100_7_7255_79900_7"WANT ANOTHER RUN (Y/N) ? ";A$_7A$"N"90_714200_:_:9000 `;" MORTGAGE AMORTIZA00&^|79);"*** REGULAR DEPOSITS ***",^~76^79000<^7i^7"ENTER VALUE AFTER (X)# OF YEARS..$";To^7^7"ENTER NOMINAL INTEREST RATE......%";I5^7^7"HOW MANY DEPOSITS EACH YEAR......#";N^7_7"ENTER NUMBER OF YEARS............#"7"ENTER NUMBER OF YEARS.............#";Y:]27I5I5N100V]<7TR((1I5)(NY)1)I5\]F7f]P79900o]Q7100]U77);"FUTURE VALUE = $";(T100.5)100]Y7]Z7255]_79900]d7"WANT ANOTHER RUN (Y/N) ? ";A$]n7A$"N"90]q714100]x7^z7900-\7" FUTURE VALUE OF REGULAR DEPOSITS"M\7" (ANNUITY)"Y\7:9000_\ 7\"7"AMOUNT OF REGULAR DEPOSITS........$";R\$7\&7"ENTER NOMINAL INTEREST RATE.......%";I5\(7\*7"HOW MANY DEPOSITS EACH YEAR.......#";N\,7*]. NUMBER OF YEARS............#";Y.[r4I5I5100R[v4PRNI5(11((1I5N)(NY)))X[w4b[x49900k[y4100[z47);"INVESTMENT REQUIRED = $";(100P.5)100[{4:255[|49900[4"WANT ANOTHER RUN (Y/N) ? ";A$[4A$"N"90[413400[7\790000ZX4ZZ49000AZ\4"** MINIMUM INVESTMENT FOR WITHDRAWAL **"GZ^4QZ`49000YZb4:Zd4"AMOUNT OF WITHDRAWALS............$";RZf4Zh4"ENTER NOMINAL INTERES RATE.......%";I5Zj4Zl4"HOW MANY WITHDRAWALS EACH YEAR...#";NZn4 [p4"ENTER4"NUMBERS OF YEARS.................#";Y/Y 4?Y 4I5I5N100`Y4RP(I5((1I5)(NY)1)I5)jY49900sY4100Y4" AMOUNT OF EACH WITHDRAWAL = $";(R100.5)100Y4Y4255Y49900Y!4"WANT ANOTHER RUN (Y/N) ? ";A$Y&4A$"N"90Z+413390X313200X3X39000MX3" REGULAR WITHDRAWALS FROM AN INVESTMENT"SX3]X39000cX3X3"ENTER INITIAL INVESTMENT.........$";PX3X4"NOMINAL INTEREST RATE............%";I5X4X4"HOW MANY WITHDRAWALS EACH YEAR...#";NX4)Y S PER/YEAR.....#";NW3FW3"ENTER NUMBER OF YEARS............#";YLW3\W3I5I5N100qW3TP(1I5)(NY){W39900W3100W35);"!!! FUTURE VALUE = $";(T100.5)100;" !!!"W3255W3:9900W3"WANT ANOTHER RUN (Y/N) ? ";A$X3A$"N"NOTHER RUN (Y/N) ? ";A$&VZ3A$"N"901V\3131007V3AV39000kV37);"FUTURE VALUE OF AN INVESTMENT"wV3:9000V3:V3"ENTER INITIAL INVESTMENT.........$";PV3V3"NOMINAL INTEREST RATE............%";I5V3W3"COMPOUNDING PERIOD/U@3"LENGTH OF INVESTMENT (YEARS).......#";Y5UB3dUD3"WHAT NOMINAL INTEREST RATE.........%";I5jUF3zUH3I5I5N100UJ3PT(1I5)(NY)UM39900UN3100UO38);"INITIAL INVESTMENT= $";(P100.5)100UQ3UR3255UT39900UV3VX3"WANT A!!!"T0:99004T0"WANT ANOTHER RUN (Y/N) ? ";A$CT0A$"N"90NT112500TT,3^T.39000T038);"((( INITIAL INVESTMENT )))"T23T439000T63T83"VALUE AFTER (X)# OF YEARS........#";TT:3T<3"NUMBER OF COMPOUNDING PERIODS/YEAR.#";NU>3ENTER PRINCIPAL AMOUNT...........$";P,S0ZS0"ENTER ANNUAL INTEREST RATE.......%";I5`S0S0"NUMBER OF PAYMENTS/YEAR..........#";NS0S0Y((1(P(I5100))(NR))((1I5100N)N))S09900T010);"!!! TERM= ";(Y10.5)10;" YEARS 07);"REMAINING BALANCE= $";(B0100.5)1004R0>R09900bR0"WANT ANOTHER RUN (Y/N) ? ";A$qR0A$"N"90|R012400R0R09000R010);"((( TERM OF A LOAN )))"R0R09000R0R0"ENTER REGULAR PAYMENT AMOUNT.... $";RR0&S0"#";N Q08Q0"ENTER ANNUAL INTEREST RATE.......%";I5>Q0LQ0I5I5100nQ0"ENTER LAST PAYMENT MADE..."Q0"PAYMENT # ";N1Q0"YEAR....# ";YQ0B0PQ0J11N(Y1)N1Q0I1((B0I5N)100.5)100Q0ARI1Q0B0B0AQ0J1Q09900.R;Y0,MFY(12Y0M)12&F IIN100@FTD((1I)(NY)1)IFFrF ::"FUTURE VALUE = $";(T100.5)100xF"F%::"ANOTHER CALCULATION (Y OR N) ?"F'F*A$:A$"Y"2000F/100F4:"" G9::::"* REGULAR WITHDRAWAL FROM A IA$"Y"1900E100#E:""[E::::"*** FUTURE VALUE OF REGULAR DEPOSITS ***"E:::"AMOUNT OF REGULAR DEPOSIT ? ";DE::"ANNUAL INTEREST RATE ? ";IE::"HOW MANY DEPOSITS PER YEAR ? ";NF::"HOW LONG (YEARS, MONTHS) ?,? "ATE ? ";I6D::"COMPOUNDING PERIODS PER YEAR ? ";NeD::"HOW LONG (YEARS , MONTHS) ?,? ";Y0,MxDY(12Y0M)12DIIN100DTP(1I)(NY)D::"FUTURE VALUE = $";(T100.55)100D::"ANOTHER CALCULATION (Y OR N) ?"D:A$ E"TIME NEEDED=";Y0;" YEARS ";M;" MONTHS"1CS:aCX:::"ANOTHER CALCULATION (Y OR N) ? ";A$rCbA$"Y"1800{Cg100Cl:"":::::" *** FUTURE VALUE OF AN INVESTMENT ***"Cv:::"AMOUNT OF INVESTMENT ? ";P D::"ANNUAL INTEREST R:::"YOUR REGULAR PAYMENT ? ";RAB::"AMOUNT OF LOAN ? ";PfB&::"ANNUAL INTEREST RATE ? ";IB0::"NUMBER OF PAYMENTS PER YEAR ? ";NB:Y((1(P(I100))(NR))((1I100N)N))B?M(Y12.5)BDY0(M12)BIMMY012BK)CN::0M)12AIIN100/ARTI((I1)(NY)1)9A::gA:"REGULAR DEPOSITS = $";(R100.5)100A::"ANOTHER CALCULATION ? (Y OR N)"AA$AA$"Y"1640A100A:"":::::" *** TIME NEEDED TO REPAY A LOAN ***"A "BN TO CONTINUE"@^A$<@h:8);"*** REGULAR DEPOSITS ***"g@r:::"FUTURE VALUE (YOUR GOAL) ? ";T@|:::"ANNUAL INTEREST RATE ? ";I@@::"NUMBER OF DEPOSITS PER YEAR ? ";N@@::"NUMBER OF YEARS, MONTHS ?,? ";Y0,MAY(12YA$"Y"1220?100?Q?@:""::::8);"*** REGULAR DEPOSITS ***"?J::"THIS PROGRAM TELLS YOU HOW MUCH MONEY":"IS NEEDED AS A REGULAR DEPOSIT TO"?T"REACH YOUR FUTURE GOAL, AT A SPECIFIC":"TIME. "@Y:::::::::"HIT RETUR8:26,278hN13 hN2,3939,hN2,3908hN0,392EhN0,3939khN8:"BUSINESS (FINANCIAL) SERIES"|h]I13000:Iha85a gbN22,13gdN23,12 gfN24,11+ghN21,156gjN21,16FgpN A:P:P:L:ENguN14tgxN5,83:10,133:15,183:25,273gzN6,76:11,126:16,176:26,276:30,316gN3,85:3,88:3,810:3,613:3,815:3,618:3,820:3,825:3,833:3,835 hN21,22fN11,3120!f@N9/fBN11,3121=fDN12,3022DfFN1RfHN13,2923`fIN13,2924nfJN14,2825|fLN14,2826fNN15,2727fPN2fRN16,2628fTN16,2629fUN2fVN17,2030fXN22,2530fYN12f\N21,14f^N16,1814f`N24,26145720eJ=N1((Y(Y))12)12N*eT=J0J015e^=15144?eh=9900cem="WANT ANOTHER RUN (Y/N) ? ";A$rer=A$"N"90}ew=15100e Ne)N THE APPLEe*N12e/N15,1915e0N14,2016e1N23,2715e2N22,2816e4N14e6N13,2917e8N12,3018e:N9 14);A;24);B0;32);I2db3;"INTEREST RATE............%";I5cb4;"TERM IN YEARS............#";Yb5;"REGULAR PAYMENT..........$";Rb7;b8;"MO. INTEREST AMOUNT ENDING ACCUM"b9;" CHARGE AMORTIZED BALANCE INTEREST":b:;K7c( K@ ::"ANOTHER CALCULATION (Y OR N) ?" LB :A$IN)(NY)))JDJ::"MINIMUM INVESTMENT = $";(100P.5)100JJtJ::"ANOTHER CALCULATION (Y OR N) ?"JA$:A$"Y"2200J100J:""J ::::" EFFECTIVE INTEREST RATE ON INVESTMENTS"J :::"INITIAL INVESTMENT ? ";P'K:"REGULAR WITHDRAWALS ? ";WBI::"ANNUAL INTEREST RATE ? ";IpI::"HOW MANY WITHDRAWALS PER YEAR ? ";NI::"FOR HOW LONG A PERIOD DO YOU WISH TO":"MAKE WITHDRAWALS-YEARS,MONTHS ?,? ";Y0,MIY(Y012M)12III100 JPWNI(11((12HpIIN100-HuRP(I((1I)(NY)1)I)fHz::"YOU CAN MAKE WITHDRAWALS OF $";(R100.5)100H::"ANOTHER CALCULATION (Y OR N) ?"H:A$:A$"Y"2100H100H:""H::::"** MINIMUM INVESTMENT FOR WITHDRAWALS **"I::NVESTMENT *"1G>:::"INITIAL INVESTMENT ? ";PVGH::"ANNUAL INTEREST RATE ? ";IGR::"HOW MANY WITHDRAWALS PER YEAR ? ";NGa::"OVER HOW LONG A PERIOD DO YOU WISH TO"Gc"WITHDRAW YOUR INVESTMENT (YEARS, MONTHS)?,? ";Y0,MHkY(12Y0M)1AMD ALABAMAPXX99999XX$"*****.** ":=CXS$" ":XX0XS$"-":XXXXdC(XA(XX.005):XB(100(XXXA).5)CXA$(" "(XA),5)CXB$("00"(XB),2)CTXX$XA$"."XB$XS$:C:C COPYRIGHT 1979C APPLE CORPSC OFDH BIRMINGHB CAR INS.,COMMUTING,PERSONAL LOAN,CHARGE ACCOUNT-1jB CHARGE ACCOUNT-2,CHARGE ACCOUNT-3,LUNCH MONEYB MEDICAL,DENTAL,DRUGS,HEALTH INSURANCE,LIFE INS.B  RECREATION,VACATIONS,MEALS OUT,GIFTSB ALLOWANCES,CONTRIBUTIONS,CLOTHING,**STOP**C`EP DO YOU WANT TO PROCESS? ";X,AVX11000:A`X61000YAjX200,400,500,600,700,800A RENT/MORTGAGE PAYMENT,ELECTRICITY,TELEPHONE,WATER,GASA SUPPLIES,MAINTENANCE,FOOD,TOBACCO/LIQUOR,OTHERA CAR LOAN-1,CAR LOAN-2,GAS & OIL,REPAIRS,TIRES6G SUMMARY.":2@"1. INPUT WAGE EARNERS INCOME."P@"2. INPUT OTHER INCOME."r@$"3. INPUT HOUSING EXPENSES."@."4. INPUT TRANSPORTATION & LOAN PMTS."@8"5. INPUT FAMILY & PERSONAL EXPENSES."@B"6. DISPLAY OPERATING SUMMARY.":AL"WHICH STESS OR DEFICIT :";:?XXW(8):60000:XX$::`?"(PRESS RETURN TO CONTINUE)";Z9$?:" * * * FAMILY BUDGET * * *":?"ENTER THE REQUIRED INFORMATION USING"?"STEPS 1 THRU 5, THEN PRESS 6 TO SEE" @"YOUR FAMILYS' OPERATINI1:JFY/ 84,72,69,224,77,73,67,72,73,71,65,78,224,65,80,80,76,69IYPED IN BY":21)"JOHN E. SOPALA JR."[X:"WITH TECHNICAL HELP FROM":26)"JERRY RIVERS"X:::"HIT RETURN KEY TO GET BACK TO MENU";A$X100X.:I17131734:I,32:I216,32:X.I15851072128:I,32:I21,32:Y.I1459:J118:T:I,T:I*"5W::"IT IS MY BELIEF THAT BECAUSE OF THE WAY"dW:"THE DOLLAR IS DEPRECIATING YOU SHOULD"W:"EXCHANGE YOUR DOLLARS AND CENTS FOR"W::" ZOLTYCHS AND GROSZYS "W::"WHICH HAPPENS TO BE POLISH MONEY "%X::"THESE PROGRAMS T"z                                       " " " " " """"`8dr8k r$_<\`$<[9]̠͠Ԡ٠ŠҠ}]נ̠ԠŠɠïϠҠӠЮ٠ĮΠϬ`                                                             z"#???    !̠͠Š" ˠΠ ˠԠҠ̠Ӡ:ŠŠ+Ԡ̠Šî® ("ϠˠŠŠӠŠӠӠӠ 1F401d(222)255Ħ&1nI0130D1xD$:D$"DELETE FULL FILE"u1:12:I;" SECTORS AND ";I256;" BYTES FREE"134,0: 0:"DISK SPACE FREE":017:"BY DARRELL ALDRICH":Z09:"CALL -APPLE FEB 1979"034,10::"COUNTING......ONNNNE, TWWWWO,...0 D$(4):1000D$"NOMON O,I,C":I00D$"OPEN FULL FILE,L256"0(II102D$"WRITE FULL FILE,R";I0< 0 201,141,240,21,201,136:0 240,17,201,128,144,13U0 201,160,176,9,72,132o0( 53,56,233,64,76,24902 253,76,240,2530<I768768270FV:I,V:I0P54,0:55,30Z1002F$" ":G$"APPLE COMPUTER INC":H$"":J$"AMORTIZATION SCHEDULE":K$"S":L$(0)"YEARS":L$(1)"QUARTERS":L$(2)"MONTHS":L$(3)"WEEKS":L$(4)"DAYS"@?'20000:" THIS PROGRAM CALCULATES ";A$;", ";C$(0);",":C$(2);", INTEREST RATE (APR), ";I$::C$(0);K$;", B'B$(2),C$(2),D$(4),V(2),N(2),C(2),D(2),L$(4),P(2),M(2):B$(0)"LOAN":B$(1)"LEASE":B$(2)"SAVINGS"='C$(0)"PAYMENT":C$(1)C$(0):C$(2)"DEPOSIT":D$(0)"YEARLY":D$(1)"QUARTERLY":D$(2)"MONTHLY":D$(3)"WEEKLY":D$(4)"DAILY">'I$"NUMBER OF":A$"AMOUNT":W)GG:5:V(2)N8<9Z02:N(Z)V(Z):V(Z)100N(Z)GG:?<;7M<=R21700i<@:"COMPOUNDED ";D$(G);62)0:PR(A0)BA(A1)(P(A)IN)(A2)P(A):BA(A0)0(A1)(BAPR)(A2)(BAP(A)):93`4\954]"BLN";:V(0)IN:V(1)PR:V(2)BA:7:T3T3IN:T4T4PR:ZW:824^LL15(BBM(A)7LL17)ı 5_"HIT 'RTN' TO CONTINUE, ANY KEY TO EXIT";:S$::LL0:S((2T2PR:BBM(A)803K3P15:XXXXW:"YR";:TT5:ND1:VXX:10:ND0:V(0)T1:V(1)T2:V(2)BA:7:T3T3T1:T4T4T2:T10:T203R"CUM";:V(0)T3:V(1)T4:7:LLLL4:15:94:QQ1953UBBM(A)913Z43X4[QQ1:P(A).005IN(A0)0(A1)N(A)BA(A2U038:"-";:::/2(QQ0:ZZAA:97:4592+ZZGGF2-DD1ZZ22INN(A)(BA(BB0)(A1)BA(A2)D(A)):PRD(A)(A2)IN:BABA(A2)PR(A2)(INPR):BBBB12AJJWVBB:NDW:TT4:10:ND0:V(0)IN:V(1)PR:V(2)BA:7:LLLLW:943FT1T1IN:T1İ10:V(Z)((V(Z).005)100)100:Z::ND0:H1TT6)"NO ANS";:::f1 V1E8V$"*.**":KK2:131 V.005V$".00":KK1:131 V$(V.005):KK1(V$):(V$,KK,1)"."Ă1 TTKK23ND)(V$,KK23ND);:(V$)KK2ĺ(".00",KK(V$)2);2T0W1:10000L0DTN(CP(WN)M)(W(WN)M):DDT.001NNDDT:1R00DT(N(CP(WN)M))((W(WN)M)(WN)):DTD.001NNDDT:300DT(CP)N((WN)(MW)(WN)):DTD.001NNDTD:50-1Z02:TT11Z17:VV(Z):V          A0AAGG7>:Z0:A0:E0:T40:BA0:BB0:IN0:LL0:XX0D>>BA0:40c>>:"SORRY, NO "J$::15000k> N:M"4 QUIT":I$;:YW:X4:100:Q15020A=:S10010,15060,1000,20000P=:R216070=:::"1 A COMPLETE "J$", OR":"2 A "D$(0)" SUMMARY ONLY":I$;:YW:X2:100:Z1S:Q15060=:" FIRST SUBTOTAL AFTER "C$" NO.";:Y0:X5000:100:AAS:Q15080 >:AAGGA10700/<|)Y0:" BALLOON "A$;:100:PS:Q10620<)M((YRO)((G0)(G1)4(G2)12)(G3)YR7(G4)YR):TMGG:NFGG:1000<::"MORE (Y/N) ";:E$:(E$,1)"Y"20000<::34,8:32,5:33,34#=::"ANOTHER: ":"1 PROBLEM":"2 SCHED":"3 PAGE 1":"S, OR":"2 A SINGLE "C$" ONLY...":I$;:Y1:X2:100:RS:Q10465];(X1E6:Y.001:B110520r;(:R10495,10492;(C$" "A$;:100:DS:Q10490;(10520;(D$(G)" "C$;:100:DS:Q10490;)B310600;6)" "B$" "A$;:100:CS:Q105509':"HBASED ON "O" DAYS/ACCT'G YR":15:150007'D$(4),L$(4):B$"SAVINGS":C$"DEP":D$(0)"YRLY":D$(1)"QTRLY":D$(2)"MNTHLY":D$(3)"WKLY":D$(4)"DLY"7'A$"AMT":J$"AMORT. SCHED.":L$(0)"YRS":L$(1)"QTRS":L$(2)"MNTHS":L$(3)"WKS":L$(4)"DAYS":I$" WHICH"[8.01VW:14306PV67C6:"APR %";:B0VF100:1540t6R2N100GG((CD)(WM)W):VN:V01540}6VW6MDPCVW:15406N(((CP)(DM))(WT)W)GG:1:V100NGG676@:"CMP'D "D$(G);:" OVER ";M;" "L$(G)'7^:" 57:DV,5:"# "C$"S";:R2VW:1320@5B2VM:1320k5V(((CP)N)(DL)W)(L):V(V):MVw5(NDW:75-B0140052R2V((CP)D)(L):M((V.005)100)1005xR215005:"BALLOON";:B0VP:1430511006VCJLI:VXĺ"":QW4n(4::" "16)B$:15841100:1110r4LB0H(W(WN)M)N:I(WN)M:JDH:KPI:LWN:4VA$;:B3VC:11304`V(RW)(JLIP)(R2)DI4j7:CV4:C$;:BWVD:12205V(RW)((CP)I(HL).005)(R2)(CP)I:"BLN";:9:EEIN:T4T4PR:82'3]95C3^LL15(BBM7LL17)ı3_"HIT 'RTN' TO CONTINUE, ANY KEY TO EXIT";:S$::LL0:S(S$)133`SUU1150153a:16)B$:15:"PMT# INT PRI BAL":15: 4dQ0:" ? ";S$:S(S$):SYSϭZ1WVBB:NDW:TT4:10:ND0:9:LLLLW:94G2FZZIN:AAPR:BBM80M2K2P15:XXXXW:"YR";:TT5:NDW:VXX:10:INZ:PRA:9:EEZ:T4T4A:Z0:A02R"CUM";:INE:PRT4:9:LLLL4:15:94:UU1952UBBM912Z433[UUW:PIN0:PRP:BABAP(V.005):KKW(V$):(V$,KK,W)"."Ăn1 TTKK23ND)(V$,KK23ND);:(V$)KK2ĺ(".00",KK(V$)2);1ND0:V((V.005)100)100:1U038:"-";:::1(:ZZAA:97:451+ZZGG1-UUWZZ12INN(BAD):PRD:BABAINPR:BBBBW,2Al0W1:10000J0DT(CP)N((WN)(MW)(WN)):DTD.001NNDTD:1P0i0TT39:V1İ10::0TT6)"NO ANS";::150000 TT17:VIN:10:TT28:VPR:10:TT39:VBA:10::0 V1E8V$"*.**":KK2:130 V.005V$".00":KKW:13(1 V$     0:A0:E0:T40:BA0:BB0:IN0:LL0:XX05>>BAC:40T>>:"SORRY, NO "J$::15000Z> NW:X4:100:Q150202=:S10010,15060,1000,20000A=:R216070=:::"1 A COMPLETE "J$", OR":"2 A "D$(0)" SUMMARY ONLY":I$;:YW:X2:100:Z1S:Q15060=:" FIRST SUBTOTAL AFTER "C$" NO.";:Y0:X5000:100:AAS:Q15080=:AAGGAA0AAGG(>:Z" BALLOON "A$;:100:PS:Q10620q<)M((YRO)((G0)(G1)4(G2)12)(G3)YR7(G4)YR):TMGG:NFGG:1000<::"MORE (Y/N) ";:E$:(E$,1)"Y"20000<::34,8:32,5:33,34=::"ANOTHER: ":"1 PROBLEM":"2 SCHED":"3 PAGE 1":"4 QUIT":I$;:YINGLE "C$" ONLY...":I$;:Y1:X2:100:RS:Q10465N;(X1E6:Y.001:B110520c;(:R10495,10492;(C$" "A$;:100:DS:Q10490;(10520;(D$(G)" "C$;:100:DS:Q10490;)B310600;6)" "B$" "A$;:100:CS:Q10550;h)R2B410700 <|)Y0::100:YRYRS7:L$(4);:100:YRYRS:QYR010350:(:"INT TO BE COMPOUNDED: ":"1 "D$(0):"2 "D$(1):"3 "D$(2):"4 "D$(3):"5 "D$(4):I$;:Y1:X5:100:GS1:Q10400:(GG(G0)(G1)4(G2)12(G3)O7(G4)O2;(:"1 "D$(G)" "C$"S, OR":"2 A SW MANY "L$(4)" IN YOUR":"ACCOUNTING YEAR";:X365:100:OS:Q10150R9'B0103109':"INT RATE (APR) IN %";:Y.005:X1000:100:FS100:Q102209F(Y0:B2104003:n(X1E6::L$(0);:100:YRS:L$(1);:100:YRYRS4:L$(2);:100:YR(YRS12)O:L$(3);::15)" LOANS I ":10)"APPLE COMPUTER INC.":12)"COPYRIGHT 1978":34,8:32,10:33,298t':P0::"YOU MAY CALCULATE: ":"1 INT RATE (APR)":"2 "C$" "A$:"3 # OF "C$"S":"4 TOT "A$", OR":"5 BALLOON "C$8'I$;:Y1:X5:100:BS1:Q10140C9':"HO"BASED ON "O" DAYS/ACCT'G YR":15:150007'D$(4),L$(4):B$"LOAN":C$"PMT":D$(0)"YRLY":D$(1)"QTRLY":D$(2)"MNTHLY":D$(3)"WKLY":D$(4)"DLY"7'A$"AMT":J$"AMORT. SCHED.":L$(0)"YRS":L$(1)"QTRS":L$(2)"MNTHS":L$(3)"WKS":L$(4)"DAYS":I$" WHICH"Z8'6PV6726:"APR %";:B0VF100:1540K6MDPCVW:1540Z6R215306N100GG((DC)(WM)W):VN:V015406VW:15406N(((DMP)C)(WT)W)GG:1:V100NGG676@:"CMP'D "D$(G);6T" OVER ";M;" "L$(G)(7^:V"5:"# PMTS";:R2V1:132065B2VM:1320b5V(((NCD)(NPD)))(L):V(V):MVn5(NDW:7|5-B0140052R2V(DC)(L):MV5xR215005:"BALLOON";:B0VP:1430511005V(CJ)I:B4V0VW:14305V0V0SXĺ"":QW4n*4::" "16)B$:15:41100:1110t4LB0H(W(WN)M)N:I(WN)M:JDH:KPI:LWN:4VA$;:B3VC:11304`V(RW)(JK)(R2)DI4j7:CV4:"PMT";:BWVD:12204V(RW)((CK)H.005)(R2)CI57:DLN";:9:EEIN:T4T4PR:82#3]95?3^LL15(BBM7LL17)ı3_"HIT 'RTN' TO CONTINUE, ANY KEY TO EXIT";:S$::LL0:S((S$)13)23`S2UU1150153a:16)B$:15:"PMT# INT PRI BAL":15: 4dQ0:" ? ";S$:S(S$):SY1WVBB:NDW:TT4:10:ND0:9:LLLLW:94E2FZZIN:AAPR:BBM80K2K2P15:XXXXW:"YR";:TT5:NDW:VXX:10:INZ:PRA:9:EEZ:T4T4A:Z0:A02R"CUM";:INE:PRT4:9:LLLL4:15:94:UU1952UBBM912Z433[UUW:PIN0:PRBA:BA0:"B$(V.005):KKW(V$):(V$,KK,W)"."Ăp1 TTKK23ND)(V$,KK23ND);:(V$)KK2ĺ(".00",KK(V$)2);1ND0:V((V.005)100)100:1U038:"-";:::1(:ZZAA:97:451+ZZGG1-UUWZZ12INNBA:PRDIN:BABAPR:BBBBW*2AZ[0W1:10000L0DTN(CP(WN)M)(W(WN)M):DDT.001NNDDT:1R0k0TT39:V1İ10::0TT6)"NO ANS";::150000 TT17:VIN:10:TT28:VPR:10:TT39:VBA:10::0 V1E8V$"*.**":KK2:130 V.005V$".00":KKW:13*1 V     EAN";15);"VARIANCE";29);"DEVIATION"A83);R;15);V;29);(V)c8:"MORE DATA (Y OR N) ";:A$s8A$"Y"400{812"NS ";:N77R0:M0:P0+7K1444V7I1N:"ITEM, FREQUENCY ";I;" ";:A,Br7RRBA:PPB:MMBA2y7I7RRP:V(MPR)(PS):45177I1N:"ITEM ";I;" ";:D7PPD:MMD2:I7RPN:V(MNR2)(NS)7%83);"MABX638806:"MORE DATA (Y OR N) ";:A$@6A$"Y"300H6126936:::" MEAN, VARIANCE, STANDARD DEVIATION"6:"WHICH METHOD (0=POPULATION, 1=SAMPLE) ";:S6"KIND OF DATA (0=GROUPED, 1=UNGROUPED) ";:K7"NUMBER OF OBSERVATIOX)" 5hJB(R2JKN):MMK2N,5rKMJ:75wR2JMN5|"COEFFICIENT OF:"5~:"DETERMINATION (R^2)= ";R2:"CORRELATION= ";(R2)5"ERROR OF ESTIMATE= ";(K(N2))5:"INTERPOLATION (ENTER 0 TO END):"5:"X= ";:X5X03966"Y= ";EGRESSION"746::"ENTER NUMBER OF KNOWN POINTS ";:N=47V4;J0:K0:L0:M0:R204@I1N:"ENTER X,Y OF POINT ";I;" ";4EX,Y:JJX:KKY:LLX2:MMY2:R2R2XY4JI4TB(NR2KJ)(NLJ2):A(KBJ)N4Y5^"F(X)= ";A;" + (";B;" * I1N:"ENTER X,Y OF POINT ";I;" ";V3X,Y:JJX:KKY:LLX2:MMY2:RRXY:I~3R2(NRJK)((NLJ2)(NMK2))3:"COEFFICIENT OF CORRELATION= ";R23:"MORE DATA (Y OR N)? ";:A$3A$"Y"200312 4,936:::12);"LINEAR R1N:PPI:I 2J2D:CCJ:J92:P;" PERMUTATIONS"T2:PC;" COMBINATIONS"v2:"MORE DATA (Y OR N)?";:A$2A$"Y"100:102936::::5);"LINEAR CORRELATION COEFFICIENT"22:"NUMBER OF POINTS ";:N2J0:K0:L0:M0:R0&300,200,300,400,500,6001M12S1d936::::5);"PERMUTATIONS AND COMBINATIONS"1n10:"ENTER TOTAL NUMBER OF OBJECTS ";:N1x:"ENTER SIZE OF SUBGROUP ";:D1DNDN1501:P"";"SUBGROUP TOO LARGE...RE-ENTER":1101P1:C1 2IND} 0 A$(2)0 936:::3015);"STATISTICS"`0::"1. PERMUTATIONS AND COMBINATIONS"0:"2. LINEAR CORRELATION COEFFICIENT"0:"3. LINEAR REGRESSION"0:"4. MEAN, VARIANCE, STANDARD DEVIATION"0K:" WHICH";:X1LX1     "GIVEN FOR SOME PARAMETERS AS A GUIDE"S9::" HIT RETURN TO BEGIN --> ";Q$Y9m9ZERO VARIABLES9M0:M10:M20:M3099:"END"::DOVSKY METHOD OF STOCK VALUATION"L8"IS USED IN THIS PROGRAM.IT REQUIRES"{8"THE USER TO ESTIMATE CERTAIN PARAMETERS"8"ABOUT A COMPANY AND ITS STOCK."8"REMEMBER THE MODEL IS ONLY AS GOOD "8"AS THE ESTIMATES! HISTORICAL VALUES ARE"'9 ";R100;"%"87"------------------------------------"^7"<> INTRINSIC VALUE: $";M3;" <>"d7 v7TEST FOR END~7 :7*"TEST ANOTHER STOCK?";Q$74(Q$,1)"Y"10307>7HINSTRUCTIONS7R1907\" STOCK VALUE"7f!8"THE MOLO*INTRINSIC VALUE OF ";S$;"**"J6"-------------------------------------"r6"INITIAL GROWTH RATE: ";G100;"%"6"RESIDUAL GROWTH RATE: ";G1100;"%"6"NORMALIZED EARNINGS: $";E6"PRESENT PAYOUT RATIO: ";P100;"%" 7"DISCOUNT RATIO: #5&"ENTER RATE AS A PERCENTAGE ";.50" ";R:5:RR100@5D_5NCALCULATE INTRINSIC VALUEj5XH1N5bM(E((1G)H)P)(1R)H5lM1M1M5v5M2(E((1G)N)(1G1)P)((RG1)(1R)N)5M3M2M155FORMAT OUTPUT51906"* PAYOUT RATIO4:64"ENTER PAYOUT RATIO FOR "S$Z4"THE HISTORICAL FIGURE IS 67%"y4"ENTER AS A PERCENTAGE ",4" ";P4PP10044FIND DISCOUNT RATE4:4"ENTER THE DISCOUNT RATE"4"THE HISTORICAL AVERAGE VALUE IS 7%"RATE OF GROWTH"53J"FOR ";S$,". REMEMBER,2% IS THE"Q3L"HISTORICAL FIGURE ";]3T" ";G1k3^G1G1100q3h3rFIND NORMALIZED VALUES3|:3"ENTER YOUR ESTIMATE OF NORMALIZED"3"EARNINGS PER SHARE FOR ";S$;" ";3" ";E3 4FINDD GROWTH RATE"K2"FOR ";S$;" ENTER IT AS A PERCENTAGE. HIT RETURN -->";V2" ";Gb2GG1002:"ENTER THE NUMBER OF YEARS THIS GROWTH RATE IS EXPECTED TO CONTINUE ";N2"2,FIND RESIDUAL RATE OF GROWTH26:3@"ENTER EXPECTED RESIDUAL EARNINGS%1430:FIND PAYOUT RATIOC1510:ENTER DISCOUNT RATEg1590:CALCULATE INTRINSIC VALUE1670:FORMAT OUTPUT1790:TEST END1701CLEAR SCREEN111FIND INITIAL RATE OF GROWTH1:2"ENTER SHORT TERM EXPECTE 0"STKVALUE"0 84080(INTRINSIC VALUE OF STOCKW02USES THE MOLODOVSKY MODELl0<BEGIN MAIN LOOPu0F1900P1000:ZERO VARIABLE0Z"ENTER CORPORATE NAME ";S$0d220:FIND INITIAL GROWTH0n300:FIND RESIDUAL GROWTH 1x370:NORMALIZED     L1PA>z+YA(L,2)#>+Y1A(L1,2)3>+L1,Y1L,Y:>+LA>+2M>+L1PAZ>+YA(L,4)j>+Y1A(L1,4)z>+L1,Y1L,Y>$,"TEMPORY END AFTER PLOT":>>:"DATA TABLE IS FULL"::"PUT NEW BLANK TAPE IN RECORDER">>P349>>Q1100>>PP1D?>A SEE PLOT OF MOVING INDICATOR? (Y/N)":U$:(U$)7811005?= +F=+3W=+P28018000`=+PAPl=+L1PA= +XA(L,1):X(X100)=%+YA(L,3)=*+Y1A(L1,3)=4+L1,Y1L,Y=>+(L20)L2011100=H+L=R+11110=\+L,:L=f+1=g+PAP120>p+RE DATA? (Y/N)":U$:(U$)893000|<*:"STORE DATA ON DATA TAPE"::"PRESS 'RECORD' AND 'PLAY' THEN HIT RETURN":U$:A:B<*<*:"HAVE CURRENT MARKET DATA NEXT TIME PROGRAM IS RUN. DO NOT SKIP ANY MARKET DAYS"::"END"<*9=+:"DO YOU WANT TO1000T;':"CAUTION ! INDICATOR IS ";A(P,3)" MARKET NEAR INTERMEDIATE HIGH":11000;<(:"CAUTION! INDICATOR IS ";A(P,3)" MARKET NEAR INTERMEDIATE LOW":11000;(:"INDICATOR IS ";A(P,3)" MARKET MOVING SIDEWAYS":11000"<*:"DO YOU WISH TO ENTER MOICATOR IS "A(P,3)" MARKET ABSOLUTELY PRIMED TO GO DOWN !"I:':11000:t'::"SUSPECT END OF LONG TERM BULL MARKET!!!"::"SHORT TERM MARKET FORCAST FOLLOWS"::10120;'::"INDICATOR IS ";A(P,3)" MARKET ABSOLUTELY PRIMED TO GO UP "::1NEEDED"9^300009DETERMINE LONG TERM TREND89X0F9QPP30\9VA(Q,2)1(Q1,2)j9V08500t9XX1{9Q94!XX1:Q9'::"SUSPECT END OF LONG TERM BEAR MARKET!!!"::"SHORT TERM MARKET FORCAST FOLLOWS"::10010<:'::"IND2110100 8A(P,3)491020068A(P,3)3010300A810400W8A(P,3)8010010l8A(P,3)30101008A(P,3)36101208A(P,3)64102008A(P,3)45103008104008?LOADS TABLE FIRST TIME9J"TEN CONSECUTIVE DAYS OF MARKET DATA AY A/D= "MS:"10 DAY MKDS= "MV;" ("Q")":"10 DAY ADV. VOLUME= "TVR7P10081007:"INSUFFICIENT DATA TO PROJECT LONG TERM TREND OF MARKET"::"IS THE PRIMARY TREND UP? (Y/N)":U$:(U$)8956107A(P,3)70100007A(P,3)6010010 8A(P,3)0000:TV(TV10.5)(10.5)86"MS(MS10.5)(10.5)A6,R,Vm6-R0ĺ"DATA ERROR! RUN PROGRAM AGAIN":|66MVR55006@R1,V16JMVR155406TMVR154206^QR1MV6hQ.0355406|:QV:55506:QV16A(P,3)(MSQTV)2B7"10 DDS5B(PT,4)AV!5B(PT,5)DV05P10300095MS0Y5Q110:MSMSB(Q,2)B(Q,3)`5Qi5MV05Q110:MVMV(B(Q,2)B(Q,3))(B(Q,4)B(Q,5))5Q5TV05Q110:TVTVB(Q,4)5Q5MVMV10:MV(MV102.5)(102.5)6TVTV1PP14P45116000$4A(0,1)P@4A(P,1)M10000D100YRN4A(P,2)NYj4A(P,4)A(P1,4)(ASDS)x4PTB(0,1)4(R010:RPT0518042R4<R10052004FPTR1:52104PPT14ZB(0,1)PT4B(PT,1)M100D4B(PT,2)AS5B(PT,3)UMBER OF ADVANCING STOCKS";:AS:P3 "ENTER NUMBER OF DECLINING STOCKS";:DS:|3"ENTER ADVANCING VOL.IN 1000'S";:AV:3"ENTER DECLINING VOL.IN 1000'S";:DV:3:3:" IS ALL DATA CORRECT? (Y/N) ":U$:(U$)7830603::::::4002 MYA(P,1):M(MY10000)42 D(MY100)M100L2 YRMY(MY100)100R2 2 :"LAST MARKET DATA WAS FOR "M","D","YR:2 "NEXT DAY'S MARKET DATA NEEDED"2 :"ENTER DATE AS M,D,Y ";:M,D,YR:2 "ENTER NYSE COMPOSITE";:NY:!3 "ENTER N1(1" STOCK MARKET FORCASTER":Q1"DAILY MARKET DATA IS NEEDED":::1:"IS THERE A DATA TAPE? (Y/N) ":U$::(U$)7880101"LOAD PREVIOUS MARKET DATA FROM TAPE"::"PRESS 'PLAY' AND HIT RETURN":F$1A:B1 PA(0,1)2 P0500`0 A(450,5)0B(10,5)-0A(0,4)50000F0dDATA FOR MKDS VALUE1e.75,8.5,.8,8,.85,7.5,.9,7,.95,6.5,1,6,1.05,5.5,1.1,5,1.15,4.5,1.2,4,1.25,3.5,1.3,3,1.35,2.5,1.4,2,1.45,1.5,1.5,1,1.55,.5,1.6,0,1.65,-.5,1.7,-1,1.75,-1.5,1.8,-2,1.85,-2.5,1.9,-3,0,0     )>'"ENTER NUMBER YEARS...........#";Y5>':9900>>'100y>'10);"SALVAGE VALUE = $";(100P(1I5100)Y.5)100>'255>':9900>'"WANT ANOTHER RUN (Y/N) ? ";A$>'A$"N"10222>'10200>'90>[+>\+34,10:>^+:!?`+:"ENTETION= $";(D100.5)100!='255'='1='9900U='"WANT ANOTHER RUN (Y/N) ? ";A$d='A$"N"90o='10100{='34,8:='11);"*** SALVAGE VALUE ***"=':='"ENTER ORIGINAL PRICE.........$";P='>'"ENTER DEPRECIATION RATE......%";I5:20304 4 90004 15);"((( LOANS )))"4 4 90005 :"102003A$"4"90 31030&3039000M313);"((( INTEREST )))"S3]39000e3:3"1. NOMINAL INTEREST RATE ON INVESTMENTS"33"2. EFFECTIVE INTEREST RATES ON ''"33"3. EARNED INTEREST TABLE"34"4. AN2290002:9210);"1. DEPRECIATION RATE"?2c210);"2. DEPRECIATION AMOUNT"i2210);"3. SALVAGE VALUE"2210);"4. RETURN TO MENU"2:::2"WHICH (1-4) ? ";A$2A$"1"100002A$"2"101003A$"31~13);"(E) DEPOSITS""1@113);"(F) AMORTIZATION"F1_1"WHICH (A-F) ? ";A$p1A$"A"10001A$"B"20001A$"C"30001A$"D"40501A$"E"50001A$"F"60001140119000111);"((( DEPRECIATION )))"80::200000UA$(5)%0VI(5)-0Z:70_9000`0d7);"BUSINESS ( FINANCIAL ) SERIES"f0ip0j90000n" MENU... (A) DEPRECIATION"0p0r" (B) INTEREST"0t0v13);"(C) LOANS"0x0z13);"(D) INVESTMENTS"1|                    ::"NUMBER OF YEARS, MONTHS ?,? ";Y0,M=>Y(12Y0M)12b>::"ANNUAL INTEREST RATE ? ";Ip>IIN100>PT(1I)(NY)>:> ::"INITIAL INVESTMENT = $";(P100.5)100> >::"ANOTHER INITIAL INVESTMENT ? (Y OR N)>A$ ?, COMPOUNDING PERIODS PER YEAR, AND NOMINAL INTEREST RATE "o=::::::::"HIT RETURN KEY TO CONTINUE"w=A$=::::7);"*** INITIAL INVESTMENT ***"=:::"FUTURE VALUE (YOUR GOAL) ? ";T=::"COMPOUNDING PERIODS PER YEAR ? ";N*>NITIAL INVESTMENT ***"r<:::"THIS PROGRAM CALCULATES THE INVESTMENT":"NECESSARY TO PROVIDE A STATED FUTURE"<"VALUE IN A SPECIFIED TIME PERIOD"==:"YOU ENTER THE FUTURE GOAL YOU WISH TO":"REACH, THE TIME PERIOD YOU WANT TO REACHTHIS GOAL IN ;B0B0A;$J1;)*;*B00ī1120\;.::"REMAINING BALANCE = $";(B0100.5)100b;3;8::"ANOTHER CALCULATION ? (Y OR N)";B:A$;LA$"Y"900;V100;`:"YOU ALREADY PAID YOUR LOAN OFF";j1075<:"":::7);"*** I::"YOUR REGULAR PAYMENT ? ";R::::"PRINCIPAL ? ";Pf:::"NUMBER OF PAYMENTS PER YEAR ? ";N:::"ANNUAL INTEREST RATE ? ";I:II100:::"NUMBER OF PAYMENTS MADE ? ";N1:B0P:J11N1:I1((B0IN)100.5)100:ARI1R ? ";N39 PRN(11((I100)N1)(NY))(I100)99%b9*::"PRINCIPAL = $";(P100.5)100h9/94:::"ANOTHER PRINCIPAL CALCULATION (Y OR N) ? ";A$9HA$"Y"7009R1009:"":::::" *** REMAINING BALANCE ON A LOAN ***" :"Y"5008100M8:"":::::" *** PRINCIPAL ON A LOAN ***"U8:x8:"YOUR REGULAR PAYMENT ? ";R8::"TERM IN YEARS, MONTHS ?,? ";Y0,M8Y(12Y0M)128::"ANNUAL INTEREST RATE ? ";I9 ::"NUMBER OF PAYMENTS PER YEA LOAN ? ";P27&:::"ANNUAL INTEREST RATE ? ";I`7::::"NUMBER OF PAYMENTS PER YEAR ? ";N7NR((I100)PN)(11((I100)N1)(NY))7S7X::"REGULAR PAYMENT = $ ";(R100.5)1007]::7b"DO YOU HAVE ANOTHER (Y OR N) ? ";A$8vA$324006,A143000#61A94000266A164200B6^A1712000Q6hA155000c6rA1A17100l61006:"":::::" *** REGULAR PAYMENT ON A LOAN ***"6:::"TERM IN YEARS, MONTHS ?,? ";Y0,M6Y(12Y0M)12 7:::"AMOUNT OF---------------------------------------"V5"TYPE NUMBER OF PROGRAM YOU WISH TO RUN"]5Aj5A1500w5A27005A39005A1012005A1116005 A418005A519005A1220005A621005A722005"A823006'A110 INITIAL INVESTMENT"B4"11 REGULAR DEPOSITS FOR FUTURE VALUE"m4"12 FUTURE VALUE OF REGULAR DEPOSITS"4"13 ANNUAL INTEREST RATE ON A LOAN"4"14 LOAN AMORTIZATION TABLE"4"15 BEST INVESTMENT"4"16 SALVAGE VALUE"4"17 QUIT"(5" LOAN",3"4 TIME NEEDED TO REPAY A LOAN"T3"5 FUTURE VALUE OF AN INVESTMENT"3"6 REGULAR WITHDRAWAL FROM A INVESTMENT"3"7 MINIMUM INVESTMENT FOR WITHDRAWALS"3"8 EFFECTIVE INT. RATE ON INVESTMENTS"3"9 DEPRECIATION RATE"4" T R Y A G A I N "+2FDLAY15000:U2d:" *** THE MICHIGAN APPLE ***"o2n:14);"FINANCE PAK"2s"---------------------------------------"2x"1 REGULAR PAYMENT ON A LOAN"2}"2 PRINCIPAL ON A LOAN"3"3 REMAINING BALANCE ON A425:4,1431W1-33,394:33,399:4,1433:4,939:39,14:38,13:37,12:36,11:35,10d1.1,3920t1/S15000:z1012:::::"YOU MADE A B O O - B O O "17::"WITH THE FIGURES YOU ARE USING"::"CALCULATION IS IMPOSSIBLE"2<:::" G)0 222,0:400100,0((222)255ijS0):7:4,141:1,74:1,714:1,590*9,154:9,159:4,149:4,915:15,14:14,13:13,12:12,11:11,100+17,234:17,239:4,1417:4,923:23,14:22,13:21,12:20,11:19,10 1,25,314:25,3114:4,1           HOLD OPERATIONS:";->XXE(40):60000:XX$:U>"TRANSPORTATION/LOAN REPAYMENTS:";p>XXE(41):60000:XX$:>"FAMILY/PERSONAL EXPENSES :";>XXE(42):60000:XX$:>"TOTAL CASH OUTGO :";>XXE(43):60000:XX$:?"EXC":=*E(40)0:E(41)0:E(42)0>=4I110:E(40)E(40)E(I):^=>I112:E(41)E(41)E(I10)x=HE(42)E(42)E(I22):=RE(43)E(40)E(41)E(42)=\W(8)W(7)E(43)=f"SPENDABLE INCOME :";=pXXW(7):60000:XX$:>z"HOUSING & HOUSE;".";5);A$;28);":";9<" ";E(I):E(42)E(42)E(I):I:Q<20);"TOTAL : ";j<XXE(42):60000:XX$y<::Z9$""< "IS ALL INPUT CORRECT? (Y/N) ";Z9$<(Z9$)01000<(Z9$,1)"Y"1000<700= :" * * * OPERATING SUMMARY * * *);"TOTAL : ";(;XXE(50):60000:XX$7;::Z9$""_;"IS ALL INPUT CORRECT? (Y/N) ";Z9$r;(Z9$)01000;(Z9$,1)"Y"1000;600;:"5. FAMILY & PERSONAL EXPENSES...":;:I122:A$:I;E(42)0:I2334:E(I)0:A$"":A$<INPUT CORRECT? (Y/N) ";Z9$,:D(Z9$)01000C:N(Z9$,1)"Y"1000L:S500|:X:"4. TRANSPORTATION & LOAN PAYMENTS..."::b:I110:A$:I:lE(50)0:I1122:E(I)0:A$"":A$:vI;".";5);A$;28);":";:" ";E(I):E(50)E(50)E(I):I:;20(Z9$,1)"Y"10009400J9:"3. HOUSING & HOUSEHOLD OPERATIONS...":q9:E(40)0:I110:E(I)0:A$"":A$9I;".";5);A$;28);":";9" ";E(I):E(40)E(40)E(I):I:920);"TOTAL : ";9&XXE(40):60000:XX$90::Z9$""::"IS ALL I";W4-8"EST. ANNUAL INCOME-INTEREST : ";W5X8"EST. ANNUAL INCOME-OTHER : ";W6:v8W(7)W(6)((W4W5W6)12)8"TOTAL AVG. SPENDABLE INCOME :";8XXW(7):60000:XX$:::Z9$""8"IS ALL INPUT CORRECT? (Y/N) ";Z9$8(Z9$)010009AL SOCIAL SECURITY TAX : ";67XXW2(5):60000:XX$]7"TOTAL OTHER DEDUCTIONS : ";x7XXW3(5):60000:XX$:7W(6)W(5)(W1(5)W2(5)W3(5))7"NET INCOME AFTER TAXES : ";7XXW(6):60000:XX$:8"EST. ANNUAL INCOME-DIVIDENDS: 6w"IS ALL INPUT CORRECT? (Y/N) ";Z9$96|(Z9$)01000P6(Z9$,1)"Y"1000Y6200w6:"2. OTHER INCOME...":6"TOTAL GROSS MONTHLY INCOME : ";6XXW(5):60000:XX$6"TOTAL WITHHOLDING TAX : ";6XXW1(5):60000:XX$7"TOT3(I)W3(I)4.3:360H5TW(I)W(I)2.15:W1(I)W1(I)2.15:W2(I)W2(I)2.15b5YW3(I)W3(I)2.15:3605^W(I)W(I)2:W1(I)W1(I)2:W2(I)W2(I)25cW3(I)W3(I)25hW(5)W(5)W(I):W2(5)W2(5)W2(I):W1(5)W1(5)W1(I)5mW3(5)W3(5)W3(I)5r:::Z9$""&R GROSS PAY :";W(I):R46"ENTER ESTIMATED FED. W/H TAXES:";W1(I):4;"ENTER ESTIMATED SOC.SEC. DED. :";W2(I):4@"ENTER TOTAL OTHER DEDUCTIONS :";W3(I):4EZ9330,340,350,3604JW(I)W(I)4.3:W1(I)W1(I)4.3:W2(I)W2(I)4.35OW? ";Z913I1Z9::"1. WAGE EARNERS INCOME..."\3:"IS WAGE EARNER NUMBER ";I;" PAID:"t3" 1. WEEKLY."3" 2. BI-WEEKLY."3" 3. SEMI-MONTHLY."3" 4. MONTHLY.":3""SELECT 1,2,3,4 FOR PAY PERIOD : ";Z9:#4,"ENTEASSUMES NO RESPONSIBILITY"42"FOR THE USE OF THE"X2"RESULTS OF THIS PROGRAM."::2"(PRESS RETURN TO CONTINUE)";Z9$:10002:"1. WAGE EARNERS INCOME...":2I010:W(I)0:W1(I)0:W2(I)0:W3(I)0:3"HOW MANY WAGE EARNERS IN THE FAMILYCH OF 5"31F"SEPARATE CATEGORIES. AFTER YOU ARE"b1P"SATISFIED THAT THE DATA IS CORRECT, THE"1Z"PROGRAM WILL COMPUTE AND DISPLAY AN"1d"OPERATING SUMMARY."::1n"WHILE WE BELIEVE THE PROGRAM TO BE"1x"CORRECT, THE COMPUTER CENTER"2}"'0 E(50),W(10),W1(10),W2(10),W3(10)T0:" * * * FAMILY BUDGET * * *":0"THIS PROGRAM IS DESIGNED TO ASSIST A"0("FAMILY IN ESTABLISHING AN OVERALL BUD-"02"GET. YOU WILL BE ASKED TO ENTER INCOME"1<"AND EXPENSE INFORMATION IN EA         ܠŠԠŠܭ (q.?$r9<d$eM6dqqqR@`;@r$<P\t`7$<qd` $<x\t`7$<q`$<\t`7$<q)@r%[7`;@r%[qUVW;@rq<@*rr`$`$+`  $q[q Y2q8rqq[e]de`oLdede0dededede ded ed ed ed ed e`_@ft]ܠǠŠŠܭ!qq`;%q 8 r`7%qq\,q_Sq8  r8r878r8drr[ $]]8dededededededeLdedeſ)&@f`7;@r$\p\M6u`@*#r9()$=zoPa()cP a(٠Ҡ)G)qqUVW\Y_oPa(ˠ)Q]ŠϠԠqqqB`7d"ed#e" ocoa(ҠԬ)G*`7;@r$>F4UVW;@ra@*#rG`<@*rr%Y`;@r%d$e.?$r_H>d$e.?$r/HS()&@`;@r$`@*#r:()$R\M61\oS(٠ɠԠŠŬjkijk%lmno\UVWXJ`$qq 8 r\`%qq5bG` %a()Ga()GqYa(РŠ)o'oa(ӠĠ)GP bG\( d6?e,UVWYq q \Abd2e?a(ӠâϠРԭ)d2eelLUVW f8r 8r8rgh'ghY^qocUVWXfijkYiŠͯį٩)G\*`8r8r$!qα`%qS&ocM6dT0oP`  %a()G`  %a()Ga(Š)G9DoP 8  rbE()FE()FGoq)X\`;@r$@p@*#;@rr`<@r%@p()Aa@GocM6da(Šͯį٩)G\oPqqqqLqqqqa(Š)FE()FE()FG\oαqM6d\coM6d0`7%a(Ԡa() |c\)P a(٠Ҡ)c\\,cca(Ġ٠Š)#\oq q \?\M6\oS(ҠŬſ)&@oD`7;@r$UVW;@r`<@*rr%Y)[,qq\[t@O4rD4rD4r-rq\-rq-rq-rq?-rq-rq9-rq-rq)TN@"rC@"rC@"rC@" r;h-rq!KM6o\\cPY[,dededeM[,\,`$\(q8drl_qqqhq8rq:m:R 8r`%qS[q\,[0a(8d-rr8d-rr88d-rrd-rdrVdq8d-rr8&88d-rrd-rdrrq'8'r8(r5xgh`.?6@r%[]ԠҠŧƠBqqdededeMYd3e]Ԡ_d"ed#e[ d"ed#e[ qq _$I(UVWf8r 8r8rlm'n!o"<UVWq8-rr-r_Pq88-rdrr8d-rr!! ! ! ! ! !!!!!!!!! """" "CATALOG"D"