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`5 ";D$(4):" WHICH";:PP1:OO5:100:GS1:Q10400b(GG(G0)(G1)4(G2)12(G3)O7(G4)Oy(KL0G310465(" HOW MANY ";L$(4);" IN YOUR ":"ACCOUNTING YEAR";:PP0:OO365:100:OS:Q10420h(:" 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:100s(QLS:10390x(10340(:" "2(" 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:Q10220PF(B210390d(" TERM OF THE ACCOUNT:":" YOU MAY ENTER ANY COMBINATION OF ";L$(0)",":L$(1);", ";L$(2);", ";L$(3);", OR ";L$(4);"."wn(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: "'B010310A'"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'20000y'O365:LL0:BB0:Q0:P0:a~'"YOU MAY CALCULATE ANY OF THE FOLLOWING:":" 1 INTEREST RATE (APR)":" 2 ";C$ESUMED"" ""E(2)115051Q3Q1505Z"STRIKE SETTLED. NORMAL PRODUCTION""RESUMED, NEW VARIABLE COST=$";U"/ UNIT DUE TO INCREASED WAGES"" "E(2)0:::"END OF PROGRAM": ,E OF A "%"SETTLEMENT LOOKS DIM."." "4FE(1)11450WQQ121450cE(1)2"THE WAGE-PRICE FREEZE HAS ENDED"" "E(5)11475Q2Q1475E(5)0"TRANSPORTATION STRIKE SETTLED.""NORMAL DELIVERIES RNABLE TO MOVE YOUR GOODS"Gd"TO THE DISTRIBUTORS. NEGOTIATIONS HAVE"wi"BEGUN,BUT HOPE OF A SETTLEMENT LOOKS DIM"n" "sx"THERE HAS BEEN A STRIKE AND YOUR "{"PRODUCTION HAS BEEN HALTED. NEGOTIATIONS"}"HAVE BEEN STARTED, BUT HOPSUFFERED FIRE "9I"DAMAGE IN ITS WAREHOUSE, ALL UNITS"dK"WERE DESTROYED. YOUR INSURANCE WILL"P"REIMBURSE YOU IN THE AMOUNT OF $";(UI(J).75)S"FOR THESE UNITS"U" "Z_"A TRANSPORTATION STRIKE HAS OCCURED,"a"AND YOU ARE UYOUR PRODUCT OVER THE NEXT 2 QUARTERS."0#" "6(_-"COMPANY ";I;" HAS BEEN THE VICTIM"/"OF ENBEZZLEMENT BY THE VICE PRESIDENT"2"OF THE COMPANY. YOUR CASH ON HAND IS NOW"5" "720);"$";C(I)<" "AF"COMPANY ";J;" HAS 425U(U(1.05.1(1)))9"NEW LABOR CONTRACT-"_"VARIABLE PRODUCTION COST NOW=";s " $";U;"/UNIT"}1425"THE PRESIDENT HAS JUST INPOSED A ""WAGE-PRICE FREEZE ON THE ECONOMY,""AND YOU MAY NOT RAISE THE PRICE OF"'"0 W3Q1080'E(1)112309QW421230CW4QM1375YE(5)1cQ20((Q1)4)4Q11425Q11425E(1)11425(1).251280Q612801400E(2)1U(U(1.1.1(1)))Q3Q1 LE(1)1Q1070)[I((1)1.5);`QW221075LeC(I)01075_jC(I)2001145roC(I).75C(I)|t1150yC(I)C(I)200~1325W2Q1075J((1)1.5)QW3210801350C(J)C(J)UI(J).75I(J)P(3M)G4G11055(G4G210403 G4G2WG5D(3M)((G4G1)(G2G1))G3mD(3M)D(3M)G5D(M)D(M)G5$Q61230)(1).11090.(1).111153(1).111658(1).11200=1230BE(1)01070G1300ARE DISCONTINUOUS' JOURNAL OF FINANCIAL ECONOMICS"::%"MERTON,R. 1976 'THE IMPACT ON OPTION PRICING OF SPECIFICATION ERROR IN THE UNDERLYING STOCKS RETURNS' JOURNAL OF FINANCE":::::"TO CONTINUE PLEASE PRESS ANY KEY";:A$:::EPERCENT PER YEAR)"::"TIME TO MATURITY = .25 (3 MONTHS OR 1/4 YEARS)"6$:"PERCENTAGE ERROR = (OPT - BS)/BS"::"TO CONTINUE PLEASE PRESS RETURN";:A$:::936::::"REFERENCES"::8%"MERTON,R. 1976 'OPTION PRICING WHEN UNDERLYING RETURNS S NUMBER 2"|A1PRPR5.A4PRPR10DA3A5PRPR20N2000z5000:CD$"":I150:I:CD$:CD$:CD$"IT'S 4:00 AND STEVE WANTS TO GO HOME":"WILL YOU LET HIM ";Z$(Z$,1)"Y"2500B "HE DIDN'T THINK YOU WOULD AND THERFORNG ONE OF THE ":"FOLLOWING DRUGS WITH RESERPINE:""(1) RIFAMPIN":"(2) INDERAL":"(3)PATHILON":"(4) NEOTRIZINE":"(5) BAMADEX""WHICH IS MOST LIKELY THE CAUSE ";A@A2ĺ"CORRECT!VERY GOOD!":PRPR5:DD10:2000 r"WRONG! CORRECT ANSWER ISE IN BLOOD PRESSURE":"(4) INCREASED LACTIC ACIDOSIS":"(5) INCREASED STOMACH IRRITATION"(A:A5ĺ"MAGNIFICENT!":PRPR20:1500x"NO! SORRY! THE CORRECT ANSWER IS #5":PRPR525000:"MR.PEEBLES SUFFERED AN OVERSEDATION":"REACTION DUE TO MIXI13004"WRONG! CHICKEN LIVERS,YOU DOLT!":PRPR55000:"HERE'S A TOUGH ONE- WHAT WOULD BE THE ":"MOST LIKELY PHYSICAL REACTION IN ":"MIXING BUTAZOLIDIN AND ALCOHOL "Z"(1) EXCESSIVE SEDATION":"(2)DISULFIRAM-LIKE REACTION":"(3) EXCESSIVE RIPR15000:"MR.NEEDLES HAS A QUESTION.":"WHICH OF THE FOLLOWING FOODS WOULD ":"MOST INCREASE THE CLINICAL EFFECT OF ":"NARDIL?""(1) VANILLA MILKSHAKE":"(2)LETTUCE":"(3) CHICKEN LIVER":"(4) BACON":"(5) EGGS"A:A3ĺ" RIGHT!":PRPR5:THROW HIM OUT FOR USING A WORD ":"LIKE DROGGY.".A:A1ĺ"GREED!GREED!-AMPHETAMINES AYBE":"BUT VITAMINS-HA !":PRPR2:12008A2ĺ"VERY GOOD! TOLD THE TRUTH!YOU GET POINTS":"FOR THAT":PRPR5:1200BA3ĺ"I DON'T BLAME YOU ":PRU":PRPR5:90005000:"A MAN COMES IN AND HE SAYS,":"'HAVE YOU GOT SOME VITAMINS THAT CAN ":"HELP ME? I FEEL DROGGY ALL THE TIME-":"JUST PLAIN DROGGY."0"WHAT DO YOU DO?":"(1) SELL HIM SOME VITAMINS":"(2) TELL HIM VITAMINS WON'T HELP":"(3) OR"B" (3)REFUSE TO FILL IT ":"(4) CALL THE COPS ":VV1:AXA1000,1010,1020"THE MAN IS A FELON WHO JUST DUPED YOU":PRPR20:1030"NO SUCH DOCTOR LISTED IN THE PORTLAND":"PHONE BOOK.":PRPR5:700"THE MAN PULLS A KNIF E ON YO ":5);" #100 N5);" SIG:TAKE 2 Q6H PRN PAIN ":5);" 0 REFILLS ":5);" ALFRED J TROPPS MD "XV0"WHICH OF THE FOLLOWING DO YOU DO ":"(1) FILL IT":V0ĺ"(2) CALL THE DOCT:"":15020J" N:" BASIC FINANCE I-----------COPYRIGHT 1978":10)G$:R"0u:TSUBTOTAL AFTER ";C$(0);" NO.";:PP0:OO5000:100:AAS:Q115080W!:AAGGAA0AAGG!:T10:T20:T30:T40:BA0:BB0:IN0:LL0:XX0:Q0!>BA(A2)C(A)(A2)0:40 ">:"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:Q15030 ::" WOULD YOU LIKE:":" 1 A COMPLETE ";J$;", OR":" 2 A ";D$(0);" SUMMARY ONLY":" WHICH";:PP1:OO2:100:JJS:Q15060@!:" FIRST AN ";J$;" (Y/N) ";:E$:(E$,1)"Y"15030O:"MORE (Y/N) ?";E$:(E$,1)"N"Ā::" 1 ANOTHER PROBLEM":" 2 ANOTHER SCHEDULE":" 3 BACK TO THE FIRST PAGE":" 4 QUIT":" WHICH";:PP1:OO4:100:Q15020:S10100,15027,1000,30000:R216070t 4IJ3KO28L4O:8)MH12I3JK84OL12O:Z)MHO7IO28JO84KL7:w)MHOIO4JO12K7L*M(M):TMGG:NFGG0*1000::R15010,15015:"ANOTHER ";J$;" (Y/N) ";:"? ";E$:(E$,1)"Y"15030:15020):"LIKE P0:OO1E8:100:DS:Q10495+)B310600b6)" ENTER TOTAL ";A$;:PP0:OO1E8:100:CS:Q10550qh)R210700m)B410700|)" ENTER BALLOON ";A$;:100:PS:Q10620)G110710,10720,10730,10740,10750:10760)MHI4J12K7OLO:)MH(0);"S/";C$(2);"S, OR":" 2 A SINGLE ";C$(0);"/";C$(2);" ONLY...":" WHICH";:PP1:OO2:100:RS:Q10465r(::(B110520(R10495,10492("ENTER ";C$(0);"/";C$(2);F$;A$;:PP0:OO1E8:100:DS:Q10492(10520(" ENTER ";D$(G);F$;A$;:P0 W3Q1080'E(1)112309QW421230CW4QM1375YE(5)1cQ20((Q1)4)4Q11425Q11425E(1)11425(1).251280Q612801400E(2)1U(U(1.1.1(1)))Q3Q1 LE(1)1Q1070)[I((1)1.5);`QW221075LeC(I)01075_jC(I)2001145roC(I).75C(I)|t1150yC(I)C(I)200~1325W2Q1075J((1)1.5)QW3210801350C(J)C(J)UI(J).75I(J)P(3M)G4G11055(G4G210403 G4G2WG5D(3M)((G4G1)(G2G1))G3mD(3M)D(3M)G5D(M)D(M)G5$Q61230)(1).11090.(1).111153(1).111658(1).11200=1230BE(1)01070G1300:11300ʂI:"HE CAN'T FIND YOU-SO HE STEALS THE ":"STORE BLIND":PRPR2:,0 THIS PROGRAM IS THE PROPERTY OF APPLE-PORTLAND,0 COPY BY PERMISSION ONLYNRRY,IT'S SATURDAY. STEVE ISN'T THERE":PRPR2:"HOWEVER,JUST THE SOUND OF HIS VOICE FRIGHTENS AWAY THE KNIFIST":+ 0"THE BATHROOM IS OCCUPIED! HE FOLLOWS":I1500:I:"YOU RUN AROUND THE BACK ROOM AND HIDE "L,p0"HIDE BEHIND THE BOXES OF PAPER TOWELS"GER PRACTICE IN THIS STATE":T3ĺ"OR IN THIS GAME ":11000d*$'"BUT, IN THIS GAME YOU MAY GO ON "j***."GREAT! YOU GOT AWAY!":"HOWEVER, HE STOLE YOUR ENTIRE STOCK OF SCEDULE 2'S":PRPR2:*D/"NOT A GOOD IDEA. YOU WERE SKEWERED":11000q+/"SOR YOU":"WHAT ARE YOU GOING TO DO?")2#"(1) RUN OUT THE BACK":"(2)ATTACK WITH YOUR PILL COUNTER ":"(3) CALL STEVE FOR HELP ":"(4) LOCK YOURSELF IN THE BATHROOM":A)#A12000,12100,12200,12300:<*'"YOUR LICENSE HAS BEEN REVOKED.":"YOU CAN NO LONL"SO-SO DECISION.CERTAINLY BETTER THAN ":"STEVE OR JIM":PRPR2:(@"THE POLICE ARE FORCIBLY REMOVING YOU ":"FROM THE STORE AND TAKING YOU TO A ":"PLACE WHERE YOU CAN'T DO SO MUCH DAMAGE":"THE JAIL":11000#)(#"HE'S COMING BEHIND THE COUNTER AFTEEE YOU JOKING? HE'S OUT BACK SMOKING":ACIGARETTEBYTHETIMEHES":?"THEREBNIEIHYSTERICS":PR=PR-5'"YOU'VE GOT TO BE KIDDING!HE REFUSES":"TO GO, BONNIE IS SCREAMING UP FRONT":"AND YOU ARE GOING TO LOSE POINTS FOR ":"THAT DUMB DECISION":PRPR10:D(&dI110000:Id&X"NOT TOO WISE!THE PHARMACY LOSES EFFICIENCY WHEN ";C$(X);" IS GONE ":PRPR1:&"GOOD THINKING!TRULY A MANAGERIAL LEVEL":"DECISION":PRPR1:& "THAT IS AN ACCEPTABLE CHOICE,BUT YOU":"WILL RECEIVE NO POINTS FOR IT":a'"AR":"YOU NEED INSTRUCTIONS?":"YOU WILL BEGIN THE GAME WITH A PHARM":"RATING OF 0. FROM THAT VALUE IT CAN FLUCTUATE ":"EITHER DIRECTION. PLEASE TRY TO KEEP":"IT A POSITIVE NUMBER!:?"%z"THE PATIENT BEGINS FEELING ALRIGHT-TRY TO KEEP HIM THAT WAY.":THE ABSORPTION OF THE LINCOMYCIN.":"INFECTION IS STOPPED. HOWEVER, HE IS ":"DEVELOPING A BONE MARROW DEPRESSION":$:3:"DAY ";T:"PHARM. RATING ";PR:"PATIENT ";D:TT1:D0ĺ" YOUR PATIENT HAS DIED "$%p"WHAT KIND OF A PHARMICIST ARE YOU?AND HE IS DEVELOPING ":"BONE MARROW DEPRESSION":#h"NICE WORK! LINCOMYCIN WAS CAUSING HIS":"MAIN PROBLEM.HOWEVER,HE NOW IS BWCOMING":"A MANIC DEPRESSIVE."#r"PLEASE SUBSTITUTE A NEW ANTIBIOTIC ";B$:t$"GOOD IDEA-THE SUCARYL WAS INHIBITING":" HIS HANDS"s""HE HAS DEVELOPED A DEPREESION OF ":"BONE MARROW FUNCTION":"YOUR RATING WILL SUFFER FOR THIS.":2#"GOOD THINKING!YOU PREVENTED HIM FROM":"DEVELOPING PARKINSON-LIKE SYMPTOMS":"AND EVENTUAL COMA.HOWEVER,HIS INFECTION":"IS SPREADING "THANKS YOU--BUT,BECAUSE OF YOUR ":"GENEROSITY THE STORE FALLS APART":PRPR10:5000a!( 11000!"THAT DOESN'T SEEM TO HELP HIM MUCH.":"THE LINCOMYCIN IS NOT WORKING ON HIS":"INFECTION.IT IS SPREADING":(1).54020 ""HE'S DEVELOPING TREMORS INE":"NOW YOU MUST ANSWER THE MOST DIFFICULT":"QUESTION OF ALL-- "i "ARE NEIL AND NADINE RELATED ";X$ (X$,1)"Y"ĺ"THOUGHT SO!":11000 "THEN WHY DO THEY BOTH SOUND LIKE SIRENS":"GOING OFF":11000V! "THAT'S EXTREMELY NICE OF YOU AND HE ":A(29)T1:"035 *** FEDERAL TAX";40((A(29))));A(29):40400:A(30)T3:"*** F.I.C.A.";M3);A(30):A(13)A(29)A(12)A(30) $w"*** TOTAL FEDERAL TAXES OWED";M3);A(13)::30900 PxJ19031400 x"090 FEDERAL TAX WITHHELD";M3);:M11M12ĺA(14) !y)A(50)A(9):A(9)A(50):28200Al"*** STANDARD DEDUCTION USED"(nA(11)A(7)A(9):"*** TAXABLE INCOME";M3);A(11)::29300rJ18630800tr"086 OTHER TAXES OWED";M3);:M11M12ĺA(12)rM1229700"ENTER THE LIFE OF THE INVESTMENT IN YEARS";Y:::"THE EFFECTIVE ANNUAL INTEREST RATE OF"::"YOUR INVESTMENT IS";((TP)(1Y)1)100;P;"IS,":"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)";Y$:(Y$,1)"Y"İ9020:70021 s%9020:9000:" EFFECTIVE INTEREST ::9000:"ENTER THE AMOUNT OF THE PRINCIPAL";P::"ENTER THE TOTAL AMOUNT OF THE INVESTMENT";T:@"ENTER THE NUMBER OF YEARS OF THE INVESTMENT";Y::"ENTER THE COMPOUNDING PERIODS EACH YEAR";N:I2N((TP)(1(NY))1)100::"WHEN AN INVESTMENT OF $";D AT AN INTEREST RATE OF";I1:"PERCENT PER YEAR ,TO ALLOW MONTHLY":"WITHDRAWALS OF $";R;"FOR A PERIOD OF";Y;"YEARS.":::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$:(Y$,1)"Y"İ9020:60021a9020:9000:" NOMINAL INTEREST RATE ON INVESTMENTS"S EACH YEAR";N::"ENTER THE AMOUNT OF EACH WITHDRAWAL";R:q"ENTER THE NOMINAL INTEREST RATE";I::"WITHDRAWAL TO OCCUR FOR HOW MANY YEARS";Y:I1I:II100:PRNI(11((1IN)(NY)))::"A MINIMUM INVESTMENT OF $";(100P.5)100;"MUST""BE HELEST RATE OF ";I1;" PERCENT":"COMPOUNDED";N;"TIMES EACH YEAR TO YIELD $";T;".":::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$:(Y$,1)"Y"İ9020:500+21X;Z9020:9000:5)"#6 MINIMUM INVESTMENT FOR INCOME"::9000:"ENTER THE NUMBER OF WITHDRAWAL* DATA STATEMENTS (LINE 2000-3100)":"** F.I.C.A CALC. (LINE 40400-41300)":`TE TAXES":"2-MAKE CORRECTIONS":"3-LIST FIGURES FOR TRANSFER TO 1040"$ؤ:"DATA CONTAINED IN LINES 2000-3100 IS":"FOR A MARRIED PERSON FILING JOINTLY":"WITH TWO EXEMPTIONS"::$"YOU MUST CHANGE DATA STATEMENTS!":L%\"YOU MUST CHANGE:"::"*395000#J:"AMOUNT NOT IN FED TAX TABLE ";G16#L<#Н[#4G1A(1):G133000G133000v#T3G1.059:G133000ı#ğG2G1A(36):G233000G233000#G2G2G1:T3T3G2.079:F$:"FEDERAL TAX PROGRAM"::"THIS PROGRAM ALLOWS YOU TO:"::"1-COMPU",~A(27):M118900r"~A(16)A(15)A(14)A(27):"*** TOTAL TAX PAYMENTS";M3);A(16)::C1A(16)A(13):C1033300"耺"*** IRS OWES YOU ";M3);C1::5400"C1(C1):"*** YOU OWE IRS ";M3);C1::5400",:J071:G1T1%(AA,J)39300#T1T1%(BB,J):M1231500!!|yA(14):M118900,!Dz31500>!zJ19532000x! {"095 ESTIMATED TAX PAYMENTS";M3);:M11M12ĺA(15)!p{M1232100!{A(15):M118900!|32100!}J19733700!d}"97 F.I.C.A WITHHELD";M3);:M11M12ĺA(27)!}M1232500A$::BA:"PMT INTEREST";16);"PRINCIPAL";26);" BALANCE"1zCC1:LBI:PRL:BBP:CC100.5:LL100.5:PP100.5:BB100.5:C(C)100:L(L)100:P(P)100:B(B)100:C;7);L;17);P;27);B:FF1:F2028001BR2170s2CC1:DBI100:C;(":"AMOUNT OF INTEREST IN PERCENT";J:"":"NUMBER OF YEARS";N:"":JJ1000]NN12:IJ12:B1I:RAI(11BN):RR100.5:R(R)100:"AMOUNT PER PAYMENT =";R:Q(RNA)100.5:Q(Q)100:"TOTAL INTEREST=";Q:"TO BEGIN LISTING HIT ANY KEY...";1j ON A LOAN":9000:" ******** UNDER CONSTRUCTION ********":I12000:I:21/9020:9000:" THE MORTGAGE AMORTIZATION TABLE"::" COMPUTE INTEREST PAYMENTS..."::9000:"PLEASE USE DECIMAL POINTS":9000O0*C0:"ENTER AMOUNT OF LOAN";A:".0Y((1(P(I100))(NR))((1I100N)N)):"A TERM OF";(Y10.5)10;"YEARS WILL SATISFY THIS LOAN.":"SATISFY THIS SCHEDULE."::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$:(Y$,1)"Y"İ9020:1800.N21L/l9020:9000:"#19 THE ANNUAL INTEREST RATEİ9020:1700-21-9020:9000:10)"THE TERM OF A LOAN"::9000:"ENTER THE NUMBER OF PAYMENTS EACH YEAR";N::"ENTER THE ANNUAL INTEREST RATE";I:.!"WHAT IS THE AMOUNT OF EACH REGULAR PAYMENT";R::"WHAT IS THE AMOUNT OF THE LOAN PRINCIPAL";P:ADE ,":" (PAYMENT #, YEAR # )";N1,Y::"WORKING ON PROBLEM":II100,BOP:J11N(Y1)N1:I1((BOIN)100.5)100:ARI1:BOBOA:J1::"THE REMAINING BALANCE IS $";(BO100.5)100::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$ - (Y$,1)"Y" #17 REMAINING BALANCE ON A LOAN"::9000:"ENTER THE NUMBERS OF PAYMENTS MADE EACH YEAR";N::"ENTER THE ANNUAL INTEREST RATE";I:M,"WHAT IS THE AMOUNT OF EACH PAYMENT";R::"WHAT IS THE AMOUNT OF THE LOAN PRINCIPAL";P::"ENTER THE LAST PAYMENT M00ĺ20)"WORKING THE PROBLEM"*mJ11NY:I2((BOIN)100.5)100:ARI2:BOBOA: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*21+9020:9000:"000:"WHAT IS THE LIFE OF THE LOAN IN YEARS";Y:"ENTER THE ANNUAL INTEREST RATE";I::"WHAT IS THE AMOUNT OF EACH REGULAR PAYMENT";R*Z:"HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N::"ENTER THE AMOUNT OF THE LOAN PRINCIPAL";P::I1I:II100:BOP:NY1R":"ARE REQUIRED TO SATISFY":"A LOAN OF $";P;"FOR A PERIOD OF";Y;"YEARS":"AT AN INTEREST RATE OF";I1;"PERCENT PER ANNUM.":::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$:(Y$,1)"Y"İ9020:1500(621)@9020:9000:10)"#16 LAST PAYMENT ON A LOAN"::919):50,63:"INTEREST RATE":50,255:I:"HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N'"WHAT IS THE LOAN PRINCIPAL AMOUNT";P:::R((I100)PN)(11((I100)N1)(NY)):I1I:"REGULAR PAYMENTS OF $";(R100.5)100;","("MADE ";N;" TIMES EACH YEAOAN IS $";(P100.5)100:::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$:(Y$,1)"Y"İ9020:1400e&21U'9020:9000:" #15 REGULAR PAYMENT ON A LOAN.."::9000:"WHAT IS THE LIFE OF THE LOAN IN ":27):50,63:"YEARS":50,255:Y:"WHAT IS THE ANNUAL":9000:"HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N::"WHAT IS THE AMOUNT OF EACH PAYMENT";R:%"WHAT IS THE LOAN ANNUAL INTEREST RATE";I::"ENTER THE LIFE OF THE LOAN IN YEARS";Y:PRN(11((I100)N1)(NY))(I100)]&:"THE PRINCIPAL ON THIS LIN";N;"DAYS":"AT A DISCOUNT RATE OF";D100;"PERCENT,":"THE DISCOUNT AMOUNT WILL BE $";D1$P"AND THE COST WILL BE $";TD1;" .":::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$:(Y$,1)"Y"İ9020:1300$_21^%x9020:9000:5)"#14 PRINCIPAL ON A LOAN"::T COST OF DISCOUNTED":" PAPER..":9000::"ENTER THE FUTURE VALUE OF THE NOTE";T:"ENTER THE DISCOUNT RATE";D:Z$2"ENTER THE NUMBER OF DAYS TO MATURITY";N:DD100:D1TDN360::"IF YOU PURCHASE A NOTE WORTH $";T:" DUE :Y1K:S(100P(1I100)Y.5)100:"YEAR #";Y;"SALVAGE VALUE IS $";S::XX1:X5X0""PRESS RETURN FOR MORE":X$::S2ĂY":"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$:(Y$,1)"Y"İ9020:1200" 21"#9020:9000:"#13 CALCULATE THE NE 61+ YRS"/ :"PLEASE TYPE IN SCORE...";AO :" *** HEREDITY ***"} :"PLEASE LIST YOUR CLOSEST CATEGORY..." :" 1. NO KNOWN HISTORY OF HEART DISEASE" " 2. ONE RELATIVE WITH HEART DISEASE OVER 60 YRS") " 3. TWO :% x" WHAT AGE GROUP ARE YOU IN?"U }:" NUMBERS ARE WEIGHTED STATISTICALLY.":q :" 1. 10-20 YRS" " 2. 21-30 YRS" " 3. 31-40 YRS" " 4. 41-50 YRS" " 6. 51-60 YRS" " 8. 29367T0:S07<10:10)"SCORE YOUR HEART"ZF11:10)"ATTACK RISK FACTORS"tP::"BY ANDENT 1/79"ZT11000:T\N$(30)]:_" PLEASE ANSWER THE QUESTIONS..."::d" WHAT IS YOUR NAME ";N$ n" *** AGE ***"         T`  `ѥ΅ ΅ҥυө 0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `O ɏ5OPLɏ Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ ` uHɃLh` L``F`$ ܪȱ Lܤ`Ś25 a0 LJLJKH۰hЅѠȱ0@ȱHШhh0J L赟0LՓ0ܤ } ɑL赟L0ܤ } ɑL ` ` [ S oP YVPL6 ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` ăL: i@ &N&O ϕLz JKLυML LMJυKLˎ qL ȩ` 6 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yLÈ آ8ЕNЕKʵ˕{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ă ărLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 䎴xPiڄeΕPeϕxPȵxڰL# N ONi)OOêŦƥ堠ѥԀհť՞ŠÊĨȘƸ+QQàҠ蟠ՙ蠌â蠹鰠ѠMŠ𻩠éȰ堤ȠzȥŃ蠠栠Ϡ砠Ū𠠺蠉ʱ̠ŲŅӬƠŠ蠠ƠϠ堠𠁠Ʌ΁ӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠ӍԍĠΠ͠ԠŠҠƠŠǠӍӠ٠٠ϠŠčӠō"-":13<#"":936::X(936)::I116::I:D)100,R(D)100:"LAST PAYMENT WAS...";(D)100B:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$:(Y$,1)"Y"İ9020:20002 F0:212 "TO CONTINUE HIT ANY KEY...":A$::F0:"PMT INTEREST";16);"PRINCIPAL";26);" BALANCE":21902(#32#I139:"-";:I:줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wLh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQĠ 5EMҠL Šō?FِLÈϚΠ ăκ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @G>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ăܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_o$0 8 P# o ΅ڥυ e epݕ` 4LˎL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͏%ֈ`ʤZA^ܙ ݙ0  m7; xx ԅբ H 0  $ ( x$0  xx 0$FԨֹ)U h)װ H 듥֐ι L؆l`w0P`fLPεϵxϱHȱ΅hΈ` J  P` Y $0`  'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0X~")XȔ) F*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` dq  u  mʥ` ȹ0 L uߙ`` ӎ$0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05  o ` l3 ΃3` 4J G 4&(JJJJ) ` ӏ F٩ $  ΃Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM ׁL6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ džة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P 䏕xL# 48` PxL PeHxeH˰iکeۅȱhڙ=i?BC , LʩM˩I6bVcWdXeYfZg[h\i]j^k_L L3L`) #L $  `  v mL;ʅ˅LM  m              MONTH":M"# OF MONTHS":A'NM2B1ADZM(I11200)NXMZXMXN_Bg:X"RATE";10);"MONTHLY INV";25);"MONTH";32);"PRINICPAL"b" ";I1;11);"$ ";N;27);B;32);"$ ";(100X.5)100v' I1""# OF PERIODS IN YEAR":Y-II1YFF1P((1(I100))N)N:"PRES VAL";13);"YEARS";20);"RATE";30);"FUTURE VAL""$ ";P;14);N;21);I1;30);"$ ";(100F1.5)100p"INTEREST RATE PER YEAR(%)":I1 z"INVESTMENT PER ;" DISK AND PRESS RETURN";:" ";DK$-9363CPRESS RETURN";:" ";DK$X936^DK$t936z16368,0:K141340:KK176:KLKH330:NKDO16368,0:K141340]PKK176:KLKH330eQNKT20:N;" ":^:22:"DEFAULT = ";:((41)256(40)14),96:hMSSSırMDSDıw:(DK$,1)"D"ĺ#|"INSERT ";DK$16368,0::"DO YOU WISH TO MAKE ANOTHER COPY?";I$:(I$)0300U '(I$,1)"Y"160k ,(I$,1)"N"290s 1: 6:350:N;::1:I$;" SLOT: ";:L1:H7:330:A,N16: @350:N;::4:" DRIVE: ";:L1:H2:330:+JK(16384):K128330:"DUPLICATE":360: GET DUP DISKC 8:24::"WRITING";::" "\ 710: WRITE A HUNKr 8:24:" " (713)2190 (222)255ij 18::"****** UNABLE TO WRITE ******":290 18::"****** UNABLE TO READ ******"@ "19:: ERROR!+ 5:24:" ":(713)1290F FT255: NOT FIRST RDn DK$"DUPLICATE":360: GET DUP DISKx 275 8:24::"FORMATTING": "INIT XXX,S";SS;",D";SD;",V";(714):FT1 8:24:" " 216,0:222,0 256 DK$ "2 704:717,SS16:718,MS16:719,SD:720,MDG 17:34,16:936T :222,0 "-- PRESS 'RETURN' KEY TO BEGIN COPY --";:" ";I$ DK$" ORIGINAL":360: GET ORIG DISK 5:24::"READING": 707: READ A HUNK (713)2280:ON PROGRAM"::% Z704:CS(718)16A d715,(110)1:BUFSTART[ n716,(112)1:BUFEND I$" ORIGINAL":NCS:A718:310:MSN:N(720):320:MDN:A717 I$"DUPLICATE":NMS:310:SSN:N3MD:320:SDN FT0 5:24:" ":8:24:" 4% ************************C* DISK COPY *a* COPYRIGHT 1980 BY *(* APPLE COMPUTER INC. *2* *<************************F"BLOAD COPY.OBJ0": A$2C0 P:" APPLE DISKETTE DUPLICATI   :"":15020J" N:" BASIC FINANCE I-----------COPYRIGHT 1978":10)G$:R"0u:TSUBTOTAL AFTER ";C$(0);" NO.";:PP0:OO5000:100:AAS:Q115080W!:AAGGAA0AAGG!:T10:T20:T30:T40:BA0:BB0:IN0:LL0:XX0:Q0!>BA(A2)C(A)(A2)0:40 ">:"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:Q15030 ::" WOULD YOU LIKE:":" 1 A COMPLETE ";J$;", OR":" 2 A ";D$(0);" SUMMARY ONLY":" WHICH";:PP1:OO2:100:JJS:Q15060@!:" FIRST AN ";J$;" (Y/N) ";:E$:(E$,1)"Y"15030O:"MORE (Y/N) ?";E$:(E$,1)"N"Ā::" 1 ANOTHER PROBLEM":" 2 ANOTHER SCHEDULE":" 3 BACK TO THE FIRST PAGE":" 4 QUIT":" WHICH";:PP1:OO4:100:Q15020:S10100,15027,1000,30000:R216070t 4IJ3KO28L4O:8)MH12I3JK84OL12O:Z)MHO7IO28JO84KL7:w)MHOIO4JO12K7L*M(M):TMGG:NFGG0*1000::R15010,15015:"ANOTHER ";J$;" (Y/N) ";:"? ";E$:(E$,1)"Y"15030:15020):"LIKE P0:OO1E8:100:DS:Q10495+)B310600b6)" ENTER TOTAL ";A$;:PP0:OO1E8:100:CS:Q10550qh)R210700m)B410700|)" ENTER BALLOON ";A$;:100:PS:Q10620)G110710,10720,10730,10740,10750:10760)MHI4J12K7OLO:)MH(0);"S/";C$(2);"S, OR":" 2 A SINGLE ";C$(0);"/";C$(2);" ONLY...":" WHICH";:PP1:OO2:100:RS:Q10465r(::(B110520(R10495,10492("ENTER ";C$(0);"/";C$(2);F$;A$;:PP0:OO1E8:100:DS:Q10492(10520(" ENTER ";D$(G);F$;A$;:P5 ";D$(4):" WHICH";:PP1:OO5:100:GS1:Q10400b(GG(G0)(G1)4(G2)12(G3)O7(G4)Oy(KL0G310465(" HOW MANY ";L$(4);" IN YOUR ":"ACCOUNTING YEAR";:PP0:OO365:100:OS:Q10420h(:" 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:100s(QLS:10390x(10340(:" "2(" WITH INTEREST TO BE COMPOUNDED:":" 1 ";D$(0):" 2 ";D$(1):" 3 ";D$(2):" 4 ";D$(3):" `饠 LLL˹Ɂ <ȱ<L4 0#( 8<  8  `<#`<ȑ<<ȑ<Ƚȑ<Ƚ< <   `LH =<`  ōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ$:GRc*1DNSjwŠԿſΠԿſſԠӮӠþϠΠϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠL   LϠ젃Š𠁠Ƞɠź̪ӯؠԉȠҠńϠ̠̠ΒȤŠ͠㠩υe h QQQQQ<JWdv&crK.М LHHH?!=>@AH IL=K>Lhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  RSQzmVVW` `DE]^ /].^ E̞`DE `HHH/.0+>0jj.9hhh`( 01 0㎓/%` f`RS`KȱL`KȭL`DERS ` ` I,`DE]ȹ]Ȍ  E`,0 /R.SDE$,/ ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)  o : L f f`   t+L:,     `H jjH9mmL[mmhh`  # L# # 3,0ޭR S   ` .H h. ` % fɽQ ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̅ $T+  # o? : L  hh` %)`ʽQ08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈQ`  UɽQ 莣Ȍ`8`  U$'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` RRSS`R S8`RSDE  `iiiQLk RLk H m hLk S%RQrU o00Щ莢ɽదɬUɽ̢ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; ` o ɱɸ" L; )  o ɱɳ# L_ )`  o ɱɸ" L ) o ɱɳ# L ) ##` L N D   , b Y L> b @   Lvم380` X L !   - `" X    i( ! o , и` X$i( " X ,           MBER OF COMPOUNDING PERIODS EACH YEAR";N:"ENTER THE NUMBER OF YEARS OF THIS INVESTMENT";Y::"ENTER THE NOMINAL INTEREST RATE";I:I1I:IIN100:PT(1I)(NY):::"YOU MUST INVEST $";(P100.5)100;" FOR A PERIOD""OF ";Y;" YEARS AT AN INTER INVESTMENT.":::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$:(Y$,1)"Y"İ9020:400X21^*9020:9000:" #5 INVESTMENT REQUIRED TO":" PROVIDE FUTURE VALUE.."::9000:"ENTER THE AMOUNT YOU WANT TO HAVE AFTER Y YEARS";T::"ENTER THE NUHE NUMBER OF WITHDRAWALS EACH YEAR";N:"ENTER THE NUMBERS OF YEARS";Y:IIN100:RP(I((1I)(NY)1)I)::::"YOU MAY WITHDRAW $";(R100.5)100::"FROM YOUR ACCOUNT";N;"TIMES EACH YEAR,":P"FOR";Y;"YEARS WITHOUT REDUCING"::"YOUR INITIAL $";T;" ."::ST:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$:(Y$,1)"Y"İ9020:300[^21'9020:9000:5)"#4 REGULAR WITHDRAWALS FROM":14)"AN INVESTMENT":9000:"ENTER AMOUNT OF INITIAL INVESTMENT";P:"ENTER NOMINAL INVESTMENT RATE";I::"ENTER T TOTAL VALUE AFTER Y YEARS";T::"ENTER THE NOMINAL INTEREST RATE";I::"ENTER MUNBER OF DEPOSITS EACH YEAR";N7:"ENTER THE NUMBERS OF YEARS";Y:IIN100:RTI((I1)(NY)1):::"REGULAR DEPOSITS OF $";(R100.5)100;" FOR ":;Y;" YEARS WILL YEILDRS";Y:IIN100:TR((1I)(NY)1)I::10)"FUTURE VALUE =$";(T100.5)100::::"WANT TO RUN ANOTHER (Y/N)";Y$$(Y$,1)"Y"İ9020:208&21n,9020:9000:" #3 FUTURE VALUE OF AN ANNUITY OR SAVINGS ACCOUNT":9000:"ENTER THE"İ9020:99219020:9000:" #2 FUTURE VALUE OF REGULAR DEPOSITS":15)"(ANNUITY)"::9000:"ENTER AMOUNT OF REGULAR DEPOSIT";R::"ENTER THE NOMINAL INTEREST RATE";I:t"ENTER THE NUMBER OF DEPOSITS EACH YEAR";N::"ENTER THE NUMBER OF YEAT (P)";P::"ENTER THE NOMINAL INTEREST RATE (I)";I:"NUMBER OF COMPOUNDING PERIODS EACH YEAR(N)";N::"ENTER THE NUMBER OF YEARS (Y)";Y::IIN100:TP(1I)(NY):"FUTURE VALUE=$";(T100.5)100:::"WANT TO RUN ANOTHER (Y/N)";Y$ (Y$,1)"Y:50,63:"PRESS RETURN":50,255:Z:Z99,208,300,400,500,600,700,800,900,1000,1100,1200,1300o9Z14Z1Z13; Z11400,1500,1600,1700,1800,1900,2000<215c9020:9000:" #1 FUTURE VALUE OF AN INVESTMENT"::9000:"ENTER THE INITIAL INVESTMEN (18) LOAN REPAYMENT PERIODS"::"(9) EARNED INTEREST TABLE ";" (19) LOAN ANNUAL INTEREST RATE":\+"(10) ANNUAL DEPRECIATION RATE ";" (20) MORTGAGE AMORTIZATION TABLE":9000:"SELECT A PROGRAM BY NUMBER AND THEN"PLAY" #M$:9020:9000:19)"MENU PAGE-2":9000:"(6) INCOME FROM INVESTMENTS ";" (16) FINAL LOAN PAYMENT"::"(7) NOMINAL INTEREST RATES ";" (17) REMAINING LOAN BALANCE":| '"(8) EFFECTIVE INTEREST RATES ";" OF SAVINGS ";" (13) DISCOUNTED COMMERCIAL PAPER": "(4) WITHDRAWALS FROM INVESTMENT";" (14) LOAN PRINCIPAL"::"(5) MINIMUM INVESTMENT FOR INCOME";" (15) LOAN PAYMENT SCHEDULES":9000:"PRESS RETURN TO CONTINUE DISSPLAY MENU":M$! 9020:9000: 19)"MENU PAGE-1"::9000:"(1) FUTURE VALUE OF INVESTMENT";" (11) DEPRECIATED INVESTMENT":A "(2) FUTURE VALUE OF ANNUITY ";" (12) SALVAGE VALUE YEAR END"::"(3) FUTURE VALUE 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...":9000:"PRESS RETURN TO DI2+936:9000:Z$(5):" **** BANKING AND FINANCIAL ****":M$(5)::(I);17)"PROGRAMS":9000:"THIS SERIES OF PROGRAMS IS DESIGNED TO":"AID CONSUMERS AND BUSINESSES IN LONG"V "OR SHORT RANGE BUSINESS PLANNING.":"INCLUDED ARE PROGRAMS WHICH              780 J1:J0X770! :KK1) J0i :"CHANGE DATA AND RECOMPUTE? (1=YES, 0=NO)";:Z::Z120:N:N2N1560! N2N1J1N5605 B0B0R:N2N21b 0B2B0(1IN):I1B2B0:I3I3I1:I2I2I1v XP2P1J1N640 bI2R(I2):B2R(B2):P2P21 J0X710 J1NL1L2710 L1L11:R(B2),R(I3),R(I2):I30:KK1: B0B2:J0J1N1YFH100 "FACE AMOUNT= ";F; "DAYS TO MATURITY= ";BT ""BID QUOTE (%)= ";Bm ,"ASK QUOTE (%)= ";As 6 @"PRICE PER $100= ";H J"TOTAL VALUE= ";T K T10R*"- P"* TREASURY BILLS *"X Z"***********************************"^ dw "FACE AMOUNT ($)";F} "DAYS TO MATURITY";D "BID QUOTE (%)";B "ASK QUOTE (%)";A 1 H100(BA)2(D360) T* "*********************************"S"*** TREASURY BILL VALUATION ***"|"*********************************"(2"**********************************"<"*THIS PROGRAM CALCULATES THE PRICE*" F"*PER $100 AND DOLLAR VALUE OF U.S.  J115017800BC"150 TAX ON EQUIPMENT",M2);:M11M12ĺA(24)RCM1217900h\DA(24):M118900s$E17900EJ116019000E"160 JOURNALS AND MAG";M2);:M11M12ĺA(25)PFM1218300FA(25):M118900|GA(35)A(17)FFA(19)A(20)1):M118900>16100+>J114016600[>"140 DEPRECIATION";M2);:M11M12ĺA(22)kH?M1216700?A(22):M118900t@16700@J114517200"2. FEMALE 40-50 YEARS"H"3. FEMALE OVER 50 YEARS"R"4. MALE"\"5. STOCKY MALE"f"6. BALD STOCKY MALE"z:"IS YOUR SCORE?":C=::" *** BLOOD PRESSURE ***"E:h"1. 100 IS THE UPPER READING""2. 120 IS THE UPPER READING""3. 140 IS THE UPPER READING""4. 160 IS THE UPPER READING""6. 180 IS THE UPPER READING""7. 20"3. CHOLESTEROL 206-230MG. DIET 20% FATS"uv"4. CHOLESTEROL 231-255MG. DIET 30% FATS""5. CHOLESTEROL 256-280MG. DIET 40% FATS""7. CHOLESTEROL 281+MG. DIET 50%+ FATS":N$;" ,WHAT . COMPLETE LACK OF EXERCISE"A::N$;", WHAT IS YOUR SCORE":EtD::" *** CHOLESTEROL-FAT% OF DIET ***"|N:X"1. CHOLESTEROL LESS THAN 180MG. NON FAT DIET"b"2. CHOLESTEROL 181-205MG. DIET 10% FATS"8l 2. MODERATE OCCUPATIONAL AND RECREATIONAL EXERTION"z" 3. SEDENTARY WORK AND INTENSE RECREATIONAL EXERTION"" 5. SEDENTARY OCCUPATIONAL AND MODERATE REC. EXERTION"&" 6. SEDENTARY WORK AND LIGHT REC. EXERTION"0" 8 CIGARETTES PER DAY":" 6. 30 CIGARETTES PER DAY"h" 10. 40 CIGARETTES OR MORE PER DAY":"WHAT IS YOUR SCORE?"T0::" ***EXERCISE***":" 1. INTENSIVE OCCUPATIONAL AND RECREATIONAL EXERTION"9"50 LBS OVERWEIGHT"< r" 7. 51 OR MORE LBS OVERWEIGHT"\ |:"WHAT IS YOUR SCORE ";N$c W :" ***TOBACCO SMOKING***"  " 0. NON USER" " 1. CIGAR OR PIPE" " 2. 10 OR LESS CIGARETTER/DAY"" 4. 20T SCORE";H "::/ ," *** WEIGHT ***"c 6:"PLEASE ANSWER TO THE CLOSEST CATEGORY, ";N$i ;w @:" J" 1. -5 TO +5 LBS STANDARD WEIGHT" T" 2. 6-20 LBS OVERWEIGHT" ^" 3. 21-35 LBS OVERWEIGHT" h" 5. 36-RELATIVES WITH HEART DISEASE OVER 60 YRS"f " 4. ONE RELATIVE WITH HEART DISEASE UNDER 60 YRS" " 6. TWO RELATIVES WITH HEART DISEASE UNDER 60 YRS" " 7. THREE RELATIVES WITH HEART DISEASE UNDER 60 YRS" :"WHAT IS YOUR CLOSES ";A$:255:$;", AND"-0"ENTER YOUR REAL WEIGHT.":2905:~ "DO YOU WANT TO CHANGE SOME OF THE VARIABLES AND TRY AGAIN?"B$:(B$)02050(B$,1)"Y"500(B$,1)"N"2080:"YES OR NO, PLEASE.";:2010  ::"'BYE FOR NOW,09 "YOU SHOW MILD CHANGE, MAY SEEM SLIGHTLY ELATED."D 1980i "PROBABLY NO VISIBLE EFFECTS.":"YOU MUST WEIGH MORE THAN ";W:"PLEASE ENTER YOUR REAL WEIGHT.":290 &"I DIDN'T KNOW ELEPHANTS COULD OPERATE A COMPUTER! QUIT KIDDING, ";ASERIOUSLY AFFECTED." 1980h: "YOUR JUDGMENT IS SERIOUSLY AFFECTED; COORDINATION IMPAIRED;" "LEGALLY CONSIDERED UNDER THE INFLUENCE. DON'T DRIVE!" 1980 "YOU ARE HESITANT: ALTERNATE FROM 'WHO CARES' TO AGGRESSION." 198>z: "AREN'T YOU GLAD THIS IS JUST A SIMULATION?"I 1980: "YOU ARE UNCONSCIOUS, POSSIBLY ON THE VERGE OF DEATH." 1980: "YOU ARE IN A STUPOR." 1980: "YOU ARE UNMISTAKABLY DRUNK -- ALL FACULTIES BLOOD ALCOHOL IS ABOUT ZERO.". 1050[  "YOUR PER CENT OF BLOOD ALCOHOL IS ";Bn* B.02 10504 B.05 1030> B.1 1010H B.15 980R B.3 960\ B.4 940f B.5 910p: 7) "+++++ REST IN PEACE +++++"194((W100)10.00009): R .765(((W100)10).015)] B (D1000(W16R))(60X)v B ((B40))1000 H1 760 800 H2 790 B B.03  795 B B.03((H2).015) B0 800# "YOUR PER CENT OF "HOW MANY HOURS DO YOU PLAN TO DRINK,":A$;3& Hc0:H24ĺ:"ONE DAY AT A TIME PLEASE.":530:"HOW MANY DRINKS DO YOU PLAN TO HAVE IN ";H;" HOURS";D DNXC4DD.75 "B" IS PER CENT ALCOHOL IN THE BLOOD X .00ARD LIQUOR MIXED WITH WATER OR SOFT DRINKS)"M "B = BEER (12 OZ)"] "W = WINE"c  "KIND OF BOOZE = (S, M, B, OR W)"; C$:(C$)0510 C1:(C$,1)"S"(C$,1)"M"(C$,1)"B"530 (C$,1)"W"C4:530 510 +S ";K;" KILOGRAMS.)":430g "GREAT, ";A$;", I'M GLAD TO SEE":"THAT YOU'RE USING THE METRIC SYSTEM."s WW2.2y   "WHAT KIND OF BOOZE DO YOU PLAN TO DRINK?"  "YOUR CHOICES ARE:" "S = 'STRAIGHT' (STRAIGHT SHOTS)"5 "M = 'MIXED' (H @:"IS THAT ";W;" POUNDS OR ";W;" KILOGRAMS?"E JB$:(B$)0360Z T(B$,1)"P"380o ^(B$,1)"K"410 h"IF ";W;" IS IN POUNDS, ENTER 'POUNDS'.":"IF ";W;" IS IN KILOGRAMS, ENTER 'KILOGRAMS" r:330 |K(W2.2.5) :"(";W;" POUNDS ION. MEDICATIONS,"` "HEALTH, AND PSYCHOLOGICAL CONDITIONS ARE ALSO INFLUENTIAL FACTORS." ::"WHAT IS YOUR NAME? ";A$ : "PLEASE ENTER YOUR WEIGHT. (DON'T WORRY, ";A$;", I WON'T TELL A SOUL.)" " W ,W251800 6W3501830017:"BOOZE" i "THIS PROGRAM SHOWS HOW DRINKING COULD AFFECT YOU. THE FIGURES YOU CALCULATE" "ARE AVERAGES. INDIVIDUALS MAY VARY SOMEWHAT IN THEIR PERSONAL ALCOHOL" "TOLERENCE. FOOD IN THE STOMACH AFFECTS THE RATE OF ABSORPTIddA$"THREE"nB$"BLIND"-xC$"MICE"9I120GA$,B$,C$NI\"OH MY!"b S   ";A$:255:$;", AND"-0"ENTER YOUR REAL WEIGHT.":2905:~ "DO YOU WANT TO CHANGE SOME OF THE VARIABLES AND TRY AGAIN?"B$:(B$)02050(B$,1)"Y"500(B$,1)"N"2080:"YES OR NO, PLEASE.";:2010  ::"'BYE FOR NOW,09 "YOU SHOW MILD CHANGE, MAY SEEM SLIGHTLY ELATED."D 1980i "PROBABLY NO VISIBLE EFFECTS.":"YOU MUST WEIGH MORE THAN ";W:"PLEASE ENTER YOUR REAL WEIGHT.":290 &"I DIDN'T KNOW ELEPHANTS COULD OPERATE A COMPUTER! QUIT KIDDING, ";ASERIOUSLY AFFECTED." 1980h: "YOUR JUDGMENT IS SERIOUSLY AFFECTED; COORDINATION IMPAIRED;" "LEGALLY CONSIDERED UNDER THE INFLUENCE. DON'T DRIVE!" 1980 "YOU ARE HESITANT: ALTERNATE FROM 'WHO CARES' TO AGGRESSION." 198>z: "AREN'T YOU GLAD THIS IS JUST A SIMULATION?"I 1980: "YOU ARE UNCONSCIOUS, POSSIBLY ON THE VERGE OF DEATH." 1980: "YOU ARE IN A STUPOR." 1980: "YOU ARE UNMISTAKABLY DRUNK -- ALL FACULTIES BLOOD ALCOHOL IS ABOUT ZERO.". 1050[  "YOUR PER CENT OF BLOOD ALCOHOL IS ";Bn* B.02 10504 B.05 1030> B.1 1010H B.15 980R B.3 960\ B.4 940f B.5 910p: 7) "+++++ REST IN PEACE +++++"194((W100)10.00009): R .765(((W100)10).015)] B (D1000(W16R))(60X)v B ((B40))1000 H1 760 800 H2 790 B B.03  795 B B.03((H2).015) B0 800# "YOUR PER CENT OF "HOW MANY HOURS DO YOU PLAN TO DRINK,":A$;3& Hc0:H24ĺ:"ONE DAY AT A TIME PLEASE.":530:"HOW MANY DRINKS DO YOU PLAN TO HAVE IN ";H;" HOURS";D DNXC4DD.75 "B" IS PER CENT ALCOHOL IN THE BLOOD X .00ARD LIQUOR MIXED WITH WATER OR SOFT DRINKS)"M "B = BEER (12 OZ)"] "W = WINE"c  "KIND OF BOOZE = (S, M, B, OR W)"; C$:(C$)0510 C1:(C$,1)"S"(C$,1)"M"(C$,1)"B"530 (C$,1)"W"C4:530 510 +S ";K;" KILOGRAMS.)":430g "GREAT, ";A$;", I'M GLAD TO SEE":"THAT YOU'RE USING THE METRIC SYSTEM."s WW2.2y   "WHAT KIND OF BOOZE DO YOU PLAN TO DRINK?"  "YOUR CHOICES ARE:" "S = 'STRAIGHT' (STRAIGHT SHOTS)"5 "M = 'MIXED' (H @:"IS THAT ";W;" POUNDS OR ";W;" KILOGRAMS?"E JB$:(B$)0360Z T(B$,1)"P"380o ^(B$,1)"K"410 h"IF ";W;" IS IN POUNDS, ENTER 'POUNDS'.":"IF ";W;" IS IN KILOGRAMS, ENTER 'KILOGRAMS" r:330 |K(W2.2.5) :"(";W;" POUNDS ION. MEDICATIONS,"` "HEALTH, AND PSYCHOLOGICAL CONDITIONS ARE ALSO INFLUENTIAL FACTORS." ::"WHAT IS YOUR NAME? ";A$ : "PLEASE ENTER YOUR WEIGHT. (DON'T WORRY, ";A$;", I WON'T TELL A SOUL.)" " W ,W251800 6W3501830017:"BOOZE" i "THIS PROGRAM SHOWS HOW DRINKING COULD AFFECT YOU. THE FIGURES YOU CALCULATE" "ARE AVERAGES. INDIVIDUALS MAY VARY SOMEWHAT IN THEIR PERSONAL ALCOHOL" "TOLERENCE. FOOD IN THE STOMACH AFFECTS THE RATE OF ABSORPTI  BOOZE 9 A PROGRAM ON THE PHYSIO-R LOGICAL EFFECTS OFm ALCOHOL ON THE HUMANx BODY~ BY DICK CARTER AND JIM HUNGERFORD APPLESOFT VERSION BY JOHN COOKd:70: 5:     1)I# R2NP:X(R)I,Y(R)I:R* 31 I7 ,dHE VERTICAL FACTOR.* xX(1)2I,Y(1)2I6 R2NPN X(R)2I,Y(R)2IU R AN ENTRY S LOOP IS USED TO HOLD THE FIGURE ON THE SCREEN FOR A SMALL AMOUNT OF TIME. S1 ACCERELATES THE MOTION.1 S1S115 SS1450:S 0 X(1)I,Y(9  NP5X(NP),Y(HP)'I1NP6(X(I),Y(I)=2I[< 0,0,60,0,60,60,0,60,0,0aFhP3d THIS EXAMPLE MOVES A FIGURE FROM TOP LEFT TO BOTTOM RIGHT SCREEN.nI150 s I IS USED AS THE HORIZONTAL TRANSLATION FACTOR AND I AS T $";(T100.5)100K - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONQ - RESTATE OR END PROGRAM? USER INPUT REQUIRED "MORE DATA? (1=YES, 0=NO)"; X X120 "RUN MENU" S"; dY0,M iYY0M12H l - CALCULATE INTEREST RATE PER DEPOSIT,p m - CONVERT FROM PERCENT TO DECIMAL~ nII100N w - CALCULATE FUTURE VALUE BY FORMULA xTR((1I)(NY)1)I - ROUND OFF TO NEAREST CENT, PRINT "FUTURE VALUE =3 "FUTURE VALUE OF REGULAR DEPOSITS (ANNUITY)"9i - STATEMENTS 30 TO 100 REQUEST USER INPUT"AMOUNT OF REGULAR DEPOSITS";(R2"NOMINAL INTEREST RATE";<IF"NUMBER OF DEPOSITS PER YEAR";PN Z"NUMBER OF YEARS, MONTH  E VERTICAL FACTOR.) xX(1)2IY(1)2I5 R2NPL X(R)2I,(R)2IS R AN ENTRY S LOOP IS USED TO HOLD THE FIGURE ON THE SCREEN FOR A SMALL AMOUNT OF TIME. S1 ACCERELATES THE MOTION. S1S115 SS1450:S 0 X(1)I,Y(1)6  NP5X(NP),Y(NP)'I1NP6(X(I),Y(I)=2I[< 0,0,60,0,60,60,0,60,0,0aFhP3d THIS EXAMPLE MOVES A FIGURE FROM TOP LEFT TO BOTTOM RIGHT SCREEN.nI150 s I IS USED AS THE HORIZONTIAL TRANSLATION FACTOR AND I AS THOMPT.EG 1. YES - IT WILL PRINT A DESCRIPTION OF THE DATA INPUTS.uH 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. THIS WOULD INCLUDE BUSINESSMEN, WORKERS, HOUSEWIVES, RETIREES, ALMOST ANYONE WHO HAS MONEY TO INVEST.|D INSTRUCTIONSE TYPE "RUN"; THE PROGRAM WILL THEN ASK YOU IF YOU WANT INSTRUCTIONS.F THERE ARE THREE POSSIBLE VALID RESPONSES TO THIS PRE BOND.@ IN THE EVENT THE 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.fCCHASER HOLDS THE BOND UNTIL 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 TH&*0 **** BOND PROGRAM ***** <: DESCRIPTION; 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.d= IF THE PURM3M4+ PRESENT VALUE OF FUTURE COUPONSOV1C2(1(1Y2)(M4))(Y2)~ P.V. OF PRINCIPAL AT TIME OF NEXT COUPONV2R(1Y2)(M4) P.V. OF BOND NOWP(V1V2C2)((1Y2)M5)(C2)(1M5)"PRICE",P,"ACCR INT",C2(1M5)055% "COUPON";C,"REDEMPTION AT";RL "MATURITY",M1;"YEARS",M2;"MONTHS"[ "YIELD";Ya   NUMBER OF COUPON PERIODS TO MATURITY M3M12M26  NUMBER OF WHOLE COUPON PERIODS TO MATURITY M4(M3)  TIME TO NEXT COUPONM5R "C ,"ITEMS 3 & 4";12);"MATURITY IN YEARS, MONTHS";40);N 6M1,M2T @ J"ITEM 5";12);"YIELD TO MATURITY";40) TY ^ h440 r"ENTER ITEMS 1 THROUGH 5"; |C,R,M1,M2,Y  440  C,R,M1,M2,Y  6,100,12,5,.OU WANT INSTRUCTIONS FOR ENTERING DATA";0 A$6 I A$"DATA"420Z A$"NO"370 "ENTER THE FOLLOWING ITEMS OF DATA" "ITEM 1";12);"ANNUAL COUPON IN DOLLARS";40); C  "ITEM 2";12);"PROCEEDS ON REDEMPTION";40); HS (M2 NEED NOT BE AN INTEGER), SELLING TO YIELD Y.s ********** ************** ************ LINE 150 CONTAINS SAMPLE DATA STATEMENTS. ************* MAIN PROGRAM ************** 6,100,12,5,.055 ( "DO YWONDERFUL??  **********************************************E  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 M23 MONT 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  ISN'T TOM SMITH      I R2NP:X(R)IY(R)I:R' 3. I4 , VINGS $";S4gN106205j"NET SAVINGS $";S4P4Vl"COMPLIMENTS OF K.MADONNA "\qv23:;8);"(HIT RETURN TO CONTINUE)"(16384)12764016368,0 'S4(S4.4):S3(S3):S(S)A (P2(P2.5):P3(P3):P4(P4) 0;2);J;5);"$";P2;13);"$";P3;21);"$";S;26);"$";S3;31);"$";S4P4 :J12(J12)İ630 DJ N:N10610 X"PRESENT VALUE OF ALL PAYMENTS $";P4 b"PRESENT VALUE OF ALL SAF=FUEL=VALU=SAVG LESS"C "YRS=PAYMENT=PAYMENT=SAVG=SAVG=PAYMENT"O J1N2] JN1510i P1R1Lx LL(AP1) P2AT1P1 P3P2(1R3)(J) P4P4P3 520 P20:P30 I1(1I)J SFI1P S3S(1R3)(J) &S4S4S3 ";T2 @T2T2100! JS40:P402 TR3(1T2)R2@ ^N10380\ hALR1(1(1R1)(N1))j mA(A.5) r:"ANNUAL PAYMENT ON LOAN $";A wX11000:X | ;29);"CUMMULATIVE" ;5);"W/O TAX";26);"FUEL VALUE" ;5);"COST OF=VALU OVEMENT(IN YEARS) ";N2k "THE EXPECTED ANNUAL RATE OF INFLATION OF FUEL COSTS THE LIFE OF IMPROVEMENT" "(IN PERCENT) ";I II100 ""RATE OF RETURN ON CAPITOL (IN %) ";R2 ,R2R2100 6"MARGINAL TAX RATE ON INCOME CAPITOL IN PERCENTN (IN %) ";R1 R1R1100\ "MARGINAL TAX RATE (INTEREST) OF THE LOAN PAYMENT ";T1j T1T1100s 220| N10 "THE COST OF FUEL THIS YEAR ";F "ENTER % REDUCTION IN FUEL DUE TO IMPRO- VEMENT ";P PP100 "LIFE OF THE IMPRO(Z A COST-BENEFIT OF AN IMPROVEMENTGd TO REDUCE HOME FUEL COSTdn CONVERTED BY K.MADONNAlx:"ENTER THE AMOUNT OF LOAN""(IF NONE, ENTER 0) ";LL0210"ENTER LIFE OF LOAN (IN YEARS) ";N1 "ENTER INTEREST RATE OF LOA     I! R2NP:X(R)I,Y(R)I:R( 3/ I5 , PE VERTICAL FACTOR.) xX(1)2I,Y(1)2I5 R2NPM X(R)2I,Y(R)2IT R AN ENTRY S LOOP IS USED TO HOLD THE FIGURE ON THE SCREEN FOR A SMALL AMOUNT OF TIME. S1 ACCERELATES THE MOTION. S1S115 SS1450:S 0 X(1)I,Y(1)7  NP5X(NP),Y(NP)'I1NP6(X(I),Y(I)=2I[< 0,0,60,0,60,60,0,60,0,0aFhP3d THIS EXAMPLE MOVES A FIGURE FROM TOP LEFT TO BOTTOM RIGHT SCREEN.nI150 s I IS USED AS THE HORIZONTIAL TRANSLATION FACTOR AND I AS THHLY PAYMENT (PMT) = $ ";I(PMT)Ep0"SUM OF PAYMENTS = $ ";I(NPMT)K0Q0NO"ENTER ANNUAL INTEREST RATE (PERCENT)";:IIK II0II100ĺ"";:4100Z hIIII1200` v . PRINT OUT STUFF| . /"PRESENT VALUE (PV) = $ ";I(PV) D/"ANNUAL INTEREST RATE = ";II1200;" %" /"NUMBER OF PAYMENTS (N) = ";I(N) 0"MONT GET PV+ L"ENTER PRINCIPLE (PV)";:PVB VPV0ĺ"";:1100H T  GET N| 4"ENTER NUMBER OF PAYMENTS (N)";:N >N0ĺ"";:2100  GET PMT  "ENTER PAYMENT (PMT)";:PMT & PMT0ĺ"";:3100  GET INTEREST RATE. MULATED INTEREST PAID BY":"PAYMENTS ";C;" THRU ";K;" = $ ";I(ICK)L 820U 500[ % *"FOR REMAINING BALANCE AFTER PAYMENT K,":"ENTER K";:K 4PK(PMTII)(1(1II)(KN)) >"REMAINING PRINCIPLE":"AFTER PAYMENT ";K;" = $ ";I(PK) p X4000:1000:30005 bN(((1IIPVPMT))(1II))E l12000:100N 500 "FOR ACCUMULATED INTEREST PAID BY":"PAYMENTS C THRU K, ENTER C,K";:C,K CKĺ"";:710  JC1 ICKPMT(KJ((1II)(KN))II(1(1II)(JK)))C "ACCU" "CHOOSE DESIRED UNKNOWN:";:AZ A1A5ĺ"ONLY TYPE A NUMBER BETWEEN 1 AND 5":200u ,A400,500,600,700,800 112000 6100 4000:2000:3000 PVPMT((1(1II)N)II)  4000:1000:2000 PMTPV(II(1(1II)N))  S 939: CLEAR SCREEN5I(X)(X100.5)100`"DIRECT REDUCTION LOAN CALCULATIONS."d:"1 PRESENT VALUE (PV)":"2 PAYMENT (PMT)":"3 NUMBER OF PAYMENTS (N)"f"4 ACCUMULATED INTEREST (I(C-K))":"5 REMAINING BALANCE (PV(K))"n     S PART = .25 (25 PERCENT PER YEAR)"::"VARIANCE OF JUMPS = .12 (12 PERCENT PER YEAR)"H$:"EXPECTED NUMBER OF JUMPS = 2 (PER YEAR)"::"THIS IMPLIES A TOTAL VARIANCE = .25 + 2*.12 = .5 (50 PERCENT PER YEAR)"::"ANNUAL INTEREST RATE = .08 (8 CHOLES RESULT EXACTLY."::::#"TO CONTINUE PLEASE PRESS ANY KEY";:A$::::::::"REMEMBER TO USE REASONABLE NUMBERS FOR THE INPUTS(BASED ON YEARLY RETURNS)"X#"SOME EXAMPLES OF REASONABLE VALUES ARE SHOWN BELOW:":"VARIANCE OF CONTINUOUHOLES BECAUSE OF THE PROBABILITY OF JUMPING OUT OF THE MONEY.":"#"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 EQUALTO 0 WE GET THE BLACK-SNS 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."B#"OPTIONS THAT ARE RIGHT ON THE MONEY ARE WORTH LESS THAN THAT PREDICTED BY BLACK-SC 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 TURNS OUT THAT OPTIOETURN DISTRIBUTION."#"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 TO CHARACTERISTICS. 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 RTO THE ARRIVAL OF IMPORTANT NEW INFORMATION ABOUT THE STOCK (EARNINGS REPORTS,COURT CASES ETC.)"::"TO CONTINUE PLEASE PRESS ANY KEY";:A$::::pn#"THIS PROGRAM CALCULATES THE VALUE OF AN OPTION WHEN THE STOCK RETURN HAS THE PREVIOUSNS ARE MADE UP OF TWO COMPONENTS:":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 IF THE UNDERLYING STOCK'S RETURNS 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 RETURN1EN2(RT):HN1: X bC1.0498673470:C2.0211410061:C3.0032776263:C4.0000380036:C5.0000488906:C6.0000053830:N1.5(1C1XC2X2C3X3C4X4C5X5C6X6)16: (#936:" OPTION PRICING WITH":" DISCONTINUOUS RETURNS"::"= ";(SUMOPT)100OPT:; FACT1:I1NN:FACTFACTI:I:A  D1((SE)(R.5VAR)T)(VART):D2D1(VART):D104035 XD1:7000:N1N:4038 X(D1):7000:N11N D204045 XD2:7000:N2N:4050 X(D2):7000:N21N OPTSPS: ";L:K0:XN25g SUM0:NN0XN:VAR(VNNDT):GAM(1K):RINLKNNGAMT:4000:WOPT:LPL(1K) 3000:TERM((LPT)(LPT)NN)FACT:SUMSUMTERMW:NN:::"OPTION= ";SUM:VAR(VLD):RIN:4000 F :"BLACK-SCHOLES= ";OPT::"PERCENTAGE ERRORAGNITUDE CASE"::"ENTER PARAMATER VALUES: "::"INPUT STOCK PRICE: ";S:"INPUT EXERCISE PRICE: ";E "INPUT INTEREST RATE: ";IN:"INPUT TIME TO MATURITY: ";T:"VARIANCE OF CONTINUOUS PROCESS: ";V:"VARIANCE OF JUMP PROCESS: ";D:"EXPECTED NUMBER OF JUM936:"OPTION PRICING WITH DISCONTINUOUS RETURNS"::::"DO YOU WISH TO RECEIVE BACKGROUND INFORMATION ON THIS TOPIC...(Y OR N)";:A$:::A$"Y"İ9000c d936:" OPTION PRICING WITH":" DISCONTINUOUS RETURNS"::"LOGNORMAL M     edA$"THREE"nB$"BLIND"-xC$"MICE"9I120HA$,B$,C$,OI]" OH MY"c A780 J1:J0X770! :KK1) J0i :"CHANGE DATA AND RECOMPUTE? (1=YES, 0=NO)";:Z::Z120:N:N2N1560! N2N1J1N5605 B0B0R:N2N21b 0B2B0(1IN):I1B2B0:I3I3I1:I2I2I1v XP2P1J1N640 bI2R(I2):B2R(B2):P2P21 J0X710 J1NL1L2710 L1L11:R(B2),R(I3),R(I2):I30:KK1: B0B2:J0J1N1YT ";I100;"% NOMIN. FOR ";Y;" YEARS":N10430o "REGULAR DEPST./WITHDRWL $";R;" ";N1;" TIMES PER YR.":KK1 " EFECTIVE INTEREST RATE ";R(100((1IN)N1));"% PER YEAR": "YEAR ";J0::"BALANCE","INTRST.","ACC.INT": L11:N21:P21:J11UNDING PEROIDS PER YEAR";:N:N10:L24{ "START WITH WHAT YEAR";:X:"END PRINTING WITH WHAT YEAR";:Y:X(X):B0P:I10 I20:I30:K24:P14:J01(Y)1:J0X480 JK22450. TK1K24::K1:K6:" EARNED INTEREST TABLE":" PRINC. $";P;" Aj7:R(X)(X100.5)100:"EARNED INTEREST TABLE":"PRINCIPLE";:P:"NOMINAL INTEREST RATE";:I:II100:"NUMBER OF DEPOSITS/WITHDRAWALS PER YEAR";ZN1:N10160n"AMOUNT OF DEPOSIT/WITHDRAWAL";:R:N360:L2N1:200' "NUMBER OF COMPO     250 20 .05( .2,.4,.44 12000> 1.5^7);"********************""COMPANY "J;" YOU HAVE GONE BANKRUPT"7);"********************"P417P(1)P(2)1015M21020M1G4(P(3M)P(M)) w"%4:(2010(J1))_UI(J)C(J)B(J):(2010(J1)):W(J):(2010(J1))C(J):(2010(J1)):T(J):(2010(J1))I(J):(2010(J1)):UI(J)C(J) 50 2.001 .05 5000,5000 100,100)A(1)A2RV(2)A(2)A27WD1(K2K2(KA2))K4=\Fa" "Of" "ck:"QUARTER ";Qtm"---------"}p" "q3:17:"COMPANY 1 COMPANY 2"t4:u"PROFIT":"MARKET SHARE":"CASH ON HAND":"NUMBER SOLD":"INVENTORY":"ASSETS"vAE(1)1800$AP(J)800- " "X"YOU MAY NOT RAISE PRICES DURING THE"q"WAGE-PRICE FREEZE"z" "760 P(J)A%A200760*P(J)0760/J4A2A(1)A(2)9A20845>V(1)0CV(2)0H855 MV(1(2)17156"NO PRODUCTION POSSIBLE DUE TO STRIKE"?730X"PRODUCTION LEVEL";bL(J)rL(J)0715"ADVERTISING BUDGET";A(J)A(J)0730C(J)C(J)FL(J)UA(J)E(2)1760I(J)I(J)L(J)"UNIT PRICE";14);"""%g" ",lJ5q" "EvP417410N{" "q"DO YOU WANT TO PLAY AGAIN ?""(TYPE 1 FOR YES, 0 FOR NO)";HH0670" "1351510" "J12" ""COMPANY ";J E &900+B(J)C(J)UI(J)/0B(J)058085" "A:975J?" "[DB(J)M1620zIB(J)C(3J)UI(3J)620NP417S" "X14);"********************"]"COMPANY ";J;" YOU HAVE REACHED ".001M1_"MILLION AND WON!!!!!!!"bT(J))C(J)C(J)T(J)P(J)2I(J)I(J)T(J)9JDJ12zC(J)C(J)RI(J)UK3C(J)((C(J))(C(J))2)2C(J)(C(J))E(5)0530W(J)0 540T(1)T(2)0520W(J)(10000T(J)(T(1)T(2)))100J!J12UI(J)C(J)900J%" "0QQ1:1060C675L865a COMPUTE DEMANDlJ12D(J)(1E(5)).5(K22V(J)D1)(P(J)50)NJ1000J12D(J)I(J)475T(J)D(J)480T(J)I(J)T(J)( INVENTORY=";R100;"%"K ,"INTEREST CHARGE ON BORROWED MONEY=";K3100;"%"T @" "] E" " J"UNITS AND DOLLARS BELOW ARE IN THOUSANDS" T" " YJ15 ^E(J)0 cJ hP40 m875 rJ12 wW(J)0 |D(J)0 T(J)0 B(J) "5 "FIXED PRODUCTION COST=$ ";F1000;"/ QUARTER"c "VARIABLE PRODUCTION COST=$ ";U;"/ UNIT" "WITH NO ADVERTISING AND A SELLING PRICE" "OF $50/ UNIT A COMPANY WILL SELL ";K2500 ""UNITS (PRINTED AS ";K22;")" '"WAREHOUSE CHARGE FOR, 2 FOR CONTINUING)"; A% " "2 A1270= J12m "COMPANY "J;" ENTER PREVIOUS CASH ON HAND" "PREVIOUS INVENTORY"; C(J),I(J) " " J "ENTER VARIABLE PRODUCTION COST"; U "ENTER QUARTER NUMBER"; Q "ELLS IS"4 "DEPENDENT UPON PRICE AND ADVERTISING"b "BUDGET. THE GAME ENDS WHEN ONE COMPANY" "GOES BANKRUPT OR REACHES ";.001M1 "MILLION IN TOTAL ASSETS." " " "ARE YOU BEGINNING THE GAME OR CONTINUING" "(TYPE 1 FOR BEGINNING H? K2,N,K,K3,C(1),C(2),I(1),I(2),F,U,R,G1,G2,G3,M1,K4H Q0N [ H0200 "MARKET SIMULATES THE COMPETITION BETWEEN" "TWO COMPANIES SELLING A PRODUCT" "DIFFERENTIATED BY BRAND ADVERTISING." "THE QUANTITY EACH COMPANY SZ$_5:14::"STOCK MARKET"*aod MARKET-SIMULATION OF MARKET COMPETITION BETWEEN 2 COMPANIES }R(X).01(100X.5)C(2),I(2),T(2),A(2),L(2),D(2),P(2),V(2),W(2),B(2),E(5) "DO YOU WANT INSTRUCTIONS(TYPE 1 FOR YES,0 FOR NO)";          F$" ":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)N89Z02:N(Z)V(Z):V(Z)100N(Z)GG:?;7M=R21700i@:"COMPOUNDED ";D$(G);TB2ĺ" OVER ";(M100)100;F$;L$(G);^::"BASED ON ";O;" DAYS PER ACCOUNTING YEAR":15000:"# "L$(G);:Z02:V(Z)M(Z)::7:1600bMDPCV(0)W:V(1)W:1570UR2V(0)(DC)(WM)W:V(1)(CD)(WM)W:1570~N(((DMP)C)(WT)W)GG:1:V(0)NN((CDM)(WT)W)GG:3:V(1)N"MDPCV(2)1:1593,R2V(2)((CP)D)(WM)W:15936N(((CP)(DM))(WT)MM(1):1100:V(1)(CX3X5)X2:B4V(1)0V(1)W:1440KV(1)0V(1)0CC(2):DD(2):MM(2):1100:V(2)CX3X5X2:B4V(2)0V(2)W:1445V(2)0V(2)0Z02:P(Z)V(Z):7:"APR %";:B0āZ02:V(Z)F100:N(Z)N::1595 (0)W:V(1)W:1360@AV(0)(D(0)C(0))(X5):V(1)W:V(2)WWPZ02:M(Z)V(Z):exR21500:"BALLOON";:B0āZ02:V(Z)P::1450DD(0):CC(0):MM(0):1100:V(0)(CX3)X2:B4V(0)0V(0)W:1430V(0)0V(0)08CC(1):DD(1):1320V(0)(((NCD)(NPD)))(X5):V(1)(((CND(X5))(PND(X5))))(X5):V(2)(((CP)N)(D(X5))W)(X5):Z02:V(Z)(V(Z)):#Z02:M(Z)V(Z):(ND1:7-B014002R214007D(0)C(0)1345<V(2)(C(2)D(2))(X5):VV(Z)D::1220V(0)(R1)((CX4)X1.005)(R2)CX2:V(1)(R1)((CX4)(X1X5).005)(R2):V(2)(R1)((CP)X2(X1X5).005)(R2)(CP)X27:Z02:D(Z)V(Z)::"# PMTS";:R2V(0)1:V(1)1:V(2)1:1320B2āZ02:V(Z)M:M(Z)M::LB0X1(W(WN)M)N:X2(WN)M:X3DX1:X4PX2:X5WN:eV:A$;:B3āZ02:V(Z)C::1130`V(0)(R1)(X3X4)(R2)DX2:V(1)(R1)(X3X5X4)(R2):V(2)(R1)(X3X5X2P)(R2)DX2j7:Z02:C(Z)V(Z)::"PMT/DEP";:BWāZ02:S$)13)2 `S2QQ115020 a:11)G$:6)B$(A);F$;"AMORTIZATION SCHEDULE":15:"PMT# INTEREST PRINCIPAL BALANCE":15: dQ0:" ? ";S$:S(S$):SPPSOOĺH$:Q1: n 20000:" ";13)B$(0);23)B$(1);32)B$(2):15 1100:1110>2)0:PR(A0)BA(A1)(P(A)IN)(A2)P(A):BA(A0)0(A1)(BAPR)(A2)(BAP(A)):93` \95 ]"BLN";:V(0)IN:V(1)PR:V(2)BA:7:T3T3IN:T4T4PR:ZW:82 ^LL15(BBM(A)7LL17)ı _"HIT 'RTN' TO CONTINUE, ANY KEY TO EXIT";:S$::LL0:S((2T2PR:BBM(A)80 K P15:XXXXW:"YR";:TT5:ND1:VXX:10:ND0:V(0)T1:V(1)T2:V(2)BA:7:T3T3T1:T4T4T2:T10:T20 R"CUM";:V(0)T3:V(1)T4:7:LLLL4:15:94:QQ195 UBBM(A)91 Z43X [QQ1:P(A).005IN(A0)0(A1)N(A)BA(A U038:"-";:::/ (QQ0:ZZAA:97:459 +ZZGGF -DD1ZZ 2INN(A)(BA(BB0)(A1)BA(A2)D(A)):PRD(A)(A2)IN:BABA(A2)PR(A2)(INPR):BBBB1 AJJWVBB:NDW:TT4:10:ND0:V(0)IN:V(1)PR:V(2)BA:7:LLLLW:94 FT1T1IN:T1İ10:V(Z)((V(Z).005)100)100:Z::ND0:H TT6)"NO ANS";:::f V1E8V$"*.**":KK2:13 V.005V$".00":KK1:13 V$(V.005):KK1(V$):(V$,KK,1)"."Ă TTKK23ND)(V$,KK23ND);:(V$)KK2ĺ(".00",KK(V$)2); TW1:10000LDTN(CP(WN)M)(W(WN)M):DDT.001NNDDT:1RDT(N(CP(WN)M))((W(WN)M)(WN)):DTD.001NNDDT:3DT(CP)N((WN)(MW)(WN)):DTD.001NNDTD:5- Z02:TT11Z17:VV(Z):V          13,1,95,2,101" B 2,127,6,95,255< FN080:D:S0N,D:NY KN0134:D:A0N,D:N: 2,955 < 1,95,1,95,2,85,1,75,1,85,2,113,1,113,1,113` = 2,101,1,95,6,85,2,127,1,95,2,85,1,95 > 1,101,2,95,1,101,4,113,4,127,2,95,2,95 ? 2,85,2,75,6,113,2,113,1,101,2,101,1,101 @ 1,101,2,113,1,127,1,95,2,95,1,95,1,95 A 2,85,1,75,1,85,2,1240,3,173,48,192,164J 7 253,136,198,255,208,223,198,254,208,215,198,252s 8 208,207,230,249,230,249,24,144,179 9 1,95,2,85,1,95,1,101,2,95,1,101,4,113,4,127 : 1,95,2,95,1,95,2,101,2,95,6,85,2,127 ; 1,101,2,101,1,101,1,101,2,113,1,127,1,95,250,A1:251,A2:S0:D 2 169,1,133,249,164,249,177,250,201,255,208s 3 1,96,133,252,200,177,250,133,253,166,253 4 164,253,136,169,32,133,254,169,255,133,255,202 5 208,11,165,253,201,100,240,3,173,48,192,166,253 6 136,208,12,165,253,201,100,..  2,....................................................................................................................................... :D$:S1(125):S2(126):S0S1S22561 D$:D$:A1(125):A2(126):A0A1A22561 #D$:70 ([ CELISTIAL MUSIC PROGRAM BY LEO CHRISTOPHERSON MARCH 1982 CREATIVE COMPUTING VOLUME 8 NUMBER 3, NU SONG TYPED IN BY MIKE MILLER. :" NU SONG"  1,..............................................................................  "";"RUN MENU" n" :::O " NEBRASKA DEPARTMENT OF EDUCATION"| " DIVISION OF VOCATIONAL EDUCATION" " 301 CENTENNAIL MALL SOUTH" " LINCOLN NEBRASKA" ,A************" ?200' AI13000:I- C9 F:::C H:: K"THESE PUBLIC DOMAIN PROGRAMS HAVE BEEN MADE AVAILABLE THROUGH"; L:" VEMSEN ": P"THIS DISTRIBUTION DOES NOT IMPLY THE INDORSEMENT OF THESE PROGRAMS." ZI14000: d2 " ";::"GREETINGS":F18)"FROM THE"LT:y9)"**************************"9)"* VOCATIONAL EDUCATION *"(9)"* MICROCOMPUTER SOFTWARE *"29)"* EXCHANGE NETWORK *" <9)"**************  , и` X$i( " X , 7 , ͭ) ; # ͭ  ; ` o ɱɸ" L; )  o ɱɳ# L_ )Ĭ̴ D   , b Y L> b @   Lvم380` X L !   - `" X    i( ! oMONTH":M"# OF MONTHS":A'NM2B1ADZM(I11200)NXMZXMXN_Bg:X"RATE";10);"MONTHLY INV";25);"MONTH";32);"PRINICPAL"b" ";I1;11);"$ ";N;27);B;32);"$ ";(100X.5)100v' I1""# OF PERIODS IN YEAR":Y-II1YFF1P((1(I100))N)N:"PRES VAL";13);"YEARS";20);"RATE";30);"FUTURE VAL""$ ";P;14);N;21);I1;30);"$ ";(100F1.5)100p"INTEREST RATE PER YEAR(%)":I1 z"INVESTMENT PER ODS IN YEAR":YI1IY4PF1((1(I1100))N)<:x"FUTURE VAL";13);"YEARS";20);"RATE";30);"PRINCIPAL""$ ";F1;14);N;21);I;30);"$ ";(P100.5)100"PRES. VALUE":P"TIME PERIODS":N"YEARLY INTEREST RATE(%)":  II1J :N "FUTURE VAL";13);"PRINCIPAL";26);"YEARS";35);"RATE" "$ ";F1;13);"$ ";P;27);N;36);(I10.5)10 "INPUT FUTURE VALUE":F1"INPUT NO. OF TIME PERIODS":N"INPUT INTEREST RATE(%)":I"INPUT # OF PERI"PRES. VAL ";26);"RATE";33);"YEARS"Z "$ ";F1;13);"$ ";P;27);I1;34);(N10.5)10` ~ "INPUT FUTURE VALUE":F1 "INPUT PRINCIPAL":P "INPUT NO. OF TIME PERIODS":N "INPUT # OF PERIODS IN YEAR":J I1100(((F1P)(1N))1)"INTEREST"? "$ ";P;18);N;26);I;33);"$ ";(I1100.5)100E $] "FUTURE VALUE":F1u "PRESENT VALUE":P "YEARLY INT. RATE(%)":I1 "# OF PERIODS IN YEAR":Y II1Y : N((F1)(P))(1(I100))& "FUTURE VAL ";13);"140 r9999) "INPUT PRINCIPAL":PM "INPUT NO. OF TIME PERIODS":Nn "INPUT INTEREST RATE(%)":I "INPUT # OF PERIODS IN YEAR":J I2IJ P1P((1(I2100))N) I1P1P : "PRINCIPAL";15);"# PERIODS";25);"RATE";33); 301 2000 301$ 3000- 3017 !4000@ "301J $5000S %301] '6000f (301l -r 6x @~ J T"IF YOU WISH TO EXECUTE ANOTHER SUBPROGRAM," Y"INPUT Y. IF YOU DONT WISH TO CONTINUE, INPUT N. ^Z$ _ hZ$"Y"5. FUTURE VALUE"9 13);"6. INVESTING D$ FOR Y YEARS"? E o "PLEASE INPUT THE SUBPROGRAM NUMBER" "TO EXECUTE THE DESIRED COMPUTATION" Q Q1280 Q2283 Q3286 Q4289 Q5292 Q6295 1000 x,:13);"INTEREST SUBROUTINES":T"THIS PROGRAM HAS SIX SUBPROGRAMS"p"THEY ARE AS FOLLOWS."v13);"1. INTEREST AMOUNT"13);"2. NUMBER OF TIME PERIODS"13);"3. INTEREST RATE"13);"4. PRESENT VALUE" 13);      TB0ĪY3000 ^Y:""8 "INTEREST PAID IN ";Y;30)"$";(100I1.5)100i ""TOTAL INTEREST PAID";31);(100I2.5)100 ,"PRINCIPAL PAID IN ";Y;31);(100P1.5)100 6"TOTAL PRINCIPAL PAID";31);(100P2.5)100 @"REMAINING BALANCE";31);B JI10:P10:M1" JM12* IBR12:I1I1I:I2I2ID PAI:P1P1P:P2P2PU B(A)ĪBP_ BBP I(I100.5)100:P(P100.5)100:B(B100.5)100 "";J;8);A;16);I;24);P;32);B B(A)ĪA((BR12B)100.5)100 B0ĪJ12 J 13);"LOAN REPAYMENT"" x"":""D "AMOUNT OF LOAN:";30);"$";Bc "MONTHLY PAYMENT:";32);A "ANNUAL INTEREST RATE:";30);100R;"%" Y19793000 "" 15);"YEAR";Y:"" "MONTH";8);"PAYMT";16);"INTST";24);"PRINC";32);"BALANCEP:12:"LOAN REPAYMENT"5S15:"SCHEDULE"::TZ"INPUT AMOUNT OF LOAN":B_"INPUT WHAT YOU WANT TO PAY PER MONTH":Aa"INPUT THE INTEREST RATE (%)":R:RR100b"INPUT THE MONTH NUMBER YOU WANT TO START PAYMENT":MdeA1A n    1OOSE PROGRAM BY NUMBER...";CHOICE5 $CHOICE0ĀO .D$;"RUN ";A$(CHOICE)MS   HEART (NN1:A$(N); 2A$(N)"9"NN1:1010C <40K  9f 15::"DISC MENU"::z " ";0;". EXIT" X1N:X10ĺ" "; X;". ";A$(X): 23::" CHOOSE PROGRAM BY NUMBER...";CHOICE $CHOICE0Ā .D$;"RUN ";A$(CHOICE) A$(80):D$"",D$;"NOMON C,I,O": ALCOHOLIC INTAKE,ANNUITY,BONDS,COST BENEFIT ANALYSIS,DIRECT REDUCTION ON LOANS EARNED INTEREST TABLE,FINANCE I  INTEREST SUBROUTINES,LOAN REPAYMENT SCHEDULE, STOCK MARKET, TWENTY FINANCE PROGRA  FINGER"?K1500:KQD"A MAN COMES IN WITH THE FOLLOWING":"PRESCRIPTION:")I:5);" JOHN SMITH ":5);" 2112 NW REGINALD PL. ":5);" PORTLAND,OR 97221 ":5);" ":5);" PERCODAN E CONTRARY!!":PRPR10:5502A5A2PRPR5S&"THE CORRECT ANSWER IS # 2"]05000:D0ĺ"MR. ROGERS RELATIVES HAVE COME TO PAY":K1200:K:"NOT MONEY, JUST A VISIT":"WHEN THEY LEAVE YOU HAVE A BROKEN TYPE":"WRITER, AND A BROKEN TYPING SHOULD TAKE TO":"INCREASE HIS LIBIDO""(1) HALOPERIDOL":"(2) LEVODOPA":"(3) PRIMIDINE":"(4) LITHIUM":"(5) BOOZE":"(6) BETHANIDE""WHICH ONE ";AA2ĺ"MAGNIFICENT, YOU OBVIOUSLY KNOW":"SOMETHING ABOUT THAT":PRPR15A5ĺ"QUITE THA4ĺ"CORRECT ! VERY GOOD ":PRPR10rA4ĺ"THAT'S WRONG, DUMMY!":"THE CORRECT ANSWER IS # 4":PRPR5:5000D$" HAS ANOTHER QUESTION ":D0ĺ"AND THAT'S STRANGE BECAUSE HE'S DEAD"&"HE WOULD LIKE TO KNOW WHICH OF THE":"FOLLOWING DRUGS HE E$;" HAS ANOTHER QUESTION.":"OF THE FOLLOWING ITEMS:""(1) COCAINE":"(2) ELAVIL":"(3) METHYLPHENIDATE":"(4) METHOTRIMEPRAZINE":"(5) EPHEDRINE":"(6) DIETHYLPROPION""WHICH WOULD MOST INCREASE THE CLINICAL":"EFFECT OF GUANETHIDINE ";A%RPR10KA1A3A5ĺ"THAT'S WRONG! THE CORRECT ANSWER IS (4)":PRPR5U5000A$(3)""A$(4)""ĺ"MR. ROGERS IS SLIDING DOWN HILL.":"HE MAY NOT LAST MUCH LONGER BECAUSE YOU FAILED TO SOLVE HIS PROBLEM CORRECTLY.":DD15D0100007"(2) FOOD"("(3) CEPHALOSPORIN">"(4) PROBENECID"V"(5) ERYTHROMYCIN""INCREASES THE EFFECT OF PENICILLIN ";AA4ĺ"THAT WASN'T VERY DIFFICULT, WAS IT?":PRPR10A2ĺ"YOU SHOULD BE ASHAMED OF YOURSELF!":"ARE YOU JOKING?":PHOULD HE MOST AVOID WHILE HE IS TAKING SULFONYLUREA ";AVrA1ĺ"RIGHT!":PRPR5wA1ĺ"WRONG!! HE SHOULD STAY OFF THE BOOZE":PRPR10|5000E$;" CALLED AND HAS A QUESTION.":"WHICH OF THE FOLLOWING SUBSTANCES:""(1) TETRACYCLINE"BLEM CORRECTLY":"AND YOUR PATIENT IS DOING MUCH BETTER"IJDD15:5000j^D0ĺD$;" HAS A QUESTION."h"OF THE FOLLOWING SUBSTANCES:"j"(1) ETHYL ALCOHOL"l"(2) COUMERIN"n"(3) INDERAL"p"(4) CHLORAMPHENICOL";q"WHICH OF THESE SR. ROGERS RETURNS":I17:A$(I)""ĺ"(";I;")";A$(I)::I 6"WHICH IS THE SECOND DRUG THAT YOU WOULD LIKE HIM TO DISCONTINUE ";X:A$(X)""ĺ"YOU HAVE ALREADY DELETED THAT ONE." ;A$(X)""3008@A$(X)"":A$(3)""A$(4)""ĺ"YOU HAVE SOLVED THE PRODD5:5000:1903 X6PRPR50:D0:5000:10000@ T3320` X4000,4000,4100,4200,4300 "THEY NEED HELP UP FRONT!" I17:"(";I;")";C$(I)::I "WHO DO YOU SEND ";Z:Z1Z7220 Z7000,7000,7100,7200,7300,7400,7500:5000: ,"MNY OF THESE DRUGS. BUT, HE AGREES TO ":"STOP ONE PER DAY IN ORDER TO CURE HIM" "WHICH ONE SHOULD HE STOP USING FIRST ";X:A$(X)"" X1X2PRPR20:DD20:5000:190 X3PRPR5:5000:190 X4PRPR10:DD5:5000:190 X5PRPR3:00:"MR. ROGERS IS SUFFERING FROM NAUSEA,"n n"VOMITING,CRAMPING, AND DIARRHEA.":"HE'S VERY UNCOMFORTABLE." x"THE CURRENT LIST OF MEDICATION HE IS":"TAKING FOLLOWS:": I16:"(";I;")";A$(I)::IO "HE DOESN'T REALLY WANT TO DISCONTINUE":"ATHESE" :5:T0:D100:PR0 "WELCOME TO THE GAME OF PHARMACY":"CAN YOU KEEP YOUR PATIENT ALIVE,":"AND YOURSELF OUT OF TROUBLE? WE'LL SEE!" J1200:J (5000:"DO YOU NEED INSTRUCTIONS ";A$:(A$,1)"Y"İ6000 2I11000:I* dD90:50$ 100lC$(1)"KIM":C$(2)"RICH":C$(3)"PAUL":C$(4)"NADINE":C$(5)"JIM":C$(6)"STEVE":C$(7)"NO ONE" D$"MR. ROGERS":E$"MRS. MURPHY" A$(1)"ASPIRIN":A$(2)"DIMENHYDRINATE":A$(3)"SINEQUAN":A$(4)"LINCOMYCIN":A$(5)"SUCARYL":A$(6)"NONE OF !! ! ! ! ! !!!!!!!!!      250 20 .05( .2,.4,.44 12000> 1.5^7);"********************""COMPANY "J;" YOU HAVE GONE BANKRUPT"7);"********************"P417P(1)P(2)1015M21020M1G4(P(3M)P(M)) w"%4:(2010(J1))_UI(J)C(J)B(J):(2010(J1)):W(J):(2010(J1))C(J):(2010(J1)):T(J):(2010(J1))I(J):(2010(J1)):UI(J)C(J) 50 2.001 .05 5000,5000 100,100)A(1)A2RV(2)A(2)A27WD1(K2K2(KA2))K4=\Fa" "Of" "ck:"QUARTER ";Qtm"---------"}p" "q3:17:"COMPANY 1 COMPANY 2"t4:u"PROFIT":"MARKET SHARE":"CASH ON HAND":"NUMBER SOLD":"INVENTORY":"ASSETS"vAE(1)1800$AP(J)800- " "X"YOU MAY NOT RAISE PRICES DURING THE"q"WAGE-PRICE FREEZE"z" "760 P(J)A%A200760*P(J)0760/J4A2A(1)A(2)9A20845>V(1)0CV(2)0H855 MV(1(2)17156"NO PRODUCTION POSSIBLE DUE TO STRIKE"?730X"PRODUCTION LEVEL";bL(J)rL(J)0715"ADVERTISING BUDGET";A(J)A(J)0730C(J)C(J)FL(J)UA(J)E(2)1760I(J)I(J)L(J)"UNIT PRICE";14);"""%g" ",lJ5q" "EvP417410N{" "q"DO YOU WANT TO PLAY AGAIN ?""(TYPE 1 FOR YES, 0 FOR NO)";HH0670" "1351510" "J12" ""COMPANY ";J E &900+B(J)C(J)UI(J)/0B(J)058085" "A:975J?" "[DB(J)M1620zIB(J)C(3J)UI(3J)620NP417S" "X14);"********************"]"COMPANY ";J;" YOU HAVE REACHED ".001M1_"MILLION AND WON!!!!!!!"bT(J))C(J)C(J)T(J)P(J)2I(J)I(J)T(J)9JDJ12zC(J)C(J)RI(J)UK3C(J)((C(J))(C(J))2)2C(J)(C(J))E(5)0530W(J)0 540T(1)T(2)0520W(J)(10000T(J)(T(1)T(2)))100J!J12UI(J)C(J)900J%" "0QQ1:1060C675L865a COMPUTE DEMANDlJ12D(J)(1E(5)).5(K22V(J)D1)(P(J)50)NJ1000J12D(J)I(J)475T(J)D(J)480T(J)I(J)T(J)( INVENTORY=";R100;"%"K ,"INTEREST CHARGE ON BORROWED MONEY=";K3100;"%"T @" "] E" " J"UNITS AND DOLLARS BELOW ARE IN THOUSANDS" T" " YJ15 ^E(J)0 cJ hP40 m875 rJ12 wW(J)0 |D(J)0 T(J)0 B(J) "5 "FIXED PRODUCTION COST=$ ";F1000;"/ QUARTER"c "VARIABLE PRODUCTION COST=$ ";U;"/ UNIT" "WITH NO ADVERTISING AND A SELLING PRICE" "OF $50/ UNIT A COMPANY WILL SELL ";K2500 ""UNITS (PRINTED AS ";K22;")" '"WAREHOUSE CHARGE FOR, 2 FOR CONTINUING)"; A% " "2 A1270= J12m "COMPANY "J;" ENTER PREVIOUS CASH ON HAND" "PREVIOUS INVENTORY"; C(J),I(J) " " J "ENTER VARIABLE PRODUCTION COST"; U "ENTER QUARTER NUMBER"; Q "ELLS IS"4 "DEPENDENT UPON PRICE AND ADVERTISING"b "BUDGET. THE GAME ENDS WHEN ONE COMPANY" "GOES BANKRUPT OR REACHES ";.001M1 "MILLION IN TOTAL ASSETS." " " "ARE YOU BEGINNING THE GAME OR CONTINUING" "(TYPE 1 FOR BEGINNING H? K2,N,K,K3,C(1),C(2),I(1),I(2),F,U,R,G1,G2,G3,M1,K4H Q0N [ H0200 "MARKET SIMULATES THE COMPETITION BETWEEN" "TWO COMPANIES SELLING A PRODUCT" "DIFFERENTIATED BY BRAND ADVERTISING." "THE QUANTITY EACH COMPANY SZ$_5:14::"STOCK MARKET"*aod MARKET-SIMULATION OF MARKET COMPETITION BETWEEN 2 COMPANIES }R(X).01(100X.5)C(2),I(2),T(2),A(2),L(2),D(2),P(2),V(2),W(2),B(2),E(5) "DO YOU WANT INSTRUCTIONS(TYPE 1 FOR YES,0 FOR NO)";"" " " " " """""""""