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~ک$ [ vvnnqp%cpYwQI1I`hxY,SKrUs-SnrV.nJT,jˆKU-lKU-ScrUS-4T8g8x8x8 z; `v։EU [ȈEUW%B%n%o%fcXHXvs-TS "KwPPvQhM[ #$ [  $%%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"17,3017,3320,33:20,3020,35g""22,3525,3525,3022,3022,3325,33",35,2038,2038,1835,1835,1538,15"640,2040,1543,1543,1840,18:43,1845,20"@47,1547,1850,18:50,1550,20#J52,1552,2055,2055,13,138120,138120,135123,135[!125,140125,135128,135128,138125,138:128,138130,140!132,135132,138135,138:135,135135,140!137,135137,140140,140140,135137,135:137,138140,138!5,358,358,335,335,308,30"10,3510,3013,359,14559,14862,148:62,14562,150H 145,110145,115148,115148,110} 150,115153,115153,113150,113150,110153,110 156,110159,110159,115156,115:157,113159,113 161,115164,115164,113161,113161,110164,110!120,140123,14012830,12333,12333,118:35,12338,12338,12135,12135,11838,11841,11844,11844,12341,123:42,12144,121:46,12349,12349,12146,12146,11849,118# 46,15049,15049,14846,14846,14549,145:51,15051,14554,14554,14851,148:54,14856,150:249,118249,113254,113:249,116252,116f257,118257,113262,113262,116257,116:262,116264,118 267,118272,118272,116267,116267,113272,113128,5128,10:130,8132,8:133,5136,5133,10:138,10141,10141,8138,8138,5141,5A30,1148,105253,105D256,102262,102262,107256,107:257,102257,107y265,107270,107270,105265,105265,102270,102228,118228,113233,113233,116228,116:233,116235,118238,113238,118241,113243,118:244,118246,113(254,118260,93255,93255,98260,98:255,96258,96d263,98263,93268,93268,96263,96:268,96270,98230,102230,107:230,102235,102235,105230,105:235,105237,107240,102240,107245,107245,102240,102248,107248,102253,102253,107:2248,82253,82253,87:248,85253,85S`256,82262,82262,87256,87:257,82257,87j265,87270,87270,85265,85265,82270,82t230,93230,98235,98235,93230,93~238,93244,93:241,93241,98247,93247,98:252,93252,98:247,96252,96-39,76244,76-$247,76247,78252,78252,73U.255,73255,78260,78260,73255,738263,78263,73268,73268,76263,76:268,76270,78B230,82230,87:230,82235,82235,85230,85:235,85237,87L240,82240,87245,87245,82240,82#V248,87241,626244,67244,62249,62249,67:244,65249,65f252,62252,65258,65258,62:255,65255,67261,67266,67266,65261,65261,62266,62230,73230,78:230,73233,73233,78:233,73236,73236,78 239,73239,78:239,73244,73244,78:270,122:3:230,53230,58:230,56235,56:235,53235,58M238,53238,58241,53241,58246,58246,56244,56:241,53246,53246,54249,53249,58:249,56254,56:254,53254,58257,56262,56235,62235,67238,67238,62:237,67241,6732250,32:245,35249,35Hz255,32255,35261,35261,32:258,35258,37j235,29261,29:235,40261,405:230,70270,70:230,71270,711:230,90270,90:230,91270,912:230,110270,110:230,111270,1116:230,121270,121:230,1222MEBER"56 2:11:"17, 1903, THEY MADE THEIR FIRST "h6 2:12:"HISTORICAL FLIGHT IN A POWER-DRIVEN,"6 2:13:"HEAVIER-THAN-AIR MACHINE AT KITTY HAWK,"6 2:14:"N.C. THE PLANE FLEW 120 FEET IN 12"6 2:15:"SECONDS AT A SPEED OF 6.8 M.P.H.""HISTORY"5m 380:5r 8:5:"ORVILLE AND WILBUR WRIGHT"m5| 2:7:"ORVILLE (1871-1948) AND WILBUR (1867-"5 2:8:"1912) WRIGHT WHO WERE BORN IN DAYTON,"5 2:9:"HAD INVENTED AND BUILT THE WORLD'S"6 2:10:"FIRST SUCCESSFUL AIRPLANE. ON DEC658"44 14:"TAX RATE - DAYTON CORP.(PER $1,000) O4 30:15:".....$57.79"|4 8:20:"DO YOU WISH TO CONTINUE ?";:A$4 A$"Y"ī29004 A$"N"ī54" 33:20:" ":28204T :9364^ 5:1:384:"DAYTON - BIRTHPLACE OF AVIATION" 5h 17:3:30:8:" ......49TH"G3 9:"ELEVATION(FEET ABOVE SEA LEVEL)......755"{3 10:"DAYTON(AREA IN SQUARE MILES).......1,708"3 11:"DAYTON CITY(AREA IN SQUARE MILES).....55"3 12:"REAL ESTATE VALUE(MONTGOMERY COUNTY)"4 20:13:".......$4,448,074,26502 :936D2 5:1:384:"DAYTON - BIRTHPLACE OF AVIATION"c2 15:3:"METRO INFO":3802 5:"POPULATION.......................199,538"2 6:"SIZE-RANK AMONG CITIES IN OHIO.......4TH"2 7:"SIZE AMONG CITIES IN THE UNITED STATES"3 13,161":1< 15:"OAKWOOD...........................9,372"m1F 16:"TROTWOOD..........................7,802"1P 17:"MORAINE...........................5,325"1Z 8:20:"DO YOU WISH TO CONTINUE ?";:A$1d A$"Y"ī26901n A$"N"ī52x 33:20:" ":.61,186";0 10:"CENTERVILLE......................18,886"n0 11:"MIAMISBURG.......................15,304"0 12:"WEST CARROLLTON..................13,148"0( 13:"ENGLEWOOD........................11,329"12 14:"VANDALIA.........................2:3:"POPULATION - 1980"#/ 380U/ 5:"DAYTON METROPOLITAN AREA........830,070"/ 6:"MONTGOMERY COUNTY...............571,697"/ 7:"DAYTON..........................199,538"/ 14:8:"DAYTON SUBURBS"0 9:"KETTERING.......................-.j 5:8:"THIS SECTION OF THE PROGRAM HAS"U.t 8:10:"INFORMATION ABOUT DAYTON.".~ 8:20:"DO YOU WISH TO CONTINUE ?";:A$. A$"Y"ī2500. A$"N"ī5. 31:20:" ":2430. :936. 5:1:384:"DAYTON - BIRTHPLACE OF AVIATION"/ 165,5165,100- 85,488,488,785,785,1088,10U- 162,3168,3168,12162,12162,3u-$ 83,290,290,1283,1283,2|-. 3-8 210,65210,71:207,68213,68-= A$-B X(A$)-G X32ī2400-J A$"C"ī3500-L 8:23:"REENTER ! ";:2365.` :936180,172:180,176183,176183,172V,\185,176185,172190,172190,176:185,174190,174|,f192,172198,172:195,172195,176,p200,172200,176205,176:200,172205,172:200,174204,174,z207,176207,172212,172212,174207,174:212,174214,176 -11708+140,172142,172142,174140,174140,176142,176m+ 146,176151,176151,174146,174146,172151,172+*153,172159,172:156,172156,176+4161,172161,176+>163,172163,176168,176+H170,172170,176175,176 ,R177,172177,176180,17682,162182,164177,164:182,164184,166<*186,162186,166b*188,162190,166:191,166193,162*200,166195,166195,162200,162:195,164199,164*202,166202,162207,162207,164202,164:207,164209,166+ 138,170138,178144,178144,170138,1,162141,166K)147,166147,162150,162150,166:150,162153,162153,166`)155,162155,166)157,166157,162162,162162,166:157,164162,164)164,166164,162167,162167,166:167,162170,162170,166)172,162172,166'*177,166177,1621,18233,13238,13238,18:233,16238,16W(b240,13240,16246,16246,13:243,16243,18y(l248,13254,13:251,13251,18(v256,13256,18261,18261,13256,13(263,18263,13269,18269,13(870(138,160138,168144,168144,160138,160 )1432A'0261,151261,145266,145:261,151266,151:261,148265,148':245,158251,158:245,158245,161251,161251,164245,164'D236,145236,151233,151233,145:233,151230,151230,145'I1940'N225,13231,13231,18225,18:226,13226,18'(X233EXT CATALOG SECTOR, $11 (TRACK 17)":"AND $0E (SECTOR 14). ";:X$H"THE BYTES FROM $03 TO $0A ARE NOT USED."::"THE NEXT TWO BYTES ARE THE ADDRESS OF":"THE FIRST TRACK/SECTOR LIST SECTOR,":"HERE TRACK $0A (10), SECTOR $0B (11). ";:X$"WHICH THE VTOC POINTED. IT IS NORMALLY":"LOCATED AT TRACK $11 (17), SECTOR $0F":"(15). THE SECOND IS AT $11,$0E, THE":"THIRD AT $11,$0D, AND SO ON. ";:X$B:"THE BYTE AT ADDRESS $00 IS NOT USED."::"THE NEXT TWO BYTES ARE THE ADDRESS OF":"THE NON, TRACKS PER DISK,":"SECTORS/TRACK,BYTES/SECTOR,& BIT MAPS.";:X$v::"TYPE ANY KEY TO RETURN TO MENU. ";:X$~1510*** CATALOG ****22::(4);"BLOAD CATALOG.INFO":34,18::34,19:"THIS IS THE FIRST CATALOG SECTOR, TO": 2 1 0":"2ND BYTE,$0F,IN BINARY: 0 0 0 0 1 1 1 1":"10TH TRACK FREE SECTORS: 3,2,1,0";:X$:"IN SUMMARY, THE VTOC CONTAINS THE CATA-":"LOG POINTERS, DOS VERSION, VOL. #, THE":"TRACK/SECTOR LIST LENGTH, LAST ALLOCA-"D"TED TRACK & DIRECTIIT MAP, ONLY THE FIRST":"TWO BYTES ARE USED. THE FIRST":"SHOWS USAGE OF SECTORS $8-$F AND":"THE SECOND USAGE OF $0-$7. ";:X$a:"FOR THE 10TH TRACK AT ADDRESSES $60-63:":"FREE IF 1ST BYTE OF MAP:F E D C B A 9 8":"FREE IF 2ND BYTE OF MAP:7 6 5 4 3 AS"\"ARE ON THE DISK (NORMALLY $23 (35),":"WITH THE 35TH AT ADDRESSES $C0-CF). ";:X$:"ALL ZEROS, AS AT $38-3B (TRACK 0),SHOW":"ALL SECTORS ARE ALLOCATED. FOUR F'S":"FOLLOWED BY 4 ZEROS MEANS ALL SECTORS":"ARE FREE. ";:X$:"IN THE B}~pN PICTURE"?} OF DAYTON AND INFO=? } ON THE CITY ALSO....X? } ********************p  IA }~}D~20:"PRESS C TO RETURN TO THIS SECTION";:A$:X(A$):X32ī130X>38:20:" ";:3650n>} PROGRAM DONE BY>} MASON T. HIME>} STARTED IN NOVEMBER>} FINISHED IN MARCH>} OF 1982 AND 1983>} >} THIS PROGRAM DRAWS A ?} HIRES SCREE3:"3. REVIEW TEXT AGAIN"7= 10:14:"4. END PROGRAM"a= 10:16:"";:A$p= A$"1"ī5= A$"2"ī3650=A$"3"ī2500=A$"4"ī3610=31:16:" ":3560=936:8:11::"BYE, COME SEE DAYTON AGAIN !"=$:@>B5:UTICS MUESUM."9 12:"FIELD ON WHICH THE WRIGHT BROTHERS";H 13:"CONDUCTED THIER AIRPLANE EXPERIMENTS,7 A$"Y"ī3100M7 A$"N"ī5Y7 :9367& 5:1:384:"DAYTON - BIRTHPLACE OF AVIATION"70 17:3:"HISTORY"7: 3807D 8:5:"HOW DAYTON BECAME A CITY"8N 7:"THE TOWN SITE OF DAYTON, LOCATED AT 2=VTAB; $38=8; $00=END OF LINE":"10 TEXT:HOME:SPEED=255:VTAB 8 ";:X$y,f::"TYPE ANY KEY TO RETURN TO MENU. ";:X$,15,*** RESTORE DELETED FILES,22::(4);"BLOAD CATALOG.2":34,18::34,19:b-"THIS IS A CATALOG SECTOR AS DISPLAYED+b:"THE 3RD LINE WILL START AT MEMORY LOCA-":"TION $A1A (SEE ADDRESSES $0B,$0C), AND":"THE 2ND LINE # IS 10 ($0A). ";:X$G,d:"THE SECOND LINE AT ADDRESS $0F:":" $89=TEXT; $3A=:; $97=HOME: $3A=:; ":"$A9=SPEED=; $32 $35 $35 = 2 5 5; $3A=:":"$AIS FOUR":"BYTES LONG PLUS THE ZERO BYTE AT":"ADDRESS $0A. ";:X$+`:"THE FIRST LINE:":" $A5 AT ADDRESS $06 IS THE TOKEN FOR":"'ONERR'; $AB IS TOKEN FOR GOTO; THE 31":"AND 30 ARE ASCII FOR 1 AND 0; THE $00 ":"ENDS THE LINE: ONERR GOTO 10 ";:X$THE":"PROGRAM. APPLESOFT PROGRAMS HAVE THIS":"FORMAT: TWO BYTES FOR THE MEMORY LOCA-")]"TION OF THE NEXT LINE, TWO BYTES FOR ":"THE LINE #, THE LINE, AND A ZERO BYTE. ";:X$C*^:"THE NEXT LINE IS AT MEMORY LOCATION":"$A0A AND IT IS LINE # 5. IT ":"COMMAND TOKENS SEE P. 121 OR RUN THE":"'COMMAND TOKENS/ADDRESSES' PROGRAM. ";:X$(Z:"THE FIRST TWO BYTES ARE THE PROGRAM'S":"LENGTH, LOW BYTE FIRST. THUS THE LENGTH":"IS $03F5, OR DECIMAL 1,013. ";:X$W)\:"EVERYTHING FROM ADDRESS $03 ON IS R OF THE 'HELLO'":"PROGRAM. IT IS COMPOSED OF ASCII CHAR-":"ACTERS, APPLESOFT COMMAND TOKENS, AND":"A FEW MEMORY POINTERS. ";:X$V(X:"FOR ASCII CODES SEE P. 138 OF THE":"APPLESOFT MANUAL, OR RUN THE 'ASCII'":"CODES' PROGRAM ON THIS DISK. FOR APPLE 'HELLO' PROGRAM IS FOUR SECTORS ":"LONG IN THIS EXAMPLE. ";:X$&<:"TYPE ANY KEY TO SEE THE FIRST SECTOR":"OF THE 'HELLO' PROGRAM (TRACK $0A,":"SECTOR $0A.)";:X$&T22::(4);"BLOAD HELLO T0A S0A":34,18::34,19:'V"THIS IS THE FIRST SECTO SECTOR, IF ANY."::"ADDRESSES $07 - $0B AREN'T USED. ";:X$%::"THE PAIRS OF BYTES STARTING AT $0C-$0D":"ARE THE TRACKS & SECTORS FOR THIS FILE."::"THE 'HELLO' PROGRAM'S 1ST DATA SECTOR ":"IS AT TRACK $0A (10), SECTOR $0A (10).)";:X$A&;:"THETS FOR THE FILE. ";:X$$6:"THE FIRST BYTE (AT $00) ISN'T USED."::"THE NEXT TWO BYTES (AT $01,$02) ARE THE":"ADDRESS, IF ANY, OF THE NEXT T/S LIST":"SECTOR REQUIRED BY LONG FILES. ";:X$=%8:"ADDRESSES $03-$04 ARE THE SECTOR OFFSET":"OF THE 1ST TRACKS AND SECTORS":"WHICH A GIVEN PROGRAM TAKES UP ON THE":"DISK. THESE CAN BE ANYWHERE ON DISK. ";:X$$4:"THE T/S LIST SECTOR CAN HANDLE FILES":"UP TO 122 SECTORS LONG. IF MORE ARE RE-":"QUIRED, THERE MUST BE ONE OR MORE ADDI-":"TIONAL T/S LISX$4"::"TYPE ANY KEY TO RETURN TO MENU. ";:X$<"+15[",*** TRACK/SECTOR LIST ***"-22::(4);"BLOAD T/S LIST.INFO":34,18::34,19:k#2"THIS IS THE TRACK/SECTOR LIST SECTOR ":"FOR THE 'HELLO' PROGRAM. THE T/S LIST":"GIVES, IN ORDER, THEOF FILE INFORMA-":"TION (LOCATION OF 1ST TRACK/SECT. LIST,":"FILE TYPE, FILE NAME, AND LENGTH.) ";:X$":"WITH 7 FILES PER CATALOG SECTOR AND 15 ":"POTENTIAL CATALOG SECTORS (TRACK $11,":"SECTORS $0F TO $01), DOS 3.3 COULD":"HANDLE 105 FILES! ";:YTES RIGHT AFTER THE FILE NAME"M "IS THE FILE LENGTH IN LO/HI BYTE FORM." "THE NEXT BYTE (ADDRESS $2D) IS ALWAYS":"A 00 IF THE FILE WAS ESTABLISHED BY DOS":"COMMANDS.";:X$h!:"THE REST OF THE CATALOG SECTOR CONTAINS":"ROOM FOR 6 MORE SETS II ":"FOR 'H'. ";:X$:"THE FILE NAME IS TRANSLATED INTO ASCII":"ON THE RIGHT. NOTE THAT APPLE REPEATS ":"THE ASCII CODE TWICE (0-128,129-256).":"TO GET THE ASCII YOU'RE USED TO, CON-":"VERT TO DECIMAL AND SUBTRACT 128. ";:X$ :"THE TWO BAM."::"OTHER CODES: 10 = RELOCATABLE FILE;":"20 = A TYPE; 40 = B TYPE; -8 = S TYPE.";:X$:"THE NEXT 30 BYTES ARE THE FILE NAME.":"IF LESS THAN 30, $A0'S (BLANKS) ARE":"ADDED. THE $C8 ADDRESS $0E IS THE 'H'":"IN 'HELLO': $C8 = 200, WHICH IS ASC"ADDRESS $0D CONTAINS THE FILE TYPE. THE":"FIRST DIGIT IS 8 IF LOCKED, 0 IF NOT.":"THE SECOND DIGIT IS 0 FOR TEXT FILES,":"1 FOR INTEGER, 2 FOR APPLESOFT, AND 4 ":"FOR BINARY. ";:X$\:"THE $82 AT ADDRESS $0D MEANS A LOCKED":"APPLESOFT PROGRE GARSON, JULY 1, 1982 ******************************** <:"REMARK WRITER/FORMATTER BY JON VOSKUIL"<"B$(8):C$(95)<,5:"LINE #:"::63190<6LN(R$):LN0LN6299963020<@10:"REMARK:"::63190 =JL(RC1L(CL):1552&;16368,0:255:^;WW1:10:1(W(W2)20):1);"ANALYZING...";1)x;I1250::W101555;: - SUBROUTINE DURING ANALYZINGV< ******************************** PLACE IN THE PUBLIC DOMAIN BY DAV:J(16336)::J145::::: TYPEWRITER EFFECT:I((40(STRING$))2):I);STRING$:: - TITLE CENTERING ROUTINE:CURS$"!/-\":C1:Q$(34):L(CURS$):177:24:"! ";STRING$;:24:1:(CURS$,C,1);;KEY(16384):KEY128CI$I$J$:1113)9[J(I$)40ĺI$;:1111C9\J(I$)39ĺI$:1111m9]I$I$" ":JJ(I$):J40ĺ::J(I$)|9^I$;:11129_J(I$)40ĺ9`I$;(STRING$,1):9 - SOUND ROUTINES9I1(STRING$):(STRING$,I,1);9(STRING$,I,1)" "1213::}8 ================================ PRINT ROUTINES ================================ 8DLAY12000::8DLAY14000::8VI18W:J08XI$""8YJ$(STRING$,I,1):II1:I(STRING$)11199ZJ$" "ATALOG AND LISTS":" INVISIBLE (RESET UNDOES)"74:"POKE 44459,234:POKE 44460,234:POKE ":" 44461,234 -ELIMINATE BLANK LINE AFTER":" THE WORD 'CATALOG' IN CATALOG"7624:"TYPE ANY KEY TO RETURN TO MENU ";:X$7>7W:(4);"PR#0"7158VE 2 RATHER THAN 3":" DIGITS FOR # OF SECTORS IN CATALOG":6."POKE 44452,24:POKE 44605,23 - ALLOW 20":" RATHER THAN 18 FILES PER CATALOG PAGE"60:"POKE 44505,234:POKE 44506,234 - SHOW":" DELETED FILES IN CATALOG"/72:"POKE 50,128 - MAKE CHAT YOU WANT. ";:X$51535 *** CATALOG POKES95"r5%:">>>>>>>>>>>> CATALOG POKES <<<<<<<<<<<<"::34,35(:::"DO YOU WISH THESE POKES DUMPED TO"::"PRINTER (SLOT #1)";:A$5*(A$,1)"Y"ĺ:(4);"PR#1"5+::7=6,"POKE 44611,1 - HAN THE DISK ABOVE IT IS":"CALLED 'DISK AIDS'. THIS HEADING IS":"FOUND ON TRACK $02, SECTOR #02, AT AD-":"DRESSES $B0 TO $BA, SPELLED BACKWARDS.";:X$45"TO CHANGE THE HEADING JUST USE A DISK ":"ZAP UTILITY TO CHANGE ADDRESSES $B0":"TO $BA TO W08-9) OR":"DOS COMMAND NAMES (T$01,S$07). ";:X$\3`:"TYPE ANY KEY TO RETURN TO MENU. ";d3X$l3153*** CHANGE CATALOG HEADER ***322::(4);"BLOAD TRAC 2.2":34,18::34,19:4"THE CATALOG HEADING NORMALLY READS ":"'DISK VOLUME'. O,19:2\"THE NAME OF THE GREETING PROGRAM IS":"STORED IN TRACK $01, SECTOR $09, WHERE":"YOU SEE THE WORD 'HELLO'. JUST POKE ":"YOUR NEW NAME THERE (UP TO 30 CHARS.)";:X$2]13^"NOTE THIS IS WHERE YOU COULD ALSO":"CHANGE ERROR MESSAGES (T$01,S$ TO CHANGE":"THE HEX ENTRIES FOR THE NAMES IN THE ":"CATALOG. REMEMBER NAMES ARE 30 CHARAC-":"TERS OR LESS. ";:X$1:"TYPE ANY KEY TO RETURN TO MENU. ";:X$1W151X*** CHANGE DISK GREETING PROGRAM2Y22::(4);"BLOAD TRAC 1.9":34,18::34ED AT TRACK $0E, SECTOR $0F. ";:X$R0:"TYPE ANY KEY TO RETURN TO MENU. ";:X$Z015|0*** CHANGE CATALOG NAMES ***022::(4);"BLOAD CATALOG.INFO":34,18::34,19:u1"CHANGING CATALOG NAMES IS JUST A MATTER":"OF USING A DISK ZAP PROGRAMLETE FILE 'DISK AIDS' TO $0E":"(THE OLD VALUE STORED AT THE RIGHT),":"THEN POKE BLANKS ($A0'S OVER THE OLD":"$0E AT THE RIGHT.) ";:X$#0:"IN THIS CASE, SUCH A CHANGE":"WOULD DO NOT GOOD SINCE WE CAN":"SEE THAT THE FILE 'RWDISC' IS ":"ALREADY SAVUNDELETE A":"FILE WE JUST PUT IT BACK. ";:X$.:"THIS UNDELETING ONLY WORKS WHEN THE DOS":"FILE MANAGER HASN'T SAVED SOME OTHER ":"FILE ON TOP OF THE FILE YOU WANT TO":"UNDELETE. ";:X$/:"IN THE EXAMPLE ABOVE, WE CHANGE THE $FF":"FOR THE DE":"BY THE 'BYTE ZAP' PROGRAM. IT IS THE":"SAME HEX DISPLAY RECODED FOR CATALOG":"FORMAT. ";:X$..:"WHEN DOS DELETES A FILE IT DOESN'T ":"ERASE IT - IT JUST WRITES $FF AS THE ":"TRACK/SECTOR LIST POINTER AND MOVES THE":"OLD VALUE TO THE LEFT. TO HANICSBURG, PA" 17055 9 JULY 30, 1980R RAM )X PERMISSION GIVEN TOBZ COPY THIS PROGRAM\\ FOR NON-COMMERCIALw^ USE PROVIDED ENTIRE` PROGRAM REMAINS b INTACT WITH ALLd CREDITS f  KEYSTONE APPLE CORE 4640 CARLISLE PIKE MECWITHOUT  TYPING "CATALOG".5 JUST TYPE "&"M AND HIT RETURN!!f YOU MAY STILL USE~ "CATALOG" IF YOU  WISH, BUT WHY  BOTHER? -=< NOTE >=- WILL ONLY WORK WITH APPLESOFT - EITHER ROM O h  TO USE WITH RAM9 APPLESOFT INCLUDEU THE FOLLOWING POKES:j POKE 2142,244} POKE 2143,3  -=< INSTRUCTIONS >=- RUN THIS PROGRAM. NOW YOU WILL BE ABLE TO RUN THE 'CATALOG' * PAGES 26 & 43 *7> * FOR POKES *U? * TO BE USED WITH *s@ * RAM APPLESOFT *A * *B ***********************C d1013,76:1014,110:1015,165:f POKE LOC $3F5 WITH JMP $A56E TE DOS *) 5 * "CATALOG" *G 6 * *e 7 * ----------------- * 8 * * 9 * THANKS TO * : * DAVE LINGWOOD * ; * CALL-APPLE * < * MAY 1980 *=, * MARCH-APRIL 1980 *9 - * PAGE 31 *W . * WITH EMBELLISHMENTS *u / * BY * 0 * GARTH HITCHENS * 1 * AND * 2 * VAL GOLDING * 3 * USED * 4 * TO LOCAND (&) JMP *+ $ * *I % * ----------------- *g & * * ' * THANKS TO * ( * RON ALDRICH * ) * FOR PROGRAM * * * DOS COMMAND FINDER * + * CALL-APPLE *   * PAGES 39-40 *;  * *Y  * ----------------- *w  * *  * THANKS TO * * DAVE HENDEL * ! * KEYSTONE APPLE CORE * " * FOR LOCATION OF * # * AMPERSAY 30, 1980 *-  * *K  * ----------------- *i  * *  * IDEA FROM *  * LEE REYNOLDS' *  * ARTICLE IN *  * CALL-APPLE *  * JUNE 1980 *:  ***********************= * *[ * AMPERSAND CATALOG *y * * * BY * * * * DAVID M. MURDOCH * * KEYSTONE APPLE CORE *  * JUL  (R$)1R$(R$,(R$)1):63200/@&R$"":63200 T** DOS TUTORIAL ******************************** +  ================================ PUBLIC SERVICE RESEARCH AND COMPUTER LAB, NORTH CAROLINA STATE UNIVERSITY ==ARROW:":7:(?16368,0:C$;B$;:R$""E?C(16384):C12763240Z?TT1:T563200y?Fĺ" ";B$;:F0:T0:63200?C$;B$;:F1:T0:63200?16368,0:CC128:C13ĺ" ":?C8ĺ(C);C$;B$;:R$R$(C):63200@R$""ĺ" ";B$;B$;C$;B$;::8:" ";LN;" REM";@>N7(LN9)(LN99)(LN999)(LN9999)X>:I1N:"H";:I:>N);::"M";::R$""āI132:R$;:I::"M";:>I1PART:16(R$(I))2);R$(I);::"M";::I:R$""āI132:R$;:I::"M";: ?3:1:"COPY WITH RIGHT $):PART1&=TL32R$(PART)R$:63120/=^I32O=h(R$,I,1)" "BRKI:63110d=rII1:I063080u=|BRK32:LL1=R$(PART)(R$,BRK1):PARTPART1:LLBRK:R$(R$,L):63060=20:"BORDER CHARACTER ('RETURN' FOR NONE):"::63190:(R$)163120>&z #?XIJ   կΠӠРׯΠӠРׯӮկà̠͠Ҡ5 Ġ̠ !Ǯ"կԠ կĠǠկΠӠРӠ ΠӠЮԠկΠӠРׯӠΠӠРׯӮӠ ůӠ̠:Ϡ԰ӰàîϠǮϠԯӠԮϠ àĠϠ ĠϮʠՠ¯Šήà ¯àӠ¯àĠŠҠ ůΠϠ:宠䠠堠䠠ᠠ栠Ơ젠蠠堠宠栠젠젠卧ħ嬠ᠠ栤젰堧̧宍堠󠠱堠Ԡ堠͍፵ᠵ砠卧̧򠠠ħ堠䮠堠䠠堠 Ӡ멠䠠堠䠠栠ōӭ󠠱䠠堠堠堠򮍍蠠Ӡ멮堠ᠠؠ䠠Š堠䠠堠ᠠ͠ᠠ䠠O EXIT":X2$"Hit any key to contine or ESC to exit"CXSU0ĺX2$;RbSU1ĺX$;il(16384)127620v(16384)155Ĺ16368,0::D$;"CLOSE"::16368,0::LC0:Fcters per line (40/80):";A$1(A$)40LL39:G(A$)80LL79:["":X1:500&X40(X$):Y(X2):Y2(X$)Y:Y240Y2::Y);X$;Y2)::0216,0::D$;"CLOSE":DEND OF PAGE ROUTINE 3N24:X$"HIT ANY KEY TO CONTINUE OR ESC T(A$)120LL119:% "":X1:380B SCREEN SETUP SUBROUTINEn :"CAN YOU DISPLAY LOWER CASE (Y/N):";v A$ A$"Y"ĺA$:SU0:490 A$"N"ĺA$:SU1:490 450 :X(37) SU1Ą"CHARACTERS PER LINE (40/80):";A$SU0Ą"Chara(A$)1(A$)7290% 6A$:PS(A$)O @:"CAN YOU PRINT LOWER CASE (Y/N):";W JA$q TA$"Y"ĺA$:SU0:370 ^A$"N"ĺA$:SU1:370 h290 r:X(37) |"CHARACTERS PER LINE (40/80/120):";A$ (A$)40LL39: (A$)80LL79: I2$A$:180 ? (I2$,1)" "I0$""ĺI0$:I0$"":LCLC1X I0$""I0$I0$" " I0$I0$I2$:(I2$)39(I0$)LL5ĺI0$:I0$"":LCLC1 SP$"S"LC21İ580 170 PRINTER INITIALIZATION :"SLOT FOR PRINTER (1-7):"; "A$ , TEXT TO SCREEN OR PRINTER (S/P):";, dSP$H nSP$"S"ĺSP$:430:140d xSP$"P"ĺSP$:270:140m 100 ::D$;"OPEN ";F$ I0$"" LC0:SET LINE COUNT D$;"READ ";F$:I2$"" A$:A$(13)210 A$"_"SUA$((A$)C32) I2$TOBER 1981":550 F8:"THIS PROGRAM WILL LIST THE DOCUMENTATIONFOR APPLE TO EPSON MX-80 GRAPHICS DUMP TO EITHER THE PRINTER OR THE SCREEN." P:"IT WILL TAKE ADVANTAGE OF BOTH THE LOWERCASE ADAPTER AND 80 COLUMN CARD IF YOU HAVE THEM.":# Z"SEND D$(4):C3232560@F$"EPSON GRAPHICS DUMP.TEXT"u(::X$"APPLE TO EPSON MX-80 GRAPHICS DUMP":5502X$"WITH OR WITHOUT THE GRAFTRAX PROM SET":5507X$"BY ANDREW E SCHECK AND TERRY E PHILLIPS":550 <X$"WASHINGTON APPLE PI * OC     ŧ栠嬍嬠堠ح堠栠ᠠ͠Ҡح占ؠŠ덠Š󍍍堠砠렠栠堠󠠠ӭ     APPLICABLE*# ****************U GOSUB 560 REMOVE REM FOR WAIT FOR KEYPRESS[u ******************* * TITLE CENTERING * * MODULE * *******************(20(TI$)2):TI$:6,1:7,25:(HM108) : :20407 ****************N * TERMINATION *e * MODULE *| **************** : (HM):HM1189,LB:1017,191:1018,157: **************** * PAGE TWO * * COMMENTS *  * IF-BY":( D$"READ "TF$:HM46:250,160 :"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);" TO CONTINUE";:35,22:0 5,39:84):KB1282580 T12550& I4 16368,0: T *******************n * TEXT FILE READ * * SECTION * *******************  TF3110 D$"OPEN "TF$ :10:11:"READING ";::TF$::13::"PLEASE STAND'+>KB195ė::D$;"CATALOG":3550: 'C'YHKB205ĺ" M":D$;"BRUN MENU 4.0":: 'M'tR(KB128)"R"ė:3000\(7);:2090 **************** * KEYBOARD * * INPUT MODULE * **************** T1āI1300 KB(163=============="S 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/ rF  ****************]  * MAIN MENU *t  * 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"f @"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":f "GOAL- PROMOTE THE INFORMED USE OF APPLE":"II SYSTEMS": ""MEMBERSHIP- OPEN, $5 INIT + $18/YR":"RECV NEWSLTR & ELIG TO BUY DISK-OF-MONTH" ,"MEETING- 2ND THURS EACH MONTH, WRIGHT ":"STATE UNIVERSITY 7:HM:LG1080) .1090:LOGO NOT IN MEMORY8 8T11:2500A BT10I L:S V1500] `4000g j2000~  ****************  * APPLE-DAYTON *  * CLUB INFO *  * SECTION *  ****************' :13::" APPLE-DAYTON ":::"T38, JUNE 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 38" ,VO$"VOLUME      Ь젠堠宍󮠠堠嬠堠젠ԧ 󮠠堠宍堠ᠠΠΠ堠􍴭堠堠㠠䠠嬠Ӡ䠠堠䬠렠󮠠堠ᠠᠠ堠Ӡ쮠堠ᠠ堠ӠΧ䮠䠠ά堠Š젠젠宠䠠젠Ԡ󠠠堠堠栠Ԡ嬠卸堠䠠䮍庠䠠䬠宠ҠҲ堠堠䮠렠堠䠠䠠堠젠堠Ѡ堵䠠堠堠Ů堠堠͍堤Ŷ報򍲠򠤴䠠堠쮍堠砠栠렠䬠堠栠堠򠠠󠠠ᠠ蠠󠠠砠㠠蠠󠠠堠ᠠ堠蠠㠠䠠򠠠쮠󠠠ᠵ䠠堠ħ嬠栠ŧؠﬠ堠ŧ㠠䠠㠠쮠嬍䬠򠠠堠䠠堠̧堠󠠠ᠠᠠؠ٠堠Š䠠堠򠠨砠堠ӭ󩮠󠠠󠠠㠠堠堠󠠠 ɍ  ` @ ``$ $ $I$ $) ʩ`@ ȱ`'$ɍI$ $)?)ߑө` 8ؑi=iagj`Ȅ 0`8aa```VɍȄ e 閥%з ݖɛ, X 閥0 ,,``  ōؠ ̍٠ ̍٠ ӍҠΠ Ӎد ӍԠӠ ҍàԳ ΍Ҡ čԳҳՠƴؠՠƴؠՠƴ٠ՠƴĵ٠ՠƴijؠՠƴԠՠč͠ ҍҠԍƍˠ Ӎˠ čύҠԠ ٍàҠ ΍נҠ ӍҠԍƍҠԍˠҠčٍРðŠ׍à ӯȍҠԍРԍԠԍΠԠԍɠ΍Ӎԍà̠ ōҠ٠ ٍàٍàҍŠЍ Ҡԍà̍ŠЍàȍР̍РŠ̍ȍŠ׍̠àԠŠԍŠРƠ׍ˍҠԍҠԍҠԍҠ ӯӍҍ٠Ƞ ōؠٍ̍Ҡ΍РÍũٍĠˠ ԍĠƍѠà ԍà ōҠԍƍҠԍà ӯ čҠԍҠԍҠԍ ؽ ٽנٍŠ٠ҠӠӍ̍ȍà ӍҠԍՠˠՠҠՠčՠō̠ՠŰȠՠű٠ՠŲˠՠŠՠΠՠƴ٠ՠƵԠՠðԠՠññàՠҠՠčƠՠҠ    A  H K    &%0)8& Ɲ륞 hH©  hД 2L,0`G ` 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      Ů Ǡ% Ů ±ʱɱɱȱȱDZDZƱƱűűııññ±±ױҍ͍öءؾڍƷŷέ٠ķύ÷Š΍·Š΍µµʴʴɴɴȴȴǴǴƴƴŴŴĴĴôô´´ó³íʴʲʱɲɱȲȱDzDZƲƱŲűIJıòñ²ű±±ʱɱȱDZƱűıñ±ʹҢتڠɹҢ٪ڠȹҢ٪ؠǹҢ޲ƹҢ޲ŹҢ޲ĹҢڠùҢؠ¹Ң٠Ƿؠêñű±±ʱñıɱ±ıȱ±ñDZııƱññű±±ʱñıɱ±ıȱ±ñDZııƱññű±±ʱñıɱ±ıȱ±ñDZııƱññññű±±ʱñıɱ±ıȱ±ñDZııƱññű±±ʱñıɱ±ıȱ±ñDZııƱññű±±ʱñıɱ±ıȱ±ñDZııƱñͨűűıͨııñͨññ±ͨ±±ʱɱȱDZƱűıñ±ʱñıɱ±ıȱ±ñDZııƱDzñDzIJƠغòŠƠٺ²Π̍Dz±DzIJƠٺòŠƠٺ²Π̍DzԨ±±²κʱͨʱʱɱͨɱɱȱͨȱȱDZͨDZDZƱͨƱƱűƱñ޲DzƲغŲӭIJ͠ƠӍòĠ͠²čDzű±޲DzƲٺŲӭIJ͠ƠӍòĠ͠²čDzıDzIJƠںòŠƠٺ²Π̍ij͠ƠӍóĠ͠³čDzȱ±ñDzƲӭ٪غŲӍIJ͠ƠӍòĠ͠²čDzDZı޲DzƲںŲӭIJ͠ƠӍòĠ͠²čdzàƍdzDzDzdzdzDzDzdzdzijԠӺóԠԍ³ ɍdzʱıñDzƳӭتںųӍij͠ƠӍóĠ͠³čdzɱ±ıDzƳӭ٪ںųӲdzdzDzóӺ³ŠލȳڍdzdzƳؠųdzijҢódz³٠dzDzdzDzdzDzijӺóԍ³ԍdzdzdzDzdzDzijԠӺóԠӍ³ʴʴŴŴŴǴĴӺôÍ´ƠԍȴƍǴDzƴȍŴDzŴĴӺô̠Ӎ´ՍȴƍǴƴȍŴdzDzdzdzĴӺôΠӍ´ԍijdz       ]$PJ`$&%0)P  &%0)8fp0 e ѥJJ% i $P g𥩍  $p ( `i"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     ŠՠҲՠҳՠˠՠĠՠՠŠՠӠՠŠՠˠՠ͠ՠčϠՠƍҠՠҠՠ٠ՠؠՠˠՠƹ Ů © Ǡ%L Ů   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     75210,0,99,121105,131115,141130,185h 99,12197,9794,9489,8984,8479,7974,7476,7271,67x*71,6715,0499,990,35\170a1870d *** LEGENDf3:235,32235,37:235,34240,32:235,35240,37p245,32245,37250,37:245,** UNITED STATES HIGHWAY51:70,13072,12575,120G80,1200,135^ *** STATE ROUTES2:70,13065,135:65,13515,1600,175130,81133,78133,75138,70143,65148,60153,55158,50163,45168,40173,35178,30178,0 130,81140,78150,13070,130:78,13085,127S85,12792,12499,121104,118109,115114,112134,112134,112138,114142,116148,118152,120158,122162,124168,126172,128178,130182,132188,134192,136198,138220,140120,78123,81143,81153,71220,41 *103,91107,87111,83115,80`115,80118,80120,75120,70118,68121,65121,60118,58123,53123,53123,43120,40118,37118,37123,32120,29122,27122,26122,25117,20120,17120,17125,12120,7120,7125,0 *** SR 478,874,16773,16671,16470,1610:70,16173,158CD73,15869,150kN69,15074,14576,14375,14177,139X77,13979,13778,13676,13479,13177,129b77,12982,12480,12285,117l85,11785,11290,10794,103v94,10399,9899,95103,912115,85118,82115,79113,777113,77135,60155,50J155,50160,45r160,45163,40158,35158,30160,25160,25175,0113,77110,74105,6590,5090,4080,3585,2575,0! *** INTERSTATES&5:55,18570,175070,17575,17073,16,3555,3555,3050,35&50,3550,50/865@ *** RIVERSy6:40,18555,17558,17062,16762,16067,16470,16270,16275,16280,15783,15080,14880,14870,13890,13090,13095,12090,115100,105100,10595,9598,9298,95140,35140,45h140,45135,50135,55125,60130,65135,65135,70130,70120,75115,75115,70110,70110,70115,65115,60114,50110,50110,40105,35105,2585,2585,2585,3590,4090,5075,5075,5273,5273,4565,4565,4860,4860,48600173,78Z^173,78176,76176,74196,65196,55193,55193,60180,60180,65177,65179,69h179,69164,75164,70160,70160,65150,65150,60135,60r135,60155,50160,45|160,45163,40158,35158,30160,25140,25140,30135,30135,35135,3150,155160,155160,150170,150173,153175,153178,150183,150n @183,150183,140193,140193,135203,137 J203,137203,130183,130183,126185,124185,115185,113185,110180,100T180,100190,105190,98185,98181,90175,90175,85177,82177,8,14239,14239,175H 39,17555,17558,17062,16762,16067,16470,162 70,16275,16273,16478,16478,16085,16085,16588,165 "88,16596,16298,160101,161110,159115,161117,161120,164 ,120,164120,170122,175130,175130,155150,155A 6,39 39,3934,3934,4130,41= 30,4129,4825,4825,55T 25,5530,5931,63 31,6336,6640,6640,8630,8630,8925,8925,12940,129 40,12940,13938,13939,14034,14036,14533,14531,14025,14624,150 24,15029,15029,14634,14634 dA$"Q"ė:- i8:23:"REENTER ! ";:803 s9 ] 3:0,0279,0279,1850,1850,0p 220,0220,185 220,185220,0 440 *** CITY BOUNDARIES 3 50,5050,40 50,5045,50 45,5045,5340,53 40,5340,4442,40399,538") (1:13:"RANK IN POPULATION :"? -22:13:"FOURTH" 25:17:"PRESS":50,127:11:17:"M":380:13:17:"TO VIEW THE MAP." A5:19:"PRESS":50,127:11:19:"Q":380:13:19:"TO QUIT PROGRAM." F5:21:"?"; PA$ ZA$"M"ī1307D$"": CTRL-D! :936+ 384`1:5:"---------------------------------------"1:6:"-------- DAYTON - THE GEM CITY --------"1:7:"---------------------------------------"3801:10:"POPULATION :" #14:10:"19                               01 AT ADDRESSES $36-7":"IS THE LOW AND HIGH BYTES (IE,":"'BACKWARDS') OF THE NUMBER OF":"BYTES PER SECTOR - $100 (256). ";:X$~:"FROM ADDRESS $38 TO THE END OF THE VTOC":"(ADDRESS $FF) ARE 4-BYTE BIT MAPS OF":"EACH SECTOR FROM $0 (0) TO AS MANYF TRACKS PER DISKETTE -":"IN THIS CASE $23 (35), NORMAL. ";:X$z:"THE $10 AT ADDRESS $36 IS THE":"NUMBER OF SECTORS PER TRACK - ":"IN THIS CASE $10 (16), THE NORM":"FOR DOS 3.3. (IT WOULD BE $0D ":"OR DEC. 13 FOR DOS 3.2). ";:X$|:"THE $00IVE NUMBERS.) ";:X$w:"GIVEN $19 AS THE LAST TRACK ALLOCATED":"AND +1 AS THE ALLOCATION DIRECTION,":"THE NEXT TRACK WILL BE THE SUM: $1A (OR":"DECIMAL 26). ";:X$@x:"ADDRESSES $32-3 AREN'T USED."::"THE $23 AT ADDRESS $34 IS THE":"NUMBER O30 IS THE LAST":"TRACK WHERE SECTORS WERE ALLOCATED. ";:X$u:"THE $01 AT ADDRESS $31 IS THE DIRECTION":"OF TRACK ALLOCATION: $01 IS +1, AND $FF":"IS -1. (SEE P. 284 OF INMAN AND INMAN,"v"APPLE MACHINE LANGUAGE, FOR HEX NOTA-":"TION OF NEGAT$r:"THE $7A AT ADDRESS $27 IS THE MAXIMUM":"NUMBER OF TRACK/SECTOR PAIRS THAT WILL":"FIT IN ONE FILE TRACK/SECTOR LIST ":"SECTOR ($7A OR DEC. 122 FOR 256-BYTE":"SECTORS.) ";:X$=t:"ADDRESSES $28 TO $2F AREN'T USED."::"THE $19 AT ADDRESS $;:X$n:"THE $03 AT ADDRESS $03 STANDS FOR DOS":"VERSION 3.3, AND IS ALSO STANDARD."::"ADDRESSES $04-5 AREN'T USED. ";:X$p:"THE $01 AT $06 IS THE DISK VOLUME":"NUMBER, FROM $01 TO $FE (1 - 254)."::"ADDRESSES $07 TO $26 AREN'T USED. ";:X THE":"FOURTH ONE IN THE SECOND ROW. ";:X$3lm"THE $04 AT $00 IS NOT USED BY DOS.":"THE NEXT TWO BYTES ($11 0F AT $01-02)":"ARE THE TRACK AND SECTOR OF THE FIRST":"CATALOG - IN THIS CASE TRACK $11 (17)":"SECTOR $0F (15), WHICH IS STANDARD. " THE HEX ENTRIES BY":"THEIR ADDRESS IN THE WORK BUFFER. (THIS":"DISPLAY IS THE BUFFER CREATED BY THE":"'DISK EXAM' PROGRAM.) ";:X$ij:"THESE ADDRESSES ARE LISTED DOWN THE":"LEFT-HAND SIDE IN STEPS OF $08."-k:"FOR EXAMPLE, ADDRESS $0B IS18::34,19:f"THIS IS THE VTOC - THE VOLUME TABLE OF":"CONTENTS."::"IT IS NORMALLY FOUND ON TRACK":"$11 (17), SECTOR $00 (0). ";:X$:g"THIS DISPLAY, AS WELL AS THE LATER":"ONES, IS ACTUAL DATA FOR THIS DISK. ";:X$h:"WE WILL DISCUSS"8. CATALOG POKES":1210> ;STRING$"9. QUIT TO BASIC ":1210s <16368,0:STRING$"PLEASE SELECT 1 - 9: ":1550 >KEY177KEY18560 @KEYKEY176 BKEY100,200,300,400,500,600,700,800,999 d*** VTOC*** e22::(4);"BLOAD VTOC.INFO":34,TALOG":12109 0STRING$"3. THE TRACK/SECTOR LIST":1210f 2STRING$"4. RESTORE DELETED FILES":1210 4STRING$"5. CHANGE CATALOG NAMES":1210 6STRING$"6. CHANGE DISK GREETING PROGRAM":1210 8STRING$"7. CHANGE CATALOG HEADER":1210 :STRING$ SUBMENU LIST ******************************** > N ::6:40` D$(13)(4)z )::I140:"*";:: *STRING$"DOS TUTORIAL":1310::I140:"*";:: ,:::STRING$"1. THE VOLUME TABLE OF CONTENTS":1210 .STRING$"2. THE CA >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> USES VTOC.INFO,CATALOG.INFO,CATALOG. 2,T/S LIST.INFO, HELLO T0A S0A, TRAC 1.9, AND TRAC 2.2 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 8  ******************************** ==============================  ================================ THANKS TO DON WORTH AND PIETER LECHNER, AUTHORS OF BENEATH APPLE DOS (QUALITY SOFTWARE) ================================ 18r ******************************** DOS TUTORIAL ******************************** +  ================================ PUBLIC SERVICE RESEARCH AND COMPUTER LAB, NORTH CAROLINA STATE UNIVERSITY ==                       *************** m0 n ** PUBLIC DOMAIN **6 V :::670:(27)(78);:0\ b w I140:"*";:I "*"40)"*"; "* *** NEC CUSTOM LABEL MAKER *** *"; "*"40)"*"; I140:"*";:I 6:14:": A. B. HILER:" J3d ***********************=e * CUSTOM LABEL MAKER *[f * FOR NEC PC-8023A-C *yg * PRINTER *h * RE-WRITTEN FOR *i * APPLE-DAYTON *j * BY ART HILER *k * APRIL 1983 * l ********             ҍҠԍƠ ԍˍӠōˍӠōԠ ԍƠ ٍԠӠ ōӠˠ ׍ ōˠˍԠРŠԠ̠Բ ԍҠ Ǎ̳ؠΠŬύؠҠؠ ΍ؠԠҍŠ؍ѠԱ ΍Ҡ͍ҠԠ ΍àҳ ׍РŠԠŠ ӍҠԠ ҍҠ٠ ΍Ҡ٠ һ ̍àҲ ħ ōѠҠ čԠӠԭ ԍà̳ ҍ̠٬ Š Χ ԭōàԮҠҮҠ٠ΧٻΧٍؠԠҍŠԱ ӍҍҍĠˠ ӍàŠҠčàҠ Ӎ̱ÍѠà ōàԠĠōàҠ ҍŠ Χ ӍӠӠ Ү ƍɠ̲Χ ֧ӠҠؠΧػΧ؍̲̠ ōĠˠ ӍĠƠ à̱ ōŠ ԍҠؠ ԍũ٠ ӍĠˍĠƠ Šҧ î Բٯ ӍҲԱؠĠ ōؠŠ ү Ӎؠ ӯҍԱԠӠ ֧ ōũ٠ `¹ùɱàŠ àƠǠ`İŷø稱ȠƠӠՠø `ŷ稴 Ơà̢ĠŠ ŠԠƠ'à ĠƠĠƠŠΠ`Ƶ  ɠ>  ŠƠƠˠϯƠҠ   930I1XA$B$&C$.E$6F$<C IIv ( ::: DOUBLE WIDE ::: 2I1X $ .L1ı814+B" INPUT LINE #4 "8L19:870CV19:4N`"";E$Vj14mt" INPUT LINE #5 "z~20:87020:4"";F$  ::: STANDARD PRINT ::: L13 ; ::: INPUT LINES ::: C14Z" INPUT LINE #1 "g16:870r16:4}"";A$14" INPUT LINE #2 "17:87017:4"";B$14" INPUT LINE #3 "18:87018:4$"";C I122:"%";:39:"%":I%/ 32,1:*33,37D434,2O>35,22UHR \ ::: LINE LIMITER ::: f5:I1S1:(95);:Ip"]"z  Q ::: PRINTER OFF ::: X0^  ::: BORDER ::: 24:I139:"%";:I::1:I139:"%";:I:S OR COLONS."X<b" A RETURN WITH NO ENTRY WILL GIVE"Ql" A BLANK LINE"\v34,13b  ::: PRINTER ON ::: 1  8 b ::: INSTRUCTIONS ::: i3" PRINT WIDTH IS SET BY LINE LIMITER&" FOR 3 1/2 INCH LABELS.0:" 5 LINES NORMAL OR 3 LINES BORDERED.D N" DO NOT USE COMMA0:(27)(34);:0:19301 A1$"5"S130:1960D A1$"6"İ2190Y A1$"7"ė:2310n A1$"8"ė:2610 A1$"9"S123:L1:S$(29):A28:B9:C15:D20:3600 A1$"0"S129:L1:S$(29):A34:B12:C18:D23:3600 A1$(27)ī2010 390 FULL SIZE DISK LABEL"9 r:" [ESC] - - - < END >"b |23:" [ ] ..... YOUR CHOICE"x (9):(23):A1$: A1$"1"S130:670:(20);:0:1650 A1$"2"S153:670:(27)(34);:0:1780 A1$"3"S115:1820 A1$"4"S126:67- - COMPRESSED 66 CPL"E @" [ 5 ] - - - STANDARD / ROM PLUS"i J" [ 6 ] - - - EMPHASIZE " T" [ 7 ] - - - YOUR LABEL" ^" [ 8 ] - - - 10 MOST USED LABELS" h" [ 9 ] - - - SHORTENED DISK LABEL" m" [ 0 ] - - -12:13::"TURN PRINTER ON "$ . 150< E1:2190E (8)^ (4):"SELECT FROM:"d  " [ 1 ] - - - STANDARD 80 CPL" "" [ 2 ] - - - COMPRESSED 132 CPL" ," [ 3 ] - - - DOUBLE WIDE 40 CPL" 6" [ 4 ] - `Ԡàøõà̠ƠĠĠŠôĠ àƠϠ`ĠƠƠà͠Ϡ̠  `õŠƠԠĠĠŠưĠ Ġ'øƠҠ ĠĠĠ `àà̠Šà ۠8õàŠ٠Ġ Ġ   ::: YOUR LABEL :::  A$"Y O U R N A M E" B$"A D D R E S S "  C$"CIE0ī2220E1ī2260"@670:16:(27)(33);:0R15:30:868y15:(1):"ESC ":15:36::"ON":E1:670:16:(27)(34);:015:30:86815:35::"OFF";:E0: *">106H"********************">R24O\I11000:I`fI115::Ifpz ::: SETUP EMPHASIZE ::: o ::: END ::: x:0:1110"********************"10 "* *"10 "* GOOD BYE *"*104"* 670:(27)(81);:0!1820[  ::: ROMPLUS SETUP ::: 150: REMOVE THIS LINE IF YOU HAVE ROM CARD IN SLOT #31570: ROMPLUS ON1660= N N:1330:PRINT LARGE2X710: PRINTER OFFb:2540::" MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1850l150: GOTO MENUv  ::: 66 CPL SETUP :::  "670:(27)(81);:0,1650]  ::: 40 CPL SETUP ::: 750: DRAW BORDER&530: INSTRUSTIONS0920:GET INPUT:1500:HOW MANY?D670:PRINTER OS710: PRINTER OFFe:2540::" MORE OF THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1680X$"N"X$"NO"ī17501720150: GOTO MENU  ::: 132 CPL SETUP ::: A"TS130:E^ wh ::: 80 CPL SETUP ::: r750: DRAW BORDER|530: INSTRUCTIONS920: GET INPUT1500: HOW MANY?670: PRINTER ON:1210:PRINT LABELW MANY LABELS ";X%X0ī150+X  ::: ROM PLUS ON ::: "SLOT3: ROMPLUS IN SLOT #3,M$"": THERE IS A SHIFT/CTRL/M IN QUOTES6(4);"PR#";SLOT@JM$;"1<(18);FA$P(18);%ZB$1d(18);9nC$Ex(18);ME$Y(18);aF$gnIu0{  ::: HOW MANY ? ::: 14" HO`Ơ`ƠƠƠ`ƠƠ'ƠƠ`ƠƠƠ6   * F$""* * ::: LABEL #4 ::: *& A$"LEADER MORTGAGE CO."*0 B$"P.O. BOX 5241" +: C$"CLEVELAND OHI ::: LABEL #3 ::: ) A$"LAKE CO. SANITARY ENG.") B$"105 MAIN STREET") C$"PAINESVILLE OHIO 44077"* E$"" ::: LABEL #2 ::: ( A$"EAST OHIO GAS CO."( B$"P.O. BOX 6862"( C$"CLEVELAND OHIO 44184"( E$""( F$""( ) ::: LABEL #1 ::: 'T A$"CLEVELAND ELECT. ILL. CO."'^ B$"55 PUBLIC SQUARE"'h C$"CLEVELAND OHIO 44178"'r E$""'| F$""' ( 0::2390$& A3$"5"İ3180::2390?& A3$"6"İ3250::2390Z& A3$"7"İ3320::2390u& A3$"8"İ3390::2390&" A3$"9"İ3460::2390&, A3$"0"İ3530::2390&6 A3$(27)ī150&@ 2760n'J - XXXX LABEL"1% " [ 0 ] - - - XXXX LABEL"^% :" [ESC] - "% 21:" [ ] ..... YOUR CHOICE"% (9):(21):A3$:% A3$"1"İ2900::2390% A3$"2"İ2970::2390% A3$"3"İ3040::2390 & A3$"4"İ311OHIO GAS"0$d " [ 3 ] - - - SANITARY ENG."Y$n " [ 4 ] - - - LEADER MORTGAGE"}$x " [ 5 ] - - - XXXX LABEL"$ " [ 6 ] - - - XXXX LABEL"$ " [ 7 ] - - - XXXX LABEL"$ " [ 8 ] - - - XXXX LABEL" % " [ 9 ] - - :: 10 MOST USED :: #2 750:4:3#< " SELECT FROM:"#F :#P " [ 1 ] - - - ELECTRIC CO." $Z " [ 2 ] - - - EAST A2$"1"ė:2530:1680K" A2$"2"ė:670:(27)(81);:0::2530:1680f" A2$"3"ė:2530:1850" A2$"4"ė:670:(27)(81);:0::2530:1850" 2470" 4" 6:A$" 6:B$" 6:C$" 6:E$" 6:F$" #( " SELECT FROM:"!j :E!t " [ 1 ] - - - STANDARD 80 CPL"o!~ " [ 2 ] - - - COMPRESSED 132 CPL"! " [ 3 ] - - - DOUBLE WIDE 40 CPL"! " [ 4 ] - - - COMPRESSED 66 CPL"! 20:" [ ] ..... YOUR CHOICE"! 6:(20):A2$:"TY STATE ZIP " $ E$""7 . F$"GOTO LINE 2310-2350"A 8 2380 B ::: PRINT CHOICE ::: L 750 V 2530!` :`ôƠijòƠijӠӠƠóàijӠƠİĹijĵò²²``ĠƠààƠϠƠóƠİĹ٠'ƠôĵĠݲв`Š8 øõ ŠŠ   :"[ 5 ] - - CP/M ":<5(9):"[ 0 ] - - SOLID BORDER ":5 (20):(9):"[ ] ..... YOUR CHOICE";:(11):A4$::A4$"0"A4$"5"38505A4$"1"Z$" DOS 3.2 "5A4$"2"Z$" DOS 3.3 "5(A4$"3"Z$" COBOL "52A4$"4"Z$" PASCAL "(V1$)3ī378043650u4:750:(3):" WHAT WOULD YOU LIKE IMPRINTED IN THE BOTTOM PORTION OF THE BORDER?":4(9):"[ 1 ] - - DOSL;FZJRh\f@QARJ3HZH5HEHEH,';H[F[JRh\f@QARJ3H[H5HEHEH+'*'$HHHHJRh\f@QARJ3H\H5HEHEH8);+)$HJRh}]f@QA ":13`" [ ] ..... YOUR CHOICE";A_f@Y\AR>LRh:[f>LJzsl,R"zu ibxi~ ucy~ zc`yai byani~  ayx ni  hekix `cbk w q ,","z,"z zc` ,"z,!"ʸݸʧøŸ͹Ы;˽4˽I]˽Iī4z˽IW\,ږ:"޺ϺߺۺߺȺԺߺʺߺܺߺʸ""EԖ"¹Ĺʹ#ϗ#¹׹ĹֹmvBnum ::: LABEL #0 ::: x0 A$"GOTO LINE 3530"0 B$""0 C$""0 E$""0 F$""0 0 ::: LABEL BORDER ::: 175 ::: LABEL #9 ::: / A$"GOTO LINE 3460"/ B$""/ C$""/ E$""/ F$""/ `0 ::: LABEL #8 ::: .> A$"GOTO LINE 3390".H B$"".R C$"".\ E$"".f F$"".p u/z ::: LABEL #7 ::: - A$"GOTO LINE 3300"- B$""- C$""- E$""- F$""-* .4 , F$"", , ::: LABEL #6 ::: , A$"GOTO LINE 3250", B$"", C$"", E$"", F$"", - O 44101"+D E$""+N F$""#+X +b ::: LABEL #5 ::: +l A$"GOTO LINE 3180"+vTdbb@kLdbb@kLdbb@```'`<Ơ