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 TO EXIT READ MODE":10);" TO CONTINUE";:35,22:0 5,39:4):KB1282580 T12550% I3 16368,09 S *******************m * TEXT FILE READ * * SECTION * *******************  TF3110 D$"OPEN "TF$ :10:11:"READING ";::TF$::13::"PLEASE STAND-*>KB195ė::D$;"CATALOG":3550: 'C'XHKB205ĺ" M":D$;"BRUN MENU 4.0":: 'M'sR(KB128)"R"ė:3000\(7);:2090 **************** * KEYBOARD * * INPUT MODULE * **************** T1āI1300 KB(1638============="R 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: 'Q'"";( h2500. rE  ****************\  * MAIN MENU *s  * SECTION *  **************** :TI$" APPLE-DAYTON DISK-OF-THE-MONTH ":5000:TI$VO$::50009:8:"TO RE-RUN MENU PROGRAM":8:"=========0":: 6"CONTACTS-":"PRES- STEVE ALLEN, (513) 253-0645"e @"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:HE APPLE USERS GROUP OF DAYTON, OHIO":e "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 7:3HM:LG1080) .1090:LOGO NOT IN MEMORY8 8T11:2500A BT10I L:S V1500] `4000g j2000~  ****************  * APPLE-DAYTON *  * CLUB INFO *  * SECTION *  ****************' :13::" APPLE-DAYTON ":::"T39, JULY 1983"( TF0:TEXT NOT LOADEDb 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,A"  ****************/ * APPLE-DAYTON *F * HELLO *]( * INCLUDING A *t2 * TEXT READER *< * MODULE. *F * JUNE 1983 *P * TED ROSE *Z ****************d6400TF$"A-D VOL 39" ,VO$"VOLUME      $)21Ĺ36,(36)1$(Z$)221052l(37)22ğ:10:"CARD FULL";::T11200:T:23:1:958:22:1v 2020 DISPLAY MENU :2::8:" MENU ":: 10:"I - INDEX LISTING" 10:"R - READ A CARD" 10:"W - WRITE A CARD" Z$:Z$"C"Ģ(37))Z$"D"Ģ(37)27Z$"I"ĞEZ$"N"ĝSZ$"F"ğ(Z$)19ĺ"BSAVE CARD";CN;",A$400,L$400":60:TCTC1:IN$(CN)A$(Z$)19ė:15:10:"CARD IS SAVED."(Z$)19āT11000:T:3000(Z$)167000(ZZ$) WCN(Z$) [22:1:Z$) `1051@ FILL CARD ROUTINEV  ALREADY HAVE CN` 2010 13::6:"EMPTY CARD"::216,0:2:10: 2020 ::1:"NO. ";CN 2005 A$IN$(CN) 2:10:A$ 4 Z$:Z$; (Z$)272030";:Z$:30104 CNT::"BLOAD CARD";CN:22:1:Z$H (Z$)221056P 70q TCTC1:IN$(CN)"EMPTY CARD" (Z$)18TCTC1:2018 !(Z$)167000 $3000 LGET CARD BY NUMBER MIN$((Z$))"EMPTY CARD"1045 Q V"BLOAD CARD";(EX":"WRITE AF-INDEX"- TK160:IN$(K):K; U"CLOSE"A YZ GET AND READ A CARD :"WHAT IS THE CARD NUMBER OR ":"SUBJECT NAME: ";:Z$ (Z$)581100 T160:IN$(T)Z$1050 T :" NO SUCH CARD IN FILE" :"::T11611180:(T)160(T1)16069> >A$A$((T)128):TD EV F DELETE CARD G:"DELETE?? (Y/N)";::" ";Y$:Y$"Y"ı H"DELETE CARD";CN I"DELETE CARD";CN: DOS CMD O PSAVE AF-INDEX Q"QUITTING PROGRAM" R"OPEN AF-IND"READ AF-INDEX"' "K160:IN$(K):K> $"CLOSE AF-INDEX"g %K160:IN$(K)"EMPTY CARD"ECEC1w &K:TC60EC} ' ( SAVE PAGE *"BSAVE CARD";CN;",A$400,L$400" 1 2STORE TITLE IN AF-INDEX 4IN$(CN)A$ ; <GET A$% =A$"""NOMONI,O,C"!IN$(60))303 3000R *************************q * DONATED BY AUTHOR TO * * NORTHERN ILLNOIS AUG ** DECLARED PUBLIC DOMAIN************************** READ AF-INDEX "OPEN AF-INDEX":      ` 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      č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠čΠӍ٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠ ONE FOR HIRESAPPLEFILE WAS WRITTEN BY T. HARTLEY COPYRIGHT 1979 (312) 956-1312  MODIFIED BY R.A.LUNDEEN 3-20-80L********************* READ AF-INDEX "OPEN AF-INDEX":"OPEN AF-INDEX"(<#D$;"WRITE AF-INDEX"4F#K160FP#"EMPTY CARD"MZ#Kfd#D$;"CLOSE AF-INDEX"n#936:10:" INDEX FILE CREATED"x#' BSAVE CARD(X).A$400.L$400' BSAVE CARD(X).A$2000.L$2000' USE FIRST ONE FOR TEXT' USE 2ND 'RUN 9000' "`:"PRESS RETURN"::"(THE SUBROUTINE AT 9000 WILL CREATE THE FILE FOR YOU)"22:" (HIT SPACE BAR)"Z$:::"TO CAPTURE IMAGES FROM OTHER SOURCES SEE REMARKS AT END OF THIS PROG"'#(#D$"": CTRL D2#D$;ROGRAM ASSUMES YOUR PRINTER IS PLUGGED INTO SLOT #1"\23:" (HIT SPACE BAR)":Z$:"TO INITIALIZE THIS PROGRAM YOU WILL":"HAVE TO CREATE THE BLANK 'INDEX' FILE.":"THE FASTEST WAY TO DO THAT IS TO ":"LOAD THIS PROGRAM"::"TYPE IF YOU WISH TO USE THIS PROGRAM, I WOULDRECOMMEND THAT ONE DISKETTE BE DEDICATEDENTIRELY TO THIS FILE. EACH PAGE SAVED USES 6 SECTORS ON YOUR DISK. THE PROGRAMMAKES ALLOWANCE FOR UP TO 60 FILE CARDS"8"IN THE DIMENSION STATEMENT IN LINE 5. THE PILE."+w23:" (HIT SPACE BAR)":Q$:|"THE CARDS IN THE APPLEFILE MAY BE EDITEDOR DELETED OR REVISED BY USING THE COMMANDS WHICH APPEAR IN THE MENU. ONE SAMPLE CARD IS CURRENTLY ON THIS DISK JUST TO SHOW YOU HOW IT WORKS.""ATEVER IS ENTERED ONTHIS FIRST LINE IS THE 'TITLE' OF THE CARD. WHEN READING A CARD OFF THE DISK,IT MAY BE ACCESSED EITHER BY ITS TITLE OR ITS NUMBER. AN INDEX FILE IS MAIN-"r"TAINED FOR EASE IN KNOWING WHAT IS CURRENTLY STORED IN THE APPLEF VIA THE APPLE KEYBOARD AND THEN 'SAVE' THAT PAGE ONTO DISK. PAGES MAY BE READ BACK IN THE SAME WAY."^" WHEN WRITING A PAGE OR CARD FOR THE FIRST TIME, APPLE WILL PRINT THE CARD NUMBER AND POSITION THE CURSOR AT THE"h"TOP OF THE PAGE. WHJ19997130Q$Q$(J)!K)Q$0THNN40:N11047130R7060Y0_i3000{@ EXPLANATIONJ:"THIS PROGRAM IS DESIGNED TO USE A DISK AS A SORT OF CARD FILE. THE USER MAY"gT"ENTER VIRTUALLY ANY DATA ON THE SCREEN 60!IN$(K)"EMPTY CARD"6030.K:6040=CNK:6060OTCTC1:CNTCv::1:" CARD #";CN:2:10:2020XPRINT CARD ON PAPERb1l(31);"";:v23:38:34,24:32,38:33,1N1024T07:Q$"":KNN39 J(KT128):NG5020,"HARDCOPY? (Y/N)";Q$GQ$"Y"Ċ2:(31);"";c10:"INDEX LISTING":3o34,2:T160:" CARD #";T;:15:IN$(T)(37)23ľZ$:T022:":";:Z$:2553010p FIND A BLANK CARD{K1ESC-F =FLASHER"= 2:" ESC-N =NORMAL"g 20:8:TC;" CARDS CURRENTLY IN USE."| 22:1:":";:Z$ Z$"R"1000 Z$"I"5000 Z$"W"6000 Z$"H"ī4000 Z$"Q"İ80:: 30298000:3000INDEX LISTI10:"H - HELP INSTRUCTIONS"0 10:"Q - QUIT"O :8::" COMMANDS ":: 2:"CTL-S = SAVE CARD ESC-C =CURSOR UP" 2:"CTL-R = REVISE CARD ESC-D =CURSOR DN" 2:"CTL-V = DELETE CARD ESC-I =INVERSE" 2:" 9r3w"IN THE ";M12;" YEAR OF YOUR LOAN.":[|"$";R1;" WAS YOUR ANNUAL PAYMENT."a"$";R2;" WENT TO PAY THE INTEREST.""$";R3;" WENT TO PAY THE PRINCIPAL.""HIT RETURN TO CONTINUE.";:K$936$:3:5255:X$"Y"100"6, THIS ROUTINE ACCUMES<-R. YEARLY FIGURES.X/^0n1MC14ī370~6MC12ī3207MC08R109R20:R30;R40@MCMC1JR1R1P1TR2R2P2^R3R3P3hR4PmMC12ī39# BBP:"TOTAL PAYMENTS MADE ";BC "TOTAL YEARS PAID ";Da "TOTAL MONTHS PAID ";A "YOUR MONTHLY PAYMENT IS ";P1 I1ĪII100:"THE INTEREST RATE IS ";I;" %" :: "WANT TO DO ANOTHER":" ANSWER Y OR N ";:X$ 34,000 J$"S"ī2514 M;5)P1;12)P2;20)P3;31)P= 300U AM0:BP1B:CP2C J$"S"K0ĺ:"** I'M COMPUTING AS FAST AS I CAN !! **":::K1 M J$"D"MC12ĪMC14:300 "ORIGINAL LOAN AMOUNT ";E "TOTAL INTEREST PAID ";C936 J$"S"ī157X "PER";5)"PAYMENT";14)"INT";21);"PRIN RED.";31)"PRIN BAL."d :34,2 P1P(I12)(1(1(1(I12))(L12))) P1(P1100.5)100 M1L12 P2PI12 P2(P2100.5)100 P3P1P2 P((PP3)100.5)1 YEAR;":" HOW MANY YEARS ";:L< DL: "DO YOU WANT FAST OR SLOW PRINT:":" ANSWER F OR S ";:G$ G$"S"ĩ100 :"DO YOU WANT A DETAIL & A SUMMARY LIST,":" OR JUST A SUMMARY LIST?":" ENTER D OR S ";:J$: *****************************************":::w x"HOW MUCH IS THE MORTGAGE ";:P: }EP "WHAT IS THE INTEREST RATE ";:I I1ī150 II1002 "# OF YEARS TO PAY:":" ENTER I.E. .5 FOR HALF AQ  :400%c BY KEVIN ARMSTRONG/d9368eA0AfB0JgC0ShD0\iE0fjF19okK0zlMC13P n"***************************************** ** -=< MORTGAGE CALCULATION >=- **  ՠԮՠԠҠŠˠŠԠҠŠ٠̢ӠϮΠҠϠ٠ŠӮӠȠŠԠҠŠ٠ƠՠŠנϠŭΠĠԠϠĠŠȠ٠ԠĠ`̢Π٠ΠήŠҠĠŠΠӠΠŮΠӮ&ӠȠŠŠŠΠ̠ΠŠӠŠ`ĠŠŠȠ̠ŠĠ٠ˠ٠ƠŠΠԠŠԠ2ΠӠ̠ĠՠĠĠԠŠ٠ˠҠŠή     ٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠čN WORKING WITH A ";:SCĺC"DATABASE AND DECIDED TO BREAK IT UPx"INTO MORE THAN ONE LIST, YOU HAVE THE ";:SCĺ"OPTION OF CONTINUING WITH THE CURRENT"FORMAT IN USE.":" WHEN YOU ARE DEFINING A NEW ";:SCĺ "FORMAT, YOU WTS TO DISK ";:SCĺ>"FOR USE LATER WITH ANOTHER DATABASE.t"YOU ARE ASKED WHEN YOU FIRST COME INTO ";:SCĺ"THIS SECTION IF YOU WOULD LIKE TO USE"AN OLD FORMAT YOU HAVE TUCKED AWAY ";:SCĺ"SOMEWHERE.":" IF YOU HAD BEE DISK$X" C - CORRECT RECORDSIb" E - EXIT TO BASIC":SCĺ`lSCİ30000:BK310v"B - BEGIN NEW DATA BASE:":" THIS OPTION ALLOWS YOU TO SET UP ";:SCĺ"FORMATS FOR YOUR VARIOUS DATABASE"NEEDS AND SAVE THOSE FORMA":&" B - BEGIN NEW DATA BASEG" D - DUMP DATA TO DISKp" S - SORT BY FORMAT CATEGORIES&" P - PRINT RECORDS0" A - ADD RECORDS:" R - REMOVE RECORDSD" V - VIEW RECORDSN" L - LOAD DATA FROM GIVE THE SAME RESULT ";:SCĺ@"AS PRESSING THE INVERSE.":s" ANY TIME YOU WISH TO RETURN TO ";:SCĺ"THE MAIN COMMAND MENU, USE", OR .":SCĺSCİ30000:BK100" THE MAIN COMMANDS ARE: THE ENTRY ";:SCĺ-"WITH A .":]" IN THE CASES WHERE A YES/NO ";:SCĺ"ANSWER IS EXPECTED, THE LETTER THAT IS"SHOWN IN INVERSE IS THE DEFAULT, WHICH ";:SCĺ"MEANS THAT ANY KEY PRESSED BUT THE"NON-INVERSE WILL* T"MAY REQUIRE MORE THAN A SINGLE KEY` ^"ENTRY. TO AVOID CONFUSION, I HAVE DONE ";:SCĺ h"AWAY WITH THE FLASHING CURSOR WHEN r"SINGLE KEY ENTRIES ARE EXPECTED; ";:SCĺ |"OTHERWISE, WHEN THE CURSOR IS"FLASHING, YOU MUST TERMINATE)5 "THE MAXIMUM NUMBER OF CATEGORIES YOU ";:SCĺU ""MAY DEFINE IS 12.":SCĺl ,SCİ30000:BK100 6" THE PROGRAM CONTROL IS DONE WITH ";:SCĺ @"MENUS THAT GIVE YOU CERTAIN OPTIONS OR J"WITH YES/NO QUESTIONS. SOME OPTIONS ";:SCEMINDER AT THE ";:SCĺD "BEGINNING. THE ABSOLUTE MAXIMUM NUMBERw "OF RECORDS IS 250; DEPENDING ON THE ";:SCĺ "AMOUNT OF DATA IN EACH, THE ACTUAL "MAXIMUM MAY BE LESS. (THE LARGEST FILE ";:SCĺ "I CURRENTLY MAINTAIN IS 77 SECTORS.MANDS, THE ";:SCĺ> "ORDER OF PRESENTATION IN SOME AREAS,l "AND SOME NEW ADDED OPTIONS FOR ";:SCĺ "SELECTING WHICH RECORDS TO PRINT.": " A WORD OF CAUTION; TO SAVE ";:SCĺ "PROGRAM SPACE, I DELETED THE "SPECIFICATIONS RNED TO FAMILIARIZE YOU WITH THET x"FEATURES OF THE NEWEST VERSION OF THE ";:SCĺ} "RECORD MANAGEMENT SYSTEM (2.0).": " THE BASIC COMMAND SET REMAINS THE ";:SCĺ "SAME AS BEFORE. THE ONLY CHANGES ARE "IN THE OPTIONS FOR SOME COM& ::(4)"NOMON C,I,OZ4:6:"RECORD MANAGEMENT SYSTEM 2.0"::14:"INSTRUCTIONS15:"DO YOU WANT A HARD COPY? (Y/N)":30100:SC1:(KB)"Y"SC0Z:SCĺ(4)"PR#1":(9)"75N":d" THIS SET OF INSTRUCTIONS IS ";:SCĺ n"DESIG             'A4)16046016368,0::OX16368,0::10:10:"* * * THE END * * *":E0:"* * * THE END * * *":l GIVEN TO APPLE CORE OF SAN FRANCISCO BY.. KEVIN ARMSTRONG..v LAST MOD. JULY 1979 'HOME MORTGAGE:"*** HOME MORTGAGE CALCULATOR ***"F::10:"BY KEVIN ARMSTRONG"L~::"THIS PROGRAM COMPUTES LOAN, PRINCIPAL,""AND INTEREST PAYMENTS ON HOME MORTGAGES"22:"( PRESS THE SPACE BAR TO CONTINUE )"(16384)155600 (1638HOICE, ETC.":SCĺ+#SCİ30000:BK1320D#"A - ADD RECORDS":s#" WHEN ENTERING DATA FOR NEW ";:SCĺ#"RECORDS, YOU WILL HAVE THE OPTION OF#"USING JUST FOR THE FIRST ";:SCĺ#"CATEGORY ENTRY TO RETURN TO THE MAIN+$ ONE OF THE NEW FEATURES IS THAT ";:SCĺT"^"YOU MAY DEFINE AS MANY CRITERIA LIKE"h"THIS AS YOU HAVE CATEGORIES. WITH THIS ";:SCĺ"r"CAPABILITY, YOU CAN PRINT ALL OF ONE"|"THING YOU FIND EXCEPT THOSE THAT DO ";:SCĺ#"NOT FIT ANOTHER C+!"YOU SAID TO SEARCH FOR 'RO' IN A LAST`!""NAME, YOU WOULD FIND 'ROSE', 'BROCK', ";:SCĺv!,"& 'SAPORO'.)":!6" YOU HAVE THE OPTIONS, IF YOU FIND ";:SCĺ!@"THE SEARCH CHARACTERS, TO PRINT OR NOT!J"PRINT THOSE FOUND.":)"T" İ30000:BK1150C " WHEN ENTERING SEARCH CRITERIA, ";:SCĺo "YOU MAY CHOOSE ANY CATEGORY FROM YOUR "FORMAT AND THEN ENTER A CHARACTER ";:SCĺ "STRING TO LOOK FOR 'ANYWHERE' IN THAT "CATEGORY FOR EACH RECORD. (I.E.: IF ";:SCĺĺ-"OPTION, I CAN DEFINE A MAILING LABELO"OUTPUT OF 3 OR 4 LINES.)":" YOU MAY PRINT ALL RECORDS IN ";:SCĺ"ORDER (LAST SORTED ORDER) OR ENTER"SEARCH CRITERIA TO DETERMINE THE ORDER ";:SCĺ"OF OUTPUT.":SCĺ SCU MUST CHOOSE BY LETTERKn"FROM THE FORMAT CATEGORIES AND ENTER ";:SCĺwx"THE LETTERS FOR THE EACH LINE OF YOUR"OUTPUT. THE LETTERS MAY BE IN ANY ";:SCĺ"ORDER, BUT MUST BE ENTERED WITHOUT"SPACES (I.E.: BIFGH). (USING THIS ";:SC2" WHEN PRINTING YOUR DATABASE, YOU ";:SCĺ_<"MAY PRINT ALL CATEGORIES AS SPECIFIEDF"IN THE FORMAT OR YOU MAY CHOOSE TO ";:SCĺP"PRINT ONLY THOSE YOU SELECT.":Z" IF YOU CHOOSE TO PRINT SELECTED ";:SCĺd"CATEGORIES, YOSCĺ/"PROPER ALPHABETIC ORDER ON THE WHOLE?"NAME.)":n" THE ORDER OF YOUR FILE FOR ";:SCĺ "PRINTING OR SAVING TO DISK WILL BE"DETERMINED BY THE LAST SORT PERFORMED.":SCĺSCİ30000:BK990("P - PRINT RECORDS":3"CATEGORY TO SORT ON, THEN THE SORTP"WILL BE DONE IN THE ORDER YOU ";:SCĺs"SPECIFIED. (I.E.: IF YOU HAD"CATEGORIES FOR FIRST AND LAST NAME, ";:SCĺ"YOU WOULD HAVE TO SPECIFY 1-LAST,"2-FIRST SORT ORDER TO HAVE THE LIST IN ";:tSCİ30000:BK830;~"S - SORT BY FORMAT CATEGORIES":m" THE SORT ROUTINE IS SET UP TO ";:SCĺ"ALLOW YOU TO SORT YOUR DATABASE ON ONE"CATEGORY OR ANY NUMBER OF CATEGORIES.":" IF YOU SPECIFY MORE THAN ONE ";:SCĺ#ALOG OF THE DISK IN THE NAMEDKB"DRIVE, JUST PRESS FOR ";:SCĺsL"FILENAME ENTRY. TO CHANGE DRIVES,V"ENTER AND ANSWER ";:SCĺ`"THE PROMPTS. (THE SLOT IS CHECKEDj"FOR A CONTROLLER CARD PRESENT.)":SCĺGIVE THE FILENAME TO USE. IF ";:SCĺO"YOU READ THE DATABASE IN FROM DISK,"THEN THE NAME USED TO READ IT IN WILL ";:SCĺ"BE USED TO WRITE IT OUT UNLESS YOU$"SPECIFY ANOTHER.":." IF YOU WANT TO LOOK AT THE ";:SCĺ8"CATDD RECORDS ";:SCĺ="MODE TO ALLOW YOU TO START ENTERING^"NEW DATA.":SCĺ(12)::uSCİ30000:BK630"D - DUMP DATA TO DISK":" THIS OPTION WILL SAVE THE ";:SCĺ"DATABASE YOU CURRENTLY HAVE IN MEMORY,%"AFTER YOU "DISK, IF YOU CHOOSE. (I SUGGEST ADDING ";:SCĺ["A '.FMT' TO THE FILE NAME TO LET YOU"KNOW IT IS ONLY A FORMAT FILE.)":" AS SOON AS YOU HAVE DEFINED THE ";:SCĺ"FORMAT (AND SAVED IT), YOU WILL BE"SENT DIRECTLY INTO THE AE CORRECT. ";:SCĺ;R"IF THEY ARE NOT CORRECT, YOU MUSTq\"REENTER ALL TITLES AGAIN (I RAN OUT OF ";:SCĺf"ROOM TO MAKE IT AN EDIT FUNCTION.)":p" WHEN YOU ARE SATISFIED WITH THE ";:SCĺz"FORMAT, YOU MAY SAVE THE FORMAT TO0ILL BE ASKED TO ENTER THEK"TITLES FOR EACH CATEGORY. WHEN YOU ";:SCĺq "HAVE DEFINED 12 OR IF YOU PRESS*" TO TERMINATE ENTRY, ";:SCĺ4SCİ30000:BK510>"YOU WILL THEN BE SHOWN THE CATEGORYH"TITLES AND ASKED IF THEY ARMAT CATEGORIES":"P)RINT RECORDSW "A)DD RECORDS":"R)EMOVE RECORDS":"V)IEW RECORDS "L)OAD DATA FROM DISK":"C)ORRECT RECORDS":"E)ND SESSION":32,0 :"SELECT:":10000 L0:I1(CT$) (KB)(CT$,I,1)LI::1270 :11100:11808:DR(43624)Q tA$(12,MAX),PS$(12),T$(12),Z$(12),A%(MAX),SC%(12),SI%(12),T%(12)f ~CT$"BDSPARVLCE"w (800)2520 20:11200 ::1030:A$"COMMANDS":1040:3:32,7: 30000 "B)EGIN NEW DATA BASE":"D)UMP DATA TO DISK":"S)ORT BY FOR);"NOMON C,I,O"::9 830000T B1030:A$"RECORD MANAGEMENT SYSTEM 2.0":1040:u L1030:A$"BY TED ROSE":1040 V:D$(4):OP$D$"OPEN":RD$D$"READ":WR$D$"WRITE":CL$D$"CLOSE":VE$D$"VERIFY `30000 jMAX250:SL%111:SH%112:SL(43626) "& ** FILE MANAGEMENT PROGRAM **>38400:800,0:1070:3:" TO CATALOG S"SL",D"DR:" TO CHANGE DRIVE"::AL%(SL%):AH%(SH%):(20(A$)2):A$SL%,AL%:SH%,AH%:$3:16::"SEARCHING"::: .:(4          ECORD MANAGEMENT SYSTEM 2.0%.B ::.0u23::" <- TO READ LAST PAGE Q TO QUIT ":" -> TO READ NEXT PAGE P TO PRINT ";:.u47,128,0:KB(47)128:BK0:16368,0:KB8BK1.u(KB)"Q"ė:2300.u(KB)"P"SC0::90.u:SCİ30000:BK2100@-:(4)"PR#0":10:"DO YOU WANT TO:":d- " 1) RE-READ THE INSTRUCTIONS- " 2) RUN RECORD MANAGEMENT SYSTEM 2.0- " 3) QUIT TO BASIC-$ 30100:KBKB48:KB1KB3ĺ(7):2340-. SC1:KB90,2360,2370.8 (4)"RUN B/RDATABASE, YOU WILL BE ASKED TO CONFIRMZ,"THAT YOU HAVE SAVED THE DATA TO DISK ";:SCĺ,"BEFORE LEAVING THE PROGRAM.":," YOU MAY REENTER THE PROGRAM WITH ";:SCĺ,"YOUR DATA INTACT WITH A 'GOTO 1180',"FROM BASIC.":SCĺ(12)-LANK ";:SCĺ8+z"OUT AN ENTRY THAT CONTAINS DATA, YOUr+"MUST USE THE <"(34)">< > SEQUENCE ";:SCĺ+"TO DELETE THE DATA.":SCĺ+SCİ30000:BK2010+"E - EXIT TO BASIC":+" IF YOU HAVE STARTED WORK ON A ";:SCĺ&,"EN CHOOSING RECORDS FOR ";:SCĺM*H"CORRECTION, YOU WILL BE GIVEN THE SAME{*R"OPTIONS AS IN REMOVE AND VIEW MODES.":*\" WHEN EDITING THE CATEGORY DATA, ";:SCĺ*f"IF YOU JUST HIT , THE DATA +p"WILL NOT CHANGE. IF YOU WANT TO BE MAKING THIS ";:SCĺ*)"SELECTION.":]) " AT THE INPUT FOR FILENAME, YOU ";:SCĺ)"MAY CATALOG THE DISK OR CHANGE DRIVES) "THE SAME WAY AS IN DUMP TO DISK MODE.":SCĺ)*SCİ30000:BK1900)4"C - CORRECT RECORDS": *>" WHCONTINUE TO STEP SEQUENTIALLYK("THROUGH THE RECORDS TO THE END.":SCĺc(SCİ30000:BK1800("L - LOAD DATA FROM DISK":(" THIS OPTION CLEARS ALL DATA IN ";:SCĺ("MEMORY, SO MAKE SURE YOU HAVE SAVED)"ANY DATA IN MEMORY BEFORRECORDS THATA'"CONTAIN THAT CHARACTER STRING, OR YOU ";:SCĺc'"MAY USE A RECORD NUMBER.":'" WHEN USING RECORD NUMBERS, THE ";:SCĺ'"NUMBER YOU SPECIFY WILL BE THE'"STARTING POINT AND USING ANY KEY, BUT ";:SCĺ(" WILL AND ASKED TO CONFIRM THAT IT IST&N"THE CORRECT ONE TO REMOVE BEFORE ANY ";:SCĺ{&X"REMOVAL ACTION IS TAKEN.":SCĺ&bSCİ30000:BK1690&l"V - VIEW RECORDS":&v" YOU MAY CHOOSE TO DO A CHARACTER ";:SCĺ '"SEARCH TO VIEW ALL THE %"R - REMOVE RECORDS":P%" WHEN CHOOSING A RECORD TO REMOVE, ";:SCĺ|%"YOU MAY USE THE RECORD NUMBER OR DO A%&"CHARACTER SEARCH (SAME AS DESCRIBED IN ";:SCĺ%0"PRINT).":%:" YOU WILL BE SHOWN THE RECORD ";:SCĺ &D"FOUND"MENU. IF YOU WISH TO HAVE A BLANK ";:SCĺW$"ENTRY IN THE FIRST CATEGORY, YOU MUST$"USE THE QUOTE AND A SPACE BEFORE ";:SCĺ$". ALL OTHER BLANK ENTRIES MAY$"BE MADE WITH JUST .":SCĺ(12)::$SCİ30000:BK1510(SA)5410$I1T1:1030:Z$""cJ1(Z$(I)):K((Z$(I),J,1))64:Z$Z$A$(K,A%(L))" ":qZ$:1050xI5440"Q1QM:CTĺT$(Q);A%(0)(T$(Q)));":";,A$(Q,A%(L))6Q@SPāI1SP::IJLL1:5320(TD$;"PR#0":::ITERIA FOR PRINTOUT? ";<9900:(KB)"Y"DX%DX%1:5160MSC%(DX%1)0:"ENTER DESIRED SPACES BETWEEN PRINTED RECORDS:";SP::SCİ1060D$;"PR#";PT(24)PW40ĺ(9);PW;"N"L1LP5460SCİ5600NF%5450 ::" CATEGORY,":" FOR <";::PS$(DX%);::"> YOU CAN PRINT:"hZ:" 1) ONLY THOSE RECORDS FOUND"d:" 2) ALL BUT THOSE FOUND"n10000:SIKB49:SI0SI1İ11100:5200xSI%(DX%)SI:SC%(DX%)SC::"DO YOU WISH TO ENTER MORE SEARCH":" CRATA TO BE SEARCHED FOR IN THE":::1030:A$T$(SC):1040:::"CATEGORY (DOES NOT HAVE TO BE AN EXACT":"MATCH, SEARCH WILL FIND ANY OCCURRENCE"F"OF THE CHARACTERS IN THE ORDER GIVEN)"::":";A$:PS$(DX%)A$:CMı?P:"SEARCHING IN THE ";::T$(SC);:"CATEGORY(IES) FOR LINE #";Q;:":";Z$(Q):Z$(Q)""ĂQ{:"PRINT ALL RECORDS IN ORDER? ";:9900:(KB)"Y"SC0:5270DX%1(:113002"SELECT CATEGORY TO SEARCH ON:";SC:SC1SCQMĺ"INVALID CATEGORY, REENTER PLEASE":5170<:"ENTER D10000:KB49KB50İ11100:5040/KB505120U:"ENTER DESIRED PAGE WIDTH:";PW:"DO YOU WANT CATEGORY TITLES? ";:9900:CT0:(KB)"Y"CT1SA1:5140SA0::11400:"ENTER LETTERS WITHOUT SPACES":" ( TO QUIT)"8 Q1QM:TQE":1040:34,3:PT1 P1180Y:"PRINTER IN SLOT ";PT;" ";:9950:(KB)"N"5040:"ENTER PRINTER SLOT NUMBER:";PT::"DO YOU WANT TO PRINT:":" 1) ALL CATEGORIES IN ORDER":" 2) SELECTED CATEGORIES":"SELECT:":ID1ID(ID2)#"ID11180/,NDNID;6K1NDC@IK{JJ1Q1:LJ:A$(T%(J),A%(I))A$(T%(J),A%(IID))ĂJTA$(T%(L),A%(IID))A$(T%(L),A%(I))TA%(IID):A%(IID)A%(I):A%(I)T:IIID:I14170^Kh41201030:A$"PRINT MODUMBER(S) TO SORT ON":" ( TO START SORT)<Q1QMn"NO. ";Q;:" SORT CATEGORY: ";A$:A$""4070T%(Q)(A$):T%(Q)1T%(Q)QMİ11100:4040Q:10::1030:A$"SORTING":1040:NP:ID4IDN4110IDID2:4090IDAVING ";::FL$:* OP$;FL$",S"SL",D"DR7 WR$;FL$G FL$:QM:P] Q1QM:T$(Q):Qp L1P:JA%(L)|& Q1QM0 (34);A$(Q,J):Q: LD CL$N 1180P1180:1030:A$"SORT MODE":1040:34,2::113000"ENTER CATEGORY NL:LP 1180I 1030:A$"DUMP TO DISK MODE"::34,3:1040::P1180] ((FL$))3030 "USE NAME: ";FL$:9900:(KB)"Y"3050 "ENTER FILENAME":" :";FL$ :"SAVE TO DISK IN S"SL",D"DR" ";:9950:(KB)"N"İ12000:3040 34,2:::"S(1)İ12010:1020:2520; 34,2:::"LOADING ";::FL$:T VE$;FL$",S"SL",D"DRa OP$;FL$n RD$;FL$ FL$:QM:P:A%(0)0:Q1QM:T$(Q):A%(0)(T$(Q))A%(0)(T$(Q))( Q2 J1P:Q1QM:A$(Q,J)"":A$(Q,J)::< CL$F L1P:A%(L)TLE OF FORMAT ?";FM$-j OP$;FM$",S"SL",D"DR:t WR$;FM$Y~ FM$:QM:Q1QM:T$(Q):Qb CL$h  1030:A$"LOAD MODE"::1040:34,4:1020 800,1:1110 800,0::"FILE NAME?";FL$ (FL$)ė:D$"CATALOG,S"SL",D"DR:2520 (FL$,1)"Y"İ2400*P0::60009:"TITLE OF FORMAT ?";FM$e (FM$)ė:D$"CATALOG,S"SL",D"DR:2300~ VE$;FM$",S"SL",D"DR OP$;FM$$ RD$;FM$. FM$:QM:A%(0)0:Q1QM:T$(Q):(T$(Q))A%(0)A%(0)(T$(Q))8 QB CL$L 2090` :"TIEGORY TITLES( TO QUIT):, A%(0)0:Q1} :"TITLE OF CATEGORY ";Q10);Q;:": ";T$(Q):A%(0)(T$(Q))A%(0)(T$(Q)) ((T$(Q)))QMQ:QQ1:Q122050 :11300:"FORMAT OK? ";:9900:(KB)"Y"ė:2030  :"SAVE FORMAT? ";:9900:(KB) L2000,3000,4000,5000,6000,7000,9000,2500,8000,24000B 1190s 1030:A$"FORMAT INPUT MODE":1040::34,4: QMİ11300:"USE THIS FORMAT? ";:9900:(KB)"Y"P0:6000 :"USE AN OLD FORMAT? ";:9900:(KB)"Y"İ1020:2300 :"ENTER CAT          50 *u1180 FILE IS LOCKED !"::"DO YOU WANT TO:":" R)EPLACE THE LOCKED FILE":" S)AVE ON ANOTHER DISK":" A)BORT THIS SAVE)u:"SELECT DESIRED OPTION":10000:((KB)"R")((KB)"S")((KB)"A")30160)u(KB)"R"ĺD$"UNLOCK"FL$:3050*u(KB)"S"301DR".":20:11200:1180r(u::5:"DISK I/O ERROR, CHECK DISK AND DRIVE.":20:"HIT ANY KEY TO CONTINUE":10000:(uD$"CLOSE(uD$"DELETE"FL$(u::5:"DISK FULL ERROR(u:"PLACE AN INITIALIZED DISK IN DRIVE.":20:11200:3050u)u::5:"THATluER1030160'vuER2551180k'u::5:"ERROR TYPE "ER:"AT LINE NUMBER "EL::"PROGRAM TERMINATED.":'u::5:"DISK IN DRIVE IS WRITE-PROTECTED"::"PUT AN INITIALIZED DISK IN DRIVE.":20:11200:(u::5:"THAT FILE IS NOT ON DISK IN S"SL",D"]"DATA WILL BE LOST IF NOT SAVED TO DISK.~&]:"HAVE YOU ";::"D";::"UMPED YOUR DATA TO DISK? ";:9900:(KB)"Y"1180&]:&0uER(222):EL(218)(219)256:216,0&:uD$"PR#0&DuER430090&NuER630100&XuER830110&buER930120'.%.:"CHANGE DRIVES? ";:9950:(KB)"N"ıs%.:"SLOT=";SL;:6:A$:(A$)KB(A$):(49152256KB)162SLKB%.SL::"DRIVE="DR;:7:A$:KB(A$):KB(((DR2))1)DRKB%.:%]P24040%]::10:1030:A$"WARNING":1040:::(7);(7)+&68,0::$*"MAXIMUM NUMBER OF ENTRIES IS 250",(7):11110k$\+::"INVALID ENTRY - REENTER PLEASE";(7):~$f+WT11000::$+1030:A$" TO CONTINUE":1040:10000:$$,J1QM:J10);J;" - ";T$(J):::%,J1QM:(J64);" - ";T$(J):::010#<#SC8120K#F#:" TO QUIT":" FOR NEXT RECORD":10000_#P#(KB)"Q"8130s#Z#LL1:LP8130}#d#8070#&"(Y/";::"N";::")":10000#&"(";::"Y";::"/N)#'47,128,0:(47)160KB0:16368,0:$'KB(47)128:163LPİ11100:8140 "RMVM80704":"RECORD #";L["Q1QM::T$(Q);":";A$(Q,A%(L)):""IF OK , ELSE ENTER NEW DATA.":"==> ";Z$:Z$""8210" A$(Q,A%(L))Z$" Q:SC8120" 8130"(#1030:A$"VIEW DATA MODE":1040:34,3:#2#VM1:8(Q);A%(0)(T$(Q)));":";A$(Q,A%(L)):3!RM7020@!VM9020v!:"CORRECT THIS RECORD? ";:9900:(KB)"Y"8170!:"CONTINUE SEARCH? ";:9900:(KB)"Y"ė:8050!CM0:RM0:VM0:1180!:P;" RECORDS IN FILE"":"ENTER RECORD #";L:L1q T:"DO YOU WANT TO:"::" 1) USE A RECORD #"::" 2) DO A SEARCH":10000:SCKB49:SC0SC1İ11100:8020 ^SC8140 hCM1:5150:L0:1060:SI%(1)0:SC%(1)SC:SC%(2)0 rLL1:LP8130 |5600:NF%8050 :"RECORD #";L&!Q1QM:T$PP1:1180>X1030:A$"REMOVE RECORD MODE":1040:34,3MbRM1:8010l:"REMOVE THIS RECORD? ";:9900:(KB)"Y"7050vSC81208130JLP1:A%(J)A%(J1)::PP1:8130@1030:A$"CORRECTION MODE":1040:34,3JP118011000:1180-PP1::3:"RECORD #";Ph::Q1QM:Q1Ģ20:" TO QUIT ENTRY MODE":4T$(Q);A%(0)(T$(Q)));":";"";A$(Q,P)A$(1,P)""6140958:Q:"ENTRY OK? ";:9950:(KB)"N"6060JP:A%(J)P6030DX%)(NF))((SI%(DX%))NF)):DX%DX%1:5610Zp:1030:A$"DATA ENTRY MODE":1040:34,3hzQM118022:"ENTER LEADING QUOTE TO ENCLOSE COMMAS OR COLONS. ALL OTHER ENTRIES CAN BE PUT IN AS IS UP TO 255 CHARS. MAXIMUM.";:35,21PMAX6050"ANOTHER COPY? ";:9900:(KB)"Y"52802^1180JJA%(L):DX%1:NF%0\SC%(DX%)0ı(PS$(DX%))(A$(SC%(DX%),J))NF1:5660SX1(A$(SC%(DX%),J))PS$(DX%)(A$(SC%(DX%),J),SX,(PS$(DX%)))NF0:5660SX:NF1-NF%NF%((SI%(C8fR11:N(SC(P)10)%k1800GpCL0:1600:CL(P1)32:1300VuR12:1800rzNSC(P)N10:CL0:1600CL(P1)32:1300Q1500:QGET PLAYER MOVEB0RILR(P):CILC(P):R1LR(1(P2)):C1LC(1(P2)) A$:A(A$)R(0)LR(P)LC(0)LC(P)DR3=LR(0)LR(P)LC(0)LC(P)DR4_LR(0)LR(P)LC(0)LC(P)DR5 LR(0)LR(P)LC(0)LC(P)DR6LR(0)LR(P)LC(0)LC(P)DR7LR(0)LR(P)LC(0)LC(P)DR8*3PLOT PLAYER SCORE4N0RP1C2\P2X(R1)24:Y(C1)24"0CkCALCULATE DISTANCE TO APPLEYlRD(LR(P)LR(0))oCD(LC(P)LC(0))yDSRDDSCDDSCDGET DIRECTION TO APPLEDR0LR(0)LR(P)LC(0)LC(P)DR1LR(0)LR(P)LC(0)LC(P)DR2LY20X9,Y20:X13,Y20X18,Y20:X6,Y21X8,Y21:X14,Y21X17,Y21Z=RP20:3000`?|@CL: DRAW WHITE SQUAREhZ020:XZ2791660rXZ,YXZ,Y20|ZSET HALF SQUARE TO WHITE3ZX10X18:Z,YZ,Y18:Z1,Y8X21,Y8\"5:X,Y9X20,Y9:X,Y10X20,Y10:X,Y11X20,Y11:X,Y12X19,Y12,2:X1,Y13X20,Y13:X1,Y14X20,Y14:X1,Y15X20,Y15:X2,Y16X21,Y1666:X2,Y17X21,Y17:X3,Y18X20,Y18:X4,Y19X19,Y19J;X5,X0XX2Y0YY2a1:X14,Y:X13,Y1X15,Y1:X12,Y2X15,Y2:X12,Y3X15,Y3X11,Y4X14,Y4:X11,Y5X13,Y5:X11,Y6X12,Y6:X4,Y6X7,Y6:X16,Y6X20,Y6:X17,Y5X19,Y5X2,Y7X9,Y7:X15,Y7X21,Y7:X15:X4,Y9X4,Y14:1395LiX14,Y9X14,Y14:X15,Y9X15,Y15:1395~nX4,Y14X14,Y14:X3,Y15X15,Y15:1395sZu2900wx1:(RT1)8:01X9,Y92900DDRAW APPLE0:Z020:XZ,YXZ,Y20:Z 013950FQ1360,1365,1370,1375,1380,1385,1390^PX3,Y3X15,Y3:X4,Y4X14,Y4:1395UX3,Y4X3,Y9:X4,Y5X4,Y9:1395ZX15,Y4X15,Y9:X14,Y5X14,Y10:1395_X5,Y9X14,Y9:X5,Y10X14,Y10:1395dX3,Y10X4,Y3XP17,Y16:XP16,Y4XP16,Y10SXP18,Y9XP18,Y15:XP19,Y12XP19,Y13XP13,Y11XP14,Y12:XP12,Y11XP17,Y16:XP11,Y11XP16,Y16XP11,Y12XP15,Y16:XP11,Y13XP12,Y14 NUMBERCL<Z17:QS(N,Z):QY3X8,Y3*~Z48:X1,YZX9,YZ:Z?X3,Y9X7,Y9I2700m0:Z46:XZ,Y10XZ,Y17:ZX3,Y16X7,Y16:X2,Y17X8,Y17 DRAW WORM(P1)32:XPXPXP18,Y1:XP19,Y2"XP18,Y2XP18,Y4:XP17,Y"RED" &:15:A$::32000 05:"SCORE --";A :P1ĺSC(1);R DP2ĺSC(2);m N" TO ";:R1ĺSC(2)} XP2ĺSC(1) b::3100 l:"PLAY AGAIN (Y/N)?":A$:A$"Y"40 v:::"BYE": K DRAW APPLE TREE L1 tX3,Y2X7,Y2:X2,600:11004 RLR(2):CLC(2):1800:CL3:1600:1100= NPPb LR(1)1:LC(1)1:LR(2)10:LC(2)8~ R1:C1:1800:P1:1200 R10:C8:1800:P2:1200 2600:PNP:90 Z12000:Z ::5:10::"THE WINNER IS" P1A$"BLUE" P21A$0:1200 ,90$ 6RTDR:1400:2703 @2500:270E JSC(P)SC(P)1O T1500Y ^2100k hSC(P)15510 rRLR(P):CLC(P) |1800 0 X0XX2 Y0YY2 Z12000:Z Z022:ZX,YZX,Y22:Z RLR(1):CLC(1):1800:CL3:1120& A46CICI1:RIRI1:22706 1900:2000D DS0330W ZZ((1)21)n (1).1ZZ3:250 CL3:RLR(P):CLC(P):1800:1600 ZZ260,310,320 NDS:1800:CL0:1300 Z11000:Z RLR(P):CLC(P):1800 "CL3:1600:110<P1:RLR(P):CLC(P):1800:1200:2100Q FP2:RLR(P):CLC(P):1800:1200:2100k PRLR(P):CLC(P):1800} ZP1P2:110 dP1 n2300 x2200 RLR(P):CLC(P):1800 B1200 CL0:1700 RRI:CCI LR(P)R:LC(P)C:1800:1200 8 APPLE CAPTURE, WILLIAM J. RYAN, SOFTSIDE,JAN1982\CHANGED DISTANCE FORMULA 1950  USE HIMEM TO GUARD PAGE 2,20085 20000:"DO YOU WANT INSTRUCTIONS?";:A$A$"Y"İ10000(24002LR(1)1:LC(1)1:LR(2)10:LC(2)8:2600' INSTRUCTIONS  d12 n5 x"ROYAL TRICK-TRACK"; U 14);"BY MARK MAINS"s 12);"DES MOINES, IOWA" ::"THIS PROGRAM IS NON-PROPRIETARY AND MAY BE DISTRIBUTED FREELY." 34,1 (10) "DO YOU WANT INSTRUCTIONS? (Y/N) ?";(8);Z ROYAL TRICK-TRACK BY MARK MAINS DES MOINES, IOWA u THIS PROGRAM MAY BE DISTRIBUTED FREELY.( JUST LEAVE LINES 102 THROUGH 50 INTACT.< FD(2),T(4),M(9),NAME$(12),P(12)P: Z      5,6,7$R1,2,3,4,6,7,0*$/R ARROW SHAPE$0R1,0,4,0,63,63,63,46,45,45,45,45,53,62,62,62,62,37,37,37,37,37,37,39,39,39,39,39,47,46,46,46,46,46,63,63,63,0I0,96:791,0:792,0#uN41632#yNSC(1)0:SC(2)0:#zN:X#RDATA FOR NUMBER SEGMENTSk#R1,2,3,5,6,7,0~# R3,6,0,0,0,0,0# R1,3,4,5,7,0,0# R1,3,4,6,7,0,0# R2,4,3,6,0,0,0# R1,2,4,6,7,0,0#R1,2,4,5,6,7,0 #R1,3,6,0,0,0,0$R1,2,3,4,7:S(Z,Q):Q,Z,"fNZ2457624613:Q:Z,Q:Z?"pN232,0:233,96R"qNSOUND ROUTINE"rN770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202#tN782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:79AIN-THIS IS NOT THE RIGHT TREE":{!j'"FIRST PLAYER TO PICK 15 APPLES IS THE":"WINNER"::"HIT ANY KEY AND GOOD PICKING";!t'A$!'!NINITIALIZATION! N::7:13:"APPLE CAPTURE"::19:"BY"::15:"BILL RYAN":!RNZ12000:Z"\NZ09:Q1 WHEN YOU THINK" V'"YOU HAVE FOUND THE APPLE, PRESS":"'RETURN'. IF IT IS THE APPLE YOU GET A":"POINT. IF NOT YOU WILL BE GIVEN 1 OF 3":"POSSIBLE CLUES."!!`':"1. DIRECTION-GENERAL DIRECTION TO APPLE":"2. DISTANCE-MINIMUM DISTANCE TO APPLE":"3. RB'" I WILL PLANT AN ORCHARD OF 80 TREES":"10 ROWS BY 8 COLUMNS. EACH PLAYER WILL":"HAVE A WORM. ONE PLAY WILL BE RED.":"AND THE OTHER BLUE." L'" WHEN YOUR COLOR IS LIT YOU MAY MOVE":"YOUR WORM TO ANY TREE USING THE ":"'U I O J L M , .' KEYS. WINNER SOUND RP5# Q130O (((1)51))2700,2800,2900,3000,3100V Q\ o' INSTRUCTIONS':" OBJECT5 OF THE GAME IS TO FIND 15":"APPLES IN THE ORCHARD."'"THE APPLE. THE FIRST PLAYER TO SCORE":"15 POINTS IS THE WINNER.":9,6:770|  APPLE SOUND+ Z1RPD 768,193:769,8:770] 768,156:769,8:770v 768,128:769,8:770 768,97:769,8:770 Z  NEW TURN SOUND Z17D 768,110:769,10:770N 768,130:769,10:770X Zb  PICK APPLE LOCATION,( LR(0)((1)101)BP LC(0)((1)81)H a TREE-PLANTING SOUNDz 768,150:769,7:770 768,255:769,9:770  WORM SOUND Z20010020 768,Z:769,5:770" Z, S CLUE SOUNDT 768,75:760:SC(2)0 ! MAKE IT RAIN1 1800:1700w 0:X15,Y15X17,Y15:X14,Y16X18,Y16:X15,Y17X17,Y17~ 6 Z160 XA((1)19):YA((1)14) XXA,YYAXXA1,YYA 768,(1)5040:769,((1)53):770 Z# '0L C1:CL0:1800:1600$N 3100*V @_ INITIALIZE BOARDU` :3:0,0:62454\ 0y Z240279:Z,0Z,191:Z Z2123724:Q02:ZQ,0ZQ,191:Q,Z Z2118924:Q02:0,ZQ239,ZQ:Q,Z R110:C18:1800:1100:C,R  SC(1)36):Z2230 RI10RI10RI1RI10?CI8CI1NCI1CI8dRIR1CIC12266jtB1:HIGHLIGHT PLAYER SCOREP22370$ R11.5:C1:CL2:1800:1600) C7:CL0:1800:1600. 2382B R11.5:C7:CL5:1800:160:A132295#A73CICI1:2270CA79CICI1:RIRI1:2270[A76RIRI1:2270{A46CICI1:RIRI1:2270A44CICI1:2270A77CICI1:RIRI1:2270A74RIRI1:2270A85CICI1:RIRI1:2270Z130:Q(163 //AUTOMATIC MENU PROGRAM7 // BY DONALD BROWNT // 407 PEERY PARKWAYq// GOLDEN, CO 80401 y////X(1):X((78)(79)):TITLE$"FROM LIBRARY OF DON BROWN 515-271-2155"A1$,A2$ (,) DK$(4): 40:"-";:II4501'J1NPKP(J)IĺNAME$(J);:36,25:P(J)RJYI:"DO YOU WANT TO PLAY AGAIN? ";A$:A$"A$"Y"Ľ:70,:6"THANKS FOR PLAYING ROYAL TRICK-TRACK!"@A4100x:NAME$(PLAYER);", YOUR POINT IS ";PNTpPLAYERNPĺ:"PRESS 'ESC' FOR FINAL RESULTS ";:A$::1440I11500:IPLAYER:12::"ROYAL TRICK-TRACK":17"RESULTS"::"PLAYER'S NAME";:36,25:"POINT" I1 M(T(I))0PNTPNTT(I)#IP(6:36,20:" ":6:36,20u2I19:M(I)0ĺM(I);" ";:1350<"/ ";FI:P870ZP(PLAYER)PNTdnPNT45ĺ"YOU HIT ALL THE MARKERS ";NAME$(PLAYER);"!"::"YOUR POINT IS 45!":1CNTCNT1A$;" ";:10909CNT1270,1210,1230,1250NT(1)T(2)1270X1260TTL6T(1)T(3)T(2)T(3)12701260TTL10T(1)T(4)T(2)T(4)T(3)T(4)1270"INVALID ENTRY!":1070 COVER MARKERS I1CNT AT MARKER(S)? ";'BA$:A$(27)13709LA$(8)1060SVA(A$):A1A91090d`M(A)01090rjTTLTTLAtTTLTDĺA$:"SORRY, YOUR DICE ONLY TOTAL ";TD;".":1070~CNT4ĺ:"TOO MANY ENTRIES!":1070T(CNT)ATTLTDĺA$:1200 1A2920A$(27)ĂPLAYER'DA2I1DGD(I)(6(1))1NI_TDD(1)D(2)s6:36,3:" ";}36,3D(1);" ";(8);D(2)0ĺD(2) GET SELECTIONS & SEE IF VALID $.TTL0:CNT18:"COVER WH:36,20:I19:I;" ";:I_f12:9:" ";:9:PNT;:27:" ";:27:NAME$(PLAYER);:tpI14:T(I)0:IzD2:D(1)0:D(2)0:CNT0PNT451370M(7)M(8)M(9)970"ROLL 1 OR 2 DICE? ";:A$:A$A$(27)1370 A(A$):A "" ";<19:" "Bm10:6:"PRESS 'ESC' TO END YOUR TURN" 12:"POINT=";19:"PLAYER" I140:"=";:I*434,13> BEGIN PLAY HPLAYER1NPRI19:M(I)I:I:PNT0\6;I;"'S NAME? "; v"";NAME$(I)o(NAME$(I))12ĺ:"NAME IS TOO LONG.":" HOW ABOUT A NICK NAME?"::620vI SET UP DISPLAY :4" DICE ";19:" M A R K E R S "I13" ";:10:" ";:19:" ";:39:":"GOOD LUCK"23:22:&" TO BEGIN";:A$U0 GET PLAYERS NAMES [:zD:"HOW MANY PLAYERS? ";NPNNP1NP12ĺ:"ONE TO TWELVE MAY PLAY ROYAL TRICK-TRACK":580X:"ENTER PLAYER'S FIRST NAMES":bI1NPl"PLAYER # "E YOU HAVE COVERED MARKERS 7,8 AND 9"T "YOU HAVE THE OPTION OF ROLLING ONE OR"d "TWO DICE.j  "IF YOU MAKE A MISTAKE DURING ENTRY JUST PRESS THE '<-' KEY."  "WHEN YOU CAN'T COVER ANY MORE MARKERS PRESS THE 'ESC' KEY." * h"THE MARKERS IN THE FOLLOWING WAYS:"0 r_ |"1 2 3 4 5 6 7 / 9 / 2 / / 5 6 7 8 9" "/ 2 3 4 5 6 / 8 9 1 2 / 4 / 6 7 8 9" "1 / 3 4 5 / 7 8 9 / / 3 4 / 6 7 8 9" 23:19 " TO CONTINUE";:A$  % "ONCOBJECT OF THE GAME IS TO COVER AS"S ,"MANY MARKERS AS POSSIBLE IN ACCORDANCE" 6"WITH THE THROWS OF THE DICE. THE TOTAL" @"OF THE MARKERS COVERED MUST EQUAL THE" J"TOTAL OF THE DICE." T ^"IF THE ROLL TOTALED 8 YOU COULD COVER" A$:A$ A$"N"5700 A$"Y"ė:1806 g :"ROYAL TRICK-TRACK IS A DICE GAME PLAYED" "IN PUBS THROUGHOUT ENGLAND. THE GAME" "IS PLAYED WITH TWO DICE AND A SET OF" "MARKERS NUMBERED FROM ONE TO NINE." $ ""THE ԠήՠĠԠԠύŠŠӠƠؠΠՍԠŠӮҬՠύԠŠϠԠ̠ƠŠӬ٠ŠӠՠԠҠĮǠϮՠΠԠŠ׍ΠƠŠǠɠҠӮŠϭӠƍŠӠ̠ŠĠԍŠ͠ƠŠήҠԠӮՠΠŠǍŠҠӠӠϠȠӠύԬĠŠԠՠϠōΠŠĠ͠ŠΠҮΠӠĠōҠӠŠΠčӠԠΠŠάΠōҠԠ٠çŠԠ̍ԠŠĠӠ٠Šԍĩ٠ǠҠԮōҠ̠٠נōҠŠԠƠōĠҮŠŠΠ΍ŠĬŠűΠ˰Į ĠԮŠҠĠύŠŠǠԠĠӍȠӠԠ٠ӠĮϠŠӠϠȠōĠӠРҠήàҠԮŠҠĠϠԍӬנӬӠîӍԠ٠ӠĮΠӍΧԠŠΠΠΠӮΠǠŠǠԬԍŠΠŠҍĮŮՠΠԠŠحӍϠҠӠĠŠ٭ӠύҠӮΠՠԠˠԠϠԠӠҠƠŠԠήՠĠˠōҠƠŠάĠՠ芊ԧ̨ͧӠŠحӍĠ̨ӠŠ٭ӮΠԠԮŠŠƠŠōŠ٠ŠǠԠǠĠ̠ӠԠ٠ӠĮؠŠŠԮŠƍԠƠȠŠŠҠ̯ĠӮӍҠϠŠŠϠŠ͠ӠƠӮįŠ̠ŮӠ̠ƠǠԠٍĠҠ̨Ġ̨ĠӠŠɧʧ˧Ġ      216,0:D$"CLOSE"@ :"PRESS ANY KEY TO CONTINUE":Q$:D$F b :D$"RUN U/SKETCH PAD"D #34,5: (D$"OPEN "F$- 2D$"READ "F$C <A$:A$(13)100T FB$B$A$:60] dD$;t iI$"Y"ĺD$;"PR#1" nB$:B$"" sI$"Y"ĺD$;"PR#0" xKB(16384):KB127Q$(KB128):16368,0:140 50 (16384)128140 16368,0:50d 200E D$(4):F$"SKETCH INSTRUCT.TEXT":D$;"NOMON C,I,O":}::::" SKETCH PAD INSTRUCTIONS ":"DO YOU WANT TO PRINT THE INSTRUCTIONS ?"I$:I$"N"I$"Y"Č198:26:"PRESS TO STOP SCROLLING."   UM902 dP$"":C2:C2736:P$P$(SCR2(C2)):Q iB(C1)1ĺ(4);"BRUN ";P$o nB(C1)0ĺ(4);"RUN ";P$ :5:"TOO MANY FILES ON DISK TO USE AUTOMATIC MENU. SORRY.": R24:::V1:557 FB(PROGNUM)0:A("B")B(PROGNUM)1x PPROGNUMPROGNUM1:A1$;:3:A2$;" ";::(64PROGNUM)::55 U:V(37) ZV1:958:"SELECT PROGRAM (";::"A-";(64PROGNUM);;::") OR ESC'APE";:A$::C(A$)64:C37Ā _C1CPROGNDK$;"NOMON C,I,O":B(26)H SCR2(X)X,2(37))X,2(37)1)16128e :DK$;"CATALOG":24:: (1:TITLE$;80(TITLE$)) 2PROGNUM0: 7P2(PROGNUM2)2:PROGNUM3:SCR2(7)(" ")85 <ASCR2(1):A("T")SCR2(0)(" ")V(37):34,V:)::0 ^24:13:"FOR PLOTTING ?";:300:HCC:^ h24:13:"FOR BACKGROUND ?";:300:BKGC: r24:13:"TO FILL SCREEN ?";:300:BKGC:0,C:768:  Q(A$):BKG:Q420,440,460,480 P1ēX1,Y1 P11:X1X:Y1Y: P2ēX2,Y2 P21:X2X,OY:HC:X,Y:OXX:OYY:100 ,22:1:"COLOR:BK1, GR, VL, W1, BK2, OR, BL, WT2 0 1 2 3 4 5 6 7":24:"WHICH COLOR"; 624:30::"CR TO EXIT";: J23:39:Q$:Q$(13)(Q$"0"Q$"7")Č198:330 OQ$(13)ġ:: TC(Q$C:P1ĺX1","Y1" ";:X1,Y1> P2Ė9:X2","Y2" ";:X2,Y2a P3Ė17:X3","Y3" ";:X3,Y3 P4Ė25:X4","Y4" ";:X4,Y4 NPP1P2P3P4:23:1:"OPTIONS : ";:NP0ĺ"CIRCLE";:NP1ĺ", LINE, SQR";:NP2ĺ", TRI";:NP3ĺ", POLY" BKG:O7 ::16304,0:16300,0:16301,0:16297,0:9000ZdKB(16384):KB127ľA$:1000n21:1:"X="X" ";:7:"Y="Y" ";:13:"CLR="HC" BKG="BKG;:KEYĺ" KEYBD, INC="IN;xKEYĺ" PADDLE ";:X((0)DXKX):Y((1)DYKY) 22:1:H           !!! ŠΠԮҮӠŠΠ̠ԍҬҠՠΧԠנΠԬӠϠҠŠά΍ŠȠҠǮӠƠӮԬՠΠŠРȍŠǠӮĠˠӺӠŠŠՠΠٍŠŠŠ͠Š̠ĠŠϠŠҠΠϠΠ͍àРŠͬǠƠŠŠӠԠϠҠҬԠ΍ӠĮҠĠũԠŠ̠ҠŠάՠΠ٠̠ΠōŠҠԠנŠŠҍŠŮɠŠՠύҠȍŠӬŠŠӍϠ٠ӮϠٍ̠ΠҠũŠȍӠŠŠƠ΍ĠŠϠҠΠҠӠՠΠŬԠӠԠΠԍŮӬՍ̠ŠΠŠȠōӠՠĠӠƠōҠĠҠӠӮՍΠԠԠΠŠƍήӠӠנ٠ӍŠҠӠϠנӠԍŮҠŠŠҠŮՍԠҠؠĠ٠ӍӬŠŠōŠϠϠΠȠӮƠՍҠŠŠҠŠՍ̠ŠŠȠӠƠҠՠĮƍՠҠԠҍŠРҠҠŠ͠ҠƍӬӠ̠̠Š΍ٮҠŠԠӠԠӬŠŠŠҠӮϠ̠ҠŠŮǠōԠӠŠҬŠҍ̠נ̍Р̠ή٠ĩӍŠĠϠŠŠήŠӠƠӠ̍ŠΠҬՠԠōŠӠĠ٠ή΍ΠӬՠ̠ŠҠӧŮȠŠԧϠΠ٠ōǠ͠ţϠţՍ̠ĠԠƠŠŠӍԠ̠٠ΠŠԠٍŠŠԠĠӠč٠ԠήԺŠӍĠԠŠٮǠӠƠŬōҠ̠̠ΠŠōȠŠҠԠ٠çԠ̠ŮǠŠӍՠΠ̠ΠŮՍŠĠҠԠĠӮ