IMD 1.16: 31/05/2007 20:41:39 FOGCPM.149 ååååååååååååååå--FOGCPM149BARG COM€ -09-00 86 ©BARG DOCBARG PAS:CALC COM  CALC DOC!CALC Z80\"#$%&'()*+,-GRAPH-DRDOCs./0123456789:;<GRAPH-DRBASR=>?@ABCDEFGG-CHANGEBASHIJKGR-DR-3DBASLMNGR-DUMP BASOGR-DUMP1BASPGR-PRCNTBASQRSGR-PRINTBASTUVWMENU BAS XYMENU-2 BASZRANDOM DTA[REVERS-PBAS!\]^_`SOLITAIRBAS(abcdeSQUABBLEBAScfghijklmnopqrSUBSERCHBASstuvAUTOST COMwCUBIST BASxGR-MENU DOC yzLEMANS BAS+{|}~€GRAPHIC2COMO�‚ƒ„…†‡ˆ‰ŠGRAPHIC2DOC ‹ŒGRAPHIC2PAS�Ž��OZ1MEM COM‘OZ1MEM DOC’OZ1MEM AZM%“”•–—TEACH3 COM˜TEACH3 DOC™šTEACH3 ASMX›œ�žŸ ¡¢£¤¥TEACH DOC¦§¨-CPM149 DOC ª«¬­ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååThis is the disk name. ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååÃÉÍ«Copyright (C) 1984 BORLAND Inc‚A Osborne 1al selected)(= ERT()~·7È#õå~Íáñ=ÈóÍ% ÉÅÕåÝåýåõo&åͦñýáÝááÑÁÉoåͦÉþ€Ü�Ô©æîÅÕåÝåýåÍ£}Ùå!å!"8áãõÅÕ~#·(åÍáôÑÁñãÉ}´È:$‡‡‡ããããÅÒÁ= ô+èÍÐØ*ÎßõÅÕå!¨ÍZ!¢ÍÐ*ºÔBáÑÁñÉõÅÕå!´éõÅÕå!®àõ:¼·(ÅÕå=2¼!ÈÍZáÑÁñÉõ:¼· ÷ÅÕå<2¼!ÂåõÅÕå!¼ÛõÅÕååð!‹í°Ñ:žO:œ‚ÕÍÑ:ŸO:�ƒÍ!ðÍÐ* ÍBáÑÁñÉ!ð ë!›45(É!.+/ –0ü†õyþ0(ñíÉ d!kÃZ!{ÃZ͈æ͈o&Éô  áÁå:á·(yþ ÕÅÍ |µ(Íþ ÍþÊÅÁÑ*é"ÛÕx2áy·( >Ã28!?"9!É í°!á¸í°áí°>2گà Ã:ÃDÃ]ÃSÃXÃNÃ]ÃDÿ í[Ûþ (ú!eÍ}Í„þA8þQ0Gþ: xÖ@¯!\w# ( þ  ÍyÍVþ. ÍV!h6#ûÉ (þ*(þ.(þ!8þ}(þ*(Í„w#ßÉ>?> w#üÉþaØþ{ÐÖ É|Í’}õÍ›ñæÆ�'Î@'Ãè¯7Ë|À|·}È>ÿÉ"ÍíCß"í6#ûëÑùü "Ïë"ÕÍ�Í©éå*Ï·íB"Ïí[Í·íRëáÚ5í°É*Ïí°"ÏÙÉ^#V#Õ^#V#N#FáÉÝáëO/o&ÿ9ùëí°ÝéÑO/o&ÿ9ùëí°éÝáë!àÿ9ùëÅ(¯üí°Á> �‘(G¯üÝéÝá!àÿ9ù ¯w#üÝéÝáEÍŠ¶wÝéÝáÑ}“8÷�Ãu·íR·íB0 É>‘î·íRëê@ðøÉÕë·íRëáë·íR!È+Éͨ õÍz ð·íR!À+Éͨ õÍz ðÍ<!Ð+Éͨ õÍz ðÍ<!ÈØ+Éͨ ôÍz ïÍ<!ÈØ#Éͨ ôÍz ïÍ<!Ø+Éͨ õÍz ðT]KBë!z·> S>)ë)ë0 = öÉ|ªõÍJëÍJëDM¯go>íjíB0 7?ËË= ðëñðHåÍ\Ë<ËÑëÍÞëËzÈ5Í+È)ýÉÍ+ÈË<ËúÉëz· {þ0G·É¯goÉë|ª|úHºÀ}»ÉÉË|È|/g}/o#É}æo&ÉíKÓí[ÑÅÕxAJSËËËËáëáíJDM!éb"Ñë!6íJ"ÓDMÉ'ͬèͬdͬ ͬ} ¯<íR0û= ÈÆ0ÝwÝ#ÉÝ~Ö$O! Ý#Ý~Í„Ö08)þ 8 !Öþ 8þ0T])Ø)Ø T]Ø)Ø_ØËy·È|‡ÉÝááå}&#9N�8wë!DíB9ùëåí°ëá+Oí¸ë#ùÝé>ÃwÝáͦWáͧ _áå}“8(º8J`9{‚T]=o`9yí¸ë ¯ÃwÍÖ Ð>ÃuÍJ õÍuÍ` íÙ}·Ù>(è; àÙËxÙÂQ Ù}·ÙÈÙÅÕåÙ}· Ù˸TÅËø¯ÙËø}Ù•(0íD=ÙÍC ,= ù(Ùñæ€ Í[ 0%ÍD ·, 7 Í� ?õ(8ÙÍu Ëx ÍO - öÍ; ñ8˸·ÙáÑÁÙÉÙËxÙÂÝ ÍX ÍÝ Ø,-Èxî€GÉÙ}·ÙÊ; }·ÈÙ…ÙÍ ÅÕåÝ9Í; Ù.Ù>Ý#ÝnË0Í[ ÍD = ñÙ-Ù åÝnûËx ÍP ,-(-ñññ·ñÙÁáÙÝá˸°G,-Ì; É}·ÈÙ•Ù?Í åååÝ9Ù.Ù>Í� 8Íu ?Ë= ÝuÝ+Ù-Ù(>ÍO 0ßÍu ·áÍO 8Í� ?áÑÁËx ÍP š, —7•8Æ€8Æ€8oÝãÙåÅxËøÙ¨æ€õËøÝåÝ!ÉáØ¯oGOW_gÉ·ËËËËËÉ·ËËËËËÉ|Ù„Ùg{Ù‹Ù_zÙŠÙWyÙ‰ÙOxÙˆÙGÉ|Ù”Ùg{Ù›Ù_zÙšÙWyÙ™ÙOxÙ˜ÙGÉxÙ¸ÙÀyÙ¹ÙÀzÙºÙÀ{Ù»ÙÀ|Ù¼ÙÉÙxÙ¨ò² xÉËx(ͼ È?É}Ù½ÙÀ·ÈÃ� }Ö�Ú; <þ(ÐÙÅÕåÍ; 7ÍD = ùÙ|Ù¤Ùg{Ù£Ù_zÙ¢ÙWyÙ¡ÙOxÙ ÙGÃD ÙÅÕåÙÍuÙÍÆ ÙÍJ ë}·ÈËx>ÂuÍu}Æ€Ë/Æ€oÖõÙÅÕå; ÍÖ -ÅÕåÍJ }áÑÁÙáÑÁã¼ã0ãñÙÉÙÍW-ÍJ ÙÍW,Ù}þlØÅ˸ͨ Á8 ; Íý Í` Ëx(ÍÖ Ù-Ùͨ õ8ÍJ Ù-Ùͨ 8Ù,ÍJ }þl8;Ùª*ªª!ªÍ` ÝåÝ!Ð >ÍýÝáÍuÍ` Í` ÅÕåÙÍu--Ù-ÍÖ ÙáÑÁÙÍJ ,,ñ,-ÈØxî€GÉgª?+2×n¶*ï8t Ð Ðzˆˆˆˆ~«ªªªª,->ÊuËxÂuÙÍaÙ}.�•õ; ÙÍOÙÍJ ÅÕåÙ,ÍÖ ÙáÑÁ; ÝåÝ!U >ÍýÝá,ÙÍk-ÙÍÖ ñÅÕåo&0%ÍÑÙ,Í` ÙáÑÁÍÖ }þgÚ; É}Š�؉}颋.:}Žã8Žc~I’$I~ÍÌÌÌL«ªªª*ÙÍkÙ·Ëxõ˸; }þˆ0GÅÕå,Í™åË<Ë}áõÍÑ,-(-ÙñáÑÁõÍJ ÝåÝ!Ù >ÍÝáñ0 õÙÍaÙÍ` ñ…o8 ñÈÙÍOþ á>Ãum.`1pF,þåt6|‰„!wS<ÿÃ.zÒ}[•|%¸FXc~üïýu€Ò÷r1}·ÈÝåÙÍOÙ¯Ëx(<˸õͨ 8Ù; ñËÿõÙÏŽé!~JÙͨ 0Í÷OÝ!—>ÙÝÍ<Ùͨ 8 = ìÙ ÝÙÙÍ7ËøÍÖ ÅÕåÍ<Í` ÙÍOÍÖ ÙáÑÁ; ÝåÍ÷ÝáÙÍ7ÍÖ ñ0 õÙÍW-ÍJ ñÝáËOÈËøÉçÏÌTöô¢0 jÁ‘ €µžŠoD€‚,:Í€jÁ‘ �€!¢ÚI}袋.º}Žã8Žc~I’$I’~ÍÌÌÌL«ªªªªÝ!Ó>ÅÕåõÍuÍ` ñÍÙáÑÁÃ` õÙÍ7õÙÅÕåÍ7ÍÖ ÙáÑÁÙÍ` ñ= éÙÍOÃÖ ÝÝnÝfÝ^ÝVÝNÝFÉ!�DLT\ÉI¢Ú!‚!É53ó!�úÉr1÷!€ÒÉÅÕåÙáÑÁÉÍ\!€> Ëx Ë#ËËË-= ðo˸ÉËxÙÍO(Ëø-ÍÖ ·Ë}(ËxËø>�½8(ÍC ,óÍC `iÈÃM!É>’Ãu|µÊ; Ë|ÍJ>�Ë| )=Ë|(úDMboÀ˸Éͦë8þ8ͦÙËxÙ(’0¯þ 8> ÕÍMÑËx(>-ͲË{(aËy(Ͱͦ ò\z·(>.Ͳ (Ͱ ÷ú~ͦ÷Ë{È>EͲ>+Ë|(|íDg>-Ͳ|/Ö 0ûÆ:ÝpÝ# ý~ý#· ý+>0ÝwÝ#Éýå,-  ý60ý#ø¯ÃJÅ˸}ÙÖ€oŸgMÍÄ|þÙ <ýwíDÍ }þ�0Í€ý5Ëø>„•.(ÍC Ë= øý~õ> xæÆ0ýwý#xæGÅÕåË%ÍP Ë%ÍP ëãÑãíZëáãíJDMáË%ÍP = ÈñÁýáÉýåá_~6þ5Øúi+~¨¥Ôh¶¿ÉìÅëx-ÐÍÎÂSÞùx9?ë+¨­ÅøÉ{Η@}·ÈËøÅÕ|ÍC ÍC „gãíZëáãíJDMá0ÍD ,7È}Æo˸ÉÍ ¾ #øyîO!@9ùi&ÝéÍ  ë¶¾ â#÷ÚÍ ¶w#ùëùÝéÍ /¦w#øïÍ ¦w#ùãýáÝá!9ë! E9ýéÝá!!9~·(¯+FÍŠ¦!"9ù!(#Ýé>¯2æýá*ÛͲ¯á"âýå|·>"Ê :æ·( ͆ *â6#wÉÍ÷*â6#6 ë!\$í°É!¶Ååí[Ûþ (úÍ„–( áÁã·É#ëÁÁþ:À~ÉCONTRMKBDLSTAUXUSR>¯2æÍîÍ$*â#~þ ͶÍ$*â:æ·> >w###6ÀÃÖþ þ #6++pÉ>¯2æíSäÍ-Í$Ͷ:Ù·À*â6###ww#w$w#wÖÿ:æ· åÍôá##N#F*ä·íBÈ>�à å¯w#w#í[äs#ráÃó>¯2æÍSÍ$ͶÍ$*â6å ë#Íá-¯Nw#FwÖÿq#p#6€#w#w#wÉÍß*â ë:æ·( ÕÍÑñÅÍÁ<Àxà *â6#ûÉ"â#~+þ 2ËN(>Í’:Ù· *âË^ îËFÈ*âå ëÍá< >ÿ2Ù6É"â~æÈÍŸ*â-¯w#wÕÿw#ÍóÍŸÀ"â~æÈ·ÍÀ ëÍ<À@ýá*ÛͲ¯áýåÍÀåÍ÷áåë!\ í°á åëÍÑ<Ê®!\$í°É>à >¯2æÍÀ*ß|µ>! ë*â \$í°\Í<(Ï!ý€í°:æ· í[1Ã�ÿÕÍ\ÍÑ!€ë·(éf"âÍÂÈ> 2ÙÉ:Ù·ÈñÉÝáÝåå!ÊÍ<áÉÝáÝå"âËF( #~þÀ#6Ãe>Îå!ÊÍ[áÉ"âËNÀ>ë!Ú~þ€8>O6*Û"ÝÍwþ (=þ(&þ("þ(þ :á·(ßÃNþ 8Øyº(Ô~#ÍèÌúx+Í% (½ï6Éå*â#~þáÉÍÂÈÍ[þÈÅÕå*â#~· *Ý~þ(h#"Ýb= Íõþ 8Íèþ ÌáñJ= ÍB== ͯ}8= ͵}/Í­ !*â###å~Æ-_~áþ(4òQ6*âËÖ>™2Ù>*â##wáÑÁÉ:Ù·>Àå*â##~áÉå*â#~þÿ(EÍÌÍ[þ ( þ (þ (þ ÍÖè!]Í[þ (þ (þ (þ(w#(ÍÖãÍÂÌÖ6áÉÝ!]Ý~·Èþ-ÀÝ#É8Ý~·È>7à ëÍ Í[ÃÖÍÖÉ>¯OÅÍkÁͼÈÅåÍÁÑÁÍÎØÌMës #rëÉÍkͼÈÅåÍpÙáÁÍÎØÙÌX ÙáåÍÌÍ[þ ÍÖôÍ[þ (þ( #w(ÍÖêÍÂÌÖáqÉ*â#~þÊáÍ[þ (þÈÍÖñÍ ÍÖþ ÀÃÖ*â##~þÈ6ÉÅÕåÍœáÑÁÉOÍ$*â#~þ(08áÅå·Ê¦=ʦ==Ê©=ʬò+ËÞ###å~Æ-_qá4ð6Í¡È>ðà *æ:è¾È4^qÉ}Ã’ÁÑÅÝ*ÛË|(ÍMëëË|( ÍMÝ6-Ý#ÕÍ�áͦí[ÛÝåá·íRë“8 (G> Í’ùCÈ~Í’#÷ÁÑÙáÑÁÙÅÝ*ÛÕÍôÇÁÑÅͦËC!h Ç!lÀTRUEFALSEͦ!9^#Í(ÑùÕÉá~#·(G~Í’#ùé> Í’> Ã’ "âËF!ÈÍ[¸(þÀ#ÉåÍRë·íRá0Íô*â4À#4É>™Ã åÍR·íR *â4 #4(áÍóÒ>òÜ>¯2çÍ$ë*âËV(/Ë–:ç·(#~+· x· y·ú2ÅÕ!͵ÑÁ( =(þ X:ç·(R*â:ç·(ËÞ###~Æ-Õ_ÑÖ-ÍŒí âX<òN=<ÍŒ*â###æw ÅÕåÍŸáÑÁ Õ*Ñ4 #4x±ÂüëÉ>™>ðà õ:ç·(ëñÉ"âÍŸÈè"*âËÖË^ÈËž*âËVÈË–åÅ0ëÍÁá ëÍ·ÉÁÑíSâÅåÍRÑ·íR8A*â N#F#s#rÍ$ 0}æ)ëíjëS\*â###w* N#Fë·íB ÈÕåÍŸÑár+sÉ>‘à ÕÙáÙ!T]>)ëíjëÙ)Ù0 0= ïÉÍU·íR!À#ÉÍUëÉ*â^#V#ÕN#F#^#VáÉ>">!2çDMÝáÑáÝå"â~æÊóx±(LÅÕÍ*â ë:çOÍÑÁ·(o:çþ" C}=(þ ?ÅÕ*â-N#Fp+qÛÿq#pÑÁ!€ë °*â F+N+++V+^ë·íBÐëq#pÉ>™>ð>à ÁÑíSâÅåÍRÑ·íRÚ*â s#r$ s#rÉ"äíSæëá"â! N#Fë·íB(^x± *â 6#ûí[âÍ<(H*â! íKäq#p##ëíKæÅÕÍí[â!Í· *â! 4 #4Ñ!€ëÁ x± Õ*â$ éÝ*â>ðÃw"òëáã"ô{æü_!í"ëÝ*íÝnÝf}´(HíR0ÝnÝfåÝ"ëÝáã Ý^ÝVÝåMDÝnÝfÝåÝÝuÝtÝqÝpÝåÑ*ës#rÑ*ôs#rÉÝåá"Í*ò ÝåÁ Ú5íKÏíB!Úð>ÿÃuëáã~#fo{æü_ë"ò*íåÝá·íR0RÝnÝfå·íR0ÝáðáÕýáíKòýqýpýuýtÝsÝrÝåáÝNÝFÍÄ( Ý^ÝVÕÝáÝåáÝNÝFÝ^ÝV*ííSíÕÝáÝuÝtíKòÝqÝpë ·íRÀÕýá*Í·íR(ý~Ýwý~Ýwýnýf ÝuÝt¯ÉÝåá"Í6#ûÉÍ *öÉÍ *øÉ!"ö"øÝ*íÝNÝFy°(*ö "ö*ø·íB0íCøÝnÝfåÝáØ*Ïûÿ í[Í·íRØë*ö"ö*ø·íRÐíSøÉí[Ís#rÉ^#VíSÍÉ>¯O"æ¯w2Ùx2è!ê"âá"äá ÍöÍ@*äé>¯2ê"æ!ê"âá"äá"è!\Ͳ¯*è:ê· ÍîÍ!Ù~6·go(Ýåá\íRë*æs#r¯ÿí_2ÔÉëÝáÁáx±( s x±(T]í°ÝéDMÝáÑá·íR0ð ë ëí¸ÝéÑÁÕ-a%ÃÆ}Í„oÉ*é!Ù~6o&ÉÍ |µÈÍ£}þÀÝáÍ%^C User break1:Ù·ÈÝáõÍ% I/OÝáÍ% Run-timeÍ% error Í’Í%, PC=Ýåáí[Õ·íR"×Í�Í% Program aborted*ßé1!ÀϸÿÍ�!¯@ÍͲâ@ýáá}2RÍýå!å*RÍ&ÑÍ5z³Ê- Õ"ZÍ!å*WÍ&å*ZÍÑå!Ñë·íRÍͽ*ZÍ#ÑÃý!å*WÍ&ÍÉ!å!ÑÍ5z³Ê³ Õ"bÍ!(å!ÍÍRÍ�-Span too narrow-!ÍòÍb!2ÍB!(å!ÍÍRÍ� Íb!2ÍB*bÍ#ÑÃE É!åÍçÍRÍ� Graph title:Íb!qÍÍ+4Í.ÍbÉ!åÍç!rÎÍüÙ!fÎÍ¡ÍRÍ�Value/block is now: !rÎÍüÅÕå!å!Í@Í� New value:Íb!dÍÍ+ Í.Í_Íb!dÍÍ !rÎå!ZÍÍ�*ZÍå!ÑÍaå!dÍÍ ÍÍ\Ñ}³oå!rÎÍüÅÕå!sâX·QÙáÑÁ͸Ñ}³oËEÊÄ!!fÎÍüÙ!rÎÍ¡ÍRÍ�Please re-enter!ÍòÍbÍà !å*WÍ&å!ÑÍͽÉ!åÍçÍRÍ�Define the minimum scale value:Íb!dÍÍ+ Í.Í_Íb!dÍÍ !lÎå!ZÍÍ�*ZÍå!ÑÍaå!dÍÍ ÍÍ\Ñ}³oËEÊ„"ÍRÍ�Please re-enter!ÍòÍbÍÚ!!å*WÍ&å!ÑÍͽÉ!å!ÍÍRÍ�Low--high bars ? Y/N :Íb!¾Í8!SÍÍÛÍb*SÍ&Í(åÍQ!NÍa!YÍaÍËEʯ"*SÍ&Í(}2SÍÍR*SÍ&å!€ÑÍòÍbÉ!åÍçÍRÍ� Name of bar #*\Íå!Íö!:ÍòÍb!å*WÍ&ÍÍR!<ÍòÍb!å*WÍ&Í!¦Íå*\Í+)å))ÑÑÍ+ Í.ÍbÉ*SÍ&å!YÑÍNËEÊ«$!åÍçÍRÍ�Lowest value of !¦Íå*\Í+)å))ÑÑÍ !ÍqÍ� :Íb!dÍÍ+ Í.Í_Íb!dÍÍ !äÎå*\Í+)]T)Ñå!ZÍÍ�*ZÍå!ÑÍaå!dÍÍ ÍÍ\Ñ}³oå!äÎå*\Í+)]T)ÑÍüÅÕå!�PÃÙáÑÁ͸Ñ}³oå!äÎå*\Í+)]T)ÑÍüÅÕå!�PCÙáÑÁÍ¥Ñ}³oËEÊ–$!"å*WÍ&å!ÑÍÍRÍ�Please re-enter!ÍòÍbÍm#!å*WÍ&å!ÑÍͽÉ!(å*WÍ&Íͽ*SÍ&å!YÑÍNËEÊÜ$ÍRÍ�High ÍbÍRÍ�Value of this bar:Íb!dÍÍ+ Í.Í_Íb!dÍÍ !xÎå*\Í+)]T)Ñå!ZÍÍ�*ZÍå!ÑÍaå!dÍÍ ÍÍ\Ñ}³oå!xÎå*\Í+)]T)ÑÍüÅÕå!�PCÙáÑÁÍ¥Ñ}³oå!xÎå*\Í+)]T)ÑÍüÅÕå!�PÃÙáÑÁ͸Ñ}³oå*SÍ&å!YÑÍNå!xÎå*\Í+)]T)ÑÍüÅÕå!äÎå*\Í+)]T)ÑÍüÙáÑÁ͸Ñ}£oÑ}³oËEÊ&!(å*WÍ&å!ÑÍÍRÍ�Please re-enter!ÍòÍbͬ$!å*WÍ&å!ÑÍͽ*TÍ&Í(å!CÑÍaå*TÍ&Í(å!IÑÍaÑ}£oå*\Íå!ÑͯÑ}£oËEʰ&ÍRÍ� More? Y/N :Íb!¾Í8!UÍÍÛÍb*UÍ&Í(}2UÍ*UÍ&åÍQ!NÍa!YÍaÍËEÊx&!PÏå*\Í+)]T)Ñå!xÎå*\Í+)]T)ÑÍüÙáÍ¡*SÍ&å!YÑÍNËEÊ,'!xÎå*\Í+)]T)Ñå!PÏå*\Í+)]T)ÑÍüÅÕå!äÎå*\Í+)]T)ÑÍüÙáÑÁͼ ÙáÍ¡!2ÍBÉ!”$ôÙ!ZÎÍ¡!”$tÙ!`ÎÍ¡!å*\ÍÑÍ5z³Êa(Õ"bÍ*SÍ&å!NÑÍNå!xÎå*bÍ+)]T)ÑÍüÅÕå!`ÎÍüÙáÑÁ͸Ñ}£oËEʹ'!xÎå*bÍ+)]T)ÑÍüÙ!`ÎÍ¡*SÍ&å!YÑÍNå!äÎå*bÍ+)]T)ÑÍüÅÕå!`ÎÍüÙáÑÁ͸Ñ}£oËEÊ (!äÎå*bÍ+)]T)ÑÍüÙ!`ÎÍ¡!PÏå*bÍ+)]T)ÑÍüÅÕå!ZÎÍüÙáÑÁÍ¥ËEÊK(!PÏå*bÍ+)]T)ÑÍüÙ!ZÎÍ¡!`ÎÍüÙ!fÎÍ¡*bÍ#ÑÃ^'!`ÎÍüÅÕå!ÍÑÙáÑÁÍ¥å*SÍ&å!NÑÍNÑ}£oËEÊ›(!ÍÑÙ!`ÎÍ¡!`ÎÍüÅÕå!ÍÑÙáÑÁ͸å!ZÎÍüÅÕå!ÍÑÙáÑÁÍ¥Ñ}£oå*SÍ&å!YÑÍNÑ}³oËEÊí(!4}2VÍÃô(!:}2VÍ!ZÎÍüÅÕå!ÍÑÙáÑÁ͸å*SÍ&å!NÑÍNÑ}£oËEÊE)!`ÎÍü˸ÅÕå*VÍ&ÍÑÙáÑÁÍÉ Ù!rÎÍ¡Ãv)!ZÎÍüÅÕå!`ÎÍüÙáÑÁͼ ˸ÅÕå*VÍ&ÍÑÙáÑÁÍÉ Ù!rÎÍ¡!rÎÍüÅÕå!ÐÍÑÙáÑÁÍ‘ËEÊž)!ÐÍÑÙ!$ÍÍ¡!rÎÍüÅÕå!èÍÑÙáÑÁÍ‘ËEÊÆ)!èÍÑÙ!$ÍÍ¡!rÎÍüÅÕå!ôÍÑÙáÑÁÍ‘ËEÊî)!ôÍÑÙ!$ÍÍ¡!rÎÍüÅÕå!ÈÍÑÙáÑÁÍ‘ËEÊ*!ÈÍÑÙ!$ÍÍ¡!rÎÍüÅÕå!dÍÑÙáÑÁÍ‘ËEÊ>*!dÍÑÙ!$ÍÍ¡!rÎÍüÅÕå!2ÍÑÙáÑÁÍ‘ËEÊf*!2ÍÑÙ!$ÍÍ¡!rÎÍüÅÕå!ÍÑÙáÑÁÍ‘ËEÊŽ*!ÍÑÙ!$ÍÍ¡!rÎÍüÅÕå! ÍÑÙáÑÁÍ‘ËEʶ*! ÍÑÙ!$ÍÍ¡!rÎÍüÅÕå!ÍÑÙáÑÁÍ‘ËEÊÞ*!ÍÑÙ!$ÍÍ¡!rÎÍüÅÕå!ÍÑÙáÑÁÍ‘ËEÊ+!ÍÑÙ!$ÍÍ¡!rÎÍüÅÕå!ÍÑÙáÑÁÍ‘ËEÊ.+!ÍÑÙ!$ÍÍ¡!rÎÍüÅÕå!€ÙáÑÁÍ‘ËEÊ\+!€Ù!$ÍÍ¡!rÎÍüÅÕå!~ÌÌÌÌLÙáÑÁÍ‘ËEÊŠ+!~ÌÌÌÌLÙ!$ÍÍ¡!rÎÍüÅÕå!}ÌÌÌÌLÙáÑÁÍ‘ËEʸ+!}ÌÌÌÌLÙ!$ÍÍ¡!rÎÍüÅÕå!|ÌÌÌÌLÙáÑÁÍ‘ËEÊæ+!|ÌÌÌÌLÙ!$ÍÍ¡!rÎÍüÅÕå!{p= ×#ÙáÑÁÍ‘ËEÊ,!{p= ×#Ù!$ÍÍ¡!rÎÍüÅÕå!zp= ×#ÙáÑÁÍ‘ËEÊB,!zp= ×#Ù!$ÍÍ¡!rÎÍüÅÕå!yp= ×#ÙáÑÁÍ‘ËEÊp,!yp= ×#Ù!$ÍÍ¡!rÎÍüÅÕå!x�—nÙáÑÁÍ‘ËEÊž,!x�—nÙ!$ÍÍ¡!rÎÍüÅÕå!w�—nÙáÑÁÍ‘ËEÊÌ,!w�—nÙ!$ÍÍ¡!rÎÍüÅÕå!v�—nÙáÑÁÍ‘ËEÊú,!v�—nÙ!$ÍÍ¡!rÎÍüÅÕå!tâX·QÙáÑÁÍ‘ËEÊ(-!tâX·QÙ!$ÍÍ¡!$ÍÍü˸Ù!rÎÍ¡!ZÎÍüÅÕå!rÎÍüÙáÑÁÍÉ ÅÕå!ÍÑÙáÑÁÍÉ Í™å! ÑÍÄ"bÍ*bÍå! Ñë·íR"bÍ!`ÎÍüÅÕå*bÍå!rÎÍüÙáÍÑÍÄ ÅÕå!w à-ÅÕå!rÎÍüÙáÑÁÍÄ ÙáÑÁͼ ÙáÑÁÍ}ËEÊk-*bÍå!rÎÍüÙáÍÑÍÄ Ù!lÎÍ¡É!åÍçÍRÍ�For changes, press:Í�ÍbÍRÍ�A1: title, 2: scale factor, 3: min scale, 4: bar change, else Íb!¾Í8!UÍÍÛÍb*UÍ&åÍQ!1å!4Ík! ÍaÍËEÊP.!2ÍB*UÍ&1·íRš.Í´ Ã02·íR±.!åÍçÍà Ã03·íRÂÈ.!åÍçÍÚ!Ã04·íRÂ0!åÍç*\Í"^Í!"\ÍÍRÍ�6Enter number of bar to be changed or added, else :Íb!dÍÍ+ Í.Í_Íb!dÍÍ !\Íå!XÍÍž*\Íå!ÑÍtå*\Íå!Ñ͇Ñ}£oå*XÍå!ÑÍNÑ}£oËEÊá/Íÿ"Ím#ͬ$*\Íå*^ÍÑ͇ËEÊ•/*^Í"\ÍÍ3'*SÍ&å!YÑÍNå!rÎÍüÅÕå!tâX·QÅÕå!ZÎÍüÙáÑÁÍÄ ÙáÑÁ͸Ñ}£oËEÊÞ/Í: ÍÞ-Ãí/ÍR!ÍòÍb*\Íå*^ÍÑ͇å*\Íå!ÑÍ›Ñ}³oËEÊ0*^Í"\ÍÉÍcÍRÍ� !qÍÍ !ÍqÍ�Íb*&å!ÑÍNËEÊZ0ÍRÍ�Íb!rÎÍüÅÕå!}ÌÌÌÌLÙáÑÁ͸ËEÊ�0!"XÍÇ0!"XÍÍRÍ� Íb!å!ÑÍ5z³Êù0Õ"`Í!lÎÍüÅÕå*`Íå!rÎÍüÙáÍÑÍÄ ÅÕå! ÍÑÙáÑÁÍÄ ÙáÑÁͳ ÍRÅÕå! å*XÍÍ@Íb*`Í#Ñâ0ÍRÍ�ÍbÍRÍ�J |+++++++++|+++++++++|+++++++++|+++++++++|+++++++++|++++++++Í�Íb!å*\ÍÑÍ5z³Ê÷8Õ"`Í!¦Íå*`Í+)å))ÑÑÍ Ím}2Í*&å!€ÑÍNËEÊØ4*SÍ&å!YÑÍNËEÊ2!xÎå*`Í+)]T)ÑÍü˸ÅÕå!rÎÍüÙáÑÁÍÉ Í™å!Ñ"Í!äÎå*`Í+)]T)ÑÍüÅÕå!lÎÍüÙáÑÁͼ ÅÕå!rÎÍüÙáÑÁÍÉ Í™"Í*SÍ&å!NÑÍNËEÊü3!lÎÍüÅÕå!ÍÑÙáÑÁÍ}å!xÎå*`Í+)]T)ÑÍüÅÕå!ÍÑÙáÑÁÍ}Ñ}£oËEÊ»2!xÎå*`Í+)]T)ÑÍüÅÕå!rÎÍüÙáÑÁÍÉ ÅÕå!lÎÍüÅÕå!rÎÍüÙáÑÁÍÉ ÙáÑÁͼ Í™å!Ñ"Í!"Í!lÎÍüÅÕå!ÍÑÙáÑÁ͸å!xÎå*`Í+)]T)ÑÍüÅÕå!ÍÑÙáÑÁÍ}Ñ}£oËEÊK3!xÎå*`Í+)]T)ÑÍüÅÕå!rÎÍüÙáÑÁÍÉ Í™å!Ñ"Í!lÎÍüxî€GÅÕå!rÎÍüÙáÑÁÍÉ Í™"Í!lÎÍüÅÕå!ÍÑÙáÑÁÍ‘å!xÎå*`Í+)]T)ÑÍüÅÕå!ÍÑÙáÑÁ͸Ñ}£oËEÊü3!xÎå*`Í+)]T)ÑÍü˸ÅÕå!rÎÍüÙáÑÁÍÉ ÅÕå!ÍÑÙáÑÁͳ Í™"Í*Í}/o|/g#å!lÎÍüÅÕå!rÎÍüÙáÑÁÍÉ ÙáÍÑͼ Í™å!Ñ"Í*`ÍÍRå!ÍöÍ� !¦Íå*`Í+)å))ÑÑÍ *Í&ÍqÍb!å! å*Í&Ñë·íRÑÍ5z³Êb4Õ"ÍÍR! ÍòÍb*Í#ÑÃD4ÍR!|ÍòÍb!å*ÍÑÍ5z³Ê—4Õ"ÍÍR! ÍòÍb*Í#ÑÃy4ÍR!ÍòÍb!å*ÍÑÍ5z³ÊÌ4Õ"ÍÍR!IÍòÍb*Í#Ñî4ÍRÍ�ÍbÃî8*SÍ&å!YÑÍNËEÊ‚5!xÎå*`Í+)]T)ÑÍü˸ÅÕå!rÎÍüÙáÑÁÍÉ ÅÕå!ÍÑÙáÑÁÍÄ Í™"Í!äÎå*`Í+)]T)ÑÍüÅÕå!rÎÍüÙáÑÁÍÉ ÅÕå!lÎÍüÅÕå!rÎÍüÙáÑÁÍÉ ÙáÑÁͼ ÅÕå!ÍÑÙáÑÁÍÄ Í™å!Ñ"Í*SÍ&å!NÑÍNËEÊÁ7!lÎÍüÅÕå!ÍÑÙáÑÁÍ}å!xÎå*`Í+)]T)ÑÍüÅÕå!ÍÑÙáÑÁÍ}Ñ}£oËEÊ46!xÎå*`Í+)]T)ÑÍüÅÕå!rÎÍüÙáÑÁÍÉ ÅÕå!lÎÍüÅÕå!rÎÍüÙáÑÁÍÉ ÙáÑÁͼ ÅÕå!ÍÑÙáÑÁÍÄ Í™"Í!"Í!lÎÍüÅÕå!ÍÑÙáÑÁ͸å!xÎå*`Í+)]T)ÑÍüÅÕå!ÍÑÙáÑÁÍ}Ñ}£oËEÊã6!xÎå*`Í+)]T)ÑÍüÅÕå!rÎÍüÙáÑÁÍÉ ÅÕå!ÍÑÙáÑÁÍÄ Í™"Í!å!lÎÍüÅÕå!rÎÍüÙáÑÁÍÉ ÅÕå!ÍÑÙáÑÁÍÄ Í™Ñë·íR"Í!lÎÍüÅÕå!ÍÑÙáÑÁÍ‘å!xÎå*`Í+)]T)ÑÍüÅÕå!ÍÑÙáÑÁ͸Ñ}£oËEÊÁ7!xÎå*`Í+)]T)ÑÍü˸ÅÕå!rÎÍüÙáÑÁÍÉ ÅÕå!ÍÑÙáÑÁÍÄ Í™"Í!å!lÎÍüxî€GÅÕå!rÎÍüÙáÑÁÍÉ ÅÕå!xÎå*`Í+)]T)ÑÍüÅÕå!rÎÍüÙáÑÁÍÉ ÙáÑÁͳ ÅÕå!ÍÑÙáÑÁÍÄ Í™Ñ"Í*Íå*ÍÑå!Ñå!ÑÍ"Í*Íå*ÍÑå!Ñå!ÑÍÞ"ÍÍRÍ� !¦Íå*`Í+)å))ÑÑÍ *Í&ÍqÍb!å! å*Í&Ñë·íRÑÍ5z³ÊS8Õ"ÍÍR! ÍòÍb*Í#ÑÃ58ÍRÍ�œÍbÍRÍ�K*ÍÍò*ÍÍòÍb!å*ÍÑÍ5z³Ê 8Õ"ÍÍR!ÍòÍb*Í#ÑÂ8ÍR!ÿÍòÍb!å*Íå!Ñë·íRÑÍ5z³ÊÞ8Õ"ÍÍR!�ÍòÍb*Í#ÑÃÀ8ÍRÍ�ÿ@Í�Íb*`Í#ÑÃd1ÍRÍ�J  |+++++++++|+++++++++|+++++++++|+++++++++|+++++++++|++++++++Í�Íb!€}2É!åÍçÍRÍ�Enter number of bar to delete:Íb!dÍÍ+ Í.Íb!dÍÍ !`Íå!ZÍÍž*ZÍå!ÑÍNå*`Íå*\ÍÑ͇Ñ}£oå*`Íå!ÑÍ›Ñ}£oå!dÍÍ ÍÍoÑ}£oËEÊt;*`Íå*\Íå!Ñë·íRÑÍ5z³ÊÁ:Õ"bÍ!¦Íå*bÍ+)å))ÑÑå!¦Íå*bÍå!Ñ+)å))ÑÑÍ  ÍÑ!äÎå*bÍ+)]T)Ñå!äÎå*bÍå!Ñ+)]T)ÑÍüÙáÍ¡!xÎå*bÍ+)]T)Ñå!xÎå*bÍå!Ñ+)]T)ÑÍüÙáÍ¡!PÏå*bÍ+)]T)Ñå!PÏå*bÍå!Ñ+)]T)ÑÍüÙáÍ¡*bÍ#ÑÃù9*\Íå!Ñë·íR"\Í*\Íå!Ñå!ÑÍ5z³Ê^;Õ"bÍ!¦Íå*bÍ+)å))ÑÑåÍ ÍÑ!äÎå*bÍ+)]T)Ñå!ÍÑÙáÍ¡!xÎå*bÍ+)]T)Ñå!ÍÑÙáÍ¡!PÏå*bÍ+)]T)Ñå!ÍÑÙáÍ¡*bÍ#ÑÃá:*\Íå!ÑÍ›ËEÊq;Í3'À;ÍR!ÍòÍbÉ!åÍç*\Íå!ÑͯËEÊ@=ÍRÍ�Enter number of bar to insert:Íb!dÍÍ+ Í.Íb!dÍÍ !`Íå!ZÍÍž*\Íå!Ñ"bÍ*ZÍå!ÑÍNå*`Íå*\ÍÑ͇Ñ}£oå*`Íå!ÑÍ›Ñ}£oå!dÍÍ ÍÍoÑ}£oËEÊ1=*bÍå*`ÍÑÍ›ËEÊ=*bÍå!Ñë·íR"bÍ!¦Íå*bÍå!Ñ+)å))ÑÑå!¦Íå*bÍ+)å))ÑÑÍ  ÍÑ!äÎå*bÍå!Ñ+)]T)Ñå!äÎå*bÍ+)]T)ÑÍüÙáÍ¡!xÎå*bÍå!Ñ+)]T)Ñå!xÎå*bÍ+)]T)ÑÍüÙáÍ¡!PÏå*bÍå!Ñ+)]T)Ñå!PÏå*bÍ+)]T)ÑÍüÙáÍ¡Ã,<*\Íå!Ñ"\Í*\Í"^Í*`Í"\ÍÍÿ"Ím#ͬ$*^Í"\ÍÍ3'Ã==ÍR!ÍòÍbÃL=ÍR!ÍòÍbÉ*TÍ&å!RÑÍNËEÊ2?Íc!å!ÑÍ5z³Êê=Õ"\Í!¦Íå*\Í+)å))ÑÑåÍ ÍÑ!xÎå*\Í+)]T)Ñå!ÍÑÙáÍ¡!äÎå*\Í+)]T)Ñå!ÍÑÙáÍ¡!PÏå*\Í+)]T)Ñå!ÍÑÙáÍ¡*\Í#ÑÃm=ÍRÍ�!-Graph Program- Max no of bars: !å!ÍöÍ� --Use ^H as delete key--Íb!}2WÍÍ´ !å!ÍÍRÍ�--Start entering bar data--Í�Íb!}2WÍ!"\Í!Y}2UÍ*UÍ&å!YÑÍNå*\Íå!ÑͯÑ}£oËEÊÜ>*\Íå!Ñ"\Í*\Íå!ÑÍNËEÊÐ>Í…"Íÿ"Ím#ͬ$Ã�>Í3'*SÍ&å!YÑÍNå!rÎÍüÅÕå!tâX·QÅÕå!ZÎÍüÙáÑÁÍÄ ÙáÑÁ͸Ñ}£oËEÊ/?Í: ÍÞ-! }2TÍÍ3'Í0!"XÍ!åÍçÍRÍ�;(P)rint--Ready printer (D)elete bar (I)nsert bar (R)e-doÍ�ÍbÍRÍ�6(C)hanges-- or add bar (A)utoscale (S)top ?Íb!¾Í8!TÍÍÛÍb*TÍ&Í(åÍQ!AÍa!CÍa!DÍa!IÍa!PÍa!RÍa!SÍaÍËEÊÇ?*TÍ&Í(}2TÍ*TÍ&S·íRÂ:@!�ÍBÍÅÛ@P·íRÂN@!}2Û@R·íRÂ^@ÍM=Û@C·íRÂn@ÍÞ-Û@A·íRÂ~@Í3'Û@D·íRÂŽ@ÍV9Û@I·íR›@Í�;Í0ÍM=É!R}2TÍÍM=ÃÅ�ÍBÍÅÃ,@P·íRÂP!}2ÃB@R·íRÂRÍM=ÃV@C·íRÂCÍÞ-Ãf@A·íRÂAÍ3'Ãv@ Instructions for using BARG graph program Thió prograí ió writteî iî TurbïPascaì anä ió supplieä iî botè � compileä anä sourcå codå versions® Iô wilì ploô simplå baò � graphó witè typed-iî inputs® Thå maximuí numbeò oæ baró ió � arbitrarilù seô aô 18--iî ordeò tï bå ablå tï vie÷ thå completå � grapè oî screeî withouô scrolling. Some of the features of this program are: 1© Auto-scaling¬ thå parameteró oæ whicè maù lateò bå changeä bù � the user. A 1-2-5 sequence is used. 2© Yoõ havå thå abilitù tï changå alì inputó anä tï delete¬ � insert and add bars. 3) Accepts plus & minus, single value or min-max type inputs. 4© Printó grapè usinç thå graphiã capabilitieó oæ aî Epson-typå � printer® (Thå printeä grapè haó ¶ timeó thå resolutioî oæ � thå screeî graph). 5) Protection from most input errors--not guaranteed! 6) One-key menu selections. 7) Bars are numbered on the screen as an aid in making changes. Specifications: 1) Maximum number of bars.................18 2) Input limit............................50000 3) Bar label length.......................9 characters 4) Printer port...........................Parallel 5) Title length...........................52 characters 6) Screen width...........................80 characters (Will operate with 52--with scrolling) Usinç thå program: Foò thå compileä version¬ aô A>¬ enteò BARG® Yoõ wilì bå askeä � foò thå title® Tï omit¬ hiô RET® Next¬ selecô Min-Maø typå baró � --Y/N® Iæ `Y§ ió selected¬ twï valueó foò eacè baò musô bå � entered® Enteò datá foò eacè baò iî thå graph¬ answerinç `Y§ tï � More¿ untiì finished® Iæ thå answeò ió `N'¬ thå grapè wilì bå � plotteä oî thå screen® Á menõ oæ choiceó ió theî presenteä oî � thå screen: (A)utoscale..Iæ yoõ gooæ uð thå scalå manually¬ Autï wilì brinç � it back to the original settings. (C)hanges....Another menu is shown: 1:title 2:scale factor 3:min scale 4:change (or add) a bar. (D)elete.....delete a bar. (I)nsert.....insert a bar into the present graph. (P)rint......print the graph on an Epson style printer. (R)e-do......start over. (S)top.......stop the program and return to the system. Some limitations: 1) Narrow spans relative to values are rejected (min-max type) 2) Auto-scaling may not be optimum--change manually to suit. 3) Minimum scale for all + inputs is 0. For +/- and min-max bars, minimum scale adjusts for best fit. Any of the above may be adjusted manually before printing. ŠOther comments: Foò seriaì printers¬ changå IObytå froí ² tï ± iî thå � appropriate places. Foò non-graphiã printers¬ deletå graphiã printinç sectionó oæ � procedurå `Print'¬ anä uså thå screeî prinô section® Harä copù � wilì theî resemblå thå screeî graph. Á suggestioî foò Pascaì programmers--adä aî Includå modulå foò � savinç grapè parameteró tï á disë file® Thå prograí woulä theî � be useful for tracking stock prices. The hard copy bars are hollow. To change to solid bars, change #129 to #255 in the print procedure. É apologizå foò thå packeä code¬ buô iô jusô takeó toï lonç tï � print a listing otherwise. Eä Buttenhofæ | Computerº Osbornå 1¬ DD¬ 80-104 col. 807 7th St NW | 1.43 ROM Granä Rapids¬ MÎ 5574´ | Printerº Epsoî MX80FÔ � 218-326-2619 FOG #8115 | Lang. : TurboPascal 2 her comments: Foò seriaì printers¬ changå IObytå froí ² tï ± iî thå � appropriate places. Foò non-graphiã printers¬ deletå graphiã printinç sectionó oæ � procedurå `Print'¬ anä uså thå screeî prinô section® Harä copù � wilì theî resemblå thå screeî graph. Á suggestioî foò Pascaì programmers--adä aî Includå modulå foò � savinç grapè parameteró tï á disë file® Thå prograí woulä theî � be useful for tracking stock prices. The hard copy bars are hollow. To change to solid bars, change #129 to #2Program Barg; {12/11/1984 Ewb} Const Prmpt='Please re-enter';Grid= ' |+++++++++|+++++++++|+++++++++|+++++++++|+++++++++|++++++++'; F=18; {Max bars} Type N=string[9]; Var Vh,Mn,V:array[1..F]of real; {Bar vals} VB,M,L,Le,Mo:real; {Value/block, Min scale and Min-Max of inputs} na:array[1..F]of N; {Bar names} T:string[52]; {Title} Amt:string[12];{Holds inputs until checked} I,J,D,A,B,E:Integer;G,Y:Byte; ch,ca,Cha:char; {Char inputs} IObyte:Byte absolute $0003; {Lst device} Procedure Blk(X:Byte); begin For B:=1 to X do begin GotoXY(1,G+B-1);ClrEOL;end;GotoXY(1,G); end; Procedure Msg; begin For I:=1 to 6 do begin GotoXY(40,24);Write('-Span too narrow-',^G);Delay(50); GotoXY(40,24);Write(' ');Delay(50);end; end; Procedure Title; begin Blk(2);Write('Graph title:');Read(T); end; Procedure Scale; begin Blk(1);L:=Vb;Write('Value/block is now: ',Vb:8:4,' New value:'); Readln(Amt);Val(Amt,Vb,B);If (b<>0)or(Amt='')or(Vb<0.0001) then begin VB:=L;write(Prmpt,^G);Scale;end;GotoXY(1,G+1);ClrEOL; end; Procedure Min; {Minimum scale} begin Blk(1);Write('Define the minimum scale value:'); Readln(Amt);Val(Amt,M,B);If (B<>0)or(Amt='')then begin write(Prmpt,^G);Min;GotoXY(1,G+1);ClrEOL;end; end; Procedure LHbar; begin GotoXY(20,17);Write('Low--high bars ? Y/N :'); Repeat Read(kbd,Cha);until Upcase(Cha)in['N','Y'];Cha:=Upcase(Cha); Write(chr(ord(Cha)+128)); end; Procedure Nam; begin Blk(2);write('Name of bar #',A:2,':'); GotoXY(26,G);Write('<');GotoXY(17,G);Read(na[A]); end; Procedure Minb; begin If cha='Y'then begin Blk(1);Write('Lowest value of ',Na[A],' :');Readln(amt); Val(Amt,Mn[a],B);If(B<>0)or(Amt='')or(Mn[a]<-5E4)or(Mn[A]>5E4)then begin GotoXY(34,G+1);Write(prmpt,^G);Minb;end;GotoXY(1,G+1);ClrEOL;end; end; Procedure Value; begin GotoXY(40,G);ClrEOL;If cha='Y'then write('High '); Write('Value of this bar:');Readln(amt);Val(Amt,v[a],B); If(B<>0)or(Amt='')or(V[a]>5E4)or(V[a]<-5E4)or((Cha='Y')and (V[a]'C')and (Upcase(ca)<>'I')and(AMo then Mo:=Vh[I];L:=Le;end;If(Le>0)and(Cha='N')then Le:=0;If(Le<0) and(Mo>0)or(Cha='Y')then Y:=52 else Y:=58; If(Mo<0)and(Cha='N')then Vb:=Abs(Le)/Y else Vb:=(Abs(Mo-Le))/Y; If Vb<=2000 then Vc:=2000; If Vb<=1000 then Vc:=1000; If Vb<=500 then Vc:=500; If Vb<=200 then VC:=200; If Vb<=100 then Vc:=100; If Vb<=50 then Vc:=50; If Vb<=20 then Vc:=20; If Vb<=10 then Vc:=10; If Vb<=5 then Vc:=5; If Vb<=2 then Vc:=2; If Vb<=1  then Vc:=1; If Vb<=0.5 then Vc:=0.5; If Vb<=0.2 then Vc:=0.2; If Vb<=0.1 then Vc:=0.1; If Vb<=0.05 then Vc:=0.05; If Vb<=0.02 then Vc:=0.02; If Vb<=0.01 then Vc:=0.01; If Vb<=0.005 then Vc:=0.005; If Vb<=0.002 then Vc:=0.002; If Vb<=0.001 then Vc:=0.001; If Vb<=0.0005 then Vc:=0.0005; If Vb<=0.0002 then Vc:=0.0002;Vb:=Abs(Vc); I:=Round(Mo/VB/8)*10;Repeat I:=I-10;until Le>=I*Vb-0.0011*Vb;M:=I*Vb; end; Procedure Corr; begin Blk(2);Writeln('For changes, press:'); Write('1: title, 2: scale factor, 3: min scale, 4: bar change, else '); Repeat Read(Kbd,ch);Until ch in['1'..'4',#13];Delay(50);case ch of '1': Title;'2':begin Blk(2);Scale;end;'3':begin Blk(2);Min;end;'4':begin Blk(2); D:=A;A:=0;Write('Enter number of bar to be changed or added, else :'); Readln(Amt);Val(amt,A,E);If(A >=1)and(A<=F)and(E=0)then begin Nam;Minb; Value;If A<=D then A:=D;Auto;If(Cha='Y')and(Vb<0.0002*Mo)then begin Msg; Corr;end;end else Write(^G);If(A<=D)or(A>F)then A:=D;end;end; end; Procedure Print; Var C,L,R,R1,R2,S:Integer;K:Byte; begin Clrscr;Writeln(' ',T);If IObyte=2 then Writeln; If Vb<0.1 then E:=2 else E:=0; Write(' ');For J:=0 to 5 do write(M+J*VB*10:10:E);Writeln;Writeln(Grid); For J:=1 to A do begin {Plot `A' no. of bars}K:=Length(Na[J]); If IObyte=128 then begin {Plot screen bar} If Cha='Y'then begin {Calc min-max bar} R:=Round(Abs(V[J])/Vb)+1;S:=Round((Mn[J]-M)/Vb);end; If cha='N'then begin If(M>=0)and(V[J]>=0)then begin R:=Round(V[J]/Vb-M/Vb)+1;S:=0;end; If(M<0)and(V[J]>=0) then begin R:=Round(V[J]/Vb)+1;S:=Round(-M/Vb);end; If(M<=0)and(V[J]<0) then begin R:=Round(Abs(V[J])/Vb+1); S:=Round(-R-M/Vb)+1;end;end; write(J:2,' ',na[J]:K);For L:=1 to 10-K do Write(' ');Write('|'); For c:=1 to S do Write(' ');Write(#8);for c:=1 to R do write('I');Writeln; end else begin {Plot bar with printer graphics} If cha='Y'then begin R:=Round((Abs(V[J])/Vb)*6);S:=Round((Mn[J]/Vb-M/Vb)*6)+2;end; If cha='N'then begin If(M>=0)and(V[J]>=0)then begin R:=Round((V[J]/Vb-M/Vb)*6);S:=2;end; If(M<0)and(V[J]>=0) then begin R:=Round((V[J]/Vb)*6);S:=2-Round(M/Vb*6);end; If(M<=0)and(V[J]<0) then begin R:=Round((Abs(V[J])/Vb)*6); S:=2+Round((-M/Vb+(V[J]/Vb))*6);end;end; R1:=(R+S+1)mod 256;R2:=(R+S+1)div 256; Write(' ',na[J]:K);For L:=1 to 10-K do Write(' ');Write(#156#8); Write(#27#75,char(R1),char(R2));For c:=1 to S do Write(char(0));Write(#255); For c:=1 to R-1 do Write(#129);Writeln(#255#27#64);end;end;{End Epson G} Writeln(Grid);IObyte:=128; end; Procedure Del; begin Blk(2);Write('Enter number of bar to delete:');Read(Amt);Val(Amt,J,B); If(B=0)and(J<=A)and(J>0)and(Amt<>'')then begin For I:=J to A-1 do begin Na[I]:=Na[I+1];Mn[I]:=Mn[I+1];V[I]:=V[I+1];Vh[I]:=Vh[I+1];end;A:=A-1; For I:=A+1 to F do begin Na[I]:='';Mn[I]:=0;V[I]:=0;Vh[I]:=0;end; If A>0 then Auto;end else Write(^G); end; Procedure Insert; begin Blk(2);If A0) and(Amt<>'')then begin While I>J do begin I:=I-1;Na[I+1]:=Na[I]; Mn[I+1]:=Mn[I];V[I+1]:=V[I];Vh[I+1]:=Vh[I];end;A:=A+1;D:=A;A:=J;Nam; Minb;Value;A:=D;Auto;end else Write(^G);end else Write(^G); end; Procedure Pm; {Program manager} begin If ca='R'then begin clrscr;For A:=1 to F do begin Na[A]:='';V[A]:=0;Mn[A]:=0;Vh[A]:=0;end; Write('-Graph Program- Max no of bars: ',F,' --Use ^H as delete key--'); G:=4;Title;GotoXY(17,15);Writeln('--Start entering bar data--');G:=23; A:=0;Ch:='Y';While(ch='Y')and(A2"íSí°!éÍW! ÍW>2—2:·*~ æ(O!ð ·Ž'#ø0!4 æ: æG:·x *¶wX! :+ígû!5(¢*#"*#"!5 ‰!éT]# í°+6: ·ÊH!/í[÷ í°!éÍWð(too big) 0!ð+T]+í¸!é6! "'íS¯w#ú.&)#"!ð¯¶#ü·(®¯2!éÍÏ*+"|µÊH*Íϯ2!ðí[íK>2·ž'#:=2 ð8Á!4*í[íS"É:ío#û2Éé:ç!æ¾!ð Ž'#øPð!÷+¾(08 ôé!ð,:çî2ç!ðùí°!éðí°é!ùí°¯Ìž'#øé!<ÍPÍLõ>0#¾ 6 øí[÷!<~þ 60!+~þ 60#~þ0 +~þ0# ++í¸>.í¸~þ (>,ñ:ç·(>-*÷|þû0$"÷ëÃFåå> !òñå(í°ØÑ= ò> (áw#üÑÃF¯2O+wü" b:è· >>Í;þ-($þ+(þ/(þ* ¯2è2æ>+¯2è2æ ¯2è<2æÍ;þÊþÊbþÊ"þÊþ.Êöþ:0Bþ08>(Øhyþ. :þÊð<2]yþ.Êþ>½Ê,>½Ê~}þ åwxþ žþ+(pþ-(lþ*(hþ/(dxþ Ê3í[:þ  0¯ÍåÖ0O-Íåþ >0Ö0±~þ È-Íåþ ÞÉ~þ,(þ.À-~É. Ã3¹Ê3OÃ[,Â6,,Â2è—!éÍW*÷6-Í\ð*÷6 Í\*í[÷ÃååÕÅÿÍ·(öÁÑáÉæÆ0w+É6T]í°ÉÁÍ í{ÀÉ->R$ «­ª¯  INPUT BALANCE (ESC exit ^R restart ^C clear ^E erase line) ‰!éT]# í°+6: ·ÊH!/í[÷ í°!éÍWð(too big) 0!ð+T]+í¸!é6! "'íS¯w#ú.&)#"!ð¯¶#ü·(®¯2!éÍÏ*+"|µÊH*Íϯ2!ðí[íK>2·ž'#:=2 ð8Á!4*í[íS"É:ío#û2Éé:ç!æ¾!ð Ž'#øPð!÷+¾(08 ôé!ð,:çî2ç!ðùí°!éðí°é!ùí°¯Ìž'#øé!<ÍPÍLõ>0#¾ 6 øí[÷!<~þ 60!+~þ 60#~þ0 +~þ0# ++í¸>.í¸~þ (>,ñ:ç·(>-*÷|þû0$"÷ëÃFåå> !òñå(í°ØÑ= ò> (áw#üÑÃF¯2O+wü" b:è· >>Í;þ-($þ+(þ/(þ* ¯2è2æ>+¯2è2æ ¯2è<2æÍ;þÊþÊbþÊ"þÊþ.Êöþ:0Bþ08>(Øhyþ. :þÊð<2]yþ.Êþ>½Ê,>½Ê~}þ åwxþ žþ+(pþ-(lþ*(hþ/(dxþ Ê3í[:þ  0¯ÍåÖ0O-Íåþ >0Ö0±~þ È-Íåþ ÞÉ~þ,(þ.À-~É. Ã3¹Ê3OÃ[,à For the Osborne 1 & Vixen only, due to the use of their memory-mapped video capability. A simple calculator program that can add, subtract, multiply, and divide (to 2 decimal places). Ten lines are displayed before scrolling begins. Type in a number and then press one of the following: + - * / (or any other key). If you press any other key, then at the '>' on the next line, press one of the above symbols (or any other key) and the next number. If you pressed any other key at the '>', a '+' will be entered. Press ESC to exit Press CTRL-R to restart Press CTRL-C to clear screen & restart Press CTRL-E to erase current line For use in the Public Domain, not to be used for profit. written in Z80, July, 1986, by Doug Cox 140 Monroe Dr Palo Alto, Ca. 94306 (415) 949-0624 , not to be used for profit. written in Z80, July, 1986, by Doug Coxåååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå;CALC.Z80 by Doug Cox, July 1986 ;A calculator program for the Osborne 1 & Vixen. It adds, subtracts, ;multiplies, or divides 2 numbers by putting them in 2 arrays in reverse ;order as hex numbers (2 numbers in each hex number) and operating on them ;in that format. The result is then changed back to a decimal number and ;displayed. ORG 100H LD (CPMSTK),SP LD SP,STACK JR START2 LENGTH EQU 7 ;length of hex number array LENGTH2 EQU LENGTH*2 ;length of decimal number array BDOS EQU 5 SPACE EQU 20H CLSCR: LD E,1AH LD C,2 CALL BDOS ;clear screen RET START: POP BC ;RET address from CALL INIT START2: CALL CLSCR LD DE,MOVCUR LD C,9 ;print string CALL BDOS ;move cursor off the screen LD DE,0F000H ;top left of Osborne 1 screen in memory LD HL,BANNER ;' Input Balance etc LD BC,80 LDIR XOR A ;zero A LD (NSIGN),A ;initialize next sign LD DE,0F100H ;first line for input LD (LINE),DE ;for incrementing line LD HL,ARRAY2 ;HL ends up at ARRAY1 af ter initialization CALL INIT ;read keyboard & put input in (DE) & (HL) LD A,(SIGN) LD (RESIGN),A ;initialize result (& initial input) sign LD DE,0F200H LD (LINE),DE ;for incrementing line NEXT: LD HL,LINE ;HL ends up at ARRAY2 after init CALL INIT LD BC,LENGTH2 LD HL,TSTOR ;initialize temp storage location LD (HL),SPACE CALL CLRBUF LD DE,(LINE) LD A,(DE) CP '*' JR Z,MULT CP '/' JP Z,DIV JP ADD ;MULTIPLICATION from Levanthal's "Z80 A/L Subroutines", p.254 MULT: LD HL,ARRAY1 LD A,LENGTH LD (LPCNT),A LD (MCADR),HL LD DE,MCAND LD (NBYTE),DE LD BC,LENGTH LDIR LD HL,ARRAY1 CALL ZEROBUF LD HL,PROD CALL ZEROBUF LOOP: LD A,1 LD (DCNT),A DLOOP: SUB A LD (OVRFLW),A LD A,(DCNT) OR A LD HL,(NBYTE) LD A,(HL) JR NZ,DLOOP1 RRCA RRCA RRCA RRCA DLOOP1: AND 0FH JR Z,SDIGIT LD C,A ADDLP: LD HL,ARRAY2 LD DE,PROD LD B,LENGTH OR A INNER: LD A,(DE) ADC A,(HL) DAA LD (DE),A INC HL INC DE DJNZ INNER JR NC,DECND LD HL,OVRFLW INC (HL) DECND: DEC C JR NZ,ADDLP SDIGIT: LD A,(PROD) AND 0FH LD B,A LD A,(DCNT) OR A LD A,B JR NZ,SD1 RRCA RRCA RRCA RRCA SD1: LD HL,(MCADR) OR (HL) LD (HL),A LD B,LENGTH LD E,B LD D,0 LD HL,PROD ADD HL,DE LD A,(OVRFLW) SHFTLP: DEC HL RRD DJNZ SHFTLP LD HL,DCNT DEC (HL) JR Z,DLOOP LD HL,(NBYTE) INC HL LD (NBYTE),HL LD HL,(MCADR) INC HL LD (MCADR),HL LD HL,LPCNT DEC (HL) JR NZ,LOOP LD HL,ARRAY1 LD D,H LD E,L INC HL LD BC,LENGTH DEC C LDIR ;move it over 1 to keep 2 decimal places DEC HL LD (HL),0 LD A,(PROD) ;check for number too large to fit OR A JP Z,STORE ;it's okay LD HL,TOOBIG LD DE,(LINE) LD E,0FH LD BC,12 LDIR EREXIT: LD HL,ARRAY1 CALL ZEROBUF JP NEXLIN TOOBIG: DB '(too big) 0' ;DIVISION from Levanthal's Z80 A/L Routines, p. 260 DIV: LD HL,ARRAY2 ;I had to add this part DEC HL ;to the end of ARRAY1 LD D,H LD E,L DEC HL LD BC,LENGTH-1 LDDR ;move hex number over 1 space in array LD HL,ARRAY1 LD (HL),0 ;add a 0 at the small end of the hex number LD HL,HIDE1 ;see Levanthal for comments LD (HDEPTR),HL LD DE,HIDE2 LD (ODEPTR),DE XOR A LD B,LENGTH INITLP: LD (HL),A LD (DE),A INC HL INC DE DJNZ INITLP LD L,LENGTH LD H,0 ADD HL,HL INC HL LD (COUNT),HL LD HL,ARRAY2 LD B,LENGTH XOR A DV01: OR (HL) INC HL DJNZ DV01 OR A JR Z,EREXIT XOR A LD (NDIGIT),A DVLOOP: LD HL,ARRAY1 CALL RLARY LD HL,(COUNT) DEC HL LD (COUNT),HL LD A,H OR L JP Z,STORE LD HL,(HDEPTR) CALL RLARY XOR A LD (NDIGIT),A SUBLP: LD HL,ARRAY2 LD DE,(HDEPTR) LD BC,(ODEPTR) LD A,LENGTH LD (CNT),A OR A INNER2: LD A,(DE) SBC A,(HL) DAA LD (BC),A INC HL INC DE INC BC LD A,(CNT) DEC A LD (CNT),A JR NZ,INNER2 JR C,DVLOOP LD HL,NDIGIT INC (HL) LD HL,(HDEPTR) LD DE,(ODEPTR) LD (HDEPTR),DE LD (ODEPTR),HL JR SUBLP RLARY: LD B,LENGTH LD A,(NDIGIT) SHIFT: RLD INC HL DJNZ SHIFT  LD (NDIGIT),A RET ;from Levanthal ADD: LD DE,ARRAY1 ;previous (or original) number LD B,LENGTH ;length of ARRAY1 & ARRAY2 for DJNZ LD A,(RESIGN) LD HL,SIGN CP (HL) LD HL,ARRAY2 ;current input number JR NZ,SUBTR ;input & previous result have dissimilar signs ADDLOP: LD A,(DE) ADC A,(HL) DAA LD (DE),A ;result in ARRAY1 INC HL INC DE DJNZ ADDLOP JR STORE ;before subtracting, check to see if negative number will result SUBTR: LD DE,ARRAY1+LENGTH LD HL,ARRAY2+LENGTH SUBCHK: DEC DE DEC HL LD A,(DE) CP (HL) JR Z,SUBCONT ;(DE) = (HL) JR NC,SUBSKP ;(DE) > (HL) JR C,EXCH ;(DE) < (HL) SUBCONT:DJNZ SUBCHK SUBSKP: LD DE,ARRAY1 LD HL,ARRAY2 JR SUBSK2 ;exchange numbers in arrays before subtracting EXCH: LD A,(RESIGN) XOR 1 LD (RESIGN),A ;negative result flag EXCH2: LD HL,ARRAY2 LD DE,TEMP LD BC,LENGTH LDIR ;put (ARRAY2) in (TEMP) LD HL,ARRAY1 LD DE,ARRAY2 LD BC,LENGTH LDIR ;put (ARRAY1) in (ARRAY2) LD DE,ARRAY1 LD HL,TEMP LD BC,LENGTH LDIR ;put (TEMP) in (ARRAY1) XOR A ;clear carry JR SUBSKP ;subtract from Levanthal SUBSK2: LD B,LENGTH SUBTLP: LD A,(DE) SBC A,(HL) DAA LD (DE),A INC HL INC DE DJNZ SUBTLP ;put in temp storage while converting hex numbers to ascii numbers ; & replacing leading 0's with spaces STORE: LD DE,ARRAY1 ;hex numbers in ARRAY1 are reversed LD B,LENGTH LD HL,TSTORE ;end of temp storage loc LOOP2: LD A,(DE) CALL HEX2 LD A,(DE) CALL HEX1 INC DE DJNZ LOOP2 LD A,'0' LOOP3: INC HL CP (HL) JR NZ,DISPLAY LD (HL),SPACE ;replace leading 0's with spaces JR LOOP3 DISPLAY:LD DE,(LINE) LD E,1AH ;column for right side of balance LD HL,TSTORE ;right side of stored balance LD A,(HL) CP SPACE ;see if number was 0 JR NZ,DIS2 LD (HL),'0' JR SCRNLP DIS2: DEC HL ;check for number less than .1 LD A,(HL) CP SPACE JR NZ,DIS3 LD (HL),'0' ;make it '.0x' DIS3: INC HL ;back to first digit LD A,(HL) CP '0' JR NZ,DECIN ;2 decimals places used DEC  HL LD A,(HL) CP '0' INC HL ;to put 2 decimal places in if 1 used JR NZ,DECIN ;1 decimal place used DEC HL DEC HL JR SCRNLP DECIN: LD C,2 ;for LDDR (B is 0) LDDR LD A,'.' LD (DE),A DEC DE SCRNLP: LD C,3 ;(B is 0) LDDR ;put balance on the screen LD A,(HL) CP SPACE JR Z,NEGATE ;exit subroutine LD A,',' LD (DE),A DEC DE JR SCRNLP NEGATE: LD A,(RESIGN) OR A JR Z,NEXLIN ;result is positive LD A,'-' LD (DE),A NEXLIN: LD HL,(LINE) LD A,H CP 0FBH ;bottom line is at 0FB00H JR NC,SCROLL ;scroll screen if at bottom INC H LD (LINE),HL EX DE,HL JP NEXT ;scroll screen up 1 input line if at bottom SCROLL: PUSH HL ;(LINE) PUSH HL LD A,10 LD HL,0F200H LD DE,0F100H SCRLOP: PUSH HL ;beginning of line to move up LD BC,40 LDIR LD DE,100H-40 ADD HL,DE POP DE ;now it's beginning of line to overwrite DEC A JR NZ,SCRLOP LD A,SPACE LD B,40 POP HL ;(LINE) CLRBOT: LD (HL),A INC HL DJNZ CLRBOT POP DE ;(LINE) JP NEXT INIT: XOR A LD (DECPL),A ;decimal places LD C,A ;initialize decimal flag LD B,LENGTH INILP: DEC HL LD (HL),A DJNZ INILP ;initialize ARRAY1 or ARRAY2 LD (ARRAY),HL ;save HL (it's either ARRAY1 or ARRAY2) LD B,0AH ;column no. & counter LD H,D ;first part of (LINE) LD A,(NSIGN) OR A JR NZ,SKP2 LD A,'>' LD (DE),A CALL READKBD SKP2: CP '-' JR Z,SKP1 CP '+' JR Z,SKP0 CP '/' JR Z,SKP0 CP '*' JR NZ,SKP3 SKP0: LD (DE),A XOR A LD (NSIGN),A LD (SIGN),A JR KBD SKP3: EX AF,AF' LD A,'+' LD (DE),A XOR A LD (NSIGN),A LD (SIGN),A EX AF,AF' JR KBD2 SKP1: LD (DE),A XOR A LD (NSIGN),A INC A LD (SIGN),A KBD: CALL READKBD KBD2: CP 03H ;^C JP Z,START CP 1BH ;ESC JP Z,EXIT ;to CP/M CP 05H ;^E JP Z,ERASE ;erase line CP 12H ;^R JP Z,RESTART CP '.' JP Z,DECIMAL CP ':' JR NC,ENDL ;exit if not a number CP '0' JR C,ENDL ;ditto INC B DEC B JR Z,KBD ;wait for ___ if B=0 ;move previous input to left & add commas & put new input at 0BH ;0 1 2 3 4 5 6 7 8 9 A B ;+ _ _ , _ _ _ , _ _ _ KBDCONT:EX AF,AF' LD L,B ;0AH initially LD A,C CP '.' JR NZ,KBDMOV LD A,(DECPL) CP 3 JP Z,TWODEC INC A LD (DECPL),A KBDMOV: LD E,L ;E is thus incremented in loop LD A,C CP '.' JP Z,ISDEC LD A,4 CP L JP Z,COMMA INC L LD A,8 CP L JP Z,COMMA2 COMRET: LD A,(HL) LD (DE),A LD A,L CP 0BH JR NZ,KBDMOV ;move numbers left until at 0BH EX AF,AF' LD (HL),A ;now display input & save it in array LD A,B CP 4 JR NZ,COMSKP DEC B DEC B COMSKP: DEC B ;decrement count & left-most column until 0 JR KBD ENDL: CP '+' JR Z,LDSIGN CP '-' JR Z,LDSIGN CP '*' JR Z,LDSIGN CP '/' JR Z,LDSIGN ENDL2: LD A,B CP 0AH JP Z,KBD LD DE,(ARRAY) ;ARRAY1 the first time, then ARRAY2 LD A,(DECPL) CP 2 ;a . and only 1 decimal entry JR NZ,ENDL1 LD C,0 ;enter 0 as second decimal entry JR ENDL3 ENDL1: JR NC,ENDL4 ;A was 3, so don't do anything XOR A LD (DE),A ;A was 0 or 1 so put an extra pair of 0's at end INC DE ENDL4: CALL ENDO ;LD A,(HL) & check for , & . ENDLP: SUB '0' ;make it binary LD C,A ;save low half of number pair DEC L ENDL3: CALL ENDO CP SPACE JR NZ,ENDSK LD A,'0' ;to add 0 to second half ENDSK: SUB '0' ;make it binary RRCA ;move it to upper 4 bits RRCA RRCA RRCA OR C ;combine low half LD (DE),A LD A,(HL) CP SPACE ;check same number again RET Z INC DE ;entered into array in pairs, ENDSK2: DEC L ; starting from right side of input CALL ENDO CP SPACE JR NZ,ENDLP RET ENDO: LD A,(HL) CP ',' JR Z,ENDO2 CP '.' RET NZ ENDO2: DEC L LD A,(HL) RET TWODEC: EX AF,AF' LD L,0BH JP KBD DECIMAL:CP C JP Z,KBD ;decimal previously entered LD C,A ;as a flag JP KBDCONT ISDEC: INC L JP COMRET COMMA: DEC E COMMA2: LD (HL),',' INC L JP COMRET LDSIGN: LD (NSIGN),A JR ENDL2 RESTART:LD HL,ARRAY1 CALL ZEROBUF LD HL,(LINE) LD (HL),'-' LD BC,1AH CALL CLRBUF JP NEXLIN ERASE: LD HL,(LINE) LD (HL),SPACE LD BC,1AH CALL CLRBUF LD HL,(ARRAY) LD DE,LENGTH ADD HL,DE LD DE,(LINE) JP INIT READKBD:PUSH HL PUSH DE PUSH BC KBDLP: LD C,6 LD E,0FFH CALL BDOS ;read keyboard OR A JR Z,KBDLP POP BC POP DE POP HL RET ;convert binary number to hex number for display HEX1: RRA ;put left 4 bits on right RRA RRA RRA HEX2: AND 0FH ;mask off left 4 bits ADD A,30H ;move hex numbers up to decimal range LD (HL),A ;put it in header DEC HL RET ZEROBUF:LD BC,LENGTH-1 LD (HL),0 CLRBUF: LD D,H LD E,L INC DE LDIR RET EXIT: POP BC ;RET address EXIT2: CALL CLSCR LD SP,(CPMSTK) RET ;to CP/M or calling routine MOVCUR: DB 1BH,'-',31+31,31+51,'$' BANNER: DB 0A0H,0ABH,0ADH,0AAH,0AFH,0A0H,' INPUT BALANCE' DB ' (ESC exit ^R restart ^C clear ^E erase line)' CPMSTK: DS 2 DS 36 STACK: DS 0 SIGN: DS 1 RESIGN: DS 1 ;result sign NSIGN: DS 1 ;next sign ARRAY1: DS LENGTH ARRAY2: DS LE NGTH ;this must follow ARRAY1 LINE: DS 2 ;this must follow ARRAY2 TEMP: DS LENGTH ;for exchanging arrays ARRAY: DS 2 ;address of relevant array DECPL: DS 1 ;decimal places DCNT: DS 1 LPCNT: DS 1 OVRFLW: DS 1 MCADR: DS 2 NBYTE: DS 2 PROD: DS LENGTH MCAND: DS LENGTH NDIGIT: DS 1 CNT: DS 1 HDEPTR: DS 2 ODEPTR: DS 2 COUNT: DS 2 HIDE1: DS LENGTH HIDE2: DS LENGTH TSTOR: DS LENGTH2 ;temp storage for ARRAY1 TSTORE: DS 0 END DEPTR: DS 2 COUNT: DS 2 HIDE1: DS LENGTH HIDE2: DS LENGTH header DEC HL RET ZEROBUF:LD BC,LENGTH-1 LD (HL),0 CLRBUF: LD D,H LD E,L INC DE LDIR RET EXIT: POP BC ;RET address EXIT2: CALL CLSCR LD SP,(CPMSTK) RET ;to CP/M or calling routine MOVCUR: DB 1BH,'-',31+31,31+51,'$' BANNER: DB 0A0H,0ABH,0ADH,0AAH,0AFH,0A0H,' INPUT BALANCE' DB ' (ESC exit ^R restart ^C clear ^E erase line)' CPMSTK: DS 2 DS 36 STACK: DS 0 SIGN: DS 1 RESIGN: DS 1 ;result sign NSIGN: DS 1 ;next sign ARRAY1: DS LENGTH ARRAY2: DS LE.OP Welcomå tï thå worlä oæ GRAPHICS/DRAW¬ thå prograí � guaranteeä  tï  unlocë  thå supposeä  mystiquå  oæ � Osbornå graphics® Tï gaiî thå fulì benefiô oæ thió � prograí  yoõ shoulä havå aî Epsoî  w/Graftrax¬  8° � column® Thå printinç ió centereä tï thió printer'ó � pagå width. Tï  begiî  yoõ  musô firsô PIÐ tï  thió  disë  thå � followinç programs:MBASIC¬  WORDSTAR¬  WSMSGS.OVR¬ � anä  WSOVLY1.OVR®  Yoõ musô alsï SYSGEÎ thå disk® � Iæ yoõ havå noô useä thaô utilitù before¬ reaä thå � DISK.DOà  filå  firsô.   Oncå   thió   haó   beeî � accomplished- thå  fuî  begins¡   Alwayó  placå  á � formatteä  disë iî  drivå (thió wilì becomå  youò � fileó disk© Thå GRAPH/DRA× prograí disë remainó iî � thå Á drive. Eveî iæ yoõ dï noô intenä tï savå tï disë oò prinô � youò  firsô momentouó effort¬  yoõ musô  chooså  á � filå  namå  foò it®  Yoõ neveò  know¬  youò  firsô � efforô  maù  bå  fantastiã anä yoõ wilì  loså  thå � opportunity¡ Filenamå musô bå ¸ letteró oò lesó iî capitaì letters. Foò  thå  purposå oæ  thió  instruction¬  whateveò � needó  tï  bå entereä bù thå useò wilì  appeaò  iî � singlå  quoteó  ®  (Alì inpuô musô bå  iî  capitaì � letters.© Iæ doublå quoteó neeä tï bå entered¬ yoõ � wilì seeº 'LOAÄ "GRAPH/DR"' Thå computeò instructionó wilì appeaò iî  capitaló � withouô quotations. TÏ BEGIN: Afteò yoõ havå PIPpeä thå fileó tï thió disk¬  hiô � thå  reseô  buttoî  anä placå thió disë iî  thå  Á � drivå anä thå formatteä disë iî thå   drive®  Hiô � returî anä thå AUTOSÔ prograí wilì loaä MBASIà anä � thå  MENU®  Yoõ no÷ havå youò optionsº  desigî thå � screen¬  changå á previouslù saveä screeî  design¬ � prinô  thå  desigî (iæ iô haä beeî  saveä  anä � yoõ arå no÷ readù tï prinô it)¬  makå á baò graph¬ � oò á baò grapè iî percent®  Iæ yoõ chooså optioî � one¬  yoõ  arå  theî showî thå possiblå  graphicó � elementó witè theiò ASCIÉ numberó below® Theså arå � thå  numberó yoõ musô uså tï answeò thå  prompô  -� PLEASÅ ENTEÒ YOUÒ CHOICÅ OÆ DRAWINÇ ELEMENT-® É aí � awarå oæ thå horriblå listinç oæ graphicó elemenôs � iî  thå  manual¬  sï yoõ mighô geô á copù  oæ  (oò � borro÷  á  friend's©  "Osbornå  Useró  Guide¢   bù � Conrad¬  Zimmerman¬ ¦ Goldstein® Pagå 16² giveó aî � excellenô  printing¬  tï scale®  Thió prograí wilì � prinô ASCIÉ ° tï 12² aó defineä iî thå manual¬  aó � welì aó thå filì character¬  #127® É havå founä iô �Šusefuì  tï copù oî grapè papeò thå entirå  listinç � oæ ASCIÉ numbers® Takå carå tï notå thå oneó thaô arå  right¬  left¬ � anä  centeò  printeä  aó welì aó thå twï  setó  oæ � corners® Wheî yoõ joiî witè horizontaì oò verticaì � characteró yoõ wanô tï matcè wherå theù join®  Thå � besô  waù  tï  seå thió ió tï  trù  ouô  differenô � combinations® Wheî É begaî workinç witè graphicó É � madå  myselæ  á  seô  oæ  tiles¬  noô  unlikå  thå � SCRABBLÅ tiles¬ tï plaî whaô É wanted. Iæ  yoõ  havå noô useä MBASIà graphicó  beforå  bå � awarå  thaô  whaô ió brighô wilì  bå  whaô  printó � black¬  whaô  ió blacë oî youò monitoò wilì bå thå � coloò  oæ  youò papeò yoõ prinô oî. If you choose� the inverse image when printing, you will get a print as it appears on the screen. Enteò  thå numbeò oæ youò choice®  Yoõ mighô  trù � #2² tï begiî with. INPUÔ FILENAME¬ 1-¸ CAPITAÌ LETTERS¬ nexô appears® � Herå  ió wherå yoõ musô enteò  thå  aforementioneä � filename® Iæ yoõ wish¬ jusô hiô thå RETURÎ keù anä � thå computeò wilì enteò thå filenamå TESÔ foò you® � Jusô  bå  carefuì  noô tï dï thaô  agaiî  oò  youò � seconä TESÔ wilì overwritå thå firsô iæ yoõ decidå � tï savå it. DÏ YOÕ WANÔ DIRECTIONÓ theî appears®  Iæ yoõ enteò � '"Y"§ theî thå following: THIÓ  PROGRAÍ LETÓ YOÕ CHOOSÅ THÅ DRAWINÇ ELEMENT® � HIÔ 'C§ FOÒ CHANGÅ OÆ ELEMENT®  Wheneveò yoõ  wisè � tï changå yoõ havå thå opportunitù tï dï so. NUMBEREÄ ROWÓ ANÄ COLUMNÓ ARÅ LISTEÄ TÏ FACILITATÅ � THÅ  PLACEMENÔ OÆ GRAPHIà ANÄ KEYBOARÄ CHARACTERS® � YOÕ  ARÅ ASKEÄ WHERÅ YOÕ WANÔ TÏ STARÔ - GIVÅ  THÅ � LINÅ  NUMBEÒ FIRSÔ - COMMÁ  - COLUMΠ NUMBER®  Thå � numberó begiî witè ± and¬  aô thå top¬  ruî tï  51® � Aô  thå lefô sidå thå numberó ruî tï 20®  Yoõ wilì � geô  useä  tï thå facô thaô thå tenó  numberó  arå � missing¬  buô iæ theù werå includeä therå woulä bå � anotheò  linå  losô anä É opteä noô tï dï  thaô  - � jusô  bå  carefuì anä counô  thå  zeroes¡  Iæ  yoõ � answeò  '1,1§  yoõ  wilì  begiî aô  thå  toð  lefô � corner. YOÕ  NO×  USÅ  THÅ NUMERICAÌ KEYPAÄ  TÏ  MOVÅ  THÅ � CURSEÒ IÎ ANÙ OÆ ¸ DIRECTIONS: #¸ IÓ UP¬ #´ IÓ LEFT¬ #¶ IÓ RIGHT¬ #µ IÓ DOWÎ #· IÓ UP-LEFT¬ #¹ IÓ UP-RIGHT¬ #± IÓ DOWN-LEFT #³ IÓ DOWN-RIGHT®  Foò example¬ iæ yoõ havå choseî � characteò #2² (thå soliä block)¬ choseî 1,± aó thå � startinç point¬  anä helä dowî numericaì keypaä #¶ �Šyoõ  woulä  no÷ bå printinç tï screeî á  lonç  baò � acrosó thå screeî aô thå top®  Dï noô worrù  abouô � goinç  pasô thå boundaries¬  thå prograí wilì  noô � allo÷  yoõ  tï dï that®  Thå curseò wilì jusô  siô � therå untiì yoõ geô thå hint®  Hiô #µ anä yoõ wilì � continuå dowî thå righô sidå oæ thå screen® Hiô #´ � wheî  aô  thå bottoí anä thå bottoí oæ  thå  framå � wilì  appear®  Hiô #¸ anä continuå uð  thå  screeî � completinç  thå frame®  Oæ courså yoõ caî hiô  thå � keù  oncå anä placå onå soliä characteò wherå  yoõ � wanô oî thå screen. AÔ  ANÙ TIMÅ YOÕ MAYº  HIÔ 'M§ TÏ STOÐ ANÄ MOVÅ TÏ � ANOTHEÒ  SPOT®   HIÔ  'K§  TÏ  PLACÅ  Á   KEYBOARÄ � CHARACTEÒ STRING®  HIÔ 'B§ TÏ BLANË Á MISTAKE® HIÔ � 'P§ TÏ PRINT®  HIÔ 'C§ TÏ CHANGÅ ELEMENT®  HIÔ 'S§ � TÏ SAVÅ YOUÒ DRAWINÇ TÏ DISK® Onå aô á timeº 'M§ - � optioî  allowó  yoõ tï continuå witè  thå  drawinç � elemenô yoõ arå no÷ usinç anä movå tï anotheò spoô � iî youò drawing® Iæ yoõ wanô tï changå thå elemenô � anä  theî movå tï anotheò spot¬  uså thå 'C'optioî � first¬  theî thå 'M§ option®  'K§ - optioî allowó � yoõ tï enteò texô aô anù spot®  Wheî yoõ hiô  thió � thå  prograí  wilì asë youº  WHERÅ DÏ YOÕ WANÔ  TÏ � PRINT®  Inpuô #,£ aó yoõ diä before®  WHAÔ DÏ  YOÕ � WANÔ TÏ PRINT¬  enteò youò message® Iæ yoõ diä noô � figurå thå placemenô correctly¬ enteò 'N§ wheî yoõ � arå askeä DÏ YOÕ WANÔ TÏ PRINÔ AGAIN¬  hiô 'C§ anä � enteò '32§ foò thå blankinç character¬  hiô 'D§ tï � draw¬  anä enteò thå placå tï begiî youò blanking® � 'B§ optioî allowó yoõ tï blanë á singlå cell®  Yoõ � wilì  agaiî  enteò #,£ tï statå wherå yoõ wanô  tï � blank®  Iæ yoõ havå morå thaî onå celì tï blanë iô � ió fasteò tï enteò 'C§ ¬  changå thå elemenô tï 3² � thå  blank¬  anä uså thå numericaì keypaä tï  movå � arounä anä eraså whaô yoõ will® 'P§  wilì  enteò thå prinô  mode®  MAKÅ  SURÅ  THÅ � PRINTEÒ  IÓ OÎ WHEÎ YOÕ DÏ THIS!!!¡  Otherwiså yoõ � wilì loså youò masterpiece® Jusô siô bacë anä waiô � untiì thå prograí readó thå screeî theî readó  thå � screeî  tï thå printeò - thió alì takeó á biô morå � timå  thaî  WÓ itself¡  Thå printinç printó  tï  á � squarå  characteò anä produceó á ² 1/´ Ø  µ  1/¸ � prinô size® Yoõ alsï musô answeò normaì oò inverså � print before printing commences. 'S§ savå tï disk®  MAKÅ SURÅ YOÕ HAVÅ Á DISË � IΠ THÅ  B:DRIVE!!¡  Iæ  noô yoõ  havå  losô  youò � masterpiecå  foò  good¡  Thå  savinç caî  bå  donå � beforå yoõ arå finisheä (telephonå call¬ supper?© � anä yoõ caî calì uð thå filå lateò anä completå iô � oò prinô iô iæ thaô haó noô beeî done®  Makå  surå � yoõ  SAVÅ beforå yoõ PRINÔ iæ yoõ wanô tï uså  thå � desigî again® Iæ thå filå waó saveä tï disë anä yoõ no÷ wanô  tï � print¬  enteò #³ choicå froí thå menu® Thå prograí �Šaskó  foò  thå  filå namå anä enteò  witè  capitaì � letters,¨ nï quotationó ¦ nï drivå arå used)¬  thå � prograí  enteró  theí foò you®  Thå  prograí  wilì � prinô tï screeî thå filå thaô yoõ calleä anä  theî � wilì senä thå filå tï thå printer® Iæ  yoõ  havå  noô  finisheä witè  á  desigî  wheî � workinç  witè thå dra÷ program¬  anä wanô tï  ediô � thå design¬  enteò #² choicå aô thå menu® Yoõ wilì � bå  askeä whaô characteò yoõ wanô tï  begiî  with¬ � anä thå prograí wilì continuå aó before® Yoõ agaiî � havå thå optioî tï savå tï disk¬  iæ yoõ stilì arå � noô finisheä oò wanô tï prinô aô á lateò date¬  oò � yoõ caî prinô thå filå iæ yoõ arå finished® Iæ yoõ � wanô  tï integratå thió prograí intï á WÓ documenô � yoõ can!® TO BEGIN WITH: Sincå  thió  disë  ió  seô tï  autobooô  thå  menõ � prograí foò graphicó design¬ wheî yoõ arå readù tï � prinô youò desigî iî á WORDSTAÒ document¬  hiô  #° � aô  thå  menõ prompt®  Thió wilì placå yoõ aô  thå � MBASIC OË prompt®  Theî typå 'SYSTEM§ anä yoõ wilì � bå returneä tï thå A¾ prompô oæ  CP/M®  No÷  enteò � WS(oò  whateveò youò WORDSTAÒ filenamå is)Loç ontï � thå  Â drivå anä typå youò documenô aó  beforå  iî � thå  "D¢ mode®  Wheî yoõ comå tï thå placå  wherå � yoõ  wanô tï inserô thå graphicó file¬  leavå  1µ � blanë  lineó anä continuå untiì thå pagå breaë  oæ � pagå #1.(oò whateveò pagå yoõ intenä tï inserô thå � graphics© Aô thió poinô returî tï thå poinô oæ thå � documenô  afteò  thå  graphicó insertioî  (thå  1µ � lines)®   Uså  controì  "KB¢  tï  seô  thå   Blocë � Beginninç  marker.(remembeò thió markeò ió seô  aô � thå  lefô  margin¬  WÓ won'ô loså youò  firsô  twï � letteró  oæ thå firsô word!© Gï tï thå enä oæ thå � filå  wherå thå pagå breaë appeareä (aô thå  firsô � blanë  columî  oî  thå  lasô  line®   Dï  noô  hiô � return!)anä  uså  controì "KK¢ tï marë  thå  Blocë � End® Uså controì "KW¢ foò Blocë Writå anä chooså � á filå name®  (samå aó before¬  ¸ letteró oò less© � No÷ uså Blocë Erase.(^KY)(Thió separateó youò pagå � intï threå parts¬ 1¬ thå initiaì paragraphó beforå � yoõ wanô thå graphicó filå tï appeaò whicè haó thå � originaì filenamå oæ thå pagå » 2¬ thå 1µ lineó oæ � graphicó  (saveä iî thå graphicó prograí witè  thå � filenamå   yoõ  entereä  aô  thå  outseô  oæ   thå � program)»  3¬  anä thå bottoí sectioî oæ thå firsô � page®  Thió haó thå filenamå yoõ entereä wheî  yoõ � useä  thå  blocë  commands©  Now¬  returî  tï  thå � beginninç oæ thå document(parô #1)¬ uså ^Î threå � timeó tï allo÷ foò thå doô commands®  Gï tï thå � enä  oæ  thió firsô parô anä uså ^OÐ tï  geô  thå � linå lengtè (adä ± tï thió count)® ^OÐ agaiî tï � checë iæ thå pagå breaë ió iî thå righô place® Thå � ^OÐ wheî yoõ arå surå iô ió seô righô wilì givå �Šyoõ thå pagå length® Gï tï filå beginning¬ firsô � doô commanä ió ".pl##¢ (whateveò yoõ found)¬ thå � seconä doô commanä ió ".mb0"¬ anä thå lasô ".OP". Double check the page length just in case! Thå ordeò foò doô commandó shoulä be:.pl##¬  .mb0¬ � and .op. Save this file on the line of the last word»  dï  noô hiô returî beforå thå save!!!¡  Yoõ � no÷  havå completeä alì thå necessarù  changeó  tï � part#1. No÷  opeî iî documenô mode¬  thå filå yoõ  "KW¢  ® � Thió  ió parô #3®  Gï tï thå enä anä dï aó before¬ � uså ^OÐ tï geô linå length®  Adä ³ lineó aô thå � beginninç foò thå doô commandsº .mt0¬ .pl##¬ anä � finallù .op®  Savå thió file®  Alì preliminarieó � arå no÷ complete. Yoõ  shoulä havå listeä oî papeò thå threå  filesº � #±  thå  initiaì  one¬  thå  toð  sectioî  oæ  thå � WORDSTAÒ documenô page»  (remembeò thaô iô wilì bå � preceedeä  bù Bº  wheî yoõ print)»  #² thå  MBASIà � filå   yoõ   nameä  wheî  usinç   thå   GRAPH/DRA× � prograí   (thió  wilì  noô  havå  thå   bº   drivå � indicator)»  parô  #³ ¬  thå bottoí sectioî oæ thå � page and it will also have the B: drive indicator) Yoõ  arå no÷ iî thå no-filå menu®  Loç ontï thå  Á � drive® Hiô "P¢ anä remembeò tï adä thå "B:¢ tï thå � filå (thå beginninç section© thaô yoõ arå goinç tï � print®  Aô  thå  completioî oæ  thå  printinç  thå � printeò  wilì stoð aô thå lasô word®  (Iæ noô  yoõ � diä  noô savå immediatelù afteò thå lasô worä  anä � saveä aô á ne÷ line). Enter "R¢ anä thå prompô "COMMAND¢  appears®  Typå � 'MBASIC§  and thå  OË  wilì  appear®   Typå  'RUÎ � "GR/DUMP¢   (capitaló  anä  doublå  quoteó  arounä � GR/DUMP)®  Yoõ  arå  askeä WHAÔ FILÅ YOÕ  WANÔ  TÏ � PRINT® Typå 'FILENAME§ (no B: the program assumes that the graphics file is on drive B and adds the B: for you). 'FILENAME' (NO QUOTES) ió thå namå oæ � the filå yoõ nameä aô thå beginninç oæ thå graph� oò  graphicó program.(Parô #2©  Youò  masterpiecå � wilì  appeaò oî thå screeî anä afteò á brieæ  waiô � thå printinç wilì commence®  Afteò thå printinç ió � completeä  yoõ  arå returneä tï thå MENÕ  program® � Hit 0 and thå OË prompô wilì appear® Typå 'SYSTEM§ � anä  yoõ arå prompteä tï hiô anù keù tï returî tï � Wordstar®  Aô thå maiî menõ hiô "P¢ anä prinô  thå � finaì  section¬  thå originaì "KW¢ file.(Parô  #3© � DON'Ô  FORGEÔ  TÏ ADÄ THÅ "B:¢ TÏ YOUÒ FILENAMÅ  - � ALÌ  THREÅ  FILEÓ  ARÅ  OÎ THÅ    DRIVÅ  BUÔ  THÅ � GRAPHICÓ PROGRAÍ ADDÓ THÅ Bº FOÒ YOU¬ YOÕ MUSÔ ADÄ � IÔ FOÒ THÅ WÓ FILES®  Iæ therå ió anotheò pagå  tï � thå  reporô  iô musô bå saveä tï á thirä  WÓ  filå � becauså thå .mt° oæ thå seconä WÓ filå wilì remaiî � foò subsequenô pageó anä cannoô bå changed. ŠThå  BAÒ GRAPÈ prograí haó á maximuí oæ 13 verticaì � bars®  Aô thå outseô yoõ arå askeä foò thå titlå oæ � thå  graph®  Thió ió noô the filenamå buô whaô wilì � appeaò aô thå toð oæ thå graph®  Yoõ arå theî askeä � foò  thå  numbeò oæ  observationó  covered(max-13)¬ � thió  ió thå numbeò oæ bars®  Thå lasô  preliminarù � questioî ió whaô ió thå highesô parameteò oæ  data® � Whateveò ió thå highesô numbeò iî youò datá lisô ió � whaô  yoõ  wilì enteò here®  Thå prograí useó  thió � numbeò  tï arrivå aô thå valuå foò eacè sectioî  oæ � the bar graph. Yoõ  musô no÷ enteò foò eacè oæ thå  observationó � thå  followinç informationº  namå oæ observatioî - � theså  arå  thå  labeló  tï  gï  undeò  thå  bars® � Whateveò  yoõ enteò thå prograí cutó ofæ  alì  buô � thå firsô twï letters¬ anä yoõ alsï enteò thå datá � numbeò  foò  each®   Thå  prograí  wilì  enteò  iî � horizontaì  lineó  betweeî  thå bars®  Iæ  alì  ió � correct¬  enteò á filenamå foò thió prograí anä iô � wilì  bå  saveä tï disk®  Yoõ caî  no÷  calì  thió � wheneveò yoõ want® Enteò thå menõ prograí anä typå � iî thå numbeò foò á print®  Thió caî bå integrateä � witè á WÓ filå aó waó explaineä before. Thå  finaì prograí useó á heighô oæ  1¶  lines¬  ´ � foò  eacè 25¥ sï thió ió thå prograí yoõ woulä uså � iæ yoõ wisè tï expresó yoõ datá iî percents®  Botè � programó indenô thå margiî iæ yoõ havå  lesó � thaî ¶ observations. Iæ  yoõ  finä theså programó tï bå oæ gooä uså  tï � yoõ É woulä appreciatå hearinç froí you. Lois J. Callaghan PO Box 104 Little York,New Jersey 08834 (201)996-2336veò  yoõ enteò thå prograí cutó ofæ  alì  buô � thå firsô twï letters¬ anä yoõ alsï enteò thå datá � numbeò  foò  each®   Thå  prograí  wilì  enteò  iî � horizontaì  lineó  betweeî  thå bars®  Iæ  alì  ió � correct¬  enteò á filenamå foò thió prograí anä iô � wilì  bå  saveä tï disk®  Yoõ caî  no÷  calì  thió � wheneveò yoõ want® Enteò thå menõ prograí anä typå � iî thå numbeò foò á print®  Thió caî bå integrateä � witè á WÓ filå aó waó explaineä before. Thå  finaì prograí useó á heighô oæ  1¶  lines¬  ´ � foò  eacè 25¥ sï thió ió thå prograí yoõ woulä uså � iæ yoõ wisè tï expresó yoõ datá iî percents®  Botè � programó indenô thåþ$4Á[÷hÒ€\Dê ¦ðögkëê´góÌ#¹}§j^\êLðB€Êܸ)©-»p§fR8žÔ,¦?îxM¶¦mž{ ª²"N¶?úI\¼å=mµ˜uƒ’«N/‰Er{Wr"q”J h³†’�hø‰à|Jq†…|kq§Ãîææ×õOÖÆìÞIùO)‰‘ͱ稬D¶¬Èé>ˆéYA^Ñ1P§�Êy;W}dïBÅ�/ Ýùÿ [Ý�':�ÒжT]­nb ¥nŒ‡ž°ÿ&&$ W…ên5³nd”‚QD²1¯à¨"Vn‡´–•Jži0Ðíh°ÚÇà¡ -í ‰þhi×ÛàÓËÇI$ 4äbHÔb¹HAd2öØnÆJ½&�¿LÿGÌl³nè‡9 èWûTäýðüI¶«§ýQ¥Ýúß}dÄ|ÙëæÑ�äU‡0‘ ê^T‚nÐýUù‡ôꌔCò¦‘¾>M7mf{ºj‚ @Œ®Ë'ñª—MnŽ~Ä5wpxaÍ?“…Vªm§Ï«ƒ,�ÞH)¯òoùrúˇ-O \‚ðŸ„eªÊ™tÕÄõw#�iªZtNJµkÕZEêõŸ‚ˆPÔ?ËKf·õþF}j jÆÒfæ 5Êý©„i¡C€Û¢ÿ6U*fMÄ¢1)ÿí%�Y3Hè>w"0åÖâRV먺—ÿžä�Žè›(68OãáªpÚe¨Ö¤|*SäÛ´ÓÖ¼daÖÛD€\HÝ9 ÌÅqHÆèÁpòÌÕ0f{6J„Vî;€ ×ÜËYý!ŸoÏ0;øÐÄ•,_ŒŠ* }ìõÔ#¿ðã 8wCÔßd-�zµ>'SßV¯é-F Žzx;ð$\çè3¢ÂiJµ÷®Ú¿ÑŸÈ¸ÈãJ=ƒ¯õ�UM'?…õ§ÂX\Eôð‘�ZÑ’Òr‡Zà`ªïh,Rd#a cÓÎà}4 {rÜ�€KzÉÝÊbÚŸËRP(ÐÙñ!ÜGöJ¾-Á†‘¢åk.ºãyßîdO=Çv3ªí—Ä"ÑL•&O-¾YP¼D‹�‡÷–fJ¹ƒjøaé]­ùÂKí6v§Þ-'æ/ñ8¿�?d\IôDáÌÁHº¼¨ÝO`ØÏõTv²z¾>Ð�ÝD½ñrÜ{Š�ª7©z4KÙó“ ë�¦( ˆj<_ï꨹ð5BMòCۤĂ6Ý  ÜÇ üQ¯!9Q-‘Ç^7+¦¹l65&-gÉ¢ÂÊØº8‰ÿ^ Žé•‰h>Kü(“âöÚe­ 8.° êä¬Ó~Ì÷XHZM‰OœYáR²Â3ùÊ@V}ñ¹M— �qi€ ¼í8ýRK¤ýs Þ �øü0›_“�4ÑÅ¿�ÿåí"»Ó]UÈddƒµ8'Ùú±ÿ9ü‘D®8§ˆwN1&ZäÜø²‘š�¶�׌­<Ž…?©V§ó‡qæ*â|Öô÷–î ¿�¼Ë¯\ç2VBܯÝñl ·vHëmíkP¢á™�<Ï—ÕËeÅ�‚gºõÞöº_ËÜ%�¼€,¦6¢xøm}â¹vþÌI"-ꫯ6hv±×¤Õ«@7[ó§�%)ã¹—r.‚Zü¢ÍFì˜ã¸réä]펂ã{7ȧ"Šzæ*â|Öô÷‘î ‡�¿ËIDÖr뱤•¨B4÷º¹ÅÂHÒ¼íÞÀ£Ð™}09L;ª+~Ðã á�´ëý#½K2 K£ÝµÌ•}*ÌŠ#>o'Ÿh5è»Û ôò û&Û1/`o]}tîê°¨ò˜‘UZÕ=˜WwÃe¯JxŽ–£Œ’Z'[¦>MxŽôï™yy…Oú`EÔ'$û ë± RÛ‹¯�hA_ûù‡›HºÊÕ#ÚŸÂ ¬ ÒØsà}ª=®}}É`m+Ä¡éïß÷ÿ«+mÍ0 ÌqŠ[¿ÿ�%$ŽÇ0å.fã2Ütdi==I]5³þ zÑ‚V‡ h{˧a¼Ž‡÷–fJ¹ƒjøaé]­ù]K$3�§Þ-'æ/ñ8¿�?d\IôDáÌÁ»�]¨ÝO`3Ïõ�Ÿ²z¾>Ð�ÝD½ñrÜ{Š�ó¦ö+Ï$ôZ‰†¢j¼Ë‰ý¬ãÁ^ŽKc&O!5F¹eV ”ǵ[@ZX§=V&v‘5tDL|ŠþæD3$N£—vâ¦ÞOj‚¦¿^}®Ž)QáÛ%PåsTû„Ð6ú-ý¸|É a‰‹�Uq “&8Y¢�!Ê’x�ªW˜ƒâßÄŽ¼Žô²6kfµúRæâŽE»íî0‚ìæf,ùHp‹•åf‡—evé> ä¶K•ÄÂÕ&˜-§€# 0®UZtN¦ô+Ï$ôZÔ€Šrw;Óò”hÉx±¾D¯%œë&�¹™g·ÂÕ&ÃA°w×j^6žN6�©À§\ô)Ÿ F:ïÏžeY_ÉHÝÅC·èõnëúE®g.2Ÿ¤7ãþD±”Çú±š9Ô‘Ý8Û!,ŠKÊYšµI–êÈ΀ŒûÝŽ‚ã{¯K§êŽ $âòùPùÂtnßøG“àOuá÷¾¨;¤´C˜Fã­ ¯Ð+³p wLèQÅX‚ºÒºUû!½ìT1uñÛÐ�cŠS´ô¸}¤{”“ÿw&É=$¦óÏ‹A_WùÈ©>±ün>H—C` pôUZb¿ô8ÁÈf0˜ÿ¶ëÞŸÈÕøïPy.µÆš—#ã&ÆÈ×Z }Í=AåZö‡§÷¦D¯;�C%�¹™g·ÂÕ&Ã/°ªØ=Vh~÷ Éf ×$ÿ›÷+ùO; UuÐQÌT­ñxñ�±Öc½WÿŒB"EC´ïdƒ‰~e8'Áª[Ó@#`T“&Gö bUqºFÔ¢ÂÏØº8‰ÿDº Ußêyhf òä'$ûò÷ë­Ú+‹¯ͱÌÛ…H—O!|,ÚŸÂ Á”t5®Îà‡—ŽaIîJ,¤‘|z{pû¢¢ì›»žìY)[ɬ۰x±<àïNÆ*À�ùÞ�B¯H޵I„:IµA¦ñA±�[`‘Nx"ùv,\«4¢Í#Gš÷¸Úºß­¯¦ˆãEI‰@&¯±ðŽ�A»öâ ¸ü›¾"è‹ô ÎÏ�|SvLÉ|aðÂiIë ºcÀ©xÈ+Ø ^(pËAíB7Þ©áÃØÑÞš%¦ïÔÐNeD�añaÒ]²”›‹mSÁC%úŠ„¡lBúyÓü)Ž7fVäR};ów„©ó;¹ÒqHµØZûûb‘<ëcŒ¿esaKXÌüRí‡'ŠXÌ¥Éb}3²;Oõ臣€¢¯ÞgHn Å/*Íðh!ÊìÑ5¡¤ÙXäm{-õ i7�lïÓÖZ¿ƒÕA\úß›}7ÚM KÈ(±5âŸâ‹'"«rQ¤Ÿ£¤qvü'Ó°)�7G#¨E =GßRwº´ÁÒF‹ÐžôÈëÒÂŽÿÌ;Vh)°ÜcâñVÆöìBX^¹rMòèqÑ~¡³ÚO ¶€3ÍçH²1ÈG"/ÌÈ)÷AMdvà5Ã61�§ÀW÷_îpËYM8ÐÒ•T^ãKàëÈ(¾e ›‰m"·rPÿÖО"vWM:ç]@Ñì3_•&O9ºnq ¸BЖiNšõü¾‰¾à­ÓއÌ7V‡3&²¨Q›äÇósYµ} ‹`²(ÀÙpÞXÌø¯H J¶ ðÆvRÂñíi󦄳}^&ËPêD(Äõì5÷SîKï\XAú€]5«j6 J©Gä#µºÛA3ôlW¤�Ô)Ik¢1«ŠlZá)"ÿK\b׺>Ï–fMÃŒ›«äÇÒ™Ýn’¸ˆÙ‡˜ä¾B�Ñ6îôÈï8X(µ;D�£ÜßzQª9^Ý(R•Êòñ ­Ü š€ wk•eÉ1+×õ¶_ªøl”3#“Éð Yð]I·Ã.”lÉ;¸Ééþp"ÝhC¤šÑÖp:$ý'Áª&«†ˆLJ‘R%ý#¸º4ÒËzˆêEžxŽn¾â§ë|‰lq†²_â.óíöà %ÇhE¯\¦|“ÙØiJć4˜iÆìíbšwÕfÙ=‘à�ÉÀc¼ýà ”M£bYsõÆÃF!i˜L¯ HÈÖ5ì ´‰#GÏ=ê&¦xÑ®v˜ŽƒžÄ¿å-;-©E %B÷pwê5¹Ìz êžxŽn¾â§ë|†lq†²_â.ûíöà {)ÇqGö艥|ŸÚáF¯¢¡Ò"�¹™g·ÂÕ&ÆF°wÛ$ wQ 3É11TÍܹ%÷ZúKïbT>ú€7ƒj6 J©Gä<µºù@7òk]ðÖ£¤vv ’l¢µbô‡7PJ¶B 3ƒus‡{¿–—ý¢J ±6™–vú­ £òobÈ'>!þ—µ† õµàqÇiTö–\ð€í¯‡d!Òs,ÇëRl¹í¸5¤s§YµwœBîm;%ÇõÌ1© [ê¼&ÐUñqœföˆÊ$Ám”ù‹'V¿mX¤šÑÖ C#|ȳ%«�_#µL�€dýw ‘<›©Püv¨Àó éQŒ¯’£]ˆq…­ÛaðâÚWØÿÎ\y/Â;Sã–…§zʳ¦f!Ý/aÉõkߟÁŽ@Ö'Bx€Jöþ©qH õ<1« “a.ušÌñ*«j¬èKÙ\¨jµÇ°‹<#Á õùÊ›Iv$ÿ'Ÿ¬?«�‰[Qå¾TM·Eè\’çcšŽ~ ±Øÿ±‰°Ýðë׌¹5k8Oã¦'ç�'ù$Æ£¾f}.ælF¯™…ž ë°ªH ´s0Ñ¥H²JÌü!/ÌÈ)÷AGC]ò øC€%ÞàãªY K((_ÐËžT^˜M¯¤IÊ1Á5¾šÏñ+Ÿ*K.=óT\ «7ÁÂR8ш“äÝÀÝû°Ž÷²iY f®úRí‡'‹AÇïÉXfs¤ÔÍÑŽë«‹€W[~ô¤k¾œÐcŒÌƒÚdBy€JŸKÉP(sÞÞÊ«. Kï[F*—ÒãFTd¯EäñJŸŸo`­«nåñAÀ?B¹É¸ÑFxn“'Ù­U«�‚QW®C}%tþ!\¬ð8ÐÒR;ÌòºÀ°¿Ò­¯ß«Î=V‰5Oµ²c“B•« 7ìØy-â¡ÜKÌ_�ØÕe!~ñ}`ÃõR¸Ÿí¡�nÛ'°e|wmõ i™VŒlïÓÖZ¿ƒÚ1f÷ÄÐ�0ã> HÖ¨jèǸý'LômaƒŠËJi± ¼·[N:Žþ©d>³Æw»ßΩm™v³i’Â<'¨•þ²¿à[ò)‹Y>ú®öÃB$¦qºŽ ‘ô;ί×U1‡¾¡�ÙH kµ# �f8åñ ²tÙ€#e*aïPYA2ªŠÓËÛü®«Ÿy�jY ”¦9|)çO }¡¥¢é�Ìôñ ¬6²®{æ­Á°“Ý#^6d?Z--›u!yÅ{æõ‹Â 춈hõ·Å~ £KhS$O¹±áV>I$F§¸pmÚg)PRdâB‚4ÐDÛñ%aȤk뛿pÀ˜xÌ}³j ,éZîm/ רÊ^«Y»š Z&› é},ÚIºèHÌ}ÄDøV‘ô=Vü�„œ&H'½¨%üŽ…N#®K^4 §v%€eºòB¢ÌeDÆÖ¸‰½«î¯Ž„¾ixwVI!�sÙ´Ú&É¢É (¸L¯„ôëØÛeO´/ðˆxyëõµl¡¤@Ð*^a•AÉC+ äûŸŠ‰²ÜË D;ïÖñi!+Új²õ¾Àm ›æ—%"Ñk%öùÝ’"Hƒ¯ÇJ“†¢B7@Tä<ƒi„Y$¸g»Ñi8µÖ ÙÀ×¼­Ä©ùÐ8k‰‡$²©bµ”�@ÔöÅ\*vÏÍûÐôf‡F ñ‚4ƹs¸íí€ñ§@Õ.±u-k›VêP€äàÂ%©ZîK¤g%7›ÕéT,ŠŠÝÙµœìõ ›åþpIÅq%øÖΟkKj­vÀü#óò‰3PåA„;w�©ó>¢—w*š‚â‰ënÖ‘ºtiy†+n¯µòŠŒEÖöÉ]X-¹;#‚öjÑ¡¬ªHpk´ˆº·²Ñ• ⤪[@©0°p^\k•¤Ec&ÙàïTß/»p§fR8žÔÌh(°A·óUÓ&õ ž¾ÿEètX:•¤Ø£’=U#'Χ]ôÑ‚d#åF}%BƒX# ´ñgÒÈ#9µ‡Ð� \ÓZ—<{$ø€ÞüV釋AíëÍ`}�¯lUáè{飨ªHJÅu4¿ $i럹pë§nÛ}€"JïP¢4 ~éLø›÷*íl’ýÐQÌj/7ášògöÓ_<ÖÇå‹#SôÒ÷¶ÖiÖ!Hvä‡ü zÑ{PNØîzƒö§fÅÁáÔ‹RýîÉýÈ ÒQ—<ã¸Zƒ‡÷ÆŒä �TÈöì)%ÃqAþpÑpÿ߇geµ„)ðíg·Ÿ¿bÂñ }ÙeZ—ü¤ÆÀ€äù÷ »šËgQW@¦ k"\ŠŠfÚÄœ)©IÉßBðÎgDéz4ULÁªí ˜1ímÁ˜ˆ¾ñRï\0µ¯œ=¸fhü{£ëü éQŒ¯’£òv_WN˜ªÎ>¦ô+Ï$ôZÙsvw;Óò”hÉR×Óœ�FÒsÍíg#ÆèÁ5ÁÌtÖ}ªj w!êLõL‚q² ï$­+ò«¨udna ð`aˆ‡¢¿Ç�+¿nâWð}ÜuŒJ=Öà�;U\â”üï«�‰3\†^%ê§u!�ö5ÁÓÀ Ú6ÙŸò#­ù~Â×#XPÞ-'æ/Ïá¸å `¿w.�ú £驦Hñu0Ñ¥k$ľ¾ò§sÕw#—&rQZhóHLÃ7xî ,K*YWø—ÈWxݱn˲*±nõY{™ãEH$4,û&Ž6ÐI´U¢´úÁÑ¥þR^ ¦Æw�„º–_¹ªhGó¶ÏŸÝ�­Ön¹œQt—&ìæ·»×íò ]A*ᬠ™ÞbËw©ªid JÈu4À¡…f¹¾½cí¥‚È,m wn’OìgJ‚Âå Å4[ ´y(ùÐÖÐNnÃŠŽØx¬32Yè‘UÜt‹«C…êtIxµÒLÅd«‹ç#cOAÛ3>ûsC—�–œ‹çZ„øgÅ­ëŽýŒp+†!JoéuÖô 5ä]q¡KVº˜“¬2ÏÊ©‹�¨‚#E&jðöÂ[ëmíc”<Ý …µ=rks+ùÚ»Iá�ª÷Õ»ÏýøÖÐrbx�™w/ÀÅ®Ç0år&$âdœˆÀ /mµÄMdÅTíçP]•ì1ÍŠU—a;‘;rÊÀ zíÐ!ŠŽõ ­ÕaJ¸¨ÙɬX‘ë‰ô¼UþëüRáä¬2@Ê©ÕD|sp{üÁFãäÔÅòš‡@�7V-ÏîÃm‚´ì“ç£ö÷½Ú^²¶Ä)}fx™›.DÏd¿“Ü2.ôi^ 6¸#n7­}rî }ÑHCt-¬§Taxe¸–_¸�²¦ ¢¤‰Ãn …Ò£NixV§ ›“>$âÆH� óBÞ® ‘˜ ¢zœÖâHFh½#:ò¹këñÌó¨@Û.w,ÉÉm€´Œ’Ÿ�ël XJ£Ê FyÐmT¦¿F¾8ÀjY¥œ«D‘ô=aúšß�=U#'ËãQ« _Q‘L}ðWYÕeª:ÕÍFüÏ¿æÏ'éŒøÂÜøå‰J?‡¤ŸÚÖ,ŽôÁX ‚øæo,¤îA<é­ÑH~=;ÄI¸ù”d5ì-�O¯É�\á¥É9Te“zko$:K�\Xsÿ€jAç6äšü_�íï×¶¹óÍØ]8¸Ó^VȦW=B�¼=¼o ~òk>+§*H.î†UOjyõÀ^‚w. ÀŠj«þ¤‡fŽÿ×rQ —#é›['Ž8úÙÖ_¨%-:*èRäáã¸Á\ˬÄ�e\ “‰·ª Ð¤�LÎUÃËZ�|!räÃí$DK§A}òÌ™`\Œbö‹%¦º¬±¶ìñ-ÛãtÈV¦ªÍBǼ;¼w ÷å28W�J°8(‘ÞwyõÙM¶fêˆ/åÝ�·Åª[·—‰~þO­Æ¿BB¾¦Ïî_ªo̶ ûÜOÜÁo£ n¿OÈ„€�ÛR¿ŠúVª ÐÓ‡õÇw÷ «W4Ää ý:n÷‡Ú;?@ÌBXGŸ˜Fϲ }±™‹‡ó‘Òʼ øâ‘×݉25 Æ ^aÚ‹#­*OBû©+²SàCg¶ªcÀŠj«û´4몟òsQ —#ì0<â î œ‘Å‚%oòÀ;r\a¦Ó˜+nº½Õ#Ú0Rß­÷ì¹ád,Zè<'Ô­O«þ×B�E4Õ8G5Ì{º;–‹3BÎ&þŸÓ­·ŠÂO?¸+¹óä�µŽ+ÏÏî_ªo̶ ûÜOÜÁÃ¥9n¿>Ú0Rß­Šì¹Ü¦ªÍBÇ¿ ü^—È28W�J°@0Y+xV¥œ;rÊÀ À]º«Åþ�M¿óaÝ=› •YÛƒéî6È.ÁJÀýGs̶ ûÜO߇¦ã¶ViÃñ{ ³²ˆNǦÀšmÞ}Ò ¾ä-9Hí�‡´œ�:n÷‡Úl;?@ÌBXGŸ˜Fϲ!·3iO¹×N)dÿhÉRàÓ˜R}i!{ªpÏëêÙ&Ç,[O̪^-„“] í#ÑÔ\[iµ�;ìÐÌÈU6䚯U ·ôõiµ¶'hò¸ÍŽa„ªIƒ[‡{r¨ôÁû²W�IÅÊ@{Zµ²dx“°ÙÎêɨ·xŽn¾â§ë|‡lxNÌ-]‘ê6Í8ú´å5‘ºÍ½îÕÑôލ[ÙjÌÅÀ˜ÆNÿ5nÌ)dÿhÉRàÓ˜R}i!{ªpÏëêÙ&Ç,[O̪^-„“] í#ÑÔ\[iµ�;ìÐÌÈU6䚯U ·ôõiµ¶'hò¸ÍŽa„ªIƒ[‡{r¨ôþl4Á[÷hÒ€\DêÏ©±W²k¸¡ñÅ]V–rúÙ¥>­+¦ÉÀc¼ýÆ<¥3Kpž()¥úÃÒ¸ž¢�A²¦�»±¡Ø<)DÀ6ÖðU±/�ȘÓpZNåy„;ýv,eµðg¼½7š� ²‰¶«û¯Ž÷²iV„.âü00⎠ê®ê¸ææiL“8ZÑ_Ò4‡"sºãs0ÃõH²ªüóÕö wwåX�p—"iB]plïïqºUí‚5Ø€¦F/©~ϲ+¦ŸmOXg­ÙÌ ô=ê-˜–6œvW–5¦üÁå7\W•þØs&G7w$µøº¹¢‹Vü?˜¾'‰éì­¦~½ã»kKT¯2¼Uâ'Ú$˜ºït/Þs,êݼà‡H#OäSY)R³^s°,ñ‡ŠÅ,¾#ºÆþâ𴚺ýð�»Ý ÏsÝ”,Y2xjåÖ�ÿ5kÇðìÜ%±/ê¤Ö„W=B�ÿ/ÚÈQ˜1(�qJ®y͹¹`_&ºgÿ–ü´—±'‰éÚ]·€Â¸‰='¯¦úNU¤bÁ|º?. }Þ,›ÕeÓaÌñ¯´‚ ZÜJü¹Ô¢ n«� ¯VhJòþ 0 ´õ<1« “$c.£›ÕïJ�·lb ¥$$¹ÀH¶*ºÍ¤ñd*€$µ3rãSŽíéõ™‰2.ôs¬¹õcp{Ô‹©Ÿ'ˆªñM¿’[Ð8Xd•IÌü0ñ†#*AÆ¥èýZIäÛÓ°¼ê ûwepvÎŸèª ÑåºoöÐÌ*ä=¨˜àó ðf ƒü˜˜÷Ù¢Ob1=÷pã+ z²Ëè2ÇDlê�ãÙÜc°]ê3ÖMŸqjM¼@¦ñA± 3_‘Ah„ #\bö8¢Í#Gšƒ—¹ÝÎŒ†Åå«Ï7Z§ÜÅqæ*âŒEº#øJ�;DáDRÒ÷XHd!k¸ß1˜¸üþ ‹Ô`à}4 {rÜ�K‰ÙùçÌ2ºKí¹_€]Fk5kŠ  }ìõ ëÝ-Ø.=¦ŸÜ›oIU‘v¢·WäÑp3Qå x;úX!�Mý–i0Ð6U ­0±÷ïa|UKXÌ-]‘ê6Ò8úºåë_ jÛ‹¯ ô BôèH—O`eÏõâÒ²z¾>Ð�ÝD‰`Nó�A2sÉ,º‹[ä˪“0Ö…Ê�§˜»àó¥$Ég¸fsÝ-{ÛãJßmdK=îUÖ'ˆéK«^ÈÞ"®%øG:4ëÅqº.žfPO˜Ö‰›wnM{Åk!ƒ¿­µ'Ð1ZoJ¡};Y“8Z¡_Ò4‡Z,®ªWh·.RçNïÂÌí§k€Ü¾¦pþ,m;x€ûÌ÷Õ»i×믻H,1}_Œšî�®õ#h!*‡Í¦ ëêtxUd'É «7$µqþ¸oíGÌw)q”O –£Ñ&ÿŸ Âã4nÆã2w¸…uúíµŒ×Ï/íiì!ò¡fkHCÑÎ…rFO™ñ}ÊGX²¹,Õ9̇«� XwÁËXY€¥�çeðM‘+ %,üpÒzij©OTpm®ó‚!TÐ�ÝD‰`Nó�A2sÉç¿<\äË7”0£„z §˜»àó¥$Ég¸fsÝ-{ÛãCÜücg=„ÏMÇ®„+Pòç%3¿D®6ÛŠ1WÁC—�–œ‹çZ¾Äk<ëcŒ¿esYK!Ì”�ƒ,ã´Æî‘¼Í‰¬ô¯Üô@®Ýñ„�R¡ë›&�,±ï)"^^/ª_vúŽ*ċӯí$œ»Ú:Ö¸â1(}`ˆ|q”{�ñ V<ÏÓoœ‘¸¨F“Ûµ©âÓ©Ú[ó®ìP Wv�RÅ@Ò�ÿR;kË�Zé«]ü¾K%!)É$O¹þ͹ÄPÏ�îÉ�5T“àMP(àD€\fÝ>éYd?Š[·Å¯òwwg#8!«©�rT^õ@Ôæ,š%¦ïÔÐNXDâa6ê¥mÉ$¹À!K’lúû(Ž6%-ÚNR¢´ê㪱ó•‘wƒ ÷0!&Ð#ui3j��­çäMeÉ'úk—fÒÀî2Ñ&¢É]}�Âl ê—Ñ ëµÛHJÃ{4ÆîHmÑßílŒ¢à<@zÜÏw�êRÅeqGÄêæÓà “ZAs÷€Ë÷j6 J©G® —À4@*¤ñd†ç¶Ö'ˆéKbª¿þ²n˜H0¬ àì=rÀ²õðxWv‰:«ñ߆Â]ˆq´$Ò£î6Ú �¦ä¹ðæøAãädâLè¾F³ˆÌêR¼ïí~Ÿž„§)°9-•RÃXZ×�äã*`Õ§,š%¦ïÔÐNnÄ{ÈvO©Gäµ¶ÞÜŠšôå3ÖMŸqjM¼@¦ñA± 3_‘B%tþw#„´gÎËRLÈ�ü³�Ò´@ë×§è!’¦Þ-'æ/ÏáµåØ}Þ,2›×\ÌÁw‘T©ÕO…Òsè ~ âõñÕPˆèî+Nó ¾Y}{ºÙÀ®UðK’*O'ÐÔ›F-^ãH·¿=Ì\®c𣶸n<ò,?Ö£¤pjµ¸Z]›«8Z:NãKZ- ©q)cig”8±ü“¯`&&émÌã±¾e_VN¾ü\“âöÚ-g -3’® dÍYáêÃW} å'&â�eRâ^>Jd+¯§ªâmZYÞ:²f‚Þ¥ºT÷ ¦ Ï0#7ú½•q5Š<àú2Ÿb†ɪÛU¿?/¦‡Ê›Ixp3»þ$±ünO/¼imq‡ Ê�e·˜oGÅÒ�ä°¬ú¾à‡×gPƒpªš—€ÖG÷øÅa Eä U“ëZž_õªÚDkQk·ˆÛ�'RÊèñÕNÁçˆèî+Nó ¾Ys{MÞëè:—ZËB•Ä‚11}7ænÅFŸ$5«ãE6nÝŸ¤ùÒÍx¯'Gü„3×HwiüÓ%ýU‡bƒº¸¢ŒÆûzüÞêo‚ŽŒ¹’[å@yh¸Oï1çU”kÌ~ºÍa\‘äh"¯\çe,õOÒ ‡dn">ðjRf¹›¢ÅôšÞ‡ðy¾œ7û*mvÅ›Ù}Êì,K*YWø‘ÕroŠ?àèJ³QÃeïöè‹#MôlW¤ˆßŸ!M#”'ÓáTôŽ…@·ihÓ¬§¸ýt]ÏZ+õ»°‹š—³�á›™î‰~ÊesKSƒòú?UªXö¿Jý5‘ôÛwÞýº³aš•HšOYõÏ¥¥ë¨×ëqÌa”w³_úîu{rÙ:¸mK´ˆ¼òÞöô½Ýí£ ˆ†¯F%ø^%¼e‡�EÇ·Á‹'AÐn ˆ£¦%ciÿ'Ò®Wòƒg#åG^dú IzkÐŒ]˜ HüW©ø%#éܡ㟸쉜-©­ UCWJË í{}=,‘HÅÇ0,™‡¸aJ?/&üYZD•\�58Öp¦Z­ö¢®[8Y:]•*J.ÛØ+æÂÊ—Ž–£ÈÒj(ïáܡף¤Ô¥à­öÂâöÚVùJmp/âšHÓÇÈ,©ÕD¸!åÕcìGiF ?›·b ÐÓ‡õÙó Í)É5 óþ} aå-ƒ�[)\ò×<‚x»� üÏ-ÑÅZè ‹r&Øt=DòpßHIµ}© Tí×q8üƒ?WWwbÅÈË€ÊÂPhËû'iž+¿€Ž…x¥ìüU“î'ÛáºÊ_\¡äL˱Æ\ë±Ü÷aHWCªÓ^å(REùŠíc”j°�ÍJ‹�-ËXiP’šZïíæú: ë–s-Ä^xøô'Ge��}¥ꞯo"ò`øê¥=M­‚Á²%�Ñke#µE |=§Yw\ÅLÉž€RµŒâßé«û¦Ž†Ð2k/j¯úXðƒ�&Ïãì' 4»v$Os/G¿d÷…!ãÏõ¯ËXiP’šZïíæú: ë–s-Ä^xøô'Ge��}¥ꞯo"ò`øê¥=M­‚Á²%�Ñke#µE |=§Yw\ÅLÉž€RµŒâßé«û¦Ž†Ð2k/j¯úXðƒ�&Ïãì' 4»v$Os/G¿d÷…‚ŽŒ¹’[å@yh¸Oï1çU”kÌ~ºÍa\‘äh"¯\çe,õOÒ ‡dn">ðjRf¹›¢ÅôšÞ‡ðy¾œ7û*mvÅ›Ù}Êì,K*YWø‘ÕroŠ?àèJ³QÃeïöè‹#MôlW¤ˆßŸ!M#”'ÓáTôŽ…@·ihÓ¬§¸ýt]ÏZ+õ»°‹š—³�á›™î‰~ÊesKSƒòú?UªXö¿Jý5‘ôÛwÞýº³aš•HšOYõÏ¥¥ë¨×ëqÌa”w³_úîu{rÙ:¸mK´ˆ¼òÞöô½Ýí£ ˆ†¯F%ø^%¼e‡�EÇ·Áþ%4Á[÷hÒ€\Dê ¦ð¿€€á„ퟘs§.±9&î’`€‚Âå Å4•…C+“?ç2¦T]­nb ¥nøYÿ<Üšôî%ðê¼§IPN]ÓáaÓ@ýp�V;YP²Æ|’=p‹Rzûø#i´Â]ÂãŽï—ŒÒO\�Ó0—#*AÆ¥èý·ûÞ,mšH “¼2Û‹¸! åÕé·pfÇÂpñ©ywû;¾ -þð<6x€à¼#ûüjáh\òÉ›lS ˆM¶¦ož{ ªžEÀ`ýã’¤ÙEM�÷r¥WýíéÊ+®*x.͆-q&%zvgPµõ«è¿ß¡¥þÎe©f3I!H«B *) 2�›‚øæo,ÀÕr¥±¦ •nÍOÝ>Úí­ŠGÌl³g#0dª—îíŸq4²tï\Ã¥';aó‚°¾YF)D©tÙëæÑ�ÿ(Ç­ñ-G¸6 Ö:–^ß·¦í^‰Z7lÎ*¹ X&+gOµ’ËÀË’àŒþœþÔ•"40Oɽ?…öé5Ú’Ù æooÚ³\ësí¶<42²aõnd²z¾>–¡Ï2W}œ£T«ÅÛ<÷RÔ?¿�js‡ñÂIæ-š¿Tê  JÈÇÑí/à=ê^«‘6®v˜ŽƒžÄºå+;-åf%|Ô%+3Ñáì6iš¦ó•ü ñΖÿáãhD<‘£áªl«$³Ï JX˜=›¤L1ÐÒ(¦DwY!é·R�ֽ͡b´ •J>Ë` )¾õï^ˆþ:»‚jÐñ†FPÉuñÏÕöûîE³"A$V î‘ÏIzN¯Xá— ñ®7qtÍb^oJÙY26ŒÓ¢á:YÕ¦æÏ�ŽÑ£Å«¤'09Ïüæ¦5:•íuÍW\Iù9,¥ÝˆÍ†ÌÚá!!JÒ�\ðîgëõµpîÌ‚ÌX×tXTnï"œWïTܰÂ]® [í�I'üpmqšfò­5oº¬±ºÍØ6)öFÚ6×;MÀ‡�Aa€>+§*O?G¥3DÅè–—JžW0‹»Ÿ^ÆÂ¥íŠÂüb‹hB)!pýæ/Ïô޵CGmßU—×XÌu Ï˜T}{é>!é�sã­ `SO�§ÉOUk; iVŠplïïqºUíf€aFa°I·¿UÐÁfíóâåmDôjTƒ†ÜøEAv´ÔA±1fáq�^�dó s¼2‹y‡vÇWZ6G�¿Ïø½¥ýãï=Ï\ªj휯åmDô%ðù¡Ý¨ ]Çýübò�òËô¾?W¡OOyõÙ^‚†øy‡³áÆÒ Ÿ¼s5J¦Þ!ㄽôÚ&ºìÉCiHºfNöèïaÌà¬DkQJÎ/ÛöG²ÄïÔâ̇wgç^)ª¹t�Žór õí^ÖW Kšg%BšÕå#7ÜA²ñÓ.Æì{7¿pD´úìÞ U3ª·AK]]2Ù"V~W¸tÊ’.™ªWzuô­pxŽŸ¿±÷ÄiU 5OåS‘ýÖÄ�×Z }Í= ŽèZö‡§÷Ú€ vªHia(²–¥ø aP˜âÜ…ªD¾Â³ýþe;{€°çYþÿîP+îg / Ìu_çò°T èÀØ3ýJtCK„—µÁn™«8­:Ÿ%¾1‚+¶ê\ÁgS–\Ôw6�� ­0±÷ïa‰lxa̾_Ž#:R²: žX®Çw$—ÖpâYØ‹oFOoñ%:ÃIJ¤B lPÝDÁ_+¾rýãm;ÄŠõA©æçByêL£‹¨™O�›ÑÒ ïmž– á» Ž . ôI^¼ÐF–Òô+„«úÁ1¨})w�^óUOy°“7žvùUª8ÿèœM8Ç•úk—fÒ_‰Œ,ü s«'ºèæ1X±H±Š,f‡—evé| ÊÀFÑçhRÚàŒE«ÛÑw:Wɼ€€ä"Õ“»i™ëq¸æ21}c‰š®¿Ç�$fN¹×¾< ˜Ýê”®øà®v˜ŽƒžÄa—‹"N/q;VÝü©hŠ ì•�°iì‹ÂZ¬—l>ëÙKº!$Æ+¿çÄRǘ\¥hŽ ‘ô;ί×J1-Šže&Hºó/çð¤²â£ÔcP-ůaúÑw; Ém±TõÃ<èE[ÕÃp?@ÌBX�ŽÐ!æÕŸIMÜi­5hðÑã¶Ü´ža=Pµ]o™«N/‰M- W0»g¼½7ÌõûâÅØ·•볌³BG‰+O­¯R‡u‹&Π‰ %âÛ ÚÁºfa賋¸FOLñþÎíFÂéòÐbÊà£@�Ût#N; £W‚ªÖáëðÐs/­\ ÔTŒ¤ÄUdD›a6ê¥nà ªÇEJifÝ•¤£’And”Çâò‚N1Ã(ƒj†X e¯gÐÁq8ÑŒÞÊÜÂÜ­"ð¥Þ”�Ú,: ´œXGÜ*á}íÒ§Õ!k¾/aǹf¸é× š ±ýCpEtñ8iÞ ðšŸïbûº`í†è¶|øës_Îæ¯ïp½WÿñB-LÌF¸„¨ÍˆU{'‡ðêUªÛ �‘V®C;}YfoÅÓ™€–RÈ&Y€Á½ÃMýÈS7w¸¨ØÉ¬?UÑm<ÿÆJ�p/☞P.ÖÒ¨wUHœJ³#×JçŠ `íJ�šœ9 ‡^ËËÉ?LÄq›çbû2®„+TksÙ Ì�˜Çõmžo ï»ÍË ›EÖ¾£"D¯Ç‰NB7ÑNå"VC¾DP ºîc‚'?ïwEº4°µÂ¥íŠÂëbXd\IדýrÕLÍè‘ù7:ù8OäÁ!�p§&O!5F¹$²1É Òù<ƒ¯0úÙ©«/NÅ�¡3¸­ë®3—^ûëø–É¦š…nެO }p‰-]8 #Vð ]˜�»¦A–\Ù:~§úø$Iò6ͺ¶;zv#`m¯Ž=™¸Fü§ªÃ#(阪ÿn†—o—Ù‡˜ä¾B�‹+ôÀÆÖb¨4-Ôœ_-ÖÒ²vHœJÊß,#§pßë¨çÑ`°L«™œ9ˆº˜xm+Äã ý:ž¹„/í�÷„aF¢7ÜnËè2ÇDÁYH�÷àM$4,þ&Ö02`n]6ŽÁ×ä;¡#ÞþíYC ‡]Å÷Ë÷‚;>?vMºùñ nM ˜ÆÖb¨4-Ôœ_-ÖÒ²vHœJÊß,#§pßë¨çÑ`°L«™œ9ˆº˜xm+Äã ý:ž¹„/í�÷„aF¢7ÜnËè2ÇDÁYH�÷àM$4,þ&Ö02`n]6ŽÁ×ä;¡#ÞþíYC ¥nà ªÇEJifÝ•¤£’And”Çâò‚N1Ã(ƒj†X e¯gÐÁq8ÑŒÞÊÜÂÜ­"ð¥Þ”�Ú,: ´œXGÜ*á}íÒ§Õ!k¾/aǹf¸é× š ±ýCpEtñ8iÞ ðšŸïbûºÿ¼a‘ ÿ–()ÌaESC$ðÿ–()÷a˜ ÓAT$(I,J)ðESC$ò"="òÿ–(Iò )òÿ–(Jò )6b‘ ÓAT$(,)"WHAT IS NAME OF FILE YOU WANT TO PRINT?":… FL$Qb‹ FL$ð" " Ï FL$ð"TEST"bbFL$ð"B:"òFL$ob‘ ÿ–()~b † R(,3)‰bL$ð" "œb¿ "I", #, FL$«b(‚ Xð Î ¼b2 ‚ Yð Î 3Ðb< … #,R(X,Y)ÚbF ƒ YâbPƒ XèbZÃôbdLð�p�cn‚ Xð Î cx ‚ Yð Î 3&c‚ ™ L,R(X,Y)0c‡LðLò:cŒ ƒ YGc– LðLòMOc ƒ Xccª‘ ÓAT$(,)" "¥c«‘ ÿ–():‘ ÓAT$(,)"DO YOU WANT REVERSE PRINT?";:… ANS$çc­‘ ÓAT$(,)" "d¯‹ ANS$ð"Y" Ï Š "REVERS/P"d´Š "GR/PRINT">";:… ANS$çc­‘ ÓATååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååþl4Á[÷hÒ€\DêÏ©±W²k¸¡ñÅ]V–rúÙ¥>­+¦ÉÀc¼ýÆ<¥3Kpž()¥úÃÒ¸ž¢�A²¦�»±¡Ø<)DÀ6ÖðU±/�ȘÓpZNåy„;ýv,eµðg¼½7š� ²‰¶«û¯Ž÷²iV„.âü00⎠ê®ê¸ææiL“8ZÑ_Ò4‡"sºãs0ÃõH²ªüóÕö wwåX�p—"iB]plïïqºUí‚5Ø€¦F/©~ϲ+¦ŸmOXg­ÙÌ ô=ê-˜–6œvW–5¦üÁå7\W•þØs&G7w$µøº¹¢‹Vü?˜¾'‰éì­¦~½ã»kKT¯2¼Uâ'Ú$˜ºït/Þs,êݼà‡H#OäSY)R³^s°,ñ‡ŠÅ,¾#ºÆþâ𴚺ýð�»Ý ÏsÝ”,Y2xjåÖ�ÿ5kÇðìÜ%±/ê¤Ö„W=B�ÿ/ÚÈQ˜1(�qJ®y͹¹`_&ºgÿ–ü´—±'‰éÚ]·€Â¸‰='¯¦úNU¤bÁ|º?. }Þ,›ÕeÓaÌg¨ñ‡ŠÅ,¾#ºÆþâ𴚺ýð�»Ý ÏsÝ”,Y2xjåÖ�ÿ5kÇðìÜ%±/ê¤Ö„W=B�ÿ/ÚÈQ˜1(�qJ®y͹ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååþ%4Á[÷hÒ€\Dê ¦ð¿€€á„ퟘs§.±9&î’`€‚Âå Å4•…C+“?ç2¦T]­nb ¥nøYÿ<Üšôî%ðê¼§IPN]ÓáaÓ@ýp�V;YP²Æ|’=p‹Rzûø#i´Â]ÂãŽï—ŒÒO\�Ó0—#*AÆ¥èý·ûÞ,mšH “¼2Û‹¸! åÕé·pfÇÂpñ©ywû;¾ -þð<6x€à¼#ûüjáh\òÉ›lS ˆM¶¦ož{ ªžEÀ`ýã’¤ÙEM�÷r¥WýíéÊ+®*x.͆-q&%zvgPµõ«è¿ß¡¥þÎe©f3I!H«B *) 2�›‚øæo,ÀÕr¥±¦ •nÍOÝ>Úí­ŠGÌl³g#0dª—îíŸq4²tï\Ã¥';aó‚°¾YF)D©tÙëæÑ�ÿ(Ç­ñ-G¸6 Ö:–^ß·¦í^‰Z7lÎ*¹ X&+gOµ’ËÀË’àŒþœþÔ•"40Oɽ?…öé5Ú’Ù æooÚ³\ësí¶<42²aõnd²z¾>–¡Ï2W}œ£T«ÅÛ<÷RÔ?¿�js‡ñÂIæ-š¿Tê  JÈÇÑí/à=ê^«‘6®v˜ŽƒžÄºå+;-åf%|Ô%+3Ñáì6iš¦ó•ü ñΖÿáãhD<‘£áªl«$³Ï JX˜=›¤L1ÐÒ(¦DwY!é·R�ֽ͡b´ •J>Ë` )¾õï^ˆþ:»‚jÐñ†FPÉuñÏÕöûîE³"A$V î‘ÏIzN¯Xá— ñ®7qtÍb^oJÙY26ŒÓ¢á:YÕ¦æÏ�ŽÑ£Å«¤'09Ïüæ¦5:•íuÍW\Iù9,¥ÝˆÍ†ÌÚá!!JÒ�\ðîgëõµpîÌ‚ÌX×tXTnï"œWïTܰÂ]® [í�I'üpmqšfò­5oº¬±ºÍØ6)öFÚ6×;MÀ‡�Aa€>+§*O?G¥3DÅè–—JžW0‹»Ÿ^ÆÂ¥íŠÂüb‹hB)!pýæ/Ïô޵CGmßU—×XÌu Ï˜T}{é>!é�sã­ `SO�§ÉOUk; iVŠplïïqºUíf€aFa°I·¿UÐÁfíóâåmDôjTƒ†ÜøEAv´ÔA±1fáq�^�dó s¼2‹y‡vÇWZ6G�¿Ïø½¥ýã†!U„ô:¬³ü W¨-z(êݼiŠÚ€ vº¶'\éT²+˜Ô9̃¯0úÊMgJþe;{€æÿðPͬ® ^M_€3 ç÷j"9.”uÎÕRþ}F©"¶Ô¤„ä—µªn™«N/‰ r8% 0ÊZ]Û"±3jËÆÝçœMÓÇ$k!—Y(çB—º íZp8ßÛ\Øp½¡]B$æ€srº À¸±s†ÿ `ÈU£—®ÉH—@´4cþ€‰Û©ëÞ2õ„› µ°2o�/}|#5o·�f5n¨µÙDIØe=†êdZ„J·Ö'ˆ´äK}`d &‹o£q0x Ïïc¨ÉÂOhÈZ+±l6ëÝ\¶i¼h.¿¬ ›K'ÐZZ)„Ÿ};M`8ƒÑ’Ò®w!³adŠ/'¤W²¹¤Ê¤ÀÛyû$r%sŸ"i‡Cš¨!ÕTK%=;<@‘à¦oPúŒ¦¿e}_�a_â—Ì úCÛ¤�tåG`à­yrí«7hó (h¼;ý©fXe5º=r‹€üñ®ã% éQŒ¯’£ÿ]Aq…~ÑÊC“ü´ÚÏÌöèC`E¼Íšæw\Ì@2±Ûñò4¼ÅJaŠ·Ã²¼Mö;€îJ =õaHe¡Åí3½}F#“O賨)—Š Ð†}Ï�]_é“Ìôñ ¹Édt…·Ï'Ú «7__f(ÓmW¸þtÏœü¢È šÖ‰éÚ™üÏK/!Æ+¿­ U.o¾–º´ë¾ ‹ÝL_üªîÁ0�ñ¦#O L�WãR8›Á1˜ÝC³gú;w)žRÉC+ ×§Î]Ú2Œˆó DT Ï g)äM·óQÏ:χÜÿh&p}?8Ö#BI]5¢þ zÑ}f/� nóW—6,p´A¶¢Â¸¸ã½ÂM~É7úk—fÒÀî4ÑÏÒÆäkEù;)Ot%W¿[÷\isr8 ÀHÊãÁŽþpÙ.Øk*J’OÉ?/sÜäÁ'÷YžðfOu0@‰ÎŸ§˜—u‡¦ŸFipå (ÚTÿùà‘=F'üÔß]«�ˆO®K¡oIzkÐŒ]˜ H2z?ß[o‡Žï߆Âb‹Ã ¥#¦ö¸BDª” ¸¦Ûº^âË"›æ¼Ô7åH¿\ñµ²‚¡‚SÀ”Й}19MLªìxW�€T�«ïp÷„+ak‹ÚÖжž��<È_eç�ð€IfoÝr&ÛãuÞÂ�i=GÅÂ'GüT¯!Ø +ç"rAGÎ fÂqº4r’RÍšˆ¶j‹Æïߊ¾ì‰ú.‡¨núQEÕ'$ÇÆì:I´,¡Ý¼~7ÕD¿³#Ÿeç^HK¤élwa+¾â4åÿäm8´SÃÇã¦öjÝ[SW÷¾¡¶0ýšŠÍL€-¿IfžÝrPðU›6kÈy—'±/ÌÇúƒò Ì`»ƒm£©q\c&ªòwìÎ(ɪiñùÇó«Í‰`/#¨búæä+ÚŽì)}k=C:ÑB釚H\F}JxfãRè¬Ù5òÑ€#k1ý­°ë�EADLü[BÆ·Ð�VNexþŽûÏeïöè‹#Mô=/‚Àù?vn'ÓßPô�7NT‘By„f©Yw\e&=wá˜ñü³ä»ŽŒ¹Ù«¶F2h@'¨¨‡öM÷ ‰ |<»rY“HÆ—-q‡F ¶%õ1Ί¥z¾>™�ð.W+ŸZÅ�‘AjÆè¥%;“3í3©Óšñ¿È�1-õc$”ÌUÜ|=DÙøßáFI]ÆÄR¯ér;7¤%°È³ŸGP¼l’°ƒÕf`ü¿ªÂ# éQŒ¯’£Ì]Aq7K!¯zªÆ *=&¸ T4q® dÍY£ÓÝ�fsª²[ àRdìb \ÌÒ4}4 {r’:ëf7x²¨] [ÜÇ þÐÓAq}é˜Aèë�Un5«±%EŠnðߟ¤…qF(v¤­|r§óÁûÂŽ¾‰G µè\’çcš½~R±‚¶'Z�¸Áº~¼Ý?›•ZÛ³ö¦ÖÇxæf� !¡R4³»\§±Ý÷XH¿Yë jðëÂVëmíkPÝ>Á"g®rJë�qzpê¢5‘»);%ÂÐΦÑ+ôö�î=mLäÛtÞðÈ¥±Ï9د0žñ‰¹d: ^ ÕÊê¢5‘»);%ÂÐÎ’¹|"‰&î—¥v1l 6žÅÍ ì­¦~½ã»kKs¯Þ¼|UD'„ôºB GNdbÇH AÂYÏã�¨ ŽÏjðçÂaŒ¾:5ò<- �Œ{8—,ËXY€¦�îÕ1ÿUM%ýC[ŠtÓ¸W² íö=iÕêW°+58¸Ó^VÈdQüµÐ'ܳñ ×”#aT.Ú5qfglîeƒJ :íY�ÁõÆ Wí5‰ha¿óúܵއ;.~ºÍCH,{¯\ôYèÎw['¯¦£òõv¹µÜã›Õo—@†óûVasòG›€p­Ìˆ[dŽB@—ú�dz‡¬_!à‡wðW·–Ñ G^6ÖwEƼ9¢- é‚ç%q-ÕÛÊY@¼„‰\‡$–³†’Ë­Î�ÉŒMºÓRúk»ñ‡ùÓæû¥Ã9~íÈÁ*<äÛxÔ »­aüʺ|vbgÝ<Ý�ƒoÖŠß £"¼T#©Š­¯“R_€ªÐÚ<Í?�‡ûA5_€G �íìjД2®XÉ„“Ïé .â:˜è°ÝÌdÒþü9„å*/7Æ1r#”mA…€Ò¤R­vŒY~7ֹݾ™ÛŠ�àV_vRzÍÌ3 BÛ›æì=lQÚ 4ŸÜjýqɺu|�gÖCÝ”²W§`QÀû#³HÆoRvû:™YP´¶¹ä›‹‡ûA5_ÿ»ÈwDD»]#¡Z�kq5�ŒÒñ0Í7“â³ëI[�žÇÎÀOM7B7Á*kšfKr�Ò¤S‚ê"v²ºÖÅÖºœÒŠžÔ]jv`ƒÓß3UDcß™ºÜ?hEÔ5›öyuÓ·¨Ì3vÃâ•~x×Šß £"¼TÏ jC|ÿþ!KXõß<Ñ6—|ý71dêºÈ|MDÈŠ2(‰ëõ�—Íë2Ø 6”â³ëIez™$­ÿïä;ž#Ç2r#›dHxr׎U®ª€(z9ößm…Ž�ÏŠ�ß]hyKxÔÆ6‰òÇÃaÐfˆ j\Ó2†ñpl÷Óµtx{|Õ â•‚²ØÿÏÑ4Ì"»MÏ jGvù2™YP€Àßð¨O¢¯¯ 3Fç¬vCD¼fÑ–*±M൙ÔîÜc¯gæ@Ö´ b…™%®Ì>¡ý'F=Å.¾R€øµ\tØ¢[°¨v0¨âªË¿Õ¶™Íµ—×Wfu§ÈˆÀ"1âå1á˜Ù:tOÓ,�ñyo÷ÊÃvqbªRhZ åRx׎Ù¤ü ¹IÓhKz÷0•]Tj¬ÅÙºF_/Ë::_ÿ»ÈwDD»]Ï�A±LâÕBüÂ9`"â1˜è¯òIhy¥´Ð:—ã).7Æ,fÅ-å/“@eاR–¨u'®è£ÒÅØ¯™ÎµŸÔV‹nA<%n£ö+ì0á˜Ø?jMÚ 4›öx1ˆ‹k$H~áCÜ‘~x×–Ù¤"»�Á'›.Ë0”VTk³ÞAÃ<�;4L¶ÿ�€Î'ã¯[É�“Ïé.â2˜è° Zµ=q f«ã F=Å*p!›gC„yÖŽW‚tv²º×ÅÙº�×¾ŸÓ][ÈÑEpò+ê8ÝŽÞ7jEÖ0O|&c½®÷·|x{|Ó à�xx׊ÝÕSÆÅ‹ rKz÷0žQThÀÝ5Ë2�{+ñgïÜÌvI=ºfÛ“2¯Xá �‹ÍíÜ�Äæ@Ö´ ]y™$¹Ò> ÿ#-3�-k!Ûœ0ÍÀÑŠ[«´~+£þžà½Ý²™Î¾KÎ$àÄ#OÑÆ6‰ó!ê8ÜŸÞ?hEÖÛYØxÈ­aÓ·|x{g×?Ø�ƒuÛ^šN#è´§MÏ iGvýF�R^€Àßð¡M%¯¯ 5_ÿºÈ~AD¿`Ï—*±LÛÕ;þ`9`"ä5’â³ìIe‡¡±Ò> ÿ×°l5:% ›iKqrÒ‹R–¦~,z á.m…Ž�×Á™×ZelVuÍË4‰ó!:ç²lgXQÚ ,…ÜvqÇg»? V…/Eä‡~vß–Ù¦!¹��†›.Ë.�^RhÄÌÜ8Ã;Ž{:9I·z�е'ã­SÅ ƒ�Íë6Ø >”6¦¾ÿŠ)­¦Ò0—â .7Æ+f “cK‰}&[‚&ªê§Ô¿Ý»ŽÛŠœáW_vVÍË2…BX’øæì;tYÚ6›öluüÊ»|p¯Ó©ÔñŒ¹‚~ٌŠ�ö"³HÉ rN€ù:’R^´;½ä›‹‡ü;1H¬wMD»RÏ�,}à�Ø]Ûõ1â>“û° Y‡™%´Ð> ãòæÉþ½Q;—mHl}Ò‹S¬ª�(¤ê§Ó³Ý»�Ón^«†–D‡Íã4‰óæ8Ü“Ü?i\Ô9…HÅŒW'›‡x|~âC䈂xߎÙ`ÍW–¤—9nCz÷-™VTƒ«Åã@Ã6[�Ä ÷аÈwCD¼ZÏ™>±Lൗ!’K_ ”â°IZ…™#²È6›å BÕedÒ_§iKly×¥W–´z0¦æžÖ³ èäàeÇãY_rSƒÔÌ.‰óâ8Ü–Ø?�[µi—AHÑqƵt|~f×D߉~wÔŽÙ’úà;@Îà:wz÷/™YS„¬Þ3Ñ2Œ{ÿA4c0P‰x”l˜ZÏ�+­Sß�“Îé.ã0˜é´îݯ¤Ðþü:—â).7Æ+n šiKqrÖŽQªv¤r¾1ֹݻŽÛŠ�àU_yTÍË/�î è÷ÐÍê<�Ö2†ôpmøÓ¶tr{{Õ á–‚²Íij04̳GÆ rN~ÿ:’Q\€«ÉÛ<Æ<£«”ƒLx\ ürP>¼fЖ&±LᵘÕï9âãtÞ†Ÿb=f�Ÿ ®È9…å*,7Æ0r#“¹é: ë6g²ª‚0©çªË¿Ô²™ÎÛ×Y‹ç èn…îì8çŽÝ8hEÔ2›õjùÁv‘È¥$OzÝ@Ü�ƒ|ß’Ý ¦ô ¸JÓÙŽ.‚É]Tj§ÉãBÃ<—};œÂï%*}HÄ\Ô“2»[É!�“Óé0ßêC£òÛav…™%­Ð>ˆÿ#0?�2r#“¹|72ë6g²ª�*¦ê§Ô¹Ý»ŽÛŠœÞY_yU{!âyÝÇCÚ4á˜Ù7tPÒ,‚ôxpþËÃqr¯œPðŒ¹‚~ÚŒá �ù³HÔrN}ù:’_R´Â�囋‡ý69_ÿ´rP<¼fД@±TÝÕר:`"ä5”æ¸ï\�ž#°È9Ÿÿ#-9q 3¹àÃYGxtØ¢[±¨z0¨á¦ËÀÛ¶™ÎÀ“Í Ù¢+Ê:£÷î6á˜à=tOÓ c›Ö0=ÒÇÃvvc~Ó Þ�xvߌß`?I"¤—9nC|þ0�^\€¬ÍãAË2�€ýí P‹°FMD»[Ó‹-­WɃ“Îõ.ã:DÙø{â U�±×4—ýF>Å*j˜~A¼ˆ’ ‚þ–‚0©çªËÀÕ¼™Î·“×ZRtK~ÖÊæ®–5€íŠà;tOÓ,‚ólpýÇÃx¨8>UHqð‰~wҌْ"»�Çh—-·Å®€„ÄÅãAÌ6—|þ=1eë´Èv�•Ø$ã­Sàµ�Õñ0Ì0�â­ðÝáAÐþü:—â#C7Æ*q Gø ”PjºW–¦~,®æž×ÅÙnq—]H�i[lSƒÕÌ:¡ô+è4ᘠÿ4¯§ ŸÜjmÈ»|sc~Ô ⑲¨žuQÀü ¹UÏjC}ÿ:”QT„pô¢Ìj»{;=_é´ÈyADº]׋&}OŠÎTÛõ0Ì6–â°ðIZ‡™%®aÜ/>ž#Á*q˜g]xtÚ¦[±²v0ª6úІ"­ÛŠ˜á]e�KuÜÆ7£ø+ê¢Ëê<�Ö2†ôpþoȵ|s~áÏi¥T§&ëŽÙ¤ÀMÏ rGvûþBšWõß<Æ2Ž~:>c°Èv�Á—$ã­Sß�“Ùñ2Ø6˜æd#JŠ«Ñ'²È9žá#0:Å*p ›i— 8ï°¢¦~)ªê¥ÕÅÚ¾™ÐÀŸÞY‹¾ ]çn…î!ì8æ˜à8jEÕ ,ŸHMÇN(›‡x|�bÝAä–v~ؒ٨,õu]^Gvú0 Y^lÄÏ×<Ê@—{+,opÖÌvIHÄ]Õ‹@µSÛµ˜ÏðÜU–= @Ö´ h�ž!¦Ñ4—ä)F3qc40áÃYGxtÜŽS°ªv*®â¨Ë½ ìÛ×dÇãY_wUƒÓß8‰õî/éŽÜëÞ×)„¯øpÿqÉÃv|ezÝõdË|¬‡¾Ý ¤ô ¸GÏrM~÷/“�ãFµ‹Ç2‘{71eì¬örCHx¿�Ÿ Å Ž‹Íë .Ì4”â­òݤC’Ñþü:—ú F=¸*q#“�K†�&¶¸„&ªê¥ßÅÕ¼™Ò¾ŸÞU_x§P’©$1âî4á—Ú?iQÎ1„øpÁ”Ûb$OzÝ à�xuÓŠÝ �,vö0]^Gvû:’`P€«Å×<Æ@—{+Up-ÖÌvIHÄZÏ�2­SÅÕ÷Ö¼?`"ä:˜æ¸If��Çö�NµM7B7Á*n ›iKlÅtÉ*|R,®æž×ÅÙº�×¾Kc-Â#OÑÆ6‰ò+ê8ÝŽÜëê©)„¯øpuÓ·|x{z†°c&RÓ�Ù¥ü ¿TÏ eGvã1�^Y„pÏ�2­SÅÕ÷Ö¼?`"ä:˜æ¸If��Çö�NµM7B7Á*n ›iKlÅtÉ*|R,®æž×ÅÙº�×¾Kc-Â#OÑÆ6‰ò+ê8ÝŽÜëê©)„¯øpuÓ·|Õ¼™Î·“×ZRtK~ÖÊæ®–5€íŠà;tOÓ,‚ólpýÇÃx¨8>UHqð‰~wҌْ"»�Çh—-·Å®€„ÄÅãAÌ6—|þ=1eë´Èv�•Ø$ã­Sàµ�Õñ0Ì0�â­ðÝáAÐþü:—â#C7Æ*q Gø ”PjºW–¦~,®æž×ÅÙnq—]H�i[lSƒÕÌ:¡ô+è4ᘠÿ4¯§ ŸÜjmÈ»|sc~Ô ⑲¨žuQÀü ¹UÏjC}ÿ:”QT„pô¢Ìj»{;=_é´ÈyADº]׋&}OŠÎTÛõ0Ì6–â°ðIZ‡™%®aÜ/>ž#Á*q˜g]xtÚ¦[±²v0ª6úІ"­ÛŠ˜á]e�KuÜÆ7£ø+ê¢Ëê<�Ö2†ôpþoȵ|s~áÏi¥T§&ëŽÙ¤ÀMÏ rGvûþBšWõß<Æ2Ž~:>c°Èv�Á—$ã­Sß�“Ùþl4Á[÷hÒ€\DêÏ©±W²k¸¡ñÅ]V–rúÙ¥>­+¦ÉÀc¼ýÆ<¥3Kpž()¥úÃÒ¸ž¢�A²¦�»±¡Ø<)ADÀ6Ù¥kjÅ’‚ÃôJ_%lŽ4wx!…U‡©–•ƒJ ³íZèÏn5ëcŠïaBl-†±UçæÕÔŽÆFª*¹iF“H“»2ØÕåß0æF¸éòïÕΊ*‡èî+Nó �~K‰ÙùçË2ºaí‚5Ý€²FXšj-¿šŸIO­gnåñAÀ?Bûâ“ðKIµE¦í˜ûÊà¶RZ-d›HBy’­–_�ªc±6&Ř !­¶n‚¥k‹Ù‡˜ä¾B�ÑAîôuËprҥݼAÍH“nå'"äªVéå¿ð¤wÊ*^!Ë i‚ |plïÓÖZ¿ƒßAl÷¦ò?ø�+Ì_��ºÖ�½¿òñ-Û=^Ù±íÖ'dhî[æ¿Ó’e@·[pŬ§„XqÎÁ[“”IÍÖ“ÛéÏŸ òîlj h´nµÎ>»î2Ñ&ÜŒìd `¶cIô“\í묇}H3<²VL¦RA�¾¡MÓÌmú7�K,BJÀ_Ó"FºOCáæ,K*YWø‘'rbŠ\Í¿;Å\£l”ÇÊå�j³QƒßÖÃÖM(Dôeá‹ Þ’Mo‘r/%à$ ¼¾‰ê‡–—;ÆÒ¢øœÝ‘¤Ýáã9I)ÇÅ´l°píìI1£;sÒ²)�a¾”‡=@=QºYãR8›Á1˜Ý-³jú;jIJé=óm) Û¥ÇÂË=ºIz» ƒ8@ˆÐjÅÕgò‘NÍžNrŸOD£•ÝU€ÎBºÂ#6—1t%ˆwçê?¢©RiÙ©óÐšŽžÏŽÚ¬3h‚„–üæA¦g:•íuÍW\Iù8,¤ÝZÿsÒ²ª||ñ Ϙk¸¾¸pî—‡ú·}¾!J›PøDL|‰Á»x[-ËUõ…ÐRÌ]�¸Ì#*Í-¤l½¿¹ÞÜʰ]êÅÖÌ6ß)íMÄ¢1)ÿí%� Y3 ýTe¶8»ÈqOšŒª¯Äܭ㾫¿»î2Ñ&ÜŒìd `¶cIô“\í묇}H3<²VL¦RA�¾¡MÓÌmú7�K,BJÀ_Ó"FºOCáæ,K*YWø‘'rbŠ\Í¿;Å\£l”ÇÊå�j³QƒßÖÃÖM(Dôeá‹ Þ’Mo‘r/%à$ ¼¾‰ê‡–—;ÆÒ¢øœÝ‘¤Ýáã9I)ÇÅ´l°píìI1£;sÒ²)�a¾”‡=@=QºYãR8›Á1˜Ý-³jú;jIJé=óm) Û¥ÇÂË=ºIz» ƒ8@ˆÐjÅÕgò‘NÍžNrŸOD£•ÝU€ÎBºÂ#6—1t%ˆwçê?¢©RiÙ©óÐšŽžÏŽÚ¬3h‚„–üæA¦g:•íuÍW\Iù8,¤ÝZÿsÒ²ª||ñ Ϙk¸¾¸pî—‡ú·}¾!J›PøDL|‰Á»x[-ËUõ…ÐRÌ]�¸Ì#*Í-¤l½¿¹ÞÜʰ]êÅÖÌ6ß)íMÄ¢1)ÿí%� Y3 ýTe¶8»ÈqOšŒª¯Äܭ㾫¿­+¦ÉÀc¼ýÆ<¥3Kpž()¥úÃÒ¸ž¢�A²¦�»±¡Ø<)ADÀ6Ù¥kjÅ’‚ÃôJ_%lŽ4wx!…U‡©–•ƒJ ³íZèÏn5ëcŠïaBl-†±UçæÕÔŽÆFª*¹iF“H“»2ØÕåß0æF¸éòïÕΊ*‡èî+Nó �~K‰ÙùçË2ºaí‚5Ý€²FXšj-¿šŸIO­gnåñAÀ?Bûâ“ðKIµE¦í˜ûÊà¶RZ-d›HBy’­–_�ªc±6&Ř !­¶n‚¥k‹Ù‡˜ä¾B�ÑAîôuËprҥݼGÍH“nå'"äªVéçÏñ£q§fâh{,L+ÿe ã�*ÎTû¯‡Ú.ušÿÒ¦sMÇŠp¿Ë¾;Ñ ¤“ðË ¸R}ÕÖÖ 5AÙtß„IÝÓ×2pÇþÑ%îˆst^Ò©q™˜µÖüÔënÙ ºKtiȉ3KÉ:Âë%é:íîÉby3µ;-¯ö\Ž ¼÷Æ54?@ABCDEFGG/CHANGEBASHIJKGR/DR/3DBASLMNGR/DUMP BASOGR/DUMP1BASPGR/PRCNTBASQRSGR/PRINTBASTUVWMENU BAS XYMENU/2 BASZRANDOM $$$ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååþƒ4Á¨÷¦€LïUê3è½R¥â^8t³,zØ�ð*¾º Ñþãm8ÄŠõAó^«CJ“U òN%xšÀÁö½ÕF EÃ"fCI6“À–Ó­ÆÄ¦ê93-p�V>’¹|"‰&î—¥v1l 6žÅÍ ì­¦~½ã»kKs¯Þ¼|UD'„ôºB GNdbÇH AÂYÏã�¨ ŽÏjðçÂaŒ¾:5ò<- �Œ{8—,ËXY€¦�îÕ1ÿUM%ýC[ŠtÓ¸W² íö=iÕêW°+58¸Ó^VÈdQüµÐ'ܳñ ×”#aT.Ú5qfglîeƒJ :íY�ÁõÆ Wí5‰ha¿óúܵއ;.~ºÍCH,{¯\ôYèÎw['¯¦£òõv¹µÜã›Õo—@†óûVasòG›€p­Ìˆ[dŽB@—ú�dz‡¬_!à‡wðW·–Ñ G^6ÖwEƼ9¢- é‚ç%q-ÕÛÊY@¼„‰\‡$–³†’Ë­Î�ÉŒMºÓRúk»ñ‡ùÓæû¥Ã9~íÈÁ*<äÛnÔ »­aÓ·|r~× à�‚²…Ò4̳MÏ rMþ:“R_€ªÐÚðvIM®¯ 3G¬zMDº^Ó‹-ºSƵ˜ÒE›_ Þf¤è°Ihy�´Ð:—á#B7Áþ‘t×J5wr€ÛŽU­±~*¥áž×ÅÙº� Dî…hVzÍË3‰ó î4áŠà;¸�¢)3èjýqÉ»x|�fáCÝ”~xÖ�Ù£÷à©9Ý:w|þ1�__gÄËÚ5Ã<�{;9c¶v�8Ìz'ã®MÝ �™Õñ6ä4�þ¸ðZ�Ÿ ­HïÞ;ž#Ç1m ”bKrsÚŽU°²~*§åžÕ¾ØnÉŸ˜G�iiuRƒÓß2‰ôâ8ç–Ü?jOÒ1�ð¼_ÑëHvbgÝ@Ý�‚~ÛŠß £"¼T#‰{®¯“`S€ªÊÞ<Ç2‹‡ý86_굦«LÃŽ§¿,ºXɈŒÍö9Ø4‹â³÷b‡¢ ‚F�Í»>º*q"˜bKr�ÖŽU®¦~*¦æZðÚ¢AëÀžÔ]iwVƒÓÌ2‰ôæ8ç•Ý?jN×Û%ÖðÈ­aüȶ|v€{ÝCÜ�xx×Šß £"¼T#Z®¯™YP€ÀÞ5Ã;�‡ü6(»Æ0*}G¿fД2®XÉ„ŒÍë5Ø 1�6ó»$Š)­%³×> á F?�,k!™d_xsÙ£‡öáøö֨Ҵݼ�ÒŠ�àV_yRƒÔß:„÷ÇVa¼fˆ j\Ó1�ïpþpƺ|o{{™P¾e&RÛŠÝ �³MÏ ¾©ˆåmSgÄÌÚ<Æ?—|A6H·õ¦‰KØŽ§¿,¹OÉ�—Íë2Ø 6”â®ò b‡¡‚ €ÔÍ»>�/r›dHxtØ¡[°±uüž”à#íé¾™ÛŠ›×WgxKyÕÊ:£ö:.³ÉgXOÕ,�ómoýÆÃvs~~ÓDä‡yw ò“A´h@¹TÆhR÷C�TTj­ÌãBÌ;[;Ár ÷жÿI?³fÐ�2¯Má �šÖñ/Ëãœâ´ b=hxž´Ñ9—#-7Ç+q šf—à/i¶¢¨w+®è¥ÖÅÖº’×À˜à]iuR¯c�ž±F'ì1èŽÞ:mEÔ5›öyuüʺ|vbgîO…e&RÙ�à ’÷#³GÆrN}÷0žRTj§ÐëÁœ_/Ë;:H¶õ{I=»fÑ”A±ZÆ �ŒÒE7cmßf¤è¯ëIh†¢±È4 þ#C7Ç-mÅ æÝ“@eاR–¨€)®å‘ÖÅØºœÔÁŸÕUdÈ*D„ô å8ã—à:�EÔ9›õtuûɶ¨>4øÃâ”w~Ú•Ä ¥ó ¸UÒhR{÷0•R Þù‚ d÷<�€;:H¿õrC=Ä\Ô”2¯XâÕ=þQ9`"â1˜è¯ëIhz¢±×1—â-7Æ,mÅ�æâ“@eاR–¥€'®å’àÅØ³”×À˜à]iuR¯A‘°±F'ì1èŽÞ8�E×1›õuüuû̶|v€cÑNWe&RÙ�à ’ù'³GÔrN}ú:“`[€ªÊÖðóN¯¯ 3Hë¬{DDº^Ñ‹,¹OÉ„ŒÍë5‚{Ê ÖYz™%³×>¡äF=Ä5r#�mAo|&T‚&¨á£Ë¿Ô¯™Í”×Wg�KyØß:£÷ :rµugXOÓ,�ñko÷ÆÃvtd~Ó<ä‡xu 2•ý´h@¹TÆoL{÷-’TTƒªÐãAÇ#—|þ:ã¸c0*}>¿]Ï•AºSƈ“Îñ5á4�ýd$…¸©Ñ'´Ó5—â+7Æ,q ˜€KquߎV­³²òÒV£‰Û¯�×Á�Þ]jvRƒÜÍ:¡÷+é5èZ †´�‚;2†ñpmùÓ¶qm{gÖDä‡vy ¸”Ä´h@¹TÆhPvâ/�V]€³Êã9Îæ¦D1é‰sê»õrO<½fÑ�A±[â �šØñ6áãRÛ3 b=hz¢±Î/—â)C7Æ.k˜mHr~&à‚�&¨á£ËÀÕµ™Î¾”×Z[�K~Ñã:„ö:�´c gXOÓ,‚ñupûÆÃyxb~âBäˆwo ”+³h@¹TÆhR÷-ž`Tƒ§ÊãBÊ?—}6÷‘%*}>¿]Ï•AºSÆ!ƒ“Îé.â1˜è¯ëݤÁÐþü4„þ#0@¾*p›f_ƒyפR–¨u'zÊàþ¤…Ž�ÒµŸÕZflU~ØÆ8„÷+ì5èŽÞ>m¡ÜE¶Ä\l÷Óµuq{{Ó á‘}~Ù‹à ’ù'‡e½>»Jù1žYSk«ÞBÐ2Œ|òA6dÿ¬{HøÌ$Ëdz�MⵘÔö1ä>Œý¸îb† "‚ž|œÎ»=º1r# ”mH…tÒ‹V©ª�'©ê¨Õ´ ×ÍeÇãWfuK~Óß:„îê-á—Ü6tPÒ žw0=Òɺu|~eâDâ”~wÙ�Ù’÷ ¸UÈÙ…f.‚É__gÄÌÝ5Ã;—|ý61Hå¬Hø}$àdz�MⵘÍö 9Ø:‹â³b†Ÿ ‚í{õλ=º1r˜fHxt׋[±¥�0©è‘'¼¢ÙÀŽ�àV_yT~ÍË8 îê-á—Ü6tPÐø› 0=Òɺu|~~Ó<ä‡yoߌÞŒûàêB¦à:w|þ1�__gÄÌÝ5Ã;—|ý61eë»,% Vo•AºSß!Ž“Ïê.ã 1˜û¸ï[µ(Z×#f«ã/7Æ*p$›gH…y×¢P–¥€'zcÝä…Ž�ÒµŸÔ]iuTƒÓß1‰ô ë8ç“ß뉟*„¯öyuûÓ¶qu{|á á�ƒ~Ú^JÎç´§GÆrNvú1šYRi«Ý5Æ2Œ«ä�tx\ {DD»[Ћ-¯XÉ�ŒÍö5Ø7“6¿ÊU‰)­%­Ó> å*C>�-q˜fHxtÛ£‡¿ê-÷öÖ¨Ò´Ý»ŽÎŠœÕV_yVtÍË8¢îë/ ü m½æ 5†ÜmpûÆÃyu~~Ú á”}²�Êr04Ì"¼TÏ kRvú.šYS„³Þ@Î2Œrôí�d‹°FO;¿fЕ?±Lßµ˜Íö3Ø4‘6.Ê®‰)­%­Ó>žå)/@�,m$™bBxr&h �&¨á£Ë¾Øº�ÐÁŸÕURlUxÔÆ1„Bï®§æì=m\Ú,�ômoÌÃvt~~ÔÏï¥9§&ëŒà Œû"¼�Ò eC|E�^\mÄÌÝ5 ØÐ0i%eë»È|BDºZÚ‹,¹LɉŽÍïÆH¼¿J„ðY�ž%­È9 ä#-<�0q ™b—*8U·¢¨u'®è£ÒÅØºœÍµŸÔWflUzØmÈvж$ç“Ù?~NÚ 2„Üjþpɺy|�gÔÏ¢¥§&ëŒà Œú#¼�Ò kC{ù1�^Tj§ÐÁ‚¨`/Ë;:H¶yIG³YÏ�,¼SÆ�“ÏëEH§¿J„ðY�Ÿ ®È4„ý#0:Å*p"›gDpÅÏ¿}R*¥ážÕ´Ôº�ÒµŸÕVflUzØÆ8 ÷Ç3z@cˆ j\Ó2†õppýÓµys{{Ú â”y²äÈ?04Ì"¼TÏ rM|ú:“_S€ªËÞ<Í<’«ðØx\ {DDº\Ú‹,¯LÉ�˜Íë1Ø 1�6ÃÄù‰)­%­Ó>¡ãF=Ç-r# ˜mHxsÛ§‡ì‘÷ö֨Ҵݼ�ÔŠ�ÔX_vVxÍÌ7¢îë5 ;¢É½æ 5†ÜjþhƵq|~{âDáˆ~xÖ� šÎA3 }ÕkC{âE�^XnÄÌ×6Ã;�t;:H0Y¾¶”l˜\Ô”2®Sߎ“Ïë.â 1˜è¯ëÝšCbÐþü4„þ#0=Æ*l"™bBxsÛ§[°±uü‰«P"íé¼�ÒŠ�àU_vUyÍà3‰ô å8ç“Ùëu *„¯öyuûÓµto{|Ô ⇃~Ù�àÕ÷½4� kRvú0žYS€ªÐÜ<Í?�‡ý6:“µñ)¬º]Ô‹,¯XÉ�šÍë5Ø 4•â®ð–*Ü9€  ¡þF>¾+r# šmArrÒ¤U­ª€'¥65˜ž"­Íµ˜×WisKyÓË:£ôî6ç—à=jZžo§BHÑo÷ÊÃyvg~â>äˆzyߋČú#¼�@Jc¡.Ë0žRTj§ÐãAÎ#—|ó41dè¹ÈwO@x•’Å ß„“Îî.â-˜è®ñIh‡ ´Ó5KÜg= õp"›gB‰yØ‹T–¨�)®è§ÔÅÛ¯œ ·Û׃hUzØÆ8£õ+ë8ç˜Ý?jO×2†ñ¼ 1ûëHvbgÝ<Ý�x{ØŠß ‘ÀTÏ kLªÀnŸƒìTªÐÚ<Í6’‡ý94_ê´ùrO=»fÑ•+}ì…SÛë5Ø-�â®òb‡ $¦Î6ˆå*+:q§.áÃYA…€Ò¤U±ª€)¥ê¨Ó²Ý¼ŽÒŠ�ÕZ‹�jçn£÷ î5èŸà=jYÚ 4„ÜjjÆ®y¨¸:»Iqð‡w{ߌÜŒúº�Õ kC|ù-�__gp$ž_!j»}61eë»ÈxB?ÄYך2®Mâ �ŒÒEFqÀ)f¤è¯ëIhz¢´Ó5—âF=º1r#”¹S1ì6g°±u0¨á£ËÀÛ¯™Îš×Wh�KyØßæÿ³}8€íŠà;tQÚ ,ŸÜl1»Ài$H~áEä‰~‚ߎ [Ï�6 }ÓnCz÷.�]T„p¡žM!j»{=1c°ÈvIHxø� Å ‰“Ññ .ä:Dfó•ã U�²È:—á#B7Áþ“V{E5wq~ÖŽO­ª�%ªê’ÒÅØµ�×¶˜‰‹^Ú ,ŸÜl1»Ài$H~áEä‰~‚ߎ [Ï�6 }ÓnCz÷.�]T„p¡žM!j»{=1c°ÈvIHxø� Å ‰“Ññ .ä:Dfó•ã U�²È:—á#B7{DDº\Ú‹,¯LÉ�˜Íë1Ø 1�6ÃÄù‰)­%­Ó>¡ãF=Ç-r# ˜mHxsÛ§‡ì‘÷ö֨Ҵݼ�ÔŠ�ÔX_vVxÍÌ7¢îë5 ;¢É½æ 5†ÜjþhƵq|~{âDáˆ~xÖ� šÎA3 }ÕkC{âE�^XnÄÌ×6Ã;�t;:H0Y¾¶”l˜\Ô”2®Sߎ“Ïë.â 1˜è¯ëÝšCbÐþü4„þ#0=Æ*l"™bBxsÛ§[°±uü‰«P"íé¼�ÒŠ�àU_vUyÍà3‰ô å8ç“Ùëu *„¯öyuûÓµto{|Ô ⇃~Ù�àÕ÷½4� kRvú0žYS€ªÐÜ<Í?�‡ý6:“µñ)¬º]Ô‹,¯XÉ�šÍë5Ø 4•â®ð–*Ü9€  ¡þF>¾+r# šmArrÒ¤U­ª€'¥65˜ž"­Íµ˜×WisKyÓË:£ôî6ç—à=jZžo§BHÑo÷ÊÃyvg~â>äˆzyߋČú#¼�@Jc¡.Ë0žRTj§ÐãAÎ#—|ó41dè¹ÈwO@x•’Å ß„“Îî.â-˜è®ñIh‡ ´Ó5KÜg= õp"›gB‰yØ‹T–¨�)®è§ÔÅÛ¯œ ·Û׃hUzØÆ8£õ+ë8ç˜Ý?jO×2†ñ¼ 1ûëHvbgÝ<Ý�x{ØŠß ‘ÀTÏ kLªÀnŸƒìTªÐÚ<Í6’‡ý94_ê´ùrO=»fÑ•+}ì…SÛë5Ø-�â®òb‡ $¦Î6ˆå*+:q§.áÃYA…€Ò¤U±ª€)¥ê¨Ó²Ý¼ŽÒŠ�ÕZ‹�jçn£÷ î5èŸà=jYÚ 4„ÜjjÆ®y¨¸:»Iqð‡w{ߌÜŒúº�Õ kC|ù-�__gp$ž_!j»}61eë»ÈxB?ÄYך2®Mâ �ŒÒEFqÀ)f¤è¯ëIhz¢´Ó5—âF=º1r#”¹S1ì6g°±u0¨á£ËÀÛ¯™Îš×Wh�KyØßæÿ³}8€íŠà;tQÚ ,ŸÜl1»Ài$H~áEä‰~‚ߎ [Ï�6 }ÓnCz÷.�]T„p¡žM!j»{=1c°ÈvIHxø� Å ‰“Ññ .ä:Dfó•ã U�²È:—á#B7þ4Á[÷hÒ€\Dê ¦ð¿€€á„× š@ë8‡€^8ËzÊT«Êå Å4•…C+]®ÊPwøm,!_QÐ*ÑÅZ- Ø9)Ê^úêt5³nd­‚ÊDN1¯à¶RZ-d›P¬¹õcp˜mh;DÏè�­Ö€R�aA¶xOÌWÓÆÇ… £¿(\� ¹(Àœeû —ûwepvΟèª? ȯ0`¨wd´Z�Lò ›A,x€à¼#ûü½ƒÍíš5Ö€ã+ ˆM¶¦ož{ ªþ%KÎiT�Í¡A¨´C/‡¥AKy‹?ŸKlñ8Ô¢ÀÄ’�ž­ÈåúÁ¤§·9P§Þ-'æ/Ì8ú¶å 2ºfTòý ð_2Åa¨ÕJÒ# ªK~¹†ú&—¯nðD¾o Ñþí�‡´Œ:n÷‡Ú;?@ÌBXGŸ˜Fϲ·3iO¶ »"¸DŠýéÝBÅù凜,(уF¿J®y;9Yée²Žxˆ°ìÎ(ÈÝéÚ™ü–K©(ÈþOãR+ÏXÏ?ì¸ø”«,Àþ¼\ßH“nå'& �]顚EçºWîE‡9V³uÔm;Àï‰æÛí–s Ç Ju)¨f÷ˆÞƒD͔øR-¤M{â±ðÖ58öb¨ü ý¨7�ted;Þw0-�ågÜÝ>WzCööixŽn¾â§ë|Šls†‡GÜâe•$¦É GX ™M ß¶/�¾÷Ê02:•/S™¹6 ¦¾¬`äÄMùKÙ�;\+�ÉÀc¼ýà ”oÏ0#;—ÔÌg+_˜CäøÜ'²c¹ùâ Yò&ê¥øvjÅÒ3ªîAK[&¿¿C¾_P¼c‹Æ‡Á¢Â5ËŒ¶jwƺñ‰]Ê%é·vHÑ+í⟘¯tÏ*JFLþ ›þ€‰Û©ëê2ºS 7u0£ƒv�§˜»àó¥vÉ$«ÀÿðB8ƒC׃šÀþ4bd¿¤Ô‰B7ÑNå"V@¾CPb|Z3Û¨²‹š—³�á•™ü˜¤åZ[f]Þ-'æ/Ä8ú°å iP䑯}�]ÊÃ[IvLâ+ v +í⟘¯nMgsÉ-“oZã�*ÎTûºe\ú·ÿHG§˜»àó¥nç ª¯Û6òã«áþdO=Çv3ªí—Ä"@Oà xp§ X!ö>ÐÁgHÑ‹ü´�Ò´@ë±¾e‹žv!uVC/ùZÆÆàq‘äq"¯\ç†2KCn¯ÓñAYµ Ð^|5që„«…ð*rls SÅeqVÄæï Ów+[-…÷p+Ýuxþ“/5}H�Yù Ì òºB§6¯­mµ¥o¸T“Ý"&eűØÉP¼ Ž™‡ÐžUj;1ÏŒ Ï{‰K©!KÈ5‡÷ÓöVY/݉Ø|F¸žáàW̱1l¿M¨Ç<�õŒh²¹†å P-ů|#§)çs+£ÑP  ¸ôæ�“X+›t÷€JQøÚbùˆæ„öÍ2Y-”U FKaDˆ¼åçmÅL¾ªûê)¤Ç;gf|ÅmŸHjyµ%A_¥vÞh íZÆnï㟿왌ÓOR!jr%ëÇ$\ÕZ¾CGtßËÿ(àa1;g¾¨Z6u «K 5Õ8`Td€#;%ª™6¸|KÄqnç ‚ÏÛí? €aF¢7Ün˲±zÎúo@Ïm,¦6ÿÇw–æ­Á°“ÈGFŽ|ƒjü6x!µù(–ÈeOË„“ÈÊën1–ÏKtiȉ3KÉé‰Õ,ÜPºº¾* (Áq:¯�|œ÷ÀxOÀuï˜MH i”q`ë¯gúɉ^Ï6³YqHÃÓÎÿ”»*YWø”ÈUo²I‡ ¦�@ní» É þ êF°ú6jMÂr1)ÿí 7 Y £q}yµ9›3žžT0‹ÂŸÝ°åƲÖ~~Ä5wpqƒò?Uûm’ÌÆäq‘5T“àTRàέiDwCêßâÑõFJóŠú#—ò«…íD®¬kŸ"‘uTe†s…t[lÏE}÷pg! �rϲ$¦UÖ±¶ìÞÌÏÓoœà¸åémŽ3ªí˜!ì3_•&H*·n—í+’ZFžžc±&…æÝåÆ§×Ÿ·ìOZdO\ïÓö‚ƒsÖïŽqWÇ(À×eAŽë«‹€N{Yíõ<ÿD²z¾>–gÏ+W}•Nþ1€sÄÛã#ý!¥0Ë*1UÅ,Š7ˆx æŽ$5«µE2g£ãŸ¤ùtÐ=›Uµ/Ä «@7aó¤%^Ý;Ÿw‡ceºDr’Iš ºùa n�˜KviZ¸tOú>�„×Â$"ºÏûMHæÓ —¬Ûa9÷¬¸Rvsñþ!²²œÉ¡Õ9ÌwiÒ^ré€­�ÚþcK+õlÐyÌi�"Ãar“§Õ’E©"ÓÓ¤?„þEXÅ¿'oü#[Ä"û‘&€Õ2§Àwµü“gj–J:jË»réá]扫is†—\îúíµ…×ÂôºC F©Ûëܲ¼faë™H¯Oré…­R¹ë¡<—Ìè§…åÉMiJ$¤�z{Ãõ@é®[«ó�x“a ñ¶f�jË‡Ž»CnKÈìOä «âÞÚõ¨Xšæhð¨Ý\9aÊÙwQH¤JÄßéÀR¡ë¨5Õ` K�œ9‡YØ`mH|Úúž»ÓB%‹Ð¨ò¶n#˜Ÿ¦æ”sιvפoyÇ6Ö¦d¹'oüB“óç #x{Õ4 YŸ\mèJx”–»·&ÉêÈàŽz뜉ø-¯nú'EÑ8ÚëíÂä-¨rý;÷¯¬âU÷oH€qºö/þð¦ÂOâ¾5˜êО}9y‡DòamH€æž»Ú.\ÐQÌTÕøx¾ŒâöÖŪµ0<*Üú¹Â„-=Wż8©üò«é‘ï^˱nP\–¨¿‚v¤nú6=°�ºëw«ëaY¸xb!ò26ÐíRìCz‘ñ;÷¯¬âW·›H]’Ï%¦"²ßë¨Õ`îNO�œ9kòî¸s€­�«ç2þö¬K2 S[™¯º‘"òkÚ¾¶;ˆUO‚l9ñcšˆ~ äíZšû'n<ë±§ëHb—0KÉì:¦¢,:‹›J ]p`ßˉ–dóXBô™nwêß$D° +í⟘¯nõHF�”"‘|H€¡õæð¢uj«f F[Ư¹NDÛÓ¤?„ŸEzN]D¢ �é.;ó¦§%Ÿ`P¬TagÁžZjź ‰ÈÆ´Ö~¼ã”k‰OQÌúö¤âÞÚEõ©F¨pæÔ òàOæXB懳Hnr; ¨R¹ë›Õ&«И}9YÕ5Y~€­�Üçè3K\ ÐsÞh/¦&‰l‰h¿óŸÁʵV<ÏÓoœÇ� 0mWvÍüb�Ÿ~]ªKyi„uwmeè÷3ÎÁ Î�•¬‰¿ßõ¯Ž÷Ì>Vi…¯'‰TS' EÉÆä^Eô"÷ýÑ€ ¾‡!J¸‡0ƹkÊ¢¤3ª“w$÷AHFª k¹ŽóTMÜ»ÿ°‡ÜBÔ:ü¨ÛsI)˜a#[gŽœf5n¨µÙD þ›ÙEƒ‚™6¢ÇꃡIóž‘Ë��?ŸHdxRÏ”0ÓÑ8š� ²‰½ãöÂŽ÷²i; fÛ]”‹yÿHĉÂ1ZWƒ;Aý“h1ÂèfßHn ´#òðHR<¾û"`,~÷i"”^}îLþoTsäáD‡\,+luu/Ì™`\Œbò²2�D@l½¿ðç ô ꦸ߮v˜ŽƒžÄºå,;-åF}%j‰T!éA¢Òj7šó—ªäéãîëâãG?‰) ÛZéâsòAí¥É_.äÛÂò½daÖÛD€\ZÝ2 òíggµã»nÀ #§*°ew[xËõE+ �ä¼Ö)ž¨]Q<‰Èåj}.Ój©ôIÍ$£l¿g涃C׃šÀþ,…�À¤­Pôƒ7eQª�eˆtT!õB¶ÊR;΋ü°‰ÈŽù¶Üˆã5²º9ÓÒR:µÖ¸'I˜ÈLnŽ~Ä5wpx[Íí?“‡y†AÇ£ÈAX�äÛÁ ½daÖÛD€\GÝ2 ÌÅqHÃãÁ5Ÿž‡§bÖt^0îLÉ?/sÜ´í+Û*¿võR)£[¤ÄXxøŒ‘`‰�q).Yý�Áã‘ôî%ðê¼å,bX¶5Å­Pô„73]ªþSô.¢ÁHµˆÿ¹âéÒÂŽªÑ7< POæ¯Zéî%:œ§ä žX®Çw$—×LNù©¸ˆ1ð—R·æÐ5•˜m®}ä #vËRñB6TÌÝÊÜ/÷'ËYPsšËÌH�Õúú 0P\Á±¶îñ1)òma÷‡Ê›!dU–¼üQúž7gV¨F %„0eèM vLi 5G^Èҡ㟽×xbfV{Íß:œð'ÚKգ y%º;Eû“‰Ñ{ë®ãH¶/2ÑëRk½òÐcÀü ¸�Õ;¾U=Oý2m½sÌùçì2®„ÍYPsŠËŸoVjŠŠ‘Ö¨~ìõ ëÝ-Ø.=ê¥%M­È· öŽr_à€" q‡ª–L¨ÍFìõÒ¢õÈ êÎSq@ã{¿É§å–\ç,â9þ GŸß¹ðæøAãädâSè¾—sr 9K²OÑ#Ô/ÌÈ)÷AMhvà5tDL|¡Êã÷3[’¾ÍÐUñq©z϶5P&Ñ ª™ÍØ<)Íw^9ÖðU±/‡ï>¾êì]/‰p*§n—MA[ö¢GqH–îÉõÅúÃnÄ’£òW_K‡†!ÒrWôÚÏÌöèCGnÚ8)dÿhÉRüÓ˜H}¯•Gó�¹™g·ÂÕ&ÄA°ªØ=Vh|÷ Éf ìë ¡÷ÙœÏEh•É™V �‡Ñ‹�DQÍÃWÜl Ëç7Ö’2Þ–Íáåƒo ~òk>+  r?ôUZbµgËË­Ö•¸ÛÆÜŒ¯ÕÿÄ5B )û´ã$Ù&Î󹸷’ß"è‹ô ÎϘT|`sã‡,¼¹s$²¾¶pÌ…Ïd±9bkïeÃW;x€ ëí3[aÀîÐUñq©}϶5Ÿ6¤z•›ŽmUôg]ý�„’lv%ùÙü)òò‚dD½Uow©\„´c‚¥5þwOº(ðá«û°’Ÿõb›f>I)§ÕÇ:F¨Y¶X»jNææpô¦ß5bS+ÏõúkïeÃW;x€ ëí3[aÀîÐUñq©}϶5Ÿ6¤z•›ŽmUôg]ý�„’lv%ùÙü)òò‚dD½Uow©\„´c‚¥5þwOº(ðá«û°’Ÿõb›f>I)§þl4Á[÷hÒ€\DêÏ̱c²ÚëqÌa”w³_úɽñrÜ'ŠŸ‚oº –ÿSMZËBó’F¨ê¸nÊ"}8$ç‘~å-ûÊgú§6dÆ­–dï7‚ž ã™ç#cO=Û©d¼eº¢ÍìˆÖ|šÕn��˜Kãikh‡O|úZ‰—ÇüfêZì X�æ;L_üªãÁ ¹‹¨HOJ„/\¹Yâ^ÀÅ9BÁae¨h+v[ Ù�­·ðgLŽ«\ ÔTŒ¤Ä_I)›aÞÅ�õ5¹Çå<"ôC ¤Ö„Ö=vWMŸäÔê@Ñì3_•&H*¸nZbeºg¢–RšÖº‰éŽ­ëŽ«ãg‹©Er!k‚ƒsÖú°àIHÍ= ¯è\ÑaÒ÷‡HHOJñ/ð¹RRé^÷r¢,¯§ªâmZYØ:¸~Kqºõï÷»KË %sРÌF}˜jÅö° ¬Õ0Ç4p&Ü2˜Ç“xU­'¢ü «Ñ7#‘^%;§Yw\c&þ$¶váGõÁþ—™ü¡¤Ægkh‡Oúµâ'Ú$íºì X�æ;"OÁ¤Á[÷\isrA ¨Kmé¾í5ÀÌ@§}9^wJËÉm€T�û’¼`[ÜËØF'ü¨Û±I)¡aÞÅKÎ8ÖoŸóâÛܼ±vêÆÖÔŸrGj]E¢* §@8�‘N�‚n„¹�%&+gOµ’Ýžø à©ŸëŽ«ãikh‡Oúµâ'Ú$íºì ¸s¢J"è‹ô ÎÏ�|W^sÌ%ð¹RRë¾í5ÀÌ@§}9^wJË iT BplïÓÖZ¿ƒÚ#1‚߯÷H}˜j¿�õ5¹Çå<"ôC ¦6ÄÂL–æ­Á°“ÈDF¦%ƒ3;§Yw\eºg¢–RšÖº‰éŽŸ é矉 h´nµÎ>¦Î+Ïô�î X�æ; ¯è\ÑaÒ÷‡HHOJñ// +í⟘¯nîMnsè Ém€T�õï÷»KË %sРÌFøU.�_��ºÖ�½¿ð×  /¦Ö„Ö=vU­'¢ü «Ñ7#‘^%=G¦3?Åwº´ÁÒF êÉýÈÒŒÿ¦�K&ÈöO6ÛR‘ê638úµå0Z%™Fs¯þnî Æ“ÆC@@ãÏ=­,²×ëqÌa”-”�ð-WTLó_Šm€"Û§à3È>�M+Yj0Ì`[ÝMµSù�V‘¤ålA¿naD™ÿMÝULÁªí ˜1·§q�^óUOKKÒÆ^§˜fMš� ²‰¶«û¯ŽŒ¹2k)µ¬Sò– �ZÆ™ÐVg3È=:ê䬰]Ê龨ó2˺¹ÅÂH½¼íæÀÞ‡�c€Ô—ÛËû?eqRÃIED楫0‡µ“_ g! �€Ï¹5¸}¾DÄÇ •hA« T›Öð‚vEÙtù‡xÒÑz}nÎh+a;è+w ¶é9½ÌzõôRixŽn¾â§ët_RNpžuµ©p¦$©© 0¡CeÄ´\¾Á‰ÊHBA9ž/|§Ô8R—ÙPÑþ‡¹“¾îJ =õaHKÄïæ+ý/üà yÃëÌ?{˜)�ö¢_¹Ö‘µMl¯Qv¤¦ø¿Vv9õp¢‘IÜ®9òÎË·¾¶;zv#`mŽq™¯PpÕ¢æÂÿš¸­¯Æèã%‡4Œž~µ¶o•$µÏ«ƒ’;tà´Åa½¸ø6AQª$i±(R•Êòñ ­â �€Ì; J¿vÎm;þ‡ª‚ö [ªÁâÐÐñ"+ˆ|q¡çÞDZwOÏãádc=„NÇ®…ÓKx7@V—*^4-›W!�ªé:´Â;˜ÓŽûº­°¥ˆÏOØh„Y!Ž}}BšÒOØ£ÈF‚.ÃjD_“‰ð}<é­ßH ƃ'½‚;ëmíbó§twŠÿ +—Ú´éiÌ€záûãü—KÍ[FAœÑ�tQ\«lÙ0 mÉ5îœâù¿ô>Djù@Ý UŽ3ªíF˜å>+ bYÅŽæ°—BeÀJu¢LR Ø6��… Ž­„ŽŒïa1qKiÒPŒBö—õ åìU¸¸¡Ù>èNïÀ28¯¨ÚJÿÜòL ² 'í'V+àzFÜ€—§´bú€f�ã¿\,+.mg/ÌgIGÄLÏ–2ÀSà �“Ïñ'.ã`˜ú¸�Ih�•®Èa—â#h7¹*› Kqy³ŽT‚í y²º¹Åغú×ÁŸ³]hl6ƒÔÊ:îîOá—àWtPÚz,‚Üm¬Ãt|~Ù\ä•~ß‹ÝÕ Ä>ˆrNvé:”Y-€­Ë<Í2 ‡üAG_ì¬ãrOD°f׋U±LÉiµ˜Í’/Øq>“6K¾@•)­v¦Ï>ûå F]�-r„˜m#xtÒ[±ª0¦êñ˽ÝÓ™ÏnF¬ašD‡nÍË:”îî@á˜à*tPÚj,‚܉pÜÃv|~â,äˆ~ß‹ÙiŒûà¼@ÎÜ:w÷-�JGdO\øÆŒý%œa¡ÎìN&=æKrà¹,½a‹‡÷AJ²SœRäÕšCÔ@è¶|lwL+ŒÌ£ã�*ÎTûºa.NúÏž$\˜I­øÈ(¾5âŸâ—óê"VCG úÄsºyw²þîkWv‰:«ñ߆Âõ]ˆq\I•’ƒÌ´'¬a¦Ê©H,�J ßœŽ½÷Æ<7=1ñVLœR6£ÿíEÍÃNû Ñ9{> ³ iPè›lïÓÖZ¿ƒÚ1f÷½Ò6 Wó-‘¿uó¡ZÏÕ°Kn˜C‚ã¼ÿÖ~võtèÁE«½hpÉ]2Y€Ý04ne¯º‡ûéùû Ö…æÝåÆºïŠ¾ìPy0?ˆúoÆ·'’e£ìN/£Jd¯·.Ñ À÷À 1#2 ULœÐR6œ¾ŸPѽLýDÙô è*�ÉÀc¼ýÔvÍInÀûÀ ‹iÀ�\ƒ`Âü�åYåq(¤ºñÖ‚5õ'òŽwÜ¡KD-q4”ÜðU‡ÕqÎÄ^¨Rɹ‚¶Ïšûº¯Ö»­ãikh‡Oúµâ'Ú$íºì X�æ; ¯è\ÑaÒ÷‡HHOJñ/ð¹RRë¾í5ÀÌ@§};¾<8ý2m½sÌùçì2­„ö %sРÌF}˜j¿�õ5¹Çå<"ôC ¤Ö„Ö=vU­'¢ü «Ñ7#‘^%;§YqŠØ¨ävÒnM5G^Èҡ㟽×xb…nŒsǰl°[íÖ£wæFs¯¹Œ3¾¶þ:A3€ñ„gÃòg뛹iÂ,õ§"¬^¬kŸ"‘|}€�Ô§\ú(›YTsïÒðF&iÚN¶¿UÓ°né µh"¸ Vð�Α?–ŠÛþ�·[N:Žþ°W÷HÆw»ßΩm™vºnY5<'¦ž€L·~^ç~+# [ÍÇÁsgŽ ‘ô;ίм2BÛ¸€¬×éÎmª¬ÔÕ÷½ãˆXÚËkÏ6õfKrÚ•ÿ,¿ƒŸB.“°ñ:§`7Œbºˆæ¾KÍ�¸‘ßû@*­ ú†ê¼’Fv<êÓßPôу__åA%ýuw&„²B‚Cýy]º«ÅÈn3œrM|i? Ki²ÆËų$ 6ä-\I²)`Î\"aS÷ã¶a~õNÊd¨¿N¹ÃÈòlÓ�¯e¨oªk´�íTÉ;ïì9«Ø}"•_ g! �‡ñ‹ ¦bÏe•¨¶úr"ôC ¤ÖÐ¥qU!¯ üÓ��:§*O'’W& µèBÔÒRšÖºݾҌ·�KÊyÆöO6ÛR‘ê6Ë8 �× 2´g?‘ërda1m¿P}hd†/^̈F²¦ÎÒÓ/ÌÈ)÷AMlvÃ5œo€T�õï÷»KÍí‚#†“jqšab{¥6±½“ïñ2)°z“8É¢AnX¶×w¡Bâ�*>7¤*P.Û)]ª–_Ž�Âý÷îñãÀ庱נ¤Æ¥åÎ>Àë×?õñÈ>\EóšH¡Á�,¬«D€Es!ÎrèòfwçŠã ²à| ÖÛ[Nó#Š�¡Ù¸®ËAû2²‡ÝB€¿Î2Q �rÈO÷G¼q�»ÍÍÛãÓ‡žÖ=v7­lrî }Ñ/ò=RÀ%;§Yw\C—�–œ‚6Í–Ø Ž­ëŽ«ãikχnäÎ>ýëׇ@ùµFX²ætWóädœXBÙ¥D€sñ ¦;¢gëðÌi§@Öcv(îLÉ41 ܆�¹ì»KË %sY ”¦á‡ÍŒ¿¾Õ?ØÉ;b"¬Ó¤„ÎÝÝFÚÕ¢üZ÷š‰%&€£q?yl&„ðxRƋϟà~ý·Ùý5<OYÌÐĹŻ$ÅZ#~DŸµš8¢ Êé¾¶w\êÏñ¢Ø¨"¿ó¿Å¯òmÛ�§j \òþ«îZ²Ú‚dì,K*YWø‘ßrnÃSúGÏ+Ô†‘nåÝ”Ü;=�ÖlF†±ÇÓŽšQB7ÑNå"V8.›Hryzºg¢–RšÖºi¢ü0ýßûïa‰q—¬¦ÒUåó#îá¸åë;lÝOÿädÞXB$ì€{å"ä§K²pÌjÓ휯iúɽrœN’aTHÄëæðL|?­š])[˯<¥é:ÐÃ2šSÿY"�^âKÄ?B²ñt5`n$ý$žÈ—Ã"òð¨Àxk£q~yµ%5_ÓÆ�®ÃžõÈ iÏPp³es`N¿"�>æ’Ö8ŽþF¸h•“1èAOÒ5‡P¨I%NEð¹(R³Nÿ5nÌH‡Y”›¸wJËÉ€sÛùçXþöúÏE^\ÐQÌ.hŒb¸ˆæ¿]Ñ áÀ!˜QÃC ¤K„ŽÝ;8yÕüQK®Lã ÷Õ-§‹wdţ局–RLÎ�Öy¥¼ßûïaCqN¯z�ɳâ'†SÉÂÿF¨1ºvR‚6¢ Ê辨Ç@ŠÂ¸Yö5&\¾ ±ÐÛ.§AIF¼ 6´f ¡íC `£Cí|;;BŒÔ<.\�{È_ðŽï¤¹Áó R¸$'ÿÖÉ¥oJU³'Ò­aý�lS­= m¡oIzkÐŒ]˜ ²!æ"Xv‰:«ñ߆¼×|`q\²¾>Ãë†SÉÂþF¨ptJF‚AM2Æûª¦1J¹ß#ðkRZ ê¡ÒaÌ@}¨ZòîÃm‚Taõ†é^«�y vРaF¢7Ün˶2ÇDØ|�» � £OEÖ„¨ÍPÇÅÇù�N´7J rGÔª¡oIzk¶îF¿ÁREˈ–ÃéÞú¶Ü÷¾i<7¯¯\ì-Ôß� ã,u® dÍYáðÃ[Lvmµ~aè¶Kp·íÁ ±И�3M_œ;i«~�›ïX»©Ë�¬­/F}%j²ï¥7ÎÅ¿Çÿåí"{C�ËdËRf¨­'¢o ~òk>+  r{’'`m¾“‡ ñuùšÖº­yÃ|µ ˆØÝˆh?¯µŸ%²S' EÉÆäKEù.)Œ“dãXôf‡—evé>"äª~ÐñÕ"—,züY$¾;?’ÿ6mvù�du©é,K*YWø‘àroµlçòQФeéö«únVôz]õŽ„’lvh•ƨ%ý�~S­= mŽWZŠÐõ?ÁÊFˆíZ-ôº¡6ëoÌëHS‰+KÉì?‰Ô,*&»ÈìÜXs—(·².ÐÒ(¦DwYö#éžHeßÎjÀ¨wÊ)Új ^‚–m+ �®ÀbÛú&÷R0Aî¦÷€«HÐÃö¢º0ÖÇÞ—&$=M¦ÖQÖ+%¨Mð¾ãþéI;óä&P.Îþ—?�µö¢GqH–îÉôÅõÆݎ«ãikh‡OGß®ÂI$F§¸prõ¢ÝsžYÜÎg42>Uµ~aè§KÂú”x5®‰1‡Ò‰O¹îJ =õaHeŒý Ô ŸðX%C¤Ç™k/áA¶çÙ.õp‘¨­‘'L½ ù†Ô¥kI#¤Ù,4Ñ|ZN­"VDGŸGÂqºˆžg4¹Š¶Ïžàº¯Ö~­¹gk‹‡]|æ½¹G;•íuÍW\Iù:,¡ÝsÓ~êÚ¬HÄs,Çës²¾Ø5÷™@Þ.µ^(çe˜;fzµÓŠÖX�O+>xøÙ Ìg+>Œšø�®õ#(j!UˆnBµñt‘E‡N`vΰêèÀÈ!ž‘Ë��?ŸHjxV“L –RšÖ¸'ù–¾nŽ~Ä5wpxXÍé:ŒýrÒôZ�táž²lT—ÓeAPôr‡Zðª~V—àRdEa  å‰1}ýCpEtñ8£9c&åäÁ'÷,úŸ\R]®ÊPwFÂdÉ�ö`M00Ç4p&Ü2˜Ú»ù?vU­'¤Ö™«N/‰K*­nZbeºg¢˜²1âiUv‰:«ñ߆Âÿ]‰q\Iúµâ'Ú$íºì X�æ; ¯è\ÑaÒ÷‡HHOJñ/ð¹RRë¾í5ÀÌ@§}9^wJËÃ�,*~,+ïO_ʯ÷H}˜j¿�õ5¹Çå<"ôC ¤Ö„Ö=vU­'¢ü «Ñ7#‘^%;§Yw\eºg¢–RzyÒ`nxŽn¾â§ë|…lu†Þüµâ'Ú$íºì X�æ; ¯è\ÑaÒ÷‡HHOJñ/ð¹RRë¾í5ÀÌ@§}9^wJËÉm€zpZ—¬˜[ɳªЮÊPwFÂdÉ�4À.£�˜õ²úÔ ›–v†�‚-¹w(¤Ý¬äÁ›¡K§ÝO`Ïõ›Ï‹¥|¾í š ±ý9xbq’LÉ@- ÛÛÍ\Ú8�lž +]®ÊPwøñ fUml×gI¸!OZï] ì&ŽÖëvd¾ÇU–òNÑÊà¶RZ-d›P‡cºg¢–RšÖº‰éŽ­ëŽ«ãikh‡Oúµâ'Ú$íºì X�æ; ¯è\ÑaÒ÷‡HHQª(Mø Â¬ Áê*4 }«ßwY,þbiXõó~Ö2ºî+|ÜÄжž¢�‡þˆì„ùÍ$¸À!ôYT7 þ,N_ÆÄ“ê×Yˆ›Æ%îˆst Òì^r{ԋߟjwƺʉ]ós•\ÓøVX/ôöúºåë1í'™¯3`7Rôר/(J¬#½¯aß­¹Õ3±‹ðÎb“Y÷ ¢�ý1Âv fZ^“Oýûªè}v²2”(„Æ‹%N<ïèܘÇÎ6š~Q¬¢mÈ#%SqÃCß0Y‚h¨õŽxÓv™�·2/~íJº×Ÿ„¤£Ö zÑ+ÏZ S—b¼øæØi×pâ 2ó¤ÆJ+Ü�e «‰~´S@zq+*rhd+Ý)lã�*ÎTû¬‡Ú6.N0·¸‘Ÿ˜›ÿâ±nûÕšãÃ9»"!7h¹â‘ÍÝA1ØÓüó§¶HF˜þ#IKCÞw¯i¢©[““²Sþ¡V~‰ŠÆüŠÂú‰$<«|úñ¹¼6îZ‰o7�o;ó«­ORÙ,$SÃñÒ˜ª~aõ^lY7èǧŠÿRMCYÄþ öXõ ‘—ZÒíÂI„YF‚ÿ‡Ï²}²™½]0,8v±6KººŠÞ­â–‘—È0òìýœº¾;Z]KyõÁ‡múËø!ÖeûþººñnNˆÝ—ᇸýЉÑ>:�–XŽêL›×W1b¯MkÑHÀNŸ> ²²ƒŽ¼À9<ônÏ*E—e¦¾eö€©”Á<è[$¸æ ìÐuØnD©#úyGk~5NÃÇØ þã�Ç W=§Qö6¦íK¤VΫ)ƒ¾mfcŧ߮~ Réž“ÉËšön:ŠLG|i¨\A\Íé U_H„ºrÚ,O[A ½S÷|L\~6õYÜ¿¦r¾9Ý –s#¢C�®BTiBeÄæøð*gR¯T ôo�‘ÈUføMc¥�šùuª“ðÐÜñ‡ä!+ÖmÚ|ƒ�¼>‚mµÎ²�XO*¶¹l>JëCgoš ®Ë±'–�žÀfŽ^ç-|lxU!ÓlÀǼÚïñý?Gz~©AÕÑ®ÖÁ˜|WDªÆQ 0Rµïóú ­ÕàÚ÷àÇw½Çf¸YqMp¼‘ ƒ»¾×T_Ý™,5JoñV"ÛnÉ$¢gšÇkC÷¨�‘ ,|µ8Iº#‘«$3N�GÅ´Íz”ée¾4“ªczSÌå¤pŽNçàÂ×|„ÈÒ-ªï�µ5;‰á©ûëû#º*™¯3`¡Rô�¨•-¬#½%aß­âÕ}®†ŒðÎb)Y÷ ¿�“6Õ ~,+ïO1‚ë¯÷¦žzØ�x¿ë¡žã ª­!Ò]e¼ UÒläIƒ[M*÷†å(ÑÌþ£*O?Û 8UÜekXŒ~ „6‘¨ý­šnù]|R§j¢£#<âÒÞèûޏ.‰a*è«ÕŒàÓ˜R¨)„HœðVN¤ýŠú?`¹]¤r9‰^Ï6´YqgÃÒq˜—`ÔËø!Þ¬Û\�©ùü$8pƒ�#µ¶óE¿{mà�¤;ˆ¯+bdÃÇ+�Ž´Z7ñ'Ïr81GþáPº”†×\0‹ÄZ0êgŸ4냯§{_Kq¯8™¹°['+(Ȭà^¡%\°¶M\>e õÃ[R¯§�˜ð�¹™g·ÂÕ!ŒÝ#°R#Þ>Õ¯BTi¡_Äæùðæf*°T ôo.“ÈUeø™ gd¥�šùÒ¬“ðÍÜ-”ì!+ÖmÚÙ��¼?‚Ùj}β�óU*¯¹0<’ëCgoš¸®Ë²'Ò‰VÀfŽ^ç’~lxW!�fxǼÚïñR?G{X€QAÕÑ®Ö ¢|WGª’OÎ 0RµïPø ­ÔààÇw½Çñ¶YqLpx�ƒ»¾×ù_ݘ,ÑoñV"ppÉ$¡gVÅÙkC÷¨(— ,~µG‚"‘«$3�LÅðDzmée¾—•ªczÚí£pŽNçÀ×|ƒÈ–/òð�µ5;0á©ôë·!ò)™¯3`HTô�¨Y.C¬#½¾cß­åÕÉ«>�ðÎb„W÷ Á�K3½v Uh“åĬè}v¬2”wjà”#N<ïè˘nj6p‡S¬¢RÆ#%q]A á0Y‚h¯óŽxŠvC{¾4/~í¸×Ÿ³‰¡Ö QÏ+Ï -�)NøæØTÙpâK2~æbÆJ+Ó�eZ Œe¶S@zqB(rhB+±â2nË� óÐâ2ºS+¨†-Ö̹yÙ§fò·öN´+(Çáþ Ø2DãÂãýU`+Uë>ºÙ׎ÎÉ%Ϋ�lxVüZŒ줃š'®<œÝ�µ iÍžƒòh”S;ç:¦ÚÇdž¥du «u/2,ÀмÐ?¯H³K‚þ&øYy(‰`d5QД�ð1¾^,T:m�PFèãïæú-g'žs)œSI)žŠ¼å�‹ôõà¥kêñ-Fd2Ì ÖÐr˜º‡ôêȳ´¦‘ëb(›H¼Î¨:� –· IÉžø‘ ?bd4ã˜o˜jƒòæD­8�íUðÜUEù3Æï/ÈÒ“šY{Y÷ϲ’¬×ëqÌa”C³nÆD�—›©Å¯ö€©”‘<è}[Š­¯ìÐuØAlD©'#L|@i~5N×Ò ¢ãïÆšW=§Qæ8¦íFKƼç &‹o£q}xVÛ“L‚�'Êt]º•š™ü”KìÄÂþOöì©î6Çâå0éá�?ý»ÜOÚÁç˜FbÍO¥íËéäª]²¸á/GÌᣒïMpªŠLƒûTmñò«ºhõyG ?Bˆ$ćú_y˜ë¶¹Zý-(.9ê=Kfܶv¸©Þ†È¢1²¡k•^ä7UMKK^&~ƒÙgÚcëÅþ•MRóD òk·{»íƾB‚»?ìødŽú¨H�®N)~‡·LÁ^Ý>z)Z3í¼;,³néÙ³Gԥɠ„ĤáÞMâ’%†Ôq(rn!x�§Š 9K³ÍØ5í_>Áa„19¡a™6�Ïâ@‹#„²9¾`—oÑܱî¢gNñŽêÉiÈ"†«m¡LK\÷U1ÎA$&¾%trñÛ]3Ç\a=\|\AZqÊbÛRº)ŒÝE‡—jµöJ@*OyTe‰ˆd«íDK>ê‘Ó¦älÓ�x¿ë¡‹é ª®!\`\ý¼ UÒ}êIƒ[M¤þÁ(ÑÌím*O@Û5SÜekaŠ~ ƒ6{£ü­šk÷]|S§�¥Œ<âÒÞ㎸ˆ‚T*è«Õ£æÓ˜S¨¤Ö�FœðVN“ÿŠú>`糦j9©s†×:¸s IŸ™÷ùÇ–çAj0§¥1–Ÿ˜›ÿ}±nüÕŠÜq@»"!7͸â‘ÍÝQ*BÎüó§CF˜þRµFÞw¯i=®[““²Cõ[Á~‰Šs÷ŠÂú‰4Ed|úñ¹ËîZ™jñjo;ó«PRÙì%úTÃñÒC­~aô^|°åǧŠÿëRCYÄþHØ]õ &—ZÒí²øs‰YF‚h†Ï²}ârïR0,8Ëø±6[[¤‹Þ­â–*—È-òèêÊ·¶;zv#`mýŽx­�oüq±‡ðéq©ŒjŸòs‹³"•êƒbÞ_Î8ú´ êζ¶ DÌ-åuáígWâ�Qz/ôÿ^~ü° 46G5 }5cvÜ$i\î™tïóóB·‡ÚPVq#ß}ý”=ï‹›Ÿ¨«M^våѶ'>¹Üd“c�¬>'SßV¯é/Fº%ƒÅFÅ»née¾ˆwªcz½Ô$¡pŽNçvF×|…Èðåéò�µ5;)á©úëÍëû#™¯3` Vô™¨ÃÕ\ ¬#½‰]ß­ãÕfE�ðÎb³U÷ ¿�áÞ”v pf“# Ñ®è}v-®2”yôÓ½)V<ÏÓoœá¸åmpMØÉ"(ÑÌ„l*O?ÛR3GTÜek~ ‚6¿p´­šÐö]|`§Tjä<âÒÞˆþޏL�*è«ÕFåÓ˜P¨€ÑÅGœðVN0Šú=`ëµÐ¥j9©s#Ø:¸u %§™÷ùÇ3æAi0㣕Ÿ˜›ÿÚ±nýÕöÞ¹=»"!7p½â‘ÎÝ,êÏüó§¾DF™þ7P}¿Þw¯iš­[“޲‡ó“Â~‰ŠÎøŠÂû‰øC g|úñ¹´ÊîZ]¤)io;ó«µÃRØ(ã2WÃñÒ ®~aó^8®éäǧŠÿJQCYÃþ| \õ ‰—ZÓíîú[ˆYF‚ƒÏ²}–l§Q0,8nù¬6Ÿ^¬ŽÞ­â–‰—È/ò é’¶¾;Z] WyõÀ‡¡þÙô!Öeûººón¢‹ë“ᇸý’‰Ñ?:I•E–XŽêD ›×T1ªOŸÑHÀN§: ±²ƒõ¼À9<ì¢Ï*F—S°±ö€©”¹<è[@c´ ìÐuØ jD©€#æŽAg~5NÿÔ ì㕟›W=§QÙ=¦íWK…ÁV«)FÁmfÅÀ,&y Réž°ÀËš¿nåuÄD|i¨\aÍéRU¸M“ý„º0gÚ,SOÄBÁ¸S÷|L?Y~ õ‚ß7_r¾9þâ –.#¹ÐSBTiGbÄæ¿ðI”êdT ôo”ŽÈU-ø4§¨¥�šùxW“ð˜ÜÈz¬+ÖmÚw��¼y‚4œ=ʲ�U¸*„¹�ÚÒïCgoš®Ëü'}ƒÄfŽ^ç4�lx!ñ™8Ë´ÚÏÌöèCGfÚ,5šë¼àÖLîH³K© &þYIÝd£d5QÐÞ��ð2¾NÕw:m�Po$ãðæªæ|"žs)œ8¯I)¡Š¬.À†ôõà¥R&ñ-vŸ Ñ ÖÐr¿V‡õêØL—¦‘ëbÞ$›H~¼>qw~ –· bÍžø“ 65i4ã˜o³nƒòæBMö1�íUðùQEù4»˜,ÈÒ“µ]{YøÏÆ‹p«ÏëQéÁ·-ž�^¦œfÃËï½ k€¡îÛdÉ´ÔËø!¥×¬Û]�ß%¢è8pƒ&µ¶óE‡,�¤;ˆFæbdÄÇmiô¸Z7ñ'€r82G´ëÃLº”†l©0‹ÃZö% £4냯‚_K€¯fç«['+(!¯à_¡Û¯¹M\>eEîÃ[O¯m}:ëy¹¹N!£Ù&Æ,wm´^ŒF2�|y´É¡úênNWC"1‚Å€…Òg&j»ï†Sä¹Üdãª<¯F'søË¸åH œ‰#;´§¤{ªLÒ©p‚�Ý\�]º•0£™ü—KÚþ6NþOöάî6ÇØ+¦%á�?׺ÜOÚÁ�rø^ÍO¥íùìäª]²ª'¡+GÌᣴMqª¼™Ú‡ûTmñ;éò«¸ž}G ?B¢ïćú_“êç¶¹Zý +.:ê+Eè¶v¸©‰È¢1 §’o•^ä7wNKK^&'ú€ÙgÚ‰îÅþ•M@: òk·{�ìÆ¿BM¨ÿ7ìØy-â»ÜOXõKÝÅYÃñÒ—`~aõ^¨âǧŠÿQ·CYÝþiûÕbõ †—ZÑ퀎YF‚�ϲ }ƒcšW0,8_û²6¶d—�Þ­â–¸!—È-ò;#·¸¾;Z]$YyõÀ‡¼ æ!ÖeûÛººñnôyÂ�Ù‡˜ä¾B�Ñ8îè�×ë/ó8%™¯3`2¹ô™¨1Ý…û¬#½ºªß­ãÕá^‘ðÎbŽR÷ ¿�óæO#v Uc“M°è}vF§2”y‚+~'N<ïè÷"˜ÇŠ6˜Á·¬¢dÉ#%qÅÔÖ%0Y‚h—îŽxŒvŽŽdÐG^ÈÒ¡ãŸÁ×|fq\¯ hé«['+(Šbà^¡±¼M\>e°ïÃ[P¯X€Hêy¹¹NަÙ&È,DŸ´^ŒF§�|x´ºfnNW¶%1‚È€üÕa%j»„…Sä=Y¥pÎ)™ôÎËθå5–!<)‹w ^ÕO7 ¾kªªL\²á–‹ZüÒK¢ìéq©‘fŸòq‹2ø‚îƒbÞ`28ú² gÇOý¶ DÌ8)uáÿgÖ×d]z/ôÖª~ü¶ µ-ð) }5(ŸvÜ&iÛñs¥tïóó{³‡ÚÏ]Ê'ß}ý”ë‹•Ÿ'¤–bvåÑ¥+>¹Þd¬F`F'søx³åH K‡ <´§¤{-MÒ©o‚rãb�]º•�¦™ü–Kù,OþOöy­î6Âý*¨ á�?j·ÜOßÁÐgþ_ÍO¥í\íäªZ²ß.›*GÌá£EMoªáŽÔˆûTmñ¨èÃë£�}~G ?B3ðćû_` è¶¹Zýšä.;êàFé¶v¸©sŠÈ£1i¢Œl•^ä7êQKK_&Ú÷öÙgÚøïÅþ–My<öòk·{鯽B»J’þ?ìødAþ§Hâaæå~‡·L RÝ>âÒ3í¼Ž8³nëÙôçÏØ¥É „˜Ú+æ’%†ÔÜ$rn"x¬s 9æ_ÍØ4$³¶½a„19@­™6šè;zD‹#„ ;a—XÔd­î¢gNDrêÉÿió~ø«mDPK\ù>$ ÊA$&¾º#trîÛ6"Ã\a=Ú`|\Hƒ¤B®ÛRºÁ-ŒÝH‡'ròQöJ@*ô…Teˆ¯¡3DK>S{‘Ô¦ §Kƒx¿ë¡,í ª¯!Á³äù¼ UÒÔÞIƒ]M½ (ÑÌTi*O=Û/ƇWÜekÔ~~ „6vt­0±÷ïa|KK\ØÓ)U{´$„º¤jÚ,wOÍ2VS÷|L‹T~^õ=(¦^r¾9Šå –#þÏfVBTi»]Äæ«ð䜹gZ %]®ÊPwF˜M­£Ð*¿nŸ©­ú@Ón žð¶GpOMDñ=15�m�^ȱŸHyyÅåDjvRɹ‚¶Ï“Ý‘¤È�û·J2…5OÐúš•/Ì ~ TðæøAãädÙuÝδFÀ�0ÆõRƒë¼Æb˜Ù‡óuBRîJ =õaHe¢ü ýS»#š]Js‡Ñ•FTjâG¸¤:�;­j¹žÞ’'!óD£Ù¾6™�¹Ä¢1)ÿí%�d.© 92ìY¢·pî•á�ПŒM ¡÷úk—fÒÁî2Ñ&ÙéìV<ætIä\�Ò§ãi OkÈ„,ÆšnÜèË3ªg@È+´=¾eÝû,mc&Íù® »šËÕv0�_xi¿˜l¬¤HÚ}Én•ó!EÜí%�d.© 92=Y¥pÎ)™ôÎËθå5–!<)‹w ^ÕO7 ¾kªªL\²á–‹ZüÒK¢ìéq©‘fŸòq‹2ø‚îƒbÞ`28ú² gÇOý¶ DÌ8)uáÿgÖ×d]z/ôÖª~ü¶ µ-ð) }5(ŸvÜ&iÛñs¥tïóó{³‡ÚÏ]Ê'ß}ý”ë‹•Ÿ'¤–bvåÑ¥+>¹Þd¬F`F'søx³åH K‡ <´§¤{-MÒ©o‚rãb�]º•�¦™ü–Kù,OþOöy­î6Âý*¨ á�?j·ÜOßÁÐgþ_ÍO¥í\íäªZ²ß.›*GÌá£EMoªáŽÔˆûTmñ¨èÃë£�}~G ?B3ðćû_` è¶¹Zýšä.;êàFé¶v¸©sŠÈ£1i¢Œl•^ä7êQKK_&Ú÷öÙgÚøïÅþ–My<öòk·{鯽B»J’þ?ìødAþ§Hâaæå~‡·L RÝ>âÒ3í¼Ž8³nëÙôçÏØ¥É „˜Ú+æ’%†ÔÜ$rn"x¬s 9æ_ÍØ4$³¶½a„19@­™6šè;zD‹#„ ;a—XÔd­î¢gNDrêÉÿió~ø«mDPK\ù>$ ÊA$&¾º#trîÛ6"Ã\a=Ú`|\Hƒ¤B®ÛRºÁ-ŒÝH‡'ròQöJ@*ô…Teˆ¯¡3DK>S{‘Ô¦ §Kƒx¿ë¡,í ª¯!Á³äù¼ UÒÔÞIƒ]M½ (ÑÌTi*O=Û/ƇWÜekÔ~~ „6vt­0±÷ïa|KK\ØÓ)U{´$þl4Á[÷hÒ€\DêÏݱW²k¸¡ñÅ]V–rúx#ÏîhóHe�ã½é[ÓËØF'ü¨érWˆM¶¦o}ÚOfsÝkðC=V7 þ'¨d­‚DO1n>óªK{1ÍNÃOK9Ïœ2Í¢Â7Ç÷¶jwƺš‰KÎ'–ÈcK¯QòæÕÜ÷ È'\‘ÃxC“6ZÉ_2‘Åb¨¿#ÍöiF]c ­ÅÁf°t{ºîO¤a’µý'þæ6 âí�s ÉÐNXDâaêGÓKý± Í“ ð½r`êdY޵8'Ò «7$óqþÛs$G‡QÅXÔ}‚øR3jȺ9‰þ–M7зúk—fÒ_‰Œ, ;ùÂ7trŸc¦^1>Ò®g‰wªÊßÚŸÂaü^s’,²§5+^©JÂþª0d´ õ<1« “$c.¦•¤ÄUcD©jÈ_ à)fI ËܱsêÅÖÌ67'MÄ¢1)ÿí%�L.p£|q èBзj¿�iµî !«>JGdO\íÆ¼ë%üM÷Z”H ¡w;Óò”hÉRàÓ˜V}QÀ|bðŸ„eÊê¹õ¤Õw#­2ª©ùN? ×ý)Ç—03„s Ç•Tø +µ_��ž{ ª±Eî_­ã^TÕdNNF'ÆÈÀûƒW‡ h¾;ûmfc{²J;p‹3B!ÖþËŸ tÞ³nÿ=©K'q|úZ‰ÔŽôÁXk‚øæo,ÀÎr¥±¦ •nÍOÝ>µ 3í8`Ób�ðe€öJÆþ:ð€¡ã_»D[ÜËØF'ü¨Û°I!ÃlæÒfö ŽLñËÝ�)ô;–ç¬ò=væ'Æ��ÞÑ�DPÖj2f‚߼ˊý‡–—;ÆÒ¢ø¥Ý•¤ÝÞãG@‡~ÑÞ:µŽl¦p¡ìV'� ý¡7ч‰ü-OzÙBÜYŸ¯^|5që„«…ð*rksÉRÑ"€牧�=ŒyÐð…8 OýˆÒh�„5þÖ‘®¦Ð+Ë÷ÿÃZX)ÇyE¯—¥Òʇd!É/2ȘiÆñíoíš@ÌXä!^,é,Ã�X\çè.¢Ç:ÇÖ–¸‰°Ýðë׌¹5k8O¶¯'…ÚBºøî0‚ìæx�²1;Ò§¿|`sÝ} ³K~†ú*—k¯nDr)rÜŠ�Ñ;œ‚é¼]«t‚”c Þd’ø1!û`|�*?¹uŒÜÕ›=åÆÖÐF/v£­A‚�—2Êà¶RZ--›H€yc¹÷Fзj3Ìóº´ÔËŽû²Ý�Ð7kf\h!ЀŸÃ´ÚÏÌöèCKEù6)‘ýÑx�÷ÛJ¿xhÒ¤Ré™ÁÕò ˆèî+Nó�|{{º®Ç1«ôËRP(Š ãT]ÝlÞ�‘�0ÉcYÇ“ãFÑÓ&…(Ž6M0N}ª°A[†[+å%®wÛ8/5Á Î^r½JH±"eõþ™‡µ†÷ì™Ap3†é Uzm’|º?. }Þf(ãÝpëYžÎ¾#vΟèª_åºoöàU?•ÜÑwó?�KÄmëïß÷­+Ék/ Ìu-Ä|ÈPçÒ$5«_EÚhŽäŸ¤†¼¡I‡N^ÖÈü׫Ç? icÎÆkŸtKRleu‚’?¢yEº(á–¤ ¾æoŠ h´nµÎ>ìêsÑ8¿Â¸Fq¢p™Ý¼™6€H“nå'äª[éóº€À¤Ýd 2ïô2bTºÒÌð”q#¬ž+õ&švâ€ð]I·Ã.”nÉ@¸zèÙD ܤñd�ˆØ¶>'SßV¯éH7¤%`~jôw èº3ÓÒqPš��ÒÑÿ ,æ7Š h´nµÎ>Âî6ÁF¡èCGxÚ, šH•Æ‹+f‡—evé8 °K•ÄÂÕ&Ç-§€#(2·«ZtNëÞŒÀ8VÈÅCÇ—µ† õµàaH5d$—×URÒÎg­<¬‚/âÑõFJöŠú<—u«…ð4rhJòþ¶ZZ%õ»ñzKÙs“Ëóð¨ÜŠÌHðõ#i!àOZ^ …6·Ã˜M åˆäÑÑ‘È^„Ûù*ÂÊê_Àª`i+eõ‰€Ž»ÝqK½ Æ$OãsÈLÅI$F§¸prùš‡ÍYáÏÃ[HvªL`¡(R•Êòñ ­Ø š€t 2J“=ÿB€á°Á$ý!îmö %&‹ÆŸF&/ÜBÅCÉ*ع›â•pJôbƒˆÙ›pxµuX™«N/‰M. W@ òF¾–PAÇÿ¸Þ´¬îëâãCB cI!ý|5Ä´ÚÏÌöèCG{Ú-)‘�|œ÷¶HJÁ{4¹¹siÊã» Àú@Í.µ9bž ›€sÞªëðÏx=­f FA‰¤ilå#LÁ?õYس=ÃU»§„ÝmÙ�EáîP ¬§¸ýtV“Mù–\ûz6Ò™B 3­Ý݈¹6ylf#­lÇjŹ~Ì^íÉ� ¹(ÀÎe1ÍÀce¿[¢‡NW(R¹Nÿ5nÌ-’�aGŽ�ÛËÏ¢1L|ÊêþÙ¢O _ݲɦӊRŒ¦¿L}ŽƒÑ_óâ܈¤³,ÆÖÓF/v£­6ŒÖ‘«…#%¿J®y;9Y?e·Z�ôl°ƒšŠžø• �Úp<ã¸Zƒ‡òõ:¦Í, ;ùÂtrí…·º.Bgà8ßdz/)䪃p¿N¹Ã²òǧaÏ*n—3¼d9�Op$ž Õ+KZô3ƒs’pâF«©„Ù8ÑSÖ•W­+-‚Ê$úƒ;Žø`vMªçòã÷!6òûŽh˾iYBeÀJu¢LR �/åÝ«‡·~ÿwQ‰—nì02â}:³šº–X%Ú,1‰M\¥¯ÜÓ˜x¨ï9ÛBjð¦ÂÁ¸¾:5®b2‡ã� ¹éªk§�"TÚý)®«|MvРÌ(}-ˆ|qПðEïjå<"ôCZœ‹¸ F¦´Ò/wdBÁêË%ŽþTUwJYw\Bõ‡Œæù÷Ö˜'•™þ¾ynú“˜Ù‡˜ä¾B�Ñ3îôȵ\ �»fSäˆÑ êÚ‡qJÒsòž"JÈŠÿ ©Ê ©R³AyC]òþÔìYõ¿1ªY »Ý ÏsÔ8'€èI´öQ} …£^à×èãꮎþTUwJYw\Bõ‡Œæù÷Ö˜'•™þ¾ynú“˜Ù‡˜ä¾B�Ñ3îôȵ‘Be¶›2ÏÁ š ºû� ´>ëÞŒÀ8VÈÅCÇ—µ† õµàaH5d$—×URÒÎg­<¬‚/âÑõFJöŠú<—u«…ð4rhJòþ¶ZZ%õ»ñzKÙs“Ëóð¨ÜŠÌHðõ#i!àOZ^ …6·Ã˜M åˆäÑÑ‘È^„Ûù*ÂÊê_Àª`i+eõ‰€Ž»ÝqK½ Æ$OãsÈLÅI$F§¸prùš‡ÍYáÏÃ[HvªL`¡(R•Êòñ ­Ø š€t 2J“=ÿB€á°Á$ý!îmö %&‹ÆŸF&/ÜBÅCÉ*ع›â*.|Ög"CUÍ>E *C.Í3*C.ˆ>w*C.‰|w*Céw# x±Â3É Ã MBASIC MENU LOADING MBASIC & MENU $BARG PAS:CALC COM  CALC DOC!CALC Z80\"#$%&'()*+,-GRAPH/DRDOCs./0123456789:;<GRAPH/DRBASR=>?@ABCDEFGG/CHANGEBASHIJKGR/DR/3DBASLMNGR/DUMP BASOGR/DUMP1BASPGR/PRCNTBASQRSGR/PRINTBASTUVWMENU BAS XYMENU/2 BASZRANDOM DTA[REVERS/PBAS!\]^_`SOLITAIRBAS(abcdeSQUABBLEBAScfghijklmnopqrSUBSERCHBASstuvAUTOST $$$ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååBARG PAS:CALC COM  CALC DOC!CALC Z80\"#$%&'()*+,-GRAPH/DRDOCs./0123456789:;<GRAPH/DRBASR=>?@ABCDEFGG/CHANGEBASHIJKGR/DR/3DBASLMNGR/DUMP BASOGR/DUMP1BASPGR/PRCNTBASQRSGR/PRINTBASTUVWMENU BAS XYMENU/2 BASZRANDOM DTA[REVERS/PBAS!\]^_`SOLITAIRBAS(abcdeSQUABBLEBAScfghijklmnopqrSUBSERCHBASstuvAUTOST COMwCUBIST $$$ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååThió  disë  containó twï  separatå  sections®  Firsô � therå  ió  thå  seô oæ programó whicè  makå  uð  thå � GRAPH/DRA×  program®   Seconä  therå  ió  á  seô  oæ � MBASIà games®  Eacè sectioî haó itó owî DOà file® Iæ � yoõ arå interesteä iî thå MBASIà gameó continuå witè � this DOC file, otherwise see the DOC file, GRAPH/DR. MBASIC GAMES for OSBORNE 1 by Lois J. Callaghan PO Box 104 Little York, New Jersey 08834 (201)996-2336 THESE GAMES RUN ON A 52 COLUMN DOUBLE DENSITY OZ. Tï uså thió disë MBASIà musô bå PIPpeä tï it®  Placå � CPÍ  disë iî drivå A¬  anä thió disë iî drivå B®  Aô � thå A¾ prompô typeº  PIP®  Aô thå ª prompô takå  ouô � thå CPÍ disë anä replacå iô witè thå MBASIà disë anä � typeº  B:=A:MBASIC.COÍ ® Hiô returî afteò MBASIà haó � beeî  PIPpeä  oveò anä yoõ havå thå ª  prompt®  Takå � botè  diskó  ouô  oæ thå driveó anä  hiô  thå  reseô � button®  Placå thió gamå disë bacë iî drivå B® Placå � youò CPÍ bacë iî drivå Á anä hiô return®  Aô thå  A¾ � prompô typå SYSGEÎ anä yoõ wilì bå askeä thå disë tï � reaä  FROM¬  answeò  A®  Theî yoõ wilì bå askeä  thå � destination¬  answeò B®  Wheî reaä successfullù  hiô � return®  Takå botè diskó ouô oæ thå drives¬ puô thió � gamå disë iî drivå Á anä booô thå disk®  Witè á colä � booô  thå  disë  wilì autostarô  tï  thå  Menu®  The games each have their own instructions. Thå  DOà filå foò thå GRAPH/DÒ prograí haó itó  owî � instructionó iî whicè yoõ onlù deletå thå PIPpinç oæ � MBASIà whicè yoõ woulä havå donå if thió  filå  waó � read first.acå � CPÍ  disë iî drivå A¬  anä thió disë iî drivå B®  Aô � thå A¾ prompô typeº  PIP®  Aô thå ª prompô takå  ouô � thå CPÍ disë anä replacå iô witè thå MBASIà disë anä � typeº  B:=A:MBASIC.COÍ ® Hiô returî afteò MBASIà haó � beeî  PIPpeä  oveò anä yoõ havå thå ª  prompt®  Takå � botè  diskó  ouô  oæ thå driveó anä  hiô  thå  reseô � button®  Placå thió gamå disë bacë iî drivå B® Pþl4Á[÷hÒ€\DêÏݱW²k¸¡ñÅ]V–rúx#ÏîhóHe�ã½é[ÓËØF'ü¨érWˆM¶¦o}ÚOfsÝkðC=V7 þ'¨d­‚DO1n>óªK{1ÍNÃOK9Ïœ2Í¢Â7Ç÷¶jwƺš‰KÎ'–ÈcK¯QòæÕÜ÷ È'\‘ÃxC“6ZÉ_2‘Åb¨¿#ÍöiF]c ­ÅÁf°t{ºîO¤a’µý'þæ6 âí�s ÉÐNXDâaêGÓKý± Í“ ð½r`êdR޵.'‡ê “BòÄ‘y3§TaxeFÔÂ#O¬òæ�Ó­à Ÿã8V…cqfúAÃBלþ äX},Â:ä‰í±�Úªd¶ad|/bͤfºÝ`À@ÚdÖ®ŒFûqii apVï¨ —KÎ1súÖñQiçhçó=ŸUf5¾¹ÍåqEÏ,Ö½ÐÝUÁÇÁúòˆ…>ýp�V=Y¸ýtV“•ƒJ±(¸ãÇÂM£Ó±JZd—$²¨BcAÁÒ´�ìÞI÷òPRdâQ à"vURèYßRýÕ9É"‡èî+Nó(�|u{ºáÊ]ÖXîM+ÄdO0Ì™`\Œbò¬2”‚Π쵘+ rD©&#e³Dº–fMš� ²‰¶«û¯Ž÷²iY…3IÞ䣵„†lëÉ� ¹(ÀÎe1K‡QgÝH]äÏ<­²g¬ÇlPÝ/Á_*XUkêî³W+€æü:¥TKZÉí]n€Ÿ¶žk�—kS ¦�ÿîúHg*«öµñnÐÝ, ÇüR[Ã7ä#›þ?ríGÆw�„º–_¹ªhGó¶Ï�Ý�­Ön5°­‹Ù‡˜ä¾B�‹ î>¿�?d\Iò¯Ý¼€åHn´ˆ¹¤Rü­ÇRÀœÜ*ÖÙõBº+—ÉN�J�&ï*TM+Èj�0 Ìg�˜Ÿíç”Rõ乨ÌH$2>DAÿâÞUŽrî zÑ�hó¯D°„nG^ NÄqºFÁf`cÖ­zþ½­<ŽŒÄ™ˆ~-!é6UíqÂ~ºÍûK�9;I_ý«žÁè½…©ÛOk!2¹k·ü¤íæÀëЛOÚÉ`— �:b€s€êï÷÷SKZè øs‰pßF®¦–&_~ëY¨¹¨Þ51"EC]û&Û§ÐGµCq›«ò ‘ï^dX^w‹eç›—Ž°i3jÞZOÃk6ë±[ÿi¼h-¿« QUq†~ºÍûL�;JB×UÑ’ÒÖwUnº7õ:§€¾ÌPØ@V}Ý#®%@Oô�š>ø„Ö+K_Ëô%=¢wÛ[}é˜IàO!·%§Åª«!Ñ…p¦ ƒ&�Öìvn]|s±ê•°Só˜‘=®B;VY0±_igÁfTBÑ&Æ'µ¦ LxŽŒÄ™†h¸O¬³öì‹Ò‹O «›¹ææA_Ñ\:a£®vSHœJÒ„þ�k° IÕRß}âÉDw™ËXYG� pŸ¨„‘»l;%ŠÐÎAZ}é˜IºDÇ�ÿÕ%þKF©"Ó$ú²ÖQÖ'PÅ÷}s±SK{`ªì�˵Yž\ °Kp¢KR;¹&±ÝçÃ~³ XêEŠhfn^â ôôú®ìôX.µË¯\ç].ƒCœ®Ýñ„ÿ¹¥RÂN´Ãñ,8ï³"¦^^ºÄ`m+Å¡èïß÷+KSõbõ‚݀ν÷%jà æœ$5˜ þkðÁnꊮvßhvvŽ×�ü響‚l�%ˆ©Š ¯Jx•v"Tf5=°–­<Ž…?©§C‰ç*â* íQìe§rü;ϯ¬Ü‡¤˜\¨12 Ejð˜sÂó¾:5ú¢ÐÑ_n —̳c€sÛ÷õ%:s ñg�²D©O�ŸaM¥ilå#òëCÛ¤‘t§ÏGµ}o ›«òç #xyØ*¸Y¦\„¼M¹fc zâ×o‚ŽŒ¾~´ã¼k.¿¬³ø•Ç8]Ïh‡ y`6 Hè…ì²áô‡›Hnk!-;É Âaú^ëLô*©§X3^�J‘ë¸x€¥�ãùæ�D™ëŒsïpÚF†âšòÁTã5^gèžtyC%Tà„%=PÅ÷åÓDؓ٩#¶=®+;VY)¶õ½gS–hRjˬ'ö ú¿xŽŒÄ™qh O«´ö¦à'$û,ëÉ�Ý‹¯}AgÒ4‡¿»ÕbÃYÉ?‹\|5që„«…ÚFkÏþ!&êZ õ<1« “$¤AK=÷ÇñJ�Ýþ!åÍ\€”Wïåî"2,ÅÖÔŸrGjMDìzä6Ñì3_•&yP¬’çcš½~RhÇŸqéQŒ¯’£ÌB_-†-'æ/ñ8¿XþFX²æ1L³Hk‹Ù,p‡—evé|,äŸ qÌa”w³_ú9�wX—i ꚢïÓÖZ¿ƒ¤AK\@UñqãAÏíTomÎ5AÇ4p&Ül>þñt:Iµ|ÉÈ\ù#,;#`TyßG> Ãiº/‚ÿ¶xOºæyøŽzë°[Å—‰ÈüA1™µ„×Ë$:ºÍûK¡]EÚ±»\ô±Ý÷XHf¿[”K,Wp²EÄÓ9ÌÈ�ò9�wléî£O’Jp-¥ø‘»míýs ñg�"x¤‰eûÖnI­<@ÒÓD&öêà`µG]�!¡«Ç•ò£c^Ô¬§„XqΩt–‹L¹ÒZýã¡<ëo9ëqbÈX@Õ—µ† õïÅ?'ßA“H ƃ-f‡—evé>(äª[éõµl§@ÊXµ9(ÉþÌ((Y%õÎ^¬ KM’ %ÂÐÓ›¶,izLäóö ¿0ÖÇÞ—q&$=$¦ÖQÖjCÅúvsÞ%ÿ1¡‰gt�^óUOOyõ¸^ Í#GšŒ À‰Á«óÂŽ§åP> §’Ž�!$âòùPùÂtmß=Dè¢ Ò¬¦OÀ/eĘRÊåÌlîÊÁ$ {ª#wÙ�õTqœç1© —]ý#,ú Fk¤xj#er÷jn5«?(Eän�ÞeDÕødàU€ÎBºÂ#%!Ž=�1Û -ÿ¿ÔYñšŽIü¿ª8$ éQŒ¯’£Ì]AqfK!¶z Å´ÚÏÌöèCGtÚ,šæz¥€í°‡ge!J¸~gòY=>Uav5Ÿž�«�Xw™ËYø�7%jÛÊTœ×ë. %TžÕжaŠj2¿IÔ�ªdN©â‰Ü´˜åç3ÖMŸqjMÀ‡úA±šˆO#ãG%#ˆT\q�:Óv‰pF7G^Èҡ㟹×ubfcÃUâ~ùZɺ¸\X1ºY¯‡ôx ù´náOk¿#õ Ì”¥€¾ T˜ën«�õD®}Éxmvàpõ‚Î^äË­z0”½¸’wxjŒ[û»±¯E'mß•¤£’Anf™6˜Ç≂NJ‘;�ƒ;÷#\ºé7 voŠ2—  ÕØårÄã{eɧ�Î"$âÆH� £5S® dÍYÛÓ˜J}Ql½„2˹ig¹¾½lÌ�Û.³;¾î7ã¢N�cpr¢2“»i'êÚÃÌ0×}ùbûˆöS»10Ç4p&Ü->¹Ô» v'­¢± óÑ:.–a&<¨Vq¼¬“úƒ–";Ň“ŸéX­üÒ•Ži;‰2¨"ǬÃI$F§¸pwÚ, šæ{£€�¯†IEQªéa� (R•Êòñ ­ß –uú;y-k VÉm6%�®Æ^©/íM+7oÜÓ›¶,i}Läóö×m10Ç4p&Ü.>¹Ô»vC­yǵ óòm_#•ƒzjGÊÒQwº´ÁÒF‹ÄžóÈëâúëÙÀiD‰)¾Uµ’ ùMí§Ë.3ä :6è}§]2|̤ØJÄ ÑëF~ùƒ3Ê@V}ñ¥¾—ûµ´e€f8·‰¶_,+ÚoÍÜÌ™`\Œbñ‹ ¦º¬±¶ýñ-ÛãÿÚ  W=qµMdÈ¥û²"q1µ¾C—Ê74¶î¢™²|éFžø“ £Ú3r4ãn‹ßßÍéUÚV„ºñë¸v¥Hgµ.~‡M¨H<�&þY|Abd5»,`ùíÏ*D—¼þ®þ€‰Û©ëñ2ºVØHWø‘Ùrn"ÃS#Êg‡hf5n¨µÙDØ26›Ø„–;ÜC}w ¬1×q“�LŦÞ[”Ñe9›3žž[0‹âŸ‰ë©Mbÿ£úk—fÒ ‰ÑÑÏÒÆätrð·j0ÈÒg(3ß~9õFÊn«z¾>Ÿ�êD‰`Nó ­YqNÃ,áï,K*YWø˜ÈUAŠjžö‚¥*0Ç4p&Ü;>¹û»$jMÀ‡òAKÅgX eÅÛÓÉKK_&½Þ�Ù�6“Ý�³ ÃÛ™† h´nµÎ>¼î=ÑÌõ©?G"ßÛBß°É\aÏœ4Ø{Y÷ÏY ×§×ëqÌa”G³nÔD‰`Nó�|~{p�Ÿœƒ»X+my‘ր藊kÓ†±nûÕ+×s:³"A$V î† 7m�µ6ŒÈÊê×—sÉ%8GÄÌyõÀ‡+æÈ÷ Ö…æÝåÆ§×Ÿžì¸TdOXÍéŒB‘ª°?측“«,ÀÒ¼ 1pHI¯R–¿ ³²Ä›f¤ÀÛyû*PCDòæ‘|j€¡–æðvm°T "“Éû\rn"xr�{@ní» Ø*.=u�Àþ0bdÂÅyUβ"q~-µ¾C—‚4·ö¢GqH–îÉìÅðÃnÄ’£òe_Kq†!·w[Ç´ÚÏÌöèCGfÚ,3š‡ÍYÝÓ˜R}¯>¢Cïy¹O² Ð} ­ÖàñßÇwG+ßýTe†z�ïð,K*YWø‘(rnò˲±n”Y;ŽÛæ™ô8ê�¼ ,|µ d¦"™«N/‰R*šn¢qÎÅ[“”IüL¥¤ñé‡M‹ô;×|…Ⱥ>áð�µßÇKr}ޏš—e"è‹ô ÎϘ]|\Fê÷ ²~aŒƒ /Ò˜6 }þÙñÚ÷ ¿�ƒ*Î~,+ïO_ݵəV �{ϲ ¦ŸØ_ñ]vå?Zš˜ÇŠø¶vRMBïl>ºß×O}Ñ%îˆstVôŽxŽ�š‹Ãžøêàná�úI|inÈL4qÆ¿BF¬‚7ìØy-â½ÜOþXÜ‹€S{Y÷õ†Çâ¬r¾èÕ൰³néÙð Ä-�ÉÀc¼ýî„d)[ÝŸÈUcxÍ‘C@ní» Ø-.=u�Àþ0bdÂ0tϲ"qþ&µ¾C—Ÿ3^°î¢™²âFžø¦ |Ï=d4ãn‹dßÍéUÏR|º?. }Þ,›×kÌŽéû¿W|\HêÏ £s¬×ëqÌa”-˜�òD‰`Nó ¬YqNÃÍs7ðDKØí´ `¬Û\GŸ˜u#­… Sä;Yø”3æ™ô8ê¤Á ,�µØbn"‘«Ö×1†!*O?0Y|¼ËŸ*[“”²‚çóê"VCGgÞNtZHì«‹š;DÏšóÃM‘ô úk—fÒ«î64÷öÄ.&µ;F–\¡ë¾ÞOLÌxÛ·k¾›»bÂñƒÜy#¼$Ó±ZtNÃ28!?"9!É í°!á¸í°áí°>2گà Ã:ÃDÃ]ÃSÃXÃNÃ]ÃDÿ í[Ûþ (ú!eÍ}Í„þA8þQ0Gþ: xÖ@¯!\w# ( þ  ÍyÍVþ. ÍV!h6#ûÉ (þ*(þ.(þ!8þ}(þ*(Í„w#ßÉ>?> w#üÉþaØþ{ÐÖ É|Í’}õÍ›ñæÆ�'Î@'Ãè¯7Ë|À|·}È>ÿÉ"ÍíCß"í6#ûëÑùü "Ïë"ÕÍ�Í©éå*Ï·íB"Ïí[Í·íRëáÚ5í°É*Ïí°"ÏÙÉ^#V#Õ^#V#N#FáÉÝáëO/o&ÿ9ùëí°ÝéÑO/o&ÿ9ùëí°éÝáë!àÿ9ùëÅ(¯üí°Á> �‘(G¯üÝéÝá!àÿ9ù ¯w#üÝéÝáEÍŠ¶wÝéÝáÑ}“8÷�Ãu·íR·íB0 É>‘î·íRëê@ðøÉÕë·íRëáë·íR!È+Éͨ õÍz ð·íR!À+Éͨ õÍz ðÍ<!Ð+Éͨ õÍz ðÍ<!ÈØ+Éͨ ôÍz ïÍ<!ÈØ#Éͨ ôÍz ïÍ<!Ø+Éͨ õÍz ðT]KBë!z·> S>)ë)ë0 = öÉ|ªõÍJëÍJëDM¯go>íjíB0 7?ËË= ðëñðHåÍ\Ë<ËÑëÍÞëËzÈ5Í+È)ýÉÍ+ÈË<ËúÉëz· {þ0G·É¯goÉë|ª|úHºÀ}»ÉÉË|È|/g}/o#É}æo&ÉíKÓí[ÑÅÕxAJSËËËËáëáíJDM!éb"Ñë!6íJ"ÓDMÉ'ͬèͬdͬ ͬ} ¯<íR0û= ÈÆ0ÝwÝ#ÉÝ~Ö$O! Ý#Ý~Í„Ö08)þ 8 !Öþ 8þ0T])Ø)Ø T]Ø)Ø_ØËy·È|‡ÉÝááå}&#9N�8wë!DíB9ùëåí°ëá+Oí¸ë#ùÝé>ÃwÝáͦWáͧ _áå}“8(º8J`9{‚T]=o`9yí¸ë ¯ÃwÍÖ Ð>ÃuÍJ õÍuÍ` íÙ}·Ù>(è; àÙËxÙÂQ Ù}·ÙÈÙÅÕåÙ}· Ù˸TÅËø¯ÙËø}Ù•(0íD=ÙÍC ,= ù(Ùñæ€ Í[ 0%ÍD ·, 7 Í� ?õ(8ÙÍu Ëx ÍO - öÍ; ñ8˸·ÙáÑÁÙÉÙËxÙÂÝ ÍX ÍÝ Ø,-Èxî€GÉÙ}·ÙÊ; }·ÈÙ…ÙÍ ÅÕåÝ9Í; Ù.Ù>Ý#ÝnË0Í[ ÍD = ñÙ-Ù åÝnûËx ÍP ,-(-ñññ·ñÙÁáÙÝá˸°G,-Ì; É}·ÈÙ•Ù?Í åååÝ9Ù.Ù>Í� 8Íu ?Ë= ÝuÝ+Ù-Ù(>ÍO 0ßÍu ·áÍO 8Í� ?áÑÁËx ÍP š, —7•8Æ€8Æ€8oÝãÙåÅxËøÙ¨æ€õËøÝåÝ!ÉáØ¯oGOW_gÉ·ËËËËËÉ·ËËËËËÉ|Ù„Ùg{Ù‹Ù_zÙŠÙWyÙ‰ÙOxÙˆÙGÉ|Ù”Ùg{Ù›Ù_zÙšÙWyÙ™ÙOxÙ˜ÙGÉxÙ¸ÙÀyÙ¹ÙÀzÙºÙÀ{Ù»ÙÀ|Ù¼ÙÉÙxÙ¨ò² xÉËx(ͼ È?É}Ù½ÙÀ·ÈÃ� }Ö�Ú; <þ(ÐÙÅÕåÍ; 7ÍD = ùÙ|Ù¤Ùg{Ù£Ù_zÙ¢ÙWyÙ¡ÙOxÙ ÙGÃD ÙÅÕåÙÍuÙÍÆ ÙÍJ ë}·ÈËx>ÂuÍu}Æ€Ë/Æ€oÖõÙÅÕå; ÍÖ -ÅÕåÍJ }áÑÁÙáÑÁã¼ã0ãñÙÉÙÍW-ÍJ ÙÍW,Ù}þlØÅ˸ͨ Á8 ; Íý Í` Ëx(ÍÖ Ù-Ùͨ õ8ÍJ Ù-Ùͨ 8Ù,ÍJ }þl8;Ùª*ªª!ªÍ` ÝåÝ!Ð >ÍýÝáÍuÍ` Í` ÅÕåÙÍu--Ù-ÍÖ ÙáÑÁÙÍJ ,,ñ,-ÈØxî€GÉgª?+2×n¶*ï8t Ð Ðzˆˆˆˆ~«ªªªª,->ÊuËxÂuÙÍaÙ}.�•õ; ÙÍOÙÍJ ÅÕåÙ,ÍÖ ÙáÑÁ; ÝåÝ!U >ÍýÝá,ÙÍk-ÙÍÖ ñÅÕåo&0%ÍÑÙ,Í` ÙáÑÁÍÖ }þgÚ; É}Š�؉}颋.:}Žã8Žc~I’$I~ÍÌÌÌL«ªªª*ÙÍkÙ·Ëxõ˸; }þˆ0GÅÕå,Í™åË<Ë}áõÍÑ,-(-ÙñáÑÁõÍJ ÝåÝ!Ù >ÍÝáñ0 õÙÍaÙÍ` ñ…o8 ñÈÙÍOþ á>Ãum.`1pF,þåt6|‰„!wS<ÿÃ.zÒ}[•|%¸FXc~üïýu€Ò÷r1}·ÈÝåÙÍOÙ¯Ëx(<˸õͨ 8Ù; ñËÿõÙÏŽé!~JÙͨ 0Í÷OÝ!—>ÙÝÍ<Ùͨ 8 = ìÙ ÝÙÙÍ7ËøÍÖ ÅÕåÍ<Í` ÙÍOÍÖ ÙáÑÁ; ÝåÍ÷ÝáÙÍ7ÍÖ ñ0 õÙÍW-ÍJ ñÝáËOÈËøÉçÏÌTöô¢0 jÁ‘ €µžŠoD€‚,:Í€jÁ‘ �€!¢ÚI}袋.º}Žã8Žc~I’$I’~ÍÌÌÌL«ªªªªÝ!Ó>ÅÕåõÍuÍ` ñÍÙáÑÁÃ` õÙÍ7õÙÅÕåÍ7ÍÖ ÙáÑÁÙÍ` ñ= éÙÍOÃÖ ÝÝnÝfÝ^ÝVÝNÝFÉ!�DLT\ÉI¢Ú!‚!É53ó!�úÉr1÷!€ÒÉÅÕåÙáÑÁÉÍ\!€> Ëx Ë#ËËË-= ðo˸ÉËxÙÍO(Ëø-ÍÖ ·Ë}(ËxËø>�½8(ÍC ,óÍC `iÈÃM!É>’Ãu|µÊ; Ë|ÍJ>�Ë| )=Ë|(úDMboÀ˸Éͦë8þ8ͦÙËxÙ(’0¯þ 8> ÕÍMÑËx(>-ͲË{(aËy(Ͱͦ ò\z·(>.Ͳ (Ͱ ÷ú~ͦ÷Ë{È>EͲ>+Ë|(|íDg>-Ͳ|/Ö 0ûÆ:ÝpÝ# ý~ý#· ý+>0ÝwÝ#Éýå,-  ý60ý#ø¯ÃJÅ˸}ÙÖ€oŸgMÍÄ|þÙ <ýwíDÍ }þ�0Í€ý5Ëø>„•.(ÍC Ë= øý~õ> xæÆ0ýwý#xæGÅÕåË%ÍP Ë%ÍP ëãÑãíZëáãíJDMáË%ÍP = ÈñÁýáÉýåá_~6þ5Øúi+~¨¥Ôh¶¿ÉìÅëx-ÐÍÎÂSÞùx9?ë+¨­ÅøÉ{Η@}·ÈËøÅÕ|ÍC ÍC „gãíZëáãíJDMá0ÍD ,7È}Æo˸ÉÍ ¾ #øyîO!@9ùi&ÝéÍ  ë¶¾ â#÷ÚÍ ¶w#ùëùÝéÍ /¦w#øïÍ ¦w#ùãýáÝá!9ë! E9ýéÝá!!9~·(¯+FÍŠ¦!"9ù!(#Ýé>¯2æýá*ÛͲ¯á"âýå|·>"Ê :æ·( ͆ *â6#wÉÍ÷*â6#6 ë!\$í°É!¶Ååí[Ûþ (úÍ„–( áÁã·É#ëÁÁþ:À~ÉCONTRMKBDLSTAUXUSR>¯2æÍîÍ$*â#~þ ͶÍ$*â:æ·> >w###6ÀÃÖþ þ #6++pÉ>¯2æíSäÍ-Í$Ͷ:Ù·À*â6###ww#w$w#wÖÿ:æ· åÍôá##N#F*ä·íBÈ>�à å¯w#w#í[äs#ráÃó>¯2æÍSÍ$ͶÍ$*â6å ë#Íá-¯Nw#FwÖÿq#p#6€#w#w#wÉÍß*â ë:æ·( ÕÍÑñÅÍÁ<Àxà *â6#ûÉ"â#~+þ 2ËN(>Í’:Ù· *âË^ îËFÈ*âå ëÍá< >ÿ2Ù6É"â~æÈÍŸ*â-¯w#wÕÿw#ÍóÍŸÀ"â~æÈ·ÍÀ ëÍ<À@ýá*ÛͲ¯áýåÍÀåÍ÷áåë!\ í°á åëÍÑ<Ê®!\$í°É>à >¯2æÍÀ*ß|µ>! ë*â \$í°\Í<(Ï!ý€í°:æ· í[1Ã�ÿÕÍ\ÍÑ!€ë·(éf"âÍÂÈ> 2ÙÉ:Ù·ÈñÉÝáÝåå!ÊÍ<áÉÝáÝå"âËF( #~þÀ#6Ãe>Îå!ÊÍ[áÉ"âËNÀ>ë!Ú~þ€8>O6*Û"ÝÍwþ (=þ(&þ("þ(þ :á·(ßÃNþ 8Øyº(Ô~#ÍèÌúx+Í% (½ï6Éå*â#~þáÉÍÂÈÍ[þÈÅÕå*â#~· *Ý~þ(h#"Ýb= Íõþ 8Íèþ ÌáñJ= ÍB== ͯ}8= ͵}/Í­ !*â###å~Æ-_~áþ(4òQ6*âËÖ>™2Ù>*â##wáÑÁÉ:Ù·>Àå*â##~áÉå*â#~þÿ(EÍÌÍ[þ ( þ (þ (þ ÍÖè!]Í[þ (þ (þ (þ(w#(ÍÖãÍÂÌÖ6áÉÝ!]Ý~·Èþ-ÀÝ#É8Ý~·È>7à ëÍ Í[ÃÖÍÖÉ>¯OÅÍkÁͼÈÅåÍÁÑÁÍÎØÌMës #rëÉÍkͼÈÅåÍpÙáÁÍÎØÙÌX ÙáåÍÌÍ[þ ÍÖôÍ[þ (þ( #w(ÍÖêÍÂÌÖáqÉ*â#~þÊáÍ[þ (þÈÍÖñÍ ÍÖþ ÀÃÖ*â##~þÈ6ÉÅÕåÍœáÑÁÉOÍ$*â#~þ(08áÅå·Ê¦=ʦ==Ê©=ʬò+ËÞ###å~Æ-_qá4ð6Í¡È>ðà *æ:è¾È4^qÉ}Ã’ÁÑÅÝ*ÛË|(ÍMëëË|( ÍMÝ6-Ý#ÕÍ�áͦí[ÛÝåá·íRë“8 (G> Í’ùCÈ~Í’#÷ÁÑÙáÑÁÙÅÝ*ÛÕÍôÇÁÑÅͦËC!h Ç!lÀTRUEFALSEͦ!9^#Í(ÑùÕÉá~#·(G~Í’#ùé> Í’> Ã’ "âËF!ÈÍ[¸(þÀ#ÉåÍRë·íRá0Íô*â4À#4É>™Ã åÍR·íR *â4 #4(áÍóÒ>òÜ>¯2çÍ$ë*âËV(/Ë–:ç·(#~+· x· y·ú2ÅÕ!͵ÑÁ( =(þ X:ç·(R*â:ç·(ËÞ###~Æ-Õ_ÑÖ-ÍŒí âX<òN=<ÍŒ*â###æw ÅÕåÍŸáÑÁ Õ*Ñ4 #4x±ÂüëÉ>™>ðà õ:ç·(ëñÉ"âÍŸÈè"*âËÖË^ÈËž*âËVÈË–åÅ0ëÍÁá ëÍ·ÉÁÑíSâÅåÍRÑ·íR8A*â N#F#s#rÍ$ 0}æ)ëíjëS\*â###w* N#Fë·íB ÈÕåÍŸÑár+sÉ>‘à ÕÙáÙ!T]>)ëíjëÙ)Ù0 0= ïÉÍU·íR!À#ÉÍUëÉ*â^#V#ÕN#F#^#VáÉ>">!2çDMÝáÑáÝå"â~æÊóx±(LÅÕÍ*â ë:çOÍÑÁ·(o:çþ" C}=(þ ?ÅÕ*â-N#Fp+qÛÿq#pÑÁ!€ë °*â F+N+++V+^ë·íBÐëq#pÉ>™>ð>à ÁÑíSâÅåÍRÑ·íRÚ*â s#r$ s#rÉ"äíSæëá"â! N#Fë·íB(^x± *â 6#ûí[âÍ<(H*â! íKäq#p##ëíKæÅÕÍí[â!Í· *â! 4 #4Ñ!€ëÁ x± Õ*â$ éÝ*â>ðÃw"òëáã"ô{æü_!í"ëÝ*íÝnÝf}´(HíR0ÝnÝfåÝ"ëÝáã Ý^ÝVÝåMDÝnÝfÝåÝÝuÝtÝqÝpÝåÑ*ës#rÑ*ôs#rÉÝåá"Í*ò ÝåÁ Ú5íKÏíB!Úð>ÿÃuëáã~#fo{æü_ë"ò*íåÝá·íR0RÝnÝfå·íR0ÝáðáÕýáíKòýqýpýuýtÝsÝrÝåáÝNÝFÍÄ( Ý^ÝVÕÝáÝåáÝNÝFÝ^ÝV*ííSíÕÝáÝuÝtíKòÝqÝpë ·íRÀÕýá*Í·íR(ý~Ýwý~Ýwýnýf ÝuÝt¯ÉÝåá"Í6#ûÉÍ *öÉÍ *øÉ!"ö"øÝ*íÝNÝFy°(*ö "ö*ø·íB0íCøÝnÝfåÝáØ*Ïûÿ í[Í·íRØë*ö"ö*ø·íRÐíSøÉí[Ís#rÉ^#VíSÍÉ>¯O"æ¯w2Ùx2è!ê"âá"äá ÍöÍ@*äé>¯2ê"æ!ê"âá"äá"è!\Ͳ¯*è:ê· ÍîÍ!Ù~6·go(Ýåá\íRë*æs#r¯ÿí_2ÔÉëÝáÁáx±( s x±(T]í°ÝéDMÝáÑá·íR0ð ë ëí¸ÝéÑÁÕ-a%ÃÆ}Í„oÉ*é!Ù~6o&ÉÍ |µÈÍ£}þÀÝáÍ%^C User break1:Ù·ÈÝáõÍ% I/OÝáÍ% Run-timeÍ% error Í’Í%, PC=Ýåáí[Õ·íR"×Í�Í% Program aborted*ßé1!ÀϸÿÍ�!(ÐÇͲñ !ÕÇåÍ GRAPHICS.DTAÍ<Íb!ÕÇÍÏÍ5å!ÑÍN}2ÔÇ*ÔÇ&ËEʰ ÍRÍ�gÍb!ÕÇÍ�}îoËEÊ› !ÕÇÍ8!‰ÈÍî!‡ÈÍî!‹ÈÍÛÍ_Íb*‰Èå*‡ÈÍ*‹È&ÍRÍòÍb!ŒÈå*‰È+å)å)å))ÑÑÑÑå*‡È+Ñå*‹È&ëásÃ, ÍRÍ�GÍb!ÕÇÍîÍbÉÍcÍRÍ�gÍbÍRÍ�5u h j y v q a z x w e d c g t f r b n m ` k i | { p !ÍòÍ� o ~ lÍbÍRÍ�GÍ�ÍbÍRÍ�" to run the program. If you have saved a previous graphics display, it will be displayed, otherwise the screen will be ready for new graphics input. To move the cursor without writing a character, set up the ARROW KEYS to the WordStar configuration (^S, ^E, ^X, and ^D) and use them for single-space movement, or the RETURN key for vertical column movement, or Ctrl-A to move 10 spaces to the left, or Ctrl-F to move 10 spaces to the right, or Ctrl-R to move 5 spaces up, or Ctrl-C to move 5 spaces down, or Ctrl-H to erase backwards, or the SPACE BAR to erase forward.  To erase a whole line/row, press ESC. Type "/Q" to quit. Type "/S" to save and quit. A file called "Graphics.Dta" will be saved with the x and y coordinates of each respective character. Copyright (c) by Doug Cox Nov '84 & May/June '85 for non-commercial use in the Public Domain.n the lower center. Type "Graphics" after the "A>" to run the program. If you have saved a previous graphics display, it will be displayed, otherwise the screen will be ready for new graphics input. To move the cursor without writing a character, set up the ARROW KEYS to the WordStar configuration (^S, ^E, ^X, and ^D) and use them for single-space movement, or the RETURN key for vertical column movement, or Ctrl-A to move 10 spaces to the left, or Ctrl-F to move 10 spaces to the right, or Ctrl-R to move 5 spaces up, or Ctrl-C to move 5 spaces down, or Ctrl-H to erase backwards, or the SPACE BAR to erase forward. program GRAPHICS; (* by Doug Cox for an Osborne *) label A, B; (* const ScreenTop: Integer= $F000; type Row= 1..24; Col= 1..128; PointerType= ^ScreenPointer; ScreenPointer= Array[Row, Col] of Byte; *) var (* p : PointerType ABSOLUTE ScreenTop; *) square : Array[1..80,1..23] of Char; ch : Char; x,y,z : Integer; fv : Text; ok : Boolean; procedure GetGraphics; begin Assign (fv, 'GRAPHICS.DTA'); {$I-} Reset (fv); {$I+} ok:= (IOresult= 0); if ok then begin write (#27#103); while not Eof (fv) do begin readln (fv, x, y, ch); GotoXY(x,y); write (ch); (* or p^[y,x]:= Ord(ch)-96; *) square[x,y]:= ch; end; write (#27#71); Close (fv); end; end; begin ClrScr; write (#27#103); (* start graphics *) write ('u h j y v q a z x w e d c g t f r b n m ` k i | { p ',^_,' o ~ l'); writeln (#27#71); (* end graphics *) write ('u h j y v q a z x w e d c g t f r b n m ` k i | { p ^_ o ~ l'); GotoXY(1,24); write (' /S to SAVE /Q to QUIT '); FillChar (square, SizeOf(square), ' '); GetGraphics; x:= 26; y:= 12; ch:= ' '; repeat A: GotoXY(28,24); ClrEol; write (' Char= ',ord(ch),' '); GotoXY(41,24); ClrEol; write (' X= ',x,' ','Y= ',y,' '); GotoXY(57,24); ClrEol; write (' ESC to Clear Line '); GotoXY(x,y); read (Kbd, ch); case ch of ^D : begin if x < 80 then x:= x+1 else x:=80; GotoXY(x,y); end; ^X : begin if y < 23 then y:= y+1 else y:= 23; GotoXY(x,y); end; ^S : begin if x > 1 then x:= x-1 else x:= 1; GotoXY(x,y); end; ^E : begin if y > 1 then y:= y-1 else y:= 1; GotoXY(x,y); end; ^F : begin if x < 70 then x:= x+10 else x:= 80; GotoXY(x,y); end; ^A : begin if x > 10 then x:= x-10 else x:= 1; GotoXY(x,y); end; ^R : begin if y > 5 then y:= y-5 else y:= 1; GotoXY(x,y); end; ^C : begin if y < 18 then y:= y+5 else y:= 23; GotoXY(x,y); end; ^M : begin if (x > 1) and (x < 80) then x:= x-1; if y < 23 then y:= y+1; GotoXY(x,y); end; ^[ : begin GotoXY(1,y); ClrEol; GotoXY(x,y); for z:= 1 to 80 do square[z,y]:= ' '; end; else if ch <> '/' then begin if ch= ^H then begin if x > 1 then x:= x-1 else x:= 1; GotoXY(x,y); write (' '); square[x,y]:= ' '; end else begin write (#27#103); write (ch); write (#27#71); square[x,y]:= ch; if x < 80 then x:= x+1; end; end; end; (* of Case *) until ch= '/'; GotoXY(28,24); ClrEol; write (ch); read (Kbd, ch); ch:= UpCase(ch); if ch= 'S' then begin B:write ('Saving "Graphics.Dta"...'); Assign (fv, 'GRAPHICS.DTA'); Rewrite (fv); for x:= 1 to 80 do for y:= 1 to 23 do if square[x,y] <> ' ' then writeln (fv, x,' ',y,' ',square[x,y]); Close (fv); end else if ch= 'Q' then begin write ('Quit without saving (Y/N)? '); repeat read (Kbd, ch); ch:= UpCase(ch); until (ch= 'N') or (ch='Y'); if UpCase(ch)= 'N' then Goto B; end else Goto A; ClrScr; end. [z,y]:= ' '; end; else if ch <> '/' then begin if ch= ^H then begin if x > 1 then x:= x-1 else x:= 1; GotoXY(x,y); write (' '); square[x,y]:= ' '; end else begin write (#27#103); write (ch); write (#27#71); square[x,y]:= ch; if x < 80 then x:= x+1; end; end; end; (* of Case *) until ch= '/'; GotoXY(28,24); ClrEol; write (ch); read (Kbd, ch); ch:= UpCase(ch); if ch= 'S' then begin B:write ('Saving "Graphics.Dta"...'); Assign (fv, 'GRAPHICS.DTA'); Rewrite (fv); for x:= 1 to 80 do for y:= 1 to 23 do if square[x,y] <> ' ' then writeln (fv, x,' ',y,' ',square[x,y]); Close (fv); end else if ch= 'Q' then begin write ('Quit with Í:ðþ Âæç Í,!ðËþ#û!Ý!ý!€ð€ðͶ"P~þ 8þ8>.# ïåÍ­ázþü8ãýËþÝåÑðzÍÇzÍË{ÍÇ{ÍËÝ~)ðÍÇÝ~ÍËåÿÍáþ ÊÙþÊ!þ(#þ(Jþ(iþÊþÊ5þÊGþÊLþÊbÆý˾åÝåáPíB8åÝáýåá|þðÊà€íBåýááÃRáÃWý˾|þÿÊ!åýåáOûíBá0A€ý PÝ ÃRý˾Ý#ýåÑ{þÏ([þO(aý#ÃRý˾Ý+ýåÑ{þ(eþ€(fý+ÃR|þÿÊ!PÝ * Ã,0PÝåáíBåÝá*íBÚ!Ã,|þÿÊ!0Ý Ã,zþû( €ÕýáÃR€Õýá*P Ã,Ïzþð(OÕýáÃRý!ÏðPÃWí[!€ëíSP> üí[ÉæÆ0þ:8Æö€É_ÍÍÉ MEMORY LOCATION: CONTENTS:$SOLITAIRBAS(abcdeSQUABBLEBAScfghijklmnopqrSUBSERCHBASstuvAUTOST COMwCUBIST BASxGR/MENU DOC yzLEMANS BAS+{|}~€GRAPHIC2COMO�‚ƒ„…†‡ˆ‰ŠGRAPHIC2DOC ‹ŒGRAPHIC2PAS�Ž��OZ1MEM $$$ååååååååååååååååååååååååååååååååOZ1MEM.COÍ writteî bù Douç Cox¬ Sepô 1985¬ iî Z8° (assembleä witè thå Publiã � Domaiî Macrï compileò Z80MR.COM¬ whicè É highlù recommend). Thió prograí displayó thå memorù oæ aî Osbornå ± oò Vixeî computeò iî aî 8° � columî bù 2³ ro÷ format¬ witè alì normaì ASCIÉ characteró displayed¬ anä alì � otheró replaceä bù dots® Thå hexadecimaì representatioî oæ anù characteò � undeò thå moveablå cursor¬ alonç witè itó locatioî iî memory¬ ió showî aô � thå toð oæ thå screen. Thå cursoò anä screeî arå moveä usinç á sub-seô oæ WordStaò commandó:� ^K quit ^Q beginning of memory ^E cursor up ^X cursor down ^D cursor right ^S cursor left ^Z scroll screen down ^C next screen ^W scroll screen up ^R previous screen Thå displaù useó thå memory-mappeä videï capabilitù oæ thå Osbornå ± anä � Vixen¬ anä sï wilì onlù worë oî thoså computers® Feeì freå tï tampeò witè � thå sourcå code¬ OZ1MEM.AZM. Doug Cox 140 Monroe Dr Palo Alto, Ca, 94306 (415)949-0624 ;MEM.AZM BDOS EQU 5 ORG 100H ;header LD E,1AH ;clear screen LD C,2 CALL BDOS LD A,(0F001H) ;check to see if this is an Osborne1 or Vixen CP 20H ; by seeing if an Osborne1 screen memory JP NZ,EXIT2 ; location = SPACE LD DE,BANNER LD C,9 ;print string CALL BDOS ;highlight or underline header LD B,2CH LD HL,0F000H TOPLP: SET 7,(HL) INC HL DJNZ TOPLP ;display mem LOOP1: LD HL,0 ;beginning of memory LD IX,0 ;initialize cursor pointer LD IY,0F080H ;initialize cursor location LOOP2 LD DE,0F080H ;beginning of screen memory location CALL CLRLIN ;clear first line and initialize (ROW) LD (TOPLEF),HL ;to hold memory location that goes into 0F080H LOOP3: LD B,80 LOOP4: LD A,(HL) CP 20H JR C,LPJP ;(HL) < SPACE CP 7FH JR C,LOOP5 ;(HL) < 'DEL' LPJP: LD A,2EH ;'.' LOOP5: LD (DE),A ;put char on screen INC DE INC HL DEC B JR NZ,LOOP4 ;put the next line on the screen NEXLIN: PUSH HL CALL NEWLIN POP HL LD A,D CP 0FCH ;25th line JR C,LOOP3 ;another line if A < 25th line ;if 23 lines have been displayed then... CURSOR: SET 7,(IY) ;highlight or underline cursor position PUSH IX POP DE LD BC,0F016H ;put memory location in header LD A,D CALL HEX1 LD A,D INC BC CALL HEX2 LD A,E INC BC CALL HEX1 LD A,E INC BC CALL HEX2 ; LD A,(IX) LD BC,0F029H ;put memory contents in header CALL HEX1 LD A,(IX) INC BC CALL HEX2 ; WAIT: PUSH HL LD C,6 ;wait for keypressed LD E,0FFH CALL BDOS POP HL CP 0BH ;^K JP Z,EXIT CP 11H ;^Q JP Z,LOOP1 CP 5 ;^E JR Z,CURUP CP 18H ;^X JR Z,CURDN CP 4 ;^D JR Z,CURRT CP 13H ;^S JP Z,CURLFT CP 1AH ;^Z JP Z,DOWN CP 12H ;^R JP Z,PREV CP 17H ;^W JP Z,UP CP 3 ;^C JP Z,NEXT JR WAIT ; CURUP: RES 7,(IY) PUSH HL ;save HL PUSH IX POP HL ;put cursor pointer in HL LD BC,80 SBC HL,BC JR C,CURUP1 ;if cursor at memory beginning PUSH HL POP IX ;put it back PUSH IY POP HL ;put cursor location in HL LD A,H CP 0F0H JP Z,CURSKP ;if cursor at top of screen LD BC,80H SBC HL,BC PUSH HL POP IY ;put it back CURUP1: POP HL ;get HL JP CURSOR ; CURSKP: POP HL ;get HL JP UPSKP ; CURDN: RES 7,(IY) LD A,H CP 0FFH ;see if at end of memory JP Z,LOOP1 PUSH HL ;save HL PUSH IY POP HL ;put cursor screen location in HL LD BC,0FB4FH SBC HL,BC ;see if at line 24 POP HL ;get HL JR NC,DOWNSK LD BC,80H ADD IY,BC LD BC,80 ADD IX,BC JP CURSOR ; CURRT: RES 7,(IY) INC IX PUSH IY POP DE ;put cursor location in DE LD A,E CP 0CFH ;right side of screen memory JR Z,LEFT1 CP 04FH ;also right side of screen memory JR Z,LEFT2 INC IY JP CURSOR ; CURLFT: RES 7,(IY) DEC IX PUSH IY POP DE ;put cursor location in DE LD A,E CP 0 ;left side of screen memory JR Z,RIGHT1 CP 80H ;also left side of screen memory JR Z,RIGHT2 DEC IY JP CURSOR ; DOWN: LD A,H CP 0FFH ;see if at end of memory JP Z,LOOP1 DOWNSK: LD BC,80 ADD IX,BC LD HL,(TOPLEF) ADD HL,BC JP LOOP2 ; PREV: LD BC,1840 JR !UP2 UP: LD BC,80 UP2: PUSH IX POP HL SBC HL,BC ;decrease cursor pointer by 80 PUSH HL POP IX UPSKP: LD HL,(TOPLEF) SBC HL,BC ;decrease HL by 80 JP C,LOOP1 ;if at beginning of memory JP LOOP2 ; NEXT: LD A,H CP 0FFH ;see if at end of memory JP Z,LOOP1 LD BC,1840 ;23*80 ADD IX,BC JP LOOP2 ;next page ; LEFT1: LD A,D CP 0FBH ;line 24 JR Z,LEFBOT INC D LD E,0 JR LEFTSK LEFT2: LD E,80H LEFTSK: PUSH DE POP IY JP CURSOR ; LEFBOT: LD E,80H PUSH DE POP IY ;put 0FB80H in IY LD HL,(TOPLEF) LD BC,80 ADD HL,BC JP LOOP2 ; RIGHT1: DEC D LD E,0CFH ;column 79 JR RIGHT3 RIGHT2: LD A,D CP 0F0H ;beginning of screen memory JR Z,RTTOP LD E,4FH ;also column 79 RIGHT3: PUSH DE POP IY JP CURSOR ; RTTOP: LD IY,0F0CFH ;top right of screen memory LD BC,80 JP UPSKP ;point to the next line on the screen and clear it NEWLIN: LD DE,(ROW) LD HL,80H ADD HL,DE EX DE,HL ;next line in DE CLRLIN: LD (ROW),DE LD B,80 LD A,20H ;space CLRLP: LD (DE),A ;clear line INC DE DJNZ CLRLP ;dec B & jump NZ LD DE,(ROW) RET ; HEX1: RRA ;put left 4 bits on right RRA RRA RRA HEX2: AND 0FH ;mask off left 4 bits ADD A,30H ;move hex numbers up to decimal range CP 3AH ;greater than '9'? JR C,NUM ;jump if not ADD A,7 ;convert to A,B,C, etc NUM: OR 80H ;highlight or underline it LD (BC),A ;put it in header RET ; EXIT: LD C,6 ;direct console output LD E,A CALL BDOS LD C,2 LD E,1AH ;clear screen CALL BDOS EXIT2: RET ;to CP/M ; BANNER: DB ' MEMORY LOCATION: CONTENTS:$' ROW: DS 2 TOPLEF: DS 2 END n CALL BDOS EXIT2: RET ;to CP/M ; CP 0F0H ;beginning of screen memory JR Z,RTTOP LD E,4FH ;also column 79 RIGHT3: PUSH DE POP IY JP CURSOR ; RTTOP: LD IY,0F0CFH ;top right of screen memory LD BC,80 JP UPSKP ;point to the next line on the screen and clear it NEWLIN: LD DE,(ROW) LD HL,80H ADD HL,DE EX DE,HL ;next line in DE CLRLIN: LD (ROW),DE LD B,80 LD A,20H ;space CLRLP: LD (DE),-@!~í°Ã)4–3!4¾Èw_ÍÉ#~þ ʸ ÞAÉ:4É~ÍÞ~#þ ¼ > ÍÞÉ\ þ?Ê» w#ÂÒ É! ͼ Ã? ÍþÿÀ!¹ͼ ÃÍþÿÀ!)ͼ ÃÃÍþÿÀ!Ðͼ Ã:5Í¡ É:6þÈþÉ:6Í¡ É:7Íÿ-@!~í°Ã)4–3Ã}ØÄÈÐüôäð|xhpHP`à„ˆ˜�¸¨° <(0  À@2VΔ%Q7ZG098O1JPWLRAM6BXDYCKN23FU45VHSITE?.,/13ÍÍ Í=>2ÍUÕÍe§ÊœÍSÅÍ%Íe§ÊÂÍSÁÑþ ʃ!T¾Õ OÃ×ÍsÁxÿ!FÍ«w!TÅN; ;úÍsÁy§ÊŽÍÍÆ!(6ÿ- 6L!">–2!4"É!~7?W#~®wz+®Ò:î`w_ÉÍ%z/W*Në Øë-ÂFÃC!+Fx7?GPÒfð§ÈÍ@PÍsÃZ>ú=Âu ÂsÉóÓ:,ö 2,Óû>}=Â@>}=Â@ Â@óÓ:,æß2,ÓûÉ€€€É!65 ; ÕõÍDñÑ!5ʲÉ:ëFÍ«wë!:FÍ«wþLÒ þÒõëF:Í«w*>f¾Ú -Âú!>(¾Ê 4É*ëͲ!TN; bk~;*ÖÒ!úÍsòÍSþÊ}þÊòåÕÅõYÍñÁÑáÉåÕÅÍ]ÁÑáÉ*éåÕÅÍqæÁÑáÉ*###éåååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå TEACH3.ASM is a version of TEACH2.ASM modified to relocate the BEEP routine above 4000h while leav- ing the rest of the program in low memory like a normal CP/M program. This results in a COM. file that is only 1k in size rather than the 17k required by the original version. TEACH3 is set up for the double density machines but could easily be modified for single density versions by changing the "shadow mode" routines. The new version relocates the code for the BEEP routine to the protected area above 4000h when the program first starts. The method used is not the most elegant but it works. The beginning and of BEEP are labeled and the length is computed by the assembler. When the program is invoked a small sec- tion of code takes this information and relocates BEEP by the Z80 LDIR instruction. The LDIR instruc- tion is obtained by the use of 8080 DB's so ASM is usable. Since There is only one call to BEEP it is replaced by a fixed CALL 4000h. A label might be more elegant but there is no real need for the routine to be moving around. The labels within BEEP have offsets in the source code that are computed by the assembler. This alows BEEP to be modified easi- ly if so desired. By only relocating the one rou- tine affected by the I/O process the modification was kept very simple. I also added some punctuation to the program. I would like to add the common procedure signals but I don't know of a standard single character repre- sentation. The RSGB handbook gives some equivilenc- es but I'm not sure if they are standard. This could be a simple modification for someone. Richard Hall WB4OEM 5 December, 1984 uroked a small sec- tion of code takes this information and relocates BEEP by the Z80 LDIR instruction. The LDIR instruc- tion is obtained by the use of 8080 DB's so ASM is usable. Since There is only one call to BEEP it is replace" ;TEACH MORSE CODE ; ; ; ; REVISION HISTORY ; ; 10/02/76 INITIAL VERSION ADAPTED FROM 6800 ; 10/07/76 DOUBLE WEIGHT IF AVERAGE > 90 PCT. ADDED. ; 10/07/76 LETTER PROBABILITY NEVER ZERO ADDED. ; 12/06/76 REVISED RANDOM AND REMOVED PUNCTUATION ; TO SAVE SPACE IN 512 BYTE ROM. ; 03/23/77 CORRECT TYPO IN DOUBLE WEIGHT PROBABILITY. ; 06/03/77 ADDED SWITCHES FOR CPM, MORORW, IMSAI, AND HAL ; 09/08/78 ADDED SWITCH FOR SHERWOOD ASSEMBLY ; 04/18/82 ADDED SWITCHES AND BEEP CONTROL FOR OSBORNE ; 05/01/82 CHANGED EXIT TO WARM START ON ^C FOR CP/M ; 03/06/83 Revised Osborne shadow mode control /jw ; 12/05/84 Added some punctuation and changed the program to relocate ; the beep routine only above 4000H. This allows the program ; to be contained in only 1k of disk space. /rlh ; ; ASSEMBLY CONSTANTS ; FREQ EQU 4000 ;MACHINE CYCLES PER MSEC WPM EQU 15 ;SEND SPEED=15 MINIMUM, OR OVRFLO IN SEND SUBROUTINE IDLE EQU 3*50 ;IDLE RESPONSE WAIT MAXNUM EQU 26+14 ;MAXIMUM NUMBER OF CHARACTERS (LET+FIG) PPIM EQU 0FH ;8255 MODE SELECT ; FALSE EQU 0 TRUE EQU NOT FALSE ; IMSAI EQU FALSE ;USES PORT 255 HAL EQU FALSE ;ORIGINAL VERSION CPM EQU TRUE ;USE BDOS I/0 MOROWS EQU FALSE ;USE EI/DI INSTEAD OF I/O PORT SHERWOOD EQU FALSE ;USE SONALERT FOR TONE ON PORT 203 OSBORNE EQU TRUE ;USE SONALERT FOR TONE ON 2C02H, BIT 5 (LSB=BIT 0) ; IF NOT OSBORNE LINE EQU 62 ;TERMINAL LINE LENGTH ENDIF ; IF OSBORNE LINE EQU 51 ;TERMINAL LINE LENGTH ENDIF ; ; MONITOR SUBROUTINE ENTRIES ; IF HAL CO EQU 8009H ;COMMAND OUTPUT CI EQU 8003H ;COMMAND INPUT CSTS EQU 8012H ;COMMAND INPUT STATUS ; ORG 40H ;RAM ENDIF ; IF CPM ORG 100H ENDIF ; IF OSBORNE LXI B,ENDBP-BEEP LXI D,4000H LXI H,BEEP DB 0EDH ;Z80 CODE FOR LDIR TO RELOCATE DB 0B0H ;BEEP ABOVE SHADOW ROM SPACE ENDIF ; IF NOT HAL JMP BEGIN ENDIF ; ; ; GLOBAL DATA ; SEED DW 1234H ;RANDOM NUMBER (MUST BE NON-ZERO) NUM DW ERROR+4 ;SIZE OF CURRENT ALPHABET GIVE DB IDLE ;RESPONSE WAIT TIME IS SEC/50 TOLD DB 0 ;255 IF STUDENT WAS TOLD LETTER, 0 OTHERWISE COLUMN DB LINE ;PRINT POSITION REMAINING ON LINE ; ; OBJECT TIME STACK ; DS 30 STACK DS 0 ; ; ERROR RATE FUNCTION ; ; IF HAL ORG 100H ;MUST ORG AT A MULTIPLE OF 100H ENDIF ; IF NOT HAL ;ORG TO NEXT MULTIPLE OF 100H ORG ($ OR 255) + 1 ENDIF ; ERROR DB 255 ;TOTAL ERROR RATE DS MAXNUM ; ; ENTRY POINT (FWA ROM) ; ; IF HAL ORG 200H ENDIF ; BEGIN JMP TEACH ; ; CHARACTER CODE TABLES ; MORSE EQU $-1 DB 11011000B,11000100B,11001000B,11010000B DB 11111100B,11110100B,11100100B,11110000B DB 01111100B,01111000B,01101000B,01110000B DB 01001000B,01010000B,01100000B,11100000B DB 10000100B,10001000B,10011000B,10010000B DB 10111000B,10101000B,10110000B,10100000B DB 00111100B,00011100B,00101000B,00110000B DB 00001100B,00000100B,00011000B,00001000B DB 00010000B,00100000B,11000000B,01000000B DB 00110010B,01010110B,11001110B,10010100B ; ASCII DB 25H ;OVERALL PERCENTAGE DB 'Q7ZG' DB '098O' DB '1JPW' DB 'LRAM'  DB '6BXD' DB 'YCKN' DB '23FU' DB '45VH' DB 'SITE' DB '?.,/' ; ; MAIN PROGRAM TEACH ; ; ENTRY VIA JUMP. STACK POINTER IS REINITIALIZED. ; INTERUPTS ARE NOT USED. ; TEACH: LXI SP,STACK CALL PRESET TEA1: CALL GRAPH TEA2: CALL SELECT MVI A,0 STA TOLD ;CLEAR STUDENT TOLD FLAG TEA3: CALL SEND PUSH D CALL CSTS ;LOOK FOR ENTRY WHILE SENDING ANA A JZ TEA4 CALL CI ;DISCARD CHARACTER TEA4: MVI B,0 ;CLEAR RESPONSE TIME COUNTER MVI C,0 ;CLEAR CORRECT RESPONSE FLAG TEA5: PUSH B CALL RANDOM ;MIX UP NUMBERS CALL CSTS ANA A JZ TEA6 ;IF NO RESPONSE YET CALL CI ;GET CHARACTER POP B POP D CPI 0DH ;CARRIAGE RETURN JZ TEA1 ;GIVE STUDENT A GRAPH LXI H,ASCII-ERROR DAD D CMP M PUSH D JNZ TEA5 ;IF WRONG GUESS MOV C,A ;SET CORRECT RESPONSE FLAG JMP TEA7 TEA6: MVI C,20 CALL WAIT ;KILL SOME TIME POP B MOV A,B INR A ;GAD***** IS THIS SILLY MOV B,A ;WHY NOT INR B ********* LDA GIVE CMP B JNZ TEA5 ;IF SOME TIME LEFT LXI H,TOLD MVI M,255 ;RECORD TIMEOUT TEA7: MOV A,B ;COMPUTE NEW SPEED POP D STC CMC RAL ;RESPONSE TIME * 2 JNC TEA8 MVI A,255 ;SET TO MAXIMUM ON OVERFLOW TEA8: LXI H,GIVE MOV B,M CALL WEIGHT ;ADJUST SPEED MOV M,A LXI H,ASCII-ERROR DAD D PUSH B ;SAVE ANSWER MOV C,M CALL PRINT ;OUTPUT CORRECT ANSWER MVI C,' ' CALL PRINT ;DOUBLE SPACE MVI C,250 CALL WAIT POP B MOV A,C ANA A JZ TEA3 ;IF INCORRECT TRY IT OVER CALL GRADE JMP TEA2 ; ; SUBROUTINE PRESET ; ; INITIALIZE I/O AND GLOBAL VARIABLES ; PRESET: LXI H,ERROR+MAXNUM PRE1: MVI M,255 ;SET ERRORS TO MAXIMUM DCR L JNZ PRE1 MVI M,256*30/100 ;GUESS AVERAGE OF 70 PERCENT LXI H,ERROR+4 SHLD NUM ;MINIMUM ALPHABET MVI A,IDLE STA GIVE ;AVERAGE SPEED LXI H,1234H SHLD SEED ;NON-ZERO RANDOM SEED ; IF HAL MVI A,0A6H OUT PPIM ;PROGRAM MODE 1 OUTPUT ENDIF ; IF SHERWOOD XRA A ;INIT FRONT PANEL PIA OUT 200 OUT 202 CMA OUT 201 OUT 203 MVI A,4 OUT 200 OUT 202 MVI A,10H OUT 203 ;INITIALLY TURN OFF TONE #ENDIF ; RET ; ; ; SUBROUTINE RANDOM ; ; TAUSWORTH GENERATOR USING PRIMITAVE TRINOMIAL ; X**15 + X + 1 WITH PERIOD 2**15-1. ; RETURNS 0 < (D,E) < 2**15. ; RANDOM: LXI H,SEED MOV A,M STC CMC RAL ;HE SHOULD HAVE USED ORA A !!!!!! MOV D,A INX H MOV A,M RAR XRA M MOV M,A MOV A,D DCX H XRA M JNC RAN1 XRI 60H RAN1: MOV M,A MOV E,A RET ; ; ; SUBROUTINE SELECT ; ; ON EXIT (D,E) CONTAINS A POINTER TO THE SELECTED ; CHARACTER IN THE ERROR TABLE. PRESERVES NO REGISTERS. ; SELECT: CALL RANDOM MOV A,D CMA ;MAKE RANDOM NUMBER NEGATIVE MOV D,A SEL1: LHLD NUM ;BEGIN SCAN SEL2: MOV C,M ;GET ERROR RATE MVI B,0 INX B ;INSURE PROBABILITY IS NEVER ZERO XCHG DAD B ;ADD ERROR TO RANDOM NUMBER RC ;STOP LOOP ON CARRY OUT XCHG DCR L JNZ SEL2 ;SCAN REMAINDER OF TABLE JMP SEL1 ;START SCAN OVER ; ; ; SUBROUTINE SEND ; ; THE CHARACTER REFERENCED BY (D,E) IS SENT AS MORSE CODE. ; ON EXIT D,E ARE PRESERVED. ; SEND: LXI H,MORSE-ERROR DAD D MOV B,M ;GET MORSE LETTER SEN1: MOV A,B STC ;HE SHOULD HAVE USED ORA A !!!!!!*** CMC RAL ;GET NEXT ELEMENT IN CARRY MOV B,A MVI C,1200/WPM ;ONE DIT TIME IN MSEC JNC SEN2 MVI C,3*1200/WPM ;ONE DAH TIME SEN2: ANA A RZ ;IF LAST BIT WAS STOP BIT CALL 4000H ;BEEP RELOCATED MVI C,1200/WPM ;INTER ELEMENT SPACE CALL WAIT JMP SEN1 ;LOOP FOR REMAINING BITS ; ; ; SUBROUTINE WAIT ; ; DELAY C MSEC. ON EXIT A AND C ARE ZERO. ; ALL OTHER REGS ARE PRESERVED. ; WAIT: MVI A,FREQ/16 WAI1: DCR A JNZ WAI1 ;LOOP FOR A MSEC DCR C JNZ WAIT ;IF MORE MSEC TO GO RET ; ; ; SUBROUTINE BEEP ; ; DELAY C MSEC WHILE GENERATING A 1000HZ SIDETONE. ; OUTPUT IS ON 8255 PORT PC4. ; ENTRY/EXIT SAME AS WAIT (SEE ABOVE). ; ; THIS MODULE HAS BEEN MADE RELOCATABLE BY SIMPLY CHANGING THE JUMP ; DESTINATIONS BY THE FIXED AMOUNT TO GET THEM ABOVE 4000H. THE ELEGANT ; METHOD MIGHT HAVE BEEN TO MAKE USE OF ASM'S ABILITY TO USE LABELS THAT ; CAN VARY AT ASSEMBLY TIME ALA MDOEM7XX OVERLAYS BUT THIS WORKS AND THE ; OSBORNE1 IS PROBABLY THE ONLY COMMON COMPUTER THAT USES THIS SORT OF ; VOODOO I/O. BEEP: IF OSBORNE di ;enter shadow mode out 0 LDA 2C02H ;GET PIA STATUS ORI 20H ;SET BIT 5 STA 2C02H ;BELL ON out 1 ei ;leave shadow mode ENDIF ; IF SHERWOOD MVI A,20H OUT 203 ;TONE ON ENDIF ; BEE9: MVI A,FREQ/16/2 BEE1: DCR A ; IF OSBORNE JNZ BEE1+4000H-BEEP ;LOOP FOR 1/2 MSEC ;LABEL CHANGED FOR RELOCATION ENDIF ; IF NOT OSBORNE JNZ BEE1 ENDIF ; IF HAL MVI A,1001B ;SET PC4 OUT PPIM ;LO TO HIGH ON OUTPUT ENDIF ; IF MOROWS EI ENDIF ; IF IMSAI MVI A,1000$0000B OUT 0FFH ENDIF ; BEE2: MVI A,FREQ/16/2 BEE3: DCR A ; IF OSBORNE JNZ BEE3+4000H-BEEP ;LOOP FOR SECOND 1/2 MSEC ;LABEL CHANGED FOR RELOCATION ENDIF ; IF NOT OSBORNE JNZ BEE3 ENDIF ; IF HAL MVI A,1000B ;CLEAR PC4 OUT PPIM ;HIGH TO LO ON OUTPUT ENDIF ; IF MOROWS DI ENDIF ; IF IMSAI MVI A,0000$0000B OUT 0FFH ENDIF ; DCR C ; IF OSBORNE  JNZ BEE9+4000H-BEEP ;IF MORE MSECS TO GO ;LABEL CHANGED FOR RELOCATION ENDIF ; IF NOT OSBORNE JNZ BEE9 ENDIF ; IF OSBORNE di ;enter shadow mode out 0 LDA 2C02H ;GET PIA STATUS ANI 0DFH ;RESET BIT 5 STA 2C02H ;BELL OFF out 1 ei ;leave shadow mode ENDIF ; IF SHERWOOD MVI A,255 OUT 203 ENDIF ; RET ENDBP EQU $ ;END RELOCATION MODULE ; ; ; SUBROUTINE WEIGHT ; ; COMPUTES A WEIGHTED MOVING AVERAGE ; AS FOLLOWS, A = .875 * B + .125 * A ; ALL OTHER REGS ARE PRESERVED. ; WEIGHT: ADD B RAR ;(A+B)/2 ADD B RAR ;((A+B)/2+B)/2 ADD B RAR ;(((A+B)/2+B)/2+B)/2 RET ; ; ; SUBROUTINES RETURN, PRINT ; ; OUTPUT CR/LF OR CHARACTER IN C. ; ON EXIT D,E AND A ARE PRESERVED. ; RETURN: LXI H,COLUMN MVI M,LINE+2 MVI C,0DH ;CR CALL PRINT MVI C,0AH ;LF FALL THROUGH TO PRINT PRINT: PUSH D PUSH PSW CALL CO POP PSW POP D LXI H,COLUMN DCR M JZ RETURN ;LOCAL CR/LF RET ; ; ; SUBROUTINE GRADE ; ; INDIVIDUAL AND TOTAL ERROR RATES ARE ; COMPUTED. THE SIZE OF THE ALPHABET IS ; INCREASED IF PERFORMANCE IS ADAQUATE. ; ON ENTRY D,C POINTS TO CHARACTER ERROR TABLE ; ENTRY, (TOLD) IS 0 FOR CORRECT OR 255 FOR INCORRECT. ; GRADE: LDA TOLD XCHG MOV B,M CALL WEIGHT ;ADJUST INDIVIDUAL RATE MOV M,A XCHG LXI H,ERROR LDA TOLD MOV B,M CALL WEIGHT ;ADJUST AVERAGE RATE MOV M,A CPI 256*30/100 JNC GRA3 ;IF BAD AVERAGE CPI 256*10/100 JNC GRAD ;IF GOOD, BUT NOT GREAT XCHG MOV B,M LDA TOLD CALL WEIGHT ;COUNT SCORE TWICE IF HOT MOV M,A GRAD: LHLD NUM MVI A,256*40/100 GRA1: CMP M JC GRA3 ;IF BAD INDIVIDUAL RATE DCR L JNZ GRA1 GRA2: LXI H,NUM ;CHECK FOR COMPLETE ALPHABET MVI A,MAXNUM CMP M JZ GRA3 INR M ;ADD LETTER GRA3: RET ;GAD* THIS IS SILL, WHY JUMP TO A RETURN ; ; ; SUBROUTINE GRAPH ; ; THE PREDICTOR FUNCTION IS DISPLAYED. ; ALL THE REGISTERS ARE DESTROYED. ; GRAPH: LHLD NUM XCHG GPH1: CALL RETURN LXI H,ASCII-ERROR DAD D MOV C,M ;GET ASCII FOR CURRENT CHARACTER CALL PRINT MV$I C,' ' MOV H,D MOV L,E MOV A,M ;B IS ERROR RATE GPH2: CALL PRINT ;PRINT BAR GRAPH MVI C,'*' SUI 255/LINE+1 JNC GPH2 ;IF A IS STILL POSITIVE MVI C,250 ;SLOW DOWN FOR FAST DISPLAYS CALL WAIT DCR E JP GPH1 ;LOOP FOR ALL BARS CALL CI CPI 1BH ;ESC CHAR-WANT NEW RUN AT IT? JZ TEACH ;YUP-START OVER ; IF CPM CPI 3 ;IF CONTROL-C JZ 0 ;WARM START ENDIF ; IF NOT CPM CPI 1 ;JUMP TO MONITOR ON ^A JZ 0FC00H ;YUP GOTO ODT ENDIF ; JMP RETURN ; ; ; ADDED I/O DRIVERS ; IF CPM CO: PUSH H! PUSH D! PUSH B PUSH PSW MOV E,C MVI C,2 CALL BDOS POP PSW POP B! POP D! POP H RET ; BDOS EQU 5H ; CI: PUSH H! PUSH D! PUSH B CALL CICPM POP B! POP D! POP H RET ; CICPM: LHLD 1 ;POINTER TO BIOS WARM START LXI D,6 DAD D ;POINT TO CONSOLE INPUT ROUTINE PCHL ;JUMP TO CONSOLE INPUT ROUTINE ; CSTS: PUSH H! PUSH D! PUSH B CALL CSTSCP ANI 1 POP B! POP D! POP H RET ; CSTSCP: LHLD 1 INX H! INX H! INX H PCHL ENDIF ; END TEACH  LEARN MORSE CODE ON YOUR OSBORNE ! Submitteä bù Boâ Briggs Thå  prograí TEACÈ froí thå CP/Í User'ó librarù haó beeî  modifieä  tï � worë  oî  thå OSBORNÅ ± anä ió no÷ iî thå FOÇ library®  Thió  prograí  wilì � teacè yoõ morså codå usinç thå OSBORNÅ ± beeper® Therå  arå  twï programsº  TEACH.ASÍ anä TEACH.COM®  Alì yoõ neeä  ió � TEACH.COÍ  unlesó yoõ wanô tï modifù thå program¬  iî whicè caså  yoõ  wilì � neeä TEACH.ASM® Tï  ruî TEACH.COM¬  geô thå CP/Í prompô A¾ oò B>¬  dependinç oî  whicè � disë containó thå program¬ anä theî typå TEACH® Thå screeî wilì sho÷ á � columî  oæ  letteró  alonç  thå lefô margin¬  eacè followeä  bù  á  ro÷  oæ � asterisks® Typå anù keù tï begin®  Yoõ wilì heaò thå morså codå foò thå letteò Ç � (daè daè dit© anä yoõ shoulä typå thå letteò Ç beforå thå answer¬  whicè ió � G¬  appearó  oî  thå screen®  Iæ yoõ hiô thå correcô keù thå answeò  wilì � immediatelù bå showî anä thå nexô letteò sent®  Iæ yoõ hiô thå wronç  key¬ � afteò á shorô delaù thå answeò wilì bå showî anä thå letteò repeated. Afteò  yoõ havå respondeä correctlù tï thå letteò Ç á fe÷  times¬  thå � prograí wilì senä yoõ á ne÷ letter® Thå morå correcô answers¬ thå morå ne÷ � letters. Yoõ  caî checë youò progresó bù holdinç dowî thå RETURÎ keù untiì  thå � screeî  showó thå rowó oæ asteriskó again®  Thå morå correcô responseó yoõ � havå giveî foò á particulaò letter¬  thå lesó asteriskó oî thå ro÷ foò thaô � letter®  Thå  bottoí ro÷ oæ asterisks¬  adjacenô tï thå ¥ sign¬  giveó  aî � averageä indicatioî oæ youò recenô progress. Aô  thió poinô yoõ caî continuå bù hittinç anù key¬  oò yoõ caî  starô � oveò bù hittinç ESC¬ oò yoõ caî exiô witè CONTROL-C. Thå speeä ió seô prettù slow® Yoõ caî varù thå speeä bù modifyinç thå � prograí aó follows. 1®  Loaä thå TEACH.ASÍ filå witè Wordstaò usinç thå Î command® Dï NOÔ � uså thå Ä command. 2®  Oî  thå  linå FREÑ EQÕ 400° changå thå numbeò 400° tï  suiô  youò � fancy®  É  havå trieä 4000¬  3000¬  anä 200° sï yoõ caî bå  confidenô  thå � prograí wilì worë foò these® Thå smalleò thå number¬ thå fasteò thå speed. 3®  Savå  thå  modifieä prograí witè thå ^KÄ commanä tï á  disë  witè � abouô 30Ë oò morå freå spacå remaining. 4®  Removå thå Wordstaò disk¬ inserô thå CP/Í Utilitieó disë iî drivå � A¬ presó RESET¬ theî presó RETURN. 5® Placå thå disë containinç TEACH.ASÍ iî drivå B. 6®  Typå ASÍ B:TEACH.BBZ® Seå OSBORNÅ ± User'ó Guidå pagå 6-´ (loose� leaæ version© iæ yoõ wanô differenô options. 7® Typå LOAÄ B:TEACÈ anä wait. 8® Typå B:TEACÈ tï ruî thå reviseä program. 9®  Yoõ  caî  eraså  thå TEACH.HEØ filå afteò thå  LOAÄ  commanä  haó � finished. ä ió seô prettù slow® Yoõ caî varù thå speeä bù modifyinç thå � prograí aó follows. 1®  Loaä thå TEACH.ASÍ filå witè Wordstaò usinç thå Î command® Dï NOÔ � uså thå Ä command. 2®  Oî  thå  linå FREÑ EQÕ 400° changå thå numbeò 400° tï  suiô  y This is the release date of the disk. RANDOM DTA €[€REVERS-PBAS €\€SOLITAIRBAS €aSQUABBLEBAS €f€1SUBSERCHBAS €sAUTOST COM €w€CUBIST BAS €x€GR-MENU DOC €y€LEMANS BAS €{€GRAPHIC2COM €�€'GRAPHIC2DOC €‹€GRAPHIC2PAS €� OZ1MEM COM €‘€OZ1MEM DOC €’GR/DR/3D.BAS B3 E9 2944 23 GR/DUMP .BAS BD B1 640 5 GR/DUMP1.BAS 93 72 512 4 GR/PRCNT.BAS D2 83 3072 24 GR/PRINT.BAS 97 0E 3712 29 MENU .BAS 26 4A 1152 9 MENU/2 .BAS E9 C6 1024 8 RANDOM .DTA C1 04 128 1 REVERS/P.BAS 22 5B 4224 33 SOLITAIR.BAS E7 EE 5120 40 SQUABBLE.BAS 8F 80 12672 99 SUBSERCH.BAS A2 A8 3840 30 AUTOST % Fog Library Disk FOG-CPM.149 Copyright (1986) by Fog International Computer Users Group to the extent not copyrighted by the original author for the exclusive use and enjoyment of its members. Any reproduction or distribution for profit or personal gain is strictly forbidden. For information, contact FOG, P. O. Box 3474, Daly City, CA. 94015-0474. as part of the description of a file indicates that the program is distributed on a "try first, pay if you like it" basis. If you find the program(s) meet your need, please refer to the author's documentation for information on becoming a registered user. Only by registering and paying for the programs you like and use will the authors of such programs continue development. Often, more complete documentation, additional modules, and new releases are available only to registered users. Osborne 1 Programs. Filename Description -09-00 .86 This is the release date of the disk. -CPM149 .DOC This is the description of the disk contents. BARG .COM 37C7 16K [BAR GRAPH 1 of 3] A bar-graph program that uses typed in figures. BARG .DOC 9E9A 4K [BAR GRAPH 2 of 3] BARG .PAS 73B5 8K [BAR GRAPH 3 of 3] CALC .COM B7A8 2K [CALCULATOR 1 of 3] A simple four-function, two-decimal calculator with Pascal source code. This works on the Osborne Vixen as well. CALC .DOC 6EA5 1K [CALCULATOR 2 of 3] CALC .Z80 8441 12K [CALCULATOR 3 of 3] GRAPH-DR.DOC 83E7 15K [Graph-Draw 1 of 8] A graphics program that allows you to deign on the O1 screen and print the results. GRAPH-DR.BAS 174E 11K [Graph-Draw 2 of 8] G-CHANGE.BAS BEA1 4K [Graph-Draw 3 of 8] GR-DR-3D.BAS B3E9 3K [Graph-Draw 4 of 8] GR-DUMP .BAS BDB1 1K [Graph-Draw 5 of 8] GR-DUMP1.BAS 9372 1K [Graph-Draw 6 of 8] GR-PRCNT.BAS D283 3K [Graph-Draw 7 of 8] GR-PRINT.BAS 970E 4K [Graph-Draw 8 of 8] MENU .BAS 264A 2K [Graph-Dr & Games 1 of 11] This menu starts the Graph-Draw program or a set of Basic games. An Auto Start Program is included so the disk can jump right to the MENU. MENU-2 .BAS E9C6 1K [Graph-Dr & Games 2 of 11] RANDOM .DTA C104 1K [Graph-Dr & Games 3 of 11] REVERS-P.BAS 225B 5K [Graph-Dr & Games 4 of 11] SOLITAIR.BAS E7EE 5K [Graph-Dr & Games 5 of 11] SQUABBLE.BAS 8F80 13K [Graph-Dr & Games 6 of 11] SUBSERCH.BAS A2A8 4K [Graph-Dr & Games 7 of 11] AUTOST .COM 428D 1K [Graph-Dr & Games 8 of 11] CUBIST .BAS 595E 1K [Graph-Dr & Games 9 of 11] GR-MENU .DOC 9B0F 2K [Graph-Dr & Games 10 of 11] LEMANS .BAS ADC6 6K [Graph-Dr & Games 11 of 11] GRAPHIC2.COM 91FE 10K ver. 2 [Graphics 1 of 3] Allows you to type graphics characters on the screen & display X-Y coordinates. Turbo Pascal source code is included. This works on the Vixen also. GRAPHIC2.DOC 61A3 2K ver. 2 [Graphics 2 of 3] GRAPHIC2.PAS CF65 4K ver. 2 [Graphics 3 of 3] OZ1MEM .COM 3879 1K [OZ1MEM 1 of 3] Displays the memory contents on the screen. Assembler Source code is included. This works on the Vixen also. OZ1MEM .DOC 1399 1K [OZ1MEM 2 of 3] OZ1MEM .AZM 33A7 5K [OZ1MEM 3 of 3] TEACH3 .COM A096 1K ver. 3 [Teach 1 of 4] Learn morse code on the Osborne 1. This program will beep the beeper for the tones. TEACH3 .DOC EDCD 2K ver. 3 [Teach 2 of 4] TEACH3 .ASM D9E3 11K ver. 3 [Teach 3 of 4] TEACH .DOC A24F 3K ver. 3 [Teach 4 of 4] een. Assembler Source code is included. Thiså&ååååå'ååååå