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`*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*UӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢLL 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..";::" WH ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` b@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::- ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us and  $% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4 OAD IN INTEGER BASIC " 10` C(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":180:f n 23 D$;"BRUN MENU" CENTER STRING A$ B(20((A$)2)):B0B1 B:A$:C from our library." P:D Z"WILLAMETTE APPLE CONNECTION, INC."X d"P.O. Box 7252w n"SALEM, OREGON 97303-0053 s20:"PRESS ANY KEY TO CONTINUE" xA$ } D$(4): CTRL-D D$;"BLOAD LOADER.OBJ0"  4096: FAST L  ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as"("Public Domain. If any person has proof"2"that any program is not Public Domain,"<"please contact us and we will delete" F"the program   eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  +z #?1,X°    àĠŠҠ àӠ!àӠҠ"à*ɠŠ ŠԠ̠ŠԠ̠ŠԮؠ"ˠҠɠ ˠҠɠĠŠӠàĠӠX°] Ϡՠ" ҮʰҠ̠ҠҠҠҠŠD  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    Ӡ]ӠΠՠ]ԠԠԠ ]ΠӠˠӠ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),P)3 PA$(CY)(A$(CY),(CX     "Y"ī910C$"N"1000"510F:"BAD FILE NAME OR PARAMETER"m:"HIT 'RETURN' TO CONTINUE";R$:v510zA$"Y"ī510A$"N"Ā<936::"FILE NOT FOUND":ND$;"CATALOG"T:"CHECK FOR THE CORRECT FILE NAME"::22:868:"DO YOU WANT TO VIEW THE FIRST PAGE(S) OF THE CATALOG AGAIN(Y/N)? ";C$C$"Y"C$"N"ī960C$D$;"MON I"D$;"OPEN ";F$0D$;"READ ";F$: :;V$C780U (222)5840h*(222)6ī910}4(222)11ī1010>HD$;"NOMON I"RD$;"CLOSE ";F$\D$;"PR#0"f:::" PRINT ANOTHER FILE(Y/N)? ";A$pA$"Y"A$"N"ī870(F$)0ī640#D$;"READ ";F$5D$;"PR# ";M$:"VISIPRINT PROGRAM TO PRINT COORDINATE FORMULAS FOR VISICALC FILES":"COORDINATE FORMULAS FOR: ":F$U$"-----------------------------------"N(F$)(U$,N) Y$"S"ī550&D$;"PR#0"%0K:5:868:"ENTER FILE NAME: ";F$]D(F$)0ī570pND$;"READ ";F$yX680b:l5:868:"ENTER SLOT # OF PRINTER INTERFACE CARD ";M$vM$(49)M$(55)ī6207:868:"ENTER FILE NAME: ";F$SICALC TEXT FILE(S) FOR WHICH YOU"["WANT THE COORDINATE FORMULAS PRINTED IN DRIVE #1."::6::"HIT 'RETURN' TO CONTINUE";:R$:936:868:3::"PRINT TO PRINTER OR SCREEN (P/S)...";Y$:Y$"P"Y$"S"ī510Y$"P"ī610;R$:936E8:3::"VISIPRINT PROGRAM FOR VISICALC FILES":t:" TURN YOUR PRINTER ON AND SET 'DIP'"11:"SWITCHES AND OTHER ADJUSTMENTS, IF ANY,""TO DESIRED SETTINGS.":" INSERT THE DATA DISKETTE CONTAINING"""THE VI2 ^16:"UNDER VISICALC, USING VALID DOS NAMES."b h"THE INVALID FILE NAMES CANNOT BE RENAMED" r18:"SINCE THE OLD FILE NAME WILL CAUSE A" |"'SYNTAX ERROR' WHEN USED WITH THE DOS" "'RENAME' COMMAND."22::"PRESS 'RETURN' TO CONTINUE"/ ""INVALID CHARACTER FOR 'DOS' FILE NAMES,"\ ,"(E.G. A NUMBER) CANNOT BE ACCESSED BY"q 6"THIS PROGRAM." @:" IN ORDER TO USE THIS PROGRAM FOR ANY" J"FILES HAVING 'ILLEGAL' DOS FILE NAMES," T"IT WILL BE NECESSARY TO RESAVE THE FILES"STORE VISICALC TEXTF 4:"FILES MAY BEGIN WITH MOST ANY CHARACTER, v 5:"LETTER OR NUMBER. HOWEVER, 'DOS' FILE" "NAMES MUST BEGIN WITH A LETTER. SINCE" "THIS PROGRAM OPERATES UNDER NORMAL DOS," "A VISICALC FILE NAME BEGINNING WITH AN"R TO A" "PRINTER."C " THIS WILL ALLOW YOU TO REVIEW THE"q "VISICALC WORKSHEET (TEMPLATE) FORMULAS" "FOR ACCURACY." 22::"PRESS 'RETURN' TO CONTINUE ";R$: 936 11::"IMPORTANT NOTICE !!!": :" FILENAMES USED TO RDINATES (CELLS) IN A STORED"I n"VISICALC TEXT FILE. THE PROGRAM WILL"v x"PRINT THE COORDINATE LOCATIONS (E.G.," ">B4) FOLLOWED BY THE FORMULA STORED AT" "THAT LOCATION. THE COORDINATE VALUES MAY" 14:"BE PRINTED EITHER TO THE SCREEN Ow  800 D$(4): CTRL-D6D$;"NOMON I,O,C"@(936t23::" VISIPRINT FORMULAS BY JOSEPH SOBEL "<13:"COPYRIGHT 1981":F7P" THIS PROGRAM WILL LIST THE FORMULAS"Z"RATHER THAN THE RESULTING VALUES, FOR" d"THE COO         52 "BY JOE SOBEL OF LAVENTHOL & HORWATH."b "COPIES OF THE PROGRAM SHOULD BE MADE FOR"i 7 "BACKUP PURPOSES ONLY.G" 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!! ! ! ! / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00""""""           ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ" " " ""B(20((A$)2)):B0B1( B:A$:)  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASICd(4);"BRUNMENU" CENTER STRING A$ ""