Š‹{å<÷2,@-@ ./r< 0|< 1†< 2< 3š< 4@ 567X>€89<d:¤< ;®< <€=*****************›** PORTVAL 9 **›*****************›k@‚'@ƒ@9* 1 }>€;@,k (                ÐÏÒÔÖÁ̹                X  - THIS PROGRAM IS A SIMPLE STOCK X &PORTFOLIO PROGRAM. IT WILL PERMIT THEX- %USE TO STORE DATA ABOUT HIS PORTFOLIOX &OF SECURITIES AS WELL AS GIVE A PROFITS+ #ANALYSIS OF THE PORTFOLIO. FOR EACHS #COMPANY WE STORE STOCK TICKER CODE,R, $COMPANY NAME, DATE OF PURCHASE, # OFR !UNITS PURCHASED, PURCHAS PR/UNIT, // 'PRESENT PR/UNIT, YEARLY DIVIDENDS/UNIT. \ 1 &THE ANALYSIS COMPUTES SUCH ELEMENTS AS\ &PORTFOLIO AT COST, VALUE OF PORTFOLIO,  PRESENT YIELD, ETC. 4-@"0 PRESS ENTER TO BEGIN 4€ bb;A,‚9A <@,ƒ;A,„9A <@,…;@,†;@P,·;@,(””€;@,Ž;@0,”;@€,›;@,œ;@0,£;A,¹;A,¯;@,°;@,±;@,²;@,³;@,º;@,2hh»;@,9@,“;@P,¢;@P,¥;@P,§;@P,©;@P,;@€,«;@P,<YY6”.O F{-@w67$@P%@<+%@,$@P,.2 { K 6ƒ.P 6….D1ô: }7 (                ÍÁÉΠÍÅÎÕ               : þ)) ! 1. ADD TO FILE OR BEGIN NEW FILE&&  2. SWITCH DRIVES (DEFAULT =1)  3. NOT IMPLEMENTED""  4. READ FILE IN FROM DISK&""  5. WRITE FILE OUT TO DISK0  6. EDIT FILE:)) ! 7. LIST FILE AND PROFIT ANALYSISD##  8. DELETE RECORD FROM FILEN  9. END PROGRAMS 6œ.X@-@- ENTER YOUR CHOICE 1€@€4AbB‡-@B:€,B@:€7‡<‡,, @G)@:€7‡<‡,,!@YAl ‡m 6ˆ-A:€,nOOˆAA A!A"A#A0APApA™˜o Aè,,ADD TO OR START FILE ALREADY IN MEMORY›é6‰-@í6Š-@ òW }‹"# NEW FILE5-@ S PRESS ENTER TO CONTINUE W†÷6Œ-‹%@ü A`INPUT 1 RECORD› BPRINT HEADINGS› " Aa"PRINT OUT 1 RECORD›. B.€7@<@,4NA €7@<@,4A$$&6‹-‹%@&NEW RECORD ON FILE›. BMORE?›8$$€7@<@,4YA=$ÐU …4D16….D2 }3 DRIVE 2 NOW ACTIVEG-@APK R }U$ÚL 6….D1 }* DRIVE 1 NOW ACTIVE>-@APB I }L$ø$4›f$˜READ IN FILE FROM DISK›™6‰-@¢I }% PUT DATA DISK IN DRIVE( E PRESS ENTER WHEN READY I†¤ }§3 }-@@3 ªª ÒÅÁÄÉÎÇ ÄÁÔÁ ªª©-@@¬'# WHAT IS NAME OF DISK FILE 'Ž¶3 6.…67B:,%@,.:367B:,%@,.Ž» @@À@‹ÊŒ-@‹Ì-@@Îs 6‘-Œ6’- B&@“:6“.“7@-@"> $CHANGE TICKER CODE TO ZZZZ TO DELETE¾Y-@A --@#U "ENTER # OF ITEM TO EDIT,0 IF NONE Y›¿1 ›4'@„F:@„,&@1 A@0Àa-@B:›,:@:›7<,, @G)@:›7<,,!@YW@„F:@„,&@a A@0Á  6Œ-A:›,Ã5Œ"6Œ-š }& B26Š-@%5$È } BÒM6Š-@% Aa+-@"I PRESS ENTER TO CONTINUE M€Ü  A`æ } Bð-Š@ Œ Aaú A@ ˆLIST FILE WITH ANALYSIS›‰H‰" }- SORRY, NO DATA YETA-@AE H$Š6Š-@%R, #IS A LINE PRINTER TO BE USED (Y/N) 0œ>œ0Y*œ0NH BR AP’% }"  LIST MENU% œ## 1. COMPLETE LIST AS ON FILE¦A* "2. LIST WITH PAPER PROFIT, YIELD &A  PORTFOLIO VALUEº 3. END LIST PROGRAMÄ= AP` / ENTER APPROPRIATE CHOICE 3ˆ= BɈ"@$ΈARASØ APì$PCOMPLETE LIST›Uf }#œ7@<@,4Y> PUT PAPER INTO PRINTERA f PRESS ENTER WHEN PRINTER READY V œ7@<@,4Y †X] œ4Y]3M TK PURCH DATE PRESENT YIELD PRESENT %Y_ œ4Y_3O CODE NAME PURCH. PR/UNIT PR/UNIT DIV/UNIT UNITSZ_ œ4Y_3O ---- ---- ------ ------- ------- -------- -----[7 œ4Y B#Œ-@‹- Aa1 Œ437$]) BŒ-@‹% Aa) Œ^+ $ PRESS ENTER TO CONTINUE (†+$_ Bd6Š-@%Œ-@‹n Aa 1 PRINTED RECORD›sG Œ"‹-@"9 PRESS ENTER TO CONTINUE =†G ARPxjŠ"@%!-@"? PRESS ENTER TO CONTINUE C†J }T B`6Š-@ j ARP‚ ŒŒ7-@#3 PRESS ENTER TO CONTINUE 7†–$´PORTFOLIO ANALYSIS›¾W68@,--68@,-B68@,-W68@,-Ã0 }-@@0 ªª ÃÏÍÐÕÔÉÎÇ ªªÈŒ-@‹ÒI568@,-8@,%‚8Œ<@,$‚8Œ<@,IPORTFOLIO AT COST›ÜK568@,-8@,%‚8Œ<@,$‚8Œ<@,KPORTFOLIO VALUE NOW›æG568@,-8@,%‚8Œ<@,$‚8Œ<@,GTOTAL DIVIDENDS›ðD46‚8Œ<@,-‚8Œ<@,'‚8Œ<@,$ADPRESENT YIELD›úG<6‚8Œ<@,-‚8Œ<@,'‚8Œ<@,$A&AG% PROFIT›<,6‚8Œ<@,-‚8Œ<@,$‚8Œ<@,<PRESENT VALUE› Œœ4N)œ4AT Œ-@‹/ 6‘-Œ6’-@ B) B /6ž-Ÿ/ 6‘-Œ6’-@ B) B /6 -Ÿx6¡-‚8Œ<@, B$6§.£*6¨-Ÿ;6¡-‚8Œ<@,E BK6©.£Q6ª-Ÿb6¡-‚8Œ<@,l Br6«.£x6¬-ŸZ 6‘-Œ6’-@ BZ3TK CODE :7™$@0%@<™$@0%ž,Z 6‘-Œ6’-@ BZ3DATE PURCH. :7™$@0%@<™$@0% ,**3PURCH PR/UNIT :‚8Œ<@,F*3PRESENT PR/UNIT :‚8Œ<@,F3YIELD % :§3PRESENT VALUE :©3% PROFIT :« 3 3 Œ   ATe! B "6Š-@%Œ-@‹, B@-Š"@4*Œ"‹ATP66Š-@%@’-@A ’J ŒT8-@"4 PRESS RETURN TO CONTINUE 8†Y* }-@@*  COMPUTING_(6¡-8@, B"6¯.£(6ž-Ÿ`(6¡-8@, B"6°.£(6 -Ÿa36¡-8@,&8@,' B-6±.£36¤-Ÿb(6¡-8@, B"6².£(6¦-Ÿc36¡-8@,'8@,' B-6³.£36¨-Ÿe }h>& PORTFOLIO VALUE AT COST ::@…@5&ž> ¯iE œ4YE3PORTFOLIO VALUE AT COST :”7@<@&ž,¯m>& PRESENT PORTFOLIO VALUE ::@…@5& > °nE œ4YE3PRESENT PORTFOLIO VALUE :”7@<@& ,°o>& DOLLAR PAPER PROFIT ::@…@5&¤> ±pE œ4YE3DOLLAR PAPER PROFIT :”7@<@&¤,±r>& TOTAL DIVIDENDS PER YEAR ::@…@5&¦> ²sE œ4YE3TOTAL DIVIDENDS PER YEAR :”7@<@&¦,²w>& DIVIDEND YIELD ::@…@5&¨> ³yE œ4YE3DIVIDEND YIELD :”7@<@&¨,³z6 3 (----------------------------------------6 {c œ4Y`3P--------------------------------------------------------------------------------c3|   †:-@ 3 PRESS ENTER TO CONTINUE 7†:$p++SBR FOR FORMATTING DATA ON 1 PURCHASE›u }z! STOCK TICKER CODE !“|<B:“, @0<6“7B:“,%@,.”7@<@0&B:“,,~L 6‘-Œ6’-@ BL67™$@0%@<+™%@,$@0,.“„! COMPANY NAME !“†<B:“, @0<6“7B:“,%@,.”7@<@0&B:“,,ˆL 6‘-Œ6’-@ BL67™$@0%@<+™%@,$@0,.“Ž! DATE OF PURCHASE !“<B:“, @0<6“7B:“,%@,.”7@<@0&B:“,,’L 6‘-Œ6’-@ BL67™$@0%@<+™%@,$@0,.“˜5 A`@' # OF UNITS PURCHASED+•5 Bš6‚8Œ<@,-•¢5 A`P' PURCHASE PR/UNIT +–5 B¤6‚8Œ<@,-–¬5 A``' PRESENT PR/UNIT +—5 B®6‚8Œ<@,-—¶5 A`p' YEARLY DIV/UNIT +˜5 B¸6‚8Œ<@,-˜Ó$ÔPRINT 1 LINE OF PORTFOLIO›Öx 6‘-Œ6’-@ B+6´-@?­-@@0`7™$@0%­<™$@0%­,0 n6´-´%@r ­x6ž-´×‚ ­ 6ž-´6‘-Œ6’-@) B56´-@I­-@@0j7™$@0%­<™$@0%­,0 x6´-´%@| ­‚6 -´Ø‚ ­ 6 -´6‘-Œ6’-@) B56´-@I­-@@0j7™$@0%­<™$@0%­,0 x6´-´%@| ­‚6¤-´Ù4 ­ 6¤-´6¡-‚8Œ<@,( B.6§.£46ª-ŸÚ*6¡-‚8Œ<@, B$6©.£*6¬-ŸÜ*6¡-‚8Œ<@, B$6¢.£*6¦-ŸÝ*6¡-‚8Œ<@, B$6¥.£*6¨-ŸÞ¤6.”7@<@&ž,"6‘-Œ.6’-@a67B:,%@,.7™$@0%@<™$@0%ž,ˆ67B:,%@,.”7@<@& ,Ž6‘-Œš6’-@¤ Bßy667B:,%@,.7™$@0%@<™$@0% ,]67B:,%@,.”7@<@&¤,c6‘-Œo6’-@y Bà˜667B:,%@,.7™$@0%@<™$@0%¤,]67B:,%@,.”7@<@ &¦,q67B:,%@,.¢˜67B:,%@,.”7@<@ &¨,á67B:,%@,.¥>67B:,%@,.”7@<@&ª,R67B:,%@,.§y67B:,%@,.”7@<@&¬,67B:,%@,.©â œ4Y3ãU-Š@6‘-Œ!6’-@+ BU 7™$@0%@<™$@0%@,äU-Š@6‘-Œ!6’-@+ BU 7™$@0%@<™$@0%@,åU-Š@6‘-Œ!6’-@+ BU 7™$@0%@<™$@0%@,æm -@@0  B-@@[  m-@@çG  .-@@ G  éo-Š@ ‚8Œ<@,*-Š@9 ‚8Œ<@,E-Š@T ‚8Œ<@,`-Š@ o ‚8Œ<@,ê&" PRESS RETURN TO CONTINUE &€ë$XDELETE SBR COMPUTATION›YH‰" }- SORRY, NO DATA YETA-@AE H$Z/ }-@@/ ªª ÄÅÌÅÔÉÎÇ ªª].6š-@.K=NO. OF RECORDS NOT DELETED›bŒ-@‹lW 6‘-Œ6’-@ BW7™$@0%@<™$@0%@,4ZZZZApvDO NOT DELETE RECORD›€µ-@@‚ 6‘-Œ6’-µ Bƒ 6‘-š6’-µ B6¶-™…WW6ƒ7¶$@0%@<+¶%@,$@0,.7™$@0%@<+™%@,$@0,‡ µŠ+µ-@@'6„8š<µ,-‚8Œ<µ,+ µ”6š-š%@ Ap² Œ¼6š-š&@6‹-šÆŒ-@‹Ð…µ-@@6‘-Œ#6’-µ- B67™$@0%@<+™%@,$@0,.ƒ7™$@0%@<+™%@,$@0,… µÚ+µ-@@'6‚8š<µ,-„8Œ<µ,+ µä Œî$'Q }3 $BE SURE TO SAVE DATA IF IT HAS BEEN M CHANGED. OK TO QUIT Q·'&·7@<@,4Y# }&'INPUT ERROR SBR›'7 INPUT ERROR! TRY AGAIN!3ˆ-@A7 ˆ$'$Ø'Y,N,A SBR›Ý' 6€.â'C-@"? $ENTER Y IF OK,N IF ERROR,A TO ABORT C€ì'+€0Y*€0N*€0A! B+ Bö'$<( Y,N,SBR›F(&" ENTER Y IF OK,N IF ERROR &€P(%€0Y*€0N B% BZ($ (MOVE ENTRY? SBR›¥( 6€. ª(.* !DO YOU DESIRE MORE ENTRIES (Y/N) .€´(%€0Y*€0N B% B¾($)ONLY Y/N SBR›)€0Y*€0N B)$ø*..ELIMINATES TRAILING BLANKS OF VARIAE Z8$›+<¸7B:¸,P,$A,'A0N6‘-@2NE 6£.=:¡,B:£, @E6£7B:£,%@,.”7@<@&B:£,,4N'6¹.£7B:£,&@&‘N4¹7@<@,0.46£7B:£,%@,..00HNH6Ÿ- ‡-@B:£,-£7‡<‡,0.;6Ÿ-Ÿ%@? ‡H6Ÿ-B:£,IN6¡-¡'BRN$ðUX }-@1 TK CODE :C-@X DATE PURCH. :ñUQ-@* PURCH. PR/UNIT :<-@Q PRES. PR/UNIT :òUQ-@* YIELD % :<-@Q PRESENT VALUE :óU--@* % PROFIT :-$ØYDD P,$A,'Aü]J-@@/  ;-Š@J ‚8Œ<@,^J-@@/  ;-Š@J ‚8Œ<@, ^&" PRESS RETURN TO CONTINUE &€^ ^$0u%%6™-+‘&@,$@%’%@:u$yZ }-@2 TK CODE :D-@Z CORP NAME :yS-@+ DATE PURCH :=-@S PURCH. PR/UNIT :ye-@+ PRESENT PR/UNIT :=-@S YEARLY DIV/UNIT :e-@ y NO. UNITS :$}Y6Ÿ-#­-@@0D7™$@0%­<™$@0%­,0 R6Ÿ-Ÿ%@V ­Y$ }$€ D:PORTVAL9