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`oeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H h0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^_^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІș Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $ ) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱve$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơhL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅ $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаHٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢLL(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompnL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$ 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ)ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ c # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, 0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥzݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hif&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*U W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`J 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,--&,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0`YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` `E/E//`$(H)? @(hl8NO,(,` ɛ`2H2 h2Ɉɘ  : 3  5ɕ()ߝɍв [=< @L< >=?<) < `JJJ>Ie@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A&?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵b@ &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` Ӎ$ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  ׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !L 7 0 ! $ ه  :L HH HH`8 ީ" fޭ$ [) L) (.H8 #L h Ь` ɀ0ɠ0 L)LحQ ɍxP P " ɍHHh)Hh HhL< ɠ,HPhɍ n 0PP PЛLn؍hh` $ L{ٌ ɍɠL٩  $$    L8鰐  i )` :Ќ$ [ $$ , 0  00 ` :L7۠$ [ $ uL%ڠ8`I w aح'L0!) : ` BL~88"L~ک$ [ $$ ٭Laؠ8$ [ L7۩$ [ $ $jjjj %$ $ [L [$ (*     ' ) ` hh` w۩$ F [ $&$ [ #$ [  $%%Lܩ$% "8  jjj ܈  Ȅ$% "`Hf % "$h` 7۩ ޮ #"##@# ލPW ލQ Lݍ (ɍ 8 ɍɚ L ީLmݥ)  @ L; L XL8''`= ީ<<===  Jɀ0ɠ) ̩67 ީ"La BL / X ޹  ޹  ީ Iߙ>`6798`$ [ J$`i0i#0`$ [ Ș) $ [% `(L[ `L8LaH hɠi@hLɈ=?L`6܅7`"LXLĠӠӠԠ֠Ġ ``` `ɩLحLԗлΚȉPs}Sچm۷۬,݂rxݬަR`HT) L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι Ll`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ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[L JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0J L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3peʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`LJ 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,--&,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD h,h-<:B/ Y`EL\lY@5)I:< ?L<EhH 0l( Lh:h; LehHh:h;/ V; THH::;:-H,H E@A  J 0`: V:8 J8L Lӭpd`HVTQ PS 6" (!#%L" PJ TuVTvP` P&Q&R&S8RTSURSP`/T P 8/`HJ) )h)i( ((`ɇ@ 0`$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` `E/E//`$(H)? @(hl8NO,(,` , ɛ`2H2 h2Ɉɘ  : 3  5ɕ()ߝɍв [=< @L< >=?<) < `JJJ>Ie@@A`41`>BD`8>6>) `LL u ?l:L4 uLCL@ 'A&?1?=A>?I i`HH11`쩻듧ƙɾ5Ö+]̵Y~~բժժժ֪՚p@U*}{w+U֪ժժժժժ@ժwժ՚~|@U*}cq+Uժժժժժժ(D*ժ~G~@Gxa|c@U*cq/U֪ժժaGߪժժЪժתښ@@O`c>@@ժժժժתժ׺@U*cq/U֪ժժ;3|ժժժժժժժ@@U*uo}+Uժժձ$Jj*)Fձ@U*?o=/U֪ժժc=_תժժժժժժժժ@U*ucq+Upx#$}*@غ@U*cc/Uժժժկժժժժժժժ֚x@U*}cs+U0 2U Lں@U*o{?U֪ժժժժժժժԪժժՀժժ՚@`gp`xxw@U*}ss+U0@$*U Pں@Ujac?U֪ժժժժժժժժժբՊժժת՚x|A~~?|ap@U*}cq+U֪ժժժժժ|ժժժ՚?@U*}cq+Uկժժժժժݪ(P ժ_ښ@>@Opa~@@U*cq/U֪ժժaO߮ժЪժժՀժժժښ?@@O`c>@U*U*U*Uժժժժժ:կ@U*cq/U֪ժժ;pժժժժժժժ@@U*uo}+UժժժߪՊ"*)@U*cc/U֪ժժ?תժժժժժժժժp@U*ucq+Uz  ֪*@@@U*cc/Uժժժժժժժժժժժ֚?|@U*}ss+U0#U*Rj E@@@U*o{?U֪ժժժժժժժԪժժժժժ՚@@gp`xx@U*}{w+U䋑U*vn %D@Ujac?U֪ժժժժժժժժժժժת՚`p~x?pp@U*}ss+U֪ժժժժժߪ(pժժժ՚|@U*}cq/Uժժժժժݪ(Pժժښ@@Opc@@U*cq/U֪ժժ9xC;vߪժԪժժՀժժժ~``Gpc|@U*U*U*Uժժժպ تիժ׺@U*cq/U֪ժժ>ppժժժժժժժ@@U*uo}+Uժժժ(^j*)տպ@U*cc/U֪ժժӼ_֪ժժժժժժժժښx@U*ucq+Up @"*%Dغ@U*cc/U֪ժժժժժժժժժժ֚~xx|pp@U*}{w+U0 2W @غ@U*o{?U֪ժժժժժժժժԪժժժժժ՚@@gp`xx~@U*}cq+U0*U E Cں@Ujac?U֪ժժժժժժէݪժתժժ՚xp@@@U*}cq+U֪ժժժժժժժ *x`ժժժ՚p@U*}cq/Uתժժժߪ(@ժժښ@@O`c~@U*cq/U֪ժժ p8s~ߪժժժժ݀ժժժ|qpGxa|@U*U*U*UժժիժՊ"ߪů@U*?o=/U֪ժժ8w~ժժժժժժժժ>@@U*uo}+Uժժݪ N*)+@U*cc/U֪ժժժպ_֪ժתժժժժժժޚx@U*ucq+U02&f2 ?@@y@U*cc/U֪ժժժժժժժժժժ֚~px@x?p@U*}cq+U0 U*^j B@U*o{?U֪ժժժժժժժժժЪժժժժ՚@@gp`xx~@U*}cq+UĈV*U*Uj E@@Ujac?U֪ժժժժժժժ(תժժ՚|@U*}ss+U֪ժժժժտժժժ ժժժժ՚|`ժժժ՚@U*}cq/UߪcתժժժתTժժښ@@O`g_@U*cq/U֪ժժ;~;r?תժժժժ?ժժժxxC|ax@U*U*U*U:ժժ׮ժ$ֺ@U*?o=/U֪ժժOw=֪ժժժժժժժ@U*uo}+Uժնު J*)ժպ@U*cc/U֪ժժժժ_֪תժժժժժժ֚x@U*uss+U00$6@$́1(Dz@U*cc/U֪ժժժժծժժժժՂժժ֚?xsxp|p@U*}ss+U0 *] %Aغ@U*o{?U֪ժժժժժժժժժЪժժժժ՚@@gp`xx|@U*}ss+Up*U*U*U*U*U %\kں@Uj!" U֪ժժժժժժ*իժ՚x@U*}cq+U֪ժժժժժժժժ *ժժժժ՚`c>8|`ժժժժ՚@U*}cq/UժxӪժժתժժښ@@O`g~?p?@U*cq/U֪ժo;E!sժժժժժժժժ`?^Aw?@`@U*UjU*UժժժՊ *)@U*?o=/U֪ժժgw=;`תժժժժժժժժ@U*uo}+Uժժo |K*)ժ@U*cc/U֪ߪժժժ_ת߫ժժժժժժ֚x@U*}ss+U0 "1E@@U*cc/U֪ժժժժժժժժժՂժժ֚pCp@xp) THIS PROGRAM CAN BE USED TO STARTR OFF YOUR PROGRAM WITH A TITLE PAGEw THAT WILL GET THEIR ATTENTION! ******************** TITLE PAGE ROUTINE WITH ASTERISK BELLS( ********************2: 7 ADD CTRL G TO A$    ` o )ghP0= @ܩҠȱ $ H Hȱ0  Lz ȱ ɃЃL !"#A$:A$(27)Ā ** DOCUMANTATION FOR SOFTFIND **, BY JOHN ROGERS, JULY 1981 , FOR PUBLIC USE. LAST MODIDIED JULY 1981.dAN HIT , TRY AGAIN:":460F935,96::935,76::::::1000:6:"I HOPE THIS EXPLAINS WELL ENOUGH HOW"::"TO USE ";::"SOFTFIND";::"."::::"GOOD LUCK"21:7:"<..HIT 'ESC' TO QUIT OR..>":7:"<.. ANY KEY TO CONTINUE..>"-C":1000450("NAME =";ANSWER$1ANT$:6:"TO SEARCH FOR ALL STRING VARIABLES"::"EQUIVALENT TO AN$, ENTER"::" & AN=$ ":::"TRY IT:" "]";A$:(A$,1)"&"ĺ"NOT QUITE!, ENTER AN AMPERSAND (I.E. &) AND THE":400,935,96::935,76::::::1000:6:"SOFTFIND SEARCHED FOR WHATEVER SEARCH"::"STRING YOU ENTERED. IF YOU SEARCHED FOR"::"'SOFTFIND' AS WAS SUGGESTED, THE OUTPUT"::"SWEPT ACCROSS YOUR SCREEN." :"TO STOP SOFTFIND ENTER CONTROL":"NUMBERS OF EACH LINE WHICH CONTAINS":"THE STRING 'SOFTFIND' FOLLOWED BY THE":"FIRST LOCAL STRING CONTAINING THE""SEARCH STRING"::"TRY IT:":"]";A$:(A$,1)"&"ĺ"NOT QUITE!, ENTER AN AMPERSAND (I.E. &) AND THEN HIT , TRY AGAIN:50 TO"::"255 ($FA TO $FF) WHEN IT IS SEARCHING.":1000r:6:"EXAMPLE OF HOW TO USE SOFTFIND:"::"TO FIND THE LINES IN WHICH 'SOFTFIND'":"IS USED IN THIS PROGRAM, ENTER:"v|:" & SOFTFIND "::"AND SOFTFIND WILL PRINT THE LINENNOT BE USED WITHIN"::"A PROGRAM.":1000^:6:"SOFTFIND IS WRITTEN TO USE ONLY ROM"::"APPLESOFT. TO USE IT WITH TAPE"::"APPLESOFT, POKE 879,27:POKE 880,37"::"OR IN THE MONITOR ENTER: 36F:1B 25":10008h:6:"SOFTFIND USES MEMORY LOCATIONS 2'"::"WILL NOT MATCH ANY STRING.":1000J:6:"HITTING A CONTROL-C AT ANY TIME DURING"::"THE SEARCH PROCESS WILL TERMINATE THE"::"SEARCH."::"WHEN SOFTFIND IS FINISHED, IT WILL DO":*T"A WARM START OF BASIC. THUS THE"::"AMPERSAND COMMAND CAOTES, DATA,"::"OR REM LINES).":10006:6:"IN A SEARCH STRING, AN EQUAL SIGN '='"::"HAS A SPECIAL MEANING. THE EQUAL SIGN"::"IS A WILD CARD WHICH WILL MATCH ANY"::"CHARACTER OR STRING OF CHARACTERS."(@:"NOTE, A SEARCH STRING ENDING IN '= THE LINE.":1000":6:14:"*** NOTE ***"::" SOFTFIND CANNOT SEARCH FOR OR FIND"::" APPLESOFT COMMANDS OR TOKENS.":::"SUCH COMMANDS INCLUDE: PRINT,HTAB,+,<"&,:"ETC. HOWEVER THESE STRINGS CAN BE FOUND"::"IN TEXT STRINGS,(WITHIN QU1000::6:"A 'LOCAL STRING' IS THE TEXT STRING"::"BETWEEN APPLESOFT COMMAND TOKENS."::"SOFTFIND WILL PRINT OUT ONLY THE FIRST"::"LOCAL STRING IN A LINE WHICH CONTAINS":"THE SEARCH STRING. THE SEARCH STRING"::"MAY APPEAR MORE THAN ONCE IN:"WHICH CONTAINS THE SEARCH STRING.":1000 :6:"THE SEARCH STRING IS ANY STRING OF"::"CHARACTERS ENTERED FROM THE KEYBOARD"::"USING THE STANDARD CONVENTIONS OF LINE"::"LENGTH, ESCAPE SEQUENCES, CONTROL-X, " :"AND ENDING IN .""THE CURSOR WILL APPEAR WITH NO PROMPT"::"INDICATING THAT SOFTFIND IS WAITING"::"FOR YOU TO ENTER THE SEARCH STRING."::"SOFTFIND WILL SEARCH THE CURRENT BASIC", :"PROGRAM, AND PRINT THE LINE NUMBER AND"::"THE FIRST LOCAL STRING IN EACH LINE":RY. TO LOAD"::"SOFTFIND AND SET THE AMPERSAND POINTER"::"TO SOFTFIND, ENTER:"n ::10:"BRUN SOFTFIND" (4);"BRUN SOFTFIND" 1000 :6:"TO USE SOFTFIND ENTER THE AMPERSAND"::"CHARACTER '&' FOLLOWED BY ." 1000 :6:AM WHICH WILL FIND CHARACTER STRINGS WITHIN AN APPLESOFT PROGRAM."R 1000 SOFTFIND WILL ALSO FIND THE STRING AND$ WHEN IT DOES NOT REFER TO A VARIABLE.Q :6::"SOFTFIND IS A MACHINE LANGUAGE PROGRAM"::"WHICH RUNS IN PAGE 3 OF MEMO, JULY 1891. c d::4:7:"*** ";::"SOFTFIND.DOC";::" ***":::9:"BY JOHN ROGERS 1981" x:3:"FOR PUBLIC NON COMMERCIAL USE ONLY"H 12:" THIS PROGRAM GIVES DOCUMENTATION ON HOW TO RUN ";::"SOFTFIND";::", A MACHINE LANGUAGE PROGR  : THIS PROGRAM PROVIDES DOCUMENTATION ON THE USE OF 'SOFTFIND', A MACHINE LANGUAGE PROGRAM WHICH FIND STRINGS EMBEDDED IN APPLESOFT PROGRAMS.  THE IDEA FOR THE PROGRAM AND THE ORIGINAL CODE WAS DEVELOPED BY JOHN ROGERS, MADISON WISCONSIN      jx Xʽ(ȱieHeHst8st8hh_ ")D @ ) a,*ȱ8ȱeȱeeiiȑl $ l23X21:7:"<..HIT 'ESC' TO QUIT OR..>":7:"<.. ANY KEY TO CONTINUE..>"lA$:A$(27)Ār ** DOCUMANTATION FOR RELOADER **, BY JOHN ROGERS, JULY 1981 , FOR PUBLIC USE. LAST MODIDIED JULY 1981.dAF71, $FAC, AND $FE3 TO $XX. YOU CAN"::"SAVE THIS VERSION USING:"::"BSAVE RELOADER/XX,A$F00,L$FC.":1000:6:"I HOPE RELOADER GIVES YOU CAREFREE"::"RELOCATION OF YOU PROGAMS TO HIMEM.":::"GOOD LUCK!":::::"RELOADER";::" BY JOHN ROGERS"ONS $FA TO"::"$FF, (250 TO 255) WHEN RELOCATING THE"::"PROGRAM.":1000:6:"RELOADER ASSUMES THE OBJECT PROGRAM"::"IS ASSEMBLED TO START AT $1000. TO"::"RELOCATE A PROGRAM BEGINING AT $XX00,":k"BLOAD RELOADER,A$F00, AND SET BYTES"::"$ROGRAM.":1000h:6:"RELOADER IS DESIGNED TO MOVE THE"::"OBJECT PROGRAM UP IN MEMORY. HOWEVER,"::"RELOADER WILL MOVE A PROGRAM DOWN IN"::"MEMORY IF IT IS MOVED DOWN BY MORE":r"THAN $ZZZZ BYTES.":1000:J|6:"RELOADER USES MEMORY LOCATIM,A$XXXX":" BLOAD RELOADER,A$YYYY":" POKE THE LENGTH BYTES INTO $YYYY+$FE":" AND $YYYY+$FF"^" BSAVE OBJECT/REL,A$YYYY,L$ZZZZ"::"WHERE $YYYY=$XXXX-$100":" $ZZZZ=$100+LEN"::" AND OBJECT/REL IS THE RELOCATABLE":" OBJECT PCT PROGRAM. THE OBJECT PROGRAM CAN"::"USE THIS ADDRESS TO SET POINTERS SUCH"J:"THE AMPERSAND POINTER, USR POINTER,"::"THE INPUT AND OUTPUT SWITCHES OR ZERO"::"PAGE POINTERS TO DATA.":1000eT:6:"TO USE RELOADER:"::" BLOAD OBJECT PROGRA"LOCATION $FE AND $FF."::"IF YOU BRUN THE OBJECT PROGRAM FROM":6"WITHIN ANOTHER PROGRAM, THE STARTING"::"ADDRESS = PEEK(255)*256+PEEK(254).":1000N@:6:"THE STARTING ADDRESS OF THE PROGRAM"::"IS ALSO STORED AT 'START' WITHIN THE"::"OBJE ANY THREE BYTE"::"INSTRUCTIONS WHICH REFER TO THE DATA"::"OR PROGRAM AREA."::"IT THEN JUMPS TO THE FIRST INSTRUCTION":'"OF THE OBJECT PROGRAM.":1000C,:6:"THE BEGINNING LOCATION OF PROGRAM"::"IS STORED IN THE HIMEM POINTER, AND IN "::0:6:"RELOADER DOES THE FOLLOWING:":::"MOVES THE OBJECT PROGRAM TO HIMEM, SO"::"THAT THE STARTING ADDRESS IS OLD-HIMEM"::"MINUS LEN."::"THE HIMEM POINTER IS RESET TO PROTECT"::"THE OBJECT PROGRAM.":1000~":6:"THEN IT REDEFINES IS DEFINED BY "::"RELOADER WHEN THE PROGRAM IS BRUN."::"THE STARTING ADDRESS CAN BE ANYTHING"::"BEFORE RELOADER IS BRUN.":"(THE ADDRESS HAS THE LOW BYTE FIRST).":1000:6:"DATA, IS THE DATA AREA RESERVED FOR USE"::"THE PROGRAM.":100F BYTES.":1000 :6:"THE BINARY PROGRAM MUST:"::" CONTAIN ONLY INSTRUCTION, NO DATA;"::" BE ASSEMBLED TO RUN STARTING AT $1000;"::"AND END IN A 'BRK' INSTRUCTION.":1000:6:"START, THE STARTING ADDRESS, IS A TWO"::"BYTE ADDRESS WHICHROGRAM"::" START";\ 15:"STARTING ADDRESS"::" DATA"::" WHERE........":1000 :6:"LEN, THE LENGTH OF THE PROGRAM IS A TWO"::"BYTE BINARY NUMBER (LOW BYTE FIRST)"::"WHICH DEFINES THE LENGTH OF THE"::"PROGRAM AND DATA, IN NUMBER OETS THE HIMEM POINTER TO PROTECT THE"::"OBJECT PROGRAM AND JUMPS TO THE FIRST"::"INSTRUCTION OF THE OBJECT PROGRAM." 1000::6:"THE OBJECT PROGRAM MUST HAVE THE FORM:":10:" LEN";:15:"LENGTH OF PROGRAM + DATA"::" PROGRAM";:15:"BINARY PLOACATING OTHER MACHINE LANGUAGE PROGAMS TO HIMEM.> 1000 :6::"RELOADER IS A MACHINE LANGUAGE PROGRAM"::"WHICH IS RELOCATABLE (WILL RUN IN ANY"::"RAM LOCATION). RELOADER MOVES A PROGRAM":x "(CALLED THE OBJECT PROGRAM) TO HIMEM,"::"S WISCONSIN, JULY 1891. m d::4:7:"*** ";::"RELOADER.DOC";::" ***":::9:"BY JOHN ROGERS 1981" x:11:"FOR PUBLIC USE"4 12:" THIS PROGRAM GIVES DOCUMENTATION ON HOW TO RUN ";::"RELOADER";::", A MACHINE LANGUAGE PROGRAM FOR REQ  : THIS PROGRAM PROVIDES DOCUMENTATION ON THE USE OF 'RELOADER', A MACHINE LANGUAGE PROGRAM WHICH RELOCATES ANOTHER MACHINE LANGUAGE PROGRAM TO HIMEM.  THE IDEA FOR THE PROGRAM AND THE ORIGINAL CODE WAS DEVELOPED BY JOHN ROGERS, MADISON     **ERROR AT LINE xr: x xL x x x x x x sxC(&`o*ojk e` Q sx BLOAD TEMP... @ `srb Q sx BSAVE TEMP...,A$g pf p sx,L$jHkH phkhj8hfligmlmm pl p sx  sx BLOAD j"' x sx  fjgk` sx hX` TNOT`ߍ[`P`H_`XPQPhX`ԠD'LpȱjLƄ;jLƄ ɻ"  VALUE EXCEEDS $FF` eL3 ILLEGAL EXPRESSION.L3L ALLL30 : AG`8`&&&X` Lj  P`X] ]LpL PP``a`PPX` $X W%WS`R$S%W $Y`XVɠ) WY!PYULX $(`LYUX` W`[V q X`V q HX`V qU` ULj ZH`GP H G Zh`L  L )Lj 1Lj `PL iPX ɖɓɈɘwɆɍRɔɄQʐ ɕ7ɉ,[ !X`QPP$(`Ljލ[Е 0ؽ`V q[`P`P`L `LZLLLQEF Ei 6Fi7Ei 8Fi9Z[`YZ%YL Xߍ[Z``\ ɍ3ɀXQ `XP\Y`XHZPXZ[hMHX P P Zh`Hh Ʌ&Ɉ ɕɘ``%SW$RP(z #XIJ  կŠŠ͠ կŠƠŠ٠ Š٠ Ġ̠Ԡ  ! կŠӠΠǠ!կĮà"Ġ կҮàҠկĮàĠ ķĸ ĹͯūүƠȠҠ1կ٠Ҡ կˠŠӠ ͭԠ ıIJij ĴĵĶĠϠĠϮʠՠ¯Ϡ"ϠŠӠ¯ؠҠ) ɍ  ` @ ``$ $ $I$ $) ʩ`@ ȱ`'$ɍI$ $)?)ߑө` 8ؑi=iagj`Ȅ 0`8aa```VɍȄ e 閥%з ݖɛ, X 閥0 ,,``  * COMMENTS *. * IF APPLICABLE*E ****************w GOSUB 560 REMOVE REM FOR WAIT FOR KEYPRESS} ******************* * TITLE CENTERING * * MODULE * *******************(20(TI$)2):TI$: TO CONTINUE";:35,22:60 5,39:6,1:7,25:(HM108)B: :2040Y ****************p * TERMINATION * * MODULE * **************** : (HM):HM1189,LB:1017,191:1018,157: **************** * PAGE TWO *D-BY":) D$"READ "TF$:HM46:250,160J (64435)6Ĺ38600,176:3100 :"DO YOU HAVE LOWER CASE?(Y/";::"N";::")";:2500:(KB128)"Y"ČHM357:250,32 D$"CLOSE":TF1& 251,21:23:" PRESS TO EXIT READ MODE":10);"384):KB1282580  T12550' I5 16368,0; U *******************o * TEXT FILE READ * * SECTION * *******************  TF3110 D$"OPEN "TF$ :10:11:"READING ";::TF$::13::"PLEASE STANQ',>KB195ė::D$;"CATALOG":3550: 'C'ZHKB205ĺ" M":D$;"BRUN MENU 4.0":: 'M'uR(KB128)"R"ė:3000\(7);:2090 **************** * KEYBOARD * * INPUT MODULE * **************** T1āI1300 KB(16==============="T 12:8:"'CALL 1016' FROM BASIC":8:"'CONTROL-Y' FROM MONITOR"19:"=RUN MENU PROGRAM =CATALOG DISK"::"=READ ";:TF$;:" =QUIT TO BASIC" 23:7::"PRESS LETTER FOR SELECTION";:*25004KB209ī3500: ':"";* h25000 rG  ****************^  * MAIN MENU *u  * SECTION *  **************** :TI$" APPLE-DAYTON DISK-OF-THE-MONTH ":5000:TI$VO$::50009:8:"TO RE-RUN MENU PROGRAM":8:"=======:30":< 6"CONTACTS-":"PRES- STEVE ALLEN, (513) 253-0645"g @"SECY- BOB RENNARD, (513) 426-3579": J"OTHER CLUBS- NEWSLTR & SOFTWARE EXCHG":"WELCOME; CONTACT SECRETARY"::"APPLE-DAYTON INC., P.O. BOX 1666," T"FAIRBORN, OHIO 45324" ^24:7"THE APPLE USERS GROUP OF DAYTON, OHIO":g "GOAL- PROMOTE THE INFORMED USE OF APPLE":"COMPUTERS": ""MEMBERSHIP- OPEN, $5 INIT + $18/YR":"RECV NEWSLTR & ELIG TO BUY DISK-OF-MONTH" ,"MEETING- 2ND THURS EACH MONTH, WRIGHT ":"STATE UNIVERSITY 7A"HM:LG1080+ .1090:LOGO NOT IN MEMORY: 8T11:2500C BT10K L:U V1500_ `4000i j2000  ****************  * APPLE-DAYTON *  * CLUB INFO *  * SECTION *  ****************) :13::" APPLE-DAYTON ":::40, AUGUST 1983"* TF0:TEXT NOT LOADEDd HM((990)7)256:LB(HM1189):HM1188,0:HM1189,0 LG0:DEFAULT TO LOGO NOT LOADED :((12290)(8800))(12000)Ĺ16304,0:16302,0:LG1 D$(4):D$"NOMON C,I,O": $D$"BRUN A-D HELLO.OBJ,  ****************/ * APPLE-DAYTON *F * HELLO *]( * INCLUDING A *t2 * TEXT READER *< * MODULE. *F * JUNE 1983 *P * TED ROSE *Z ****************d6400TF$"A-D VOL 40" ,VO$"VOLUME        CLEAR SCREEN & PRINT HEADING&J(1):(13):"PORTFOLIO LISTING"a(3):(6):"STOCK"|(3):(17):"# SHARES"(3):(26):"AV.COST"$(3):(36):"DATE"LM BEGIN LIST LOOPV%4: COLUMN COUNTERE%0: EMPTY FILE NOW ";A%" " A%7ī600,A%7Ā;A%0ī600IA%6570jA%1000,2000,3000,4000,5000s 330:7000: UPDATE DISKDXY ERROR RETURNSZb"INCORRECT ENTRY"l490 SUBROUTINE TO LIST PORTFOLIO CONTENTS " 2--ENTER NEW STOCK"< (10):" 3--UPDATE CURRENT STOCK"b (10):" 4--DELETE CURRENT STOCK" (10):" 5--EVALUATE PORTFOLIO" (10):" 6--EXIT AND UPDATE DISK" (10):" 7--ABORT & DO NOT UPDATE DISK" " ""ENTER YOUR CHOICE (1-7) J: CLEAR SCREEN T" ":" "K ^"PORTFOLIO EVALUATOR/MANAGER PROGRAM"T c" "u h"WRITTEN FOR APPLE II+ 48K" r"VERSION 100.0 APRIL 1981" " ":" " "PRESS THE TASK NUMBER YOU DESIRE" " " (10):" 1--LIST PORTFOLIO" (10):"COPYRIGHT 1981"::= "READING PORTFOLIO DATA FROM DISK"S D$(4): CNTRL-Di D$;"OPEN STOCKS" D$;"READ STOCKS" I1100 NAME$(I) YR%(I) MTH%(I) DAY%(I) "AVPRICE(I) ,SHARES(I) 6I @D$;"CLOSE STOCKS"  MO$(10)"OCT"$ MO$(11)"NOV"6 MO$(12)"DEC"< [ READ DATA FROM TEXT FILEa g " PORTFOLIO MANAGER/EVALUATOR PROGRAM " :::"WRITTEN BY ART MASSON":"5956 ROSINANTE RUN":"COLUMBIA, MARYLAND 21045":"301-596-3392":::YR%(100) xMTH%(100)& DAY%(100)8 AVPRICE(100)I SHARES(100)V MO$(12)g PPRICE(100)x MO$(1)"JAN" MO$(2)"FEB" MO$(3)"MAR" MO$(4)"APR" MO$(5)"MAY" MO$(6)"JUN" MO$(7)"JUL" MO$(8)"AUG" MO$(9)"SEP" ' PORTFOLIO MANAGEMENT/EVALUATION6 PROGRAM.Y VERSION 100.1 (100 LISTINGS)r NO PRINTER OPTIONS BY A. L. MASSON 5956 ROSINANTE RUN COLUMBIA, MD 21045 301-596-3392 APRIL 1981dNAME$(100) n           ` APPLE-DAYTON PROGRAM LIBRARY L(OAD R(UN K(LOK U(NLOK X(ALL C(ATL D(EL V(RFY S(TOP Q(UIT VOL PG OF SECT-FREE N(DRIV ĿѕH!ɾL [ Q ԧLLJJJJ 0 0` [$ B  i&e L`$  ɍ ` X :$   LѕL` 8`ة;^Z_[` ` 9 X΅  [$ `( `0 Lee`8 ` :8` ^r67 Qx`4 N [ = X @^8JJJJi 0΍4`67LQ S TLQHɍh` 8 iiLح) 0L{L@^    [  Ux s r $$ a ` L  ` `ii LY/NOMONSTART ALENGTH Lx  m&NmJnm0  з0MLH c _ XHL [  ؗ  Ж mL c _ Ҡ [ C0  3  $ S!  [$ ЖLH ؗ Ж  L{И~Д [  ؗ+ $$$o  Ж 4<=>?BC ,ڍ ԧLS T  m鷽 ݌ 0 X '1  x)ȹx)ȹx)    [$ $ q L {{l      K? (Y/N) ";B$B$"Y"4500/B$"N"4070A4310: ERRORU: DELETE ENTRYjNAME$(I)"EMPTY"py" ""STOCK DELETED":" "4090 END OF DELETE SUBROUTINE EVALUATE SUBROUTINES  4090: ERROR IN ENTRY*h MATCH FOUND3m" "Pr"STOCK NAME: ";NAME$(I)q|"NO OF SHARES = ";SHARES(I)"AVERAGE BUY PRICE =$";AVPRICE(I)"PURCHASED: ";MO$(MTH%(I));" ";DAY%(I);", ";YR%(I)" " "DO YOU WISH TO DELETE THIS STOCTINE "" ":" ":F"ENTER THE NAME OF THE STOCK YOU WISH TO"X"DELETE ";Q$eI1100((NAME$(I),3)(Q$,3))ī4200I" ":"NO (OTHER) MATCH(ES)"(24):"ENTER 1(DELETE MORE) OR 2(DONE) ";A%A%1ī4030A%2ıVPRICE(I)((SHARES(I)AVPRICE(I))Y)(SHARES(I)Z)L.SHARES(I)SHARES(I)Zf8" ":"CHANGES MADE:"B" ":"NEW # OF SHARES = ";SHARES(I)L"NEW AV COST = $";AVPRICE(I)V3090 DELETE SUBROUTINES" DELETE STOCK ROULUE AN INCREASE IN HOLDINGS (PURCHASE OR DIVIDEND)"\ "ENTER THE CHANGE IN SHARES NOW ";Ze " " "ENTER THE SALES PRICE (IF SALE)" "OR COST (PURCHASE) IN DOLLARS""COST SHOULD INCLUDE ALL""COMMISSIONS $";Y CALCULATIONS2$AIS STOCK? (Y/N) ";B$% B$"Y"35006 B$"N"3070N 2210: INPUT ERRORT Z o CHANGE ROUTINEu {  "ENTER AMOUNT OF SHARE CHANGE" "WHERE A MINUS VALUE INDICATES" "A DECREASE IN HOLDINGS (SALE)3 "AND A POSITIVE VAN ENTRY MATCH FOUND6 "STOCK NAME: ";NAME$(I)` "NO OF SHARES (CURRENT): ";SHARES(I) "AVERAGE BUY PRICE : $";AVPRICE(I) "PURCHASED: ";MO$(MTH%(I));" ";DAY%(I);", ";YR%(I) " ":" " "DO YOU WISH TO CHANGE HOLDINGS" "IN TH" ":"ENTER THE NAME OF THE STOCK YOU WISH TO"A "CHANGE ";Q$N I1100q ((NAME$(I),3)(Q$,3))ī3200x I " ":" ":"NO (OTHER) MATCH(ES)" (24):"ENTER 1 (CHANGE MORE) OR 2(DONE) ";A% A%1ī3030& A%2ı0 3090: ERROR I 1--ENTER ANOTHER NEW STOCK"A " 2--DONE (NORMAL EXIT)b. "ENTER YOUR CHOICE NOW ";A%r8 A%0ī2350B A%2ī2350G L A%1ī2040( : NORMAL EXIT  UPDATE SUBROUTINES   " CHANGE STOCK ROUTINE"/ " ":HR: = $";AVPRICE(I)N"PURCHASED ON: ";MO$(MTH%(I));" ";DAY%(I);", ";YR%(I)W" "y"IS ENTRY CORRECT (Y/N) ";Q$Q$"N"2110 UPDATE IS CORRECTLY ENTERED "NEW STOCK ENTRY ROUTINE" (10):"OPTIONS ARE---"  "DE ***"l2150;p"DAY OF MONTH (I.E. 3, 27) ";DAY%(I)PqDAY%(I)0ī2165frDAY%(I)31ī2165ps2200u"*** ILLEGAL DAY OF MONTH ***"v2160" ":" ""STOCK NAME: ";NAME$(I)"NO OF SHARES: ";SHARES(I)"PURCHASE PRICE/S"STOCK NAME ";NAME$(I)6H"NO OF SHARES ";SHARES(I)ZR"PRICE PER SHARE $";AVPRICE(I)\"YEAR PURCHASED (I.E. 1979) ";YR%(I)f"MONTH CODE (1=JAN,..12=DEC) ";MTH%(I)gMTH%(I)0ī2155hMTH%(I)12ī2155i2160k"*** ILLEGAL MONTH COEW STOCK3"NEW STOCK ENTRY ROUTINE"<" "C k LOOP TO FIND FIRST EMPTY LOCATIONq~I1100(NAME$(I),5)"EMPTY"2100I"DATA BASE FULL":NOEMPTYSLOTS 45 I= INDEX OF EMPTY LOCATION6>TE%11700: FOUND AT LEAST ONE ENTRY1^" "Ph"NO ENTRIES IN DATA BASE"Zr1710o"LIST COMPLETE""PRESS RETURN FOR MENU";Q$  NO MORE ROOM ON SCREEN " ": PUSH UP SCREENV%24&1330 ADD A NSHARES(I)=IL4>FL4%?90009F(V%):(16):A$JPNAVPRICE(I)SQIL3\RFL2fS9000~Z(V%):(26):"$";A$d(V%):(34):DAY%(I)n(V%):(36):M$xY$(YR%(I))(V%):(39):(Y$,2)@A RECORD NOT USEDBJI(FLAGI11001(NAME$(I),5)"EMPTY"1600UE%1: AT LEAST ONE ENTRY FOUND{ GOT HERE IF FOUND ENTRY IN LISTM$MO$(MTH%(I)): GETS MONTH CODE START PRINTING LINE(V%V%1-(V%24)ī18002(V%):(1):(NAME$(I),15) <N     OCKS") "TEXT FILE STOCKS INITIALIZED"5 "DONE"F 3000: ENDY "RUN ABORTED"_ FD @D$;"OPEN STOCKS". ED$;"WRITE STOCKS"; JI1100P ONAME$(I)"EMPTY"W TId YI1100z ^NAME$(I): VAR 1 hYR%(I): VAR 2 rMTH%(I): VAR 3 |DAY%(I): VAR 4 AVPRICE(I): VAR 5 SHARES(I): VAR 6 I D$;"CLOSE ST"INFORMATION!!!!!!!!!!"" " "@ " DO YOU REALLY WANT TO"f "INITIALIZE STOCKS (Y/N)? ";:Q$o " " Q$"Y"300: CONTINUE Q$"N"2000: ABORT 240: INCORRECT ENTRY , - PROCEED WIT INITIALIZATION . 6D$(4): CNTRL-) DAY%(100)" AVPRICE(100)3 SHARES(100)9 Z BEGIN EXECUTABLE CODE AREA` f "PORTFOLIO FILE INITIALIZATION PROGRAM":" ":" " "CAUTION----- USE OF THIS" "PROGRAM WILL DESTROY ALL" "CURRENT STOCK PORTFOLIO" a& THIS PROGRAM INITILIZES A TEXTM FILE CALLED STOCKS. THE PROGRAMs MAKES EACH 100 RECORDS ZERO, BY STORING "EMPTY" IN ALL STOCK NAME LOCATIONS. ALL OTHER VARIABLES ARE ZEROED.dNAMES$(100)nYR%(100) xMTH%(100A$A$"*"::.5N2'#IP(N1)+'#FP(N2(N1IP))N2K'#A$(IP):L(A$):A$(A$,L)d'#IL0IP0A$"":L0'#S0LL1:A$"-"A$:IP0IL1A$"-":L1'#ILL9124'#ILLA$" "A$:LL1:9118'#FL0A$A$"."((FP),FL)'# (#A$"*":N11ILFL:= NUMBER TO BE CONVERTED;&3# IL= LENGTH FOR INTERGER PART_&4# FL=LENGTH FOR FRACTIONAL PART&5# A$=STRING OF LENGTH IL+FL+1&6# IF OVERFLOW PRINTS *********&7# USES S,N1,N2,IP,FP, AND L&8#&9#&:#&;#&#S(N)&#N210FL'#N1(N)D$;"CLOSE STOCKS"%%"DISK UPDATED"+%1%(#7%)#S%*# SUBROUTINE TO CONVERTq%+# A FLOATING POINT NUMBER%,# TO A STRING WITH A FIXED%-# NUMBER OF DECIMAL PLACES%.#%/# FROM CREATIVE COMPUTING%0# MAY 1981, PAGE 128-129.%1# &2# NURN FOR MENU";Q$$N;$X SUBROUTINE TO UPDATE DISK FILEA$YG$Zf$]" ":"UPDATING DISK FILE"|$bD$;"OPEN STOCKS"$lI1100$vD$;"WRITE STOCKS"$NAME$(I)$YR%(I)$MTH%(I)$DAY%(I)$AVPRICE(I)$SHARES(I)$I%#D$A$3#(NAME$(I),10);" ";S$;" $";C$;" $";D$:#IC#" "b#"PORTFOLIO COST = $";SCSTk#" "#"PORTFOLIO VALUE = ";SVLUE#" "#GAIN((SVLUESCST)SCST)100#&IGAIN%GAIN#0"GAIN OR LOSS = ";IGAIN%;"%"#:" "$D"PRESS RETEMPTY"ī5600+"kVLUE(PPRICE(I)SHARES(I))@"lSVLUESVLUEVLUE_"mCST(AVPRICE(I)SHARES(I))q"nSCSTSCSTCST"xNSHARES(I)"yIL4"zFL4"{9000"|S$A$"NCST"IL4"FL2"9000"C$A$"NVLUE"IL4"FL2"9000!NAME$(I)"EMPTY"ī5150*!NAME$(I)@!" $";PPRICE(I)G!IM!Pk!Z" PORTFOLIO EVALUATION "t!d" "!e"EVALUATION AS OF ";MO$(PMTH%);" ";PDAY%;", ";PYR%!f" "!g" STOCK #SRS COST VALUE"!iI1100 "jNAME$(I)" SCST0:SVLUE0F " PORTFOLIO EVALUATION ROUTINE":" ":" "b "ENTER THE YEAR ";PYR% "ENTER THE MONTH CODE (1=JAN, 12=DEC) ";PMTH% "ENTER THE DATE ";PDAY% " " "ENTER THE CURRENT PRICE FOR EACH STOCK:" " "!I1100T0:"ENTER ROW - ";R$(Y):, XC11<X10ĺ" ";]C$(X);" = ";A(Y,X);" ==> ";e Q$w*(Q$)0ī850>Q$"E"ī2000HQ(Q$):A(Y,X)A(Q)RTTA(Y,X):X\:"COLUMN TOTAL = ";T:f940pQ$(13)ī765zY100(Q$):A(Y,X)A(Q)#NTTA(Y,X):Y=X:"ROW TOTAL = ";T:Fb940ZlQ$(13)ī515avXj100 ----------------- ENTER BY ROW -----------------::I13:BL$:I:2:10:"ENTER DATA BY ROW":YR115:958  ----------------M ::I13:BL$:I:2:10:"ENTER DATA BY COLUMN":] :XC11j 5:958 T0:"ENTER COLUMN - ";C$(X): YR11 Y10ĺ" "; R$(Y);" = ";A(Y,X);" ==> "; &Q$ 0(Q$)0ī590 :Q$"E"ī2000DQ):A1(R1)A1:A10A1Rī450B :"ENTER THE COLUMN NUMBER ";Q$n A2((Q$)):A2(C1)A2:A20A2Cī470 "OLD VALUE = ";A(A1,A2) :"ENTER THE NEW VALUE ";Q$ Q(Q$):QA(Q):A(A1,A2)Q:100  ----------------  ENTER BY COLUMNROW AT A TIME"7 T:5:"3. A SPECIFIC ROW AND COLUMN"U ^:5:"4. RETURN TO MENU"w h::"ENTER NUMBER ==> ";:Q$ mQ((Q$)) rQ1Q4ī310 |Q500,750,450,2000  ----- SPECIFIC ENTRY :::"ENTER THE ROW NUMBER ";Q$ A1((Q$) ";TT, "TO CONTINUE PRESS RETURN ";Q$9 A(0,0)TC 2000^ * --------------------s + ENTER ROUTINE , -------------------- 1R1C1ī8200 6:5:"HOW DO YOU WANT TO ENTER DATA. " @:5:"1. A COLUMN AT A TIME" J:5:"2. A C:TTTTA(Y,X):X:A(Y,0)TT:Y8 ----- TOTAL COLUMNU T0:Y1R:TTA(Y,0):Yk ----- TOTAL ROW TT0:X1C:TTTTA(0,X):X ----- CHECK BALANCE TTTī250 :"TOTALS OUT OF BALANCE": "COLUMN TOTAL = ";T "ROW TOTAL =' 1010-_ --------------------I` TOTALS ea --------------------d::"CALCULATING TOTALS NOW "::n ----- COLUMNS ..xX1C:T0:Y1R:TTA(Y,X):Y:A(0,X)T:X ----- ROWS ... Y1R:TT0:X1          ٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍ TOO LARGE AND THE REPORT FORMAT WILL BE MESSED UP."k:"DO YOU WANT TO CONTINUE PRINTING ANYWAY""(ENTER Y OR N)"":Q$:,Q$"Y"ī374062000U ---------------------V CREATE ROUTINEW --------------------- XC915XR01 X0İ915,R$(X);; T10:36,TIYC01vNB(A(X,Y)):NU$(" "(N),PL)NU$;:TTNC:Y0TT136,T:Y::1:X::207:2000:" POTENTIAL ERROR " ::"DATA FIELDS ARE- BEGIN PRINTING* ------------W:10:6::"NOW PRINTING THE MATRIX ":1:12528,7:12527,1:12526,81:12529,0:12530,2:136,((SZ(T$))2):T$:915T9(NC(C$(C))):36,TXC01:C$(X);:TTNC:36,T:X::10ZQ$"C"R11&\Q$"D"R1.19^Q$"E"R1.01R`B(X)(XR1.5)R1ltNB(A(0,0)):NU$(N)z~PL(NU$)PL3PL3NCPL1NC5NC5NC(C1)70ī4100NC10NC10SZ((C1)NC)10:SZ80SZ80 -----------.::68"CHOOSE THE TYPE OF ROUNDING YOU WANT.":W="(NUMBER OF DECIMAL PLACES)kB"A = 12345.67"D"B = 12345.8 "F"C = 12346. "H"D = 12350. "J"E = 12300. "LQ$:QQ$"A"Q$"E"ī3660VQ$"A"R1100XQ$"B"R1SIZE OF THE FIELDS IN YOUR MATRIX.) N "(MAX= 4 CHAR FLD.= 14 COLUMNS)w :"PRESS ANY KEY TO CONTINUE";:945::"ENTER A TITLE YOU WANT PRINTED AS A HEADING ON THE PRINTOUT.""==> ";T$:(T$)0T$"MATRIX"$(T$)75ī36000:11  j "THIS PRINTING ROUTINE IS DESIGNED TO WORK WITH A 80 COLUMN PRINTER. (SILENTYPE)"p  "IF YOUR PRINTER IS DIFFERENT THIS ROUTINE MAY NOT PRODUCE PROPER RESULTS." # "THE NUMBER OF COLUMNS PRINTED IS LIMITED BY THE (BL$((N.005))"."((((N100)100.5)),2),10)c (NU$(Z),2)"00"NU$(Z)(NU$(Z),7)" "i  ---------------------- PRINTER ROUTINE  ----------------------  R1C1ī8200 ::" WARNING ";: 33,30:32,1Z' R$(X);:9:NU$(2);:19:NU$(1);2 Y0ĞD 30:NU$(0):O& R9ĺV0 X: 21:"TO CHANGE COLUMNS USE ==><== KEYS":"TO RETURN TO MENU USE 'ESC' KEY"D Q$::Q$(27)ī2000N Q$AR$C1C13X Q$AL$C1C13b 30104 NU$(Z)е ----------------& VIEW ROUTINE< ----------------E C1CX R1C1ī8200g C12C12v C1CC1C YCC1 :2:11:C$(Y2);:21:C$(Y1); Y0Ğ 32:" ";C$(Y):: XR01 X0Ğ: Z02:NA(X,YZ):3200:P2:P22ī2050*206024 CHECK FOR ROUTINEH>P6ī8100: LOAD`CP8ī7000: CREATEwDP10ī300: ENTEREP12ī3000: VIEWHP14ī8000: SAVEMP16ī3500: PRINTNP18ī8280: INSTRUCTIONSRP20ī9998: END208039;I1LS1ĺ" ";N$;" MATRIX HAS BEEN LOADED":2039qI2CS1ĺ" A MATRIX HAS BEEN CREATED":2039BX$;M$(I):I23:"(SELECT = RETURN KEY / MOVE = ANY KEY)"P6CS1LS1P10 P:5:Q$Q$(13)ī2110 PO HAVE MENU` DISPLAY FIRST7 -----------------O MENU ROUTINEm -----------------------:::I13:BL$:I:2:10:" SELECT OPTION":16368,06I18:4I1CS1ĺ(BL$,15):2039I2LS1ĺ(BL$,15):20 MATRIX":M$(6)"PRINT MATRIX":M$(8)"END PROGRAM"d$DD$" TOT SAT FRI THU WED TUE MON SUN".MD$" TOT DEC NOV OCT SEP AUG JUL JUN MAY APR MAR FEB JAN"8A(X)(X100.5)100BAL$(8):AR$(21)L8280 V REMOVE 1100 TIZE -----------------!6D$(4): CTRL DhBL$" "wBX$"[ ] "M$(7)"INSTRUCTIONS":M$(2)"CREATE MATRIX":M$(3)"ENTER MATRIX DATA":M$(4)"VIEW MATRIX DISPLAY"1M$(1)"LOAD MATRIX":M$(5)"SAVE ----------------1I1SZ:"-";:I:::H ----------------"IF TOTAL O.K. THEN PRESS RETURN IF TOTAL NOT O.K. THEN PRESS ANY KEY TO REENTER FIGURES.":Q$Q$"E"ġ:2000 ----------------- INITIAL BY *"/ R* *, :05::" NOTICE ":::" THIS OPTION IS---------------------*:5.*LS1ī8155A*(N$)0ī8155w*"ENTER THE NAME OF THE MATRIX ";N$:N$"E"ī2000*(N$)0ī2000*LS1*10:"LOADING THE ";N$;" MATRIX"*D$;"OPEN MM-"N$:D$;"READ MM-";N$*C,R+A(R,C),R$(R),C$(C)M-";N$)OC:R%)TI0C:C$(I):I:)^I0R:R$(I):IL)cY0R:X0CX)hA(Y,X)a)mX,Yx)rD$;"CLOSE MM-";N$)uD$;"LOCK MM-";N$)w15:"MATRIX HAS BEEN SAVED AND LOCKED.")|8160) --------------------) LOAD ROUTINE* TAL ":7670&(= --------------------=(> SAVE MATRIX Z(? ---------------------c(@:5v(CR1C1ī8200(E"ENTER THE NAME OF THE MATRIX ";N$:N$"E"ī2000(F10:"SAVING THE ";N$;" MATRIX ON DISK"(JD$;"OPEN MM-";N$)LD$;"WRITE MR$(R),C$(C):Z1:X012:C$(X)(MD$,Z,5):ZZ5:X:Y1011:A(R(Y1)):R$(Y)(" "(A),5):Y:R$(0)" TOTAL ":7670 (<R10:C07:R$(R),C$(C):Z1:X007:C$(X)(DD$,Z,5):ZZ5:X:Y1011:A(R(Y1)):R$(Y)(" "(A),5):Y:R$(0)" TO12:C$(X)(MD$,Z,5):ZZ5:X:7330^& Z1:R12:R$(R):X012:R$(X)(MD$,Z,5):ZZ5:X:7670&Z1:C7:C$(C):X07:C$(X)(DD$,Z,5):ZZ5:X:7330&Z1:R7:R$(R):X07:R$(X)(DD$,Z,5):ZZ5:X:7670&(26:C2639:"-";:C::~'2R10:C12:R ROW TITLES"'%"(LIMIT TO 8 CHAR.)"7%:XR11[%" ROW #";R(X1);" ";:"";Q$v%(Q$)1(Q$)8ī7620%R$(X)Q$%X%R$(0)" TOT "%%N$"CREATED"%A(R,C)%::10:" MATRIX CREATED ":8160"&Z1:C12:C$(C):X0$R1R52ī7330$R$(R)'$75901$7670N$8:"ENTER COLUMN TITLES"h$B"(LIMIT TO 8 CHAR.)"x$L:XC11$VA$(C(X1)64)$`"COLUMN #";A$;" ";:"";Q$$j(Q$)1(Q$)8ī7520$tC$(X)Q$$~X$C$(0)" TOT "$ %:"ENTEzQ$"D"ī7700#C(Q$)/#C1C52ī7240:#C$(C)D#7480J#b#:"NUMBER OF ROWS"v#" (M=MONTHS)"#" (D=DAYS)"#" (?=ANY NUMBER)##:" Y = ";:#" ";Q$:#950#Q$"M"ī7690#Q$"D"ī7710#R(Q$)"NUMBER OF COLUMNS",">" (S=MONTHS X 10)"C"?" (W=DAYS X 10)"Z"@" (M=MONTHS) r"A" (D=DAYS OF WK)""B" (?=ANY NUMBER)""C"H:" X = ";:"R" ";Q$:"WQ$"E"CS0:2000"\Q$"S"ī7730"fQ$"W"ī7740"pQ$"M"ī7680#22:"O 3 0 0 0 0 0")!22:"W ."8!22:"S ."E!24:"."i!24::"Y";::" 0 0 0 0 0"s!7720!22:"TOT 0 0 0 0 0"!7720! 33,20:5:1!"DESIGN YOUR OWN BY"! "ENTERING A CODE OR"!*"THE MATRIX SIZE""410:S1ī7675 bCS1O l:::(BL$,20):" CREATE MATRIX ":(BL$,20)::3r v27:"STANDARD":28:"FORMAT": :28:"COLUMNS":27:"A B C...";::"X";::" TOT" 7720 24:"1 0 0 0 0 0"  24:"2 0 0 0 0 0" 22:"R"!   ԠҠˮԧӠŠ٠ǠŠӠĠӠҠӠӠĠή`ҠƠӠĠӮϠΠǠŠӠ̠͠נՠؠĠŠ̠͠.ϠŠؠĠԠؠӠΠƠŠŠנĠΠ`     : ՠΠҠӠΠŠ `      ͠ȠӠӠ ( ĠӠƠӮ `     ԍԍɍՍčō΍΍Ԡî΍ōӍč ŠӠՠҠ٠Šՠ٠ҠӠҠŠҠŠϠҠӮ`ҠŠؠԠנԠŠ.ӠĠՠ٠ΠҠàנĠΠ`РϠӠΠȠΠԠŠǠ̠ӮӠӠĠέàӠĠΠҠՠ٠Ԡ͠ŠĠӠŠ`ĠԠƠӮĠӠĠέԠҠؠΠŠŠ.ӠҠȠנĠנӠĠέԠ`ŠӠՠŠԠ ŠĠϠӮ͠ӠĠέà Ӡנàؠؠؠؠؠ`נ ؠؠؠؠؠ.Šؠ̠ˠŠӠנؠؠؠؠؠ `   נҠӠՠĠ ӠȠԠӠĠΠŠخ.ŠŠƠŠŠ͠ӠŠǠŠԠ٠̠Ġ`ϠĠŠԠήԠǠנŠ ǠӠ̠Π  ŠؠϠˠ̠ŠҩǠŠՠΩ   ŠؠΠŠҠؠ͠ˮ`РϠӠΠ͠Šՠ٠ՠΠŠӠԠũźΠŠ͠ӠԠ.Š٠ƠŠǮĠՠ٠ϠĠ`  ŠϠŠؠ   ŠؠΠŠΠĠŭҠԠנҠή٠Š̠ĠϠŠՠҠҠӮ`ҠՠΠήՠ٠ԠŠ̠ҠȠׯΠӠΠ̠ӯӠŠ.ĠŠ̠͠ҠĠՠ̠ŠĠ`ՠ٠ԠŠ̠ĠŠϠŠԠ͠     * BY JAMES F. SULLIVAN. *> * THE MINIMUF 3.5 PROGRAM *_ * APPEARED IN THE ARTICLE * * 'MINIMUF: A SIMPLIFIED * * MUF-PREDICTION PROGRAM * * FOR MICROCOMPUTERS' BY * * ROBERT B. ROSE K6GKU, * * IN QST MAGAZINE; DEC,IED FOR NON-PROFIT *6 * DISTRIBUTION *W * *x * THE ACTUAL MINIMUF 3.5 * * PROGRAM IS IN LINES 1990* * THROUGH 2870. THIS HAS * * BEEN ALTERED FOR USE ON * * THE APPLE II + COMPUTER * / " 80N". ***************************O * DRIVER FOR MINIMUF 3.5 *p * BY JAMES F. SULLIVAN * * KB8DE ** COPYRIGHT (C) 1982 ** BY JAMES F. SULLIVAN ** THIS PROGRAM MAY BE * * COP               ; TRY AGAIN!" 1003 "(";B;") - (";C;") = ";: RI RBC250` "OOPS;TRY AGAIN!"i 150 "(";B;") * (";C;") = "; R RBC250 "TRY AGAIN--BE CAREFUL!" 200 :"THAT'S RIGHT. THAT'S GOOD , ";N$ I  N""WHAT IS YOUR NAME ? ";N$P "HOW MANY EXERCISES WOULD YOU LIKE? ";WN]h(I1N{2A(3(1)1)<B(40(1)20)FC(40(1)20)PI;"."ZA100,150,200d"(";B;") + (";C;") = ";nRxRBC250 "SORRYĠŠԧؠ٠ǠŠĠ  ؠӠΠĮԠȠӠ͠`ĠԧӠӮϠРՠŠҠ     .ȠӠ͠ԧŠŠԧؠϠ `ΠŠ͠ӠҠ ؠŮ        Šŧ٠ΠŠĠŠǠŠ͠ ƠՠӠŠΧ٠ǠӠƠԠՠȠŠή`Ҡ̠ƠŠخ+ OSLO,NORWAY,NORTHERN EUROPE,60.0,-11[ PALERMO,SICILY,SOUTHERN EUROPE,38.1,-13.3{ PEKING,CHINA,ASIA,40,-116 QUITO,ECUADOR,WESTERN S.AMERICA,-0.5,78 RIO DE JANEIRO,BRAZIL,EASTERN S. AMERICA,-23,43 SANTIAGO,CHILE,SOUTHERN S.E,GABON,CENTRAL AFRICA,0.5,9I LONDON,ENGLAND,WESTERN EUROPE,51.3,0.1s MANILA,PHILIPPINES,OCEANA,14.5,-121 MELBOURNE,AUSTRALIA,OCEANA,-37.8317,-144.975 MOSCOW,USSR,EASTERN EUROPE,56,-37 MUNICH,GERMANY,CENTRAL EUROPE,48.145,-11.61 CARACAS,VENEZUELA,NORTHERN S.AMERICA,10.5,67Xh DAKAR,SENEGAL,WESTERN AFRICA,14,17.5tr GUAM,-,OCEANA,12,-145| HALIFAX,NOVA SCOTIA,N.AMERICA,44.68,63.563 HONG KONG,-,ASIA,22,-114 HONOLULU,HAWAII,OCEANA,21.302,157.863 LIBREVILLPI180:P12PI:R1180PI:P0PI2S, ADDIS ABABA,ETHIOPIA,EASTERN AFRICA,9,-38.5}6 ANCHORAGE,ALASKA,N.AMERICA,61.5,150@ BOMBAY,INDIA,ASIA,19,-72J COOK ISL.,-,OCEANA,-20,160T CAPETOWN,SOUTH AFRICA,SOUTHERN AFRICA,-33.935,-18.4783-^N(31),NT$(31),LO$(31),CI$(31)0M$(12),NO(10)Z 31,28,31,30,31,30,31,31,30,31,30,31fI112sM(I):II112M$(I):I JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DECPI3.14159265ACS(X)(X(XX1))(PI2)!"R037] 64,72,79,87,95,103,111,120,128,137,146,155,165,174,184,194,204,214,224,234,244,444 0,10,20,30,40,50,60,70,80,90,100,110,120,130,140,150,160,170,180,190,200,400I122SF(I):II122SN(I):IA$(4),M(12),LT(31),L82 VERSIONCCALCULATIONS TAKE APPROX 2 MIN FOR EACH TRANSMITTERI]I$" ": CTRL-IqD$"": CTRL-DS$" ": SPACEC$",": COMMASF(22),SN(22) DATA BELOW IS FROM GRAPH OF SOLAR FLUX VS SUNSPOT NUMBER IN QST DEC, 1982, P.0 COLUMN LISTINGS."O:"10.7 CM SOLAR FLUX INFORMATION (REQUIREDBY THIS PROGRAM) MAY BE OBTAINED AT 18 MINUTES AFTER EACH HOUR ON STATIONS WWV OR WWVH AT 2.5, 5, 10, 15 OR 25 MHZ."U:"PRESS ANY KEY TO CONTINUE";:Z$V  24 DECEMBER, 19F THE RECEIVER IS USED IN THE WESTERN UNITED STATES IT IS SUGGESTED THAT LINE 530 BE ALTERED AS SUGGESTED IN THE COMMENT IN LINE 610.M:"AN 80 COLUMN PRINTER IS NECESSARY FOR OUTPUT OF MORE THAN ONE TRANSMITTER LOCATION AT A TIME AND FOR 8ATH LENGTHS FROM 250 TO 6000 MILES."NJ:"PRESS ANY KEY TO CONTINUE";:Z$:K:"THE DEFAULT RECEIVER LOCATION IS IN LINE600. TO CHANGE THIS 5 ITEMS MUST BE GIVEN IN THE DATA STATEMENT: CITY, STATE, LOCATION, LATITUDE, & LONGITUDE"L:"IF PREDICTS THE MAXIMUM USABLE FREQUENCY FOR RADIO PROPOGATION BETWEEN TWO LOCATIONS ON THE EARTH AT ALL HOURS OF THE DAY WHEN THE DATE AND 10.7 CM SOLAR FLUX IS INPUT."G$I"MINIMUF HAS BEEN USED BETWEEN 2 AND 50 MHZ. IT IS MOST USEFUL FOR PNS OF THE AMERICAN RADIO RELAY LEAGUE AND ROBERT B. ROSE.C:"THIS PROGRAM MAY BE COPIED FOR NON- PROFIT DISTRIBUTION PROVIDED ALL CREDITSAND COPYRIGHT INFORMATION IS RETAINED IN THE COPY.D:"PRESS ANY KEY TO CONTINUE";:Z$E:5:"MINIMU:"MINIMUF 3.5 HAS BEEN ADAPTED FROM THE PROGRAM APPEARING IN 'MINIMUF: A SIMPLIFIED MUF-PREDICTION PROGRAM FOR MICROCOMPUTERS', BY ROBERT B.ROSE K6GKU;QST MAGAZINE; DEC, 1982; PP.36-38.9A:"MINIMUF 3.5 IS PRESENTED HERE WITH THE PERMISSIOSSIONS TO COPY FOR *5 1* NON PROFIT USE TO BE *V 2* VALID *w 3*************************** 7:7:4 9"MINIMUF 3.5 WITH DRIVER" ;::5:"BY JAMES F. SULLIVAN KB8DE" ="COPYRIGHT (C) 1982 BY JAMES F. SULLIVAN"?O RELAY *- )* LEAGUE AND ROBERT B. *N ** ROSE. *o +* * ,* ALL OF THE ABOVE CREDITS* -* MUST BE REPRODUCED WITH * .* ANY COPY, WRITTEN OR * /* ELECTRONIC, FOR * 0* PERMI82;*% !* PP. 36-38; AND IS *F "* COPYRIGHTED BY THE *g #* AMERICAN RADIO RELAY * $* LEAGUE. IT IS PRESENTED * %* HERE, FOR NON PROFIT * &* DISTRIBUTION ONLY, WITH * '* THE PERMISSIONS OF THE * (* AMERICAN RADIE$"YES"YE$"Y"'*nYE$"Y"ĺD$"PR#1"-*xI*"DATE: ";M$(M0);" ";D6Y*ALL11470t*LZ((L11000.5))100*WZ((W11000.5))100*"TRANSMITTER LOCATION: LATITUDE ";LZ;" LONGITUDE ";WZ*TCOM$* +LZ((L2100 UNCERTAIN EXTRAPOLATION IS USED.Q)(FA(SF(FINAL)FLUX)(SF(FINAL)SF(FINAL1))})2S9SN(FINAL)FA(SN(FINAL)SN(FINAL1)))<S9(S90.5))F)PALL1YE$"Y":1390)Z"WOULD YOU LIKE PRINTED OUTPUT (Y OR ";::"N";::")";:YE$*dY1240+( HERE SUNSPOT TABLE IS EVALUATED7(I222V( SF(I)FLUXFINALI:1310](I!) LINEAR INTERPOLATION IS NOW USED TO FIND SUNSPOT NUMBER FROM SOLAR FLUX. THIS PROGRAM IS MOST ACCURATE FOR 64 < FLUX < 244. IN THE RANGE 244 < FLUX < 444 AN;:")";D6:D6(D6),'D61D6M(M0)1240a'"INVALID DAY. MUST BE IN RANGE (1,";M(M0);")."k'1160':"SOLAR FLUX ( >64 )";FLUX'FLUX64ĺ"TOO LOW, TRY AGAIN":1240(FLUX444ĺ"PROGRAM LIMIT FOR SOLAR FLUX IS 444 PLEASE TRY AGAIN":jW2:W2360W2360ĺ"TRY AGAIN":1120T&t"TYPE COMMENTS ON THIS RECEIVER BELOW"_&~RCOM$&::"MONTH (1 TO 12)";M0:M0(M0)&M01M0121200&"INVALID MONTH. MUST BE IN RANGE (1,12)."&1160':"INPUT DAY OF MONTH (1 TO ";M(M0)1L2LT(31):W2LN(31):1160@%8 HERE USER INPUTS RECEIVER DATAF%B%L"LATITUDE OF RECEIVER - SOUTH IS NEGATIVE (-90 TO 90)";%VL2:L290L290ė:"TRY AGAIN":1100%`"LONGITUDE OF RECEIVER - EAST IS NEGATIVE (-360 TO 360)";(&!$"1. ";CI$(31);", ";NT$(31)R$"2. USER SUPPLIED LOCATION (LAT AND LON)":$"TYPE YOUR CHOICE (";::"1";::" OR 2)";:CHOICE$:CHOICE$""CHOICE$"1"$$CHOICE((CHOICE$)):CHOICE1RCOM$CI$(31)C$S$NT$(31)S$S$LO$(31)S$%.CHOICEADY CHOSEN ";:J1IJ1:NO(J);S$;:J:S$#:"ENTER NUMBER OF TRANSMITTER ";IJ:"(1 TO 30). PRESS IF FINISHED.":NO$#NO$""NUIJ1:1020#NO(IJ)((NO$)):NO(IJ)1NO(IJ)30940#IJ#NUI:I$::10:"RECEIVER LOCATION"::1)11:NO(2)14:NO(3)8:NO(4)4:NO(5)15:1020"CHOICE35NU9:NO(1)2:NO(2)9:NO(3)24:NO(4)25:NO(5)26:NO(6)6:NO(7)21:NO(8)22:NO(9)23:1020"IJ110:":I115:I10ĺS$;"I;". ";CI$(I);:20:I15;". ";CI$(I15):I)#IJ1ĺ:"ALRERANSMITTER BELOW"!fTCOM$&!p1020!zCHOICE32NU10:NO(1)18:NO(2)16:NO(3)17:NO(4)13:NO(5)19:NO(6)30:NO(7)7:NO(8)1:NO(9)12:NO(10)5:1020!CHOICE33NU6:NO(1)28:NO(2)3:NO(3)27:NO(4)10:NO(5)20:NO(6)29:1020-"CHOICE34NU5:NO(G 4"LATITUDE OF TRANSMITTER - SOUTH IS NEGATIVE (-90 TO 90)";q >L1:L190L190ė:"TRY AGAIN":820 H"LONGITUDE OF TRANSMITTER - EAST IS NEGATIVE (-360 TO 360)"; RW1:W1360W1360ĺ"TRY AGAIN":840!\"TYPE COMMENTS ON THIS T TRY AGAIN":660%CHOICE31ī790bTCOM$CI$(CHOICE)C$S$NT$(CHOICE)S$S$LO$(CHOICE)S$ L1LT(CHOICE):W1LN(CHOICE):1020CHOICE36ALL1:890: PRINTED OUTPUT OF SEVERAL DEFAULT TRANSMITTERS  USER INPUTS TRANSMITTER DATA NEXT * CHOICE OF 2 TO 10 OF ABOVE"i"GROUPS: 32. AFRICA & EUROPE, 33. ASIA, 34. OCEANA, 35. N & S AMERICAS"36. USER SUPPLIED LOCATION (LAT AND LON)""TYPE YOUR CHOICE (1 THRU 36)? ";CHOICE:CHOICE(CHOICE)CHOICE1CHOICE36ė:"OUT OF RANGECO DATA BE REPLACED BY 'ST.AUGUSTINE,FLORIDA,N.AMERICA,29.9,81.4'MlI131vvCI$(I),NT$(I),LO$(I),LT(I),LN(I):I|ALL010:"TRANSMITTER CHOICES"I115I10ĺS$;I;". ";CI$(I);:20:I15;". ";CI$(I15):I"31.APAN,ASIA,35.71,-139.767EN TRIPOLI,LIBYA,NORTHERN AFRICA,32.5,-13X CINCINNATI,OHIO,N.AMERICA,39.1383,84.4217: THIS IS THE DEFAULT RECEIVING STATIONAb IF THE RECEIVER IS TO BE IN THE WESTERN UNITED STATES IT IS RECOMMENDED THAT THE SAN FRANCISAMERICA,-33,71B SAN FRANCISCO,CALIFORNIA,N.AMERICA,37.5,122.5q SAN JUAN,PUERTO RICO,CARIBBEAN,18.5,66.5& SAN SALVADOR,EL SALVADOR,CENTRAL AMERICA,13.5,890 SINGAPORE,-,ASIA,1,-104: TEL AVIV,ISRAEL,WESTERN ASIA,34,-34.9D TOKYO,J)/ (WF(F7)7:D$"SATSUNMONTUEWEDTHRFRI":W *"THAT DAY WAS '";(D$,W31,3);"'"_ 2:z <"ANOTHER? (Y/N): ";A$ FA$"Y"10 P936:10:"GOOD BY!": M DAY-OF-WEEK FINDER FOR8 ANY DATE SINCE 1582B 936b "NUMBER OF MONTH (XX): ";M "NUMBER OF DAY (XX): ";D "YEAR (XXXX): ";YK((60(100M))100):X365 FXYD31(M1)(.4M2.3)(1K)((YK)4)(.75(((YK)1001))I6 G2G2(1(1(L1)(L2))0.1)H6 G2G2(10.1(1(((L0))(L0))))R6 2840x6 T6T512(1(T4T5))((T4T5))6 G8PIT9K96 U(T4T6)26 U1K9T96 G0C0(G8((U1)1))(U)(1G8G8)6 27306 G2J928606" J9G26, K176 ))((TT5))!5d G9PI(T6T)K915n G8PIT9K9A5x U(TT6)T9m5 G0C0((G9)G8((U)(G9)))(1G8G8)5 G7C0(G8((K9T9)1))((K924)2)(1G8G8)5 G0G727305 G0G75 G2(1S9250)M9(658(G0))5 G2G2(10.1((K924)3)) K9224))4 C0((L0Y2))/4 T99.7C09.6@4 T90.12560K4 T90.1\4 M92.5G1K5m4 M9P02590w4 M9P04 M9(M9)4( M912.5M9(M9)42 T4T26404< (T5T)(T4T5)026504F 27804P (T5T4)(TT5)02780 5Z T6T512(1(TT5.5G1K53~ M9P02450#3 M9P003 M9(M9)F3 M912.5M9(M9)P3 27303 K9(0.26(Y2)(L0))((Y2)(L0)1.0E3)3 K912(K9((1K9K9)))7.6394373 TK8K9212(1(K8K92))((K8K92)) 4 T4K8K9212(1(K8K9224))((K8 C1:L0P0:2350 2 C1234042 C1:L0P0:2350F2$ L0P0ACS(C)h2. Y10.0172(10(M01)30.4D6){28 Y20.409(Y1)2B K83.82W0120.13((Y1)1.2(2Y1))2L K8K812(1(K824))((K824))2V (L0Y2)0.2624802` K902j G003t M921)P(G1))(Q(G1))!1zBG1K171CP(B)Q(B)AU1D((B)CP)(Q(1C2))d1D12220r1D0:22501D122401D0:22501DACS(D)1W0W2((W1W2))D1W0022801W0W0P11W0P123001W0W0P11C123202W1)0K712030)0K71:G10:206080K712050L0K71:G10:2060\0G1ACS(K7)k0 K61.59G1{0K6120900 K610*K51K604J91000>K11(2K6)11(2K6)0.99991K60HK5121400RK50.50\P(L2)0fQ(L2)1pA((LXI1NU-/bL1LT(NO(I))R0:W1LN(NO(I))R07/l1990S/vWZ(((J90.05)10))10r/;SPALH(((WZ))));WZ;/LH((WZ))(((WZ)))/LH2LH0/I/S$/T5/1660/ MINIMUF 3.5 BEGINS HERE0K7(L1)(L2)(L1)(L2)(W2));" LON= ";LN(NO(I)).I\.::5:"MUF (MHZ) FOR EACH TRANSMITTER AT EACH UTC HOUR":i."HOUR";.L2L2R0:W2W2R0.I1NU." NO.";I;:I.&S$:.0SPA7: SPACING FOR OUTPUT LINE.:T5023.D;3(((T5))));T5;.NLH1 /YE$&-YE$"Y"YE$""YE$"YES"ī640,-i- HERE A LARGE NUMBER OF TRANSMITTER OUTPUTS ARE PRINTEDw-I$;"80N"-10:"TRANSMITTER DATA"-I1NU-TCOM$CI$(NO(I))C$S$NT$(NO(I))S$S$LO$(NO(I))S$."NO.";I;S$;TCOM$;" LAT= ";LT(NO(IW1R0:L2L2R0:W2W2R0%,@T5023/,J1990D,TLZ((T510))10`,^WZ(((J90.05)10))10,h;6(((LZ))));LZ;10(((WZ)))((LZ(LZ))));WZ,rT5,|D$"PR#0",-"WOULD YOU LIKE TO RUN ANOTHER TRIAL