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`I`hhߚHH L @0ic i[ 0``----------------------"=" "TOTALS";Y);Z1$;V);Z2$;W);Z3$m"" "========================================"s"' PS! ************! ;! Z1ABBBCBDBEBFBGBW! Z2ADBDCDDDEDFDGDs! Z1(Z1.5):Z2(Z2.5)! Z3Z2Z1! Z3(Z3.5)! Z1$(Z1):Z2$(Z2):Z3$(Z3)! M$Z1$:O$Z2$:P$Z3$! 1980! :P1900:P" "------------------4):P$F$(5) 61980R 8F$(0);S);F$(1);Y);F$(2);U);F$(3);V);F$(4);W);F$(5)\ <856 >L$G$(1):M$G$(2):N$G$(3):O$G$(4):P$G$(5) @1980 BG$(0);S);G$(1);Y);G$(2);U);G$(3);V);G$(4);W);G$(5) ************! TOTAL$D$(5)1980N D$(0);S);D$(1);Y);D$(2);U);D$(3);V);D$(4);W);D$(5)X%856&L$E$(1):M$E$(2):N$E$(3):O$E$(4):P$E$(5)(1980*E$(0);S);E$(1);Y);E$(2);U);E$(3);V);E$(4);W);E$(5)/856 4L$F$(1):M$F$(2):N$F$(3):O$F$((5)  1980J B$(0);S);B$(1);Y);B$(2);U);B$(3);V);B$(4);W);B$(5)T856L$C$(1):M$C$(2):N$C$(3):O$C$(4):P$C$(5)1980C$(0);S);C$(1);Y);C$(2);U);C$(3);V);C$(4);W);C$(5)856L$D$(1):M$D$(2):N$D$(3):O$D$(4):P5);"VALUE";32);"DECREASE"J"----------------------------------------"PL$A$(1):M$A$(2):N$A$(3):O$A$(4):P$A$(5)1980A$(0);S);A$(1);Y);A$(2);U);A$(3);V);A$(4);W);A$(5)856L$B$(1):M$B$(2):N$B$(3):O$B$(4):P$B$P11000:P17);"MARKET VALUE OF SECURITIES"OT40:X(WW$):T(TX3)2bT);"ON ";WW$"----------------------------------------"5);" NO.";17);"MARKET";25);"MARKET";32);"INCREASE""CO.";5);"SHRS";11);"COST";17);"PRICE";2Y15:X(M$):YYX-U19:X(N$):UUX3DV30:X(O$):VVX[W39:X(P$):WWXa~ - ********************1950:P11000:P(10)12);"SUMMARY SCHEDULE"P13000:P ** SUMMARY SCHEDULE ** :G$(4)(GD)'GEGDGB:G$(5)(GE)1(22)_"PRESS ANY KEY FOR SUMMARY OF PORTFOLIO"mJ$:2000S8:X(L$):SSXY15:X(M$):YYXU19:X(N$):UUX3V30:X(O$):VVXW39:X(P$):WWXS8:X(L$):SSX"NUMBER OF SHARES : ";G$(1)?GA(G$(1)):GA(GA.5)QG$(1)(GA):z"TOTAL COST : $";G$(2)GB(G$(2)):GB(GB.5)G$(2)(GB)::"TODAY'S PRICE PER SHARE : $";G$(3)GC(G$(3)):GDGAGC:GD(GD.5)22)3"ARE THERE MORE SECURITIES TO BE ENTERED?"M" TYPE Y OR N":J$^J$"N"2000q:P11000:Pw"IMPORTANT":"THIS IS THE LAST SECURITY TO BE LISTED"(8):G$(10)"2 LETTER ID OF COMPANY : ";G$(0):#(1)):FA(FA.05)#F$(1)(FA):L"TOTAL COST : $";F$(2)hFB(F$(2)):FB(FB.5)|F$(2)(FB)::"TODAY'S PRICE PER SHARE : $";F$(3)FC(F$(3)):FDFAFC:FD(FD.5)F$(4)(FD)FEFDFB:F$(5)(FE)(jEEEDEB:E$(5)(EE)#l(22)Rn"ARE THERE MORE SECURITIES TO BE LISTED?"lp" TYPE Y OR N":J$}rJ$"N"2000:P11000:(8):F$(10)"2 LETTER ID OF COMPANY : ";F$(0):"NUMBER OF SHARES : ";F$(1)FA(F$ : ";E$(1)/ZEA(E$(1)):EA(EA.5)A\E$(1)(EA):k^"TOTAL COST : $";E$(2)`EB(E$(2)):EB(EB.5)bE$(2)(EB)::d"TODAY'S PRICE PER SHARE : $";E$(3)fEC(E$(3)):hEDEAEC:ED(ED.5)iE$(4)(ED)D$(4)(DD):O$D$(4)68DEDDDB:D$(5)(DE):P$D$(5)@:(22)o<"ARE THERE MORE SECURITIES TO BE LISTED?">" TYPE Y OR N":J$@J$"N"2000R:P11000:T(8):E$(10)V"2 LETTER I.D. OF COMPANY : ";E$(0):X"NUMBER OF SHARES";D$(1)#(DA(D$(1)):DA(DA.5)>*D$(1)(DA):L$D$(1):h,"TOTAL COST : $";D$(2).DB(D$(2)):DB(DB.5)0D$(2)(DB):M$D$(2):2"TODAY'S PRICE PER SHARE : $";D$(3)4DC(D$(3)):N$D$(3)6DDDADC:DD(DD.5)7$C$(4)) CECDCB:C$(5)(CE):P$C$(5)3(22)b"ARE THERE MORE SECURITIES TO BE LISTED?"|" TYPE Y OR N":J$J$"N"2000 :P11000:P"(8):D$(10)$"2 LETTER ID OF COMPANY : ";D$(0):&"NUMBER OF SHARES : (1)):CA(CA.5)+C$(1)(CA):L$C$(1):U"TOTAL COST : $";C$(2)qCB(C$(2)):CB(CB.5)C$(2)(CB):M$C$(2):"TODAY'S PRICE PER SHARE : $";C$(3)CC(C$(3)) N$C$(3): CDCACC:CD(CD.5) C$(4)(CD):OBB:B$(5)(BE):P$B$(5)"(22)Q"ARE THERE MORE SECURITIES TO BE LISTED?"k" TYPE Y OR N":J$|J$"N"2000:P1700:(8):C$(10)"2 LETTER ID OF COMPANY : ";C$(0):"NUMBER OF SHARES : ";C$(1)CA(C$)B$(1)(BA):L$B$(1):G" TOTAL COST : $";B$(2)cBB(B$(2)):BB(BB.5)~B$(2)(BB):M$B$(2):" TODAY'S PRICE PER SHARE : $";B$(3)BC(B$(3)):N$B$(3):BDBABC:BD(BD.5)B$(4)(BD):O$B$(4)BEBD l(22)8v"ARE THERE MORE SECURITIES TO BE LISTED?"M" TYPE Y OR N"UJ$gJ$"N"ī2000x:P1700:(8)B$(10)" 2 LETTER ID OF COMPANY : ";B$(0):" NUMBER OF SHARES : ";B$(1)BA(B$(1)):BA(BA.5$(1):1 D" TOTAL COST OF SHARES : ";A$(2)M IAB(A$(2)):AB(AB.5)h JA$(2)(AB):M$A$(2):n K N" TODAY'S PRICE PER SHARE : ";A$(3): SAC(A$(3)) XADAAAC:AD(AD.5) ZA$(4)(AD):O$A$(4) bAEADAB:A$(5)(AE):P$A$(5)ANY KEY TO CONTINUE":V$* !:P11000:3 "(4)^ #"ENTER TODAY'S DATE (MM/DD/YY): ";WW$g &(8)s +A$(10) 0" 2 LETTER ID OF COMPANY : ";A$(0) 5 :" NUMBER OF SHARES OWNED : ";A$(1) ?AA(A$(1)):AA(AA.5) @A$(1)(AA):L$A;"27.00" (23)7 "PRESS ANY KEY TO CONTINUE":V$J ,:P11000:PS 1(7)~ 6"THIS PROGRAM WILL LIST A MAXIMUM OF" ;"SEVEN SECURITIES. MORE CAN BE ADDED" @"BY REPLICATING THE ROUTINE LISTED IN" E"THE PROGRAM." J(22) O"PRESS  4 "TO ENTER THE PRICE PER SHARE CORRECTLY,"` "ALL FRACTIONS MUST BE CONVERTED TO A"p "DECIMAL."x : 5);"FOR EXAMPLE:" 8);"16 3/8 SHOULD BE ENTERED" 8);"AS 16.37" 8);"27 SHOULD BE ENTERED AS" 8)RITIES" P13000:P+ :P11000:P1 ^ "ALL AMOUNTS DISPLAYED BY THE COMPUTER" "IN THIS PROGRAM WILL BE ROUNDED TO THE" "NEAREST DOLLAR WITH THE EXEPTION OF" "PRICE PER SHARE WHICH WILL BE SHOWN IN" "DOLLARS AND CENTS."u2 ********************#7;< MARKET VALUEAAZF OF SECURITIES`K{P BY TOM ALEXANDER U 1983Z_ ******************** din}:P11000:P(10) 8);"MARKET VALUE OF SECU       NNUAL GAIN/LOSS";T);HH$/(%29);"=========="5(%;(% PCE";32);"NET"(*12);"BENEFIT";21);"WITHHELD";31);"AMOUNT"(/11);"--------------------------"(4(9"1ST PERSON";13);"$";EE;23);"$";ED;31);"$";EC)>"2ND PERSON";13);"$";EERM GAINS";T);HC$#'%N$HD$:9300H'%5);"SHORT TERM LOSSES";T);HD$_'%HGHCHD:HG$(HG)'%29);"----------":N$HG$:9300'%"NET SHORT TERM GAIN/LOSS";T);HG$'%29);"----------"'%HHHFHG:HH$(HH)'%N$HH$:9300'%(%3);"NET AA$:9300+&%5);"LONG TERM GAINS";T);HA$<&%N$HB$:9300`&%5);"LONG TERM LOSSES";T);HB$w&%HFHAHB:HF$(HF)&%29);"----------":N$HF$:9300&%"NET LONG TERM GAIN/LOSS";T);HF$&%29);"----------"::&%N$HC$:9300'%5);"SHORT THORT TERM LOSSES";T);HD$6%>%29);"==========":(22)[%@%"PRESS ANY KEY TO CONTINUE":M$n%B%:P11000:Px%N%(10)%P%:P11000:P%Q%(7)%S%16);"SUMMARY"%X%P12000:P%]%:P11000:P%%(2):10);"NET GAINS AND LOSSES":(5)&%N$Hz#X²     ˠ РԠ٠ Š̠Ϡ ̠Ϯà!Ϡ]ٯ̠Π5ˠΠҠ6! ԯԠίӠ" ԠŠ@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp DDD2D1L DD0250[ DD0270f W$"L"o 280z W$"S"  * "W$"L"FC.00ī350 ,W$"L"FC.00ī380 6W$"S"FC.00ī410 @W$"S"FC.00ī440 J * T * ^Q$"LONG [  8430!(1110)2 *@< * SUBROUTINE FORVF * LONG OR SHORTkP * GAIN OR LOSSsZ *dY184ī480nY184M16ī480xY184M16D122ī480 * * 1 YR HOLDING PERIOD *YDY2Y1YD1250                               P*U*U*U*U*U*U*U*U*U*U*U`xP*U*U*U*U**U*U*U*U*U``@P*U*U*U*U*U*U*U*U*U*U`xP*U*U*U*U**U*U*U*U*U`@1@P*L3O?NsOsLgyg9U`~P*U*U*U*U*U*U*U*U*U*U*U``P*?`<P*U*U*U*U**U*U*U*U*U``P*y|?&bDX24::"PRESS ANY KEY TO RETURN TO MAIN MENU.";:A$:Ob34,0:35,24Yl1150mvD$;"CLOSE ";F$s}(15)" ";::"THERE ARE NO FILES ON RECORD."::XX13000:XX34,0:35,241150 * * ENTER NEW SECURITYES ARE ON FILE:":'J603J6J61TD$;"READ ";S1FILE$;", R";J6\N$q14);J6;17);N$J6TR1850&(J610)10J6Ģ24:" ";:"*** FURTHUR ENTRIES: ***";:A13000:A:15:01780:D$;"CLOSE ";S1FILE$D *JT$"*** INDEX OF SECURITIES ON FILE ***"9TL(T$)I^T20(.5L)UhT);T$]r *n|34,6:35,23D$;"OPEN ";S1FILE$;",L80"D$;"READ ";S1FILE$;", R0"TR11::8682TR0ī1910:"THE FOLLOWING SECURITI1V10Ģ23::1410"V1ī79801V2ī1970@V3ī2460OV4ī3360^V5ī4570mV6ī6470|V7ī6520V8ī6570V9ī1550 * *" * INDEX OF SECURITIES, *692307S1FILE$""İ12000:1150@:2-OLIO.",<5:"7. DISPLAY SECURITIES SOLD."?P5:"8. EDIT."hd5:"9. DISPLAY SECURITIES ON FILE."n5::5:"L. LOAD DATA."x5::5:"Q. QUIT."(22)13::"SELECT OPTION :";::V$V(V$)V$"Q"7870V$"L"8630VT$" *** MAIN MENU ***"*L(T$):T20(.5L)H3:T:T$O7o5:"1. CREATE DATA FILES."5:"2. ADD DATA."5:"3. DISPLAY DATA."5:"4. CURRENT STATISTICS."5:"5. RECORD A SALE."(5:"6. MARKET VALUE OF PORTFL7L5L6$$L70H$H$".00":1100>.L72H$H$"0":1100N8L73H$H$VB *\LdV *p`D$(4)x~::1:2:I239:" ";:II223:I:2:" ";:39:" ";:I24:2:I239:" ";:I5:2:I239:" ";:I:10100940L30H$H$".000":9409L32H$H$"00":940RL33H$H$"0":940bL34H$H$hp * * SUB-ROUTINE TO * FILL 2 DECIMAL * PLACES *L5(H$)N5(H$)N6(N5)N6$(N6)L6(N6$)Q$FC$ A Q$"SHORT TERM LOSS OF $":Q$Q$(FC$,(FC$)1)G O  *f  * SUB-ROUTINE TO}  * FILL 3 DECIMAL * * PLACES 4 * >L1(H$) HN1(H$) RN2(N1) \N2$(N2) fL2(N2$) pL3L1L2zL30H$H$".000":,ND$;"READ ";S1FILE$;", R";I',XN$>,b14);I".";17);N$M,lITR4490,v(I10)10IĢ24:868:" ** LOADING MORE **";:19::J612000:J6,4420,D$,23:7::"DISPLAY A SECURITY (Y/N)? ";:A$:,A$"N"A$"Y"4491-R SECURITY (Y/N)? ";:V$:;+V$"N"V$"Y"Ģ23::4290M+V$"Y"ī3450S+g+D$;"CLOSE ";F$x+34,0:35,24~++1150+ *+D$;"OPEN ";S1FILE$;", L80"+D$;"READ ";S1FILE$;", R0"+TR+&TR0ī4240+0+:I0+DII1Q$;"." *J*T4260"*^:::O*h"ALL SHARES OF THIS SECURITY HAVE BEEN"|*r"SOLD. RETURN TO THE MAIN MENU TO MAKE"*|"ANOTHER SELECTION."*4260*:*1910*D$;"CLOSE ";F$* **(22)+24:868:" ";::"ANALYZE ANOTHE"MARKET VALUE : $";J$() *Q)"YIELD BASED ON COST : ";R$;"%"z)"YIELD ON MARKET VALUE : ";S$;"%"):) *)" *),3);"IF ";A1;" SHARES OF ";N$;" WERE SOLD")63);"TODAY, THE PROCEEDS WOULD RESULT"*@3);"IN A ";950 (dR$H$(nSHJ:SS1007(xS(102S.5)102V(S$(S): * YIELD - MARKET`(H$S$i(950s(S$H${( *(50(:("NUMBER OF SHARES OWNED : ";A1("COST OF SHARES OWNED : $";E$("TOTAL ANNUAL DIVIDEND : $";HH$ )T VALUE'J(102J.5)102+'H$(J)4'950>'J$H$Z'FCJE: * GAIN OR LOSSt'FC(102FC.5)102'FC$(FC)' H$FC$'950'FC$H$'( *'2RHE:RR100'<R(102R.5)102'FR$(R): * YIELD - COST'PH$R$(Z$:868&jG(G$)0&kG0G10000000Ģ9:3670N&tHA1G: * TOTAL DIVIDENDf&~H(102H.5)102r&H$(H){&950&HH$H$&12:868:"CURRENT PRICE PER SHARE : $";I$:868&I(I$)&I0I10000000Ģ11::3750'JA1I: * MARKE50 % 34,3% % *"% D$4% A10ė:4190N% 11);"ANALYSIS OF ";T% d%" ";N$;" "j%%EA1A2A3: * TOTAL COST%$E(102E.5)102%.E$(E)%8H$E$%B950%LE$H$%V&`10:868:"ANNUAL DIVIDEND PER SHARE : $";G1-12): ";M2:868&$g M21M2123430Z$k 8:868:" ENTER DATE (1-31) : ";D2:868o$l D21D2313435$p 9:868:" WHAT YEAR IS IT 19";Y2:868$q Y210Y2993440$z $ " SECURITIES AVAILABLE FOR ANALYSIS :"$ $ % 43:3300 # # V$"Y"ī25702# D$;"CLOSE ";F$C# 34,0:35,24O# :1150U# [#* #4 W$"*** CURRENT STATISTICS ***"#> L(W$)#H T(402)(.5L)#R T);W$#S S1FILE$""İ12000:1150#\ :34,3:35,24$f 7:868:" WHAT MONTH IS IT (." "RENT YEAR THE INFORMATION WILL BE REC-"4" c" "ORDED IN 'SECURITIES SOLD'. OPTION 'G'"i" " "IN THE MAIN MENU."" P13000:P" :::" 24" 868:" ";::"DISPLAY ANOTHER SECURITY (Y/N)? ";:V$:# V$"Y"V$"N"Ģ23:3300 !: !D (15)!N 1910H!X " TO GO TO THE MAIN MENU ->"\!b D$;"CLOSE ";F$m!l 34,0:35,24u!v V$! :1150! 3300! ::! "ALL SHARES OF THIS SECURITY HAVE BEEN"! ! "SOLD. IF THE SALE OCCURRED IN THE CUR-"! PRICE PER SHARE: $";A2$' A3$(A3)2 H$A3$; 950F A3$H$l 3);"TOTAL COMMISSION : $";A3$| A4A1A2A3 A4$(A4) H$A4$ 950 A4$H$  3);" TOTAL COST: $";A4$  D$;"CLOSE ";S1FILE$  & :::!0 A$ " D$, A10ī3220#6 (6)G@ 3);" NAME OF SECURITY: ";N$kJ 3);" CERTIFICATE NUMBER: ";A$T 3);"PURCHASE DATE(1-31): ";M1;"/";D1;"/";Y1^ h 3)" NUMBER OF SHARES: ";A1r A2$(A2)| H$A2$ 480 A2$H$ 3);" SECURITY (Y/N)? ";:A$:: A$"Y"A$"N"Ģ22::2771K A$"N"1150 23:1:868:" ";::"TYPE A NUMBER AND PRESS : ";R$: R(R$) R1RTRĢ22::2780 34,3  D$;"READ ";S1FILE$;", R";R N$,A1,A2,A3,M1,D1,Y1, n 35,24x  J60& J6J61G D$;"READ ";S1FILE$;", R";J6O N$g 14);J6".";17);N$w J6TR2770 (J610)10J6Ģ24:868:" ** LOADING MORE **";:I12000:I:16: 2700 D$ 23:868:2::"CARE TO DISPLAY ASR1 V$"N"Ĺ34,10::5280;HD$;RD$;"OPEN ";S2FILE$;", L200";\D$;"READ ";S2FILE$;", R0": ";R$:;0R(R$)U0R1RTRĢ22::4810_034,1e0x0 * 2ND SCREEN~00 *0D$;"READ ";S1FILE$;", R";R0$N$,A1,A2,A3,M1,D1,Y1,A$0.A10ī627008" SECURITY: ";N$1B" NUM$;", R";I/N$(/14);I".";17);N$7/ITR4800/(I10)10IĢ24:868:" ** LOADING MORE **";:J613000:J6:15:/4730/D$/23:8::"RECORD A SALE (Y/N)? ";:A$:/A$"N"A$"Y"4801/A$"N"1150/023:2:85L).T);T$-.S1FILE$""İ12000:11507. 34,1=.]. D$;"OPEN ";S1FILE$;", L80"|.*D$;"READ ";S1FILE$;", R0".4TR.>TR0ī6330.H5);"FROM WHICH FILE WAS SALE MADE :".R.\.f:34,5.pI0.zII1 /D$;"READ ";S1FILEA$"N"ġ:1150T-23:1:868:" ";::"TYPE A NUMBER AND PRESS : ";R$:`-R(R$)z-R1RTRĢ22::4500--D$;"READ ";S1FILE$;", R";R-N$,A1,A2,A3,M1,D1,Y1,A$---T$"*** RECORD A SALE ***"-L(T$).T20(.D$;"CLOSE ";S1FILE$$LP34,0:35,24*LZ4Ld1150(/";D1;"/";Y1D: *:DD3)" NUMBER OF SHARES(D): ";A1HDNA2$(A2)SDXH$A2$\Db480gDlA2$H$Dv3);" PRICE PER SHARE(E): $";A2$DA3$(A3)DH$A3$D950DA3$H$D3);"TOTAL COMMISSION (F): $";A3$DA4A1A2A3EA4$CR1RTRī6850C34,3#CCCD$;"OPEN ";S1FILE$;", L80"cCD$;"READ ";S1FILE$;", R";RCN$,A1,A2,A3,M1,D1,Y1,A$C(4)C3);" NAME OF SECURITY(A): ";N$C&3);" CERTIFICATE NUMBER(B): ";A$ D03);" PURCHASE DATE(C): ";M1;"10IĢ24:868:" ** LOADING MORE **";:J613000:J6:17:OB6770YBD$:B23:6:868::"EDIT A FILE (Y/N)? ";:A$:BA$"Y"A$"N"6841BA$"N"1150B24:3:868::"PRESS A NUMBER AND HIT : ";R$:BR(R$) AD$;"OPEN ";S1FILE$;", L80"?A"D$;"READ ";S1FILE$;", R0"GA,TRWA6TR0ī7800]A@AJ" SECURITIES AVAILABLE FOR EDITING : "ATA^AhI0ArII1A|D$;"READ ";S1FILE$;", R";IAN$A10);I;13);N$AITR6840EB(I10)" @x *@y13000@#@(7)K@7);"READING PROGRAM FROM DISK..."^@D$;"RUN SOLD"p@ * EDIT FILEv@|@@T$"*** EDIT A FILE ***"@L(T$)@T20(.5L)@T);T$@S1FILE$""İ12000:1150@ *@@34,7A *23) ??F?24:868:" RECORD ANOTHER SALE (Y/N)? ";:V$X?V$"Y"ī6450q? ::D$;"CLOSE ";FF$?34,0:35,24??(1150?2?<4630?F *?G13000?P?Z(7)?d7);"READING PROGRAM FROM DISK..."@nD$;"RUN MARKET:Y1:A$!>jD$;"CLOSE ";S1FILE$+>t63607>~:::e>" ALL SHARES OF THIS SECURITY HAVE BEEN">:" SOLD. RETURN TO THE MAIN MENU TO MAKE">:11:"ANOTHER SELECTION.">D$;"CLOSE ";F$>6360>1910>D$;"CLOSE ";F$>R0?(FILE$=C30ī63606= * NO STOCK LEFT AFTER SALEH=N$N$"-SOLD"[=A10:A20:A30n=$M10:D10:Y10=.A$"TENDERED ON SALE"=8 * SOLD ALL STOCK=BD$;"OPEN ";S1FILE$;", L80"=LD$;"WRITE ";S1FILE$;", R";R=VN$:A1:A2:A3>`M1:D1" SALES "8630C\#936:10:"CHOICE FOR STOCKS FILE : ";S1FILE$I\#r\#"CHOICE FOR SALES FILE : ";S2FILE$\#:" ARE THESE CORRECT (Y/N)?";:A$:\#A$"Y"A$"N"9160\#A$"Y"8630\#1150\$E(222):E:30000}]$936:10:"PL#Q01S2FILE$(T$,6,(T$)):9160A[x#Q01:S1FILE$(T$,6,(T$))e[y#(S1FILE$,9)" STOCKS "8630o[#8680[#BSCH,V1):TSCH,V)[#N64:BSC13N80[#BSC10N32[#BSC11N48[#X015:H,V)XT$T$(XN):[#:\#(S2FILE$,8)SC:H,V:BSC12(BSC12BSC13)8(BSC10BSC11):H,V1QZ(#BSC10TSC0SP0kZ2#BSC10TSC0SPSP1zZ<#SP29050ZF#ZP#MEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253ZZ#POKE 216,0: POKE MEM + 1463,12: POKE MEM + 1464,253Zd#19:"[nA$"A"Ģ24:13::"**ABORTED**";:II11500:II::1150yY"I0462:(5,I)TSC5,I1)BSC)(4,I1)96,I1)9)8960Y"Y#T$OP$Y #JX21VSEL1:J:1:" ";::VSEL:1:958Y#I21:1::" ";:2:T$;:8Z#VI:H737:9100:TVSEL0VSEL24ZX"VSEL:1:37):6::Q00ĺ" CHOICE FOR ";::"STOCKS";::" FILE :";X"Q01ĺ" CHOICE FOR ";::"SALES";::" FILE :";X"16368,0:A$X"A$(13)ĢVSEL:31::A$;" ";:X"TSC30,2VSEL2):BSC30,2VSEL1)7Y"A$MAX$:N$(LTR)FWj"1,V)0FILE$" ":N$" ":N$" "TEST$" "MAX$TEST$mWt"TEST$" "N$" "VSELV21:8890W~"" ";:50,63192(LOCK$" ")W"XXX0ĺ" ";::"*";::FILE$;W"XXX1ĺFILE$;W":" ";::XXX1ĺN$;W"W":X"ZZZ58120:)ĂX+V"LTR64:XX1:VX442::V21:1MV$"LOCK$" ":0,V)10LOCK$":"WV."XXX0V8"1,V)1FILE$" "VB"1,V)2FILE$" "VL"1,V)9FILE$" "VV"1,V)4FILE$" ":LTRLTR1:XXX1 W`"TEST$N$:OP$"OPEN "!U!MAX$"W":D$(4)+U!9230:U!255:::KU!1::D$;CA$U!24:"SELECT LETTER OR PRESS RETURN TO ABORT.";:1:1U!4:ZZZ5ĺ" CURRENT AVAILABLE LEDGER FILES :"U"ZZZ5Ģ4:" CURRENT LEDGER FILES :"V"X1452:(5,X)11NDLY.":T!10100ET!24:" PRESS ANY KEY TO CONTINUE.";:A$yT!:7:"YOU WILL NEED A BLANK APPLE-FORMATTED"T!:"DISKETTE TO STORE YOUR DATA ON."T!24:" PRESS ANY KEY TO CONTINUE.";:A$:1150T!Q00T!10100 U!CA$"CATALOG"TE THE CREATE FILE":FSz!"COMMAND (1) BEFORE YOU CAN DO ANYTHING":wS!"ELSE. ONCE YOU HAVE YOUR BOOKS READY,":S!"YOU CAN BEGIN ADDING YOUR SECURITIES":S!"TO THE DATA BASE. ALL COMMANDS ARE SELF":T!"EXPLANATORY AS WELL AS USER FRIETIONS (Y/N)?";:A$2R+!A$"Y"A$"N"Ģ9::8490DR4!A$"Y"1150QRH!936:4RR!"'SECURITIES PORTFOLIO' IS DESIGNED TO":R\!"KEEP TRACK OF YOUR SECURITIES FOR YOU.":Rf!"IF YOU WISH TO START A NEW SET OF":Sp!"BOOKS, YOU MUST EXECUES INITIALIZED ***"!Q L(FI$)1Q T20(.5L)BQ 12:T);FI$HQ [Q A013000:A0eQ 1150mQ *wQ 936Q 10000Q!D$""Q !10:"S E C U R I T I E S P O R T F O L I O"Q!XX13000:XXQ !936R*!10:" DO YOU NEED INSTRUCP& D$;"CLOSE ";S1FILE$ P0 *AP1 D$"RENAME "S2FILE$",BOOBOO"`P2 D$"RENAME BOOBOO,"S2FILE$oP3 D$:10500xPN SR0PX *Pb D$;"OPEN ";S2FILE$;", L160"Pl D$;"WRITE ";S2FILE$;", R0"Pv SRP D$;"CLOSE ";S2FILE$P P Q FI$"*** FIL$OS1FILE$(S1FILE$,20)" STOCKS"GOS2FILE$(S2FILE$,20)" SALES"QO9230WOxOD$"RENAME "S1FILE$",BOOBOO"OD$"RENAME BOOBOO,"S1FILE$OD$:10500OTR0O *O D$;"OPEN ";S1FILE$;", L80"O D$;"WRITE ";S1FILE$;", R0"O TR"DO YOU WANT TO CREATE NEW FILES (Y/N)?";:A$NN}A$"N"A$"Y"Ģ11::8060_N~A$"N"1150mN12:868N12:1:868:"ENTER NAME FOR STOCKS FILE :";S1FILE$N14:1:"ENTER NAME FOR SALES FILE :";S2FILE$OS1FILE$""S2FILE$""Ģ11::8060MM *M * QUIT#M *:MTY$"THANK YOU..."SML(TY$):T20(.5L)]M(10)jMT);TY$uM"30000}M, *M6 * INITIALIZE NEW FILEM@MJT$"*** INITIALIZE NEW FILE ***"MTL(T$):T20(.5L)M^T);T$MhMr *-N|12:A(6)A(8) A$(9)(A(9))& (22)W "IS THERE ANOTHER SECURITY? (TYPE Y/N)":V$i V$"N"ī5000y 2ND STOCK! & 1200+ 0 B(10):B$(10)5 B$(0)AA$: B(1)AB:B$(1)AB$? B(2)AC:B$(2)AC$D B(3)AD:B$(3)AD$I B(4)AE:B STOCK   1200 / A(10):A$(10)= A$(0)AA$S A(1)AB:A$(1)AB$i A(2)AC:A$(2)AC$ A(3)AD:A$(3)AD$ A(4)AE:A$(4)AE$ A(5)AF:A$(5)AF$ A(6)AG:A$(6)AG$ A(7)AH:A$(7)AH$ A(8)AI:A$(8)AI$  A(9)A(2)A(4)PROGRAM HAS A MAXIMUM OF 9 STOCKS"J Y"WHICH CAN BE LISTED. IF MORE ARE"s ^"NEEDED, THE ROUTINES SHOWN IN THE" c"PROGRAM CAN BE ADDED TO INCREASE THE" h"MAXIMUM TO THE DESIRED AMOUNT." r(22) w"PRESS ANY KEY TO CONTINUE":V$ - 1ST(AH) iAI(AI.5):AI$(AI)% x8 :P11000:PB (10)i 6);"QUARTERLY AND ANNUAL RETURN"o  8);"OF SECURITIES PORTFOLIO"  P13000:P ,:P11000:P @ B: D(17) E" NOTE " J O:::" T"THIS # ("COST OF SHARES PAID : $";AH, -(2)O 2"DIVIDEND RECEIVED : $";AIi FAB(AB.5):AB$(AB) KAC(AC.5):AC$(AC) PAD(AD.5):AD$(AD) UAE(AE.5):AE$(AE) ZAF(AF.5):AF$(AF) _AG(AG.5):AG$(AG) dAH(AH.5):AH$ "2ND QUARTER: (2)? "COST OF SHARES PAID : $";ADH (2)k "DIVIDEND RECEIVED : $";AEq  "3RD QUARTER:" (2) "COST OF SHARES PAID : $";AF (2) "DIVIDEND RECEIVED : $";AG  "4TH QUARTER:" #(2)******** V' ` INPUT SUBROUTINE- jB t **********H ~[ :P11000:Pd (2) "NAME OF COMPANY : ";AA$  "1ST QUARTER:" (2) "COST OF SHARES PAID : $";AB (2) "DIVIDEND RECEIVED : $";AC 3 **********************$? QTRLY & ANNUALIZEDU RETURN OFq SECURITIES PORTFOLIO  BY TOM ALEXANDER$ 1983.8 ********************* B1500 L **               ENU"A NOW.":24:" PRESS ANY KEY TO CONTINUE.";:A$Ac2c0u936:12::" INSERT YOUR MASTER DISK IN THE DRIVE."::24:7:"PRESS ANY KEY TO CONTINUE.";:TE$c:u30000cNu:936:12:14:"LOADING...."cXu(4)"RUN MENU"4:" PRESS ANY KEY TO CONTINUE.";:A$:b2936:12:"PUT THE SECURITES PORTFOLIO MASTER DISK"::" IN THE DRIVE NOW.":24:" PRESS ANY KEY TO CONTINUE.";:A$b2b0ub:u30000bNu:936:12:14:"LOADING...."cXu(4)"RUN M:a)936:12:"THERE IS ALREADY A FILE BY THAT NAME ON":ia)"THIS DISK. PLEASE DELETE IT/THEM FIRST."a)24:" PRESS ANY KEY TO CONTINUE.";:A:1150,b.11:" YOU HAVE NOT DECLARED DATA FILES YET."::" USE MENU SELECTION 'L' TO LOAD DATA.":20F`'936:12:" I/O ERROR - CHECK YOUR DISK DRIVE.":II11500:IIP`'1150``'E410200`'936:12:4:"YOUR DISKETTE IS WRITE-PROTECTED."`'24:7:"PRESS ANY KEY TO CONTINUE.";:A$:936::1150`'XX(37)1:XX:1:868:XX1:1:868:"::" THE DRIVE BEFORE CONTINUING."d_'24:" PRESS ANY KEY TO CONTINUE.";:A$:936::t_'E2557870_'E1110140_'936:12:"IMPROPER FILE NAMES - PLEASE TRY AGAIN.":24:" PRESS ANY KEY TO CONTINUE.";:A$:1150`'E8101718)(219)256:^$'7870'^t'E(222)@^~'E1(218)(219)256`^'PRINT E,E1: GET A$: PRINT v^'E6E181518180^'E6E182418270^'E610130)_'936:9:"UTILITY PROGRAM NOT FOUND. PLEASE PUT"::"THE SECURITIES PORTFOLIO MASTER DISK INACE YOUR DATA DISKETTE IN THE DRIVE."::"DO NOT ATTEMPT TO LOAD DATA FILES USED"::"BY ANY OTHER PROGRAM THAN PORTFOLIO."]$24:3:"HIT ANY KEY WHEN READY TO CONTINUE.";:A$]"$936:12:12:"PLEASE STAND BY."],$]'E(222)^'E255E1(2$(0);S);I$(1);T);I$(2)?21);"--------------------"R,M(10):M$(10)e1N(10):N$(10)x6O(20):O$(20);M(1)A(1)B(1)C(1)D(1)E(1)F(1)G(1)H(1)I(1)@M(1)(M(1).5):M$(1)(M(1)) EN(1)A(2)B(2)C(2)D(2)E(2)F(2)G(2)H(2$F$(2)51004R);F$(0);S);F$(1);T);F$(2)SL$G$(0):M$G$(1):N$G$(2)]5100R);G$(0);S);G$(1);T);G$(2)L$H$(0):M$H$(1):N$H$(2)5100R);H$(0);S);H$(1);T);H$(2)L$I$(0):M$I$(1):N$I$(2)5100R);I$(2)#L$C$(0):M$C$(1):N$C$(2)-5100PR);C$(0);S);C$(1);T);C$(2)oL$D$(0):M$D$(1):N$D$(2)y5100R);D$(0);S);D$(1);T);D$(2)L$E$(0):M$E$(1):N$E$(2)5100R);E$(0);S);E$(1);T);E$(2)L$F$(0):M$F$(1):NER" \8^8);"COMPANY";25);"COST";33);"DIVIDEND"l`7);"---------";24);"------";32);"---------"iL$A$(0):M$A$(1):N$A$(2)n5100sR);A$(0);S);A$(1);T);A$(2)xL$B$(0):M$B$(1):N$B$(2)}5100R);B$(0);S);B$(1);T);B3000:P5200$ ***********J ALIGN NAME,COST,DIVIDENDb SUBROUTINEi |R15:S29:T38W(L$)X(M$)Z(N$) RRWSSXTTZP - 1ST QUARTERU:P11000:PZ12);"1ST QUART I(7)AH:I$(7)AH$* I(8)AI:I$(8)AI$G I(9)I(2)I(4)I(6)I(8)Y I$(9)(I(9))c (23) "PRESS ANY KEY TO GO TO THE SUMMARY":V$ 5000 - SUMMARY:P11000:P(10)6);"QUARTERLY AND ANNUAL SUMMARY"P1"IS THERE ANOTHER STOCK? (Y/N)":V$5 V$"N"ī5000I 9TH STOCKO Y 1200l I(10):I$(10)z I$(0)AA$ I(1)AB:I$(1)AB$ I(2)AC:I$(2)AC$ I(3)AD:I$(3)AD$ I(4)AE:I$(4)AE$ I(5)AF:I$(5)AF$ I(6)AG:I$(6)AG$10) H$(0)AA$' H(1)AB:H$(1)AB$= H(2)AC:H$(2)AC$S H(3)AD:H$(2)AD$i H(4)AE:H$(4)AE$ H(5)AF:H$(5)AF$ H(6)AG:H$(6)AG$ H(7)AH:H$(7)AH$ H(8)AI:H$(8)AI$ H(9)H(2)H(4)H(6)H(8) H$(9)(H(9)) (23)# $Z G(5)AF:G$(5)AF$-\ G(6)AG:G$(6)AG$C^ G(7)AH:G$(7)AH$Y` G(8)AI:G$(8)AI$vf G(9)G(2)G(4)G(6)G(8)h G$(9)(G(9))p (23)r "IS THERE ANOTHER STOCK? (Y/N)":V$t V$"N"ī5000z 8TH STOCK| ~ 1200 H(10):H$(F(4)F(6)F(8) 6 F$(9)(F(9))*> (23)S@ "IS THERE ANOTHER STOCK? (Y/N)":V$eB V$"N"ī5000xH 7TH STOCK~J L 1200N G(10):G$(10)P G$(0)AA$R G(1)AB:G$(1)AB$T G(2)AC:G$(2)AC$V G(3)AD:G$(3)AD$X G(4)AE:G$(4)AE 6TH STOCK  12003 F(10):F$(10)A F$(0)AA$W F(1)AB:F$(1)AB$m" F(2)AC:F$(2)AC$$ F(3)AD:F$(3)AD$& F(4)AE:F$(4)AE$( F(5)AF:F$(5)AF$* F(6)AG:F$(6)AG$, F(7)AH:F$(7)AH$. F(8)AI:F$(8)AI$4 F(9)F(2))AC$ E(3)AD:E$(3)AD$1 E(4)AE:E$(4)AE$G E(5)AF:E$(5)AF$] E(6)AG:E$(6)AG$s E(7)AH:E$(7)AH$ E(8)AI:E$(8)AI$ E(9)E(2)E(4)E(6)E(8) E$(9)(E(9)) (23) "IS THERE ANOTHER STOCK? (Y/N)":V$ V$"N"ī5000D$(7)AH$ D(8)AI:D$(8)AI$< D(9)D(2)D(4)D(6)D(8)N D$(9)(D(9))X (23) "IS THERE ANOTHER SECURITY? (Y/N)":V$ V$"N"ī5000 5TH STOCK  1200 E(10):E$(10) E$(0)AA$ E(1)AB:E$(1)AB$ E(2)AC:E$(2ERE ANOTHER SECURITY?":V$, V$"N"ī5000> 4TH STOCKD N 1200a D(10):D$(10)o D$(0)AA$ D(1)AB:D$(1)AB$ D(2)AC:D$(2)AC$ D(3)AD:D$(3)AD$ D(4)AE:D$(4)AE$ D(5)AF:D$(5)AF$ D(6)AG:D$(6)AG$  D(7)AH: C$(0)AA$! C(1)AB:C$(1)AB$7 C(2)AC:C$(2)AC$M C(3)AD:C$(3)AD$c C(4)AE:C$(4)AE$y C(5)AF:C$(5)AF$ C(6)AG:C$(6)AG$ C(7)AH:C$(7)AH$ C(8)AI:C$(8)AI$ C(9)C(2)C(4)C(6)C(8) C$(9)(C(9)) (23) "IS TH$(4)AE$N B(5)AF:B$(5)AF$4S B(6)AG:B$(6)AG$JX B(7)AH:B$(7)AH$`] B(8)AI:B$(8)AI$}_ B(9)B(2)B(4)B(6)B(8)` B$(9)(B(9))b (22)g "IS THERE ANOTHER SECURITY? (TYPE Y/N)":V$l V$"N"ī5000 3RD STOCK  1200 R);A$(0);S);A$(7);T);A$(8))5100a)R);C$(0);S);C$(5);T);C$(6))L$D$(0):M$D$(5):N$D$(6))5100)R);D$(0);S);D$(5);T);D$(6))L$E$(0):M$E$(5):N$E$(6))5100)R);E$(0);S);E$(5);T);E$(6)*L$12);"3RD QUARTER"(vI(x8);"COMPANY";25);"COST";33);"DIVIDEND"}(z7);"---------";24);"------";32);"---------"(L$A$(0):M$A$(5):N$A$(6)(5100(R);A$(0);S);A$(5);T);A$(6)(L$B$(0):M$B$(5):N$B$(6)(5100)R);B$(0:O$(5)(O(5))'P13000:PN'5);"2ND QUARTER YIELD : ";O$(3);"%"}'5);"AGGREGATE QTRLY YIELD : ";O$(4);"%"'5);"ANNUALIZED YIELD : ";O$(5);"%"''"PRESS ANY KEY TO CONTINUE":V$'p 3RD QUARTER'r:P11000:P(t.5):N$(2)(N(2))(&M$M$(2):N$N$(2)2&5100Y&10);"TOTALS";S);M$(2);T);N$(2)z&21);"===================="&O(3)N(2)M(2)&O(3)(103O(3).5)103&O(3)O(3)100&O$(3)(O(3))&O(4)O(1)O(3):O$(4)(O(4))'O(5)O(4)20):M$I$(3):N$I$(4)%5100A% R);I$(0);S);I$(3);T);I$(4)G%g%21);"-------------------"%M(2)A(3)B(3)C(3)D(3)E(3)F(3)H(3)I(3)%M(2)(M(2).5):M$(2)(M(2))%N(2)A(4)B(4)C(4)D(4)E(4)F(4)G(4)H(4)I(4)&N(2)(N(2));E$(3);T);E$(4)0$ L$F$(0):M$F$(3):N$F$(4):$ 5100]$R);F$(0);S);F$(3);T);F$(4)|$L$G$(0):M$G$(3):N$G$(4)$5100$R);G$(0);S);G$(3);T);G$(4)$L$H$(0):M$H$(3):N$H$(4)$5100$R);H$(0);S);H$(3);T);H$(4)%L$I$( #5100-#R);B$(0);S);B$(3);T);B$(4)L#L$C$(0):M$C$(3):N$C$(4)V#5100y#R);C$(0);S);C$(3);T);C$(4)#L$D$(0):M$D$(3):N$D$(4)#5100#R);D$(0);S);D$(3);T);D$(4)#L$E$(0):M$E$(3):N$E$(4)#5100$R);E$(0);S:P11000:P&"12);"2ND QUARTER","["8);"COMPANY";25);"COST";33);"DIVIDEND""7);"---------";24);"------";32);"---------"""L$A$(O):M$A$(3):N$A$(4)"5100"R);A$(0);S);A$(3);T);A$(4)#L$B$(0):M$B$(3):N$B$(4)O(2).5)103 !gO$(2)(O(2))1!hP13000:P`!j5);"1ST QUARTER YIELD : ";O$(1);"%"!l5);"AGGREGATE QTRLY YIELD : ";O$(1);"%"!n5);"ANNUALIZED YIELD : ";O$(2);"%"!p!r"PRESS ANY KEY TO CONTINUE":V$! 2ND QUARTER")I(2)( JN(1)(N(1).5):N$(1)(N(1))> OM$M$(1):N$N$(1)H T5100n Y8);"TOTALS";S);M$(1);T);N$(1) ^21);"====================" `O(1)N(1)M(1) bO(1)(103O(1).5)103 cO(1)O(1)100 dO$(1)(O(1))!fO(2)O(1)4:O(2)(103 *"4 $"* BY *"c ("* DAN RHOADES *" 2"* *" <"***************************************" F P"INSTRUCTION? (Y OR N)";:A$:(A$,1)"Y"İ12000 * *6 * GREEN APPLES *T * NORTH CENTRAL IOWA *r ************************x  "***************************************" "* *" #"* OPTION WRITER 4  ************************? * DAN RHOADES *^ * *} * COMMISSIONS BY * * DAVE SPARKS * * OCT. 6 1980 * * * * 50 STOCKS PER FILE *                      !!"THE AVERAGE COST OF THIS PORTFOLIO,"+;^Z;a"$";M$(5);", RETURNED DIVIDENDS TOTALING"`;c;f"$";T1$;" FOR AN ANNUAL YIELD OF ";O$(11);"%.";k $;" FOR AN ANNUAL YIELD OF ";O$(11);"%.";k MT);T1$:26);"=========="':(23)L:"PRESS ANY KEY TO CONTINUE":V$_:  SUMMATIONr:%:P11000:P{:*(5):/14);"SUMMATION":4 AVERAGE COST CALCULATION:9M(5)M(1)M(2)M(3)M(4):>M(5)M(5)4:CM$(5)(M(5)):R::%;\S);H$(0);T);H1$89I1I(2)I(4)I(6)I(8):I107100F9I1$(I1)Z9M$I$(0):N$I1$d96860{9S);I$(0);T);I1$99T1A1B1C1D1E1F1G1H1I19T1$(T1)9N$T1$96860926);"----------"9:5);"TOTAL DIVIDENDS";nF1$(F1)8pM$F$(0):N$F1$)8r6860@8tS);F$(0);T);F1$f8vG1G(2)G(4)G(6)G(8):G107100t8xG1$(G1)8zM$G$(0):N$G1$8|68608~S);G$(0);T);G1$8H1H(2)H(4)H(6)H(8):H1071008H1$(H1)8M$H$(0):N$H1$868609);C1$+7XD1D(2)D(4)D(6)D(8):D10710097ZD1$(D1)M7\M$D$(0):N$D1$W7^6860n7`S);D$(0);T);D1$7bE1E(2)E(4)E(6)E(8):E1071007dE1$(E1)7fM$E$(0):N$E1$7h68607jS);E$(0);T);E1$7lF1F(2)F(4)F(6)F(8):F107100 8M$A$(0):N$A1$6686016S);A$(0);T);A1$X6&B1B(2)B(4)B(6)B(8):B10ī7100f6(B1$(B1)z6+M$B$(0):N$B1$60686065S);B$(0);T);B1$6@C1C(2)C(4)C(6)C(8):C10ī71006BC1$(C1)6DM$C$(0):N$C1$6F68607HS);C$(0);T:P11000:P56900&5S18:T3425X(M$)<5SSXH5Z(N$)R5TTZX5^5{512);"ANNUAL DIVIDENDS"5:58);"COMPANY";27);"DIVIDEND"57);"---------";26);"----------"55 A1A(2)A(4)A(6)A(8)5A1$(A1)6"%" 4.4"PRESS ANY KEY TO CONTINUE":V$H4 ***** *****N4h4 ANNUAL DIVIDENDSn44 ***** *****44:P11000:P4(10)412);"ANNUAL DIVIDEND"4415);"BY COMPANY"44P13000:P503O$(9)(O(9))A3O(10)O(1)O(3)O(6)O(9):O$(10)(O(10))c3O(11)O(10)1:O$(11)(O(11))t3P13000:P35);"4TH QUARTER YIELD : ";O$(9);"%"35);"AGGREGATE QTRLY YIELD : ";O$(10);"%"45);"ANNUAL YIELD : ";O$(11);N(4)A(8)B(8)C(8)D(8)E(8)F(8)G(8)H(8)I(8)T2N(4)(N(4).5):N$(4)(N(4))j2M$M$(4):N$N$(4)t25100210);"TOTALS";S);M$(4);T);N$(4)221);"===================="22O(9)N(4)M(4)3O(9)(103O(9).5)103:O(9)O(9)10$(8)1D510011FR);H$(0);S);H$(7);T);H$(8)P1JL$I$(0):M$I$(7):N$I$(8)Z1L5100}1NR);I$(0);S);I$(7);T);I$(8)1121);"--------------------"1M(4)A(7)B(7)C(7)D(7)E(7)F(7)G(7)H(7)I(7)1M(4)(M(4).5):M$(4)(M(4))22) 0.L$E$(0):M$E$(7):N$E$(8)*005100M02R);E$(0);S);E$(7);T);E$(8)l06L$F$(0):M$F$(7):N$F$(8)v0851000:R);F$(0);S);F$(7);T);F$(8)0<L$G$(0):M$G$(7):N$G$(8)0>51000@R);G$(0);S);G$(7);T);G$(8)1BL$H$(0):M$H$(7):N$HS$,3,2))"@DL5DD((S$,2,2))?J(7):"SELL------ CALL"T" ";MN$;" ";A(11);" @";A(6);" ";A(1)A(6);" -";A(17);" = ";A(1)A(6)A(17)Y" EXP. ";MN$;" ";DD^10:"IF ";NAME$;" STAYS AT ";A(16)h(10):15):"OPTION INCOME ";A(6)A(1)ABEGINNMNG OF THE STOCK REVIEW PORTION 3D$:ZZ4<:2^10);"DATE OF WRITE$ ";A(2)"(3):"BUY------- ";NAME$;30);"COST",(4):A(1);2);NAMES$;" @ ";A(16);3);A(16)A(1);" +";A(3);" =";::A(4):6S$(A(5)):DL(S$):DL6DD((]ZZ1ZZ2::"LIST OF STOCKS ON FILE":"------------------------------":V1K:Z$(V):VeK0:D$(4):"NAME OF STOCK TO BE REVIEWED; ";:RN$RN$""5000:"LINE 806"ZZ31320 *************************& THIS IS THE FILE (2D$;"OPEN ";F$2<D$;"READ ";F$QFNAMES$:KK1:Z$(K)NAMES$ZPMN$fZI117pdA(I)wnIxRN$R$ĺD$:1450ZZ3ĭRN$NAMES$15301350D$81015);::"ONE MOMENT PLEASE ":::ZZ1:RN$"END":1320BNAMES$LMN$VNS(`M2;D2;Y20jCM8tC1F~LN,DD,YYNPCVDV]TeN1lLtSP|C3AAT2N2P1C2D$  RETURN TO 810# ....................... INPUT INFO FROM ECP 50.84,51.92,53.00,54.08,55.16,56.24,57.32,58.41,59.49,60.57,61.65,62.73 53.54,54.35,55.16,55.97,56.78,57.60,67.06,68.14,69.22,70.30,71.39 72.47,73.55,74.63,75.71,76.79D$(4)$.D$;"APPEND ";F$8D$;"WRITE ";F$ p980,zDD((DT$,3,2)):YY((DT$,2))OLN((DT$,2)):X1LN:MN$:XUeTMLN30DDuTDM230D2YYY2ī980LTMTD425"360 8 IS LENGTH"L(365TD)TM425 JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,D5 DAYS > ";A((T2C1100)365L);"%";4);:A$:q "SAVE THIS WRITE?";:A$:(A$,1)"Y"ĺD$;"UNLOCK ";F$:1040*K0::"RECALL A PREVIOUS ONE? ";:A$:(A$,1)"Y"147045000>D$;"CLOSE ";F$HR(DT$)8ī970\(DT$)6890f420-";C1AA(SPNSC3)C1J(19):10);"ADD. APPRECIATION";33);A(AA)VT2TAA|(21):10);" TOTAL ";33);A(T2)(23):5);"NET RETURN ";::A(T2C1100);::" % FOR ";L;" DAYS" :N2A(T2C1100)05);A((TC1100)365L);"% < 36NPUT SPPRSPM PRINT "COMMISION,IF SOLD AT THIS PRICE ";: INPUT C3W3000aC3CC"COMMISION COST IS: ";C3:J11500::34,0(16):"IF ";NAME$;" CALLED @ ";SP;" ";SPNS;" -";C3;"= "(17):33);NSSPC3(18):32);""DIVIDENDS ";DV&(14)I015):"TOTAL ";DV(PCNSOC)]:TDV(PCNSOC)gDC2OCqN(15)X5):"NET RETURN ";::A(TC1100);" %";::" FOR ";L;" DAYS"bN1A(TC1100)l34,19:v PRINT "STRIKING PRICE OF CALL";: I CALL"E" ";MN$;" ";SP;" @";PC;" ";NSPC;" -";OC;"= ";PCNSOC]"EXP. ";MN$;" ";DDj34,18:"AMOUNT OF DIVIDENDS";:DV34,010:"IF ";NAME$;" STAYS AT ";P1(10)15):"OPTION INCOME ";PCNSOC(12)15): ";PSNS;"+";CM;"= ";30);::PSNSCM:X|C1PSNSCM: C1=TOTAL COST OF STOCKb(19)"STRIKING PRICE OF CALL";:SP"CALL PREMIUM ";:PC"EXP. DATE OF CALL (MMDDYY)";:DT$:850NONS1009000(7)"SELL------ "CALL OPTION WRITTING WORKSHEET":"----------------------------------------"V ,P1PSw 6 CONVERT TD$ TO TODAYS DATE @M2((TD$,2)) JD2((TD$,3,2)) TY2((TD$,2)) ^(3) h"BUY------- ";NAME$;" @ ";PS;30);"COST"-rNS;" ";NAME$;"T":"----------------------------------------"Z "NAME OF STOCK";:NAME$:NAME$""5000 "NUMBER OF SHARES (100'S) ";:A$:NS(100(A$)):NS "PRICE/SHARE ";:PS:PRPS 3000 CMCC "COMMISION COST IS: ";CM J11500:L ":6);Z:1 dA(20):2000:D$(4): D$ = CONTROL D= nD$(4)d x5);"TODAYS DATE (MMDDYY):";:TD$w (TD$)6120 (TD$)1120 A(X)((X100))100 Z$(30): R$(13) 7000 5000 . 6);"CALL OPTION WRITTING WORKSHEE:"# OF YOUR CHOICE?";:A$:J((A$,1))R*J200,1470,1450,6000,6990,8000,5995\*5000*k10);::"LOCKING ";F$;" FILE";:*o:D$;"CLOSE ";F$:D$;"LOCK ";F$:*p:"DELETE ";F$;" FILE";:A$:(A$,1)"Y"6010 +q:"FILE NOT DELETED":J145"SELECT OPTION"/):5);"1 WRITE OPTION"N):5);"2 RECALL OPTION"w):5);"3 LIST OF OPTIONS ON FILE"):5);"4 DELETE FILE ENTRIES"):5);"5 INPUT NEW FILE "):5);"6 CREATE NEW FILE"):5);"7 EXIT PROGRAM")*.06( PA5000CCCC1.04*( CCCC1.049( COCO1.04F( COCOOLW( CO89CO89e(CCCC100v(CC89CC89( CCCCNR(CC(CC100.5)100(CO(CO100.5)100(( ........................ ( SELECT OPTIONS ()SSION = $30.00"$' CO0:CC30:16304' OL0ī3510A' COCOOLQ' NR0ī3520b' CCCCNR100r' CCCC.0099' COCO.0099' CC(CC100)100' CO(CO100)100' PAPRNS' PA5000COCO1.06' PA5000COCO1.04( PA5000CCCC10Z0&\ CCCC2Z &a ZCCNR/&f Z65Z65;&k CCZNRS&p PA5000CCCC1.15k&u PA5000CCCC1.1z&z CCCCCC& & ALLOCATE ROUTINE& CCCC1.08& COCO1.08& CCCC1.5& NR0COCO1.5& COCC30ī3500' "MINIMUM COMMIA5000CC1.15%% PA5000CC1.16%% PAPRNR100M%* PA5000CC1.15b%/ PA5000CC1.1m%4 CCNR%9 PA30000CCPA.004142%> PA30000CCPA.00682%C PA20000CCPA.00922%H PA2500CCPA.01312%M CCCC6NR%R ZNR10&W ZSION $ $ 1$ SINGLE LOT/ODD LOT ROUTINEL$ PA2500CPA.00922f$ PA2500CPA.01312$ PA800CPA.026.4$ C65C65$ PA5000CC1.15$ PA5000CC1.1$ $ MULTIPLE ROUND LOT ROUTINE$ PAPR100$ 3300% P0 #v 3280#{ 3340# 3460)# 3280C# MULT LOTS + ODD LOTP# PAPROLZ# 3300c# COCm# 3340z# CXCCCO# NRNR1# 3340# NRNR1# CYCCCX# CCCXCO# CY0COCOCY# 3460# 3280# $ CC=FINAL STOCK COMMIS10" PANSPR" 3300"" COC," 34606" 3280C" PANSPRM"! 3300V"& CCC`"+ 3460j"0 3280w"5 PAOLPR": 3300"? COC"D PA100PR"I 3300"N CXCCO"S NR2"X 3340"] NR1"b CYCCCX"g CCCXCO"l CY0COCOCY#q 346R SHARE: ";PRG! NSPR100ĺ"10% COMMISSION = $";(NSPR10.5)100:O! J0a! MAP ROUTINEr! NR(NS100)! OLNSNR100! OL0NR0J1! OL0NR1J2! OL0NR1J3! OL0NR1J4! OL0NR1J5" J3075,3100,3125,3195,32LUNT ELLIS & LOEWI, INC. STOCK COMMIS- SION PROGRAM. ADAPTED FOR THE APPLE BY DAVID G. SPARKS 1980." INPUT ROUTINE "NUMBER OF SHARES: ";NS ! INPUT "PRICE PE:1460A4"ERROR NUMBER ";ER:"AT LINE # ";EN::D$;"CLOSE ";F$G>mH:"FILE NOT FOUND"::F$"":6990R"VOLUME MISMATCH"\"I/O ERROR"f"DISK FULL"p"FILE LOCKED"z"SYNTAX ERROR"2100 ..................... "BR10ī2100IER2020,2054,2040,2060,2070,2120,2130,2140,2150,2160,2170QERo"LANGUAGE NOT AVAILABLE""RANGE ERROR""RANGE ERROR" "WRITE PROTECTED""END OF DATA":RN$"END"2090 RN$;" ...IS NOT IN THIS FILE"*I12:I65 DAYS > ";A((A(14)A(4)100)365A(10));"%";4);:M"RECALL ANOTHER?";gA$:(A$,1)"Y"1470wA$R$5000}5000D$;"CLOSE ";F$ ...................... ERROR SUBROUTINE EN(218)(219)256:ER(222):E7):33);A(1)A(11)A(12)3(18):31);" -";A(4)f(19):10);"ADD. APPRECIATION";34);A(A(13))(21):10);"TOTAL ";34);A(A(14))(23):5);"NET RETURN ";::A(15);::" % FOR ";A(10);" DAYS"55);A((A(8)