' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`*U*U*U*U*U*U*U*U*U*}:u.W*n}*U*U*U*U*U*U*U*U*U*U*u*U*U*U*U*U*U*U*U*U*]*U*U*U*U*U.U*U*U*U*u*}zu._;_*U*U:U*U*]*U*U/wz]+U*U.U*U*U*U*U*U*U*U*U*U*U*U+U*U*U*U*U*U*U*U*]+U*U*U*U*U*Uu*]:wo];]*U*U*U*U*UjU*U+wn]jU*U.U*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*T"*S U(E*Tb*Q U(E*T"*Q U(E*Tb*Q Uju**u*U*U*U*U*U.U*U*U*U*u*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U+U*U*U*U*]*U*U*U*U*U*U*U*U*U*U+U*U*U*U*u*U*U*U*U*UjU*U*U*U*}*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uid<eұid=eұid>eҲid?eҲidBeбidCeб iM6i[`ma(ԠӠĠ)jm[ұbdCeұ bM6b[%e]נЭϠ٠,ea(ؠҠؽ)FE(ؠӠ)Fe[(xi]ŠǠ͠٠i]ӠϠĮΠi`%_`miұqiҲqұr9()%[^_^^`@*#r9()%[^_^a]ԠӠϠa]ӠϠĮΠa`%_eaqaұqad<eбad=eбad>eвad?eвadBeo P $^S(ԠҨɮŮ)' ^o P "^S(РҨӯϩ)&@ ^`;@r;@r$^^\Y ^o P ^a(ĠҪ)^UVWY^o Pa()^_^^`;@r$^^`@*# $$^#^oP a(ĠȪ)^UVWY*^oP a()_] $^oP #.^S(Ԡ٨)'8^` $^"B^oP a(Ġ٪)L^UVWYV^_$^ ^Yq6?YUVW "Yq.?r.?r.?r.?r.?r'Yq.?r.?r.?r.?r.?r.?rZY Z[]]Ԡ ]M6*]a(̠ҭ) ]oP ]a(Ԡ)*]P S(ԠȨ)']`4+`%q>+`%qH+`%qR+` %q\+` %qf+` %q0p+` %qNz+q +`@9()%q+[Y]РР S(Ҡν)'V'`$`'Y'\['_.'`'`$t'j'o\YPm'a(ĠҪ)_.'*]Š+`%q +`%q+`%q; +`%qZ*+`%qxPS(Ҡҽ)',PS(ӠӠРҨٯΩ)&@\*']Š 'M6-$'a(ŭ) .'o P 8'a()B'Pa()E'Pa()G'Pa()L'P `-r %P b-rE()E@\xiYo/S(ӠҠϠΠϠս)&@_d]Ԡ o!PS(ҠȽ)'` $2PS(Ҡٽ)'`$W `qj`$6toS(ϠՠԠϠŠŨӯϩ)&@~`@*#r9()$d M6 q q\xi bE()GP`-r %Pb-rE()GP`-r %P b-rE()GP٭) o Pa(Ԡ)Pa(Ԡ) o PS(Ҡν)'ӱ$`ӱӱ$D.a(ĠҬ)8UVWYB_Dqq FM6L`ӱ$VUVM6 `%[*_"]ĠҠϠŠ\YUVWoPa()GUVWYoPa()GpUVWYzY_d]ԯ٠ M6-a(ԯӠȽ)'` $o S(Ҡٽ)'`$o  S(ҠҠҠ)'\*q\a-rq-rq -rq-rqo*U*U*U*U*U*U*U:U*U*U*U*W*U*U*U*U*U*U*U*U*U*]*U*Uj*+u*U*U*U*U*U.U/]>];W+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*W.w>U*U*U*U*U*U*U.U*Uj]*]*u*U*U*U*U*U*u+U*U*U:U*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*W.U*U*U:U*U*U+U*U*U*U*U*U*U*U*U*]*U*U*U**U*u*U*U*U*U*U*U+U*U*u*U*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*]*U*U*U:U*U~uzU/_*U*U*U*U*U:U*U*U(E*T"5*Q U(E*T".Q uhE+T"5*Q U(E*T".Q U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*(*U*U:U*U*U*U*U*U*U*U*U*U*]*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*T"5*Q U(E*T"jSU(E*\b*Q U(E*T".Q U*U*U*U*U(O.T"*Q ](E*\"*Q U(E*T"*Q U(E.T"*Q U*U*U*u*UjU+W.U*U*U*U*U*U*U*U.]:}+U*U.U*U*U*U*u*U*U*U*U:U*U:U*U*]*UjU*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*]zW+W*wn]*U*U*U*U*U*U*U*U(E*T"5*y UhE*\".Q U(E*T"*QW(EjT".Q U**}+u*u:W._>W*U*U:U*U*]*U*U*}*U*U*U.U*U*U*U*U*U*U*U*U*U*U*]*U*U*U*U*U*U*U*U*U.U*U*U*U*U*U*U*u*U*U*U*U*UjU*U*U*U*U*U*U*U*U*U.U*U*U*U*u*UjU+W/U*U*U:U*U*].]+U*U.U*U*U*U*U*U*U*U*U:U*U*U*U*W*U*U*U*U*U:U*U*U*U*]*U*U*]*W+u*U*U*U*U*U.U+.uju/u*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u*U*U*U*U*u*U*W.w.U*U+U*U*U*U*U.U*Uj}*u*u*U*U *U*U*}*U*U*UjU*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U:U*U*U*U*U*U*U*U*U*u*U*U*]*U*U*U*U*U*u*U*U*U*U*U*U.U*U*]*U*U*U*U*U*U.U*U*U*U*U*U*U*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 ;wnU*U*W*U*U*U.U*U*U*U*U*u*U*U*U*U*U.U*uj_?U*u*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u*U*U*U*U:U:U*U*U*U*U*U*U*UjU*W*U*U*U*U*U*U*u*U*U*U*U*U*]*U*U"PU*U*U*U*U.U*U*U*U*u*U*U*U*U*U*_:U*U*]:U*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*u*U*W*U*U*U*U*U*U*U.U*U.U*U*U*U*U*U*u*UjU+W.U*U*U+U*U*u*U*U.]n]*U*U.U*U*U*U*u*U*U*U*UzU*U:U*U*]*UzU*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*]:u.W*wn]*U*U*U*U*U*U*U*U*U*U*u*U*U*U*U*U.U*U*U*U*]*U*U*U*U*U.U*U*U*U*u*];wo]+W*U*U:U*U*]*U*U;uz]+U*U.U*U*U*U*U*U*u*U*U*U*U*u+U*U*U*U*U*U*U*U*].U*U*U*U*U*U*U*u*U*U/U*U*UjU*U*U*UjU*U*U*U*U*U.U*U*U*U*u*UjU+W+U*U*U:U*U*]*U*U.]n]+U*U.U*U*U*U*U*U*U*U*UjU*U*U*U*U*U*U*U*U*U:U*U*U*U*W*U*U*_*W+u*U*U*U*U*U.U;]*U*U+u*U*U*U*U.U*U(E*T"*Q U(E*T"*Q U(E*T"*Q U(E*T"*Q U*U*U*U*U(E*T"5*Q U(E*T"*Q W,]~T"+Q U(E*T".Q U*w*+u*U*U*U*U*U*]*U*U*U*W*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*W.U*U*UjU*U*u*U*U*U*U*U*U*u*U*U*W*U*U*U(E*T"5*Q U(E*T"*QU(EjW"*Q U(E*T".Q U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u*U*U*U.U*U.];wn_*U*W*U*U*U.U*U*U*U*U*u*U*U*U*U*U>U*uj];U*}*U*U*U*U*U.U*U*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*T"*Q UhE:T"*Q U(E*T"*QJU(G*T"*Q U*U*U*u*U*U*U*U*U*]*U*U*U.U*U*U*U*U*U.U*Uj*+u*U*U*U*U*U*}:U*U*].U*U*U*U*U*U.U*U*U*U*U*U*W.U*U*U*u*U*W*U*U*U*U*U*U*U.U*U.U*U*U*U*U*U*u*UjU+W.U*U*U+U*U*u*U*U.]nU*U*U.U*U*U*U*u*U*U*U*U*W*U:U*U*]*U>U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*]:u.W*w~]*U*U*U*U*U*U*U*U*U*U*u*U*U*U*U*U.U*U*U*U*]*U*U*U*U*U.U*U*U*U*u*U;wn]?W*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*U*U*U*]+U*U*U*U*U*U*U*u*]kUnW>]*UjU*U*U*UjU*U?_z]jW*U.U*U(E*T"5*QJU)G?T"*QU(E*\"*Q]8u*T".Q U*U*U*U*U*U*U*UjU*U*U*UjU*U*U*U*U*U:U*U*U*U*W*U*U*w*W+u/U.U*U*U*u*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U+U*U*U*U*]*U*U*U*U*U+U*U*U*U*U.U*U*U*U*u*U*U*U*U*U*W*U*U*U*_*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UjU*U*u*U*U*U*U*U*U*u*U*U*W*U*U*U*U*U*u*U*U*U*U*U*UzW*U*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U+U*U*U.U*U.]{un]*U*W*U*U*U+U*U*U*U*U*u*U*U*U*U*UzU*u*W.U*_*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u*U*U*U*UjU:U*U*U*U*U*U*U*UjU*U*U*U*U*U*U*U*u*U*U*U*U*U*]*U*U*U.U*U*U*U*U*U.U*Uj]*U+u*U*U*U*U*U*u;U*U*]+U*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U+U*W*U*U*U*U*U*U*U.U*U+U*U*U*U*U*U*u*UjU+W.U*U*U+U*U*u*U*U.]~u*U*U.U*U*U*U*u*U*U*U*U*]*U:U*U*]*U/U*U*U*U*U.U*U*U*ULL TELL YOU..":::" THE FORMULA IS TOO COMPLEX ":j22::" PRESS (RETURN) TO BEGIN THE PROGRAM ! ";:J$:::8:110 REACH (X) VALUE'":::" WHEN WILL THE DATA REACH 6 ? "::iL23:"PRESS ANY KEY TO CONTINUE ";:J$:V3:" SINCE A PLOT OF THIS DATA":"WOULD BE A STRAIGHT LINE, THE":"DATA WILL ";::"NEVER";::" REACH":"A VALUE OF 6":>`:" THE PROGRAM WI*$:"THIS IS FUNCTION 4 ON THE MENU":W.23:"PRESS ANY KEY TO CONTINUE ";:J$:82:"CONSIDER THIS PROBLEM.."::"THE 3 DATA VALUES INPUT ARE"::"NUMBER 1 = 5":"NUMBER 2 = 5":"NUMBER 3 = 5":<B"USING # 2 FROM THE MENU,":"'TIME DATA WILLTER HAVING PRESSED 2 FOR":"'TIME DATA WILL REACH (X) VALUE'"j23:"PRESS ANY KEY TO CONTINUE ";:J$:q3" THIS PROGRAM CAN GENERATE":"A HI-RESOLUTION GRAPHICS PLOT":"OF THE DATA THE OPERATOR INPUTS,":"WHEN REQUESTED, DURING THE PROGRAM":023:"PRESS ANY KEY TO CONTINUE ";:J$::e"PROBLEM 2":"WHEN WILL SALES BE 2500.00 ?"::"PROBLEM 2 CAN BE SOLVED USING":::" 2 TIME DATA WILL REACH (X) VALUE "::=" YOU WOULD TYPE IN 2500.00":"THEN PRESS THE RETURN KEY,":"AFN THE GRAPH":"YOU WOULD TYPE 12, THEN PRESS":"THE RETURN KEY WHEN ASKED":"'WHICH POINT ON THE GRAPH ?' ,AFTER":"PRESSING 1 FOR TREND LINE ANALYSIS":" THIS SAME RELATIONSHIP WILL WORK":"ON DAILY, WEEKLY, MONTHLY, AND":"YEARLY INPUT DATA":EN WILL SALES":13:"REACH 2500.00 ?":P"PRESS ANY KEY TO CONTINUE ";:J$::"PROBLEM 1..":"WHAT WILL SALES BE IN DEC. ?":3:" PROBLEM 1 CAN BE SOLVED USING":::" 1 TREND LINE ANALYSIS":::" SINCE DEC. WOULD BE POINT":"NUMBER 12 O6:"4";:16:"APR.";:26:"1900.00":6:"5";:16:"MAY";:26:"1800.00"s6:"6";:16:"JUN.";:26:"2100.00":" THIS PROGRAM CAN SOLVE 2":"TYPES OF PROBLEMS.."::'"PROBLEM 1..";::" WHAT WILL SALES BE IN DEC. ?"::"PROBLEM 2..";::" WHz"#    àӠ!àӠҠ ̠ŠԠ̠ŠԮؠ"ˠҠɠ ˠҠɠĠŠӠàĠӠàĠŠҠ Ϡ ӠŠŠҠ̠ҠҠҠҠŠŠԠ#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "     "Ӡ]ӠΠՠ]ԠԠԠ ]ΠӠˠӠQfx]]à]٠ĠĠ]Š]Ŭ٠] ] M6o,P%@a(ŠΠŬî)TUVWY hM6|a()Q] ]ĮϠˠ &S(Ϡ̠ǠӠ)&@ M6ca() Q&ĠӠ٠)cpa(ŧ̠ΠҠŬĠȠ٠ˠŠՠŠ͠Š٬ȠҠӮ)0cDP%Xa(ŠΠŬî)lP a(Š)P a(Ŭ٠)cĠŠƠŠӠŠӠĠՠĠͿŠՠΠˠŠӠϠŭ).a(Š٠ͿΠ٠Ů)cTa(ŠĠŠϠԠҠħӠҠӠϠ٠ĠŮ)P#a(ŬDx]]à]٠ĠĮ]Š]Ŭ٠] ] M6cc,P @a(ΠΠ)TP&ha(ŠӠĠŠ)|c|a(ӠՠŠ   ]Š M6/oa(ϠĠӬҠҠ)o-a(Šӭ)$oa()8oa(ҠŭРϠ)S()&@`@*#r9()$d!o S(@r$#v`;@r%@p(){`;@r$}\YRoa(ĠԠŠؠǠҠ)o Pa()2oa()_N`@*#r9()$d_N)o P&a()_0`@*#r9()$d:_JDoa(ՠ٠ҠؠҠ)a(ҠӠ)$Fo Pa() No P!XS(ҠĽ)&@ ]qb`; _d]נŠ M6/a(Ԡנŭ) o P#S(ҠŠƠŽ)&@`;@r%_0`;@r$D \Y1oa(ŠŠԠŠؠӠ)(a(Ĭ) S(ΠԠ)&@ d<e. d=e. d>eY d?eY  M63( d<e02 d=e0< d>e?F d?e? P M631Z o Pa(Š)E@*;@rrE(Ӡ)d UVWYnVWY_d. oPa(ǠĭР)- @p()@p() \Y UVWY_d ]Š M6, a(Šŭ)0 oPa(٠ŬӠٯҶPa(Š)E@*-rrE(Ӡ)B UVWYL _d/` oPa(ǠŠŭР) j Pa(ŠĠ)Ut @p()@p()@p()@p()~ \Y UΠ)&@d<e.d=e.d>eYd?eY M6*`@*;@rr:@*;@rr$` .`@*;@rr:@*;@rr$  d<e0 d=e0 d>e?$ d?e? . M638 oĠԠŠؠӠ)a()G_z`@*#r9()$d_]Ġ@p@@p()!@p@@p() oP%a(ΠŠԠŠΠ),S(ŬӠ٠)Y_4\`@*#r9()$df_R zo Pa()o P*S(ҠŠŠĽ)&@`;@r$`;@r$o Pa()\YQoa( M6+*a(Ġŭ) 4o P$>S(ҠŠŠŽ)&@H`;@r%_zM`;@r$\P\Y2Roa(ŠŠԠŠؠӠ)Sa()GUo /Wa(a(įŭ)o &S(ҠħҠŧ)&@!`@*#;@rr9()%_ !`@*#;@rr9()%_ \YFUVWoPa()UVWYoPa()UVWYY_l)P  a(ԯ)P a(Šנ)LP  a()P2@S(ҠΠ)'p2%_`%_'`%_&`%_:`%QS]įŠ lM6+ 7q>N@" r?N@" rFN@"rPq8r UбqZвqб \q_\] dM6 nq*a(̠ҭ),Pa(įŠ)P Xa(Ԥ0 N@"r N@"r N@" r qN@" rN@"rO4rO4rO4r qO4r q0 q? q #бq (вq -ұq 2Ҳq          ;6)a()E@;@)a()E@)h)]ĠŠ̤ĠŠȧ0uQ )E@a@E()E@Xa@a@cc a(Ҡ)E@cca̱@E()E̲@a̳@E()E̴@ a̵@E()E̶@a̷@E()E̸@a̹@E()E̱@'c'P2a() (c;)a()E@Š)&̴@VS(ҠŠ)&̵@XS(ҠŠ)&̶@ZS(ҠŠ)&̷@\S(ҠŠ)&̸@^S(ҠŠ)&̹@S(ҠҠ̠)&@$S(ҠҠԠӮ)&@#S(ҠҠ٬Ŭ)&@;a(Ԡ)&@S(ҠԠ)&@,S(Ҡ٬Ŭ)&@.S(Ҡ)&@/c#1ca(ҠȧӠԠ)/5P a()6S(ҠŠ)&̱@@S(ҠŠ)&̲@JS(ҠŠ)&̳@TS(Ҡɣ M6 N@"(r N@"(r N@"(r_Ṉ@"<rC̲@"<rC̳@"<rC̴@"<rC̵@"<rC̶@"<rC̷@"<rC̸@"<rC̹@"<rC̱@"<r (N@"(r 2N@"(r 3N@"(r <N@"(r FN@"(r(dS(ҠҬҠԠ)&@nS(Ҡ    ;6)a()E@;@)a()E@)h)]ĠŠ̤ĠŠȧ0uQ)E@a@E()E@Xa@a@cc a(Ҡ)E@cca̱@E()E̲@a̳@E()E̴@ a̵@E()E̶@a̷@E()E̸@a̹@E()E̱@'c'P2a() (c;)a()E@Š)&̴@VS(ҠŠ)&̵@XS(ҠŠ)&̶@ZS(ҠŠ)&̷@\S(ҠŠ)&̸@^S(ҠŠ)&̹@S(ҠҠ̠)&@$S(ҠҠԠӮ)&@#S(ҠҠ٬Ŭ)&@;a(Ԡ)&@S(ҠԠ)&@,S(Ҡ٬Ŭ)&@.S(Ҡ)&@/c#1ca(ҠȧӠԠ)/5P a()6S(ҠŠ)&̱@@S(ҠŠ)&̲@JS(ҠŠ)&̳@TS(Ҡɣ M6 N@"(r N@"(r N@"(r_Ṉ@"<rC̲@"<rC̳@"<rC̴@"<rC̵@"<rC̶@"<rC̷@"<rC̸@"<rC̹@"<rC̱@"<r (N@"(r 2N@"(r 3N@"(r <N@"(r FN@"(r(dS(ҠҬҠԠ)&@nS(Ҡ     S(ŠҭΠ)&@ `@:()$ 2 M6o a(ϠՠԠŠҠǿ) S(٠ҠΩ)&@ `@9()$ _ c c cΠź)x c. a(Ġ̠Ԡز)] a(̠ŠΠƠŠԠΠ٠ӠǠĠŮ)Z a(ϠŠ͠ΠӠՠԠϠԠΠȠŠ٠Ǡנ) cՠ)( a(ԠΠŠŠҬ)+( a(Р̠ҠҠŠŠ)*< a(ԠӠԠŠŠΠ)QP a(ȠҬĠƠΠΠӠĬΠԠԠΠŠ)7d a(ΠƠŠǬŠӠ_K` ] j KM6 t oP ! a(ŠάΠŠƠŠ) a(ǠӺ)- a(ҬҠĬҠŬҠԬ), a(ĮĠԠŠĠΠԠ)* a(ȠŠƠǠӠŬ), a(ΠԠŠĠƠŠȠ)_UVW(a()GY[]ĭq_1UVW';@r,UVW;@r`.?r<@*#rr$$Y[$Yw._^@p@*#;@rr_@p@*#;@rr_X$4`$Ha()Gq_4Hqede7de.?rde.?rdeded'e_(6 qq.?r.?r`$z`$ V*de.?rde.?rde.?rde.?rdede_(zca(ϠΠĠ٠) ccQ X]%b`;@r&$la(Ϡ)_(,lq.?Lr.?Mrq.?r.?r"vde`.?r$&UVW;@rde<@*#rrY#UV;@rW&de<()r;Yq.?r.?rdS(ӠӠŠŠ)&@`@9()$`@:()$0q.?Lr.?Mrq.?r.?r `$ Xde.?rde.?rde.?rde.?rdede_(ca(ٮϠ)+a(ŠϠͺ$J T] Uq:Yqq.?6@rd6?e`$^R@`@9()$h^q.?r.?r_@ h\c |c_(cS(ƣ)'`$(5q8.?Lr.?Mrr]ƠΠĠΠ$UVW'de.?rMYc`.?r$"6deq.?r.?r;\q@`$hqE`%\F`$Iq*Ga(ĠҠ)FE(Š)F9Jq.?r`$T`<()r$4deMq KqO`'e`.?r$%de8rde8rdedea(ŠԠΠ)GOUVWX(de8(rde8(r`.?r8(r$Yca()_( ,q41q.?Lr.?Mrq.?rde<`@*#r9()$F`@9()$,P`@9()$Z`@9()$_`;@r $da(Կ)_(q.?Lr.?Mr a(̠٠Ԡ)-S(͠)&@`@9()$(`@:()$de`.?r$_d \`  q0 dededeLdede/ S(ϠՠԠîϠĿά)'_0dededeLdedeN@"PrC@"rM6o8r(R@-`;@r$d2`@*#r9()$     )a(ӻҠӬЭ)Ga(ǬĠӮ)*oa(ӠΠҠԠ)GR@Ld6?eM63cca(ԠԠ)G1"ca(ӺŠԬΠŬ)G,QM6Pa()od ed!e(oa(Š͠Š)ba(ŮǠή)a(Ġ٠ͬ)a(ӠΠǠĠ)ha(Ӯ٠Į)ca(ĠΠ̠)Gd2ea()Gd2e?a() d2ec.a()Gd2e?a(ŠԠ)Pa(ΠŬƮ) d2eca(Ǡ)Gd2e?a()d2e0oPa(ӠΠҠԠ)GR@! a(Ġ̠ŠԮ) dKM6 no P xa(̠ŠԠ)UVWY M6o/a()Gd2e?a(Ġˠ) d2e$ca(ԠϮ)Gd2e?a()G d2eIa()Gd2e?a(   *U*U*W/U*U*U*W*U*u*U*U*U*U*U*U*U*U*UjU*U*U*U*U*U*u*U*U*U*U*U*U:U*U*U*U*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U+U*U*U.U*U.u:u.W*U*U*U*U*U+U*U*U*U*U*u*U*U*U*U*UjW*u*U*UjW*U*U*U*U*U.U*U(E*T"*Q U(E*T"*Q U(E*T"*Q U(E*T"*Q U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UjU*U*U*U*U*U*U*u*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U.U*Uj]*U+u*UjU+W.U*U*U?U*U*}*U*U.]:u*U*U.U*U*U*U*U*U*W.U*U*U*U+U*U*U*U*U*U*U*U*U*U*U+U*U*U*U(E*T"5*QJU)G.T"*Q U(E*T"*Q]lE+T".Q U*U*U*u*U*U*U*U*u*U:U*U*]*u+U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*];u.W*n]+U*U*U*U*U*U*U*U*U*U*u*U*U*U*U*U+U*W.]:U*U*U*U*U*U*U.U*U(E*T"5*Yu,M.V"*QU(E*t"*Qwh}*T".Q U*U*U*U*U(E*T"*Q U(E~w?{_}o~w?{_(E*T"*Q U*U*U*u*}:wn]>]*U:U*U*U*U*U*U+wz]jU*U.U*U**}+u*U*U*U*U*U*U:U*U*]*U*U*U*U*U*U.U*U*U*U*U*U*U*U*U*W*U*U*UjU*U*U*U*U*UjU*U*U*UjU*U*U*U*U*u*U*U*U*U*U.U*U*U*U*u*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U.U*U*U*U*]*U*U*U*U*U.U*U*U*U*U+U*U*U*U*u*U*U*U*U*U:U.}.ukW/u*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*W*U*U*U*U*U*U*U*U*U+U*UjU*U*U*U*U*U*u*U*U*U*U*U*U.U*U*]*U*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U.U*U*U*U*U.U:U*U*U*]*U*U*u*U*U*U*U*U*u*U*U*U*U*U*_*u*U*UzU*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*w.U*U*U*U*W.U*U*U*U*U*U*U*U*WjU*U*U*U*U*U*U*u*U*U*U*U*U*W*U*U*U:U*U*U*U*U*U.U*Uj]*U+u*UjU+W;U*U*U:U*U*]*U*U.]n]+U*U.U*U*U*U*U*U*U*U*U*U*U*UjU*U*U*U*U*U*U*U:U*u*U*U*U*U*U*U*u*UjU+W.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*U.U*U*U*U*U*U*U*U*U*P*U*U*U*];u.W*w*]+U*U*U*U*U*U*U*U*U*U*u*U*U*U*U*U+U*W.wnU*u*U*U*U*U*U.U*U*U*U*u*]+U*]*U*U*U:U*U*U+U*U;w:]*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u*U*U*U*U*U*U*U*u*}:wnW:]*U:U*U*U*U*W*U/_j}jU*U.U*U*_*w*u*U*U*U*U*U*U:U*U*]*U*U*U*U*U*U.U*U*U*U*U*U*U*U*U*]*U*U*U*U*U*U*U*U*UjU*U*U*UjU*U*U*U*U*u*U*U*U*U*U.U*U*U*U*u*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*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*T"5*Q U(E*T".Q],M:T#5*Q U(E*T/Q U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*w.U*U*U*U*U*]*U*U*U*U*U*U*U+U*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*T"*Q U(E*T"*Q U(E*T"*Q U(E*T"*Q U*U*U*U*U(E*T"*QU(E*T#*QU8E*T"*Y U(E*t"*Q U*U*U*u*U*U*U*U*U*]*U*U*U>U*U(*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*W.U*U*U*U*U*U*U*U*W:U*U*U*U*U(E*T"5*Q U(E*T"*S U(E*T2*Q U(E*T".Q U*W*U+u*UjU+W:U*U*U:U*U*]*U*U.]n]+U*U.U*U*U*U*U*U*U*U*U*U*U.UjU*U*U*U*U*U*U*U:U*u*U*U*U*U*U*U*u*UjU+W.U*U*u*U*U*U+U*U.]:u*U*U.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*T"*Q U(E*T"}:QK_(g:|"*Q U(E*T"*Q U*U*U*u*U*U*U*U*U+U*W.wjU*5(*U*U*U*U.U*Uj*+u*u*U*]*U*U*U>U*U*U/U*U;U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u*]kunU.]*U:U*U*U*U*W*U+W:]zW*U.U*Uj]*w*u*U*U*U*U*U*U:U*U*]*U*U*U*U*U*U.U*U*U*U*U*U*U*U*U*]*U*U*U:U*U*U*U*U*UjU*U*U*U:U*U*U*U*U*u*U*U*U*U*U.U*u/_>U*u*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U:U*U*U*U*W*U*U*U*U*U.U*U*U*U*u*U*U*U*U*u*U*U*U*U*U.U:].}{W+u*U*U*U+U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*]*U*]*U*U*U*U*U*U*U+U*U:U*U*U*U*U*U*u*U*U*U*U*U*U.U*U*]*U*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U.U*U*U+U*U*U*U*U*U*]*U*U*U*U*U*U*U*U*u*U*U*U*U*U*u*U*U*U+U*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}+U*U*U*U*].U*U*U*U*U*U*U*U*W:U*U*U*U*U*U*U*u*U*U*U*U*U*U*U*U*U:U*U*U*U*U*U.U*U*U*U*u*UjU+W:U*U*U:U*U*]*U*U.]~}+U*U.U*U*U*U*U*U*U*U*U*U*U.UjU*U*U*U*U*U*U*U:U*]*U*U*U*U*U*U*u*U*U*U*U*U*u*U*U*U+U*U*U*U*U*U.U*U*U*U*u*U*U*U*U*UzU:U*U*]*W*U*U*U*U*U.U*U*U*U *U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u*U*U*U*U*u*U*W.jU*u*U*U*U*U*U.U*Uj]*]*u*U*U*U*U*U*U/U*U*U>U*U/U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u*]+UjU*]*U*U*U*U*U*W*U+W*UjU*U.U*U*_*w*u*U*U/U*U*U*U:U*U*]*U*U*U*U*U*U.U*U*U*U          AT FOR BOND DATA IS/& NAME, DATE DUE,AMOUNTJ0 WAR LAM,4-1-85,10000f2 XYZ SAVINGS,NONE,5000}4 ABC,1-2-80,10000 MN,1-2-70,100,10,2, OP,1-2-70,100,10,1E  QR,1-2-70,100,10,1^  ST,1-2-70,100,10,3w UV,1-2-70,100,10,3 WX,1-2-70,100,10,1 YZ,1-2-70,100,10,1 AB,1-2-70,100,10,2 CD,1-2-70,100,10,3 IBM,2-3-70,50,150,2 FORMSS ENTER TO CONTINUE";A$:9 FORMAT FOR STOCK DATA ISx STOCK NAMD, DATE BOT, SHARES, PRICE PER SHARE, ACCOUNT # ATT,3-4-76,200,52,2 ABC,1-2-30,100,10,1 DEF,1-2-70,100,10,2 GHI,1-2-70,100,10,3 JKL,1-2-70,100,10,290;"ENTER DOLLAR AMOUNT IN (+) OR OUT(-) OF ACCOUNT";YAy"NEW DIVISOR FOR ACCOUNT ";X;"=";YA(NX)VA(NX)260:40L1N:A$,B$,S,P,A:L"AMOUNT","NAME","DATE DUE"L1M:A$,B$,SS,A$,B$:L260::40:"PREARES ";"STOCK ";"PRICE BOT ";"DATE BOT";LBCLA$,B$,S,P,AjS;11);A$;22);P;33);B$sL:"ACCOUNT ";"DIVISOR":"NUMBER"L14:L,A(NL):L:"DO YOU WISH TO FIND NEW DIVISOR? 0=NO,1=YES";YY040:1OUNT ";X;" VALUE PER SHARE=";VA(NX)2 260:40Q "ENTER ACCOUNT NUMBER ";X` V0:L1N A$,B$,S,P,A: LOOKS LIKE AN EXTRA COMMA HERE (XA)(X4)VVSA(L) L : B1:C11:220:260: B12:CN:220:260 :400"SHB12:CN:170:260 :40r "STOCK ";"DATE BOT ";"CURRENT ";"% PROFIT":" PRICE"} LBC A$,B$,S,P,A A$;10);B$;21);A(L),(100(A(L)P1)) L: 190 :"ACCOUNT ";X;" CURRENT VALUE=";V:% "ACC% d"1=STOCKS RECOMMENDED BY MR. X"H f"2=STOCKS CHOSEN BY METHOD Y"k h"3=STOCKS I SHOULD HAVE SOLD" j"4=ALL STOCKS ON MY LIST" n260:40 xL1N A$,B$,S,P,A "ENTER PRICE OF ";A$ A(L):L :40 B1:C11:170:260: LUE PER SHARE OF AN ACCOUNT"N :"5= LIST STOCKS WITH ORIGINAL PURCHASE DATA"| <"6= LIST ACCOUNT DIVISORS/FIND NEW ONES" >"7= LIST BOND AND CASH DATA" F:"WHAT IS YOUR CHOICE";J: PJ90,120,160,180,210,230,250 Z:::"ACCOUNT NUMBERS": A(20)= A(N1)1000:A(N2)1000:A(N3)1000:A(N4)1000R L1N:A(L)0:Li (:::"CHOICES": 2"1= LIST ACCOUNT NUMBERS" 4"2= INPUT CURRENT PRICES" 6"3= LIST STOCKS WITH CURRENT PRICES AND PROFITS" 8"4= FIND CURRENT VALUE AND VA ; THIS PROGRAM ADAPTED FROM TRS-80 BASIC BY TOM KLEINv FROM THE 2/80 ISSUE OF CREATIVE COMPUTING, PP.56-59. STOCK MONITOR BY W.K. MASON N=NUMBER OF STOCKS, M=NUMBER OF BONDS A(N+1) THROUGH A(N+4)=ACCOUNT DIVISORSN15:M3      -1-80,100,50,3'  ST,1-1-80,100,50,3@ TU,1-1-80,100,50,3^ FORMAT FOR BOND DATA IS{ NAME, DATE DUE, AMOUNT WAR LAM,4-1-85,10000 XYZ SAV,NONE,5000 ABC,1-2-80,10000: HI,1-1-80,100,50,2- IJ,1-1-80,100,50,2F JK,1-1-80,100,50,3_ KL,1-1-80,100,50,3x LM,1-1-80,100,50,3 MN,1-1-80,100,50,1 NO,1-1-80,100,50,1 OP,1-1-80,100,50,2 PQ,1-1-80,100,50,2 QR,1-1-80,100,50,2 RS,1 VWX,1-1-80,100,50,22 WXY,1-1-80,100,50,3L XYZ,1-1-80,100,50,3e AB,1-1-80,100,50,3~ BC,1-1-80,100,50,3 CD,1-1-80,100,50,3 DE,1-1-80,100,50,1 EF,1-1-80,100,50,1 FG,1-1-80,100,50,1 GH,1-1-80,100,50,2 LMN,1-1-80,100,50,3. MNO,1-1-80,100,50,3H NOP,1-1-80,100,50,3b OPQ,1-1-80,100,50,3| PQR,1-1-80,100,50,3 QRS,1-1-80,100,50,1& RST,1-1-80,100,50,10 STU,1-1-80,100,50,1: TUV,1-1-80,100,50,2D UVW,1-1-80,100,50,21-1-80,100,50,1) DEF,1-1-80,100,50,1C EFG,1-1-80,100,50,1] FGH,1-1-80,100,50,1x FGHA,1-1-80,100,50,1 GHI,1-1-80,100,50,2 HIJ,1-1-80,100,50,2 IJK,1-1-80,100,50,2 JKL,1-1-80,100,50,2 KLM,1-1-80,100,50,2;A$:$ FORMAT FOR STOCK DATA ISC FORMAT FOR STOCK DATA IS STOCK NAMD, DATE BOT, SHARES, PRICE PER SHARE, ACCOUNT # STOCK NAMD, DATE BOT, SHARES, PRICE PER SHARE, ACCOUNT # ABC,1-1-80,100,50,1 BCD,1-1-80,100,50,1 CDE, AMOUNT IN (+) OR OUT(-) OF ACCOUNT";Y,d"NEW DIVISOR FOR ACCOUNT ";X;"=";YA(NX)VA(NX)q260:40L1N:A$,B$,S,P,A:L"AMOUNT","NAME","DATE DUE"L1M:A$,B$,SS,A$,B$:L260::40:"PRESS ENTER TO CONTINUE";"PRICE BOT ";"DATE BOT"&LBC7A$,B$,S,P,AUS;11);A$;21);P;32);B$^L:"ACCOUNT ";"DIVISOR":"NUMBER"L14:L,A(NL):L:"DO YOU WISH TO FIND NEW DIVISOR? 0=NO,1=YES";YY040:190&"ENTER DOLLAR:40# "ENTER ACCOUNT NUMBER ";X2 V0:L1Nd A$,B$,S,P,A: LOOKS LIKE AN EXTRA COMMA HERE (XA)(X4)VVSA(L) L : B1:C20:220:260: B21:C40:220:260: B41:CN:220:260 :40"SHARES ";"STOCK "TE BOT ";"CURRENT ";"% PROFIT":" PRICE"J LBC[ A$,B$,S,P,A A$;10);B$;21);A(L);32);(100(A(L)P1)) L: 190 :"ACCOUNT ";X;" CURRENT VALUE=";V: "ACCOUNT ";X;" VALUE PER SHARE=";VA(NX) 260LL STOCKS ON MY LIST"" n260:40- xL1NA A$(L),B$,S,P,Ac A$(L)A$(L1)A(L)A(L1):L "ENTER PRICE OF ";A$(L) A(L):L :40 B1:C20:170:260: B21:C40:170:260: B41:CN:170:260 :40? "STOCK ";"DAS/FIND NEW ONES"2 >"7= LIST BOND AND CASH DATA"S F:"WHAT IS YOUR CHOICE";J:u PJ90,120,160,180,210,230,250 Z:::"ACCOUNT NUMBERS": d"1=SPECIAL GROWTH PORTFOLIO" f"2=LONG TERM PORTFOLIO" h"3=STOCKS I SHOULD HAVE SOLD" j"4=A2"1= LIST ACCOUNT NUMBERS"; 4"2= INPUT CURRENT PRICES"q 6"3= LIST STOCKS WITH CURRENT PRICES AND PROFITS" 8"4= FIND CURRENT VALUE AND VALUE PER SHARE OF AN ACCOUNT" :"5= LIST STOCKS WITH ORIGINAL PURCHASE DATA" <"6= LIST ACCOUNT DIVISOR # STOCK MONITOR BY W.K. MASONO N=NUMBER OF STOCKS, M=NUMBER OF BONDS| A(N+1) THROUGH A(N+4)=ACCOUNT DIVISORSN45:M3A(100),A$(100)A(N1)1000:A(N2)1000:A(N3)1000:A(N4)1000L1N:A(L)0:L(:::"CHOICES":      Y TO CONTINUE ";:Q$::3000p::"* EXAMPLE *"::3:" LETS SAY MONTHLY SALES HAVE BEEN":::" INPUT # MONTH AMOUNT ":::6:"1";:16:"JAN.";:26:"1200.00"z6:"2";:16:"FEB.";:26:"1800.00":6:"3";:16:"MAR.";:26:"1600.00"H(M)79)T8):52534Y1(D(M)79)T8:Y1159Y1159CY10Y11VX1279X1279iY1159Y1159xM05265Y1159Y1159X1,Y1:5270X1,Y1X1X1J2:M23:" AVERAGE INPUT DATA VALUE = ";::T8:24:"PRESS ANY KEP11,1620,16"Z11,14320,143:nM02796:M,79:MCxX15i}BOTH C(X)-REV & D(X)-NOR OK HERE~T80:M0O1:T8T8C(M):M:T80T81T8T8O:T925250GET HERE ONLY IF POSITIVE DATAT81T81M0O1T91Y1158((D J2280O1J2=279 (X) / O (# OF DATA INPUTS)AT2(HILO)vT2=THE RANGE BETWEEN THE HIGH & LOW DATA VALUESS1=159/T2  S1=THE Y LENGTH PER INPUT UNIT ()3*0,0+6245020,0279,0279,1590,1590,0F15,1215,20 5100.FIND HIGH AND LOW OF INPUT DATAIC(X) OK AT THIS POINT]J10:M0(O2)tC(M)C(M1)5080T1C(M)C(M)C(M1)C(M1)T1J11MJ115020:21:" 1 ";::15:" INPUT DATA ";38:O :" WHICH ? ";:J::::4:"SORTING DATA BASE"::T9J:J1J23041O 5000] J43042g 3000:8::"THE FORMULA IS TOO COMPLEX"::J12000:J:::100BM SUNDAY 2/24/79HRG PLOT SUB OF INPUT DATAD(0)0T913042E":"POINT NUMBER 1"::S J1ĺ"AT WHAT";A$;"POINT ON THE GRAPH ?";:" ";E:300y :J2Ą"INPUT (X) VALUE ";F:400 J3ė::8:110 3045 :8:"WAS THE INPUT DATA + OR - DATA ?":::8:"1 POSITIVE (+) ":8:"2 NEGATIVE (-) "::E UNCTION DO YOU WANT ?":_ 7:"1 TREND LINE ANALYSIS":7:"2 TIME DATA WILL REACH (X) VALUE" 7:"3 START A NEW PROBLEM":7:"4 GRAPHICS PLOT OF INPUT DATA ": "WHICH FUNCTION ? ";:J : " REMEMBER.."::13:"FIRST INPUT IS REFERENCPF:265:PP(1C)&220:A040004HPA:PH:8:" THE PROJECTED POINT ON THE GRAPH"::"THAT THE DATA WILL REACH ";F;" IS AT":::P;::B$19:"PRESS ANY KEY TO RETURN TO THE MENU ";:J$::3000 ::4:" * MENU * "::7:"WHICH FLABEL C 220:BV((1Y)A)* CBT0 "= ,LABEL DE 6QET @220:QQAc J265:GCQl O:7 T" THE PROJECTED VALUE OF THE"::"DATA AT ";E;B$;"IS ";::G: ^19:"PRESS ANY KEY TO RETURN TO THE MENU ";:J$::3000 LABEL E}C(M1)N:D(M1)C(M1)' ~NLOLON6 NHIHIND ZN:VVNR UU(N2)\ TT1l YYT:ATZ WWA: A = STEP 027 VALUE X(T2)X M 3000 LABEL B SYT RSVW J4000:(SYX)0J AR(SYX)  B$(6):B$" DAYS "C uJ2ĆA$(8):A$" WEEKLY ":B$(7):B$" WEEKS "w vJ3ĆA$(9):A$" MONTHLY ":B$(8):B$" MONTHS " wJ4ĆA$(8):A$" YEARLY ":B$(7):B$" YEARS " xJ1J4ė:12:112 y:5:M1O::"INPUT DATA VALUE NUMBER ";M;" ";:" ";N ALUES";::::"DO YOU HAVE TO INPUT ";:"? ";O:O2ė::8:110S oC(O1),D(O1) p:" ARE THE DATA VALUES"::7:"1 DAILY":7:"2 WEEKLY":7:"3 MONTHLY":7:"4 YEARLY": qJ(0) s"WHICH TYPE OF READINGS ? ";:J tJ1ĆA$(7):A$" DAILY ": LEAST-SQUARES FIT":"OF POINTS (X,Y), WHERE Y IS":"INPUT AND X IS INTEGRALLY INCREMENTED" j"BEGINNING WITH 1, IS DETERMINED":"BY THIS PROGRAM" k::" INSTRUCTIONS ? (Y/N) ";:J$:J$"N"ė:8:110 l6000@ n"HOW MANY ";::"INDIVIDUAL DATA V 16384M TREND LINE ANALYSIS ISSUE # 1 B MARTIN 2/23/79] ISSUE # 20j"":255::8:10::"TREND LINE ANALYSIS"::J11000:J:15:"BILL MARTIN 3/16/79"(::dINSTRUCTIONS[ i"THE LINEAR           52 "BY JOE SOBEL OF LAVENTHOL & HORWATH."b "COPIES OF THE PROGRAM SHOULD BE MADE FOR"i 7 "BACKUP PURPOSES ONLY.`" t24. u"PRESS RETURN TO CONTINUE ";AN$A vAN$(13)120K w936y x" THE VISICALC COORDINATE FORMULA PRO-" }"GRAM WAS DEVELOPED BY THE SAME PEOPLE" "WHO WROTE VISICALC. PERMISSION TO" "CONTRIBUTE IT TO NSAUG HAS BEEN OBTAINED"" THE PROGRAM WILL PRINT THE COORDINATE"W _"LOCATIONS (E.G. >B4) AND THE FORMULAS d"CONTAINED AT THOSE LOCATIONS, TO THE" i"SCREEN. IF YOU WANT TO PRINT THE FOR-" n"MULAS TO THE PRINTER YOU MAY TURN THE" s"PRINTER ON (PR#X) AND DO SO.SICALC COORD. FORMULAS"E A"PROGRAM AND RUN THE PROGRAM. INSERT THEt F"DISK CONTAINING THE VISICALC FILE TO BE" K"LISTED AND, WHEN PROMPTED FOR THE FILE" P"NAME, ENTER THE NAME OF THE VISICALC" U"STORAGE FILE YOU WISH TO LIST." W15+ Z CLEAR SCREEN936L" THIS PROGRAM WILL LIST THE FORMULAS,"{("RATHER THAN THE VALUES, FOR THE COORDI-"-"NATES IN A STORED VISICALC FILE (TEXT"2"FILE).467" TO USE THE PROGRAM INSERT THE DISK" <"CONTAINING THE VI    LINE 240- PRINTER ON/.LINE 260- PRINTER OFFC8LINE 290- ENDS A CELL TO& 'P' PLACESBLINE 100- GET THE FILE\  'F$'- 'LN'q  LINESLINE 140- PRINT SHEET FROM 'ST' TO TO LINE 'LN'LINE 200- SUB TO PRINT MAIN TITLE$?";X2,Y2)0X10X20Y10Y20550M:CXX1X2:CYY1Y2:40:CY:CXD:"PRINT FILE: WHAT VERTICAL COORD. TO END-OF-SHEET?";STN140X::: LINE 20- SUB TO SET  DEFAULTS LINE 40- SUB TO SET  R RIGHT HAND CORNER."~"VISICALC COOORDINATE LETTERS WILL HAVE TO BE CONVERTED TO NUMBERS (I.E. 'A' IS 1, 'BK' IS 63)."::"NUMBER OF PLACES TO FIX NUMBERS TO?";P::20!:"TYPE 0 COORDINATED TO END.":&"UPPER LEFT?";X1,Y1:"LOWER RIGHTINT THE SHEET TO DISK, AND THEN RUN THIS PROGRAM.""'FIXING' A BLOCK OF COORDINATES TO A CERTAIN NUMBER OF PLACES:":" TYPE IN TWO SETS OF COORDINATES, THE FIRST SET BEING THE UPPER LEFT HAND CORNER OF THE BLOCK, THE SECOND BEING THE LOWEFILES (MADE WITH THE 'P' COMMAND) WITH NUMBERSIN NO PARTICULAR FORMAT TO NUMBERS WITH THEIR DECIMAL PLACES LINED UP AND WITH ASPECIFIED NUMBER OF PLACES"4" YOU SHOULD WRITE DOWN THE COORINATES OFTHE BLOCKS YOU WISH TO USE WHILE STILL IN VISICALC, PR 5, 1980  @: J: T:! ^:8 : MAIN PROGRAM...a ::" VISICALC D-FILE PRINTER" ::"NAME OF D-FILE?";F$:"NUMBER OF LINES IN D-FILE?";LN "TITLE TO PRINT AT TOP-OF PAGE":TITLE$ 100 :" THIS PROGRAM CHANGES VISICALC D- FIRST PAGE :" PRINTER ON} (4);"PR#1":(9);"80N": CENTRONICS/PARALLEL INTERFACE IN SLOT #1, SET TO 80 COLUMNS :  PRINTER OFF (4);"PR#0" : ":(4)"CLOSE": , SET UP PRINTER 6 DAVID J. SHERMAN- JULY0:{ (12):40(TITLE$));TITLE$::L2:170: PRINTS ONE LINE HEADER AT TOP OF PAGE : PRINT TITLE (12);:40(T1$)2);T1$:40(T2$)2);T2$:40(T3$)2);T3$::L4:: ALLOWS 3 LINE TITLE AT TOP OF1)W)(B$X$,W)(A$(CY),CXW1):1:1:CY","CX:9 Z:I d GET SHEETU iA$(LN){ n:(4)"OPEN ";F$:(4)"READ ";F$ xX1LN:A$(X)::(4)"CLOSE": : PRINT SHEET ST,LN 230:L1STLN:X$A$(L1) X$:LL1:L56180 L1::26D  400@X1P:Z$Z$"0":S$S$" ":B$B$" "::K10PF:a( FIX CELL TO 3 PLACES2X$(A$(CY),(CX1)W1,W):(X$)0ı<X(X$):X$((X))".":X(X)X$X$S$:80FX((X(X)(.5K))K):X$X$(Z$(X