' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  1 '&&*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0(#*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLnLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0B1 ^0(p ߩRP1Q ɿ, P\L˵B̵C8pB߮Z\  յյ\BIR Z-^ Jp\IZLL- (   Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(` d Ġz# u`z #     Š נ  Ġ à ԠϠ Ůà! ՠԠӠϠҠ٠ Ԡ&U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*D@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ШѠŊĨŨĨŀ(U*U*U*U*`*U*U(I!T*U*U*U*P*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЀЊԨШըԠѠЀ(U*U*U*U* p>@ @*U@*U*U*py rrbApb88D P*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*0W*U*U*U*U*U*U*U*U*U*U* @ @*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**U*Up  HT*U*U*U*U**U*U* D  U*U*U*U*U*U*U*U*U*U*UԠШըՀ*U*U*U*U*U*U*U*U* @ `*U*U*U*U*U*U*U*U*U*U*e`*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UѨը*U*U*U*U*U*U*U*!p*U*U*U*U*U*U*U*U*U*U* *U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*0*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*D@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*РРРѠ(U*U*U*U*@*U*UU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*РѨԊԨԨըԨԀ(U*U*U*U*`*U@*U*U* BDD$P*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*  @*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**U*UT*U*U*U*U**U*U*@8 U*U*U*U*U*U*U*U*U*U*UШըՀ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*E@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UѨը*U*U*U*U*U*U*U*U*`*U*U*U*U*U*U*U*U*U*U*0*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*p*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*D@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЀРЀЀЀЀЀЀЀ(U*U*U*U* @8@*U*UX T*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@ U*U*U*U*U*U*U*U*ШрԊԨՠԨՀԨԀ(U*U*U*U*@*U@*U*U*H Pp$rBPDP*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*!``*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**U*U!T*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UшШ*U*U*U*U*U*U*U*U*@*U*U*U*U*U*U*U*U*U*U* @ @*U*U*U*U*U*U*U*U*U*U* U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*`*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*D@ *U*U*U*U*U*U*U*U*U*U*          1012,0214,255:::16302,0:3:(4)"BLOAD TITLE.PIC":A768773:B:A,B::1,0,4,0,6,0:232,0:233,3:0:192:C01:D0279:1D,0::(4)"RUN MENU"U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* >@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*N@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ШՀШՊԀՀՀըՊԨՀ(U*U*U*U*`q*U*UT*U*U*U*(T@DDDP*U*U*U*U*U*U*U*U*U*U*U*U*U*U*(U*U*U*U**U@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* @ @*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЪժժժժժժժժժժժժՀ(U*U*U*U*|`*U*UT*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* D U*U*U*U*U*U*U*U*U*U*UՈШ*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U* 0*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UЈШШШՠ*U*U*U*U*U*U*U*%@98*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* *U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*|@@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ШՀШЊԀՀЀըՊԨЀ(U*U*U*U*p`*U*UT*U*U*U* " #BDDDDP*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЪժժժժժժժժժժժժՀ(U*U*U*U**U@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*8*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*(U*U*U*U*@*U*UT*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*  U*U*U*U*U*U*U*U*U*U*UՈШШ*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U* 0*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UЈШШШՀ*U*U*U*U*U*U*U*A#p*U*U*U*U*U*U*U*U*U*U*@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*x>8*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ШՀШЊԨՀШըՊԨЀ(U*U*U*U*88@*U*U X U*U*U*U*px rsAB`qssa88<<P*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЂРԀըЂԂԠ(U*U*U*U**U @*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*|*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@*U*U! XT*U*U*U*U*}_}o~w?{_}~w?*U*U*  U*U*U*U*U*U*U*U*U*U*UըШЀŀ*U*U*U*U*U*U*U*U*8*U*U*U*U*U*U*U*U*U*U*= *U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UшШШЀ*U*U*U*U*U*U*U*!! @ `@*U*U*U*U*U*U*U*U*U*U*@ *U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* @ @*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*0DD*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ШՠѨԨՠըՊԨ(U*U*U*U*p*U*UT*U*U*U*P*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЀРԀըЊԂР(U*U*U*U*8*U@*U*U*P*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*~*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**U*UT*U*U*U*U**U*U*  U*U*U*U*U*U*U*U*U*U*UըШШՀ*U*U*U*U*U*U*U*U*p*U*U*U*U*U*U*U*U*U*U*u`*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UшШЀ*U*U*U*U*U*U*U*A'@?*U*U*U*U*U*U*U*U*U*U*` *U*U*U*U*U*U*U*U*U*U*1),J)MID(I,J):I:J+;J013:I1401G<SH(I1,J)SH(I,J):I:J=DOW(0,0)DT:DOW(0,1)NV:DOW(0,2)H:DOW(0,3)L:DOW(0,4)C:DOW(0,7)TR:DOW(0,8)UT>MID(0,3)SP:SHRT(0,6)AM:SHRT(0,12)DT:MID(0,10)DT?DOW(0,5)NYC@HL0AOBV((CO)(H ,A80ī18< -"****************************************"J .A81ī43X /A80ī43 0936:"DON'T BOTHER ME NOW, I'M THINKING" 1" " 2I13901 3J08 4QI1 5DOW(Q,J)DOW(I,J) 6J 7I 8J011 9I6901:MID((IȄ"ODD-LOT PURCHS=";PUR1 &" ODD-LOT SALES=";SALK '"ODD-LOT SHORTS=";SSf ("AV MOST ACTIVE=";AMA )" NY COMPOSITE=";NYC *"****************************************" +"CHECK ALL NUMBERS, THEN HIT (1)(RTN) IF OK, OR (0)(RTN) TO RESTART";A8 DJTA CLOSE=";TR) " DJUA CLOSE=";UTC " S&P 500=";SP] " NYSE VOLUME=";NVx " ADVANCES=";ADV " DECLINES=";DEC !" UP VOLUME=";UV "" DOWN VOLUME=";DV #" AMSE VOLUME=";AV $"DATE O.L. DATA=";DA %DATE RECORDED=";DOW(0,0)' I06:J3C (SHRT(I,3))0.0001ĂIq "LAST ODD-LOT DATA RECORDED=";SHRT(I,12) " TODAY'S DATE(1-31)=";DT " DJIA HIGH=";H " DJIA LOW=";L " DJIA CLOSE=";C " DJIA OPEN=";O " *"V "****************************************"s " ":" ":" ":" ":" "~ D$"" D$;"NOMON C,I,O" D$ LNG140:MEDIUM70:SHRT15 DOW(140,8),MID(70,11),SHRT(15,13) 195 936:"LAST DOW LOMEM16001!OSC(140,1).A1(4,1)6:f"****************************************""* *""* TECHNICAL INDICATORS *""* VOL I OVERBOUGHT/OVERSOLD *"& "*      ICATORS") A$"RUN PORTFOLIO EVALUATOR"PNERAL MASTERS CORP N: FP cA$(4): CTRL-Ds216,0:80( **** MENU DISPLAY ****)::4:11:"MARKET CHARTERFACTOR"*C$"":A20+B1A:C$C$(45):,5:11:C$ -8:9:"1 --ING ROUTINE ***** QD(222): ERROR CODEN RD6E$"PROGRAM NOT FOUND":85x SD13E$"PROGRAM TYPE INCORRECT":85 TE$"ERROR CODE = "(D) U:8:E$ V10:B$(C) W16:"PRESS RETURN TO CONTINUE ";:F$ X40 Y  dA$"RUN MARKET IND MARKET INDICATORS": /10:9:"2 -- PORTFOLIO EVALUATOR"I <C0:D$" "Z =22:32:D$; >22:9:"PLEASE TYPE A NUMBER - ";:D$ ?1:A$:D$(13)66 @D$(10)Ģ22:32:D$; AC(D$):62 BC100,200 C60 D  P **** ERROR PROCESS+B: MARKET CHARTERFACTOR (C) 1983 GENERAL MASTERS CORP N: FP cA$(4): CTRL-Ds216,0:80( **** MENU DISPLAY ****)::4:11:"MARKET CHARTERFACTOR"*C$"":A20+B1A:C$C$(45):,5:11:C$ -8:9:"1 --   U*U*U*U*U*ШՠрԊԀՀԀՀՊԨԀ(U*U*U*U*@;*U@*U*U*xHrq$bApqaD<<P*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**U*U𠀀T*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЂРԀЀЀԂЀԀЀ(U*U*U*U*~0*U*UT*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* 8 U*U*U*U*U*U*U*U*U*U*UшШ*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*a#@p*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*D(I,J) JI(D$;"CLOSE MID";D$;"LOCK MID"CD$YD$;"UNLOCK SHRT"mD$;"OPEN SHRT"D$;"WRITE SHRT"I015J013SHRT(I,J)JID$;"CLOSE SHRT" D$;"LOCK SHRT" D$ D$;"UNLOCK OSC"$""D$;"UNLOCK DOW"-D$;"OPEN DOW"AD$;"WRITE DOW"NI0140YJ08gDOW(I,J)nJuID$;"CLOSE DOW"D$;"LOCK DOW"D$D$;"UNLOCK MID"D$;"OPEN MID"D$;"WRITE MID"I070J011MID$D$;"OPEN SHRT",D$;"READ SHRT"8I015DJ013SSHRT(I,J)ZJaIvD$;"CLOSE SHRT"~D$D$;"OPEN OSC"D$;"READ OSC"I0140J01OSC(I,J)JID$;"CLOSE OSC"D$D(CA),5) D$""+D$;"OPEN DOW">D$;"READ DOW"KI0140VJ08dDOW(I,J)kJrID$;"CLOSE DOW"D$D$;"OPEN MID"D$;"READ MID"I070J011MID(I,J)JID$;"CLOSE MID" "(4)"RUN MENU"-I139018J01POSC(I1,J)OSC(I,J)WJ^IMT0.9(OSC(1,0))(0.1(ADVDEC)):OSC(0,0)MT"SUMMATION INDEX=";(DOW(0,6))CA(0.82(OSC(1,1)))(0.18NYC)OSC(0,1)CA"10D MA NYCI=";(Z$"Y"ī167$"STORING DATA":233B"REMAINING MEMORY=";(0)a"DATE JUST COMPLETED=";DT"WANT TO RUN ANOTHER DAY? (Y/N) ";:Z$:Z$Z$"Y"ė:18 "***************************************":" BYE-BYE!! 3A1(I,1)S4S4(A1(I,1))2&I2XBS15BYBS35:N5WX1S2(N(XB2))lX2S4(N(YB2))SXY(S5(NXBYB))(((X1))((X2)))"CORRELATION=";((SXY),4):SHRT(0,5)SXY184"SAVE THE DATA ON DISK? (Y/N) ";:Z$:Z$ I04:J8+SUSUSH(I,J):I:SUSU5M"WILLINGNESS=";SU:SH(0,9)SUXI04mA1(I,0)DOW(I,4)A1(I,1)MID(I,0)IS10:S20:S30:S40:S50I04S1S1A1(I,0)S2S2(A1(I,0))2S5S5(A1(I,0))(A1(I,1)) S3SSDOW(I,J):I$SS10:MID(0,11)SO"10-DAY M.A. OF NYSE VOL.=";((S),5)m:EXPERIMENTAL INDICATORS(MID(0,0)MID(1,0))0WL3:141WL(DOW(0,4)DOW(1,4))(MID(0,0)MID(1,0))DOW(0,4)DOW(1,4)141WLWL(1)SH(0,8)WL:SU00001ī120wI#xOS(SSSA)1006ySH(I,3)OS:AITz"ODD-LOT SS%="((OS),5)]{SU0m|SOPSALPUR}SH(A,4)SOP:BA9~IAB1SUSUSH(I,4)IS9SU10"ODD-LOT INDEX=";((S9),5)S0:A91ī136I09:J1 SE=";(SH(0,2))mSU0"nI094oSUSUSH(I,0);pIHqTISU10WrMI(0,9)TIs"TRADERS INDEX INTERMEDIATE-TERM=";((TI),5)tDA0ĺ"NO ODD-LOT DATA TODAY":"***************************************":131uI0SH:J12 vSH(I,J)DA.I,4) `IaM2DOW(0,4)&bI19CcDOW(I,4)M2M2DOW(I,4)JdI~e(M1M2)0PR(M1DOW(0,4))(M1M2):SH(0,7)PRfA7PR100:"PERCENT RANGE=";(A7)gSU0hI014iSUSUDOW(I,4)jIkSH(0,2)SU15l"15-DAY MOVING AVERAGY RATE OF CHANGE=";(RC):USHRT(0,10)ADV:SHRT(0,11)DECHVS10:S20hWI09:J10:S1S1SHRT(I,J)oXIYI09:J11:S2S2SHRT(I,J)ZI[MIS1S2:MID(0,4)MI\"MOMENTUM INDEX=";(MI)]M1DOW(0,4)^I19_DOW(I,4)M1M1DOW(5((ADVDEC)SHRT(0,13)):SHRT(0,13)FVMNMCMID(0,6)SHRT(0,13):MID(0,7)MCpO"MCCLELLAN OSCILLATOR=";(MC)PDOW(0,6)DOW(1,6)MCQSI(AVNV)100:SHRT(0,1)SIR"SPECULATION INDEX=";((SI),4)SRCDOW(0,4)DOW(14,4):MID(0,8)RCT"15-DA0)TS1H"SHORT-TERM TRADERS INDEX=";((TS),5)fIHSMID(0,5)0.5((ADVDEC)MID(0,5)):MID(0,5)HSJ"HAURLAN SHORT-TERM INDEX=";(HS)KHIMID(0,6)0.1((ADVDEC)MID(0,6)):MID(0,6)HIL"HAURLAN INTERMEDIATE INDEX="(HI)&MFVSHRT(0,13)0.0L))NVMI(0,0) AMI(0,0)AOBVNB"ADJUSTED ON-BALANCE VOLUME=";(MI(0,0))rCRV(UVDV)MID(0,1):MID(0,1)RVD"A/D VOLUME=";(MI(0,1))EAL(ADVDEC)MID(0,2):MID(0,2)ALF"ADVANCE-DECLINE LINE=";(MID(0,2))GTS(ADVDEC)(UVDV):SHRT(0,(L$)2::" ";L$;" ":::9:"SINCE IT WAS LAST EDITED."523:6:"PRESS ";::" SPACE BAR ";::" TO CONTINUE.";:A$:A$" "536:]7:4:"<<< MARKET CHARTERFACTOR DISPLAY >>>":O0:::20(L$)2:" ";L$;" ":::M$(1)"CURRENT VALUES DISPLAY(C$,(C$)1):8:30" ,(7);:305 -J$C$:E148H .(J$)0J$H$N /c 0(J$)0LJ:50o 1L(J$) 2AL:4:LA: 3C(8,50),K$(50):M50:::(4);"NOMON C,I,O":::111:N15594(7)::6:5:"QUOTES HAVE NOT BEEN FETCHED FOR"::211A%(0):AA%(K)45# K:A8410 !A3244B "(C$)HF44N #E140k $D$"-"C$""I$"+"40 %D$"."E1E$"."E$".":40 &(C$)CE$"."44 'D$"0"D$"9"44 (C$C$D$:8:30 )(C$)228 *(C$,1)"."E$"" +C$B2(B2)BB2:II2:23G C$C$" "(B)"/"(I):B10C$C$" "[ I10C$C$" "a  D$(A):E%((D$,2)):D%((D$,3,2)):C%((D$,2)): C$H$:E1AJ:5 8:CHF1B%(E1):E$"":C$"" D$:A0:(D$)A(D$):A330 K):(D$)5D$"0"D$? C$(D$,3,2)"/"(D$,2)"/"(D$,2):p D$"0"(A):C$(D$,(D$)3,2)":"(D$,2):} 17:8: 20:8: CB(A):B((AC)64.5):B1C$(C)" ": B63C$(C1)" ": I64:C$(C):C0C$"" (A(A)):BA((AC)):B%((E)):D$(B):B0D$"."U C$(C)(D$"00000000",B%):f 9:F:F$;: G$"R"F$(B$C$,HF1): F$(C$B$,HF1): A04 A(A):5:C$"<"C$:8:">";: AC%10000D%100E%: 15:8: D$(A 1413:51A140:B$B$" ":A:A0:B0:C0:C$"":D$"":E$"":A%(10):A%(0)8:A%(1)13:A%(2)27:A%(3)19:A%(4)1:A%(5)23:A%(6)26:A%(7)21:A%(8)4:A(D)(DE.5)E:B(D)(D)((D)):5:A(C$):8E1C$((A.5)):3 CB        Y1IN:::41P +22:" TYPE OPTION, PRESS THE ";::" RETURN ";::" KEY.": ," (PRESS THE ";::" ESC ";::" KEY TO END PROGRAM)";:20:1: VALUATOR PROGRAM":" (C) 1983 GENERAL MASTERS CORP"::17:"***"" ::3:"PRESS THE ";::IN$(IN)""IN0:(7);:305 #(IN$(IN),1)IN$34Q $:IN$(IN);:IY:IX:30g %:IN0ĺIN$(IN);u &IY:IX: ' MENU SUBROUTINE (IX0:: )IXIX1:IN$(IX)""43 *" ...............................TYPE ";(IN$(IX),1);:2:IN$(IX);:I": (4)"RUN MENU".  BASIC ERROR TRAPH (222)255Ĺ216,0:N f  INPUT SUBROUTINE IN0:IX(36)1:IY(37)1:16368,0 IN$:AS0:(IN$)AS(IN$):AS330 AS13İ37: AS27ĝ:IN1:868: !IN0:868 "ININ1:8:IN013 IN021/ IN1IN$"DISPLAY"D IN2IN$"EDIT"^  RUN SELECTED MODULE :12:10:"LOADING ";IN$;" MODULE" (4);"RUN ";IN$;",V0" (4)"RUN MENU"  END OF PROGRAM : " <<< PORTFOLIO EVALUATION COMPLETE >>>" SPACE BAR ";::" TO CONTINUE.";= 23:19:A$:A$" "8n :2:" <<< MARKET PORTFOLIO EVALUATOR >>>" :16:"MAIN MENU" IN$(1)"DISPLAY OR EVALUATE STOCKS":IN$(2)"EDIT OR CREATE PORTFOLIOS":IN$(3)"" IN3:7:39:18:" ==> "; 2 25(:::(4);"NOMON C,I,O"9(4);"PR#0"e:3:17:"***"::12:"WELCOME TO THE":9:"DOW JONES & CO., INC."::6:"PORTFOLIO EVALUATOR PROGRAM":" (C) 1983 GENERAL MASTERS CORP"::17:"***"" ::3:"PRESS THE ";::      D$;"OPEN OSC"$ D$;"WRITE OSC"1I0140<J01JOSC(I,J)QJXIlD$;"CLOSE OSC"D$;"LOCK OSC"D$: *""* TECHNICAL INDICATORS *""* VOL I OVERBOUGHT/OVERSOLD *"& "* 31:H39:AC(4,S):A0İ19B:S:A18:" ":A:(4);"PR#0":5524:1:"(";::" SPACE BAR ";::" CONTINUES, ";::" ESC ";::" BACKS UP)";A$:Q0:(A$)ĭ(A$)27Q1:A$" "A$(27)1301:868:23:T216,0:768,104:7691,S):A0İ19,|F32:H38:AC(5,S):A0İ4}:S:A15:" ":A:7:"<<< APPLE II STOCK QUOTE >>>":" ":109:" ":"STOCK HIGH LOW LAST":" ":S0R:F1:H5:C$K$(S):8:F9:H17:AC(2,S):A0İ19~F20:H28:AC(3,S):A0İ19F STOCK QUOTE >>>":" ":109:" ":" BID/ ASK/ VOLUME":"STOCK CLOSE OPEN (100'S)":" ":G$"R":E1:S0R:C$K$(S):F1:H5:8yA(C(0,S)):F10:H18:A0C$"NO DATA ":8:123z19:C(0,S)0ĺ"*"; {F21:H29:AC(;L$;",V0"::(4);"OPEN ";L$;",V0":(4);"READ ";L$:N:216,0:141PuN1119vR:N$:O$:B1:D1:A110:B:A:S0R:K$(S):P08:C(P,S):P:Sw(4);"CLOSE ";L$:x12:11::"PRINTER IS NOT READY":::(4);"PR#1":" "::7:"<<< APPLE II" ESC ";::" KEY TO EXIT TO MAIN MENU)";:22:3:"PRESS ";::" ? ";::" THEN ";::" RETURN ";::" FOR CATALOG."p11:10:"==> ";:157:Q1110qQ0112r(L$,1)"?"ė:138s133Ct15:9:"SEARCHING FOR PORTFOLIO";::(4);"VERIFY "AS OF ";:F15:H22:AB1:14:F26:H30:AD1:18:32:" ":|n:12:10:"RETURNING TO MAIN MENU"::(4);"RUN MENU":to:3:4:"<<< MARKET PORTFOLIO DISPLAY >>>"::::3:"TYPE PORTFOLIO NAME, PRESS ";::" RETURN ";::".":24:" (PRESS ";:: SHARES";:F26:H38:E1:AU:4::"SHORT TERM GAIN ";:E100:AA1:11::"LONG TERM GAIN ";:AZ:11::"TOTAL PROFIT ";:AY:11::O0İ129:108kA15:" ":A:" ":(4);"PR#0"l:55?m20(L$)2::" ";L$;" "::" ":" STATUS 0F22:H32:C$"NO DATA":8::102{dG(GC(6,S))C(7,S):YYG:AG:F22:H32:E100:11:35:C(8,S)C1ĺ" LONG":ZZG:102e"SHORT":A1A1GfUUC(7,S):Q0:O0S012(S12)Sİ129gQ1108hS:Q0:O0İ129iQ1108j" ":"TOTAL" ":109:" ":14:"PURCHASE GAIN":"STOCK #SHS DATE TERM":" ":Y0:Z0:A10:U0:G$"R":AB1:27:C%C%1:13:C1A:34,9:35,23:S0R:F1:H5:C$K$(S):8:F6:H11:E1:AC(7,S):4"cF14:H21:AC(8,S):14:GC(4,S):G0GC(0,S):G]F29:H39:E100:" ":"TOTAL PURCHASE VALUE";:AW:4::"TOTAL CURRENT VALUE";:AT:4::O0İ12995^A17:" ":A::(4);"PR#0"_:55`O098a12:11::"PRINTER IS NOT READY"::" ":(4);"PR#1"b" "::12:"GAINS AND ":):F21:H29:X0:A(C(4,S)):A0XA:19:87OUA(C(0,S)):A0XA:19:87cVC$"NO DATA":8WVXC(7,S):TTV:F30:H39:E100:AV:A0İ4:89XC$"NO DATA":8Y:Q0:O0S012(S12)Sİ129ZQ1ī55[S:O0İ129\Q155g< CURRENT VALUES >>>":" ":109:" ":12:"PURCHASE CURRENT CURRENT":"STOCK #SHS PRICE PRICE VALUE":" ":34,9:35,23:T0:U0:G$"R":W0:S0R:F1:H5:C$K$(S):8:F6:H10:E1:AC(7,S):4:UUC(7,S)-TF12:H20:AC(6,S):19:WWC(6,S)C(7,SKM$(1)"YES":M$(2)"NO":M$(3)"":143:Q0ĺ(7);:75KLQ1Q2ĉ:55SM63tN19:10:868:OO1:O2O0OO0Ğ:"PRINTER OPTION ENABLED":P56QO083R12:11::"PRINTER IS NOT READY":::(4);"PR#1":" "S" "::10:"<<8-E::12:"ASK/OPEN:";:AC(1,S):A0İ19UF::12:"HIGH:";:AC(2,S):A0İ19|G::12:"LOW:";:AC(3,S):A0İ19H::12:"LAST:";:AC(4,S):A0İ19I::12:"VOL(100'S):";:H30:AC(5,S):E1:A0İ4J:::12:"ANOTHER QUOTE? ";:758:A0R:K$(A),::23:8:"QUOTE WHICH STOCK?";:F27:H32:G$"R":E0:H$"":28:K2J$""55v@S0R:K$(S)J$66AS:(7);:63B34,6:35,22::35,24:24:::12:"BID/CLOSE:";:F24:H32:AC(0,S):A0A(A)CA0İ19:69DC$"NO DATA":":M$(2)"GAINS AND LOSSES":M$(3)"QUOTES ON A STOCK":M$(4)"PRINTER ON/OFF":M$(5)"":Q2:15381:16:" ==> ";:868:143:Q1Ĭ9Q056:Q4ī78;:Q81,96,61<=:O1120>7:"<<< MARKET STOCK QUOTE >>>"::109^?1:7:9T PORTFOLIO STATUS":IN$(5)"TERMINATE EDITING SESSION":IN$(6)""`[IN2:6:322:19:" ==> ";z\311:IN0ĺ(7);:92]IN0252^PR0:IN4PR1_`IN174,225,264,264,252a ALLOCATE MAIN STORAGEb COLUMNS IN X() ARE:c 0=BIDU(7);:(37):868:83'VMENU1W302aX::" <<< MARKET PORTFOLIO EDITOR >>>":Y:20(DF$)2:" ";DF$;" "::34,4@ZIN$(1)"ADD STOCKS TO PORTFOLIO":IN$(2)"DELETE STOCKS FROM PORTFOLIO":IN$(3)"LIST PORTFOLIO STATUS":IN$(4)"PRIN(I$,1)"."K$"".II$(I$,(I$)1):23:59=J(7);:59HKNV$I$VLDG179lM(NV$)0NV$OV$rNO(NV$)0NVOV:81PNV(NV$)QINV:14:NVI:R SUB TO PRINT I$ AND GET Y/N ANSWERSI$;:"";A$TA$"Y"A$"N"A$"Q"S1ES%(0):IES%(ES)75(=ES:I8705>I3274I?(I$)H2H174V@DG169tAJ$"-"I$""NG$"+"69BJ$"."DG1K$"."K$".":69C(I$)KK$"."74DJ$"0"J$"9"74EI$I$J$:23:59FBACKARROWG(I$)254H:I$(K):K0I$""3 2J2(J2)JJ2:LL2:50_ 3I$I$" "(J)"/"(L):J10I$I$" "s 4L10I$I$" "y 5 6INPUT USING 7I$OV$:DG1IOV:17 823 9KH2H11DG%(DG1):K$"" :I$"" ;J$:I0:(J$)I(J$):I359<E(I$,J,1)"/"42! )J:I(I$):] *I0:K((I$,J1)):KI((I$,1,J3))((I$,J2,2))Kc +y ,PRINT I AS FRACT -46:23: .MAKE FRACT I$ FROM I /KEN(I):J((IK)64.5):J1I$(K)" ": 0J63I$(K1)" ": 1L64% FROM IE "J$(I):DD%((J$,2)):MM%((J$,3,2)):YY%((J$,2)):c #MAKE DD%,MM%,YY% FROM I$ $MM%(I$):YY%((I$,2)):DD%((I$,4,2)): %MAKE I FROM DD%,MM%,YY% &IYY%10000MM%100DD%: 'CONVERT I$ FRACTION TO I (J(I$)11:H1:(I$)H2H1ĺI$;:4 L$(SP$,H2H11(I$))K RL$"R"ĺL$;I$;:c I$;L$;:H1(I$):z PRINT DATE FROM I 30:23: MAKE DATE I$ FROM I J$(I):(J$)5J$"0"J$ I$(J$,3,2)"/"(J$,2)"/"(J$,2): !MAKE DD%,MM%,YY EN(X)(X)((X)) 4  ROUND I AND PRINTH 17:I(I$):23\ MAKE I$ FROM Iv DG1I$((I.5)): KEN(RD(I)) JRD((IK)) DG%((DG)) J$(J):J0J$"." I$(K)(J$"00000000",DG%): PRINT I$ IN H1H2 i$ 302%:(4);"NOMON C,I,O"95:INIT IOSUBSM97:BEGIN PROG^INIT IOSUBSI0:J0:K0:I$"":J$"":K$""ES%(2):ES%(0)2:ES%(1)13:ES%(2)27I139:SP$SP$" ":I ROUND FCN RD(X)(XDG.5)DG ENTIER FCN            (A$)G1(A$):G127Q1:.#G121A$" "M#Q1:L$""Q0:A$" "158Z#G113ıi#G18166x#L$""158#E1(L$):E11L$(L$,E11):E1(0):A$;:868:158#L$"":A$;:868:158#A$;:L$L$(A$,1):E1(0):158 U):3 CB56Z"" ...............................TYPE ";(M$(E1),1);:2:M$(E1);:F11Q:::154"22:3:"TYPE OPTION, PRESS THE ";::" RETURN ";::" KEY."::4:"(TO BACK UP, PRESS THE ";::" ESC ";::" KEY)";:20:1:"L$"":16368,0#A$:G10:0(!M$:G10:(M$)G1(M$):G13144:!G113İ151:T!G127ĝ:Q1:868:b!Q0:868!QQ1:M$(Q)""Q0:(7);:144!(M$(Q),1)M$148!:M$(Q);:F1:E1:144!:Q0ĺM$(Q);!F1:E1:!E10::"E1E11:M$(E1)""1:143:Q1111 Q0135+ Q138,111c :"HIT ANY KEY TO CONTINUE...":(4);"CATALOG":: 4:"PRESS THE ";::" SPACE BAR ";::" TO CONTINUE.";:A$:A$" "139 :111 (222)255Ĺ216,0 !Q0:E1(36)1:F1(37)1:16368,,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:768:141(7);:::" UNABLE TO LOCATE ";::L$:::" WOULD YOU LIKE TO SEE THE CATALOG?":::M$(1)"CATALOG DISPLAY":M$(2)"NO CATALOG":M$(3)"":Q3:153 16:10:"==>";Y$(I)SS$236!I2!(7);:229: NOT FOUND :!SI!18:1:958::" STOCK NUMBER PURCHASE PURCHASE":" SYMBOL SHARES DATE PRICE":!258:!IN$(1)"YES":IN$(2)"NO":IN$(3)""!:"O.K. TO DELETE THIS ENTRY? ";"PD:X(6,S)PP ::179, DELETE STOCKE :I0NS:SY$(I),:j 22:1:"DELETE WHICH STOCK? ":{ 24:327:22 H124:H228:RL$"R":DG0 OV$"":54:SS$NV$ ES2NV$""86: MENU SYMBOL FOUND? I0NS:SY$(I)SS$237 !S01SY$(I)SS$220)I:S0:221bNSNS1:SY$(NS)SS$:X(7,NS)SH:X(8,NS)PD:X(6,NS)PPk224SI1:INSERT AT SINSS1:SY$(I1)SY$(I):X(6,I1)X(6,I):X(7,I1)X(7,I):X(8,I1)X(8,I):INSNS1 SY$(S)SS$:X(7,S)SH:X(8,S)QQ1ĺ(7);:198PPIcNOW SS$,SH,PD,PP CONTAIN SYMBOL,SHARES,PURCH DATE,PURCH PRICE.SDI1:USE EXTRA SLOT AT END OF ARRAYSY$(S)SS$:X(6,S)PP:X(7,S)SH:X(8,S)PD1:258INSERT IN ALPHA ORDEREF1:NS0218INS91I$" "NV$:39:I.01I999.99ĺ(7);:198 CHECK FOR DATE ERRONEO USLY ENTERED AS PRICE OR ALPHA IN FIELDCTQQ0:IQQ1(NV$)IXXSC((NV$,IQQ,1)):IXXSC47CTQQCTQQ164IXXSC91IXXSCĺ(7);:198IQQCTL$(I$,2):(IL$,1)"/"I$(I$,(I$)1)"0"(IL$,1)v(I$,3,1)"/"((I$,5,1)"/"(I$,6,1)"/")ĺ(7);:19035:DD%31DD%1MM%1MM%12YY%99YY%00ĺ(7);:19037:PDIH131:H239OV$"?":54ES2Ė31:" ---.-- ";:1886.(SS$,1)" "(SS$,1)" "ĺ(7);:180KH111:H215:DG1:NG$"+"^OV0:54:SHNV{ES2Ė11:"-----";:180NV0ĺ(7);:186H120:H227:DG0OV$"?":54ES2Ė20:"--/--/--";:185I$NV$:(I$,2,1)"/"I$"0"I$6ISE":" SYMBOL SHARES DATE PRICE"::34,724:" (USE ";::"";::" TO BACK UP OR EXIT TO MENU)";:35,22:8:1" ----- ----- --/--/-- ---.--";H12:H26:RL$"R":DG0OV$"?":54:SS$NV$ES2ī86SS$"?" SY$(S)NO QUOTE DATA4P68:X(P,S):P;SR(4);"CLOSE ";DF$h(4);"LOCK ";DF$n}ADD STOCKNSDIĺ(7);"PORTFOLIO IS FULL."::"PRESS ANY KEY TO CONTINUE... ";:A$:864" STOCK NUMBER PURCHASE PURCHA:12:10:"SAVING EDITED PORTFOLIO"A:(4);"OPEN ";DF$;",V0"Y(4);"UNLOCK ";DF$p(4);"WRITE ";DF$1:FILE TYPE 1=NO QUOTESNS:#STOCKSDF$: NEW NAMEQF$: OLD NAMENO DATE,TIME,10NULLSI112:0:IS0NSTM: DATA TIME  SKIP 102I110:J:I>S0NSJSY$(S)cSKIP QUOTES IF FT=1qFT1150P05:X(P,S):PP68:X(P,S):PS(4);"CLOSE ";DF$EFQF$DF$:12386: MENUSUB TO SAVE PORTFOLIO#Z"(DF$,1)" "291-291:FILE NOT FOUNDM:(4);"VERIFY ";DF$;",V0"i(4);"OPEN ";DF$;",V0"(4);"READ ";DF$FT:FILE TYPE302:RESET ONERR TRAPNS:#STOCKSNF$:NEW FILE NAMEOF$:OLD FILEDT: DATA DATEW PORTFOLIO NAME? ";:328:IN0256;|DF$""ĺ(7);:112k}(DF$,1)"A"(DF$,1)"Z"(DF$,1)" "127{~EF0NS1305(7);:12118:868:" OLD PORTFOLIO NAME? ";:328:IN0256DF$""ĺ(7);:112(DF$,1)"A"(DF$,1)"O EXIT TO MAIN MENU)";:18:1:" ==> ";Cu311:IN0ĺ(7);:117Uv::IN0256w22:1:868:" JUST PRESS ";::" RETURN ";::" TO CHANGE OPTION.";xIN3Ģ14:1:">";:129yIN2EF1:11:1:">";:129z8:1:">";#{18:868:" NE::::" <<< MARKET PORTFOLIO EDITOR >>>"Wq:9:"PORTFOLIO SELECTION MENU":34,7rIN$(1)"CREATE A NEW PORTFOLIO":IN$(2)"DUPLICATE A PORTFOLIO":IN$(3)"EDIT AN OLD PORTFOLIO":IN$(4)""sIN3:7:322(t24:" (PRESS ";::" ESC ";::" KEY T/CLOSE PRICE %d 1=ASK/OPEN PRICE2e 2=HIGH>f 3=LOWKg 4=LAST_h 5=VOL (100'S)vi 6=PURCHASE PRICEj 7=#OF SHARESk 8=PURCH DATE YYMMDD lX(8,51),SY$(51)mDI50: SIZE OF ARRAYS-1nLOAD PORTFOLIOoEF0:302,p͍Íԍɍԍ͍ƍԍȍЍʍčˍƍōōōÍӍʍDF$(DF$,IX1):IX(0):A$;:868:330B,QDF$"":A$;:868:330h,RA$;:DF$DF$(A$,1):IX(0):3300:I$"":J$"":K$""ES%(2):ES%(0)2:ES%(1)13:ES%(2)27I139:SP$SP$" ":I ROUND FCN RD(X)(XDG.5)DG ENTIER FCN BACK UP, PRESS THE ";::" ESC ";::" KEY)";:20:1:J+H STRING INPUT_+IDF$"":16368,0+JA$:AS0:(A$)AS(A$):AS27IN1:+KAS21A$" "+LIN1:DF$""IN0:A$" "330+MAS13ı+NAS8338+ODF$""330',PIX(DF$):IX1N$(IN);*AIY:IX:,*B MENU SUBROUTINE9*CIX0::U*DIXIX1:IN$(IX)""326*E" ...............................TYPE ";(IN$(IX),1);:2:IN$(IX);:IY1IN:::324*F22:" TYPE OPTION, PRESS THE ";::" RETURN ";::" KEY.":6+G4:"(TO E*)8IN0:IX(36)1:IY(37)1:16368,0T)9IN$:AS0:(IN$)AS(IN$):AS3313f):AS13İ320:);AS27ĝ:IN1:868:)<IN0:868)=ININ1:IN$(IN)""IN0:(7);:313)>(IN$(IN),1)IN$317)?:IN$(IN);:IY:IX:313*@:IN0ĺI;::" TO CONTINUE.";:A$:A$" "3001(-:110H(. BASIC ERROR TRAP`(/(222)255Ĺ216,0f(0(1OK TO CREATE NEW FILE?(286(3:(4);"VERIFY ";DF$;",V0"(4::(7);DF$;::" IS ALREADY IN USE":(5295(686)7 INPUT SUBROUTIN34,34'&:326:8:"UNABLE TO LOCATE ";::DF$::b'':"WOULD YOU LIKE TO SEE THE CATALOG? ";'(IN$(1)"YES":IN$(2)"NO":IN$(3)""')311:IN1110'*::"HIT ANY KEY TO CONTINUE..."'+(4);"CATALOG"&(,:4:"PRESS THE ";::" SPACE BAR "$" "279 &1:868:23:2773&PR0Ģ24:284<&" "`&" ";NS1;" STOCK";:NSĺ"S";&" CURRENTLY IN PORTFOLIO. ";&PR1āI17:" ":I&PR1ĺ(4);"PR#0"& PR0ľA$&!&"86:MENU&# DISK ERROR TRAP&$302'%(7);: SHARES DATE PRICE":" "C%34,7:35,23:SCROLL WINDOWQ%NS0282]%S0NSh%258:%PR0S014(S14)S278%S:282%24:"(";::" SPACE BAR ";::" CONTINUES, ";::" ESC ";::" BACKS UP)";%A$:A$(27)289 &A$LIST PORTFOLIO'$ :PR0270S$ ::12:11::"PRINTER IS NOT READY":m$ (4);"PR#1":" "::$ " <<< MARKET PORTFOLIO EDITOR >>>"$ " ":20(DF$)2::" ";DF$;" "::" "$" STOCK NUMBER PURCHASE PURCHASE"#%" SYMBOL E PORTFOLIO#EF155#\#::12:10:"RETURNING TO MAIN MENU":(4);"RUN MENU2,V0"b#}#SUB TO LIST STH STOCK#H12:H26:RL$"R":I$SY$(S):23#H111:H215:DG1:IX(7,S):14#H120:H227:IX(8,S):28#H131:H239:IX(6,S):44$311:IN0ĺ(7);:242#"IN1246="SY$(S1)SY$(S)225L"SS1:238Z"ISNS1"SY$(I)SY$(I1):X(6,I)X(6,I1):X(7,I)X(7,I1):X(8,I)X(8,I1):I"SY$(NS)"""NSNS1:EF1"SY$(S)SS$238"225"RETURN TO MAIN MENU #SAV             ΍ҍ΍͍ԍԍčӍ            ŭŭ