IMD 1.18: 21/07/2019 13:58:55   ë'�ÍúŒÈŽØ3ÒŽÒ¼|û¸`ŽØŽÀ3Ò‹ÂÍriè…rÝ.ƒ>|t.Æd}».‹|Q° *Á´‹ðV3Ò3ÀŠÅ.ö6d}ŠèŠô‹Æ´Ír-^Y.)6|t‹Æ.÷&e}ØþűQ¾.;6||.‹6|ëÀê`¾g}èëþ2ÿ.¬$t V´»Í^ëïÃé3ÿ»¹¸Ír3ŒÈŽØ¿¹ &€ &€M Gâô¿¾‹}¹ üó¦u¿ ¾—}¹ ó¦uþ}è¢ÿ´Íùà Non-System disk or disk error Replace and strike any key when ready  Disk Boot failure Microsoft,Inc ibmbio com0ibmdos com0Æw/ÿƒ~üu €~÷;uÆv/ÿ‰ì]ÊÿÿÿÿO`€   À à ðÿ`€ Àà! #@%`'€) +À-à/1 ÿO5`7€9 ;Àÿï?A C@E`G€I KÀMàOQ S@U`W€�ðÿ[À]à_a c@e`g€i kÀmàoqðÿÿOu`w€y {ÀÿïÿÿÿÿÿÿööööåöööööööööööööööööööööööööööööööÿÿÿÿO`€   À à ðÿ`€ Àà! #@%`'€) +À-à/1 ÿO5`7€9 ;Àÿï?A C@E`G€I KÀMàOQ S@U`W€�ðÿ[À]à_a c@e`g€i kÀmàoqðÿÿOu`w€y {ÀÿïÿÿÿÿÿÿööööåöööööööööööööööööööööööööööööööCDTWO BAT nÇCDMINDSTBLD ‰ƒù¯ABASRUN EXE `§|CAD EXE à…Õ3'CPPLOT EXE ({ù=€pSCALETWOBAT nÇYCPSCALE EXE 9fÒZ€\TRANSTWOBAT +nÇrCPTRANS EXE èeÒs&CP DBU ¦N¨}€SETINT EXE Ø|‹€RESETINTEXE å|‹€€åöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööö  åöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööåöööööööööööööööööööööööööööööööSETINT CAD RESETINTööööåöööööööööööööööööööööööööööööööN MAIN GOTO 80,80,80,80,80,80,2730,2640,80,2900,80,80,80,80,80,80:GOTO 80 BUT=N0:GOSUB 300:IF K$="" AND (PDN=N0 OR TABLETSTOP=N1) THEN COORD=COORD+N1:IF COORD>CUPDATE THEN GOSUB 550:GOTO 80 ELSE 80 COORD=N0:IF K$="" AND PDN=N1 AND BUT=N0 AND INPUTDV>N2 AND TISM=N0 THEN BUTUP=N1:GOSUB 550 ELSE 96 IF TINMENU=N0 THEN GOSUB 2250:IF XD>SCRNDRWMAXXM2 THEN XD=SCRNDRWMAXXM2:GOTO 520 GOTO 520 96 IF K$="" AND PDN=N1 AND BUT=N0 THEN BUTUP=N1:GOTO 455 IF INMENU=N0 THEN CALL ABSOLUTE(OOXD,OOYD,H,H,Cé7 éŠ)é éz@é8Aé³,éué·éÝééñéŒ é×?é¡)éÈé é].é¿éÿé¹é·6éÌ>éú8éŽ9é':éE:éféyé�é�é+é=éú;éÀ<éêééÝé‹é]éþé‘éE=é>é7>é½&éž?``kv‹¢ÂÖÜæð#/9R_oŒ–ªÂÎó ";CNVi�”¯ÁÕäñ':LT`p„”¯Æàëù$5CMWantz“£±ÁÕäø8HUk{�Ÿ¯»ÍÜë÷%/CNlløûýþúøúøþøþøüüúúýýüûûúùùþøøøùùøýýþþýøùýþ ûþþýüùøùþøùøúüþøúüþùýûûýùùýûûýùýþýÿûûþýýþþøùýþ ýùøøùýþþýùýùøþþþùøøùúþþùøøùúûûûüýþþýûûøþ øøûûüýþþý ùøøùýþþýüûûøøùüþ øùúûûúùøøûüýþþýüû ýþþýùøøùúûûþýýþþùùøøùÿþýýþþùùøøùøûþúúüüøûþùøøùúüþÿ þþýùøøùüüúúþùøøùþûûþøøùúûûûüýþþýþþýùøøù þøøùúüýþþþþøøûûþøøûû ûûýþþýùøøùþøþøûûþþøøøþøøøýþþýüþøøûûþûøþþþøúøþøþøþùý ýùøøùýþþýþøøùúûû ýùøøùýþþýüþÿþøøùúûûûüþ ýþþýüûûúùøøùøøþøøýþþýøøüþüøøþüþøøùýþþýùøøùûùøûþøøùýþþøøþþøùýþøøþþûûúûüøùúúûýþüüýþþýøþþýûúúþþýûúúøþþýûúú þþýûúúûüüûûøøùþ ÿúúûýþþøþúúûþøùùøøûûþþþøùùøøûûÿÿþøþûüúþþøøþ þúûúûþûúûþþúûúúûþ ýþþýûúúûýúúûýþþúúûýþþþúüúúþþýüüûúúøýþþúúúýþþúþúüþüúúýþýþýúúþþúúûýûúýÿúúþþ øøùúûüýþþøúüþ øøùúûüýþþùøúùþþALINDLIN RECTCIRCARCS    Eö  RASTEXT WIDE ORGNWININOUTSIZE      DISPLOCKSET123 4 5 6 7 8910 WINIDEN0 1 2 3 4 567   FITREDOALLACTV LAYWINIDENMAKESYM  WINIDEN  ADDVMOVVDELV BRK MOVL    WINIDEN DEGR       DIR LOAD LISTPLACSAVE  DIR LOAD  PACKSAVEBKUPZAPERASQUITPLTRPNTRSTRT UNDOWINIDEN0 1 2 3 4 567   DATA  DIST  DRAWZOOMPANGRIDCHGVIEWMOVECOPY EDIT ROT   SYMFILEPLOTDELFINDINFOU‹ìŒÈŽØ‹v&‹£–‹v&‹£˜‹v&‹£š‹v &‹£œ‹v &‹£ž‹v&‹£ ‹v&‹£¢¸ ‹œ÷븎À‹>šÑï‰>‹ž+šBÑêÑê‹ +œC3À‹Ê‹>Âüó«ŒÆƒÆ ŽÆKuíƒ>¢u]Êÿ6 ÿ6 ÿ6 ÿ6 è?» ¡¢HÑàØ3À‹‹ÙŠ£¤ŠG£¬ŠG£ºCCC‰°3ÀŠ£¨ŠG£¦¡¨» ÷ëHH£ª¸‹¬÷ë £®¡¦Ñèr Ñèsƒ®ëÑèrƒ® 냮ÿ°ÿ°‹°3ÀŠ£´SèX[ƒ®ÿ°ÿ¦uáÿ¤t‹°ë‚� � � � é,ÿÄU[ŽºÞì G [ i w � Ô é  : @ F ŒØŽÀDz�²P3ÀŠ£´�´P�®P�ªPǶ�¶PǸ�¸P�ºPǼ�¼PǾ'ŒÀÿ¾ÃŒØŽÀ� P�œP�žP�šPǾŒÀÿ¾àÀà�ð°Ð€ @`p0P‹Ú¸ ÷븎À‹ÁÑè‹ø Â ÐÐÐè´ðr ´ÐàÐàÐàÐàŠ Ðâr& %&ë&0‹Ó‹ßŠàÌȎÀ»Ã °¹º´ Ía´°ÍaËU‹ì»@ŽÛ»€?u鶌ˎۉ&F Ç> èÚèõ»¹?‹> ´ Í<uBKuô‹> »IuêA‰B ‹Á¹÷é£@ èôÇD Ç@ ‹> 3Û´ ‹D Í<t °‹@ ÑáÓà ØBÿ@ ƒ>@ }Ü3À3ÒŠÃè?2äŠÃè82äŠÃè1ÿD ÿB u¯ƒ> �>> È} è\è;éaÿèHèk‹~&‰]ÊQÍŠìöÄuŠå€ä€uŠÃ´ëêŠå€ä)tY‹&F ëÐYÃ3Ò¸ ŠØèÏÿ¸ ŠØèÇÿÃ3Ò¸ ŠØè¼ÿÃ3Ò¸ŠØè±ÿ¸3ŠØè©ÿ¸ŠØè¡ÿÃ3Ò¸ŠØè–ÿ¸@ŠØèŽÿè²ÿø3ÒŠØè€ÿ¸LŠØèxÿ‹@ 3ÀŠÁŠØèkÿ3ÀŠÅŠØèbÿÃU‹ìŒÈŽØ¹X�>Åÿu âö‹~&Çÿë%‹~¡Å&‰‹~ ¡ÇÑè&‰‹~¡ÉÑè&‰ÇÅÿ]ÊPSQRûŒÈŽØ3Ò´+Í`öÄu ´)Í`ƒ>Ëu¨€t¢¿%|ÑèÑè£ÃÿËZY[X˃>Ëu ¢ÀÿËëêƒ>Ëu ¢ÁÿËëÚƒ>Ëu ¢ÂÿËëʃ>Ëu ¢ÍÿË뺢Îèy¡Ã£ÅÇË릊Ĵ(3ÒÍ`ÃúŒÈŽØŽÀ¸ƒºÍÇÅÿÇË�Ò¹´,Í`´èÊÿ¹dâþ´RèÀÿ´Sè»ÿ´è¶ÿ²3ÉâþþÊuø¸.»3ÒÍ`�z¸3Í`ûË À$øÐØÐØ ÁÐ.ÀŠ&¿€äøÐÜÐÜÐÜ &À£Ç Í$øÐØÐØ ÎÐ.ÍŠ&€äøÐÜÐÜÐÜ &Í£ÉÃ0123456789U‹ìŒÈŽØ¹X�>Åÿu âö‹~&Çÿë*‹~¡Å&‰‹~ ¡Ç™¹÷ù&‰‹~¡É™÷ù&‰ÇÅÿ]ÊVWPSQRŒÈŽØŽÀ3Ò´+Í`öÄuz´)Í`$¢0¹ü¾#¿"ó¤< ua2ä "<3tP<4u°ëJ<2tø<1tô<0tðÃÇÏ3ÛŠ&8u¸ ÷.ÏãÏëCƒû |åFâà€Ñt÷ϡπÑu3Û Àx øÃ3Û ÀyøÃùÃÆÑ€<-uöÑFë€<+uF3Û¹3Ò€80| €89CBâòøÃùÃPSQRŒÈŽØº´+Í`öÄu*º´)Í`Šàƒ>Ëu öÄ@tÿËöÄtÆ¿ëÆ¿ZY[X˃>Ëu ˜¢ÀÿËëéƒ>Ëu ˜¢ÁÿËëØƒ>Ëu ˜¢ÂÿËëǘ¢ÍèFÇËë¸úŒÈŽØŽÀ¸î3ÒÍÇÅÇË�Ò¹´,Í`¸.»3ÒÍ`�±¸3Í`ûËŠ&À ÁŠ>ŠͱÐäÐäÓÀ%ÿ£ÇÐçÐçÓÃ�ãÿ‰É3À ¿£ÅÃU‹ìŒÈŽØ‹v &‹£ª‹v &‹£¬‹v&‹£Ä‹v&‹£Æ¡Ú;ª~£ªë ¡Ü;ª}£ª¡Ö;¬~£¬ë ¡Ø;¬}£¬�>Ĉt4¡Ú;Ä~£Äë ¡Ü;Ä}£Ä¡Ö;Æ~£Æë ¡Ø;Æ}£Æƒ>²ué`¡ª+®£¶¡¬+®£¸¡Ä+®£È¡Æ+®£Ê¡°HÑ裺¡ª+º£¼¡¬+º£¾¡ª@®£À¡¬@®£Âƒ>²u鳡ȣ̡¶£Î‹Ì‹Æ ´¢Â èg‹Î‹¬ ´¢Â èVÿÌÿ΋Î;¼u‹°ÌÎ뾋Î;Àu´¡Ê£Ì¡¸£Î‹Ä‹Ì ´¢Â 苪‹Î ´¢Â èþÿÌÿ΋Î;¾u‹°ÌÎ뾋Î;Âu´éˋȉ̋ʉ΋¶‰Ð‹¸‰Ò‹Ì‹Î ´¢Â 蠋ЋҠ´¢Â è�ÿÌÿÎÿÐÿÒ‹Ð;¼u‹°ÌÎÐÒë®;Àu¨‹È‰Ì‹Ê‰Î‹®Î΋¶‰Ð‹¸‰ÒÒҋ̋Π´¢Â è‹Ð‹Ò ´¢Â èÿÌÿÎÿÐÿÒ‹Ð;¼u‹°Ì)ÎÐ)Òë®;Àu¨éÄ‹Ü+Ú‹Ú‹¬ ´¢Â Sè°[AK}÷‹Ø+Ö‹Ö‹ª ´¢Â Sè‘[BK}÷éƒ�>ĈuëµÇÌÇÎÇÐÇÒ‹¬;Æuéȸ"´»÷뢵3Ò¡Ú»÷û£Ìƒút@£Ì¸"´£Î3ÒÇСÜ@»÷ûƒút¸"´¹Óà£Ð‹Æ¸ ÷긎À¡Ì‹ø‹ÜC+ÚÑë¡ÜÑèr�ãþÿ‰Ô¡Î&0Eÿ µ‹Ô&0Gâú¡Ð&0‹¬¸ ÷긎À¡Ì‹ø¡Î&0Eÿ µ‹Ô&0Gâú¡Ð&0‹ª;Äué‹Ö‰Ð‹Ø‰Ò‹ÒC+ö  Љԋª‹Ð ´¢Â èW&0'ˆ&µ‰¶‹Ä‹Ð ´¢Â è;&0'‹û‹ÔŒÃ&0%ƒÃ ŽÃâö‹>¶Š&µ‹ÔŒÃ&0%ƒÃ ŽÃâö]Ê;Ø;Ö| ;Ü;Ú}ÃèYôÃU‹ìŒÈŽØ‹v&‹£Ú‹v&‹£Ü‹v &‹£Ö‹v &‹£Ø‹v&‹¢´‹v&‹£²‹v&‹£°‹v&‹£®]ÊÊU‹ìŒÈŽØƒ>òuëP�¹��âu âö‹~&Çë5‹~¡â&‰‹~ ¡ä=dâ=œÿ|Ý&‰‹~¡æ=dÏ=œÿ|Ê&‰Çâé¡´Í`ƒúu2ƒþu-ŠÄ$<uŠÄ$ < u3À‹~ &‰‹~&‰ëY�€>ôu3Àëa�÷Þƒú<|º<ëƒúĺÄÿƒþ<|¾<ëƒþľÄÿ‹~ &‰‹~&‰5ŠÄ€ä€üu $ < u°ë°ë°2äÆô<t <tÆô‹~&‰¹‹Ãâü]ÊPSQRŒÈŽØº´+Í`öÄu"º´)Í`ƒ>èuŠà€äø€ü€u %£àÿèZY[X˃>èu ˜£äÿèëéƒ>èu ˜£æÿèëØƒ>èu ˜äÿèëÆ˜æ¡à£âÇèë³úŒÈŽØŽÀÇò¸ƒºÍÇâÇè�ê¹´,Í`¸.»3ÒÍ`�¸3Í`û˸.»3ÒÍ`3ێô3Í`ËU‹ìŒËŽÛÇò‹~&Ç]Ê0123456789U‹ìŒÈŽØèr&‹v &‹ Ét&‹\&Š2äè×rCÿƒ>Pâè]ÊU‹ìŒÈŽØèÚs鬋v &‹�63ÛÆ =},»Æ-=€t÷Øë0»²8ˆK²6ˆK²7ˆK²2ˆK²3ˆë:=»Æ ë»Æ+£ »3Ò¹ ¡ ÷ñ€Â0ˆ¡ ™÷ù£ Kƒû}⻀80u ƒûtÆ Cëð»Æ �¹Š2äèCÿƒ>Pâë]ÊU‹ìŒÈŽØèsër�‹v &‹�63ÛÆ£ »3Ò¹ ¡ ÷ñ€Â0ˆ£ Kƒû}軀80u ƒûtÆCëðÆ@ÿ »Æ Æ@�€?uCëøŠ Àt2äèŒCÿƒ>P~é]ÊU‹ìŒÈŽØè“s]Ê¡£¡£ ŒÈŽÀ�>¹°0üóªÇ �>‰> ¸_è7´Í!< tB<u;> u²´Í!ëภèÿOëÓ<+t <-t<0|Ç<9È2äèùGÿƒ>P~°Æ ƒ>P¸ èÝ�6è%r`ŒÈŽÀ�>LÇ 3ÛŠ&8u¸ ÷. ã ëCƒû |åFâà€t÷ ‹v ¡ €u 3Û Àx&‰éÿ3Û Ày&‰éÿ¡ £¹¸ èeÿâô¡ £´²Í!éóþU‹ìŒÈŽØèhs]Ê‹v &‹|‰> ¹¸_è*´Í!< t5<u;> u²´Í!ëภè ÿOIëÒ&ˆ2äèúGAÿƒ>P~½‹v &‰ ƒ>P¸ èÚéiþU‹ìŒÈŽØèïs]Ê‹v &‹|Ǹ_è²´Í!< tO<u Éu²´Í!ë⸠è”ÿÿOIëÐ<+t<-t <.t<0|À<9¼&ˆ2äèlGÿÿAƒ>P~£ƒ>P¸ èN‹v ‹&‰ éwÿU‹ìŒÈŽØ‹v&‹¢‹v&‹¢±Òàr ÒèŠ&Òä Äë ÒèŠ&Òä€Ì€ Ä¢]ÊQSP·¡Šð¡ŠÐ´ÍX´ ¹ŠÍø[YËv&‹=|=H£‹v&‹=| =PH£øÃùÃÆ€< uFëø€<-uöFë€<+uF3Û¹‰6 3Ò€8 t€8 t€80| €89CBâè‹ÊøÃùÃÞ9 uòùÃU‹ìŒÈŽØ‹v &‹¢Â Æ' ‹^&‹<v2À¢ ¢& ‹^&‹¢ Àt\<t.<u@ÆñÆóÆòÆôÆõÆ÷ÆöÆøë*ÆñÆóÆòÆôëÆñÆóÆòÆô‹v&‹£ù‹v&‹‰û‹v&‹ ‰ý‹v &‹‰ÿ Ày÷Ø Éy÷ÙÈ Éx Ûy÷Û Òy÷ÚÚ Ûxéî‹ýÑù¡ùÑø+Èù‰ ‹ÿÑú‹ûÑû+Óû‰ ; } ;ýAéž; ~ ;ý|2é�; } ;ÿ#é€; ~;ÿ|ër‹ù‰ý‹û‰ÿëh¡ý£" ¡ÿ£$ ¡ù‹û‹ ‰ý‹ ‰ÿèX & ¢  ó¢ñ ô¢òÆ' ÿ‹" ‰ý‹$ ‰ÿ¡ £ù‹ ‰ûè ë‹ý‹ÿ¡ £ù‹ ‰ûè]ÊèorËñ‹úÆ( Æ) +È ÉuéÈy÷ÙÆ( ‰ +Ó Òuéy÷ÚÆ) ‰ ;Ê}é͉4 Ñ&4 ‰8 Ñ&8 )8 +ÑÑâ‰6 ‹ €( téÑ;ßgè¯è;0 }A¡. Ày * £. ëæB, £. ëÜ€ t8ÿû¡8 Ày 4 £8 ë ÿù6 £8 ‹ ‹ þ ‹6ù6 è ëšÃèHè¯;0 }A¡. Ày * £. ëæJ, £. ëÜ€ tÑÿû¡8 Ày 4 £8 ë ÿù6 £8 ‹ ‹ þ ‹6ù6 è¥ëš;ßgèÞèE;0 ~I¡. Ày * £. ëæB, £. ëÜ€ t8ÿû¡8 Ày 4 £8 ë ÿù6 £8 ‹ ‹ þ ‹6ù+6 è;ëšÃèwèÞ;0 ~I¡. Ày * £. ëæJ, £. ëÜ€ t8ÿû¡8 Ày 4 £8 ë ÿù6 £8 ‹ ‹ þ ‹6ù+6 èÔëšÃ‰4 Ñ&4 ‰8 Ñ&8 )8 +ÊÑá‰6 ‹ €) téÕ;Æ~ëh�è¶èF;2 }B¡. Ày * £. ëæA, £. ëÜ€ t8ÿù¡8 Ày 4 £8 ë ÿû6 £8 ‹ ‹ þ ‹>û> è<ëšÃèOèß;2 }B¡. Ày * £. ëæI, £. ëÜ€ t8ÿù¡8 Ày 4 £8 ë ÿû6 £8 ‹ ‹ þ ‹>û> èÕëšÃ;Æ}gèäèt;2 ~J¡. Ày * £. ëæA, £. ëÜ€ t8ÿù¡8 Ày 4 £8 ë ÿû6 £8 ‹ ‹ þ ‹>û+> èjëšÃè}è ;2 ~J¡. Ày * £. ëæI, £. ëÜ€ t8ÿù¡8 Ày 4 £8 ë ÿû6 £8 ‹ ‹ þ ‹>û+> èëšÃ‹È‹Ó;ß'Wè _B;×~ö€ tþ ÿù‹ù‹ûèÔëÚÃWèy_J;×}ö€ tþ ÿù‹ù‹ûè­ëÚËӋÈ;Æ'VèJ^A;Î~ö€ tþ ÿû‹û‹ùè~ëÚÃVè#^I;Î}ö€ tþ ÿû‹û‹ùèWëÚÀ ts€> uU€ñuH€òuI€õu-€öu!ŠôˆòŠóˆñŠøˆöŠ÷ˆõÃþöÃþõë$€ñt9þñëëë€ñuï€òt!þòÃ; |; ; | ; è®åÊôˆòŠóˆñÃU‹ì‹v ‹ ‹v‹‹v‹ŒËŽÛ¢Â ; |; ; | ; ègå]Ê¡ù£ ‹û‰ è͈ ¡ý£ ‹ÿ‰ 踈 " tøÃ€ u € ué  " tøÃ  ¢ € u  ¢ ö t(¡ £ +ù‹ÿ+û÷ë‹ýö  +ù÷ùû£ éŠö t(¡ £ +ù‹ÿ+û÷ë‹ý+ù÷ùû£ ë\�ö t(¡ £ +û‹ý+ù÷ë‹ÿ+û÷ùù£ ë-�ö t%¡ £ +û‹ý+ù÷ë‹ÿ+û÷ùù£   : u¡ £ ‹ ‰ 誈 é÷þ¡ £ ‹ ‰ è’ˆ éßþù¡ ‹ ‹ ‹ £ù‰û‰ý‰ÿàó¢ñ ô¢ò ø¢ö ÷¢õÉ* Ñ&* ‰. Ñ&. ). +ÊÑá‰, ‹ù‹û‰>2 É* Ñ&* ‰. Ñ&. ). +ÑÑâ‰, ‹ù‹û‰60 Ã2É Àx; }±ë; ~± Ûx; }€Éë ; ~€ÉÃU‹ìŒÈŽØ‹v&‹£ ‹v&‹£ ‹v &‹£ ‹v &‹£ ]ÊU‹ìŒÈŽØ‹v&‹¢Â ‹v&‹¢ Àt\<t.<u@ÆñÆóÆòÆôÆõÆ÷ÆöÆøë*ÆñÆóÆòÆôëÆñÆóÆòÆô‹v &� t*‹v&‹‹v&÷u±Óë2ÿƒû}ƒû }ë‹~&Çÿÿ]ʃû töƒë Ñã�à‹7Š¢Á)FŠþÈ¢Â)FŠ˜£Ç)FŠ˜£É)è“‹^&‹Ç)‹^&‹É)¡Ç)£Ã)¡É)£Å)FŠ˜£Ç)FŠ˜£É)è_‹^&‹Ç)‹^&‹É)VU ó¢ñ ô¢ò ÷¢õ ø¢ö¡Ã)£ù¡Å)£û¡Ç)£ý¡É)£ÿèâö]^þÂ)u�þÁ)ué:ÿéQÿ‹^ &‹ƒû;Ñã.ÿ§T+ˆ+x+n+\+‹É)¡Ç)£É)÷Û‰Ç)ë÷Ç)÷É)ë‹É)¡Ç)÷Ø£É)‰Ç)‹^ &‹÷Àt÷Û¡Ç)™÷û£Ç)¡É)™÷û£É)áÇ)÷ë¹÷ù£Ç)¡É)÷ë¹÷ù£É)Ãý+,%,9,M,a,u,‰,�,±, 8b�JÌe?Wó[ M`݃AC["\Æê ™&%QO[þ„o:#!ÐÖ‘I cå_UW/oQ°” "LKÿ²ç0]ñÆ&8A7FQ'vïË]V;•c{"KQ]$ú !B`î¥/xƪ"7W¿tS øÂûÁ¬Ÿ'õÿÛŠ³Ç/ ›­óýÁC‡€8W‡‰ˆmˆZ�ìûÕó­¹^E3íøBSÙùì}XU‹ìŒÈŽØ‹v 6‹.¢è+‹v6‹.£â+. è+2äP.¡â+P¸Ä+Pè6.�6Ä+Š\2\ŠÓ€â±ÒêŠÃ$Ðè Њ\2\ŠÃ$ÐèÐè ЊÃ$ÐàÐà Ѐú ~² 2ö.‰å+€ã±ÒëŠÓŠ\2\€ãÐë ÓŠ\2\ŠÃ$ÐàÐà Ѐã ÓŠ\2\€ã±Òã Ó€ú~²ë€ú}².ˆä+Š\2\ŠÓ€âŠÃ$ÐèÐè ЊÃ$ ÐèÐèÐè ЊÃ$€±Òè Њ\2\ŠÃ$ÐàÐà ЊÃ$Ðà ЊÃ$€Ðè Њ|2|2߀ãÐÛÐÛ Ó.ˆç+Š2\€ë.8ä+t3Àë/3Û.‹>å+Ñç.‹½é+.:ä+}Š@2D.Š!.2&ç+C:Ätæ3Àë¸ÿ‹~6‰]ÊU‹ìŒÈŽØ‹v&‹£6.‹v&‹£8.‹v&‹£P.‹v&‹£@.‹v &‹£B.‹v &‹ Ày÷Ð@¢Â ‹v&‹£D.‹v&‹£F.�D.tBƒ>D.uÇj.Çl.ë-ƒ>D.uÇj.Çl.Çr.Çt.ë Çj.Çl.ƒ>@.uÇ@.hƒ>B.uÇB.h¡@.£f.¡B.£h.¡j.£p.¡l.£n.¡r.£x.¡t.£v.¹Aƒ>@.-ƒ>@.~‰T.¡@.£J.--£H.÷H.ƒ>B.-ƒ>B.~‰V.¡B.£N.--£L.÷L.ƒ.@.-ƒ.B.-ƒù|¬è¼ƒ>~.té„‹H.Ñã轃>H.t@@£X.‹J.Ñã訃>J.t@£Z.‹L.Ñãè”@£\.‹N.Ñãè‡@@£^.¡P.Ñà¹+ȉ:.Ç<.¡P.£>.ÇR.Çz.¡>.;<.|?ÿR.‹T.¡f.;h.|¹�D.ttƒ>D.t�p.ua�n.tAÿn.Çz.ëQéÏ�p.uB�n.uá�x.u�v.tGÿv.Çz.ë"ÿx.ë‹l.‰n.‹j.‰p.Çz.ëÿp.è¡rèÎA¡f.;h.|/ƒù~éë.‹l.‰n.‹j.‰p.‹t.‰v.‹r.‰x.Çz.ë¿;V.~¹ƒ>:.|¡<.+>.ÑàÑà :.£:.ÿ>.ë¡<.ÑàÑà:.£:.ÿ<.éàþƒ>F.tÿP.ÿF.¡f.£@.¡h.£B.éâý]ÊèjrBƒ>z.t;¡f.;h.}6;T.|,t;V.|&‹ÁHÑø£b.‹ÁÑøÇ`.£d.;b.tÇ`.ëL�ùÃøÃ;V.|øtÐ;T.ðtÈùáV.;T.tYÇ`.9T.t9V.tùáR.9Z.|ùÃøáR.9^.õùáV.;T.tS9T.t9V.t ùáR.9X.kùáR.9\.|`ùÃ;T.uV¡R.‹f.;h.}9Z.}C9^.?ùÃ9^.79Z.~1ùÃ;T.u'¡R.‹f.;h.}9X.~9\.|ùÃ9\.|9X.}ùÃøÃ�Ãn6.‹‹P.÷ë»÷ûÃQ»·2ÑáÙ.ÿ'É2É2á2ù23+3B3Y3n3‹>.6.‹<.÷Ú8.ès颋<.6.‹>.÷Ú8.è[銋<.÷Ù6.‹>.÷Ú8.èAëq‹>.÷Ù6.‹<.÷Ú8.è(ëX‹>.÷Ù6.‹<.8.èëA‹<.÷Ù6.‹>.8.èúë*‹<.6.‹>.8.èåë‹>.6.‹<.8.èÐëYáP.»Ã÷ë»è÷û£|.Ç~.¡6.P.è s ¡8.è)së ¡6.|.è s ¡8.+|.èrÇ€.ë Ç€.Ç~.¡6.èâs¡8.+P.èçsë ¡6.|.èÈs ¡8.+|.èÍrÇ‚.ë Ç‚.Ç~.¡6.è s¡8.+P.è¥së ¡6.+|.è†s ¡8.+|.è‹rÇ„.ë Ç„.Ç~.¡6.+P.èZs ¡8.ècsë ¡6.+|.èDs ¡8.+|.èIrdž.ë dž.Ç~.¡6.+P.ès ¡8.è!së ¡6.+|.ès ¡8.|.èrLj.ë Lj.Ç~.¡6.èÚs¡8.P.èßsë ¡6.+|.èÀs ¡8.|.èÅrÇŠ.ë ÇŠ.Ç~.¡6.è˜s¡8.P.è�së ¡6.|.è~s ¡8.|.èƒrÇŒ.ë ÇŒ.Ç~.¡6.P.èRs ¡8.è[së ¡6.|.è<s ¡8.|.èArÇŽ.ë ÇŽ.Ç~.¡h.+f.=-} ÷Ø=}Ç~.Ã;  ; |ùëøÃ;  ; |ùëøÃùS‹ÙÑã�Ãô5.ÿ'6666!6*636<6E6ƒ>€.tAë@ƒ>‚.t8ë7ƒ>„.t/ë.ƒ>†.t&ë%ƒ>ˆ.tëƒ>Š.tëƒ>Œ.t ë ƒ>Ž.tëø[Ã; ; | ; ; }ÃèvÖÃ$6GYk}� ²ÃÕæø +<M^o€� ±ÁÑáð.=KZhv„’ ­ºÇÔÿ€U‹ìŒÈŽØ‹v&‹£Ô6‹v&‹£Ö6‹v &‹£Ê6‹v &‹£Ì6‹v&‹£Î6‹v&‹Çâ6èÇä6ô Ày÷Ð@Çâ6'Çä6ˆ¢Â ¡æ6÷.â6‰ê6£ì6¡è6÷.â6‰î6£ð6�>Ê6è~é}�>Ì6è~ér¡Ô6™÷>Ê6¡Ô6+Â9Ô6~Ê6£Ð6¡Ö6™÷>Ì6¡Ö6+Â9Ö6~Ì6£Ò6£Ø6ÇÚ6ÇÜ6ÇÞ6ƒ>Ú6|éƒ>Ü6| ÇÜ6éùƒ>Þ6|qÇÞ6¡Ô6÷.Î6‹Ø‹Êö  ¡Ð6÷.Î6+Ãщò6£ô6÷€u+ì6ê6÷€u' Òu Àt¡æ6ë%‹î6¡ð6+ô6ò6÷€u¡è6ë ‹ò6¡ô6÷>â6£à6=|>¡Ö6÷.Î6‹Ê‹Ø¡Ò6÷.Î6+Ãщò6£ô6÷€u+ì6ê6÷€u) Òu Àt!¡æ6ë'ëW‹î6¡ð6+ô6ò6÷€u¡è6ë ‹ò6¡ô6÷>â6‹ ƒú|)+Ћà6è%¡Ì6Ò6é÷þÇÞ6¡Ø6£Ò6¡Ê6Ð6é×þ]Ê ; ; |; |; ~ÇÚ6ë; ~ÇÚ6ÇÜ6Ãè±ÓÃU‹ìŒÈŽØ‹v6‹ I‹vè2‹>59‹;9Ž39üúó6¥ûƒ>=9t‹=9Ç=9ŽÀ3ÿëà]Ê¡79‹99ƒùt ø�Ãvsøâô£39‰59¹÷Ù+ËAÑÙÇ;9» Ç=9ƒùt�ù» } ‰;9»» +Ù‰=9ÃU‹ìŒÈŽØ‹v6‹ I‹~è7‹659‹;9Ž39üó¥&ƒ>=9t&‹=9&Ç=9ŒÓŽÃŽØ3öëÚ]Ê¡79‹99ƒùt ø�Ãvsøâô£39‰59¹÷Ù+ËAÑÙÇ;9» Ç=9ƒùt�ù» } ‰;9»» +Ù‰=9ÃU‹ìŒÈŽØ‹v&‹ ‰99‹v&‹ ‰79]ÊU‹ìÍ=@}»ëe3Ò‹È» ÷û- Ñྸ:ð.ÿ$Î:Ó:Ø:Ý:â:ç:ì:ñ:ö:û:;» ë2»ë-»ë(»ë#» ë»%ë»+ë»0ë»6ë »;ë»Aë‹Á‹~‰‹~‰]Ê€À`0 ‰�U‹ìúä! æ!ºû°ƒîºø°`îB2Àî°ºûî2Àºùî.�6%;¹.Š$è«Fâ÷´,Í!Šâ蟊æèš‹^Šá2ãè�Šå2ç艊ã脊çè.�6);¹.Š$èqFâ÷¹ Ä~èˆ<ÿt â÷¹°üóªë¹èr<ÿtùèkrçªâøºû°ƒîºø‹F ‹Ø%à±Óè.�6;ð.‹îBŠÄîŠÃ$ºûî°ºùîºü° îä!$ýæ!û]ÂQR¹Pºü°€îºýì$ uâùùZYúøŠÄîøZYÃQR¹PºýìŠà$uâ÷ùZYÀäu÷ºøìøZYÃU‹ìŒÐŒÃŽÀŽÓŒÈŽØ‹v6‹£O<6‹D£Q<‹v6‹£S<‹v 6‹£U<‹v 6‹£W<‹v6‹£Y<‹v6‹H»÷ë£]<ºÚì¨uûì¨tû°ºØŽÀÿS<¸ ÷.S<£S<ÿU<Ñ&U<¡U<S<]<¡W<±Óà%‹Y<ƒëƒû|‰Y< € Y<¢_<‹O<‹>]<‹6Q<ü6¤ªâû]Ê U‹ìŒÈŽØ‹v&‹H»÷ë‹ð¿¸¹ŽØ¸¸ŽÀü¹ÐºÚì¨uûì¨tû°ºØîó¥°)ºØî]ÊU‹ìŒÈŽØºÚì¨uûì¨tû°ºØî‹v&‹H»÷ë‹ø¸¹ŽØ¹ÿÆGâú]Ên–,X°` À€%U‹ìŒÈŽØ‹v&‹Jƒút Òu>‹v&‹ ‰À=‹v &‹ ˆÃ=‹v &‹ ˆÄ=‹v&‹ ˆÅ=¹‹ÙÑã.‹‡®=‹À=;Ãtâí¸ÿÿëXIˆÂ= Ã=<t <uëÆÃ=ëÆÃ= Ä=þÈ<t ÀuÒ¢Ä= Å=<t<t ÀuÀ3À Â=ÐàÐà Å=Ðà Ä=ÐàÐà Ã=Í‹v&‰]Ê U‹ìŒÈŽØ‹v &‹Jƒút Òu´Í‹È3ÀŠÁ‹v&‰‹Á‹v&‰]ʸÿÿëðU‹ìŒÈŽØ‹v &‹Jƒút Òu(‹v&‹ Ét&‹\&Š´Í€ä€uCâñ‹v&‰]ʸÿÿëð U‹ì.Ç?.�> ?‹v&‹.‰?‹v&‹ Étƒù}ëéŽ&‹\&Š.ˆGCâö‹^&‹w&Š5@‹^&‹&ˆWG°?¹óª¹.�6 ?.ŠªFâù‹^ &‹W.‰?´Í!‹^ .‰ ?.ÿ ?.ÿ ?Z´Í!<ÿt&.ÿ?è,´Í!<ÿt.ÿ?è.‹?.;?tëâ.¡?‹~&‰]Ê .‹ ?&‹?ƒÃ.‰ ?.‹6?F¹ó¤&Æ.G¹ó¤ÃU‹ì‹^ &‹Šá‹^ &‹ŠÁ‹^&‹Šñ‹^&‹ŠÑ‹ÚÍ]ÊU‹ìŒÈ‹v&‹<‹v&‹°¶æCº¸8O÷÷æBŠÄæBäaŠà æa¹ñ âþKuøŠÄæa]Êÿ€U‹ìŒÈŽØ‹^&‹‰f@‹^&‹‰h@Ñé‰t@‹^ &‹‰r@‹^ &‹‰p@¡v@÷.h@‰z@£|@¡x@÷.h@‰~@£€@¡p@÷.f@‹Ê‹Ø¡r@÷.f@+Ãщ‚@£„@÷€u+|@z@÷€u( Òu Àt ¡v@ë&‹~@¡€@+„@‚@÷€u¡x@@ë ‹‚@¡„@÷>h@‹~&‰]Ê U‹ìŒÈŽØ‹^ &‹‰j@‹^ &‹‰l@¡l@‹^&‹‰n@¡n@™‹Ê‹Ø¡j@™+Ãыʋءl@™ÃÑ÷€t ©€u ¸€ë©€t¸ÿ‹~&‰]ÊööööåöööööööööööööööööööööööööööööööSCRNDRWMAXY-YD)/SCALE!:GOSUB 2256:X=INTX:Y=INTY:RETURN 2256 IF REALX!>32767 THEN INTX=32767 ELSE IF REALX!<-32768 THEN INTX=-32768 ELSE INTX=REALX! 2258 IF REALY!>32767 THEN INTY=32767 ELSE IF REALY!<-32768 THEN INTY=-32768 ELSE INTY=REALY! RETURN 2260 CALL ABSOLUTE (LXD,LYD,XD,YD,CLR,TYPE,LWIDTH,WRTLIN):RETURN ' *** ROTATE ARC ROUTINE *** 2262 GOSUB 2238:RETURN 2263 X=X OR ((EDA\128)*16384) Y=STA OR ((EDA MOD 128)*512) ZLAY(Z,N1)=X:ZLAY(Z,N2)=Y LAY(Z,N1)=X:LAY(Z,N2)=Y MZª>3 ÿÿ><¶À¶<ã¶ ¶C¶m¶ù¶;¶G ¶g ¶ú ¶!¶$¶ $¶µ%¶c&¶Í(¶L2¶R2¶\2¶=5¶L5¶:6¶Q6¶†B¶åC¶AG¶I¶êL¶M¶M¶jM¶¯M¶ØM¶°N¶jO¶ïO¶3Q¶{R¶JX¶ÊX¶ÃZ¶ñ\¶g]¶u]¶õ]¶´^¶Á^¶‹a¶Ñd¶Ød¶ÿÿ××ר¶ÿÿÿÿÿÿÿÿÿÿÿÿxÆÆ€ÀàðøüþýCÞRandom Number Seed (-32768 to 32767)$àd§³¶à Š]xEcÁoò†#€Æ¤~�@zóZ rN ¥ÔèèvHä TÊš;áõâââãããäääååååæææçççèèèèéééêêêëëëëìììíííîîîîïïïðððññññòòòóóóôôôôõõõööö÷÷÷÷øøøùùùúúúúûûûüüüýýýýþþþÿÿÿ ö   !!!"""####$$$%%%&&&&'''((())))***+++,,,,---...////0001112222333444555566677788*.*ØØ××@ €|ˆYtà—&wÄz^Pc|þu~r1€�š÷ƒ$cCƒuÍ�„©ƒ‚�â°Mƒ rƒô5ío€zŸ’…sW“b„í:‡,²~/qY´‡�1ôÙæ.Þ¥…þ-¾ÇT w†V²~/qY´†£æRM0={²»«ä�!…‘ž;N§;=‹�ËþŸ� -iˆ…ý¦˜µ€�PPPb5ƒ~P$L~y©ª�û׆e&™‡X4#‡á]¥†ÛIƒòÌ¿JÃ�N}k¦,†»¼·€âÙ¬N¯yt‚¸Žî¦ƒñ„Z†ŒB<(†ªsfi™‡oS­;ã5#‡‘ò-1ç]¥†Âh!¢ÚIƒæÀäÇÑ5| ›Æ„}&Ål.F}˜k �¹+º}+•''Žc}jœÝr$I’~¨ë”ÌÌÌL~ƒ—ªªªªªÿÿÿÿÿÿ€gìfêfgöfü^÷_B";š5õ÷ÒJ ʃòµ‡}#~à‘·Ñt'žXv%F*ÅîÓ®‡–w-;uD;1Š’•šmA4-÷º€Éq7|ÚtP ;’då<>b•¶}JlA]’Žî’E´¤62ªw8HáMľ”•fK­°:÷|OØ\ 5Ü$4R´KB.aU‰Po ̼ Y«$Ë ÿë/\Öí½Îþæ[_¦´6A_p cÏa„wÌ+fCzåÕ”¿Vijl¯½7m„GG¬Å'peâX·QsßO�—nw×£p= ×#zÍÌÌÌÌÌL}� „H‡zŠ@ŽPC‘$t”€–˜ ¼>›(knžù¢@·C:¥¥Ôh¨*焬€ô æ5¯ 1©_c²¿É¶Å.¼¢1¹@v:k ^¼è‰#Ç Àb¬Åëx-Àz·&×XÆ�¬n2x†Ê´W ?h)Í¡íÌÎÂSÐ…@aQYÔ¦�¹¥o%× ô'�ËNÚ ”øx9?Þ ¹6×�!áOgÍÉòIä#�E@|o|ç¶p+¨­ÅëãL67EîàÃVß„vñl:– õÉ{Η@øÛH»½pû‰ µP™vÿëPâ¤?<‚&åŽOk…8ÏиÑï‰'Æ«7ŒÇCư·–e�\ê{Î2~“ôä‚¿]3–0ž¡b/5`™Þ¥�=! �–C�)/ {ÔQFðóZ£Í$ó+vاîï¶“+ª€é«¤8ÒU­ðqëfc£±lN¦@< '´âÏPKÏP·Eí���»eÞù3ó5€DNnƒù"~Âh!¢ÚI�ÛI�,›kÁ‘ €’ €²jöô¢0 £0 TeÂB׳]�ñ\);ª8�zÏÑ÷r1€r1€€ÿ3öŽÞŽÆÇô@ŒöÇøaŒúÇü‚ŒþPQ¹l¸£ŒÎ¿«–«–âúYX陣tX�“CSPŠ_ÿŒÀŽØ·Ñã.‹‡Â[P¡tãtX�“CSPŠ_ÿŒÀŽØ·Ñã.‹‡>[P¡tãtX�“CSPŠ_ÿŒÀŽØ·Ñã.‹‡ú[P¡tãtX�“SPŠ_ÿŒÀŽØ·Ñã.‹‡l[P¡të0»0Ë01–FyF–1ÜF6G^GGGPG�G²G¹Gí7ô7û7–3T6G6=606î)=L++ÌVë/ÌÔ6L7Ó%X@w3Ú%Ë@4A'%'*''Ý1Ø1óV„ZêH;NŸZÔAZZj_°\UR•PË\iSv\ëâÒç/êV÷MNC2_2aãßÇÆ‘H—H|¢*â*Í*ÈÍ@„67#O/O;OC?;?Ä'z'µ'/'?'×?´?L'k'p'u'G'Ø&Æ P]*]3]<](" ¥"³"¿"ûZ JHQNQTQº2‰#ú#É2Ï2Ø23Ï+Ý+é+ãMãMÒX,@;@¹LlTP3W3²Q»QÞ$ì$ø$"A.AÔ ŽL‘L”L*L-L0LÃLÆLÉLH¶F³F�*ôKîKúKÿK»*�HÒEFBMIMPMWMRúQR"RÞGâGæGêGWEdE¢EoEO0Y0c0c0 FF¼CXB±CMB¹CUB¶CRBn0w0q0z001000MM¾NÓNàNôN8*EEÊ8bH¸M¾HW9!9á8ó8*r*ü_`` `````$`)`.`3`L+U+`+y+øDEWEdE¢EoE%E1E5+A+2+>+¶‚«w³°|nic^kfhcîãëè¡a–Vž^›[ˆ2o2}2d2…2l2‚2i270C0I0I0€0¦0ƒ0ƒ0ý/00 01aSaS§S¹W€X^FeFæMLcþMZcNtcSyntax erroòRETURN without GOSUÂOut of DATÁIllegal function calìOverflo÷Out of memorù Subscript out of rangå Division by zerï Type mismatcèOut of string spacåString formula too compleøNo RESUMÅRESUME without erroòDevice TimeouôDevice FaulôOut of Papeò2FIELD overflo÷3Internal erroò4Bad file numbeò5File not founä6Bad file modå7File already opeî9Device I/O Erroò:File already existó=Disk fulì>Input past enä?Bad record numbeò@Bad file namåCToo many fileóDDevice UnavailablåECommunication buffer overflo÷FDisk Write ProtecôGDisk not ReadùHDisk Media ErroòÿUnprintable erroò£|�£x‰z‰.~X[‰&vSP‰�-£ŽÇЉ3À£ˆ£†šB¶èTè="ŒˉËCtKÿ6SËéD3Û‹Ó‰&ŒSRèÏ"èñZ[ Òuº�ú€rg Ûu‹vC€ãþ‹ûKKèƒ$+Ø‹ó+Ú€ãþKþÏ;zrAþÇ“£|�£x‰>vOO‹ïXY‹æ‰&QPèO £€—èG ‹ÈÇ£‚3À󪣆è èa(écÿéÁè)-£„è—è‘+Ï3À󪿔¹óªH¹ ¿ó«Ã^.¬˜VÅ6Žðö  ­ÃX[�SPé„X[�SPët�³¸³¸³¸³¸³¸³¸³ ¸³ ¸³ ¸³¸³¸³¸³¸³¸³¸³2¸³3¸³4¸³5¸³6¸³7¸³9¸³:¸³=¸³>¸³?¸³@¸³C¸³E¸³F¸³G¸³H¸³D‹&Œ¸³¸³¸³¸³¸³¸³¸³ ¸³ ¸³ ¸³¸³¸³¸³¸³¸³¸³2¸³3¸³4¸³5¸³6¸³7¸³9¸³:¸³=¸³>¸³?¸³@¸³C¸³E¸³F¸³G¸³H¸³D‹.vMMè}&ÿ&Š€>¥u=ƒ> t62ÿ‰šX£˜èÊ£œÆ¥[¿ƒ>šu‰-èØþ$)Ç¢‹%Sÿ6 Ëèxë èÐAèBSTOÐèùë ³€>¥uâøœèµAèÈ è! �é%è—þ ÀtèëA in line ]XZUèYèÊ2éŠAèÒA at address ]_ZUè °:èƒA‹×èégAŠÆèˆAŠÂéƒAèZA¿DŠÃ´€&€=ÿt ®t †Ä®sý†ÄëîG‹÷étA‘è"þ–Ž�3Û­ Àt;Ás ;Ãr“­’ëîFFëê Ût’ÃèUAInternal Error - No Line Numbeòèè@éZé#þé#þ¸3À¢O ‰&ŒèØ%‹wèA%¿* °´)Í! ÀuÚ€>+ tÓ€>3 u Ç3 EXÆ5 E´º* Í! Àu¹3À£K £M @£8 º ´Í!¹º* ´'Í!¡ %àÿ£K Ç8 ‹BŽÃ&‹>ƒïƒÃ€>O té‹ J±Óâ+С ±ÓèЉ Ӄ ;×w9WSè<è#@è’è [_‹ëŽÇ¾¶ 3ÿ¹Xó¥¾ ¹ ó¥3ÀPŒÀ ŽØ-+Ëé ýŽÐ¼ŽÛ3Ò´Í!‹º´'Í!)t¨uzÙëÝ¡£;Ç(º´Í!ƒ>t"´'º¹Í! ÀuN‹>¡ÅŽÀ&-ÿuÞ¡ŎЋ&¡ÅPÿ6ƒíŽÅŽÝº€´Í!Ë Error in EXE file $ºˆ´ Í!ƒíU3ÀPËSºP ´Í!¹è�[ÿK �>P bmté‹& ¡ +X ±Ó࣠¡Z \ P9‚r£‚Sèrè]"èœ[^‹>‚3À;þs«ëù‰6‚SŒÚ+Ó+T v¡~ŒÙ+Á-t÷Ø;Âw‹Ð‹ú±Óç‹ +Ï¡&;ÁwéÊû£z ÿt8è�WŒØ+ÂŽÀ‹‚ Òx3ö3ÿë‹ñN‹þýúó¤ü_ŽÙ)ç>v>xû[S¡T ‹øèªèPû±ÓèŒÛØèDû+Çè•è;û‹^ +ñÓè ÀtÓë‹ÓX +V K ŒÚÚèl¡( £K Ç8 º ´Í!ƒ> ]t)´'º* ¹Í! Àtëd�‹6 ¡ ;ÇsÅŽÀ&,ÿ uס ‹Ø‡z+ÃH‰‰&èŽúŒ‹&vƒ$ ÿ.$ ‘QèXÙ+ÁuôÃŽÛ3Ò´Í!º* ´'Í!¨uú> ´ Í!éÃû‹6z­¨t =ÿÿtHðëñ“è 7F�æþÿëäÃ9€w9‚wóé3"‹>&‹=G‹6z‰6&t%‹ÖèFÇDþÿÿ‹Î+ÊNW‹>|ýó¤üG‰>&^N‹>z‰5Ë6zè>z>|¾ˆè¾Š‹Dþ Àt|þ–ëó­¨u “7F�æþÿëîþ­ë¾›èP Òu.‰•–&ë*3ÀŽØ€þu ´ï‰60Œ2ë ´÷‰6,Œ.Bîº!ì"ÄîÃè´€þt´úä! Äæ!ûÈ•(úŽÚ‹•øŽ‰"ÉYlz™×B �S§«SQR€½)té ù¾öt �Æ€€>t Éu¹€6r€>tñƒÆQ‹Î‹•(´WèR_YV»3öt�À€>t ‰Œ³كà r�‰•ƒÃ€>t �‰• ƒÃ �‰•$‹Ñ�L3öt!‹�$‰OÇG€è5�Á€‰€>tʃÁ ‹� ‹r‰O‰WèʉèÿƒÂ3ÀîJJî‹�ˆˆGˆG ˆG ˆG ˆGˆGÆG‰G ¸è‰G‰GÆGÇG¾Ñ¹€Qè˜ué rYè¤Q�ùr€Oèyué‡èiµr¢?¢t¢¼¢½¢¾¢Â°¢ÃèÏJ°¢Á¢¿ÆÀxôè°ÿ»{×P´è¦ÿX¢„¢ƒ´(<r ´P<u¹ ‰Šˆ&ÌènúŒØ3ÒŽÚ£¡&£¬¡&£®¡&£°¡&£²Ç£ŒÇ«Œ¡£¡£ ¡�£¡’£¡l£¡n£¡p£¡r£¡$£¼¡&£¾Ç�óŒ’ÇlêŒnÇpÌŒr¡ £À¡"£Âû»´‰yÇG¹À‰OèƒÁ‰š("¶Ã�û}»‰r˳ùë³èÿ.@ør³Sœ3ÀŽØ¡;£œš”#¶�¡ƒ¢„u�r:àt œ�´èrþè´[3ÀŽØˆšy¶¹€>„u¹ ‰Šè/úä! æ!3ÀŽØ¡£¡ £¡£�¡£’¡£l¡£n¡£p¡£r¡¼£$¡¾£&&¡¬£&¡®£&¡°£&¡²£ûÃûPR3ÒŽÚŽšy¶3À£FþÈ¢DZXϰ†D ÀÃèÛ, *Breakªé¿êPR3ÒŽÚŽƒ>wt ÿwušV¶þv€&vuZXÍðϰ æ ZXÏVSQ‹yƒtèæBŠÄæB‰wÆuY[^ËVSQÆu€>uu@ú‹6y»´;ÞtèÏ2‰y‹Oè{Päa$üæa3ÀŽØ¡À£ ¡Â£"2Àæ@æ@XÇwûY[^ËUWV3ÒŽÚŽ€>>tÿ6€>?tÿ8^_]Ïû‹ÇƒÄ Àuéé<uééééŠ&ˆþÌú닇‰‡èÃPŠ>…èXÆòþÎþÊ´è•ü†òÃQRè´èˆüë QRè ´è|üè"ZYÃèŠïþͱŠóþΊÌþʰŠ>¶Ã …ë †è#u Š&„€ütRº€ürÐæ2ä÷âŽÚ£NZÃP „<t<s2À ÀXÃP°ëP° QSPèXÿX[‹Іé€>Ztµ è´èöûYXÃèÂÿtRPSQRVWŒÆ¿ŽÇ&ÿ6|&ÿ6~&Ç|Œ&Œ~ŽÆ°�Z³ƒŠ>…¹´ èµûŒÆ¿ŽÇ&�~&�|ŽÆ_^ZY[XÃ:Ýs(ˆ C:ëtŠëõ‡þ»‰œÃŠˆ :Ýs ÿœ_^ZY[XËÇœéKç€>Duƒ>Fu UVW´Í_^]Ãèäÿtû€>DtÆD°Ã>Fu=UVW´Í_^] Àu €ü;r€üEr ÀÃVP¾J†Ä,;ÐàÐàð‹£F ÀXt‹t‰6HëV‹6HŠÿHÿF^ëÉRSQP‹‡XP<tK<tN<t< t< t< tWè[þÆ:6Ìwë"¶€úr»èþ²€>Ú r þÚ þÜ ëþÂèÝýXY[ZÃšÆ ¶ëô€þw €útçþÊŠ6ÌþÆþÎèºýëÛš("¶ëÔRè©ýZе¹´ èRúÃPR‹×ÑúƒÂúUVW´Í_^]Šô€ä(€ü(t öÄu öÆt é0æé3æé-æZXP< u€|/ÿu€<t° è¹ÿXÃèë ¹ º€ë-éèåèÝ ƒû%rõ‹Ë‹ò¿ä ¥¤¬<‘sç<‘ºÿÿs ª¾ä šF¶‹Ó Òušy¶Ãè�†òR Éuµë º¸Ü4÷ñ‹È†éQ‹y‹OèÜûtéàû;OtóYXúèËŠÄèÆ‹ÁèÁŠÄè¼€>ttƒ>wu?3ÀŽÀº &‰ &Œ"¸æ@ŠÄæ@€>uu °¶æCäa æaè[æBŠÄæB‰wÆuûËy€>tuƒuúƒ>wt1Æuÿëò�û´u$Q» è_.‹Þ‰yÇG¹ ΉOè?�Á‰YÃè ŠèèŠÈèŠà‹wŠF;7u‹w‰wÿOËw ˆF;7u‹w‰w ÿGÉO‰O ÇGÉ&ŒPSQRè?ü²'€>Ì(t²O¶Š>¶¹ŠÁ´è€øëPSQR¹‰… „´èkøèèÀè§ûèüZY[XË „ÇÆd<ts<rÆ»ÇÄ ÃÆ»ÇÄ@ÃÆ»ÃPSQRVWŠËè¾é›üPSQRVWè¶é�ü‰&ŒPSQRVWŠËè tF€>„t6ˆ CŠëècüŠˆ Ûu€ùr€ÉSQWVŠûŠÙ´ èÒ÷^_Y[C:ÝrÚÆ¶éKüÇœé¦ãèü€8 sïC:Ýs€8ëô3ÛŠˆ CŠ(ˆ)CŠˆŠñ€æŠÅÐà$ €åÐåÐåÐåÐåöÁt€Í€ îŠØ·ˆ.µˆ.¶´ èc÷éêû ÿu›¿ž¾²µ‹œèût¾·µÀûtë³ë³:EˆEtè†Ëè »J¹ þŰFè&è)° èý%SQ‹ã‹w¬< u°èê%âô° èã%Y[ƒÃþÉuÎÊÅÔ 00€ü0u†à° PŠÄèÃ%Xé¿%è·R Ût$Kƒû s°öãJ[Pº¹šbG¶Zš*¶èÃé“âPSQRVW¶²Š>…´è’ö E ÀuжŠÌµ´ è|öèÃù_^ZY[Xóè?úu €>³u³p¿J°1´€>Ì(t´ PSеèC‹ß‹‹wƒùr¹[SQã¬è%âú[±*ËŠ¶° èâùƒÇ[XþÀ<:r°0þÌu¼ë�< u°QWV¹´ èûõþ´èôõ^_YÃPSQRVWŠËèÙébúPSQRVWèÑéTú‰&ŒPSQRVWŠË車ãè'ú‹ ‹T€üsŠòŠ&Ì Éu;€þs-€ús(€üPu €þs€ús°€ü(t ít:þÀë6þÈ íu0þÈë,Çœéaáƒúuò€>„tK°€ù´Pt´(þÈþÉuÚ íuþÈ‹ ‰ ‹L‰Mˆ&Ì‹„¢„‰…:Át¸£²†Ä£´ˆ&¶èóøt¢¶šP"¶ †´èõé–ù ÿuŒ¿ž¾®‹œµÃ2ÿŠ‡Ë‰&ŒPQRVW þuF ú ùt@8Ìr:€ûs5€>Et€ûs)ŠóþÎþÊŠ>…Q´èºô´èµôèü÷YþÁtŠÄ2ÿŠØ_^ZYXËéŒàSP ÿu2:Ìt)Š&„€ûPt€û(u€üt€ôˆÌˆ&„Ç…šP"¶X[ÃéQàKYBDÿSCRNþCAS1ýCOM1üCOM2ûLPT1úLPT2ùLPT3ø�/;//ÛM* ö  * &V&V&V2/2/ÛM» À >VMVMV2/2/âMü ü rVrVrV3/~/ãM  sVwVwVèÙ‹‹wèt Àuéàè-öؘÑà—.ƒ½–&t.ÿ¥Æ&éà‰&ŒVèý(uéò‹Þ^ËP´‰&ŒƒŒèQXËP´ëíP´ëè‰&ŒVèÑ(^t P´ëá‰&ŒèuËP´ëËP°´ ‰&ŒƒŒVèª(tR€<uMè^XËP°ëßP°ëÚP°ëÕ‰&ŒPSƒ?t-‹_Š€ãß°€ûIt°€ûOt°€ûRt°€ûAu ¢[èjXËé7ßQSŠË³Òãˆ[Yˉ&ŒPVèëPVè4(u)´ è¤^XËQRS‹Ú‹‹wèíè,[ZYCt K Ût ƒûwÃéíÞéáÞ»¦&¿SW.ÿ_[OOuõû¶&ëìV‹6ž öu^é<´èV^ÃV‹6ž öu^é´ëêV‹6ž öu^é8´ëÙV‹6ž öu^é|´ëÈV‹6ž öu^én´ë·Vè�'tˆè^ÃWSPëWSPŠD. Àx2ÀëöؘÑà‹ø.‹�–& ÛtXP†à˜Ø.‹‰ÎX[ÿÎ_ÃéXÞSV‹6ˆ öt Š\û2ÿš3'¶ëì^[ðëÆ°¢èr¢Ð Àx2ÀPRW¿Ñº <üt<ûuQãƒùAs$üó¤ˆ Z±@+Êt#ŠÅóªëã4I¬< s €>ué»ÝéÓÝ<.tªJuã_ZXâƒú t߃úrÚtа ªJëî° ªJuúëßRWV‹Ñã¬<:t âù‹Ê^_Z2ÀÃ_‡÷W+Ñt¬Iƒút9¿k&VRG¬è=.ö€u.8uJuíG.Š Ày^^^_ZÃG.ö€tùZ^.€}uÍémÿ¬è ,@rõ<sñëÛuÆÄ&t‡ÙƒÃ3è>&‡Ù‹>ˆ‰|þ‰6ˆˆ\ûˆD.‰T/Ãéê܉&ŒSèÂr QR3É‹èEZY‡ÚècVW‹û‹ò¥¥‡Úƒ?t ‹‰Uþèî_^[ˉ&ŒQRVW‹ð‹û‹p%èM‡úSè ‹òè[_^ZYˋދ ‹tÑéó¥s¤é«éJÜQVW‹‹“‹w;v‹;Àó¦_^u‹“;“œè„“è€�Yˉ ËÇ €>¥tò[ÿ6˜‹šéÁÜ€>¥tÆ¥XSËénÜ€>¥töÆ¥X¡˜èŽÝSË€>¥táÆ¥‹˜èŸÛ–Ž�»ÿÿ­ Àt ;Ár;Ãs“FFëîXSCu²é~Ý‹šËPRS¸�3Ò‹œèRé[ZX˾¥¥ƒïƒî˾¥¥¥¥ƒïƒîË¿¥¥ƒîË¿¥¥¥¥ƒîˉ6 ‰>"è)¾¥¥‹6 ‹>"ˉ6 ‰>"è¾¥¥¥¥‹6 ‹>"Ë�$^—¬Ðà´ÑàÑà&„—V‹÷ÿ&$�$‰&ŒUVWPQRSÿ$[ZYX_^]ËPSQRVWŠËèŠéqóPSQRVWè‚écó‰&ŒPSQRVWŠËèlŠãè6ó‹CC ÒtV€úsQ€>Et€úsE ötA:6Ìw;ŠC‹€ù s1€ür€üsŠé€ý s R¢‰‰Š€ür Àuèhòëè^òZèÄñéýòÇœéXÚ ÿuó¿ž¾‡‹œµÃPVC€ãþ¾fþuÆÿ‹6&3Àð­¨t=ÿÿt5H;Ãrïó‰6&+ÃtH‰+ó‹Þ^XÓ7F�æþÿ“ëÒèL‹6&;vÇéÚ[ë¹°†f<råS‹6z‰6&³ÿ­=ÿÿtâ¨t€ûÿu‹ÞðNëêðN@Gþëá“7F�æþÿëÕPSVW¸‹6z‹þHð­=ÿÿt#¨uó«“‹;wu)@;÷t ‰‘Ñéó¥‘ëÝ$þøëÕ+÷ƒîrF‰5‰>&_^[XÃèè” during G.C®è:é¬îè4è|Internal Error - String Space Corrupôà Ût$ƒ>(t$VSèËþ‹6(‹‰(�‰wþ‰\‹Ó‹Þ^úĻÆÃéÙ�ûfsG�û*õÃQW¹ÿÿ°‹ûò®‹Á÷ÐH_YÃQ‹ËV‹òè¦ÿW‹ú‹ÖAÑéó¥_^YÃS»*ƒÿtèƒÃ�ûfrî[Ãè¯ÿsúè]P‹Ã‡(‰ÇGÿÿXÃèÕþPRC€ãþ¡&“‹+Ðr‰ÚCÇÿÿC‰|CZXÃéhØPQRVWQS‹Ê‹Úè2ÿ‹ú“[^wè§ÿ“AÑéó¥_^ZYXÃPS‹‹_;zr;|w @ ‡Gþ[;ÃuXÃ[XÃèÉþèýéoíR‹Q3ÉBè¥ÿJYS‹_ÚÆ[ZË>z‰>&¡|@$þ+Ç-«øÇEÿÿÿ¹¿*‰>(»ÿÿ¸.«“«“â÷ÇEüÆfü¼¼ã/~/¼n/¼¼†/Û/Þ/¼¼¼ã/¼¼6/e/O/¼¼¼Ãé†×QRS3ɈË3Ò´è”ú ˆ[ZYÀ>Ët ÆË ÊøÃèðøÃÆË¢ÊÃè\úQRS3ÉŠÌ´ëŇÓè­ö‡ÓÃ2ä< tI<uèyî ätþÌèvîë:< u° èšøèbî€üÿt€äuî° Ã< rèNî€>Ìÿt :&Ìuè�€üÿtþÄè:îéðé.îŠ&ÌÃèƒ ÃèFöËPèîŠÜ2ÿ€> tCXËè~€6€Ë耀6€ËP‹DëP¡ ät´�$€£3À£££XËP‹DëâP‹D ätÐÐXËP‹DëòP¡ëì3Û€|tKË3Û€|t KË3Û€>tKËè €&Ëè€&Ëèû‰6h^P¬&€>t&XV‹6hsÊéÖèàëØ‡óè·óQ¹èsYˇóèɇóQ¹ècYˇó讇óQ¹€>tìö€tÒQè{YQè?Y€>tèkYu#Æ€þué¶Õ3ɉ‰‰Ç€�Yˇóèe‡óQ¹ëªPSW ,€v&¿ŠØÐèÐèÐè˜+ø+Èr“$»Ì× 2ÀOýóªü_[XÃÆëõV¾ÑéQ÷NNâúYö\uFFÿáú^ÃW¿¥¥_ƒîÃW¿¥¥¥¥_ƒîÉ&ŒQRV3ö‹Ë‹Ú€ûÿt è]t%€<t#‡6žV‹ÙèÞûã ‡úPèlöªâúX‹ú�ž^ZYËéÕé#ÕèÙùëèÔù€t<öG€x@¡Ü‹Ô÷á—‹Ú¡Þ÷áØ¡Ö÷&ÜØ>ØÚ2ÿ‹×‰܉Þ¸ˆé^â‹Ü‹Þëð‹‹GÔ€Ö2ä‰Ü£Þë©ènù»šS¶š¹W¶»Ýš€X¶Ã‰Ý˾ëè(ù¿èBù¹ƒÆƒÇë¾ëèù¿è)ù¹ñù‹‹ ÿt ät2ØÐÐxs‡÷ýó§üà ÿÐÓõà ätÐÐÃP¡Ä£ü ¡Æ£þ XËèèøé�9èâøèÊ9é,6èÙøèÁ9ÿ6Êÿ6ÈQR‹Êè6ZYQR‰Èè 6Z‰Ê�ÈYQèü5Y‰ÈZéó5è øèˆ9èo9r‹È@£jèm9r‹Ê@•è[2ÿ6Õ  Ó P‹jè3X¢Ó �Õ èÄ1MuãÃèaø3ÀëèZø¸ƒùÿt‘èt2r è9sè2èþ1ÃéEÓ‰&ŒPQRV‹Ëès2»ÿÿsè2è¿1˜“^ZYXËèøèûÆâ ‹wSè‹[énúèiŠà<"t´,N‹Ö3ɬ:Ät Àà÷A€ü,tN÷Ù€ü,uN‹þO° :Àýó®ütA‹Ùèú‰Ãë¾è'¹â t²3Û‹Ó‹ë‰lÆã ˆnèÈ<&tšNè÷œè¡â €üw :ÄvÆã 3ÿ�Q‹Ë‹Ý¸Àu°€Vèã^Yëé8Ò�¸ u°€èîßèƒ<%t,<#t(ã t*�ÇP¾�}þ€rƒî‡÷¥¥‹÷¿ÿ Éyè]àëèØßë�ÇL¾ ÉyèCãëèðâ^¡â :Ät&<tš1E¶Ã3À£¢Ú¦E¶ÃèÆ<-t<+uFNûÿè‰�ûÌ wôÑãÃÑãÑãØxèëé3ÉèpÑâÑÓ‹ûƒ×ÑâÑÓÑâÑÓÐß ÿtâÆã 3ÿèKPWUSRÑâÑÓÑÕÑ×ÑâÑÓÑÕÑ×XÐXØXèXøÑâÑÓÑÕÑ×XЃӃՃ×�ÿ™rÂÿlè Àt€Êëôè),0r < w˜lÃ<þu€>nu ÆnÿlëÙNƒÄì< tû< t÷< tóâ v»ðŠÃè‰:×|3ŠÂÁ:Ã+˜‘“ É~ ¤Kàü°0óªt °.ª°0óª‹Ëó¤¾v‹Ç+ÆÆÃ÷Ùëæ¤It°.ªÑó¤¸E+ ÒyöÚ´-€>â uH«’Ô †Ä 00«ëÇ;&xrD^‰&­VPÿ¢Ëÿ¢x0_^X Àu[XXëÿ¢xX^_ ÿt‰&VWË[_^‰&VWÿ&’éÎéÎ;&xrô¸2ä ÿu(^¬ŠÐ¶ÑâÖK:Ãv ät R&‰&&ÿ¢Ñã‹RËéÑÍ¿š¡² Àty÷ز-ˆvèJ²é¹Æv ¹²¾šÆ0À>â rÊ»™tƒÃ Š Òtض+Ú° ö€t°-¢vЇÆ˜‹ðÑæÑæÑæ�ÆLŠdâöØP€>â uo‹>ŠŠ\ŠD€É€öá‹tPèLÛZÞ€×¶ŠÔŠàŠÇYQ†Í�átÐãÑÐÑÒâø¿š€û€wr ¨tƒÒ»'÷óRè‘Zè�Z‹Ï¿š+ϰ0ó®AO‹÷ÿè"ߊŊ㗊܊àŠÇ•·ŠÆŠáYQ†Í�át ÐâÑÐÑ×ÑÕÑÓâô€ú€wr¨t ƒ×ƒÕƒÓ‹×¿š¹ ¾+Tl\þÅsñTl\þ̓Æ€Í0ˆ-Gµâ×éfÿ3Ò’»';Ór’÷ó0ª3À»d ƒúdr’öó†âö÷ 00«’ö÷ 00«Ã¿šèÍÿè>ÿ¬èÊâúËþ˜ù;Ás"‘+ÁÐ+ø°0†<5rã OŠþÀ<:rþÂâóA°1ªOŠá°0ýó®üA*áÔ¿wÃl;œ;©;G;Æ;o=o<Ê;u Éu¹€Q�Á‰ºÿ´ÿèNíY‰Œ³V�|¾Ð¹ ó¤^è€>uè`�T€>uèS´Í!´Í!þÀu#éê´Í!þÀu€>uÆë߀>tØéí ˆÇD€€<t €<t €<uè\YZÃ|u ƒ|uÆëì�|"VƒÆöœ¬À­À«¬´À«�^uè)è&è#3Òè þr<tBëô3ÒèÆ�|'3À«ˆˆD2뤃l"sÿL$ÃéPÉé�ÉQRS¨u‹”·Bë Òtë|扔·JÇ„º‹œ³S�û€t“÷â“ÛÒ öuÄŠòŠ×Ðë2ÿë3Û‰®�Œ¼‰°Z�L3ˉ²¹€+Ë;Êr‹Ê¨t3�ù€sèFVQ‹6°‹>²Ñéó¥s¤Y^è,ÿ®°+Ñ3Û Òu¹[ZYÃèVQ‹6²‹>°Ñéó¥s¤Y^ëÔ ë$ûPQRS‹®C;œµu¨t K‰\'ÆD)€ÆD*€‰\"ÇD$¨tè4ëè[ZYXÃÿD'QW¹@3À�|3ó«_YèD´!èK À°u°€ˆD)ˆD* ÀÃÆD)è'´"è.<ÿtþÈtþÈu ˆ�T´Í!éKÈÿD'ÃéPÈé;ÈQR�T3´Í!ZYÃQR�TÍ!ÿD"uÿD$€ü"u Àt<tÒ<°t þÀë<u2ÀZYÃPQV‹‹wè×騀xèï^YXÃéöÇW€|u ´Í!þÀˆD¿Š‹}þ ÿt;÷tõVWFG¹ ó¦_^uèé¶Ç_Ãèvì¾€ë ènìèbï‹wèËî¿Ð°´)Í!ºö´Í!ºÐ´Í!<ÿtj¾÷¹ ¬èE ƒùu Š< t°.è5 âêèRð†Ä èNð:Äs° è ëè ºÐ´Í!<ÿuÁè/ð ätèò Ãèýëè8ÿºÐ´Í!þÀt´Í!¾Ïè<ÿ´Í!ÃéÇèÚëRèÿºÐ´Í!þÀtë‹ò¿ö¹ ó¤[èûþ´Í!þÀu‹òF¿¹ ó¤ºö´Í!ÃéàÆèœëè è´Í!P´ Í!XŠÐ´Í!ÃÆ>ÿÇ6aAÿ&„Æ>ÿ&†r@}@‚@ˆ@£@¨@®@¶@¼@Â@€>>tiƒû sdPQRÑã.ÿ—D@ZYXË ŒÆŒ˜“ËŽÊ�ë+´èAÚ ät ‰‘ˆ.“‰–ŠÄöØë׋‘ʓ늕C2ÿÊ”ëöŠ—ëðŠ–ëêéXÆ Ût ƒûsôŠŸ˜ËPRº¹»úîì$:Ãáùã 2ÊáPþÇ2Øëìû ÿtŠ×»˜¹XöÔâÐèsˆ'Câ÷þÊuè2ÿŠ˜ZXËÇ8žAÆ?ÿËÆ?Ë€>?t�ƒûsˆPQöÃt НœèxŠÁë �ЇœƇœ˜“YXËSQ´èfÙ ät ‰‘ˆ.“‰–:&�t äˆ&�t‰Žˆ.�‰”ÿˆÆŒÿY[ÃSQ»œ¹€?uQŠoèYCCâïY[ÃSèÿŠ[ˆÃRºì"ÅþȘŠÌZÃèÝé‹W öxaŠG Àt]Š?³€Î€ÐèsÑêÑÛù@¢¹3í‹õ‹ý‹ÅÑãÑÒÑ×ÑÕÑãÑÒÑ×ÑÕùÑÖÑÐ+þès(þèNâÞÑèÑÞÑèÑÞƒÖ‰6$¢ÃézÄÆÃFâºëÚ¾ëè?é¿èYé3À¢¶£´‹E ätZ‹T ötV‹ß¿ô ¥¥¥¥‹ó¿ì ¥¥¥«š»0¶€ü�vJ Òy1€ü¸w>¾ì ¿¹ó§u1€ì�ŠÌ€áŠÄÐèÐèÐè˜+øŠÒࢶ€&ú ëGé�)Æ ÀyéõÃÃéåÀü€v±�*ÌŠøŠñ €Ï€Ó뉴 Ày€¶¾ì ¿ècÓ¾¿ì ¥¥¥¥€>ó t»ô è€ ¾¿ì èýÔ»è1€¶ëè%)‹´ã&¾¿ì ¥¥¥¥è# ¶¨t¿¾ì ¨uèÆÔëèÕ ¶$€Ãèì(Ñés Q¾ô ¿è¦ÔYãëQÿ6ÿ6ÿ6ÿ6¾ô ‹þèŠÔ¾¿ô ¥¥¥¥����Yë¹¾ëèÛç¿èõç3À¢º£¸‹E ät=‹T ötCÿ4‹ ‰ì £î ‹ßš«0¶€ü�v; Òyi€ü˜w/:u)€ì‘†ÌÒäˆ&º€âëNÇÇ�ÃÆ Àyöé¤Âé•€ü€v±�*ÌŠøŠÝ€Ï€Ó뉸 Ày€ºR¾ì ¿èTϾ¿ì ¥¥ZX€>ï t!PR£‰èè ¾¿ì è{Ðè|ZX€ºëè†ÿ‹¸ã+¾¿ì ¥¥£ä ‰æ è# º¨t¿¾ì ¨uè@Ðëè»Ð º$€ÃèHÿÑés Q¾ä ¿è ÐYãëQÿ6ÿ6¾ä ‹þè о¿ä ¥¥��YëËW¿¥¥_ƒîÇÇËSRP¸� Çy÷Û3Òè`ÏXZ[ëÝW¿¥¥¥¥_ƒîSRP‹€Ï€‹¡ Ä t€Ê¡è[ÏXZ[ˉ&ŒPQ‹D‹ ëK‰&ŒPQèàë@‰&ŒPQV¾èÑ^ë0 äy ,ƒÛÓë÷ÓëX�ÓëëS� ÀyN€> uGKëD‰&ŒPQ¡‹3Û ät1€ì€rÚŠøŠÝ‘±*ÍŠçr;t$€Ï€€> t¬ÓëƒÓp+ äy÷ÛöÔ"çxYX‰Ë�û€u Àtï€> t¨€täéºÀ äxÝë÷‰&ŒPQ‹D‹ ë ‰&ŒPQ¡‹€ü�u… Àx� €ŠøŠÝ€> t«ÐáƒÓs¤ézÀ ÿuËéÖÀ‹D‹ Lt¹ LÃÿ7è·ç[˃?toV‹w‹4è§ç‹Þ·^ËPèëØt/èÿØu “X‰&ŒRS»ëŠØ·X‰&Œ ÿu;RSö  »èôæ‡Ú�‹ÚZËX»ÆËèTæSRP‹&‹ƒúÿtöÂuºJ3Û¸ è«ÍXZ[ËéGÀ Û~ùPQRVW‹ú‹ñ­’‹4‹ Ét?Jy;Ù8ë$‹}Kû+Ê“‹Ù+È~'¬ã$ò®u QVW‹Êó¦_^Yuî+Ù_^YZX‡Úèðæ‡Ùèëæ‡ÚË3ÛëêQ‹Ê‹Ó»šÜF¶‹ÑYˉ&ŒQ3Éë ‰&ŒQ‹+Êè¦Yˉ&ŒJ‡Ñ|ttRP‹+Á~;Â}‹ÐèàæXZ‡ÊBËèë÷è’æ»Æëí‰&ŒR² Ût>|AQP‹ËŠÂŠâèõå‡úAÑéó«‹úXYZˉ&ŒRëÛ‰&Œ‡Úƒ?tSPS‹_Š[èJæ“X‡Úë¾Z»ÆËéÞ¾²ë ²ë²ë²‰&ŒSR»è¢å‡Ú�C�‹ÚË Ò|ÕtR;~‹ É}3ÉèBæZûÆÃ‰¼^&­£¾3ɈÀ&­Z;ÂwÆÀëR÷áYÈ€.¿uå‘÷&¾V‹¼€>ÀuËéʾ€>Dtéf¿€>¦t�¼P°[è<¡¼èë¿è\ò°]è.Xÿ6¼ËÆ¦ËÆ¦ËQRSPè1PÑé¸ ó«sªYó¤‹ú‹óX[ZYè]åËQRSPè‘ó¤‘Ñé¸ ó«sàªë݇ó‡ú­‹ ‹4‹}+ÈsÁ3ÉÃèÇâ‹ó¿Tèü˾¿ä ¥­«€üˆs@€ührS»šË0¶ÿ6¾ä ¿è‡Ê€>t&»¤è†"X ät+±ˆ*̘ €Òè äurà Àxéu½è#ëÛ(wÆÃé#PSV‹6ž öt3öD.€u-€<u€>´ t‹œ³+œºƒë° tè´ÞKëø° è¬Þ° è§Þë° è Þ^[XÃPÿ6žÇžè«ÿ�žXÃÿ6žÇžè{Þ�žÃPÐèÐèÐèÐèèX$�'@'ë×.¬P$èÏÿX¨€tóÃXV‹ðèëÿ‹Æ^ÿà‹ãÊ‹w¬è:ÞâúûùiÆCâúˆÂ», ÇG*¹8 ‰Oèñ׃Á*‰3ÀŽØúÇ KŒÇ$bKŒ&Ç’HKÇ„³Ldž¶LLjÁKÇŠÕKÇ4¢LÇ: JŒ<ûËúŠ$ :ˆt$uBûÃúŠÆë úŠP ˆX4tYûÃúŠ$:ˆuûÃúЍt :t ˆ¨uúŠ4tûÃtøPSQV‹Ë», ŠÅè&׊Áè!×^Y[XþÂûÃúŠ$:ˆt  Â,r¢ÂûÀ>ÂuÏ€>¥tÏ», èÖÖŠàèÑÖ‹ØèÉÿèkÿZ_�WR;&xrÿ¢S3ÀP‰&ÿoéá»ötèUÿËèöûôöäØÃûPSR3ÒŽÚŽº`ì<;r@,;< r< r6Šà° tþÀ€ütþÀ€ütþÀ€üuè°ÿtè ÿBìŠà €îŠÄî° æ ùëøZ[XrÍïϰè‹ÿt èçþƒtYY[à Ét°�ëœÐëÃèkÿtèÇþ2Éõ±ëµ±ë ¹ëµ±K€ùuCÐË:ÝsŠë‹ÁÄè?ÿX_WP‰W‰èŸþËé’º²¸²¸² Ût KƒûsO±è0Ë€út €út ¿ŽJë¿{Jë¿–J¹QW°ÁþȾlLVWéìþ_YâìËŠÃÁèàþ€út€útéöýéþé þé.º²¸²¸²Kƒûsï±èÐÿË ÀtþÈè¤þtèþò¸²¸²2Û±è¯ÿ˲¸²¸²Ð˃ûs¹S±è™ÿX€úu¾œÐàðˆ$ê"A¶€úu°¹PèWþXu þÀâõê.A¶ËVP船£b ƤX^ËšM¶PQS+ŽW3À‹>b OO“¯“v¹ÿÿò®ëô‰>b _[YXËÆâ ëÆâ ë Æâ ëÆâ èUÞS€>¤ušM¶‹6b è¥è<t;Nè¸æèšè<,t Àu/FF‰6b _ â <t¾˜‘Ñé€ùuƒîó¥Ã‹×‹š*¶Ãé¹éû¸èùÝÇŠ‰S3Òÿv »„ è à‹Ó“èàZš*¶Ã3À.‰…–&Ãé-¹Æ´ ǞƵ ËÆ´ ëíèë�Çž\Æ´ ëàèÆ´ ëÖ‰&ŒƒŒVèàt €<t ‰6ž^Ã鮸鱸èvÝ‹ó¿¥¥è ¾¿`é Æ¢á ät_ Àx[=�uƒ>t寀ŠÄ,€˜Pÿ6ÿ6»Âè+¾¿è ¥¥��»Ôè¾è ¿èÍÆ¾¿ä ¥¥[šE¶¾¿ä éþÄéþ·P‹ÃèAPµã° èsÙâùYXË ÿuPQ‹ËëêéC¸P‹ÃHè:Ísèpúµ*ÍëÐ ÿuåPQ‹ËèSÙ*ÌrÍë Ày3ÀRS“èRنĴ“3Ò÷óŠÂè3Ù‘[ZÃÆh ÆëÆh ÆëƉd ‰f èiÜ‹Ó3Û‹ËKè‰Ø€>u ÇÙBAÆÛSšÏ'¶3Ûè—öD.€u7€>uBè`ì<ýu/èj’èf—èb‘€>h t‹>d ‹è>ìrŽÂªâôë<è9éM·è3é2·è-é;·°ýè|ì¡‹Ðè0¡d ‹øè(¡f ‹Èè ŽÂ&ŠGèYìâó3Ûš3'¶Ãèìë“èè듊ãÃPè@ìX†Äé:ì ÿu¾Š‹tþ öt8\ûuô€<uèF3öÃPQRWS¾ˆ‹þ‹tþ öt9\ürò‹Dþ‰Eþ‹Lüë‹ËƒÃèãÝ�w‰Lü‹þ3ÀÑéó«sª[_ZYXÃWëWS¿Š‹ß‹}þ ÿt;þuó‹|þ‰þ[‹>†‰6†‰|þ_Ãé`¶é'¶èÛ‹ó¿¥¥¥­« ätì ÀxèÆ€ŠÄ,€˜P¾¿è´ásXHPþ¾¿LèµÅ¾L¿è“Çþ¾L¿è~Åÿ6ÿ6ÿ6ÿ6»æè3¾¿j ¥¥¥¥����»èÙ¾j ¿èGǾ¿ä ¥¥¥¥[šE¶¾¿XèàÆ¾¿ä é>ÅèiÚéècÚéZè]ÚSR‹Ä‹Æè%r‡È@–è%r‡Ê@—è »˜÷æ‹èÑøÑøÑø÷çr Z;Âw[‰/‰‹ÍøèWèhèf_OuõÃé µèÿÙè´éÒèöÙSR‹Ä‹7V€>»tÑþÎI‹Æ‹×JèsYXþÀ[ùèÑWè™è_OuõÃé´S‹\‡]‰\‹\‡]‰\°S‹\‡]‰\°S‹‡‰[ËS‹\;zr ;|s‰þ‹];zrÑ;|sˉwþëÆé èéŸéµè\Ù‹ó¿Pè¾Å¾¿ä ¥¥¥­«€üˆsâ€üHrÔ»š1¶ÿ6¾ä ¿èÚà,v»¢ÿ6ÿ6ÿ6ÿ6»"è…¾¿ì ¥¥¥¥����»<è+¾¿ì è‘Ã¾ì ¿è�Åþ¾¿LèœÃ¾‹þè-ÅX ät&±ˆ*̘ €Òè äurà Àx 鮳(wÆÃ^¬V¢t ‰r ǞNJpXÇv hS‹r è¸ööt u °?èñÔ° èìÔè`öt uèüõ€>„ ËÃèHØ‹ó¿ä ¥¥¥¥ƒÃè\î3À££è¾¿ì ¥¥¥¥¾ä ¿èÓľ¿ì èãÂþÉ&ŒèZüt€<t‰6žÇv ÆSËé#³é5³ègÔrø Òt< tó¿„ <"u€ú,u è~º""èHÔr@±ÿ€þ"t%< tN< u€ú,tè_è,Ô< tñ< u €ú t€ú,t Àt :Æt :Âtè;èÔsÂ<"t< u'èûÓr"< t÷<,t< u‹žöG.€x èàÓr< tèÃÓ2Àª¾„ à ÀtûªþÉuöYëí‰&ŒP¸wTé A÷TB÷TC÷TD÷TE÷TF÷TG÷TÎØTÏÌTмTÔ²TÌ¢TMÔUX¡dsP€úAsK ÒtGˆÁÀú r=ˆÀÃs63É€úAs/ Òté“s&€ús!ˆ¿ÃsŠÂ ÀtAÃt,PQŠû€ùt»÷ãÓè Àu@YèXŠÃÓè3É ÀuËÐé7Ëéè°è'± tCËéÒ¯ˆ‹ˆVËè¾Ô‹ó¿¥­« ät¨€y$¢è€6€Ã€ü�r¾P¿èO¾è ¾,¿év¼¾D¿èTÛs@¾¿ä ¥¥¾L¿èo¼¾¿ì ¥¥¾L¿ä è–½¾¿Pè@¼¾¿ì è¾è ¾8¿é@¼»�é]‡Ó É~1 À|-;w)VWQ‹Iù+÷Ù;Èr‹È‹ò; v‹ ‹tó¤Y_^‡ÚèeÖËéj¯_&ŠGŒz ‰>x ¢� ‰&~ ‰&| ¢€ ¾„ &ŠG»žטP¢â W‰&ŒUº ,<uŠÖÿv è5Ü]_€>â »rÿwÿ7vÿwþÿwü�>Љt6èõÝþ€ t8<,t«‹&~ è¼ñ?Redo from starôè^ñš=S¶ � Ä>x é|ÿþ€ téyÿ2À ÀuÈÇŠ‰WËè}ñOverflo÷è'ñë­VWQ‹6| NN‹ ‹ù�çþÿ+÷&‰6| €ùt ‹ûÑéó¥Y_^þ� u¿�x �z ‹&~ ÿ.x ‹4‡ò‡Óš*¶‹Ú‹ÖëÕèßÒ•èÆ•‹éè&rJ‹Íè§ ‹6&­=sèÔ‹6&­H£• ‰6‘ ‰6� Æ-£“ Ç� ºè/tSè ZÓ°@èȰÀëÃ鎭藉Õ ˆÓ ¢Š ÀtêyèŸ ëè» râèøtÝèÔ‹Ó Àt ƒû~ Š öØè‡†  ‹ Œ t Š èt¡× £Õ  Ô ¢Ó ¡ˆ +† tŸr’è²t— Àtë‹Ó‹× ŠÔ  Š èKëÙ÷Ø=~H‹È’è âû Š öØè)éfÿ2Àƒ.� r‹6� ­“­‘­’ŠÅ;6“ r‹6&FF‰6� ËÕ ŠÓ Šè¡� ;• s!£� ‹>‘ ‹Ã«‹Á«‹Â«;>“ r‹>&GG‰>‘ Ã隬¡Õ ‡× £Õ  Ó †Ô ¢Ó èZŠÁ¢‹ ÛÃèu‰† ‰ˆ ŠÁ¢Œ ÛÃèWÑÿ7ÿwè=¾¿ì ¥¥��¾è¾ì ¿éíºè-Ñ‹ó¿ èbº€&¿¾pè¹ë èÑ‹ó¿ èGº ¢— $¢¾¿ä ¥¥»š«0¶¾ä ¿èÖ¸€>r�>@€¾h¿r‹÷¿P蹸»¦èë — $€0É&ŒPƼ¸ [éwÕ9[Ä;[Ì@[ÒB[M[[ÅO[ÆK[ÇU[ÈI[Áÿ[Bõ[Nñ[Ãl\Ó \X¡d÷Ú¹ë=÷ڋʺë4÷Ú‹Êë.‹Ê÷Úë(÷Ú‹Êëöè <+t<-œèÂèËRè�<,téF«è½Y�uMèœR‹Ñè–‹ÚZ ¾Ðès(PRSè˜ ŠË‹ÚZSè¥Y[R‡Ó»ÚþÍuúSè“[ÚZ÷ÚXÐès÷Û÷Ú‹ÄËÆ‹Ùèß ¼ÀrPè* XÀs ¡È£Ä¡Ê£ÆÆ¼Ã°@ë°€¼Ã齪sû€úsöˆ¾Ãsï Òtë�ús刽འÀuûÚþÈuú‡ÓŠÆÀœsJÑêÑê�rÀÎÀBÃöÆ€t»i\S÷ÚŠÁ Àu Çu‡Óë 2ä÷âŠò€ŠÔÃ÷ÚÃsŽŠÂèg r‡Ãè;Ïÿ7ÿwÿwÿwèG¾¿ì ¥¥¥¥����¾è¾ì ¿é¼»èÏ‹ó¿èc»€&¿¾l蛹ë èæÎ‹ó¿èH» ¢˜ $¢¾¿ä ¥¥¥¥»š»0¶¾ä ¿èh¹€>r�>@€¾d¿r‹÷¿LèK¹»¼è ˜ $€0ÃPW°¿ž ëPW°¿š ëPW°¿¢ ² V‹ó¥¥^_XËèaÎQ‹é‘‰Ä‰Æè=‹ÝšE¶¾¿è·š¦E¶‰ª 3Ûö² t¾ž °èãS»ÿÿö² t¾š °èÐX;Ãv“P ² ŠÈ$t4t€ñˆ² X£ž ‰š ö² uè`ë'¾¢ ¿¥¥€>�r€² @ƒï¾Pè„·€š¦E¶‰¢ XÑà•3À©uCUP@Ñø£¨ è=‰¬ ÷Ø—•@Ñøè/£® ‹ëǦ èš¡ª £¦ +¨ £¨ ÷ß÷¬ è„X];Ås‹° @‹øÑàHÐx‹ÅÑàH+ÐM‰° —ë›3À£° ¢² ÿ‹ï¥¥3Û8tEö€t ² €6€‹õ¿ è[¶‹õ¿PèíÓw$‹õ¿ä ¥¥‹ª ÑãÑãÑãšE¶‹õ¿ä è3¶š¦E¶Ãéõ§¸P‹Í‹×ÄÆ‹¦ ¡ª Ñà㦠¡¨ Ã;ž tr ;š  ² tr9ö² u%ë4ö² t°÷ë¨t°ï ² èÙsUWèß _]ëèËs è\è=ë¨ tïXHt‡.¬ ÷݇>® ÷ßé}ÿË؋¢ öu÷ à†âö² @t“ÃèG̋󿥥¥­« ät¨€y$¢è€6€Ã€ü�r¾L¿èÑ¸è ¾$¿é½¶¾<¿èÂÒsD¾¿ä ¥¥¥¥¾H¿èÀ¶¾¿ì ¥¥¥¥¾H¿ä èF¸¾¿L胶¾¿ì è‚¸è ¾0¿é�¶»é3 è9è4è/è*è%è èèèè èè�â èuË‹6â .­£â <tJ<t˜‹ó¿+ø‹ÈÑéó¥ë‰€>µ u%èæ×€>´ uP@±è‚è©° è¾Ç€>ã rOwÃéÎèÿ¶ ëí€>µ uó€>´ u‹±èRèNéèiÍëа"è‰ÇèAéè\Ͱ"è~Çë €< uFèY°,€>ã t©ëªèvÇŠÄ´±öñ*ÌŠÁ˜è-v2‘° èGÇâùÃPèbÇŠì€ýÿXt äu PèAÇ*ìXr:Åv è5Ç ätè:è3Àì ÀtúèÇëö‰&ŒPVèÎît7€<u5‹„³£¸ �Ƽ‰6º ^Xˉ&Œ ÒxP)¸ rèÍ¡º ‰‰Gº XËép¥és¥é@¥éa¥‰&ŒPRº”š*¶ZƵ Ƕ £a2À¢À ¢Á XË Á ÀuSèE[ Á ¢À ‹¾ ¨u€>â tTè ‘è8èë0€>â uD‹Ñ‹+ÑsÊèèè6Ì‹Ê É~° èRÆâûë ¡”£¼ ÀtÆÁ ‹6–¡”‹¼ +ÁðãëX餤鰤è"è Æ‰¼ ˆÁ :À tæÃè ¬è Æâ4ëæ»ÿÿIèþ‰¼ ‰¾ ÆÁ Ëé‹þ»¬<\tâC< áö‹÷‹Í°\èÖèÔÅ2ÀŠðèÌŠð¬Ä tÿÄ ‹Æ ŠÿÆ < tç<;tãÄ r¨‹Æ Š'‹_‹óƒÆ ƒ.Ä Ãèàÿ€üu8Xÿ6Æ ÿ6Ä éÚþèÌÿ€üu‹Ãÿ6€üt €üušhE¶ëš[E¶�‹ÓÃéç¡¡Õ =Psùë¡Õ €ü r€ì £Õ ð£Õ Ã¡Õ =ð>rùë¡Õ €ü r-°£Õ Ã€Ä £Õ ÊÁŠ»ÒÓ ŠÈrÃÿÕ ÃŠÁŠ»ÒÓ ŠÈrÃÿÕ ÃŒÆ¸¸ŽÀ‹Õ &ŠŠÓ "Š»ÒêrÒèëøŽÆÃŒÆ¸¸ŽÀ‹Õ &Š2È "Ó &0ŽÆÃQÑꟋڱÓâÓ±Óâžs� ‰Õ ZŠÊö»t€á°€Òè¢Ó ±ÓêÕ Ã€áɰÀÒè¢Ó ±ÓêÕ Ã<sö»t $öØ¢È øÃ±Uöá¢È øÃ » Àt- íx$»€¨uÑë;ËŸrK‹Ë öx �úÈrºÇÞÃ3ÒÃ3ÉŸëè鎠»Õº3ö»tÑëCÒÌƸ¸ŽÀ‹Ó Òtk‹Õ &Š/ Ó ŠàöЊ»ŠÈ "èŠü"û ïJt?ÒÈÒÌsï‹Õ &ˆ/ÿÕ ˆ&Ó ‹ÊÑéÑéö»u�âë�âÑéã« ö  È ‹>Õ óª‰>Õ ëœ‹Õ &ˆ/ˆ&Ó ŽÆÃŸƒÃ‰Í ‰Ê ŠØ Ó 2ÿÐàrþÇëøˆ>Ì žs 2ÿÛ‹‡P£Ñ ÃöÐ&2"Å&0GÃöÕ ÅöÕ& GÃ"Å&GÃ"Å&0GÃèØöÙ€áŠét2ä&ŠGJx1ùÐÜþÍuöÒÈ"àŠÜ‹ê�âÑíÑíÑí&ŠGMxèëô2äÓÈ ÃˆŠÜFÃÒÈ"ÄŠØë$†Ñ´ÿÒì€ôÿŠÊt"ÄŠð2ÀÓèŠøŠÆèÐÿ ÿtQ ÉtMˆFëH�è_µÿÒí‹ê¶ÿÑíÑíÑítŠõè=µÿMuø€ât*†Ê¸ÿÒìöÔŠÊÓèŠø"ìöÖ îè ÿtŠïŠÃÿÑ ‰6Í ÀöÿŠîtóëë¬2äÓÈ ÃŠÜÿ&Ñ ‹Ê ¸¸ŽÀ‹>Õ ‹6Í ŠÌ 3Û2íÊ.È ÀyŠÅèÈý¢É ˆ.È ÃŠÇ2Â"Åt ŠÇ2Æ"Å Ø2øùÊ»ÒÅsG&ˆ=èŸO&Š=žÃŠ»ÒÍs2&ˆ=G&Š=÷Çu%‹Ç±‹óŠüÓè$€çÐìÇ‹ÞAÁ<r,t*Ásúõø¸ŽÀ‹>Õ Š.Ó ŠÉ Š6È 2Û&Š=ýÿÿèÞÿEèŠÿrèqÿrõè•ÿ&ˆ=‰>Õ ˆ.Ó ŠË‹ÝËêè¹ÿèRÿr Mtèsÿsó3íUë#‰>× ˆ.Ô U3íëè3ÿs EèVÿsõè<ÿ‰>Õ ˆ.Ó Z&ˆ=ŠË‹ÝÃ肾&es¾:e“è�¿es¿ïd;Ãr‡÷“‹î‰>Ï ‹ó—‹È‹ÊèWü‹ÖÑú‹ÎA¸¸ŽÀ‹Õ &Š2È "Ó &0×;Ör+ÖÿÏ ÿÕâÞÃCk7k(k!kkj yk„kjjsjsjsjsj sj sj sjŽjKM tsvRSOuG w HP¡‡£Ú Æ‚ ÿ¡Ú £Þ »ˆƒ ¸ÐiP‰&à èµèÔ´è µèÓ´èô´ Àuè›u逾gi¹.:tƒÆâöN€ù vˆ.Z.ÿd:ƒ r ëQ ÛtM°èISÿ6‡Šƒ *˵ItЇ… ˆ‡„ 讵Câò° 覵ZèÓ³[þƒ ‹Þ €þw €útþÊŠ6ÌþÆþΉÞ à ÛtûKéxµSR¹èº 芶¹ôº è�¶Z[‹&à Ã< u'Šˆ€âöÒ€ÂþŠ´ƒ =ÿsư RèZþÊuõÀ>ZtB:ƒ s<�ûÿs§Sÿ6‡�Ü Šƒ µ*ËQŠƒ Чƒ ˆ§„ KâõYAPèЇ„ â÷‹Ü è³X[ˆ‡„ �ûÿs¾CèÛ´:ƒ r ˆƒ ¡‡£Þ Ã:ƒ rßËÚ ³° è"[éŒþ‹Þ èÞ²Šƒ Ë‡è ¡‡£Þ ˆƒ ÃRSè²[ZŠ&ƒ *ã° SR ät Pè}´XþÌëóZ襲[Ã^Šƒ Ƈ„ ÃöZÃQV¾œi±.¬:àt FþÉuõ2Àë.¬ À^YÃS¾‹þèB©[¾¿ä ¥¥‹ó­‘¿¥¥QV¾¿ä è%©^V¿èå§^YƒÆâæÃÿ6ÿ6è¿ÿ¾ä �D�¿éü¨S¾‹þè ¬[¾¿ä ¥¥¥¥‹ó­‘¿¥¥¥¥QV¾¿ä èÿ«^V¿è^ª^YƒÆâæÃÿ6ÿ6ÿ6ÿ6è³ÿ¾ä �D�D�D�¿éÈ«3À££ÇÇ�ËËü þ ‰Ä‰Æ3À£ü £þ énù‹Á+Ès÷ØÃ‹Â+Ês÷ØÃƒùÿu¹†Áè.ùrSR‹Ä‹Æè<ù‰È‰ÊZ[ë¥éò™è´Ì3Û Á ¨tC€>v-t ¨t Æv+¨uþǨu/ߊÂÁŠ&¾ þÌ|Ä¿w À|èçÍ€<0u²ÿ‹ÁŠð´B°ëN ¿ *ÃßþÈy2ÀŠø ¾ þÈy2ÀÇ@þÇè°Í€<0u2À ÿt·‹ÁÂ*Ç¢ ŠÇŠ÷ëöÁ @t H·ö÷ÆþÄöÁ tÆ%GÃ*¿ v<v€Á é@ÿ°%ª2ÀŠÔt öþÀþÅöؘ‘“° Š&Á öÄ t°*óªöÄu v< tªöÄt°$ªŠÎöÞ|þÏu°0ªëþÊu°,ª²°0þËx¬ªâ튾 Ix°.ªt ö~°0ªþÎàûã Û~¤þËàû°0óªöÄt#P¸E+€>â uHŠ ÛyöÛ´-«“Ô 00†Ä«XöÄt vªÆ¾w—+ÆÃMZ­; ¸ ÿÿâÄk " ){¡µÚ0Kf�œ·Òí#>Yt�ªÅàûS�Î7GΰР. J f òcŸÊüOnË+@+E+P+q+|+bm:×+K@ ¸¶ÃÃÃÄ0ÄbÉš+U‹ì�ìšFÑ»«Í?Ç\ÁÇ^ÁÇ`ÁÇbÁÇdÁÇfÁÇhÁÇjÁÇlÁÇnÁ Çà Çà Çà Çà Ç ÃÇ ÃÇÃÇÃÇÃÇÃÇÃÇÃÇÃÇÃÇÃÇ ÃÇ"ÃÇ$ÃÇ&ÃÇ(ÃÇ*ÃÇ,Ã!Ç.Ã$Ç0Ã&Ç2Ã.Ç4Ã>Ç6ÃHÇ8ÃKÇ:ÃÇ<ÀÇ>ÃÇ@Ã…ÇBÆÇDÇÇFýÇHÃÀÇJÃÿÇLÃÇNÃǬÂÇ®ÂDzÂ#¡fÁ£´Â¡ãªÂ¡ ã¨ÂÇ~Á=¡\Á£¸ÂǶ¡^Á£°ÂÇxÁÇzÁ#Ç|Á$Ç€Á?ÇpÁ´ÇvÁÇrÁ·ÇtÁÇÇÁ ÇÁÇÁÇ"ÁÇ$Á»0ĺPÃÍŒ¿Î¾@ÄͦÍ>CÍ>C»Í>B»Í>B»Í>D¸TÃPš*»üƒ>TÃué3ÛÍ><Ç„ÁEÇ‚ÁBÇ–Â`ǘÂcÇšÂf“£VÃÇXûÍ>"“Í>!“‘ºPÃÍ>Í>"‹¬ÂÍ>¸¬ÂP¸\ÁP¸TÃP¸PÃPš`»ü¡\Á;TÃtéáÇZÃH¸NÃP¸\ÁP¸ZÃPšTÑü¸\ÃP¸äÁP¸8ÃPšTÑü¡jÁ£äÁ�>\Ã}é̓Ò¸^ÁP¸–ÂPšTÑü‹\ÃÍ=º^ÃÍŒ‹äÁÍ=ºbÃÍŒ»PÍ= ºfÃÍŒ¸fÃP¸^ÁPPPPP¸˜ÂPšTÑü¸fÃP¸`ÁP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸bÁP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸fÁP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸hÁP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸lÁP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸ÃP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸ÃP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸ÃP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸ÃP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸ ÃP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸ ÃP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸ÃP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸ÃP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸ÃP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸ÃP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸ÃP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸ÃP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸ÃP¸^ÁPPPP¸˜ÂPšTÑü¸fÃP¸ ÃP¸^ÁPPPP¸˜ÂPšTÑü» Í= “»DÄÍ€‹Ó»!Í= ’Í€ºfÃÍŒ¸fÃP¸dÁP¸^ÁPP‹Ø¸ ÃP“P¸˜ÂPšTÑü»Í= “»XÄÍ€‹Ó»Í= ’Í€ºfÃÍŒ¸fÃP¸jÁP¸^ÁPP‹Ø¸ÃP“P¸˜ÂPšTÑü»‹ÓÍ= “»†ÄÍ€‹Ë‹ÚÍ= ‘Í€ºfÃÍŒ¸fÃP¸nÁP¸^ÁPP‹Ø¸ÃP“P¸˜ÂPšTÑü»^ø¤ÄÍ€“»¼ÄÍ€“»bÃÍ€“»äÄÍ€ºfÃÍŒ¸fÃP¸ÃP¸^ÁPP‹ö  ظÃP“P¸˜ÂPšTÑü»üĺfÃÍŒ¸fÃP¸ÃP¸^ÁPP‹Ø¸ÃP“P¸˜ÂPšTÑü¸^ÁP¸šÂPšTÑü»Í>B»!Í>DÍæ‹Ó»RÅÍ™»Í>B‹ÚÍ>DÍæ»dÅÍ™»Í>B‹ÚÍ>DÍæ»vÅÍ•Í>CÍ>C3ÛÍ>DÍ=ºjÃÍŒ’»ˆÅÍ�tð¡`Á£’Â̓Ò¡`Á;’ÂtéÇnûŒÅº Â͌銸nÃPš»üƒ>nÃt黌ź ÂÍŒƒ>nÃté»’ź ÂÍŒƒ>nÃt默ź ÂÍŒƒ>nÃt點ź ÂÍŒƒ>nÃt黤ź ÂÍŒƒ>nÃt黪ź ÂÍŒƒ>nÃt黰ź ÂÍŒ¡^Á;’Âté »¶ÅºàÂÍŒ»ÄźäÂÍŒ»ÒźèÂÍŒ»àźìÂÍŒ¡`Á;’Âté »îźàÂÍŒ»þźäÂÍŒ»ƺèÂÍŒ»ƺìÂÍŒ¸nÃPš»ü¡äÁ£pøé-¸J P¸rÃP¸‚ÁPšTÑü‹rËÓÑãÑã�Ã`»‹Ê‹Ó»ˆÅÍŒA‘£rápÃ;rÃ}Ç»Í>"ÇXËÓ3ÛÍ>!‹Ã‹Ú‘º.ÆÍ>ÍáÍâ»ÊÁÍã»ÞÁÍ㻜ÁÍã‹Ó»ÆÁÍã»ÈÁÍã»ÎÁÍã»ÔÁÍ㻜ÂÍã»ÂÍ㻊ÁÍ㻆ÁÍã»$ÂÍ㻄ÂÍã»ÜÁÍã»ÚÁÍã»"ÂÍã‹ò¿<ÆÍÊwé‡þͦéM¿@ľœÁÍÊré‡÷ͦé9¿@ƾœÁÍÊwé¿DÆÍº»Í=‹ÞÍ´‹ûͨé¿HƾœÁͺ»Í=‹ÞÍ´‹ûͨ¸é$»ÍáÍâ‹tËÓÑã‹Ë�ÃìÀÍã�ÁÁ‹ÙÍãB’£tÃ>tà ~Ò¸é»ÍáÍâ‹vËÓÑã�ÃÌÀÍãB’£vÃ>vÃ~ݸé_»ÍáÍâ‹xËÓÑã‹Ë�à ºÍã‹Ù�Á¢k‹Ã‹ÙÍã‹Øj“Íã‹Øܺ“ÍãÑâÑâ�Â`»‹ÚÍã—‹� º;¶Âé‹^Á‰� º¡xÃ@£xÃ>xÃA~—¸é»ÍáÍâ‹zËÓÑã�Ã@ ÍãB’£zÃ>zÃ~Ý»Í>"‹¶Â�À‹>dÁÑç;�@ |éÇ…@ �Ç ºÇ¢kÇj¸é‹>|ËßÑçÑç�Ç´À¾LÆÍ¦C“£|Ã>|Ã~áÇÂÂ~ÇÄÂ�ÇÆÂ„ÇºÂiǼÂlǾÂoÇÀÂ{¡^Á£ÖÂÇàÁxÇâÁèÇÂÇÒÁÇ®ÁƒÇ°Á[Ç–Á¸ ÇðÁÇŒÁÇ”ÁÇ~ÃÇ*Á¡bÁ£ÔÂÇÒÂ-Ç, Ç€Ã¡äÁ@£‚ûˆÅº„ÃÍŒ¡fÁ£ Á¡ãÞ¡hÁ£¦ÂÇÂ%ÇˆÃ¸é ‹ŠÃºˆÅÍ>=C“£ŠÃƒ>ŠÃ ~êÇÜÂZ¿ô¾PÆÍ¦¿ðÂͦ¡^Á£RÂÇôÁ‹ôÁÑãÍ‚¾TÆÍœ�Ͷ¿öÁͨ¾XÆ¿ÄͲ¿úÁͨÇþÁÇŒÃ ÇŽÃ Ç ÂǤÁÇ�Ã*ÇÂÇ’ÃÇ Â!Ç”ÃÇ–ÃǦÁ$ǨÁ'ǘÃ3ǪÁ0ÇD ÇF ÇHÂ@ÇJ¡\Á£L¡bÁ£N¡jÁ£PÂǬÁÇšÃ9ÇØÁ<ÇœÃNÇžÃÇòÁQÇ2Á]Ç4ÁZÇ’ºÇ¸º#Ç”ºÇººÇ–ºÇ¼ºÇ˜ºÇ¾º!ÇšºÇÀº!ÇœºÇºÇžºÇĺÇ ºÇƺÇ¢ºÇȺǤºÇʺǦºÇ̺ǨºÇκǪºÇк!ǬºÇÒº$Ç®º!ÇÔº$ǰºÇÖº!Dzº!Çغ$Ç´º!ÇÚº$¿ Á¾\ÆÍ¦¡fÁ£rÂÇÊ ÇÈ ÇÌ‹¬ÂÍ>¸rÁP¸\ÁP‹Ø¸vÁP“P¸šÃPšTÑü¸rÁP¸\ÁP‹Ø¸vÁP“P¸¤ÁPšTÑü¸rÁP¸\ÁP‹Ø¸vÁP“P¸�ÃPšTÑü¸rÁP¸\ÁP‹Ø¸vÁP“P¸˜ÃPšTÑü»ÎÁº Ã͌ǤÃǦûÍ>"ÇXËÓ3ÛÍ>!‹Ã‹Ú‘º`ÆÍ>NJûÍ=+÷Óƒ>ŠÃ<ºJ#Ó#Òué»ÍỨÃÍ…¡ŠÃ@£ŠÃéÐÿ¡ŠÃH£¤Ã»ÎÁÍ=¿jÆÍͺsJÍ=¿rÆÍÍ»vK Ú#Ûtéø 3Àé/3Àé¸÷.¬ÃŠÃÑàÑàh¼’»ˆÅÍŒ¡¬Ã@£¬Ãƒ>¬Ã~Ú¡ŠÃ@£ŠÃƒ>ŠÃ~ÇÇ®ÃǰûžÅºl¼ÍŒ»Í>"ÇXËÓ3ÛÍ>!‹Ã‹Ú‘º`ÆÍ>NJûÍ=+÷Ó‹Ó‹ŠÃÍ�»ÎÁÍ��Í=ÍÑ�»wK#Ú#Ûué»ÍỨÃÍ…¡ŠÃ@£ŠÃéÁÿ‹ŠÃÍ�»ÎÁÍ��Í=ÍÑ�wé, »¨ÃºzÆÍ= “£²Ãƒ>²Ãué ‹²ÃJ»¨ÃÍ= º´ÃÍŒ‹Úº€Æ‹ËÍ= “£¸Ãƒ>¸Ãté‹ÙºÍ= ‹Ñ͌鋸ÃJ»´Ã‹ËÍ= ºÍ= ‹ÑÍŒ»´Ãºh¼ÍŒ»¨Ã‹ÓÍä+²Ã‡Ó‹ËÍ= ‹ÑÍŒƒ>°Ãué⻨úzÆ‹ËÍ= “£²Ãƒ>²ÃtéǰËÙÍäC“£²Ã¡®Ã@£®Ãƒ>®Ã~é©‹²Ã‹ÚJ‹Ë»¨Ã‹ÃÍ= ººÃÍŒƒ>°Ãté“‹ÓÍä+Ù‡Ó‹ËÍ= ‹ÑÍŒ»ˆÅ¸ºÃÍ�uéhÿ»ºÃº†ÆÍ= “£ŠÃƒ>ŠÃué¸ ÷.®Ãh¼‹ŠÃJ»ºÃÍ= ’ÍŒ‹ÚÍ=Í¥¿¾Ãͨ‹÷ÍÒsé㻺ËÓÍä+ŠÃ‡Ó‹ËÍ= ‹ÑÍŒ‹ÙÍ=Í¥¿¾Ãͨ‹÷ÍÒw鸻ˆÅ¸ºÃÍ�u铺Í= Íå“£ŠÃé阃>ŠÃ »uKƒ>ŠÃ+ºuJ Óƒ>ŠÃ-»uK Úƒ>ŠÃ.ºuJ Óƒ>ŠÃ/»~Kƒ>ŠÃ:¹}I#Ë Ê#Éué.¸ ÷.®Ãl¼»ºÃº‹ËÍ= Í€’ÍŒ‹ÙÍäK‹Ã‹Ù’Í= ‹ÑÍŒé_ÿƒ>ŠÃ,ué ƒ>ŠÃ/»tK‹Ó»ºÃ‹ËÍäK‹Ã‹Ù’Í= Í=ÍÕ»uK#Ø#ÛtéໞŸl¼Í�téÓ»ºÃ‹ÓÍäK‡ÓÍ= Í=Í¥¿ÂÃͨ‹÷¿ŒÆÍÊv鬿¾Ã¾ÂÃͲ»Íœ�Í=‹Þͼ‹ûÍÌté#»ÄÍ=»Í=º´ÃÍŒ‹ÚÍäK‡ÓÍ= ºl¼ÍŒé̓ú¸ ÷.®Ãp¼»ÂÃÍ=Íä‹Ó»ºÃ‹ËÍä+Ú‰^þ‹Ù‹VþÍ= ’ÍŒ’»ˆÅÍ�ué1¸ ÷.®Ãp¼“º‹ËÍ= ‹ÑÍŒ¸ ÷.®Ãl¼¿Âþ¾ÃͲ»Í=’ÍŒéSý¸ ÷.®Ãl¼“ºÍ= “»�ÆÍ�té “»ºÃ‹Ó̀͌¸ ÷.®Ãp¼»ºÃºÍ= ’ÍŒéý‹®Ã‹ÓÍ=‹Êºp¼ÍŒÇÆÃ‘£ÈÃ3Àé`¡®Ã£ÊÃ3ÀéE¡¬Ã;ŠÃué5‹Ø¸ ‹È÷.ŠÃp¼“ºÌÃÍŒ÷ép¼“ºÐÃ͌̓«¡^Á;ÔÃtéÇÆÃ¡¬Ã@£¬Ã¡ÊÃ;¬Ã}¯¡ŠÃ@£ŠÃ¡ÈÃ;ŠÃ}”»Í>"ƒ>ÆÃué"»–Ƹt¼‹ÓÍ€Í=ÍÕ»wK‹Ë‹Ú¸x¼Í€Í=ÍÕ»wK Ù#Ûtéð»–Ƹt¼‹ÓÍ€Í=‹Ú¸x¼Í€Í��Í=͹�¿jÆÍÍséÉ¡®Ã£ÖáÖãØÃ¡`Á顊ËØ+^Áº‹Ê÷é‹Ð\ÁÑàÑàh¼‰^þ»–Ɖ^üÍ€Í=¿ÚÃÍ©^ÁÑâÑâ�Âh¼’‹^ü‹ÓÍ€Í=¿âÃÍ©‹Ú‘÷nþ‹Ð\ÁÑàÑàh¼‹ËÍ€Í=¿êÃÍ©^ÁÑâÑâ�Âh¼‹Ù’Í€Í=‹ß¿òÃÍ©‹óÍÓºuJ‹÷ÍÓ»uK Ú#Ûté¿âþÚÃͳ¿òþêÃÍ��ͳÍÑ�réù¡ŠÃ@£ŠÃ¡ØÃ;ŠÃ|é/ÿ»ÎÁºÌÃÍŒ» ÃºÐÃ͌̓«ƒ>ÔÃté9»Í>B»Í>DÍæ»œÆÍ•»ÎÁÍ•»°ÆÍ•»h¼Í•»Í>B»Í>DÍæ»¼ÆÍ•̓™»–ƺÌÃÍŒ¡®Ã£úá^ÁéD¸÷.ŠÃ`ÁÑàÑàh¼“ºÐÃ͌̓«¡^Á;ÔÃté¸÷.ŠÃ`ÁÑàÑàh¼’»�ÆÍŒ¡ŠÃ@£ŠÃ¡úÃ;ŠÃ}°¡\Á;Âté(ÇüÃTÇÁƒ¸TÃP¸üÃPšTÑü¡\Á;TÃu鎡^Á;ÂtéÇÁƒ¸–ÃPšTÑü阡bÁ;»uK¡fÁ;ºuJ Ó¡hÁ;»uK Ú#Ûué*ÇÁƒ¸žÃPšTÑü¡^Áé¡þÃ@£þÃ�>þü~ñé<¡jÁ;Âté0ÇÁƒÇÄ6¸ÄPšTÑü¡^Áé¡þÃ@£þÃ�>þü~ñ鋬ÂÍ>¸’ÃPšTÑü̓Çø\ÁP‹Ø¸®ÂP¸|ÁP“P¸€ÁP¸pÁP¸ÃP¸ ÂPšTÑö  ü‹¬ÂÍ>‹^ÁÑã�Ã@ “P‹`ÁÑã�Ã@ “P‹bÁÑã�Ã@ “P‹dÁÑã�Ã@ “P¸rÁP¸\ÁP‹Ø¸vÁP“P¸2ÁPšTÑüÇĈ¸¶ÁP¸¸ÁP¸ÄPP¸4ÁPšTÑüÇXûÍ>"‹Ó3ÛÍ>!‹Ã‹Ú‘ºÔÆÍ>Í>"‹ÚÍ>Í=ºjÃÍŒ’»ˆÅÍ�tð͋̓ÒÍ=ƒû5ºuJƒ>XûuK#Ú#Ûué »Í>B»Í>DÍæ»àÆÍ•»PÃÍ•»êÆÍ•é¿Í=ƒû5ºuJƒ>XûuK#Ú#Ûué»Í>B»Í>DÍæ»ÇÍ•é‰Í=ƒû5ºuJƒ>XûuK#Ú#Ûué»Í>B»Í>DÍæ»VÇÍ•éSÍ=ƒû5ºuJƒ>XûuK#Ú#Ûué»Í>B»Í>DÍæ»�ÇÍ•é»Í>B»Í>DÍæ»ÊÇÍ•Í=Í”»ÚÇÍ•»Í>B»Í>DÍæ»òÇ͕̓™̓ÒÍ>̓Ò»Í>B»Í>DÍæ‹Ó»ÈÍ•»Í>B‹ÚÍ>DÍæ»PÈÍ•é´ÿƒ>¦Ãté,̓Ò»Í>B»Í>DÍæ‹Ó»xÈÍ•’顊Ã@£ŠÃ�>ŠÃ¼~ñ‹¤Ã‹Ó+¦ÃÍ=‹ÊºÎÁÍŒ¡¦Ã@£¦Ã;¦Ã|é»Í>B»Í>DÍæ»®ÈÍ•éDÿé•õ̓Ò»Í>B»Í>DÍæ»ÞÈÍ•»PÃÍ•»ìÈÍ•éÿ̓Ò»Í>B»Í>DÍæ»ÉÍ•éÿ»ÌË^Á‹ËÍ= “»�ÆÍ�té‹ÙÍä+ڋËْÍ= ‹ÑÍŒéÔÿ»ÌË^Á‹ËÍ= “»�ÆÍ�té‹ÙÍä+ڋËْÍ= ‹ÑÍŒéÔÿ»ÐË^Á‹ËÍ= “»�ÆÍ�té‹ÙÍä+ڋËْÍ= ‹ÑÍŒéÔÿ»ÐË^Á‹ËÍ= “»�ÆÍ�té‹ÙÍä+ڋËْÍ= ‹ÑÍŒéÔÿ¡^Á£ÔûÌÃÍ䓣ĻÐÃÍ䓣ġÄ;Ä»tK‹Ð¡\Á;ĹuI Ë;»uK Ù#Ûué£ÔÃé¡^Á£Ä¡^Á;ÔûuK‹Ð¡Ä;Ĺ|I#Ë#ÉuéÙ‹Ê»ÌËÄÍ= Íå“£ Ä»ÐÃÍ= Íå“£ ă> ÄA»}Kƒ> ÄZº~Jƒ> Äa¹}I#Ê Ëƒ> Äz»~K Ù#Ûué¡ Ä; Äué ¡\Á£ÔÃéjé]ƒ> Ä@»~Kƒ> Ä[º}J#Ó#Òué ¡ Ä £Äé ¡ Äàÿ£Ä¡ Ä; Ä»tK¡Ä; ĺtJ#Ó#Òué¡\Á£Ôá^ÁÄ£ÄéÿÍ‹ÇÄ$¸ÄP¸ÄP¸ÄP¸ÄP¸ÄPšTÑüÍ‹‹^ÁÍ>BÍ>D̓¡\Á£ċءbÁ£Ä“£Ä£Ä̓®Í>CÍ>C‹\ÁÍ>D͋ǒø’ÃPšTÑü¡^Á£Ä£ÄÍ‹Í>1»Í>B»Í>DÍ>Í>+d«D%èýmžÌŠÒJœ�gQhú”i;nQo=‹Bþ‰«PF™:‘¨¼�¼ôTœ®€×ZFdF/nF¬ŒF©‚FŸxF®@œU‹ì´Í!‹~2ä6‰]ÊU‹ì‹v‹€â´Í!]Ê BLDÿÿU‹ìŒÈŽØ‹v&‹ ƒù } Éu%°é˜IC.�>@ƒù} Éuë$¹&ŠˆGCâ÷ë&‹\.�>8&Š<.tЈGCâó‹v &‹.£\‹v &‹.£^.�7´Í! Àt°ë=.‹^.¡\ŽØ´Í!.ÇE.ÇXÿÿ.ÇZ.�7´$Í!.�7´'¹ÿÿÍ!2À‹~2ä&‰´.�7Í!]ÊU‹ìŒËŽÛ¹Q´Ír´¶²±–µ(°ÍYsâæ´ë�´ŠÄ2ä‹~&‰]Êó¥ŽÚ‹. ‹Å+Â=r¸^_‹Õ+бÓàŽÒ‹àWV-P‹ð‹ø@‘ýó¤üX¹pÉÿ. °¿°¢ _^‰&VWË_^[VWÿ6ÿ7Ë 4ÄCDMINDST.BLDoyHÄC A D D R A F T)\ÄRelease 1.40 - (C)Copyright: June 1984ŠÄPERSONAL CAD SYSTEMS, INC.¨Ä This computer hasÕ#ÀÄ K-bytes of memory and will supportðèÄ database layers. RÅ Press any key to begin. VÅ _______ ‘ hÅ p - c a d ¦ zÅ ŒÅ�ÅA–ÅBœÅC¢ÅD¨ÅE®ÅF´ÅG ºÅCPATTR.EXE ÈÅCPDIM.EXEI ÖÅCPHELP.EXE äÅCPPLOT.EXE òÅB:CPATTR.EXE ÆB:CPDIM.EXE’ ÆB:CPHELP.EXE "ÆB:CPPLOT.EXE 2ÆCPINFO.CFG†@‚zŠ@ŽH† „€‰7ˆ6ú{dÆCP.DBU�p†~Æ,„Æ/ŠÆ=þ�”Æ šÆ#ï ÆCurrent DBU is #´Æ, i.e. UÀÆAny key to continueØÆCP2.EXEäÆFile .*îÆ not found on disk ..... can NOT continue!9ÇFile CPINFO.CFG not found on disk ..... can NOT continue!6ZÇFile CP2.EXE not found on disk ..... can NOT continue!5”ÇFile CP.DBU not found on disk ..... can NOT continue! ÎÇDOS ERROR #)ÞÇ Can NOT continue!öÇPress any key to abort =ÈThis computer does not have enough memory to operate CADDRAFTv$TÈA minimum of 256 K-bytes is required2|ÈDefault DBU error ...... Searching for a valid DBU,²ÈError in CP.DBU file ..... can NOT continue! âÈError in UðÈ ..... can NOT continue!E ÉMicrosoft Mouse driver has not been installed ..... can NOT continue!ÿÿºKŽÚ&‹>ŽÂW¹ ¾ñ¿ üó¤±3ÀóªŽÚ_´º Í! Àt=Æ ´Í! Àt0º¼´ Í!Æ"º"´ Í!€>#uâ $$ß,@tÙ<wÕ¢ ë¸3À£; £= @£( º ´Í!¹º ´'Í!¡ %àÿ£; Ç( ‹ J±Óâ+С ±ÓèЉ +úƒïŒÖ‹ÜƒÃ±Óëó;þs鳋ïŽß3Ò´Í!‹ º ´'Í!) u&¡ £; Ç( º ´Í!ƒ> t"´'º ¹Í! Àui‹> ¡ ÅŽÀ&-ÿ uÞ[. ŽÝ¹3ö‹þüó¥¸×ŽØ¹++ÈÑáÑáÑḎŽÀ3ö3ÿó¥ŒÑŒØ+È�ùv¹ÑáÑáÑáº×ŽÂ3ö‹þêѺ�뺦´ Í!3ÀPË Error in EXE file $ Program too large $ Cannot find A:BASRUN.EXE Enter new drive letter: $BASRUN EXEéÇ.ÅÇ¡`Á;Ä|éÇ.Å�¡bÁ;Ä|éÇ.ÅóÇ0Åd¡0Å£2Å¡lÁ£4Å‹*Å+$Å^Á÷ëbÁ£6Å¡6Å£8ÅÍ‹¡^Á;&Äué\¡Ä£:šģ<šģ>šģ@šģBÅ¡ Ä£DÅ¡"Ä£FÅ¡$Ä£HÅ¡(Å£JÅ¡*Å£LÅ¡$Å£NÅ¡&Å£PÅ¡,Å£RÅ¡2Å£TÅ¡8Å£VÅÍ‹¡\Á;&Äuéh¡:ţġ<ţġ>ţġ@ţġBţġDÅ£ Ä¡FÅ£"Ä¡HÅ£$ö  MZ 9`  ÿÿÑŒì A )§ì Å ó )Õý%Mu‘H#w«ëv™¿ëC[Ðò>fˆªÑß!"7"_"‡"µ".#N#j#”#´#Ð#Š%�'„+º+ð+&,S/‰/¿/0F0|0»0ñ0'1x1®1ä1#2Y2�2à23L3aA BªDÎDEBE˜L M¹M-N™O«R_^_Á@ÁEÁPÁqÁ|Ábmx_+Áá@ ¸¶ÃÃÃxÅ ÅòΚÁU‹ì�ìšC%‹¬ÂÍ>ÇÈ¡ØÂ£áÚ£ûÁOÍ?¡`Á;»}K¡^Á;ÖºuJ#Ó#Òué£Ãé¡lÁ£ájÁ;Âté¡\Á£ áfÁ£ Ãé Ç Ãh¡nÁ£ á\Á;\ÂtéóB¡^Á£Ã̓n̓‹¬ÂÍ>éa » ÅºÃÍŒÍ=ÍŒ¡\Á£ËÚÍä;`Áté¡`Á£Ëڋ^Á‹ËÍ= ‹ÑÍŒé¡^Á£á^Á;Ãté ¡\Á£Ãée8¡\Á£îÁ̓­ » Å¸ÃÍ�ºuJ¡\Á; »uK¡^Á;ùuI Ë#Ê#ÉuéãáÃ;Ã|é̓=éVÿéSÿ¡\Á£û Å‹Ð¸ÃÍ�¹uI¡^Á; »uK#Ù;îÁ¹uI#ˋء`Á;º~J#Ñ#Òué“£Ãé » Å¸ÃÍ�ºuJ¡^Á; »uK#ڋС\Á;îÁ¹uI#ˋء`Á;‰^þ»}K#Ù¡ÖÂ;Fþ¹uI#Ë#Éué ’£Ã̓=éé%¡\Á;Ãté̓u#¡"Á;²Á|飲ÁéJ éG » Å¸ÃÍ�ºuJ¡^Á; »uK#ڋС\Á;îÁ¹uI#Ë#Éué’£ÃéF ¡\Á;Ât鸶ÁP¸¸ÁP¸ÃPP¸4ÁPšQ%ü¡\Á;îÁ»}K¡bÁ;îÁº~J#Ó#Òué ÇÃXéï¡^Á£ûÃÍå“£ËӋ¬ÂÍ>¡hÁ;Ãté)¡\Á;RÂté’£R»¤Åº ÃÍŒé¡\Á£R»ªÅº ÃÍŒ¡hÁ;Ãté̓p» ø²ÅÍ€º$Ã͌̓à ̓Ú̓p¡nÁ;Ãté̓Q_̓6̓³̓¡&̓p¡jÁ;Ãté¡^Á;ÚÁté »ÆÅº(ÃÍŒé»Ôź(ÃÍŒ¡jÁ;Ãté̓‹ÜÁÍ=¸äÅÍ€“»øÅÍ€“»(ÃÍ€º$Ã͌̓à ̓:¸ ‹Ø÷.\Á—>ÜÁÑç‹Ó‹�ìÀÍ=¸ÆÍ€“» ÆÍ€‹Ê‘÷.^Á—>ÜÁÑç‹Ó‹�ìÀÍ=’Í€º$Ã͌̓à ̓Ú̓Ú̓pé ƒ>à té¡\Á;¤Âté ¡^Á£¤Âé¡\Á£¤Âƒ>Ã?»uK¡\Á;˜ÁºtJ#Ó#ÒuéL»ƺ,Ã͌̓̓p»Í>"‹Ó3ÛÍ>!‹Ã‹Ú‘ºèÂÍ>Í>"‹¬ÂÍ>̓}̓p»(ƺ$ÃÍŒÍƒà »èÂÍ>ƒ>Ãté̓ ƒ>ÃX»uKƒ>ÃxºuJ Ó#Òué ÇîÁéÛƒ>Ãté>̓̓:»0ƺ$Ã͌̓à ̓ »DƸ0ÃÍ�ºuJ»JÆÍ�¹uI Ê#Été>Z̓pƒ>à té ¡`Á£îÁ逃>ÃD»uKƒ>ÃdºuJ Ó#Òu顲Á£¡´Á£Â̓˜ƒ>ÃP»uKƒ>ÃpºuJ Ó¡^Á;ûuK#Ú¡`Á;º}J#Ó#Òué ¡\Á£4Ãé¤8ƒ>"Âté-¸ ‹Ø÷.\Á—>ÜÁÑç‹…ìÀ£6Ó÷.^Á—>ÜÁÑç‹…ìÀ£8Ãé ¡ÆÁ£6áÈÁ£8Ã>ÃS»uKƒ>ÃsºuJ Ó#Òué.̓‹ÆÁÍ=¸PÆÍ€“»bÆÍ€‹Ó‹ÈÁÍ=’Í€º$Ã͌̓à ééE̓:»lƺ$ÃÍŒÍƒà ¡^Á£:Ã̓ï¡\Á£:û Å¸0ÃÍ�té̓p颻0ÃÍ=‹Ó‹^ÁÍ��Í�ÍÑ�»sK‹Ë‹ÚÍ=¿‚ÆÍÍ»vK Ù#Ûuš»0ÃÍ=‹Ó‹ÆÁÍ��Í�ÍÑ�uéP‹ÚÍ=Í£“£ÆÁ¡ªÂ£<ÃÇ>Ã»ŠÆº$Ã͌̓à Ç>à ‹ÆÁÍ=¸¢ÆÍ€“»bÆÍ€‹Ó‹ÈÁÍ=’Í€º$Ã͌̓à ̓:»¨Æº$ÃÍŒÍƒà ¡^Á£:Ã̓ï¡\Á£:û Å¸0ÃÍ�té̓péÓ»0ÃÍ=‹Ó‹^ÁÍ��Í�ÍÑ�»sK‹Ë‹ÚÍ=¿‚ÆÍÍ»vK Ù#Ûuš»0ÃÍ=Í£“£ÈÁ̓pƒ>ÃG»uKƒ>ÃgºuJ Ó#Òué¡^Á;"Âué£"Âé¡\Á£"ƒ>ÃH»uK¡`Á;úuJ#Ó¡\Á;»uK#Ú#Ûué=¡^Á£@˰ÁÍ‚¿BÃͨ‹8Ã͂ͬͨ‹÷¿¾ÆÍÊwé ǰÁÿé\¡8ðÁ£°ÁéOƒ>ÃK»uK¡`Á;úuJ#Ó¡\Á;»uK#Ú#ÛuéA¡^Á£@Ë®ÁÍ‚¿FÃͨ‹6ÃÍ‚‹÷ÍÆ‹þͨ‹÷¿ÂÆÍÊré Ç®Á€éë¡®Á+6ã®ÁéÞƒ>ÃP»uK¡`Á;úuJ#Ó¡\Á;»uK#Ú#ÛuéA¡^Á£@˰ÁÍ‚¿BÃͨ‹8ÃÍ‚‹÷ÍÆ‹þͨ‹÷¿ÂÆÍÊré ǰÁ€éz¡°Á+8ã°Áémƒ>ÃM»uK¡`Á;úuJ#Ó¡\Á;»uK#Ú#ÛuéF¡^Á£@Ë®ÁÍ‚¿FÃͨ‹6Ã͂ͬͨ‹÷¿¾ÆÍÊwéÇ®ÁÿDzÁ£Âé¡6îÁ£®Áé÷ƒ>ÃH»uK¡`Á;úuJ#Ó¡^Á;»uK#Ú#Ûué ¡´Á+Á£´ÁéŃ>ÃK»uK¡`Á;úuJ#Ó¡^Á;»uK#Ú#Ûué ¡²Á+Á£²Á鈃>ÃP»uK¡`Á;úuJ#Ó¡^Á;»uK#Ú#Ûué ¡Á´Á£´ÁéKƒ>ÃM»uK¡`Á;úuJ#Ó¡^Á;»uK#Ú#Ûué ¡Á²Á£²Áééž̓u#̓ ¡^Á;Âté¡£²Á¡£´Áéèé«¡\Á£ ¡`Á;Â~é¡`Á;ÂtéÍ‹¡`Á;Â}阸ØÂP¸ÚÂP¸îÁP¸ÂPšQ%ü¡\Á;îÁté¡jÁ£îÁÍ‹¡hÁ;îÁté ¡^Á£îÁé,ƒ>îÁté ¡`Á£îÁéƒ>îÁté ¡^Á£îÁé¡\Á£îÁ¡ØÂ²Á£²Á¡´Á+Ú£´Á¡^Á£ ¡\Á;îÁ|é£@ÃÍ‹¡bÁ;»uK¡fÁ;ºuJ Ó¡hÁ;»uK Ú¡jÁ;ºuJ Ó#Òu鏨ÂP¸ÚÂP¸îÁP¸ ÂPšQ%ü¡`Á;îÁ|é¡jÁ£îÁ¡^Á£JÃÍ‹¡^Á;JÃté¡\Á£JáØÂ£áÚ£á^Á£ Â;ÖÂt鋨¡ ãLÓé¡NÃ@£NáLÃ;NÃ}ð¡^Á;ÖÂté¡‹²ÁÍ‚‹ØÂ‹Ó+ÃÍœ�Í‚‹ ÃÍœ‚͂͜ƒÍ¸‚Ͱ�Í¢“£²Á‹Ë‹´ÁÍ‚‹Ú‹Ã+ÃÍœ„Í‚¿ˆÅÍ´ÍȄ͢“£´Á¡Ã+Â#À}÷Ø;`Áº}J¡Ã+Ã#À}÷Ø;`Á»}K#Ú¡\Á;îÁºuJ#Ó#Òué‘£Ãé¡\Á£á^Á;ÖÂté¡ØÂ£áÚ£ÃÍ‹¡8Á;ØÂ»}K‹Ð¡:Á;ØÂ¹~I#Ë¡<Á;Ú»}K#Ù‹È¡>Á;Ú‰^þ»~K#^þ#ÛuéF‹ØÂ+ÚÍ‚¿LÁͼ‹vÁÍœ�͂Ͱ�Í¢“£²Á‹pÁÍ‚‹ÚÂ+ÙÍœ‚Í‚¿PÁͼÍȂ͢“£´Á¡^Á£ÃÍ‹‹ØÂ+@ÁÍ‚¿TÁͼ¿BÁͬ¿PÃͨ‹ÚÂ+FÁÍ‚¿XÁͼ¿HÁͬ¿TÃͨ̓û$¡Xã®Á¡Zã°Á¡\Á£ÃÍ‹¡^Á;Âué¹Íƒª$鲸$ÃP¸<ÃP¸>ÃP¸ºÂPšQ%ü»$ÃÍä>ö  Ã^Á“£>ÃÍ‹¸\ÃP¸<ÃP¸>ÃP¸¼ÂPšQ%üÍ‹¡^Á;Âté¡£²Á¡£´ÁéR‹®ÁÍ‚¿æÁÍÌwé‹÷Í “£®Á‹°ÁÍ‚¿êÁÍÌwé‹÷Í “£°Á¡ÂÁ;®Á飮Á¡ÄÁ;°Á飰Á̓u#¡^Á;²Á飲Á¡~Á;²Á|飲Á¡^Á;´Á飴Á¡rÁ;´Á|飴Á̓ ¡^Á;Âuéæñ¡\Á;Ãté+¸²ÁP¸´ÁP¸¶ÁP¸¸ÁP¸4ÁPšQ%ü¡²Á£¶Á¡´Á£¸Áé¯ñ¸²ÁP¸´ÁP¸ÃPP¸4ÁPšQ%ü¡²Á£¶Á¡´Á£¸Áé‡ñ¡\Á£á¨Â£<ÃÇ>Ã>ÞÁ |é‹ÞÁÍ=¸ÆÆÍ€º$ÃÍŒé ‹ÞÁÍ=º$ÃÍŒÍƒà ¡^Á;"Âté»Ìƺ$ÃÍŒÍƒà ¡\Á£^ã`ÃéW¡`Á;"Âté»Òƺ$ÃÍŒÍƒà ¡\Á£`Ãé6¡bÁ;"Âté»ØÆº$ÃÍŒÍƒà ¡\Á£^Ãé»ÆÆº$ÃÍŒÍƒà ¡\Á£^ã`á¨Â£<ÃÇ>á®Á£\Ã̓ Ç>Ã!¡°Á£\Ã̓ Í‹¡$Á;²Á»K¡|Á;²Áº|J#Ó#Òué)¡´Á™÷>Á“Í="ƒÃ“£ƒ>Â$é ÇÂ$éé|¡|Á;²Á|é*¡´Á™÷>Á“Í="^Á“£ƒ>Âé ÇÂéIéF¡^Á;Âté8̓ª$¡\Á£bá£dÃ̓U¡šÁ£dábÁ£bÃ̓U¡\Á£ÂÇÂ(ÇÃX͋͋¡\Á;»uK;úuJ#Ó#Òu鸶ÁP¸¸ÁP¸ÃPP¸4ÁPšQ%ü¡^Á£Â;îÁ»uKƒ>º}J#Ó¡\Á;»}K#Ú#Ûué ̓m̓KÍ‹¡^Á;îÁ»uK‹È¸‰Fþ÷.\Á—>˜ÁÑç‹•�º;¸H#Ñ÷nþ—>˜ÁÑç‹��º;º|J#Ñ#Òué+¡\Á£bášÁ£dÃ̓U¡£šÁ£dábÁ£bÃ̓U¡^Á£ÂÍ‹¡Â;»uK¡\Á;îÁºuJ#Ó#ÒuéÍ‹¡Â;Âué £dá\Á£bÃ̓U¡£‹ء`Á£bÓ£dÃ̓U¡bÁ£bá˜Á£dÃ̓U¡šÁ£dÃ̓U͋̓ ̓Í‹¡\Á;dûuKƒ>dÃ$º~J Ó#ÒuéÍ‹ƒ>dÃ|é¡|Á£fádãhÃé¡xÁ£fádÃîÿ£háÁ‹Ø÷.hãjáÁfãlájÃ+ãnørÁP¸\ÁP¸€ÁP¸pÃP¸¤ÁPšQ%ü¸fÃP¸jÃP‹Ø¸lÃP“P¸bÃP¸rÃP¸tÃP¸þÁPšQ%ü¸fÃP‹Ø¸jÃP“P¸nÃP¸bÃP¸rÃP¸tÃP¸þÁPšQ%ü¸lÃP‹Ø¸jÃP“P¸nÃP¸bÃP¸rÃP¸tÃP¸þÁPšQ%ü¸fÃP¸nÃP‹Ø¸lÃP“P¸bÃP¸rÃP¸tÃP¸þÁPšQ%ü¸rÁP¸\ÁP‹Ø¸vÁP“P¸¤ÁPšQ%üÍ‹¡\Á£vÃÇÃD;ÚÁté ¡^Á£ÚÁé¡\Á£ÚÁ̓}¿ºÁ¾æÁ͸ ‹Ø÷.\Á—>ÜÁÑç‹Ó‹�ìÀÍœ�͂͸�¿ÞÆÍÌ»sK¿¾Á¾êÁÍ‹ʑ÷.^Á—>ÜÁÑç‹Ó‹�ìÀÍœ‚͂͸‚¿âÆÍÌ»sK#Ú#Ûté�ƒ>ÃD»tKƒ>ÃdºtJ#Ó¿ºÁ¾æÁÍ‹ڸ ‹È÷.\Á—>ÜÁÑç‹Ó‹�ìÀÍœ�͂͸�¿ÞÆÍÌ»vK¿¾Á¾êÁÍ‹‘÷.^Á—>ÜÁÑç‹Ó‹�ìÀÍœ‚͂͸‚¿âÆÍÌ»vK Ú#Ù#Ûué͋̓OÍ‹¿æÆ¾œÁÍÊwé¿êÆÍºÍ¢“£xÃÇzÃé¿îƾœÁͺ͢“£xÃÇzÃ}ÿ¿¾Æ¾æÁÍÊ»vK¾êÁÍʺvJ Ó#ÒuéÍ‹¸ÂÁP¸ÄÁP¸ ‹Ø÷.\ÁÜÁÑàìÀP“÷.^ÁÜÁÑàìÀP¸xÃP¸zÃP¸ØÁPšQ%üÍ‹¡^Á;vÃté͋̓:»òƺ$Ã͌̓à ̓Ô̓:¡^Á£vÃÍ‹¸ ‹Ø÷.\Á—>ÜÁÑç¡ÂÁ‹È™÷½ìÀ+ʋӋÙÍ‚¿ºÁͨ‹Ú’÷.^Á—>ÜÁÑç¡ÄÁ‹Ø™÷½ìÀ+ÚÍ‚¿¾Áͨ͋¡²Á£¡´Á£Â̓ ¡^Á;îÁ»}K;|úuJ Ó¡\Á;ûuK#Ú#Ûtéø¡\Á£á^Á;»uK;~úuJ Ó#Òué ¡\Á£~ÃéB¡`Á;»}K¡\Á;ÖºuJ#Ó#Òué̓ é¡\Á;@Ãté̓ª$̓ ̓u#̓Ø‹˜Á͉Ããã©ý㩩é%%ãã|9ýý]Né|÷̓}̓p»(ƺ$ÃÍŒÍƒà »ÇÍ>̓}̓p»(ƺ$ÃÍŒÍƒà ¡^Á£d»ÇÍ>̓}̓p»(ƺ$ÃÍŒÍƒà »ÇÍ>̓}̓p»(ƺ$ÃÍŒÍƒà »(ÇÍ>¡`Á;’Âté̓»,ø4ÇÍ€“»@ÇÍ€º$ÃÍŒÍƒà ¡`Á;’Âté̓:»PǺ$Ã͌̓à ̓`Í‹Í=º0ÃÍŒ’» ÅÍ�tð»0ËÓÍåƒû té» Å͌͋͋̓p»lǺ$Ã͌̓à ̓Ô̓¶é‚ö¿„ǾœÁÍÊwé‡÷ͦ͋¿Î¾œÁÍÊré‡÷ͦ͋¿ˆÇ¾œÁÍÊwé¿êÆÍº»Í=‹ÞÍ´‹ûͨ͋¿îƾœÁͺ»Í=‹ÞÍ´‹ûͨ͋¸€ÃP¸®ÂP¸\ÁPP‹Ø¸€ÁP¸tÁP“P¸ ÂPšQ%üÍ‹¡`Á£€Ã̓Í‹¡bÁ£˜Á̓I¡\Á£˜Á̓L̓ Ç‚ø\ÁP‹Ø¸®ÂP¸|ÁP“P¸€ÁP¸pÁP¸‚ÃP¸ ÂPšQ%ü̓öÍ‹¡bÁ£˜Á¸\ÁP‹Ø¸®ÂP¸xÁP“P¸zÁP¸pÁP¸˜ÁP¸ ÂPšQ%ü̓ö¡\Á£˜Á̓L̓¶Ç‚ø\ÁP‹Ø¸®ÂP¸|ÁP“P¸€ÁP¸pÁP¸‚ÃP¸ ÂPšQ%ü̓ö͋DŽÃ*¸rÁP¸\ÁP‹Ø¸vÁP“P¸„ÃPšQ%üÍ‹¡ªÂ£<á^Á£>ûŒÇº$ÃÍŒÍƒà ¡^Á£>ÃÍ‹¡¨Â£<á^Á£>ûŒÇº$ÃÍŒÍƒà ¡^Á£>ÃÍ‹¸é÷.\Á\ÁÑàJ P¸ÞÁP¸„ÁPšQ%üÍ‹¸é÷.\Á\ÁÑàJ P¸ÞÁP¸‚ÁPšQ%üÍ‹¡^Á;4Ãté ǃ̓‡=¡\Á£4Ã̓p̓L¡\Á£†Ã££|ãˆÃ£ŠÃ£‹äÁC“£ŒÃ“££ŽÃ£\£@ÃÍ‹¸B÷.^Á—>\ÁÑç‹…j£�á\Áé@¸¹ ‹Ø÷.\Á—>’ÃÑç‹\Á‰•À#‹Ê“‹Ø÷.^Á—>’ÃÑç‰�À#“÷.`Á—>’ÃÑç‰�À#¡’Ã@£’á�Ã;’Ã}´¸B÷.^Á—>\ÁÑç‹\Á‰�j͋̓:̓Í‹‹†ÃÍ‚¿ Áͼ»Íœ�Í=2¿”Ãͨ»xÅÍ=5¿˜Ãͨ͋Í=º0ÃÍŒ’» ÅÍ�tð»0ËÓÍåƒû té» Å͌͋»0ú$Ã͌̓à ͋̓ÚÍ‹¡dÁ£œÃ¡^Áé¡^Áé¡NÃ@£NÃ�>Nü~ñ¡žÃ@£žÃ¡œÃ;žÃ}ÛÍ‹¡^Á£Ã;"»tK‹È¸ ‰Fþ÷.\Á—>ÜÁÑç‹•ìÀ;`Á¸}H Ñ÷nþ—>ÜÁÑç‹�ìÀ;`Áº}J Ñ#ÒuéÍ‹‹®ÁÍ‚¿FÃͨ‹°ÁÍ‚‹ß¿BÃͨ¸ ‹È÷.\Á–6ÜÁÑæ‹Ó‹œìÀÍ‚‹`ÁÍœ�͂͜‚‹ß͸�‹úͬ¿PÃͨ‘÷.^Á—>ÜÁÑç‹Ó‹�ìÀÍ‚¿€ÅÍ´‹úͬ¿TÃͨ̓û$¡Xã®Á¡Zã°Á‹®ÁÍ‚¿ºÁÍĸ ‹Ø÷.\Á–6ÜÁÑæ‹Ó‹œìÀÍœ�͂͜‚‹Þ‹Ï͸�‹Ã»Í=¿€Åͼ‹ùͬ͢“£®Á‹Ë‹°ÁÍ‚¿¾ÁÍċڒ÷.^Á–6ÜÁÑæ‹œìÀÍœƒÍ‚Íœ„‹Þ‹×͸ƒ‹Ã»Í=¿�Åͼ‹úͬ͢“£°ÁÍ‹‹vÁÍ‚¿œÁÍ´‹^ÁÍœ�Í‚ÍÈ�¿ Ãͨ‹ÂÁ͂ͬ‹ß¿¸ÇÍÌwé‹×‹û‹òÍÂÍ¢“£ÂÁ‹ÂÁÍ‚‹vÁÍœ�Í‚¿œÁÍ´‹ßͰ�‹Ó‹^ÁÍœ‚͂͜ƒÍÈ‚¿ Ãͨ‹rÁÍ‚‹úÍ´¿ˆÅÍÄ¿¤Ãͨ‹ÄÁ͂ͬ‹ß¿¸ÇÍÌwé‹×‹û‹òÍÂÍ¢“£ÄÁ‹ÄÁÍ‚‹rÁÍœ�Í‚¿œÁʹͰ�‹^ÁÍœ‚Í‚ÍÈ‚¿¤Ãͨ‹ß¿æÁ¾ Ãͦ‹ó¿êÁͦ͋¡\Á£bášÁ£dÃ̓UÇÂ(¡\Á£îÁ£šÁÍ‹¡\Á£bá˜Á£dÃ̓U¡£˜Á£dábÁ£bÃ̓U͋ǨÇ¡ªÃ+^Á£¬Ã¡®Ã+^Á£°Ã¸¬ÃP¸°ÃP¸ÂP¸¨ÃPšQ%ü¡^Á‹ØªÃ£¬Ã®Ã“£°Ã¸¬ÃP¸°ÃP¸ÂP¸¨ÃPšQ%ü¡ªÃ+^Á£¬Ã¡^Á®ö  ã°Ã¸¬ÃP¸°ÃP¸ÂP¸¨ÃPšQ%ü¡^Á‹ØªÃ£¬Ã¡®Ã+ã°Ã¸¬ÃP¸°ÃP¸ÂP¸¨ÃPšQ%ü¸ªÃP¸®ÃP¸ÂP¸¨ÃPšQ%üÍ‹‹>ÞÁÑç‹� º;^Áté¡`Á£ÂÍ‹‹>ÞÁÑç‹� º;`Áté¡bÁ£ÂÍ‹‹>ÞÁÑç‹� º;bÁté¡`Á£Â͋DzørÁP¸\ÁP‹Ø¸vÁP“P¸²ÃPšQ%üDzÃ*¸rÁP¸\ÁP‹Ø¸vÁP“P¸²ÃPšQ%üDzÃ3¸rÁP¸\ÁP‹Ø¸vÁP“P¸²ÃPšQ%üÍ‹¸\ÁP‹Ø¸®ÂP¸xÁP“P¸zÁP¸pÁP¸˜ÁP¸ ÂPšQ%ü̓ö͋DzørÁP¸\ÁP‹Ø¸€ÁP“P¸²ÃPšQ%üDzÃ*¸rÁP¸\ÁP‹Ø¸€ÁP“P¸²ÃPšQ%üDzÃ3¸rÁP¸\ÁP‹Ø¸€ÁP“P¸²ÃPšQ%üÍ‹¸`ÁP¸®ÂP¸\ÁPP‹Ø¸vÁP¸rÁP“P¸ ÂPšQ%üÍ‹¡\Áé¡´Ã@£´Ã�>´Ã ~ñÍ‹» Åº¶ÃÍŒÍ=º0ÃÍŒ’» ÅÍ�tð»0ËÓÍå“£Ã>à té»¶Ã͌͋ƒ>Ãté » Åº0Ã͌͋ƒ>ÃtéD»¶ÃÍä“£ºÃƒ>ºÃ|¦¡>Ã+^Á£>˺ÃJ»¶Ã‹ËÍ= ‹ÑÍŒ»ÆÆº$ÃÍŒÍƒà ¡>Ã+`Á£>Ãérÿ¡^Á;:ûuKƒ>Ã-ºtJ#Óƒ>Ã0»}Kƒ>Ã9¹~I Ë#Ê#Été7ÿ¡^Á;¼Ã»uKƒ>Ã.ºtJ#Óƒ>Ã0»}Kƒ>Ã9¹~I Ë#Ê#Étéüþ»¶ÃÍäƒû º~Jƒ>Ã-»}K Úƒ>Ã.ºuJ¡\Á;¼Ã¹uI#Ê Ëƒ>Ã:»~Kƒ>ÃAº}J#Ó Ñƒ>ÃZ»~Kƒ>Ãa¹}I#Ë Êƒ>Ã{»~K Ù#Ûté}þ»0ú$ÃÍŒÍƒà ¡>Ã+^Á£>û0ø¶ÃÍ€’ÍŒéYþ¡Â£¾Ã‹Ø¡\Á;RÂté÷Û“£Â¸ÀÃP¸ÂÃP¸ÄÃP¸ÆÃP¸ÈÃP¸ÂP¸ÂP¸ÂP¸ªÁPšQ%ü¡¾Ã£ÂÍ‹¸ÀÃP¸ÂÃP‹Ø¸²ÁP“P¸ÂP¸ÂP¸ÂP¸þÁPšQ%ü¸²ÁP‹Ø¸ÂÃP“P¸´ÁP¸ÂP¸ÂP¸ÂP¸þÁPšQ%ü¸²ÁP¸´ÁP‹Ø¸ÀÃP“P¸ÂP¸ÂP¸ÂP¸þÁPšQ%ü¸ÀÃP‹Ø¸´ÁP“P¸ÂÃP¸ÂP¸ÂP¸ÂP¸þÁPšQ%ü͋̓#¸ÀÃP¸ÂÃP¸²ÁP¸´ÁP¸ÂP¸ÂP¸ÂP¸þÁPšQ%ü͋̓#‹ÄÃÍ‚¿œÁͼ¿PÃͨ̓û$¡XãÄÃ̓S$Í‹¿æÆ¾œÁÍÊwé ÇÊÃèéÇÊÃ'‹ÊÃÍ‚¿œÁͼ͢“£ÌÃ͋̓à"¸ÀÃP¸ÎÃP¸ÂÁP¸ÌÃP¸ÊÃP¸ÈÂPšQ%ü¸ÂÃP¸ÄÁP¸ÐÃP¸ÌÃP¸ÊÃP¸ÈÂPšQ%ü¸ÂÃP‹Ø¸rÁP¸\ÁP“P¸ÊÂPšQ%ü̓y#͋̓à"¸²ÁP¸®ÁP¸ÂÁP¸ÌÃP¸ÊÃP¸ÈÂPšQ%ü¸´ÁP¸ÄÁP¸°ÁP¸ÌÃP¸ÊÃP¸ÈÂPšQ%ü¸´ÁP‹Ø¸rÁP¸\ÁP“P¸ÊÂPšQ%üÍ‹‹®ÁÍ‚¿FÃͨ‹°ÁÍ‚‹ß¿BÃͨ‹Ó‹ÎÃÍ‚‹ß¿ÒÃͨ‹Ë‹ÐÃÍ‚‹ß¿ÖÃͨ‹Ç‹û‹òÍÂÍ?-‹`ÁÍœ�͂͜‚Í?)�—‹ñÍœƒÍÂÍ?-¿€ÅÍ?%Ͱƒ»Í=6¿PÃͨ̓û$¡XãÄÃÍ‹¡°Á‹Ø%ÿ£ÆÃ�ãþ“¹™÷ù£Èá\Á;ÈÃé ¡ÈÀ£Èá®Á%À¹@™÷ùÑàÑàÑàÑàÑàÑàÑà#À}÷ØÈãÈÃÍ‹‹ÂÁÍ‚‹²ÁÍœ�Í‚¿œÁÍ´‹ßͰ�¿PÃͨ‹Ó‹ÄÁÍ‚‹rÁ+´ÁÍœ‚Í‚‹úʹͰ‚¿TÃͨ̓û$¡Xã®Á¡Zã°ÁÍ‹¿¾Æ¾PÃÍÊwé ÇXÃÿé¿ÂƾPÃÍÊré ÇXÃ€é ¾PÃÍ “£Xÿ¾Æ¾TÃÍÊwé ÇZÃÿé¿ÂƾTÃÍÊré ÇZÃ€é ¾TÃÍ “£ZÃÍ‹¸ÀÃP¸ÂÃP¸²ÁP¸´ÁP¸ÂP¸ÂP¸ÂP¸þÁPšQ%üÍ‹‹®Á+ÎÃÍ‚¿FÃͨ‹°Á+ÐÃÍ‚¿BÃͨ¡\Á£ÚÓ͂ÍÌwéÇÚô‹\ÁÍ‚¿FÃÍœ�ÍÌ»vK¿BþxÅÍʺuJ#Ó#Òué ¿Pþ¼ÇͦéN‹\ÁÍ‚¿FÃÍÌté ¿PþÀÇͦé3¿FþBÃͲ»Í=1¿ÄÇͼ¿PÃͨ‹\ÁÍ‚¿PÃÍÌwé ‹÷¿¼Çͪ‹þͨ¿ÈǾPÃͪ»Í=‹ÚÃÍœ�͂Ͱ�Í¢“£ÜÃ͋̓S$Í‹�>ÆÃhé ¡ÆÃ˜þ£ÆÃééÿ�>ÈÃhé ¡ÈØþ£ÈÃééÿ͋̓n̓±¡®Á£Þá°Á£àá\Á£’Á̓}̓̓:¡^Á;\Âté(‹ÂÁÍ‚‹€ÁÍœ�Í‚¿œÁʹͰ�“Íœ‚Í‚ÍÈ‚¿âÃͨé¿âþæÁͦ¡^Á;\Âué »ÌǺ$ÃÍŒé»èǺ$ÃÍŒÍƒà ¡äÁ£æÃ¸éí¸B‹Ø÷.\Á—>èÃÑç‹•j;^Á¹tI“÷.^Á—>èÃÑç‹�j;^Áº}J Ñ#Òt騸é÷.\Á\ÁÑàJ P¸èÃP¸„ÁPšQ%ü‹>èËßÑç‹… º£Â‹…¢k£¸B÷.^Á×Ñç‹…j£êá\ÁéI¡^Á;\ÂuéÍ=º0ÃÍŒ’» ÅÍ�téL¸é‹Ø÷.\Á—>’ÃÑç‹…J £ìÓ‹Ø÷.^Á—>’ÃÑç‹…J £®Á“÷.`Á—>’ÃÑç‹…J £°Á¡^Á;ìÃ~éÛ�>ìà »~K�>ìÃ@º}J#Ó#Òué1̓Z*¡\Á;îÃu骡\Á£ðá’ãòÃ̓B4̓z̓WN¡òã’Ãé‰�>ìÃ@é3̓64̓ý*¡\Á;îÃuéj̓z̓E5‹>èÃÑç‹… º£Â‹…¢k£ÂéKƒ>ìÃ|é ¡\Á£Âé#¡ìËØ%ø¹™÷ù“Í‚¿œÁͼ͢“£ƒã“£ìËìÃ͈D)X)û*û*û*è*X9¡’Ã@£’áêÃ;’Ã|é¨þ¡èÃ@£èáæÃ;èÃ|éþ¡^Á;ÚÁté̓¼̓ZÍ‹¡®Á£Îá°Á£Ðá^Á£ôÃ͋̓r)¡^Á;îÃté̓Ž"éÕÿéÒÿ¡\Á;RÂté¡^Á£îÃÍ‹¡^Á;öÃté ¿øÃ¾âÃͦé¿øÃ¾æÁͦ¡ÂÁ;ÎûK‹Ó‹ÎÃÍ‚¿øÃÍÌ»wK#ڋСÄÁ;ÐùI‰Nþ#ˉ^ü‹ÐÃÍ‚‹ß¿êÁÍ̉^ú»wK‰^ø#Ù;®Á¹I#Nü‹Ó‹®ÁÍ‚‹ß‹~úÍ̉^ö»wK#Ù Ú‹Vþ#Vø;°Á¹I#ʋӋ°ÁÍ‚‹~öÍÌ»wK#Ù Ú#Ûué¡^Á£îÃÍ‹¡\Á;RÂté¡^Á£îÃÍ‹¡^Á;öÃté ¿øÃ¾âÃͦé¿øÃ¾æÁͦ¡ÂÁ;®Á»K‹Ó‹®ÁÍ‚¿øÃÍÌ»wK#Ú¡ÄÁ;°ÁºJ#Ó‹°ÁÍ‚¿êÁÍÌ»wK#Ú#Ûué¡^Á£îÃÍ‹¡\Á£îÃÍ‹¡®Á%ÿ?£ÄÃ̓¼"̓ž!͋͋‹¬ÂÍ>¡^Á;öÃté ¿øÃ¾âÃͦé¿øÃ¾æÁͦ¡^Á;ŠÃuéó¡`Á;ŠÃuéO¡bÁ;ŠÃué«¡dÁ;ŠÃuéÛ¸y‹Ø÷.dÁüÃÑà|²P¸®ÁP“÷.`ÁüÃÑà|²P¸ŠÂP¸ÊÂPšQ%ü¸y‹Ø÷.fÁüÃÑà|²P¸°ÁP“÷.bÁüÃÑà|²P¸ŒÂP¸ÊÂPšQ%ü¸y‹Ø÷.hÁüÃÑà|²P¸®ÁP“÷.`ÁüÃÑà|²P¸ŽÂP¸ÊÂPšQ%ü¸y‹Ø÷.jÁüÃÑà|²P¸°ÁP“÷.bÁüÃÑà|²P¸�ÂP¸ÊÂPšQ%ü锸y‹Ø÷.`Á—>üÃÑç‹Ó‹�|²Í‚¿þÃͨ‹Ú’÷.bÁ–6üÃÑæ‹Ó‹œ|²Í‚‹ß¿Äͨ‹Ê‘‹È÷.dÁ–6üÃÑæ‹Ó‹œ|²Í‚‹ß¿Äͨ‹Â‘‰Fþ÷.fÁ–6üÃÑæ‹Ó‹œ|²Í‚‹ß¿ Äͨ‹Â‰Fü¡hÁ÷nþ–6üÃÑæ‹Ó‹œ|²Í‚‹ß¿Äͨ‹Â‰Fú¡jÁ÷nþ—>üÃÑç‹Ó‹�|²Í‚¿Äͨ‹ù‹vúÍ¿Äͨ‹ò‹~üÍ¿Äͨ̓ê3‹®ÁÍ‚¿Äͬ‹ß¿Äͨ‹Ó‹°ÁÍ‚¿Äͬ‹ß¿"Äͨ¿þþÄÍ‹úͨ¿ľÄÍ‹ûͨ̓ê3‹®ÁÍ‚¿Äͬ¿&Äͨ‹°ÁÍ‚‹ß¿Äͬ¿*Äͨ‹û¾ÄÍÊwé‡÷Í?¿*ľ"ÄÍÊwé‡÷Í?¿þþÄÍ¿Äͨ¿ľ ÄÍ¿Äͨ̓ê3‹®ÁÍ‚¿Äͬ‹ß¿.Äͨ‹Ó‹°ÁÍ‚¿Äͬ‹ß¿2Äͨ¿þþÄÍ‹úͨ¿ľÄÍ‹ûͨ̓ê3‹®ÁÍ‚¿Äͬ¿6Äͨ‹°ÁÍ‚ö   ¿Äͬ¿:Äͨ¿ľ.ÄÍÊréͦ¿ľ6ÄÍÊréͦ¿&ľ.ÄÍÊwéͦ¿&ľ6ÄÍÊwéͦ¿"ľ2ÄÍÊréͦ¿"ľ:ÄÍÊréͦ¿*ľ2ÄÍÊwéͦ¿*ľ:ÄÍÊwéͦ¿PþÄͦ¿Tþ"Äͦ̓û$¡XãŠÂ¡ZãŒÂ¿Pþ&Äͦ¿Tþ*Äͦ̓û$¡XãŽÂ¡Zã�‹ŠÂÍ‚¿øÃÍÌwé¡\Á£îÃÍ‹¡ÂÁ;ŽÂé¡\Á£îÃÍ‹‹ŒÂÍ‚¿êÁÍÌwé¡\Á£îÃÍ‹¡ÄÁ;�Âé¡\Á£îÃÍ‹¡^Á£îÃÍ‹¸y‹Ø÷.bÁüÃÑà|²P¸®ÁP“÷.fÁüÃÑà|²P¸ŠÂP¸ÊÂPšQ%ü¸y‹Ø÷.dÁüÃÑà|²P¸°ÁP“÷.`ÁüÃÑà|²P¸ŒÂP¸ÊÂPšQ%ü¸y‹Ø÷.bÁüÃÑà|²P¸®ÁP“÷.jÁüÃÑà|²P¸ŽÂP¸ÊÂPšQ%ü¡ŒÂ£�¡ŽÂ;ŠÂ|é ¿ŠÂ¾ŽÂÍ?¸y‹Ø÷.bÁüÃÑà|²P¸®ÁP“÷.fÁüÃÑà|²P¸>ÄP¸ÊÂPšQ%ü¸y‹Ø÷.hÁüÃÑà|²P¸°ÁP“÷.`ÁüÃÑà|²P¸@ÄP¸ÊÂPšQ%ü¸y‹Ø÷.bÁüÃÑà|²P¸®ÁP“÷.jÁüÃÑà|²P¸BÄP¸ÊÂPšQ%ü¡@Ä£DÄé͸y‹Ø÷.`ÁüÃÑà|²P¸®ÁP“÷.dÁüÃÑà|²P¸ŠÂP¸ÊÂPšQ%ü¸y‹Ø÷.bÁüÃÑà|²P¸°ÁP“÷.fÁüÃÑà|²P¸ŒÂP¸ÊÂPšQ%ü¸y‹Ø÷.bÁüÃÑà|²P¸°ÁP“÷.jÁüÃÑà|²P¸�ÂP¸ÊÂPšQ%ü¡ŠÂ£ŽÂ¡�Â;ŒÂ|é ¿ŒÂ¾�ÂÍ?¸y‹Ø÷.`ÁüÃÑà|²P¸®ÁP“÷.hÁüÃÑà|²P¸>ÄP¸ÊÂPšQ%ü¸y‹Ø÷.bÁüÃÑà|²P¸°ÁP“÷.fÁüÃÑà|²P¸@ÄP¸ÊÂPšQ%ü¸y‹Ø÷.bÁüÃÑà|²P¸°ÁP“÷.jÁüÃÑà|²P¸DÄP¸ÊÂPšQ%ü¡>Ä£BÄée¸y‹Ø÷.fÁüÃÑà|²P¸®ÁP“÷.bÁüÃÑà|²P¸ŠÂP¸ÊÂPšQ%ü¸y‹Ø÷.`ÁüÃÑà|²P¸°ÁP“÷.dÁüÃÑà|²P¸ŒÂP¸ÊÂPšQ%ü¸y‹Ø÷.jÁüÃÑà|²P¸®ÁP“÷.bÁüÃÑà|²P¸ŽÂP¸ÊÂPšQ%ü¡ŒÂ£�¡ŽÂ;ŠÂ|é ¿ŠÂ¾ŽÂÍ?¸y‹Ø÷.fÁüÃÑà|²P¸®ÁP“÷.bÁüÃÑà|²P¸>ÄP¸ÊÂPšQ%ü¸y‹Ø÷.`ÁüÃÑà|²P¸°ÁP“÷.hÁüÃÑà|²P¸@ÄP¸ÊÂPšQ%ü¸y‹Ø÷.jÁüÃÑà|²P¸®ÁP“÷.bÁüÃÑà|²P¸BÄP¸ÊÂPšQ%ü¡@Ä£DÄ¡ŠÂ;>Äé¡>Ä£ŠÂ¡ŠÂ;BÄé¡BÄ£ŠÂ¡ŽÂ;>Ä|é¡>Ä£ŽÂ¡ŽÂ;BÄ|é¡BÄ£ŽÂ¡ŒÂ;@Äé¡@Ä£ŒÂ¡ŒÂ;DÄé¡DÄ£ŒÂ¡�Â;@Ä|é¡@Ä£�¡�Â;DÄ|é¡DÄ£�ÂéØú̓z¿”þÄͺ‹ß¿˜Ã‹Ö¾ÄÍœ�ͺ‹Î‹ÇÍÈ�¿FÄͨ—‹òͺ‹û‹ñÍœ‚ͺͰ‚¿JÄͨ‹ß‹ú–ͦ‹ù‹óͦ͋¡ìÃ%£üÃé‹ìÃã<Í‚‹dÁÍœ�͂͸�Í¢“£NÄ�>ìÃ@é$‹ìÃ�ã€?Í‚‹fÁÍœ�Í‚ÍÀ�¿üÇͼ͢“£†Ãé!‹ìÃ�ãÀÍ‚‹fÁÍœ�Í‚ÍÀ�¿Èͼ͢“£†Ã¡\Á;†Ã»uK�>†ÃhºuJ Ó#Òu飊ÃÍ‹ƒ>†ÃZté¡^Á£ŠÃÍ‹�>†Ã´té¡`Á£ŠÃÍ‹�>†Ãté¡bÁ£ŠÃÍ‹¡dÁ£ŠÃÍ‹�>†Ãhé ¡†Ã˜þ£†Ãééÿ¡\Á;†Ãé ¡†Ãh£†ÃéèÿÍ‹¸y‹Ø÷.`Á—>üÃÑç‹…|²£PÄ“‹Ø÷.bÁ—>üÃÑç‹…|²£RÄ¡®Á£TÄ¡°Á£VÄ“÷.^Á—>üÃÑç‹…|²£Xĸ¹ ÷.`Á—>XÄÑç‹…&lXÄ£ZÄ¡–Á;ZÄ|é£Zĸ¹ ÷.^Á—>XÄÑç‹…&l£\ĸB÷.\Á—>\ÄÑç‹�j;\Áuéó¡\Á;�Á»uK;ºtJ#Ó#Òué‹>\ÄÑç‹… º£Â‹…¢k£¡ZÄ£^Ä¡XÄ@飸¹ ‹Ø÷.\Á—>`ÄÑç‹…&l£ìÓ‹Ø÷.^Á—>`ÄÑç‹…&l+PÄ£bÄ“÷.`Á—>`ÄÑç‹…&l+RÄ£dÄ¡^Á;ìû~K�>ìà ºuJ Ó#Òté6�>ìà |é’¡lÁ;ìÃé ¡\Á£Âé<¡jÁ#ìãìá\Á;�Áté&¿¹ ÷ï—>`ÄÑç‹…&l%ø™÷>lÁ“Í‚¿œÁͼ͢“£¡hÁ;ìûuK¸¹ ‹È÷.`Á—>`ÄÑç‹•&l;\Á¸uH#Ëڑ÷.^Á—>`ÄÑç‹•&l‹Â�âÀ;\Á‰^þ»uK#Ù#Ûué £®Á‹Fþ£°Áé^¡hÁ;ìûuK¸¹ ‹È÷.`Á—>`ÄÑç‹•&l;\Á¸tH‰Vþ‘÷.^Á—>`ÄÑç‹•&l‹Â�âÀ;\Á‰^ü»tK Ù#^ü#Ûué}£®Á‹Fþ£°Á̓k&¡®Á%ÿ?£®Á¡†Ã‹ØÆÃ£ÆÃÈÓ£ÈÃ̓q&¹€¡ÈËؙ÷ùÑàÑàÑàÑàÑàÑàÑàÑàÑàÑàÑàÑàÑàÑà ®Á£®Á“™÷ùÑâÑâÑâÑâÑâÑâÑâÑâÑâ ÆÃ’£°Áé„̓G¡bÄTÄ£®Á¡dÄVÄ£°Á�>ìà »~K�>ìÃ@º}J#Ó#ÒuéK¡€Á£ðá`Ä£òáŠÃ£fÄ¡†Ã£hÄ̓B4¡hĆã†Ã̓5̓­4̓z̓WN¡òã`Ä¡hÄ£†Ã¡fÄ£ŠÃé‹ìÃ͈D)X)û*û*û*è*X9¡`Ä@£`Ä¡^Ä;`Ä|éNý¡^Á‹ØZÄ£Xĸy÷ë×>üÃÑç‹�|²;XĺuJ¡”Á;XÄ»uK Ú¡–Á;ZĺuJ Ó#ÒuéÍ‹¸¹ ÷.`Á—>XÄÑç‹…&lXÄ£ZÄ¡–Á;ZÄ|é£ZÄécüé`ü¡\Á;Âué͋̓u#¡²Á£ªÃ¡´Á£®Ã̓’Í‹¡^Á;jÄ»uKƒ>šÁ!ºuJ#Ó‹Ø¡`Á;jĹuIƒ>šÁ"¸uH#Á Â#Àué“£Â;4Ãtéǃ̓‡=¡\Á£4á\Á;Âté"£jÄ¡^Á£j£l£Â̓p»Ⱥ$Ã͌̓à éÔ¡^Á;îÁ»}Kƒ>šÁ$ºtJ#Ó#Òué̓ é÷Ó¡^Á;»uKƒ>šÁ"ºuJ#Ó#Òu鋨¡`Á£“£\£jÄ̓³F¡^Á;»uKƒ>šÁ!ºuJ#Ó#Òué¡`Á£¡bÁ£\Âé! ¡^Á;Âté ¡\Á£ÂéÕþ¡`Á;»uK¡^Á;ºuJ#Óƒ>šÁ!»uKƒ>šÁ"¹uI Ë#Ê#Éué)̓p»0Ⱥ$Ã͌̓à ̓:̓ÿT̓p̓w;¡\Á£šÁéÓ¡`Á;»uKƒ>šÁ$ºtJ#Ó#Òué̓ éðÒ¡`Á;Âté3¡bÁ£Â̓p»RȺ$Ã͌̓à ̓:»|Ⱥ$Ã͌̓à ̓È;¡\Á£4Ãé±ÒéJ̓ß\¡^Á;\Âté¿@¾lÄͺ¾pÄͶ¿’Èͼ¿6Âͨé¿@¾lÄͺ¾tÂͶ¿’Èͼ¿6Âͨ̓»|º$ÃÍŒÍƒà ¡®Á£Þá°Á£àáÂÁ£ÎáÄÁ£ÐáÎãn¡Ðãp¡^Á;4Ãté ¡tÄ£®Á¡vÄ£°Á̓#̓ì!ƒ>šÁ$téÍ‹¡^Á;\Âté¿–Ⱦ6Âͺ¿:ÂÍ¨é ¿6¾€Âͺ¿:Âͨ‹ÎÃÍ‚‹^ÁÍœ�Í‚¿œÁÍ´Íœ‚ÍÈ�¿6Âͬ¿PÃͨ‹ÐÃÍ‚¿€ÅÍÄ¿:Âͬ¿TÃͨ̓û$¡Xã®Á¡Zã°Áǃ¡\Á££Â̓#̓ì!¡®Á£tÄ¡°Á£vÄ¡Þã®Á¡àã°Á¡^Á£4ÃÍ‹¡^Á;Âté̓ éQÑ¡®Á£Þá°Á£àá^Á;4Ãté̓‡=¡^Á£4Ã;îÁté¡Þãn¡àãpÂ̓‡=¡Þã®Á¡àã°ÁéÑ‹ÞÃ+nÂ#Û}÷ÛÍ‚¿6ÂÍ´»Í=‹^ÁÍœ�͂͜‚Ͱ�Í¢“£j‹àÃ+pÂ#Û}÷ÛÍ‚¿:ÂÍ´»Í=¿€Åͬ͢“£lÂ̓‡=¡Þã®Á¡àã°ÁéžÐ¡l£xĸ鼡j£zĸé�‹nÂÍ‚‹|Ä+^ÁÍœ�Í‚¿6Âͼ‹ßͰ�‹ÓÍ¢“£ÎËpÂÍ‚‹’Ã+^ÁÍœ‚Í‚¿:Âͼ‹ßͰ‚‹ËÍ¢“£ÐËÎÃÍ‚‹^ÁÍœƒÍ‚¿œÁÍ´Íœ„ö  Íȃ‹úͬ¿PÃͨ‹ÐÃÍ‚¿�ÅÍÄ‹ùͬ¿TÃͨ̓û$¡Xã®Á¡Zã°Á̓#̓ì!¡|Ä@£|Ä¡zÄ;|Ä|éTÿ¡’Ã@£’áxÄ;’Ã|é5ÿÍ‹¡ÂÁ£f¡ÄÁ£h¿X¾œÁͦ̓Q_¡`Á;\Âté7¿~ľšÈͦ̓ß\¿T¾‚Äͦ̓Q_¡lÂ÷.j“Í=¸žÈÍ€“»¸ÈÍ€º$ÃÍŒÍƒà ¡`Á;\ÂtéO<ã<á^Á£>ûÆÈº$Ã͌̓à ̓`»Üȸ0ÃÍ�uéÁ»DƸ0ÃÍ�ºtJ»JÆÍ�¹tI#Ê#ÉténéŸÍƒQ_¡lÂ÷.jÂ÷.`Á“Í=¸âÈÍ€º$ÃÍŒÍƒà ¡^Á‹Ø<ã<Ó£>álÂ÷.j“Í=¸ÉÍ€“»¸ÈÍ€º$ÃÍŒÍƒà ¡`Á<ã<á^Á£>ûÆÈº$Ã͌̓à ̓`»Üȸ0ÃÍ�ué»DƸ0ÃÍ�ºtJ»JÆÍ�¹tI#Ê#ÉtéÌ¡`Á<ã<á^Á£>Ã;\Âté#» ɺ^ÂÍŒ¿~ľ,Éͦ̓ß\¿œÁ¾‚Äͦ̓£é'»0ɺ^Â͌̓ß\¿@¾xÂͺ¿lÄͼ¿<Éͼ¿œÁͨ̓£¡^Á;„Âté »@ɺ†ÄÍŒé»Fɺ†ÄÍŒ¡`Á;\Âté<ã<á^Á£>û†Ä¸LÉÍ€º$ÃÍŒÍƒà ¡^Á‹Ø<ã<Ó£>û^¸lÉÍ€“»xÉÍ€º$Ã͌̓à ̓`¡`Á;\Âté »�ɺŠÄ͌黦ɺŠÄÍŒ¡bÁ<ã<á^Á£>ûŠÄ¸¬ÉÍ€º$ÃÍŒÍƒà ¡^Á‹Ø<ã<Ó£>ûÀɺ$Ã͌̓à ̓`»DƸ0ÃÍ�ºuJ‹Ë»JÆÍ�‰Fþ¸uH Â#Àué ‹Ùº^ÂÍŒé»Òƺ^ÂÍŒ¡^Á;\»tK;„ºuJ#Ó¡\Á;»tK#Ú#ÛuéǎĸŽÄPšQ%ü̓Q_¡\Á£d¡^Ád£d¡\Á£b¡^Á‹Øb£bÂ;\Âté̓*̓I‹nÂÍ‚‹bÂ+^ÁÍœ�Í‚¿6ÂͼͰ�Í¢“£ÂÁ‹pÂÍ‚‹dÂ+^ÁÍœ‚Í‚¿:ÂͼͰ‚Í¢“£ÄÁ¿�ľXÂͦ¡^Á;\Âté£öÃ̓¡&¡\Á£öÃ̓¡dÂ+^Á÷.jÂb“Í=¸ÚÉÍ€“»äÉÍ€¡lÂ÷.j“Í=Í€“»ìÉÍ€“»ÂÍ€º$Ã͌̓à ̓:»”ĸ|ÂÍ€º$ÃÍŒÍƒà ¡^Á;\»uK‹Ó»DƸ^ÂÍ�¹tI#Ê#Éué̓p¡^Á;\ÂtéǘÄ-¸šÄP¸˜ÄPšQ%ü¡^Á;\Âté6ƒ>šÄ ué,̓p»ôɺ$Ã͌̓à ̓Ô̓Ú̓Ú̓»ʺ$ÃÍŒÍƒà ¡^Á;\Âté!ƒ>šÄ ué̓:»<ʺ$Ã͌̓à ̓ ém¡`Á;\Âté4»fʸœÂÍ€“»†ÁÍ€ºœÄÍŒ¡^Á£ Ä»Í>"‹Ë3ÛÍ>!‡ËÍ>Í>"¡\Á£ Ä¡`Á;\»uK¡^Á;„ºuJ#Ó#Òué»Í>"¡`Á;\Âté̓p»(ƺ$ÃÍŒÍƒà »œÄÍ>¡bÁ;\Âté ¡`Á£\£jÄéÅõ¡^Á;\ÂtéIÍ=º0ÃÍŒ’» ÅÍ�ué6̓p»lʺ$Ã͌̓à ̓ »DƸ0ÃÍ�ºuJ»JÆÍ�¹uI Ê#Ét鋬ÂÍ>¡jÂ;bÂ~éaý¡lÂ;dÂ~éEý̓¡`Á;\»uK¡^Á;„ºuJ#Ó¡\Á;»tK#Ú#Ûué »ˆÊº$Ã͌̓à ̓:»¬Êº$Ã͌̓à ̓ ̓*̓6̓³¡\Á;ÂtéÇ¢ÄT¸¤ÄP¸¢ÄPšQ%üÇÁƒ¡^Á;ÂtéǦĸ¦ÄPšQ%üÇÁƒ¡bÁ;»uK¡fÁ;ºuJ Ó¡hÁ;»uK Ú#ÛuéǨĸ¨ÄPšQ%üÇÁƒ¡jÁ;ÂtéÇÁƒÇªÄ6¸ªÄPšQ%ü¡`Á;’Âté$̓»Öʺ$Ã͌̓à ̓:»PǺ$Ã͌̓à ̓`¡f£ÂÁ¡h£ÄÁ¿œÁ¾XÂͦ¡^Á£ÂÇÂ;ÇÂŒ‹\ÁÍ‚¿�Äͨ̓¡&̓¶érÈ̓»üʺ$Ã͌̓à Íæ»Í=͕̓:»(˺$Ã͌̓à ̓ ̓p»L˸0ÃÍ�ºuJ»RËÍ�¹uI Ê#Éué̓ ¡\Á£˜ÁÇÂ;é È»fʸœÂÍ€“»†ÁÍ€ºœÄÍŒ¡`Á;’Âté$̓»X˺$Ã͌̓à ̓:»PǺ$Ã͌̓à ̓`Ç Ä»Í>"‹Ó3ÛÍ>!‹Ã‹Ú‘ºœÄÍ>Í>"¡\Á£ Ä‹ÚÍ>¿Îþ¬ÄÍ?¿Ðþ®ÄÍ?̓×#¿Îþ¬ÄÍ?¿Ðþ®ÄÍ?Í‹¿°Ä¾„Ëͦ¸÷.^Á‹Ø\ÁÑàÑàh¼‹Ó»ˆË‹ËÍ€Í=^ÁÑâÑâ�Âh¼‹Ù’Í€Í��Í=‹ß͹�¿´ÄÍ©‹ó͞ͽͥ¿pÄͨ‹€ÁC͂ʹ¿xÂͨ͋‹ŠÃ͉*GAGSGjGÍ‹¿bľdÄ‹ßÍ?‹bÄ÷Ú‹û‰Í‹¡bÄ÷Ø£bÄ¡dÄ÷Ø£dÄÍ‹¿bľdÄ‹ÞÍ?‹dÄ÷Ú‹û‰͋̓z‹bÄÍ‚¿”ÃÍœ�ͼ‹dÄÍœ‚Í‚‹ß¿˜ÃÍœƒÍ¼‹×ÍÈ‚‹ËÍ¢“£¼Ä‹ú¾xÅͺ‹ù¾ˆÅÍœ„ͺͰ„Í¢“£¾Ä¡¼Ä£bÄ¡¾Ä£dÄÍ‹‹ŠÃ͉ÕGìGþGHÍ‹¿®Á¾°Á‹ßÍ?‹®Á÷Ú‹û‰Í‹¡®Á÷Ø£®Á¡°Á÷Ø£°ÁÍ‹¿®Á¾°Á‹ÞÍ?‹°Á÷Ú‹û‰Í‹‹®ÁÍ‚¿”ÃÍœ�ͼ‹°ÁÍœ‚Í‚‹ß¿˜ÃÍœƒÍ¼‹×ÍÈ‚‹ËÍ¢“£ÀÄ‹ú¾xÅͺ‹ù¾ˆÅÍœ„ͺͰ„Í¢“£ÂÄ¡ÀÄ£®Á¡ÂÄ£°ÁÍ‹‹ÄÄ͉„H�HœH¡ÆÄ®Á£®ÁÍ‹¡ÆÄ°Á£°ÁÍ‹¡®Á+ÆÄ£®ÁÍ‹¡°Á+ÆÄ£°ÁÍ‹»ÈÄÍäbÁ“™÷>dÁÌÄ;âÁ}é2̓»ŽËº$Ã͌̓à ̓:»´Ëº$Ã͌̓à Í=ºÈÄÍŒ’» ÅÍ�tðÍ‹¸é‹Ø÷.\Á—>ÌÄÑç‹Îĉ•J “‹Ø÷.^Á—>ÌÄÑç‹®Á‰•J “÷.`Á—>ÌÄÑç‹°Á‰�J »ÈÄÍä#bÁ“£ÐÄ‹ÐÄ#Ûué,¡dÁ+ãÒÄ¡^Áé»Í=¸ÈÄÍ€’ÍŒ¡ÔÄ@£ÔÄ¡ÒÄ;ÔÄ}â»ÈÄÍä“£ÖÄ¡dÁ£ØÄ¡^Á龡^Á‹ØÌÄ£Ìĸé‹È÷.\Á—>ÌÄÑç‹D‰•J ‹Á‹Ë»ÈÄ‹Ôĉ^þÍ= ÍåÑãÑãÑãÑãÑãÑãÑãÑã‰Vüщ^ú‹^þ‰^øÍ= Íå^ú‰Fö÷é—>ÌÄÑç‰�J ¡`Á‹ØFü’‹Ã‹^ø‰^ôÍ= ÍåÑãÑãÑãÑãÑãÑãÑãÑã‹Ð¡bÁFü’‰^ò‹^ôÍ= Íå^ò÷nö—>ÌÄÑç‰�J ¡ØÄFü£Ôă>ØÄ|é¡ÖÄ;ÔÄé)ÿé ¡ÖÄ;ÔÄ|éÿ¡^Á‹ØÌċȸB÷ë—>ÞÁÑç‰�jÍ‹¡®Á£ÚÄ¡°Á£ÜÄ¡^Á‹ØòãòËÓ÷Û“£ÔÄ‹PÂÍ‚‹>NÄÑç‹�ÌÀÍœ�͂͜‚‹ßÍÀ�¿ÒËͼ‹ËÍ¢“£ÆÄ‹ß¿œÁ¾€Åͺ‹ûͼ¿ÞÄͨ‹ÚÍ‚ÍÌré‹dÁ͂ͼ͢“£âÄé‹^ÁÍ‚¿ÞÄÍ´ÍÜÍ¢“£âÄ¡dÁ;ŠÃé ¡ŠÃ£ÄÄé‚�>†Ã<»|Kƒ>†Ã-ºJ Ó#Òué ¡\Á£ÄÄéYƒ>†Ã.»|K�>†Ã‡ºJ#Ó#Òué ¡^Á£ÄÄé0�>†Ãˆ»|K�>†ÃáºJ#Ó#Òué ¡`Á£ÄÄé¡bÁ£ÄÄ¡€Á;ðÃt鸹 ÷.\Á—>òÃÑç‹�&l;DÂtéaé¸é÷.\Á—>òÃÑç‹�J ;DÂtéC¡^ÁÔÄ£ÔÄ¡ÆÄ÷.ÔÄ£®Á¡\Á£°Á̓ÄG¡ÚÄ®Á£®Á¡ÜİÁ£°Á̓u#¡\Á£äÄ¡€Á;ðÃué¸é÷.^Á—>òÃÑç‹…J £æÄ鸹 ÷.^Á—>òÃÑç‹…&l£æÄ¸äÄP¸æÄP¸²ÁP¸´ÁP¸ÄÄP¸âÄP¸ÂP¸ÂP¸¨ÁPšQ%ü¡\Á;äÄ~鉡^ÁÔÄ£ÔÄ¡ÆÄ÷.ÔÄ£®Á¡\Á£°Á̓ÄG¡ÚÄ®Á£®Á¡ÜİÁ£°Á̓u#¡^Á£äĸäÄP¸æÄP¸²ÁP¸´ÁP¸ÄÄP¸âÄP¸ÂP¸ÂP¸¨ÁPšQ%ü¡\Á;äÄ~é¡^ÁÔÄ£ÔÄ¡ÆÄ÷.ÔÄ£®Á¡\Á£°Á̓ÄG¡ÚÄ®Á£®Á¡ÜİÁ£°Á̓u#¡\Á£äÄ¡€Á;ðÃué¸é÷.`Á—>òÃÑç‹…J £æÄ鸹 ÷.`Á—>òÃÑç‹…&l£æÄ¸äÄP¸æÄP¸²ÁP¸´ÁP¸ÄÄP¸âÄP¸ÂP¸ÂP¸¨ÁPšQ%ü¡\Á;äÄ~éh¡^ÁÔÄ£ÔÄ¡ÆÄ÷.ÔÄ£®Á¡\Á£°Á̓ÄG¡ÚÄ®Á£®Á¡ÜİÁ£°Á̓u#ö   ¡^Á£äĸäÄP¸æÄP¸²ÁP¸´ÁP¸ÄÄP¸âÄP¸ÂP¸ÂP¸¨ÁPšQ%ü¡^ÁòãòÃéxý¡òÃ+^Á£òáÚÄ£®Á¡ÜÄ£°Á͋̓”JÍ‹¡^Á;ÚÁté5¿èľºÁͦ¿ìċ޾¾Áͦ¸ ‹È÷.\Á—>ÜÁÑç¡ÂÁ‰Fþ™÷½ìÀ+Vþ÷ڋËÚÍ‚—‹Þͨ‘÷.^Á–6ÜÁÑæ¡ÄÁ‰Fü™÷¼ìÀ+Vü÷ڋËÚÍ‚—‹Þͨ—¾æÁÍ‹ù‹Ó‹�ìÀÍœ�͂͸�¿ÞÆÍÌ»sK—¾êÁÍ‹ú‹Ë‹�ìÀÍœ‚͂͸‚¿âÆÍÌ»sK#Ù#Ût鿺Á¾èÄͦ¿¾Á¾ìÄͦés¿æÆ¾œÁÍÊwé¿êÆÍºÍ¢“£xÃÇzÃé¿îƾœÁͺ͢“£xÃÇzÃ}ÿ¸ÂÁP¸ÄÁP¸ ‹Ø÷.\ÁÜÁÑàìÀP“÷.^ÁÜÁÑàìÀP¸xÃP¸zÃP¸ØÁPšQ%ü‹¬ÂÍ>̓p»(ƺ$ÃÍŒÍƒà ¡^Á£r»ÖËÍ>̓Í=;hÁté »ä˺$Ã͌̓à Í=;jÁté »ö˺$Ã͌̓à Í=ƒûté » ̺$Ã͌̓à Í=ƒûté »̺$Ã͌̓à Í=ƒû4ºuJ¡^Á; Ä»uK#Ú#Ûué»4̺$Ã͌̓à éÍ=ƒû4té̓»L̺$Ã͌̓à Í=ƒû5ºuJ¡^Á; Ä»uK#Ú#Ûué»4̺$Ã͌̓à éÍ=ƒû5té̓»^̺$Ã͌̓à Í=ƒûFté »p̺$Ã͌̓à Í=ƒûGté »ŒÌº$Ã͌̓à Í=ƒû9té »¢Ìº$Ã͌̓à Í=ƒû té »¶Ìº$Ã͌̓à Í=;`Áté »Ê̺$Ã͌̓à Í=;nÁté »Ú̺$Ã͌̓à ̓:Í=Í=¸ìÌÍ€“»üÌÍ€º$Ã͌̓à ̓Ô̓ ‹\ÁÍ‚¿�ÄÍœ�ÍÌué‹÷¿œÁͦ‹þ¾xÅͦ“£4Ã̓*̓6̓³̓Z̓¶¡\Á£˜Á»%Í? ̓p»ͺ$Ã͌̓à ̓ »DƸ0ÃÍ�ºtJ»JÆÍ�¹tI#Ê#Éué̓pé’ò̓»6ͺ$Ã͌̓à ̓ ̓‹ªÂÍ>B‹^ÁÍ>D»XÍÍàÍâ»ðÄÍã»òÄÍã̓:‹¨ÂÍ>B‹^ÁÍ>D»vÍÍàÍâ»ôÄÍã»öÄÍã̓p̓}»”ͺ„Í>+Íê»Í=Í•ƒ>ðÄF~é¡òÄ£øÄ¡ðÄéÚÍ껞ÍÍ•‹’Ã͘¸é÷.\Á\ÁÑàJ P¸’ÃP¸„ÁPšQ%ü¡öÄ£úÄ¡ôÄéhÍ껨ÍÍ•‹|ÄÍ”‹Ó»Í?7»´ÍÍ•‹Ú¸é‹È÷.\Á×Ñç‹Ó‹�J Í”»¢ÆÍ•‹Ú‘‹È÷.^Á×Ñç‹Ó‹�J Í”»¼ÍÍ•‹Ú‘÷.`Á×Ñç‹Ó‹�J ͘B’£|Ä¡úÄ;|Ä}ŒÍê»ÂÍÍ•‹’ÃÍ”‹Ó»ÌÍÍ•‹Ú¸B÷.^Á×Ñç‹Ó‹�j͘B’£’áøÄ;’Ã|éÿ̓ZÍê» ÅÍ™éñÍê»ÖÍÍ™Íê» ÅÍ™¡öÄ£üÄ¡ôÄéhÍ껨ÍÍ•‹’ÃÍ”‹Ó»Í?7»èÍÍ•‹Ú¸¹ ‹È÷.\Á×Ñç‹Ó‹�&lÍ”»ÆÍ•‹Ú‘‹È÷.^Á×Ñç‹Ó‹�&lÍ”»ðÍÍ•‹Ú‘÷.`Á×Ñç‹Ó‹�&l͘B’£’áüÄ;’Ã}ŒÍê» ÅÍ™Íê‹Ó»øÍÍ•»Í?7» ÎÍ•‹”Á͘Íê‹ÚÍ™¡ŒÁ£þĸé›Íê»ÎÍ•‹’ÃÍ”‹Ó» Í?7»$ÎÍ•‹Ú¸y‹È÷.\ÁËÐÑàÑ༼“Í•»Í?7»0ÎÍ•‹úÑç‹�|²Í”».Í?7»@ÎÍ•‘‹Ø÷.^ÁÁ—Ñç‹Ó‹�|²Í”»=Í?7»NÎÍ•‹Ú’÷.`ÁÁ—Ñç‹�|²Í”»GÍ?7»VÎÍ•‹ùÑç‹�RµÍ˜A‘£’áþÄ;’Ã|éVÿÍê»^ÎÍ•‹ŒÁ̓͘ZÍê» ÅÍ™é‚ïÇÅ̓ÎZ̓!W»źÅÍŒ¿ žÅͦƒ>Å~é̓+Z»źÅÍŒƒ>Åté ÇÅéå̓FVƒ>Å~é×̓!W»ź ÅÍŒ¿$žÅͦƒ>Åé ÇÅé°Íƒ+Z»ź(ÅÍŒƒ>Åé ÇÅé‘̓FVƒ>Å~郻Å¸ÆÆÍ€“‹ÓÍ€“»Å‹ËÍ€“»jÎÍ€“» ÅÍ€‰^þ‹Ú‹FþÍ€“»(ÅÍ€º|ÂÍŒ‹ÙºÅ͌̓ý]¿,žlÄͦ»(źÅ͌̓ý]¿0žlÄͦ‹ß¿,ž Åͺ‹þͨ‹×‹û¾$Åͺ‹þͨ‹òͲ¿@Âͨ͋̓:»rκ$Ã͌̓à ̓Ô̓:é¹þ»‚θÅÍ�ºuJ»ˆÎÍ�¹uI Ê»�ÎÍ�ºuJ Ñ»'Í=“Í�¹uI Ê“»˜ÎÍ�ºuJ Ñ» ÎÍ�¹uI Ê#ÉuéÇÅÍ‹»¨Î¸ÅÍ�ºuJ»®ÎÍ�¹uI Ê»¶ÎÍ�ºuJ Ñ»"Í=“Í�¹uI Ê“»ÀÎÍ�ºuJ Ñ»ÆÎÍ�¹uI Ê»ÌÎÍ�ºuJ Ñ#ÒuéÇÅÍ‹ÇÅÍ‹¿žÒÎͦÇÅÇ4ÅÇ6ÅÇ8Å» Åº:ÅÍŒºÅÍŒº>ÅÍŒƒ>4Åt麻BŋʋÃÍ= ‰Vþº:ÅÍŒ».Í=‰^ü‹Ú‰Fú‹FüÍ�té<ƒ>6Åté&¸ÅÍ€’ÍŒ‹^þC“£Å‹Ã‹^ú‹ÅÍ= ’ÍŒ‘£6Åé ÇÅÇ4Å»/Í=“»:ÅÍ�téqƒ>8Åté5‹Ë»źFÅÍŒ‹Ó‹Ù’Í€º>ÅÍŒ‹ÅC“£ŋӻ ÅÍŒÇ6ÅÇ8ÅéEÿ»/Í=“»:ÅÍ�ºuJƒ>8Å»uK#Ú#Ûué ÇÅÇ4Å»/Í=“»:ÅÍ�ºsJ‹Ë»:Í=‰^þ‹Ù‹FþÍ�»vK#Ú#Ûué‹Ù¸ÅÍ€’ÍŒ¡Å@£Åé;».Í=“»:ÅÍ�ºuJƒ>6Å»uK#Ú#ÛuéÇÅÇ4ÅéÇ4Ń>8Å»uKƒ>4źuJ#Óƒ>Å»uK#Ú#ÛuéB»źJÅÍŒ¸>Å‹ËÍ€‹Â‹ÑÍŒ»FÅÍ=Í¥¿NÅͨ“Í=Í¥¿RÅͨ‹÷ÍÒté ÇÅÇ4Ń>4Å»uKƒ>źuJ#Ó#Òué<ƒ>8Åté¿RžNÅͲ¿Åͨé"»ÅÍ=Í¥¿Åͨ‹÷ÍÒté Ç4ÅÇŃ>4Å»uKƒ>źuJ#Óƒ>8Å»uK#Ú#ÛuéS»Å‹ÓÍä‡Ó¹Í= º:ÅÍŒ»0Í=‰^þ‹Ú‹FþÍ�»vK‹Ã»9Í=‰^ü‹Ú‰Fú‹FüÍ�»sK#^ú#Ûué‘£Åé<ý¾ÅÍÒtéÇÅ͋͋» ÅºÅÍŒ»=Í=‹Ã»Bŋʉ^þÍ= Í�‰Nü¹tI»$Í=‹Ã‹^þ‰Nú‹Nü‰^øÍ= Í�‰Nö¹tI#Nú#Éué‹^ø‹NöÍ= ¸ÅÍ€’ÍŒ@£Åé™ÿ»$Í=‹Ã»BÅ‹ŹÍ= Í�té ÇÅé ÇÅ¡Å@£ÅÍ‹ÇVÅ» ÅºBÅÍŒÍ=º0ÃÍŒ’» ÅÍ�tð»0ÃÍå“£Ã>à »uK¡\Á;Vź}J#Ó#Òué »ÖθBÅÍ€’͌͋ƒ>à té̓ ¡\Á£˜ÁÇÂ;ÇŒ͊éݲƒ>à té¡XÅ@£XÅ»0ú$ÃÍŒÍƒà ¡>ÃH£>Ãémÿƒ>ÃtéNƒ>VÅuéYÿ¡VÅH£VÅ¡XÅH£XÅ»BÅ‹VÅ‹ËÍ= ‹ÑÍŒ¡>Ã+^Á£>Ã»ÆÆº$ÃÍŒÍƒà ¡>Ã+`Á£>Ãéÿé »BÅÍäƒû#|éÿƒ>Ã0»}Kƒ>Ã/ºtJ#Óƒ>Ã.»tK#Úƒ>Ã"ºtJ#Óƒ>Ã'»tK#Úƒ>Ã9º~Jƒ>ÃA¹}I#ʃ>Ã=ºtJ#Ñ Óƒ>ÃZ»~Kƒ>Ãa¹}I#Ë Êƒ>Ãz»~K Ù#Ûtétþ»0ú$ÃÍŒÍƒà ¡>Ã+^Á£>û`Í=“»0ÃÍ�ré‹ÓÍå“£ZÅ‹ZŃÃàÍ=ÍŒ»0øBÅÍ€’ÍŒ¡XÅ@£XÅ¡VÅ@£VÅéþƒ>XÅté͋̓:» ÅºBÅÍŒÇVÅÍ‹¸ ÷.^Áp¼“º\ÅÍŒ‹ÚÍä“£`ÅÇbÅ» ÅºdÅÍŒºhÅÍŒƒ>`Åté »ÌκÅ͌鄃>`Åuér»\Å‹bŹÍ= ‹ÊºdÅÍŒ» Í=‰^þ‹Ú‹FþÍ�téA‘£bÅé7»`Í=“»dÅÍ�ré‹ÓÍå“£ZÅ‹ZŃÃàÍ=ÍŒ»dŸhÅÍ€’ÍŒ¡bÅ@£bÅ¡`ÅH£`Åé„ÿ»hźÅ͌̓ý]¸÷.^Á‹Ø\ÁÑàÑàh¼“Í=^ÁÑàÑàh¼“Í��Í=͹�Í¥¿PÃͨ‹ß¿@¾lÄͺ¿~Äͼ¿‚Äͨ‹×‹û‹òͲ‹úͨ͋»‚Îö  ¸ÅÍ�ºuJ»�ÎÍ�¹uI Ê»ˆÎÍ�ºuJ Ñ»'Í=“Í�¹uI Ê#Éué ¿lľÜÎͦ͋»¨Î¸ÅÍ�ºuJ»®ÎÍ�¹uI Ê»¶ÎÍ�ºuJ Ñ»"Í=“Í�¹uI Ê#Éué ¿lľ’Èͦ͋»˜Î¸ÅÍ�ºuJ» ÎÍ�¹uI Ê#Éué ¿lľàÎͦ͋»ÀθÅÍ�té ¿lľêÆÍ¦é »ÆÎ¸ÅÍ�té ¿lľšÈͦé¿lľäÎͦ͋ÇlÅ$¸nÅP¸pÅP¸rÅP¸tÅP¸lÅPšQ%üÍ‹‹^ÁÍ>BÍ>D̓Q_¡\Á£nŋءbÁ£pÅ“£rÅ£tÅ̓÷^Í>CÍ>C‹\ÁÍ>DÍ‹ÇvŸvÅPšQ%ü¡^Á£<ã>Ã͋̓_Í>Í>+ ÁOnŸC–nÜx%\Ä´|9¬ ­ D=èÍ >Kðu#¶’˜Çöpªà IÚÍQ_Tœ6n³^¡&. :‚P}ˆ Œ ¾n_èý˜Ú`>Ø”�Oõï¤ö‡ þ ÒXpÙ ¼q F îû$ÁÍ *ª$À J $èLU°múKˆh¼Ý}ì¶ßOäÔÈwØ�Ã2ã<©(ý=]NN`Zˆ]¶–£_a*dIrLðöu‚sZ‡‡=ˆñ z´’ýb±|÷®ž!Rì!\Ž"p#®¼"¢S$¾à"¬y#·×#»g%Ê‘%ÔI&Ù.&×k&Þq&èˆ&ò)¦ ”'B .)© )’ Z*ß B4ê WN&64à ý* E5ž ó(ˆ D)Î X)Ø û*ö è*ì X9ˆ r)Ý "/ Š0 ò1 ., Â. ê3 W3 ]4ô ­4þ 5b +5l ¸5² Û8p È8f /8 ³8\ Gˆ³Fb³EúÿT'w;È;$Á<`ß\<(²Q"�Dȵ?öpA<€AF+D¾ D ‰FÑG€*G‰AGŠSG‹jGŒÄGìÕGìG þGH„HZ�HdœHnöHÈäH´”J"·KráK†?NþüK�2NôžOX+O‘yS�ÎZØ'!WL'+V$'+ZV'FV.'ý] (]WQ'ÜZâ'¿\(£]P(‘]F(÷^@œ_Jœó¥ŽÚ‹. ‹Å+Â=r¸^_‹Õ+бÓàŽÒ‹àWV-P‹ð‹ø@‘ýó¤üX¹Ïÿ. °¿°¢ _^‰&VWË_^[VWÿ6ÿ7ˤŨÅON®ÅOFF¶ÅFast redraw is ÊÅDisplay ON ØÅDisplay OFFèÅActive grid is #üÅ ÆX =hÆ Y =ÆCADDRAFT Help Disk,ÆWAIT4ÆABORT JOB ? Y/N HÆYÅNÆy TÆStep size: X=CfÆ Y=pÆNew X ? (1-5000) @�ŽÆ ¦ÆX=¬ÆNEW Y ? (1-5000) þ�€�ÊÆ ÐÆGÖÆNÜÆV‡†ÍÌL‚zŠ@ŽöÆGrid too smallÇCP5.EXEÇCP2.EXE ÇCP3.EXE,ÇCP4.EXE8ÇInsert ” DÇ in drive BTÇHit any key when ready pÇFeature not included†@‚'�Ç è�4ˆ4‡ß.e†€ÐÇSpacebar to stop redrawìÇWait for redrawz{'ÈSelect PLTR (plotter) or PNTR (printer)4ÈEnter scale, , then STRT %VÈBtn1-move plot window; Btn2-pick # of€Èplots, P to start33K…áz€ „¢ÈPlotting will require ¼È sheet(s)ÊÈContinue (Y or N)?àÈ7 æÈPlotting will take approximately Éminute(s) and require$ÉPRINTERï%I�4ÉPLOTTER…B!|DÉ#1JÉ#2PÉPlug PLOTTER into COMM port pÉTurn on |É then press any key ”É and outline box? ªÉ? °ÉInclude messagesÄÉY for yes, or any keyÞÉSheet9èÉ ofFðÉ øÉCommunications error detected"ÊMake sure printer is on & cable is&@Êconnected; Hit any key - restart PLOTjÊ:ÇpÊABORT PLOTTING? (Y or N) ŒÊUnplug PLOTTER from Comm Port #1%°ÊReconnect input device, then any key "ÚÊInsert CADDRAFT Disk 'A'in Drive A'ËFILE SHOULD BE SAVED BEFORE CONTINUING!,ËHit A to abort PLOT, or any keyPËAèVËa'\ËInsert CADDRAFT Plotter Disk in Drive A„ŒË#!’ËCannot accept text. Out of memory¸ËPress any key to continueë¨*~ ÚËCPINFO.EXE èËOUT OF BOUNDSúËMEMORY OVERFLOWÌINTERFACE FAULT"ÌPRINTER NOT READY8ÌPLOTTER NOT SELECTED PÌBAD FILE NAMEbÌFILE NOT FOUNDtÌDISK IS WRITE PROTECTED�ÌDISK IS NOT READY¦ÌDEVICE I/O ERRORºÌDIVISION BY ZERO ÎÌSYNTAX ERRORÞÌLAYER OVERFLOW ðÌDOS Error #²Í Hit any key !ÍDATABASE TRACE FUNCTION? (Y or N):ÍTURN PRINTER ON & PRESS RETURN\ÍENTER LAYER #: START,END:zÍ ENTER CODE #: START,END:˜ÍLPT1:¢ÍLAYER=¬ÍCODE #=ä¸ÍOP=óÀÍY=ÆÍLAYERÐÍMCODE= ÚÍCELL DATABASEÆìÍOP =ôÍY =üÍCELL DATA ARRAYSÎCLAST= ÆÎCELL #=Á(ÎNAME IS 4Î# OF PLMTS=à DÎCDB START=RÎCOX=ZÎCOY=bÎLCELNUM=nÎ = vÎSyntax error†ÎFTŒÎFEET”ÎFOOTœÎMILƒ¤ÎMILS¬ÎIN²ÎINCHºÎINCHESÄÎM¾ÊÎCMÐÎMMÚÎ$ff‰©P{�ÿÿºáŽÚ&‹>ŽÂW¹ ¾ñ¿ üó¤±3ÀóªŽÚ_´º Í! Àt=Æ ´Í! Àt0º¼´ Í!Æ"º"´ Í!€>#uâ $$ß,@tÙ<wÕ¢ ë¸3À£; £= @£( º ´Í!¹º ´'Í!¡ %àÿ£; Ç( ‹ J±Óâ+С ±ÓèЉ +úƒïŒÖ‹ÜƒÃ±Óëó;þs鳋ïŽß3Ò´Í!‹ º ´'Í!) u&¡ £; Ç( º ´Í!ƒ> t"´'º ¹Í! Àui‹> ¡ ÅŽÀ&-ÿ uÞ[. ŽÝ¹3ö‹þüó¥¸+ŽØ¹Á+ÈÑáÑáÑá¸;ŽÀ3ö3ÿó¥ŒÑŒØ+È�ùv¹ÑáÑáÑáº+ŽÂ3ö‹þê%º�뺦´ Í!3ÀPË Error in EXE file $ Program too large $ Cannot find A:BASRUN.EXE Enter new drive letter: ö   SETINT CPSCALE RESETINTðÿ`€ Àà! #@%`'€) +À-à/1 ÿO5`7€9 ;Àÿï?A C@E`G€I KÀMàOQ S@U`W€ÿööööåöööööööööööööööööööööööööööööööOR 15:LOCATE N6,19:PRINT DLX:IF INIT=N0 THEN RETURN 2990 LOCATE N7,19:PRINT" ";:COLOR 15:LOCATE N7,19:PRINT DLY:IF INIT=N0 THEN RETURN ' '*** GET AND CHECK USER'S DBU *** ' 3000 IF VAL(DIS$)60 THEN 3015 'DBU OUTSIDE LIMIT CLOSE #2:OPEN "CP.DBU" FOR INPUT AS #2 FOR Z=N0 TO N2:FOR ZZ=N0 TO N6:DF$(Z,ZZ)=DBU$(Z,ZZ):DBU$(Z,ZZ)="":NEXT ZZ:NEXT Z 'CLEAR SPACE TOTAL=N0:NOMORE=N0:DBU$(N1,N0)="D" 'SET DEFAULT VALUE Z=N1 WHMZ]/( ¬ÿÿ1 æ " )hˆœì$¥Eh‹}™Ö\„Äî&wÍ%S¾ýÒüÔ%$.b.†@†E†P†q†|†bmôD݆¦@ @ @ @ . .¢8š†U‹ì�ìšE×»Ø@Í?Ç ,Ç",Ç$,Ç&,Ç(, Ç*, Ç,,Ç.,Ç0,Ç2,Ç4,Ç6,Ç8,Ç:,Ç<,Ç>,Ç@,KÇB,ÇD,ÇF,HÇH,BÇJ,E» .ºL,ÍŒ»!‹Êº Í=‹ÂºP,ÍŒ‹ÚºT,ÍŒ’» Í=‹ÂºX,ÍŒ’»OÍ=º\,ÍŒ»0.ºä+ÍŒ»6.ºè+ÍŒ»<.ºì+ÍŒ»B.ºð+ÍŒ»H.ºô+ÍŒ»N.ºø+ÍŒ»V.º`,ÍŒ¡",£d,»Í>"‹Ó3ÛÍ>!‹Ã‹Ú‹Ñ‘Í>Í>"¡ ,£f,‹B,Í>¸B,P¸ ,P¸h,P¸L,Pš0kü¡ ,;h,té8C¸D,P¸ ,P¸F,PšS×ü¸j,P¸l,P¸@,PšS×üÇl,�>j,}é!̓,»z.ºn,ÍŒ»Í>"Çd,‹Ë3ÛÍ>!‡ËÍ>¡ ,£d,¡",£r,»Í=+÷Óƒ>r,<ºJ#Ó#Òué»Íá»t,Í…¡",r,£r,éÍÿ¡r,+",£x,»Í>"̓° é,»\,ºz,ÍŒ¡0,£~,¡",£€,̓6¡2,£~,¡",£€,̓6̓’̓$¡",;‚,ué;¡",;„,uég+̓s̓m¡",;‚,ué̓Ô¡",;‚,té̓T é̓Ž̓,»\,ºz,ÍŒ¡4,£~,¡",£€,̓6‹*,Í>5̓Íæ»„.͕̓Ç̓Í» .¸†,Í�ºuJ»¦.Í�¹uI Ê#ÉtéæA»¬.¸†,Í�ºuJ»².Í�¹uI Ê#Étéÿ̓ž é­ÿ̓ž ̓¡ ,£‚,£„,‹*,Í>5̓æÍ滸.Í•¡",£Š,̓ç¡ ,£Š,»Ü.¸†,Í�té ¡",£‚,é»à.¸†,Í�té ¡",£„,é,ºŒ,ÍŒ‹Ó»æ.¸�,Í€‹Ë‹Ú‘Í€“»ì.Í€º”,ÍŒ»Í>"¡",£˜,‹Ë3ÛÍ>!‡ËÍ>ÍáÍ⻚,Í㻜,Í㻞,Íã» ,Í㻢,Í㻤,Í㻦,Í㻨,Íã�>š,Œu黌,ºª,ÍŒ»Í>"̓r ¡",£‚,éW¡l,;¤,|黌,ºª,ÍŒ»Í>"̓¨ ¡",£‚,é0»Í>"‹0,Í>B‹",Í>D‹*,Í>5Íæ»ô.Í•‹.,Í>5Íæ»Œ,͕͋̓¡ ,£®,£‚,‹*,Í>5̓æÍæ»/Í•¡",£Š,̓ç¡ ,£Š,»Ü.¸†,Í�té’»Œ,ÍŒ¡",£®,£‚,»†,º°,ÍŒ‹Ó»æ.¸�,‹ËÍ€‰^þ‹Ú‰Fü‹FþÍ€“»>/Í€‹Âº´,ÍŒ‹Ù‹Ð‹FüÍ€‹Ë‹Ú‘Í€“»ì.Í€º¸,ÍŒ»Í>"¡$,£˜,¡",;‚,té ¡ ,£‚,é{3ÛÍ>!‹Ë»º¸,Í>̓æ‹.,Í>5Íæ»°,Í•‹,,Í>5Íæ»F/͕̓‹*,Í>5Íæ»Z/͕̓Ç̓Í»¬.¸†,Í�ºtJ»².Í�¹tI#Ê#Éué »Í>"éÖþ¡",£®,»Í>B»)Í>D‹*,Í>5Íæ»n/Í•‹.,Í>5Íæ»°,Í•»Í>"Í‹»PÍ>3ÛÍ>RÍ>1¸,,P¸ ,Pšçkü»€/ºz,ÍŒ¸z,P¸2,P¸",PšPkü»¾/ºz,ÍŒ¸z,P¸4,P¸",PšPküé¦>¡ ,é@¸é‹Ø÷. ,—>r,Ñç‹ ,‰•B ‹Ê“‹Ø÷.",—>r,Ñç‰�B “÷.$,—>r,Ñç‰�B ¡r,@£r,�>r,è~µ¡l,£¼,¡",éO¸é÷. , ,ÑàB P¸r,P¸H,PšS×ü¸B‹Ø÷. ,—>r,Ñç‹ ,‰•¸#‹Ê“÷.",—>r,Ñç‰�¸#¡r,@£r,¡¼,;r,}¥Í‹»\,ºz,ÍŒ¡6,£~,¡",£€,̓6‹~,Í>B‹€,Í>DÍ‹»\,ºz,ÍŒ¡8,£~,¡",£€,̓6‹~,Í>B‹€,Í>DÍ‹¸z,P¸~,P¸€,PšPküÍ‹¸é÷. , ,ÑàB P¸¾,P¸J,PšS×üÍ‹¸é÷. , ,ÑàB P¸¾,P¸H,PšS×ü͋̓̓æÍ‹¡",é¡",é¡À,@£À,�>À,¼~ñ¡Â,@£Â,ƒ>Â,~Ý͋̓œÍ‹Í=º†,ÍŒ’»Ü.Í�tð»†,‹ÓÍä;$,téC‹Ú‹",‹ËÍ= ‹ÑÍŒ‹ÙÍåƒûIté »Í=͌黆,‹ÓÍåƒûQté »Í=ÍŒéé�ÿ»†,Íå“£Ä,¡&,;Ä,uéœ<ƒ>Ä,»uK¡",;Æ,ºuJ#Ó#Òué/Í=%“£È,‹Ó3ÛÍ=!“£Ê,¡Ì,+£Ì,Íƒé ‹È,Í>B‹Ê,Í>Dé8ÿƒ>Ä,»uK¡",;Æ,ºuJ#Ó#Òué/Í=%“£È,‹Ó3ÛÍ=!“£Ê,Ì,’£Ì,Íƒé ‹È,Í>B‹Ê,Í>DéèþÍ‹»Ü.ºÎ,ÍŒÇÒ, Í=º†,ÍŒ’»Ü.Í�tð‹.,Í>5»†,‹ÓÍä;$,téC‹Ú‹",‹ËÍ= ‹ÑÍŒ‹ÙÍåƒûIté »Í=͌黆,‹ÓÍåƒûQté »Í=ÍŒéé–ÿ»†,Íå“£Ä,¡&,;Ä,uém;ƒ>Ä,»uK¡",;Æ,ºuJ#Ó#Òué/Í=%“£È,‹Ó3ÛÍ=!“£Ê,¡Ì,+£Ì,Íƒé ‹È,Í>B‹Ê,Í>Dé1ÿƒ>Ä,»uK¡",;Æ,ºuJ#Ó#Òué/Í=%“£È,‹Ó3ÛÍ=!“£Ê,Ì,’£Ì,Íö  ƒé ‹È,Í>B‹Ê,Í>Déáþƒ>Ä, té »Î,º†,͌͋ƒ>Ä,té »Ü.º†,͌͋ƒ>Ä,*»uK‹Ó»Ü.¸Î,Í�¹uI#Ê¡",;Š,»uK#Ù#Ûué»à.º†,ÍŒÍæ»æ/͕̓Ç̓œÍ‹ƒ>Ä,té[Í=%“£Ô,3ÛÍ=!K“£Ö,»Î,Íä“£Ø,ƒ>Ø,}é?þ‹Ø,J»Î,‹ËÍ= ‹ÑÍŒ‹Ô,Í>B‹Ó‹Ö,Í>DÍæ‹Ë»0Í•‹ÚÍ>B‹ÙÍ>Déþ¡",;Ú,»uKƒ>Ä,-ºtJ#Óƒ>Ä,0»}Kƒ>Ä,9¹~I Ë#Ê#ÉtéÍý¡$,;Ú,»uKƒ>Ä,.ºtJ#Óƒ>Ä,0»}Kƒ>Ä,9¹~I Ë#Ê#Été’ýƒ>Ü,»uK‹Ó»Î,‹ËÍäƒû#¸}H#ƒ>Ä,»~K#؃>Ä,º}J#Ó#ÒuéÍæ»†,Í•‘Í€’ÍŒéBý»Î,‹ÓÍä;Ò,¹~Iƒ>Ä,-»}K Ù¡$,;Ú,¹tIƒ>Ä,.¸uH#Á Ã>Ä,:»~Kƒ>Ä,A¹}I#Ë Èƒ>Ä,Z»~Kƒ>Ä,a¸}H#à Áƒ>Ä,{»~K ؃>Š,¹uIƒ>Ä,:¸uH#Á ËÚÍäƒûº~J#Ñ Ð#Òté•üÍæ»†,Í•¸Î,Í€’ÍŒéƒü̓’»Í>5Íæ‹Ó»0Í•»Í>5Íæ»ª,Í•‹ÚÍ>5Íæ»0͕̓Ç̓œ͋̓’»Í>5Íæ‹Ó»0Í•»Í>5Íæ»ª,Í•‹ÚÍ>5Íæ»T0Í•‹l,Í”»f0͕̓Ç̓œÍ‹¡",;Þ,té£Ì,éW¡ ,;Ì,té ¡",£Ì,éB¡Þ,;Ì,|é£Ì,é0¡Ì,‹Ø+",ºP‹Ê÷é",£à,‘÷ë£â,¡ä,;â,|é£â,̓Í‹‹>,Í>5¡",;„,té »Í>B“Í>Dé!»Í>B‹Ó»6Í>DÍæ‹Ë»€0Í•‹ÚÍ>B‹ÙÍ>DÍæ»”0͕͋Í=º†,ÍŒ’»Ü.Í�uðÍ‹¡ ,é‹r,‹ÓÑãÑã�Ã)‹Ê‹Ó»X,ÍŒA‘£r,�>r,Œ~Ü̓ž ̓N‹*,Í>5»Í>B‹",Í>DÍæ» 0͕̓Å»†,º�,ÍŒ‹.,Í>5Íæ‹ÚÍ•‹>,Í>5Íæ»Ö0Í•’»â0Í€º”,ÍŒ3ÛÍ>!‹Ë»Í>»Í>"»Ü.º”,ÍŒÇä,�»ò0ºæ,ÍŒ¸�,P¸T,P¸P,P‹ ,ÑãÑã�Ã)“P¸ä,P¸æ,PšÔkü¡ ,;ä,té,¸,,P¸ ,Pšçkü̓»�,¸ú0Í€ºz,͌̓6̓Çé ÿ�>ä,Œé6Çä,Œ¸,,P¸ ,Pšçkü¡2,£~,¡",£€,»1ºz,͌̓6̓Ç̓ž ¡ä,£ê,¡ ,é‹r,‹ÓÑãÑã�Ã)‹Êº‹ÃÍ= ’ÍŒA‘£r,¡ê,;r,}׋ä,ÑãÑã�Ã)‹ ,ÑâÑâ�Â)‡ÓÍŒ‹*,Í>5»Í>B»AÍ>DÍæ»D1Í•‹6,Í>B‹",Í>DÍæ»P1͕̓Í»¬.¸†,Í�ºtJ»².Í�¹tI#Ê#Éué ¡ ,£Æ,̓Néž¡",£Æ,»Í>5Íæ»†,͕̓8̓N»Í>B‹",Í>D‹Ó‹*,Í>5Íæ»„1Í•»�,Í•» 1Í•‹.,Í>5Íæ‹ä,Í”’£Ì,£à,“¹P‹Ø™÷ù; ,té “™÷ù£Þ,é ¹P¡ä,™÷ù@£Þ,ƒ>ä,Pé Çâ,Pé¡ä,£â,̓Í‹Í>1¸,,P¸ ,Pšçkü¡",£~,Ç€,»¨1ºz,͌̓6¸*,P¸ ,Pšçkü¡$,£~,Ç€,»Ü1ºz,͌̓6Ç~,¡",£€,» 2ºz,͌̓6¸,,P¸ ,PšçküÇ€,#»"Í=¸22Í€ºz,͌̓6¸*,P¸ ,PšçküÇ€,G»Z2ºz,͌̓6Í‹»Ü.ºì,ÍŒÇð,¡ ,£ò,¸.,P¸ ,Pšçkü¡â,£ô,¡à,éÀ‹r,ÑãÑã�Ã)¸ì,Í€’ÍŒ‹ð,Í>B‹",Í>D‹ò,ƒÃƒûKé/¸ì,P¸ð,P¸",PšPkü¡",ð,£ð,¡ ,£ò,»Ü.ºì,ÍŒé\¡â,;r,té<»ì,‹ÓÍä¹Q+ˋ‹ѻ\,Í= Í€’ÍŒ¸ì,P¸ð,P¸",PšPkü¡",ð,£ð,é¡ò, £ò,»f2¸ì,Í€’ÍŒ¡r,@£r,¡ô,;r,|é1ÿƒ>ð,|é(¡ð,é¸\,P¸r,P¸",PšPkü¡r,@£r,ƒ>r,~Þƒ>ä,Pé̓HÍ‹¸(,P¸ ,PšçküÇ~,Ç€,#¡",;Ì,té »l2ºz,͌̓6¡Þ,;Ì,té »”2ºz,͌̓6¡",;Ì,»}K¡Þ,;Ì,º~J#Ó#Òué »¼2ºz,͌̓6Í‹Í=º†,ÍŒ’»Ü.Í�tð»†,Íå“£Ä,ƒ>Ä,uéù1ƒ>Ä,`»~Kƒ>Ä,{º}J#Ó#Òué‹Ä,ƒÃàÍ=º†,ÍŒ»ä2º†,Í= “£ö,¡ ,;ö,té̓ž é�ÿÍ‹¡ä,‹Ø™÷>$,",£Ø,“£Ô,¡",;Ø,|é+Ø,÷Ø£Ø,̓°éäÿ¡",;Ô,|é9‹",‹ÓÑãÑã�Ã)‹Êºø,ÍŒ¡Ô,‰FþÑàÑà)“’ÍŒ“’ÍŒ‹Fþ+Á£Ô,̓°é»ÿÍ‹¡Ø,£ü,¡ü,‹Ø÷.$,£þ,ÑãÑã�Ã)ºø,ÍŒ¡Ô,;þ,}é}¡Ô,;þ,é+¡",þ,‹ØÑàÑà)‹þ,ÑâÑâ�Â)‹Ë‹ÚÍ�wé‘£þ,‹þ,ÑãÑã�Ã)“»ø,Í�wé/‹ü,ÑãÑã�Ã)‹þ,‹ÊÑâÑâ�Â)‡ÓÍŒ‘£ü,¡ü,÷.$,£þ,éwÿ‹ü,ÑãÑã�Ã)‹Ó»ø,͌͋̓’¡ ,£‚,»Œ,º-ÍŒ»Í>"‹Ó3ÛÍ>!‹Ã‹Ú‘º”,Í>̓‹(,Í>5¡ ,;„,té̓æÍæ»ê2Í•‹.,Í>5Íæ»Œ,Í•é»Í>B‹",Í>DÍæ»þ2Í•»ÍáÍ⻚,Íã�>š,Œué»-ºª,ÍŒ»Í>"̓r ¡",£‚,éz»ÍáÍ⻜,Í㻞,Íã» ,Í㻢,Í㻤,Í㻦,Í㻨,Íã¡l,;¤,|é»-ºª,ÍŒ»Í>"̓¨ ¡",£‚,é!»ÍáÍâ»-Í㻾,Íã»-Íãƒ>-uéɸB÷.",—>¾,Ñç‹-‰�¸#ƒ>-ué3̓’¸,,P¸ ,Pšçkü» 3ºz,͌̓6̓Ç»Í>"¡",£‚,骡 ,;-t€ÍƒL¡-+",£-¡ ,éF»ÍáÍâ¸é‹Ø÷. ,r,ÑàB “Íã‹Ø÷.",r,ÑàB “Íã÷.$,r,ÑàB “Íã¡r,@£r,¡-;r,}®Íƒoéÿ»ÍáÍâ» -Íã» -Íã»-Íã»-Íã»-Íã»-Íã»-Íã»-Íã»-Íã»-Íã» -Íã»"-Íã»$-Íã‹Ó»(-Íã‹ÚÍ=Í£“£,-¡ ,£.-̓;3¡",;.-té̓’»3ºz,͌̓6éè-¡-£0-¡",é7»ÍáÍ⸋Ø÷. ,r,ÑàÑà\(“Íã÷.",r,ÑàÑà\(“Íã¡r,@£r,¡0-;r,}½¡-£2-¡",éY»ÍáÍ⸋Ø÷. ,r,ÑàÈ%“Íã‹Ø÷.",r,ÑàÈ%“Íã‹Ø÷.$,r,ÑàÈ%“Íã÷.&,r,ÑàÈ%“Íã¡r,@£r,¡2-;r,}›¡",é3»ÍáÍ⸠‹Ø÷. ,r,ÑàÜ(“Íã÷.",r,ÑàÜ(“Íã¡r,@£r,ƒ>r, ~á",éQ»ÍáÍâ‹r,‹ÓÑã‹Ë�ÃD%Íã‹Ú¸B÷. ,ÃÑà¸#“Íã‹Ù�Áø%‹Ó‹ÙÍã�Â|&‹ÚÍã‹ØÑàÑà'“Íã@£r,ƒ>r,A~¥¡",éL»ÍáÍ⸋Ø÷. ,r,ÑàÑàt(“Íã‹Ø÷.",r,ÑàÑàt(“Íã÷.$,r,ÑàÑàt(“Íã¡r,@£r,ƒ>r,~ª¡",é»ÍáÍâ‹4-‹ÓÑã�ü(ÍãB’£4-ƒ>4-~Ý»ÍáÍâ»6-Íã“»83Í�ué/»Í>"¸,,P¸ ,Pšçkü̓’»@3ºz,͌̓6¡",£‚,éq»Í>"̓o»Í>B»Í>D‹*,Í>5Íæ‹Ó»Z3Í•‹.,Í>5Íæ‹Ë‹,-Í”‹ÚÍ>5Íæ»h3Í•‹ÙÍ>5Íæ»(Í•»(Í•‹ÚÍ>5Íæ»n3Í•‹ÙÍ>5Íæ»(Í•»v3͕͋»Í>"¡ ,£˜,‹(,Í>5;„,té̓æÍæ»~3Í•‹.,Í>5Íæ»°,Í•é»Í>B‹",Í>DÍæ»’3Í•¡ ,;®,té»Í>!»º¸,3ÉÍ>é»Í>!ö   »º´,3ÉÍ>̓!>»Í>»ŒÍ”‹œ,Í”‹ž,Í”‹ ,Í”‹¢,Í”‹¤,Í”‹Ó‹¦,Í”‹¨,͘’£:-¡",鼸B÷.",—>¾,Ñç‹�¸#;",}é�̓L¸B÷.",—>¾,Ñç‹…¸#£-Ç-»Í>‹-Í”‹¾,Í”‹-͘+",“£<-¡ ,éL»Í>¸é‹Ø÷. ,—>r,Ñç‹Ó‹�B Í”‹Ú’÷.",—>r,Ñç‹Ó‹�B Í”‹Ú’÷.$,—>r,Ñç‹�B ͘¡r,@£r,¡<-;r,}¨¡¾,@£¾,¡:-;¾,|é5ÿÇ>-»Í>‹Ó‹>-͔͔͘¡ ,£"-‹ÚÍ>‹ -Í”‹ -Í”»-Í’‹-Í”‹-Í”‹-Í”‹-Í”‹-Í”‹-Í”‹Ë‹-Í”‹ -Í”‹"-͘‹ÚÍè»$-Í•»ž3Í•»(-Í™‘£@-¡",é7»Í踋Ø÷. ,r,ÑàÑà\(“Í•»ž3Í•÷.",r,ÑàÑà\(“Í™¡r,@£r,¡@-;r,}½¡-£B-¡",éZ»Í>¸‹Ø÷. ,—>r,Ñç‹Ó‹�È%Í”‹Ú’÷.",—>r,Ñç‹Ó‹�È%Í”‹Ú’÷.$,—>r,Ñç‹�È%Í”‹>r,‹ßÑç‹Ó‹�Ú%͘B’£r,¡B-;r,}š¡",é6»Í>¸ ‹Ø÷. ,—>r,Ñç‹Ó‹�Ü(Í”‹Ú’÷.",—>r,Ñç‹�Ü(͘¡r,@£r,ƒ>r, ~À¡",éJ»Í>‹>r,‹ßÑç‹Ó‹�D%Í”‹Ú¸B÷. ,Ã–Ñæ‹Ó‹œ¸#Í”‹�ø%Í”‹�|&Í”‹ÚÑâÑâ�Â'‹Ë‹ÚÍ™A‘£r,ƒ>r,A~¬¡",éG»Í>¸‹Ø÷. ,r,ÑàÑàt(“Í’‹Ø÷.",r,ÑàÑàt(“Í’÷.$,r,ÑàÑàt(“Í–¡r,@£r,ƒ>r,~¯¡",é»Í>‹>4-‹ßÑç‹Ó‹�¼(͘B’£4-ƒ>4-~Þ»83º6-ÍŒ»Íè‹Ë‹ÚÍ™‹ÙÍ>"̓L¡ ,;Æ,ué¡",;„,ué ¡",;®,ué�>ä,Œté.̓æ¸,,P¸ ,Pšçkü»°,¸¤3Í€“»°3Í€ºz,͌̓6驸<,P¸ ,PšçküÇ~,Ç€,3»ê3ºz,͌̓6¡",‹Øä,£ä,‹ä,ÑâÑâ�Â)‹Ë»°,‹ÃÍä‰Vþº+Ó»\,Í= Í€‹VþÍŒ‘é)‹r,‹ÓÑãÑã�Ãü+‹ä,ÑáÑá�Á)‹Ã‹Ù‹",Í= ’ÍŒ@£r,ƒ>r,~Í‹ä,ÑãÑã�Ã)‹Ó»Ü.ÍŒ¡",éu»`Í=‹r,ÑâÑâ�Âü+‹Ë‹Ú‘Í�¹sI»{Í=‰^þ‹Ú‹FþÍ�‰Nü¹vI#Nü#Éué ÍåƒÃàÍ=ÍŒ‹ä,ÑãÑã�Ã)‹r,‹ÊÑâÑâ�Âü+‰^þ‹Ú‹FþÍ€’ÍŒA‘£r,ƒ>r,~�̓8»Í>B‹Ó»Í>D‹Ë‹.,Í>5Íæ»D1Í•‹ÚÍ>B‹ÙÍ>DÍæ‹ä,Í”“¹P‹Ø™÷ù; ,té “™÷ù£Þ,é¹P¡ä,™÷ù",£Þ,¹P¡â,™÷ù; ,ué¡ä,£â,̓Ç~,Ç€,3»\,ºÍ= ºz,͌̓6¡",;®,t黸,Í>%‹Ó»´,Í>$Í‹¡ ,£‚,“Í‚¿D-ͨ‹*,Í>5̓æÍæ»4Í•‹.,Í>5Íæ»Œ,Í•‹*,Í>5Íæ» 4͕̓Í»¬.¸†,Í�ºtJ»².Í�¹tI#Ê#Ét銋*,Í>5̓æÍæ»84Í•¡",£Ú,̓ç¡ ,£Ú,»Ü.¸†,Í�té ¡",£‚,éõ»†,Í=Í£“£H-¡",;H-»~K¡x,;H-º}J Ó#Òué#‹,,Í>5̓Íæ»J4Í•‹x,͔̓Ç̓évÿ¡$,£J-¡ ,é3¡ ,é¸÷.L-r,ÑàÑà‹Ø�+�Ã(’ÍŒ¡L-@£L-ƒ>L-~סr,@£r,¡J-;r,}Á‹H-Í=º$-ÍŒ¡ ,£.-̓;3¡",;N-ué§þ»Í>B»)Í>D‹*,Í>5Íæ‹Ó»X4Í•‹.,Í>5Íæ‹Ë‹H-Í”‹ÚÍ>5Íæ»h3Í•‹ÙÍ>5Íæ»(Í•»(Í•‹ÚÍ>5Íæ»n3Í•‹ÙÍ>5Íæ»(Í•»v3͕̓_(¡",;‚,té‹,,Í>5̓æÍæ»`,Í•éªÍƒe"飋*,Í>5̓æÍæ»f4Í•¡$,£Ú,̓ç¡ ,£Ú,»Ü.¸†,Í�té ¡",£‚,ék»†,º€4‹ËÍ= “£P-¡",P-‡Ê“Í=; ,u¦»†,Í=Í¥¿D-ͨ‹÷ÍÒt“»Í>B»)Í>D‹*,Í>5Íæ»†4Í•»Œ,Í•»˜4Í•‹.,Í>5Íæ»D-͒̓e"Í‹‹:,Í>5¡ ,;„,té̓æÍæ» 4Í•é»Í>B‹",Í>DÍæ» 4Í•¿¬4¾D-ÍÊué¶‹¦,Í‚¿R-ͨ‹¨,Í‚¿V-ͨ¡",£Z-‹Ø¡¤,£\-“éÛ¸B÷.",—>¾,Ñç‹�¸#;",}é¼̓L¸B÷.",—>¾,Ñç‹…¸#+",£^-¡ ,éx¸é÷. ,—>r,Ñç‹…B £-¡",;-»~K�>- ºuJ Ó#Òté=�>- »}K‹-ƒâƒú¹uI#Ë#Étéé¸é‹Ø÷.",—>r,Ñç‹Ó‹�B Í‚¿`-ͨ‹Ú’÷.$,–6r,Ñæ‹œB Í‚‹ß¿d-ͨ‹ó‹×¿R-Í¿°4¾D-Íœ�ͪ͜‚ÍÀ�‹ûͬͨ‹ò¿V-Í¿.ͼ‹úͬͨ‹ó¿´4ÍʺsJ¿¸4ÍʹvI Ê#Éué¡ ,£Z-¸B÷.",—>¾,Ñç‹…¸#£r,éo¿´4¾d-ÍÊ»sK¿¸4ÍʺvJ Ó#Òué¡ ,£Z-¸B÷.",—>¾,Ñç‹…¸#£r,é/¸é÷.",—>r,Ñç‹�B �ãÿ?Í‚¿`-ͨ‹÷¿D-ͺ‹þͨ‹÷¿¼4ÍÊwé¡ ,£Z-¸B÷.",—>¾,Ñç‹…¸#£r,éݾ`-ÍÚ¸é÷.",+",—>r,Ñç‹�B Íœ�͂͜‚‹Þ‹×Ͱ�¿´4Í̹sI‹û¾.ͪ¿¸4ÍÌ»vK Ù#Ûué ¡ ,£Z-‹Ú¸B÷.",—>¾,Ñç‹…¸#£r,ém¾`-ÍÚ¸é÷.$,+",—>r,Ñç‹�B Íœ�͂͜‚‹Þ‹×Ͱ�¿´4Í̹sI‹û¾.ͪ¿¸4ÍÌ»vK Ù#Ûué¡ ,£Z-‹Ú¸B÷.",—>¾,Ñç‹…¸#£r,¡r,@£r,¡^-;r,|éyý¡",;Z-u顤,£¾,¡¾,@£¾,¡\-;¾,|éý¡",;Z-ué-̓æ¸,,P¸ ,Pšçkü»À4ºz,͌̓6̓Ç¡",£‚,ék¡¤,£h-¡",éP¸B÷.",—>¾,Ñç‹�¸#;",}é1̓L¸B÷.",—>¾,Ñç‹…¸#+",£j-¡ ,éû¸é÷. ,—>r,Ñç‹…B £-¡",;-»~K�>- ºuJ Ó#ÒtéÀ�>- »~K�>-@º}J#Ó#Òtéc¡-%ø¹™÷ù“Í‚¿D-ͼ͢“£l-¡ ,;l-é£l-éƒ>l-éÇl-‹-ƒã‹l-ÑâÑâÑâ Ó‹Ú¸é÷. ,—>r,Ñç‰�B �>- »}K‹-ƒâƒú¹uI#Ë#Éué+¸é÷.",—>r,Ñç‹�B �ãÿ?Í‚¿`-ͨ‹÷¿D-ͺ‹þͨéj¸é‹Ø÷.",—>r,Ñç‹Ó‹�B Í‚¿`-ͨ‹Ú’÷.$,–6r,Ñæ‹œB Í‚‹ß¿d-ͨ‹ó‹×¿R-Í¿°4¾D-Íœ�ͪ͜‚ÍÀ�‹ûͬͨ‹ò¿V-Í¿.ͼ‹úͬͨ�>- »}K‹-ƒâƒú¹uI#Ë#Éué)¸é÷.",—>r,Ñç‹�B �ãÀ‹Ó»`-Í=Í¢ Ú‰�B é4»`-Í=Í¢¸é‹È÷.",—>r,Ñç‰�B »d-Í=Í¢‘÷.$,—>r,Ñç‰�B ¡r,@£r,¡j-;r,|éöý̓o¡¾,@£¾,¡h-;¾,|é¡ýÍ‹»"Í=¸÷.",$,ÑàÑà�+“’Í= ; ,ué »H.ºn-ÍŒéI»'Í=¸÷.",$,ÑàÑà�+“’Í= ; ,ué »B.ºn-ÍŒé¸÷.",$,ÑàÑà�+“ºn-ÍŒ»n-ºÞ4‹ËÍ= “£r-¡ ,;r-ué‹r-+",‹ÙÍ= ‹ÑÍŒ»Ü.ºt-ÍŒ¡ ,é<‹r,ÑãÑã�Ãä+ºx-͌̓<¡",;|-té‹r,ÑãÑã�Ãä+ºt-ÍŒÇr,¡r,@£r,ƒ>r,~º»Ü.¸t-Í�té ¡",£‚,éF»"Í=¸÷.",$,ÑàÑà(“’Í= ; ,ué »H.ºn-ÍŒéI»'Í=¸÷.",$,ÑàÑà(“’Í= ; ,ué »B.ºn-ÍŒé¸÷.",$,ÑàÑà(“ºn-ÍŒ»n-ºÞ4‹ËÍ= “£~-¡ ,;~-uö  é‹~-+",‹ÙÍ= ‹ÑÍŒ»Ü.º€-ÍŒ¡ ,é<‹r,ÑãÑã�Ãä+ºx-͌̓<¡",;|-té‹r,ÑãÑã�Ãä+º€-ÍŒÇr,¡r,@£r,ƒ>r,~º»Ü.¸€-Í�té ¡",£‚,é6»ð+¸t-Í�ºuJ»ô+Í�¹uI Ê»ø+Í�ºuJ Ñ#Òué ¡ ,£„-é¡",£„-»ð+¸t-Í�té"¸÷.",",ÑàÑà�+“Í=¿ä4ͽͥ¿†-ͨ»ô+¸t-Í�té¸÷.",",ÑàÑà�+“Í=Í¥¿†-ͨ»ø+¸t-Í�té"¸÷.",",ÑàÑà�+“Í=¿ì4ͽͥ¿†-ͨ»ä+¸t-Í�té"¸÷.",",ÑàÑà�+“Í=¿ô4ͽͥ¿†-ͨ»è+¸t-Í�té"¸÷.",",ÑàÑà�+“Í=¿ü4ͽͥ¿†-ͨ»ì+¸t-Í�té¸÷.",",ÑàÑà�+“Í=Í¥¿†-ͨ»ð+¸€-Í�ºuJ»ô+Í�¹uI Ê»ø+Í�ºuJ Ñ#Òué ¡ ,£Š-é¡",£Š-»ð+¸€-Í�té"¸÷.",",ÑàÑà(“Í=¿ä4ͽͥ¿Œ-ͨ»ô+¸€-Í�té¸÷.",",ÑàÑà(“Í=Í¥¿Œ-ͨ»ø+¸€-Í�té"¸÷.",",ÑàÑà(“Í=¿ì4ͽͥ¿Œ-ͨ»ä+¸€-Í�té"¸÷.",",ÑàÑà(“Í=¿ô4ͽͥ¿Œ-ͨ»è+¸€-Í�té"¸÷.",",ÑàÑà(“Í=¿ü4ͽͥ¿Œ-ͨ»ì+¸€-Í�té¸÷.",",ÑàÑà(“Í=Í¥¿Œ-ͨ¸÷.", ,ÑàÑà‹Ø�+“Í=Í¥¿�-ͨ(“Í=Í¥¿”-ͨ¡Š-;„-té¿�-¾Œ-ͺ¾”-Ͷ¿†-ͼ¿D-ͨéG¡ ,;„-té ¿5¾†-ͺ‹þͨ¡ ,;Š-té ¿5¾Œ-ͺ‹þͨ¿�-¾Œ-ͺ¾”-Ͷ¿†-ͼ¿D-ͨ¡ ,;‚,té»Í>B»)Í>DÍæ»5Í•»D-Í’Í‹¡",£®,¡ ,£H-»5º˜-ÍŒ»Í>B»3Í>D‹(,Í>5Íæ»P5͕̓1¡",;‚,u鞸,,P¸ ,PšçküÇ~,Ç€,)»f5ºz,͌̓6¡ä,£œ-¡",é[¡ ,£‚,¸\,P¸4,P¸",PšPkü̓,Í=º†,ÍŒ’»0Í�té ¡ä,£ž-鋞-ÑãÑã�Ã)ºŒ,ÍŒ‹Úº0‹ËÍ= ; ,ué‹ÙÍ= +",‹Ã‹Ù’Í= ‹ÑÍŒ»æ.¸�,‹ÓÍ€“‹Ë»Œ,‰^þÍ€“»>/Í€‹Âº´,ÍŒ“‘Í€“‹^þÍ€“»ì.Í€º”,ÍŒ‹Úº¸,ÍŒ»Í>B‹",Í>D‹Ó‹*,Í>5Íæ»‚5Í•‹.,Í>5Íæ‹ž-ÑãÑã�Ã)Í•»Í>B‹ÚÍ>DÍæ»\,º'Í= ͕̓m¡",;‚,uéùÍ=º†,ÍŒ’»0Í�uéÙ¡ ,;H-ué�¡$,£ -¡ ,é<¡ ,é(¸÷.L-r,ÑàÑà‹Ø�+‹Ó�Ã(’ÍŒ<+“’ÍŒ¡L-@£L-ƒ>L-~Ρr,@£r,¡ -;r,}¸‹ ,Í‚¿D-ͨ̓_(¡",;‚,té‹,,Í>5̓æÍæ»`,Í•éV‹H-Í=º$-ÍŒÍ=º†,ÍŒ’»0Í�ué*̓e"¡",;‚,ué'Í=º†,ÍŒ’»0Í�ué̓Žé^̓T ¡ä,£ž-éQ̓T ̓Ç̓‹,,Í>5Íæ»–5Í•»Œ,Í•‹*,Í>5Íæ»˜-͕̓Í»0¸†,Í�té ¡ä,£ž-é »†,Íåƒû uÜ¡ž-@£ž-¡œ-;ž-|é–ýÇ~,Ç€,3»\,ºÍ= ºz,͌̓6¡4,£~,¡",£€,»\,ºz,͌̓6¡ ,£„,£®,£‚,̓æé£Ñ¡ ,£‚,‹*,Í>5̓æÍæ»®5͕̓Í»¬.¸†,Í�ºtJ»².Í�¹tI#Ê#Étéa‹*,Í>5̓æÍæ»84Í•¡",£Ú,̓ç¡ ,£Ú,»Ü.¸†,Í�té ¡",£‚,éû†,Í=Í£“£H-¡",;H-»~K¡x,;H-º}J Ó#Òué#‹,,Í>5̓Íæ»J4Í•‹x,͔̓Ç̓évÿ‹H-Í=º$-ÍŒ¡ ,£.-̓;3¡",;N-uéÿ¡$,£¢-¡ ,é3¡ ,é¸÷.L-r,ÑàÑà‹Ø<+�Ã(’ÍŒ¡L-@£L-ƒ>L-~סr,@£r,¡¢-;r,}Á»Í>B»)Í>D‹*,Í>5Íæ‹Ó»X4Í•‹.,Í>5Íæ‹Ë‹H-Í”‹ÚÍ>5Íæ»h3Í•‹ÙÍ>5Íæ»(Í•»(Í•‹ÚÍ>5Íæ»n3Í•‹ÙÍ>5Íæ»(Í•»v3͕隋*,Í>5̓æÍæ»f4Í•¡$,£Ú,̓ç¡ ,£Ú,»Ü.¸†,Í�té ¡",£‚,éb»†,º€4‹ËÍ= “£P-¡",P-‡Ê“Í=; ,u¦»†,Í=Í¥¿D-ͨ‹÷ÍÒt“»Í>B»)Í>D‹*,Í>5Íæ»æ5Í•»˜4Í•‹.,Í>5Íæ»D-Í’Í‹»$-º¤-ÍŒ¡ ,£x,£N-»Í>"Çd,‹Ó3ÛÍ>!‰^þ‹Úºn,‹NþÍ>£d,¡",£r,»Í=+÷Óƒ>r,<ºJ#Ó#Òué»Íá»t,Í…¡",r,£r,éÍÿ¡r,+",£x,»$-Í=‹Ó‹",Í��Í�ÍÑ�»sK‹Ë‹ÚÍ=‹x,Í�‚Í�ÍÑ‚»vK Ù#Ût鯡$,£¨-¡ ,é0¡ ,é¸÷.L-r,ÑàÑà(’»Ü.ÍŒ¡L-@£L-ƒ>L-~Ú¡r,@£r,¡¨-;r,}Ä¡ ,£ª-£¬-»‹È÷ë",ÑàÑà(’»ü5ÍŒ»Í>"Çd,‹Ó3ÛÍ>!‹Ã‹Ú‘ºn,Í>£d,¡",£r,»Í=+÷Ó‹Ó‹r,Í�»$-Í��Í=ÍÑ�»wK#Ú#Ûué»Íá»t,Í…¡",r,£r,é¾ÿ‹r,Í�»$-Í��Í=ÍÑ�wéÝ»t,ºž3Í= “£®-¡ ,;®-uéÄ‹®-+",»t,Í= º†,ÍŒ‹Úº6‹ËÍ= “£°-¡ ,;°-té‹ÙºÍ= ‹Ñ͌鋰-J»†,‹ËÍ= ºÍ= ‹ÑÍŒ¸÷. , ,ÑàÑà(’»†,ÍŒ»t,‹ÓÍä+®-‡Ó‹ËÍ= ‹ÑÍŒ¡",;¬-uéx»t,ºž3‹ËÍ= “£®-¡ ,;®-té¡",£¬-‹ÙÍäã®-¡",ª-£ª-ƒ>ª-~é:‹®-‹Ú+",‹Ë»t,‹ÃÍ= ºì,ÍŒ‹Ø¡ ,;¬-té‹ÓÍä+Ù‡Ó‹ËÍ= ‹ÑÍŒ»Ü.¸ì,Í�ué[ÿ»ì,º6Í= “£r,¡ ,;r,u雸÷.ª- ,ÑàÑà(‹r,+",»ì,Í= ’ÍŒ‹ÚÍ=Í¥¿²-ͨ‹÷ÍÒséc»ì,‹ÓÍä+r,‡Ó‹ËÍ= ‹ÑÍŒ‹ÙÍ=Í¥¿²-ͨ‹÷ÍÒwé8»Ü.¸ì,Í�ué“‹",Í= Íå“£r,ééƒ>r, »uKƒ>r,+ºuJ Óƒ>r,-»uK Úƒ>r,.ºuJ Óƒ>r,/»~Kƒ>r,:¹}I#Ë Ê#ÉuéH¸÷.ª-",ÑàÑà(‹Ø¸ ÷.ª- (‹Ë»ì,º‰^þÍ= Í€‹ÑÍŒ‹^þ‹ÓÍäK‡Ó‹ËÍ= ‹ÑÍŒéDÿƒ>r,,uérƒ>r,/»tK‹Ó»ì,‹ËÍä+",‹Ã‹Ù’Í= Í=‹ ,Í��Í�ÍÑ�»uK#Ø#Ûté%¸÷. ,",ÑàÑà(»ü5Í�té »ì,‹ÓÍä+",‡ÓÍ= Í=Í¥¿¶-ͨ‹÷¿¸4ÍÊvéò¿²-¾¶-Ͳ»Íœ�Í=‹Þͼ‹ûÍÌté5».Í=»Í=º†,ÍŒ‹Ú¸÷. ,",ÑàÑà(‹ÓÍäK‡ÓÍ= ’ÍŒé̓µ;¸÷.ª-$,ÑàÑà(»¶-Í=Íä‹Ó»ì,‹ËÍä+Ú‰^þ‹Ù‹VþÍ= ’ÍŒ’»Ü.Í�ué]¸÷.ª-$,ÑàÑà(‹Ø¸ ÷.ª-(“ºÍ= ’ÍŒ¸÷.ª-",ÑàÑà(¿¶-¾²-Ͳ»Í=’ÍŒéÌü¸÷.ª-",ÑàÑà(“‹",Í= “»0Í�té “»ì,‹Ó̀͌¸÷.ª-$,ÑàÑà(»ì,ºÍ= ’ÍŒé|ü¸÷. ,$,ÑàÑà(‹ª-‹ÓÍ=’ÍŒ‹Ø¡ ,£º-“£¼-“éj¡ª-£¾-¡ ,éN¡L-;r,ué>‹Ø¸÷.r,$,ÑàÑà(“ºx-ÍŒ» ÷ë(“ºn-͌̓<¡",;|-téǺ-¡L-@£L-¡¾-;L-}¦¡r,@£r,¡¼-;r,}Š»Í>"¡",;º-ué ¸÷.",‹Ø ,ÑàÑà(‹Ó»6‹ËÍ€Í=‹ ,Í��Í�Í�‚ÍÑ�»wK",ÑâÑâ�Â(‰^þ‹Ù’Í€Í=¿.ÍÍ»ö   wK ^þ#Ût騸÷.",‹Ø ,ÑàÑà(‹Ó»6‹ËÍ€Í=",ÑâÑâ�Â(‹Ù’Í€Í��Í=͹�‹",Í�‚Í�ÍÑ‚sé]¡ª-£À-¡À-£Â-¡$,é¡r,‹Ø+",º‹Ê÷é‹Ð ,ÑàÑà(‰^þ»6‰^üÍ€Í=¿Ä-Í©",ÑâÑâ�Â(’‹^ü‹ÓÍ€Í=¿Ì-Í©‹Ú‘÷nþ‹Ð ,ÑàÑà(‹ËÍ€Í=¿Ô-Í©",ÑâÑâ�Â(‹Ù’Í€Í=‹ß¿Ü-Í©‹óÍÓºuJ‹÷ÍÓ»uK Ú#Ût騿Ì-¾Ä-ͳ¿Ü-¾Ô-Í��ͳÍÑ�ré�¡r,@£r,¡Â-;r,|é/ÿ»$-ºx-ÍŒ»¤-ºn-͌̓<¡ ,;|-té8‹,,Í>5»Í>B»Í>DÍæ»6Í•»$-Í•»(6Í•»(͕̓Íæ»46͕̓Í逋,,Í>5̓Íæ»L6͕̓Í¡",£.-éa¡ ,;N-té‹,,Í>5̓æÍæ»^6͕̓œ‹x,‹Ó+N-Í=‹Êº$-ÍŒ¡",N-£N-;N-|é‹,,Í>5̓æÍæ»”6Í•éƒÿéÙ÷»Í>"Í‹»x-‹",‹ËÍ= “»0Í�té‹ÙÍä+ڋËْÍ= ‹ÑÍŒéÔÿ»x-‹",‹ËÍ= “»0Í�té‹ÙÍä+ڋËْÍ= ‹ÑÍŒéÔÿ»n-‹",‹ËÍ= “»0Í�té‹ÙÍä+ڋËْÍ= ‹ÑÍŒéÔÿ»n-‹",‹ËÍ= “»0Í�té‹ÙÍä+ڋËْÍ= ‹ÑÍŒéÔÿ¡",£|-»x-Íä“£ä-»n-Íä“£æ-¡æ-;ä-»tK‹Ð¡ ,;ä-¹uI Ë;»uK Ù#Ûué£|-é¡",£è-¡",;|-»uK‹Ð¡ä-;è-¹|I#Ë#ÉuéÙ‹Ê»x-‹è-Í= Íå“£ê-»n-Í= Íå“£ì-ƒ>ê-A»}Kƒ>ê-Zº~Jƒ>ê-a¹}I#Ê Ëƒ>ê-z»~K Ù#Ûué¡ì-;ê-ué ¡ ,£|-éjé]ƒ>ê-@»~Kƒ>ê-[º}J#Ó#Òué ¡ê- £î-é ¡ê-àÿ£î-¡ê-;ì-»tK¡î-;ì-ºtJ#Ó#Òué¡ ,£|-¡",è-£è-éÿÍ‹¿ð-¾Ä6ͦ¿ô-‹Þ¾È6ͦ‹Ö‹ó¿ø-ͦ‹ò¿ü-ͦ¡¤,£.¡",éï¸B÷.",—>¾,Ñç‹�¸#;",}éÐ̓L¸B÷.",—>¾,Ñç‹…¸#+",£.¡ ,鞸é÷. ,—>r,Ñç‹…B £-¡",;-~éy¸é‹Ø÷.",—>r,Ñç‹…B £.“÷.$,—>r,Ñç‹…B £.�>-ÿ»~K�>-@º}J#Ó#Òté.‹-ƒãƒûté¡.%ÿ?£.¡ ,£ .̓°?¡.£ .¡.£.¡r,@£r,¡.;r,|éSÿ¡¾,@£¾,¡.;¾,|éÿ¿Ä6¾ð-ÍÊ»uK¾ø-ÍʺuJ Ó#ÒuéÇœ,€Çž,€Ç ,ÿÇ¢,ÿé$¾ô-Í “£œ,¾ü-Í “£ž,¾ð-Í “£ ,¾ø-Í “£¢,Í‹‹-ƒãƒûtéC¡ ,; .té¡",£ .¡.‹Ø .£..“£.é¡ .+.£.¡.+.£.Ç .¿Ä6¾ð-ÍÊté ‹.Í‚‹þͨé‹.Í‚¿ð-Íœ�ÍÌwé¾.ͦ¿È6¾ô-ÍÊté ‹.Í‚‹þͨé‹.Í‚¿ô-Íœ�ÍÌré¾.ͦ¿Ä6¾ø-ÍÊté ‹.Í‚‹þͨé‹.Í‚¿ø-Íœ�ÍÌwé¾.ͦ¿È6¾ü-ÍÊté ‹.Í‚‹þͨé‹.Í‚¿ü-Íœ�ÍÌré¾.ͦ¡",; .uéÚþÍ‹‹,,Í>5Í=ƒûté̓æÍæ»Ì6͕̓ÇéŽÍ=ƒûté ̓æÍæ»Ü6Í•Í=ƒûté ̓æÍæ»î6Í•Í=ƒû té ̓æÍæ»7Í•Í=ƒûté ̓æÍæ»7Í•Í=ƒûté ̓æÍæ»*7Í•Í=ƒû3é »Í>"»Í>"Í=ƒû4té̓æÍæ»@7͕̓ÇéìÍ=ƒû5ºuJ¡ ,;ö,»tK#Ú#Ûué £ö,»<Í? Í=ƒû5ºuJƒ>d,»uK#Ú#Ûué̓æÍæ»L,¸R7Í€“»\7͕̀éÐÍ=ƒû5ºuJƒ>d,»uK#Ú#Ûué̓æÍæ»’7Í•é¢Í=ƒû5ºuJƒ>d,»uK#Ú#Ûué̓æÍæ»’7Í•é8ùÍ=ƒû5ºuJƒ>˜,»uK#Ú#Ûué0ǘ,̓æÍæ»0Í•‹.,Í>5Íæ»Œ,Í•‹,,Í>5Íæ»´7Í•éàÍ=ƒû5ºuJƒ>˜,»uK#Ú#Ûué ǘ,»£Í? Í=ƒû9té̓æÍæ»Â7͕̓Çé“Í=ƒû=ºuJ¡",;„,»uK#Ú#Ûué/̓æÍæ»Ö7͕̓T ̓”D̓‹*,Í>5Íæ»˜-͕̓Ç»€0Í? Í=ƒû=té̓æÍæ»Ö7͕̓T ̓”Dé%Í=ƒû>ºuJ¡",;„,»uK#Ú#Ûué9̓æÍæ»ä7Í•‹.,Í>5Íæ»Œ,͕̓T ̓‹*,Í>5Íæ»˜-͕̓Ç»€0Í? Í=ƒû>té ̓æÍæ»ä7Í•‹.,Í>5Íæ»Œ,͕̓T éŸÍ=ƒûFté̓æÍæ»þ7͕̓T é‚Í=ƒûGºuJ¡ ,;ö,»tK#Ú#Ûué̓Íæ»8͕̓Ç¡ ,£ö,»Ú Í? Í=ƒûGté̓æÍæ»8͕̓Çé$‹*,Í>5̓Íæ»08Í•Í=Í”»@8͕̓Ç̓Í̓L»£Í? ¡ ,;®,té »¸,Í>%é»´,Í>%Í‹¡ ,£f,»Í>"̓æÍæ»T8Í•»L,Í•»b8͕̓Íæ»~8͕̓ÍÍ>#‹.,Í>5Í>1Í>Í>+dØ@`ê±DÄêÓî, ° XÖ,Ì65’R$ô£àÛ- sXm@ÔÐT ÔŽ¤4ÑäÇ\Í]áD(ëž Þæ*ç�qùr ƒ¨ „£]ÑbÒDöêL9o:œ[é ¶õ‚R Ï(Ú N&Å2< L#8FH-6<MP°ªiZ®‚Ï´X挆ksX|;3hB!>îxÆÈ¸ÌšËÀ!î6 Úc"ó_(¸ e"ø](ʦ%M�%4R$J(3(f÷&W1ž93Ƶ;¸Bï3rB\5|Br5†Bö8¤B}6�B¦8šB<ÂB–;®BJŒF>‚F>xF:?y'?y°?1yŠDœêŽD¦ê”D°ê BLDÿÿU‹ìŒÈŽØ‹v&‹ ƒù } Éu%°é˜IC.�>ƒù} Éuë$¹&ŠˆGCâ÷ë&‹\.�>&Š<.tЈGCâó‹v &‹.£,‹v &‹.£..�´Í! Àt°ë=.‹..¡,ŽØ´Í!.Ç.Ç(ÿÿ.Ç*.�´$Í!.�´'¹ÿÿÍ!2À‹~2ä&‰´.�Í!]Ê0123456789U‹ìŒÈŽØèðr&‹v &‹ Ét&‹\&Š2äèµrCÿüƒ>üPâè]ÊU‹ìŒÈŽØè¸s銋v &‹�6 3ÛÆ =} »Æ-÷Øë=»Æ ë»Æ+£»3Ò¹ ¡÷ñ€Â0ˆ¡™÷ù£Kƒû}⻀80u ƒûtÆ Cëð»Æ � ¹Š2äèCÿüƒ>üPâë]ÊU‹ìŒÈŽØèsër�‹v &‹�6 3ÛÆ£»3Ò¹ ¡÷ñ€Â0ˆ£Kƒû}軀80u ƒûtÆCëðÆ@ÿ »Æ Æ@� €?uCëøŠ Àt2äèŒCÿüƒ>üP~é]ÊU‹ìŒÈŽØè“s]Ê¡ú£¡ü£ŒÈŽÀ�>¹°0üóªÇ�>‰>¸_è7´Í!< tB<u;>u²´Í!ëภèÿüOëÓ<+t <-t<0|Ç<9È2äèùGÿüƒ>üP~°Æ ƒ>üP¸ èÝ�6èö  %r`ŒÈŽÀ�>FÇ3ÛŠ&8u¸ ÷.ãëCƒû |åFâà€ t÷‹v ¡€ u 3Û Àx&‰éÿ3Û Ày&‰éÿ¡£ü¹¸ èeÿüâô¡£ü´²Í!éóþU‹ìŒÈŽØèhs]Ê‹v &‹|‰>¹¸_è*´Í!< t5<u;>u²´Í!ëภè ÿüOIëÒ&ˆ2äèúGAÿüƒ>üP~½‹v &‰ ƒ>üP¸ èÚéiþU‹ìŒÈŽØèïs]Ê‹v &‹|Ǹ_è²´Í!< tO<u Éu²´Í!ë⸠è”ÿüÿOIëÐ<+t<-t <.t<0|À<9¼&ˆ2äèlGÿÿüAƒ>üP~£ƒ>üP¸ èN‹v ‹&‰ éwÿU‹ìŒÈŽØ‹v&‹¢ÿ‹v&‹¢þ±Òàr ÒèŠ&ÿÒä Äë ÒèŠ&ÿÒä€Ì€ Ä¢]ÊQSP·¡úŠð¡üŠÐ´ÍX´ ¹ŠÍø[YËv&‹=|=H£ú‹v&‹=| =PH£üøÃùÃÆ €< uFëø€<-uö Fë€<+uF3Û¹‰63Ò€8 t€8 t€80| €89CBâè‹ÊøÃùÃÞ9uòùà U‹ì.ÇÍ.�>Ñ‹v&‹.‰Ë‹v&‹ Étƒù}ëéŽ&‹\&Š.ˆGCâö‹^&‹w&Š5@‹^&‹&ˆWG°?¹óª¹.�6Ñ.ŠªFâù‹^ &‹W.‰É´Í!‹^ .‰Ï.ÿÏ.ÿÏZ´Í!<ÿt&.ÿÍè,´Í!<ÿt.ÿÍè.‹Ë.;Ítëâ.¡Í‹~&‰]Ê .‹Ï&‹?ƒÃ.‰Ï.‹6ÉF¹ó¤&Æ.G¹ó¤Ãó¥ŽÚ‹. ‹Å+Â=r¸^_‹Õ+бÓàŽÒ‹àWV-P‹ð‹ø@‘ýó¤üX¹°8ÿ. °¿°¢ _^‰&VWË_^[VWÿ6ÿ7Ë $.CDMINDST.BLD4.M‚:.CM@.MMF.FTL.INR.MILSZ.Can't recognize DBU unit name !Ë~.CP.DBUˆ.Continue ......(Y/N) ? ¤.NЪ.n°.Yâ¶.y ¼.Enter symbol name to be scaled: à.ä.*ê.:]ð..SYMø.Symbol to be scaled: +/Enter new name, or for existing name: B/.TMPJ/ already exists^/Overwrite ? Y/N r/Output file: :„/This computer does not have enough memory to scale symbols$Â/A minimum of 256 K-bytes is requiredê/ALL SYMBOLS IN THIS DIRECTORY 0 0Symbol 50 has not been translated to 1.40 format; can NOT loadX0 has more thanj0 layers; can NOT load„0 ˜0ABORTED2¤0Enter drive letter for symbol directory (A or B): Ú0 WAIT æ0:CADPLAN.IBMö0SYMþ0No symbol on drive .1THIS DIRECTORY CAN ACCOMODATE 140 SYMBOLS ONLYH1 /T1Do you want symbol directory to be displayed ? ˆ1Total symbols on drive P¤1 : /¬1(C) Copyright Personal CAD Systems - June, 1984+à1This program scales 1.40 Symbol databases"2Recognizes (upper & lower case): #62FT IN MILS M CM MM ' ±^2 onlyj2 #p2^Z = page down #˜2 ^W = page up#À2^Z = page down ^W = page upè2ABî2Loading symbol 3LOADING3Input read error"3CANNOT CONTINUE......<3ENDD3END OF FILE READ ERROR ^3Old DBU #Òl3: r3 = íz3 DBU‚3Writing symbol –3WRITING¢3,ƨ3SYMBOL ¤5´3 IS SAVED, BUT CANNOT BE INSERTED INTO THIS DIRECTORYî3UPDATING DIRECTORY4Do you want to scale symbol $4 by using new DBU ? <4Enter DBU #: N4Enter 1 to \4New DBU #j4Enter scaling factor: „4. Š4Scale symbol #œ4 by:¤4SCALING�€�€�þ�üŽÄ4Coordinates out of boundsâ4-@„owzŠ „M3K… 5SCALING FACTOR =/ 5 press to continue scaling other symbols{T5SCALE ALL SYMBOLSj5Press space bar to abort†5 symbol š5Can't scale symbol 4²5Do you want to scale all symbols by using new DBU ? ê5Scale all symbols6D6/ 6=6#6Current DBU is #,6, i.e. 86Any key to continue P6Press any key2b6Default DBU error ...... Searching for a valid one,˜6Error in CP.DBU file ..... can NOT continue!Ð�Є� Ð6SYNTAX ERROR à6OUT OF BOUNDSò6MEMORY OVERFLOW7DIVISION BY ZERO7INTERFACE FAULT.7PRINTER NOT READY D7BAD FILE NAMEV7File È1`7 is required to scale symbols, but is not on disk–7File CP.DBU not found on disk ¸7 not foundÆ7DEVICE I/O ERROR Ú7DISK FULLè7File error in symbol 8DISK IS WRITE PROTECTED8DISK IS NOT READY 48DOS Error #D8 Hit any key X8Error in ?f8 ..... can NOT continue!‚8Press any key to abortÿÿº¦ŽÚ&‹>ŽÂW¹ ¾ñ¿ üó¤±3ÀóªŽÚ_´º Í! Àt=Æ ´Í! Àt0º¼´ Í!Æ"º"´ Í!€>#uâ $$ß,@tÙ<wÕ¢ ë¸3À£; £= @£( º ´Í!¹º ´'Í!¡ %àÿ£; Ç( ‹ J±Óâ+С ±ÓèЉ +úƒïŒÖ‹ÜƒÃ±Óëó;þs鳋ïŽß3Ò´Í!‹ º ´'Í!) u&¡ £; Ç( º ´Í!ƒ> t"´'º ¹Í! Àui‹> ¡ ÅŽÀ&-ÿ uÞ[. ŽÝ¹3ö‹þüó¥¸ÝŽØ¹†+ÈÑáÑáÑḈŽÀ3ö3ÿó¥ŒÑŒØ+È�ùv¹ÑáÑáÑáºÝŽÂ3ö‹þê׺�뺦´ Í!3ÀPË Error in EXE fö  ile $ Program too large $ Cannot find A:BASRUN.EXE Enter new drive letter: $BASRUN EXEÍ= Í�té ÇÅé ÇÅ¡þÄ@£þÄÍ‹ÇTÅ» Åº@ÅÍŒÍ=º0ÃÍŒ’» ÅÍ�tð»0ÃÍå“£Ã>à »uK¡\Á;Tź}J#Ó#Òué »Öθ@ÅÍ€’͌͋ƒ>à té̓Ÿ¡\Á£˜ÁÇÂ;ÇŒ͊鳃>à té¡VÅ@£VÅ»0ú$ÃÍŒÍƒß ¡>ÃH£>Ãémÿƒ>ÃtéNƒ>TÅuéYÿ¡TÅH£TÅ¡VÅH£VÅ»@Å‹TÅ‹ËÍ= ‹ÑÍŒ¡>Ã+^Á£>Ã»ÆÆº$ÃÍŒÍƒß ¡>Ã+`Á£>Ãéÿé »@ÅÍäƒû#|éÿƒ>Ã0»}Kƒ>Ã/ºtJ#Óƒ>Ã.»tK#Úƒ>Ã"ºtJ#Óƒ>Ã'»tK#Úƒ>Ã9º~Jƒ>ÃA¹}I#ʃRID,N0)33000! THEN WX=33000!-TXMAX! TXMAX!=(WX+SCRNDRWMAXX/SCALE!)-N1 TYMAX!=(SCRNDRWMAXY/SCALE!)-N1 IF (TYMAX!+WY)>33000! THEN WY=33000!-TYMAX! TYMAX!=(WY+SCRNDRWMAXY/SCALE!)-N1SETINT CPTRANS RESETINTðÿ`€ Àà! #@%`'€) +À-à/1 ÿO5`7€9 ;Àÿï?A C@E`G€I KÀMàOQ S@U`W€ÿÿÿ[À]à_a c@e`g€i kÀmàoqðÿööööåöööööööööööööööööööööööööööööööR,PIXSET):RETURN 1536 IF CLRT(ALAY)=N1 THEN CLR=N2:RETURN ELSE IF CLRT(ALAY)=N2 THEN CLR=N3:RETURN ELSE IF CLRT(ALAY)=N3 THEN CLR=N2:RETURN 1630 WIN=&H3:CALL ABSOLUTE (SCRNDRWMAXY,N0,SCRNDRWMAXX,N0,WIN):WIN=&H2A:CALL ABSOLUTE (SCRNDRWMAXY,N0,SCRNDRWMAXX,N0,WIN):WIN=&H33:CALL ABSOLUTE (SCRNDRWMAXY,N0,SCRNDRWMAXX,N0,WIN):RETURN 1640 CALL ABSOLUTE (N0,SAVSTART,SMDRWBXLFT,N0,SMDRWBXRGT,MNUSDBXBTM,MAIN,SAVWIN):GOSUB 1397:RETURN 1650 WIN=&H3:CALL ABSOLUTE (SCRNDRWMAXY,N0,SCRNMAXX,N0,WIN):WIN=&H2A:CALL ABSOLUTMZÝ ãÿÿÌä " )Íù¦¬ Ê@EPq|bmw·>@ @ @ @  5°5<šU‹ì�ìšK°ÇÄ3ÇÆ3ÇÈ3ÇÊ3ÇÌ3ÇÎ3ÇÐ3ÇÒ3ÇÔ3ÇÖ3 »Í?¡Æ3£À4‹Ø¡Ä3£Â4ÇÄ4BÇÆ4E‹Ë»°5ºÈ4ÍŒ‘£Ì4»Í>"‹Ã3ÛÍ>!“‘Í>Í>"£Ì4ÇÎ4‹Î4Í>¸Î4P¸Ä3P¸Ð4P¸È4Pš0¡ü¡Ä3;Ð4téJÇÒ4ÇÔ4H¸Ò4P¸Ä3P¸Ô4PšY°üÇÖ4K¸Ø4P¸Ú4P¸Ö4PšY°ü¡Ò3£Ú4̓-Í>1»Í>5‹Æ3Í>B‹Ó»Í>DÍæ»À5Í•»Í>5‹Ê3Í>B‹ÚÍ>DÍæ»ô5Í•¡Æ3;À4té+»Í>B»Í>DÍæ»F6͕̓ÇÜ4̓f»„6¸Þ4Í�tÉ¡Æ3;À4téW»Þ4‹ÓÍå“£â4ƒ>â4@»~Kƒ>â4C¹}I#˃>â4`»~Kƒ>â4c¸}H#à Á#Àué‹Úºä4ÍŒ¡Ä3£À4ééfÿ‹Î3Í>B‹Æ3Í>DÍæ»ˆ6͕̓»Ø6¸Þ4Í�ºuJ»Þ6Í�¹uI Ê#Éu顯3£è4»ä6ºê4͌鄻ì6¸Þ4Í�ºuJ»ò6Í�¹uI Ê#Éué¡È3£è4»ø6ºê4ÍŒéQ»7¸Þ4Í�ºuJ»7Í�¹uI Ê#Étéq» 7¸Þ4Í�ºuJ»7Í�¹uI Ê#ÉtéСÎ3£Ü4̓fé0ÿ‹Ò3Í>B‹Æ3Í>D¡È3;è4té,Íæ»7͕̓A»ê4¸Þ4Í€ºî4ÍŒ‹Úºò4ÍŒ¡Æ3£ö4̓ŽéÍæ»J7͕̓A»ê4¸Þ4Í€ºî4͌̓Ó̓Žéà¡Ä3é@¸é‹Ø÷.Ä3—>ø4Ñç‹Ä3‰•B ‹Ê“‹Ø÷.Æ3—>ø4Ñç‰�B “÷.È3—>ø4Ñç‰�B ¡ø4@£ø4�>ø4è~µ¡Ú4£ú4¡Æ3é;¸é÷.Ä3Ä3ÑàB P¸ø4P¸Ä4PšY°ü¸B÷.Æ3—>ø4Ñç‹Ä3‰�¸#¡ø4@£ø4¡ú4;ø4}¹Í‹¡Ö3£Ü4̓f»Í>5Íæ»z7͕̓A»„6¸Þ4Í�té»î4ºò4ÍŒ‹Ö3Í>B»,Í>DÍæ‹ÚÍ•é »ê4¸Þ4Í€ºò4͌̓,Í‹¡Æ3;Â4»uK‹Ó»î4‹È¸ò4Í�‰^þ»uK Ú#Ûué‘£ö4é¡Ä3£ö4Í‹‹Ü4Í>B‹Ó‹Æ3Í>DÍæ‹Ë»OÍ= Í•‹ÚÍ>B‹ÙÍ>DÍ‹ÇÜ4̓f» Í>5Íæ»ª7Í•»î4Í™»Í>5Í‹ÇÜ4̓fÇÜ4̓fÍ‹¡Æ3é¡ü4@£ü4�>ü4}~ñÍ‹¡Ì3£þ4¡Æ3顯3é¡ü4@£ü4�>ü4}~ñ¡5@£5¡þ4;5}ÛÍ‹Í=ºÞ4ÍŒ’»„6Í�tð»Þ4‹ÓÍåƒû t黄6ÍŒÍ‹Íæ»Þ4͕͋»„6º5ÍŒÍ=ºÞ4ÍŒ’»„6Í�tð»Þ4‹ÓÍå“£5ƒ>5 té»5͌͋ƒ>5té »„6ºÞ4͌͋¡Ô3;5tébÍ=%“£5‹Ä3Í=!+Æ3“£ 5»5Íä“£ 5¡Æ3; 5Œ‹ 5+Æ3»5‹ËÍ= ‹ÑÍŒ‹5Í>B‹Ó‹ 5Í>DÍæ‹Ë»º7Í•‹ÚÍ>B‹ÙÍ>DéRÿ»5Íä;Ò3ö  º~Jƒ>50»}Kƒ>5-¹tI#˃>5/»tK#Ù Úƒ>59º~Jƒ>5A¹}I#Ê Ëƒ>5Z»~Kƒ>5aº}J#Ó Ñƒ>5z»~K Ú#ÛtéÔþÍæ»Þ4Í•¸5Í€’ÍŒéÂþ» Í>5̓²Íæ»À7͕̓»„6¸Þ4Í�uéa»Þ4Íå“£â4ƒ>â4@»~Kƒ>â4Cº}J#Óƒ>â4`»~Kƒ>â4c¹}I#Ë Ê#Éué»Þ4ºä4͌̓²¡Î3£Ü4̓f»Í>5éêúézÿ»ä7¸ä4Í€“»î4Í€º5ÍŒ¡È3£Ì43ÛÍ>!‹Ë»Í>¡Ä3£Ì4̓²»Í>5Íæ»ê7Í•»Í>5»ÍáÍâ»5Íã»5Íã»5Íã�>5Œté6»Í>"̓²» Í>5Íæ»î4Í•»8͕̓ß̓È̓È̓È̓²»Í>5�>5Œ»uK¡Æ3;Â4º~J#Ó#Òté �>5Œ»uK¡Ä3;Â4º}J#Ó#ÒtéË ¡Ú4;5|éa»Í>"ÇÜ4̓f» Í>5Íæ»î4Í•»"8Í•‹5Í”»*8Í•ÇÜ4̓fÍæ»48Í•‹Ú4Í”»F8͕̓ß̓È̓È̓È̓È̓²¡Ú4;5»}K¡Æ3;Â4º~J#Ó#ÒtéÍ ¡Ú4;5»}K¡Ä3;Â4º}J#Ó#Òué̓²é »ÍáÍâ»5Íã»5Íã»5Íãƒ>5uéç¸B÷.Æ3—>5Ñç‹5‰�¸#ƒ>5uéE»Í>"ÇÜ4̓f» Í>5Íæ»^8Í•»î4͕̓ß̓È̓È̓-̓²¡Æ3;Â4~é éˆ ¡Ä3;5uékÿ¡5£5¡5+Æ3£ 5¡Ä3é-»ÍáÍâ¸é‹Ø÷.Ä3ø4Ñà‹ÐB “Íã‹Ú‹È÷.Æ3ø4ÑàB “Íã‘÷.È3ø4ÑàB “Íã‹ù�½B @é,‹…B ‹Ø%?£"5�ãÀ“÷.È3£$5¡$5 "5 @%¿ÿ‰…B 驸é÷.Ä3—>ø4Ñç‹�B #Ò3;Ð3t銋>ø4Ñç‹…æ‹Ø%º‹Ê÷é£&5�ã€?“‹Ù¹€™÷ù÷ë£(5¡&5%ÿ£*5‹(5‹ÓÑãÑãÑãÑãÑãÑãÑãÑãÑã�ãþ“£,5¡,5 *5‰…æ�â€ÑâÑâÑâÑâÑâÑâÑâ’£.5‹…%ÿ?£05¡.5 05‰…¡ø4@£ø4¡ 5;ø4|éÄþ¸é÷.Ä3Ä3ÑàB P¸5P¸Ä4PšY°üéõý»ÍáÍâ»25Íã»45Íã»65Íã»:5Íã»<5Íã»>5Íã»@5Íã»B5Íã»D5Íã»F5Íã»H5Íã»J5Íã»L5Íã‹Ó»P5Íã’»Ø6Í�té ’»ˆ8ÍŒé4»Ž8¸L5Í�té ’»”8͌黚8¸L5Í�té ’» 8͌黦8ºL5ÍŒ¡D5£T5¡Æ3é7»ÍáÍâ¸y‹Ø÷.Ä3ø4ÑàÑàä.“Íã÷.Æ3ø4ÑàÑàä.“Íã¡ø4@£ø4¡T5;ø4}½¡D5£V5¡Æ3éY»ÍáÍâ¸y‹Ø÷.Ä3ø4ÑàÈ%“Íã‹Ø÷.Æ3ø4ÑàÈ%“Íã‹Ø÷.È3ø4ÑàÈ%“Íã÷.Ê3ø4ÑàÈ%“Íã¡ø4@£ø4¡V5;ø4}›¡Æ3é3»ÍáÍ⸠‹Ø÷.Ä3ø4Ñà3“Íã÷.Æ3ø4Ñà3“Íã¡ø4@£ø4ƒ>ø4 ~áÆ3é=»ÍáÍâ‹ø4‹ÓÑã‹Ë�ÃD%Íã‹Ú¸B÷.Ä3ÃÑà¸#“Íã»X5Íã�ÁX-‹ÙÍã@£ø4ƒ>ø4A~¹¡Î3£Z5¡Æ3éL»ÍáÍ⸋Ø÷.Ä3ø4ÑàÑà¬2“Íã‹Ø÷.Æ3ø4ÑàÑà¬2“Íã÷.È3ø4ÑàÑà¬2“Íã¡ø4@£ø4¡Z5;ø4}¨¡Æ3é»ÍáÍâ‹ø4‹ÓÑã�Ãô2ÍãB’£ø4ƒ>ø4~Ý»ÍáÍâ»\5Íã“»¬8Í�ué?»Í>"̓²» Í>5Íæ»´8Í•»î4͕̓ß̓È̓È̓-̓²¡Æ3;Â4~éÀé+»ä7¸ä4Í€“»ò4Í€º`5ÍŒ¡Æ3;ö4uék»Í>"¡Æ3£d5‹Ó3ÛÍ>!‹Ã‹Ú‘º`5Í>̓²»Í>5Íæ»ò4Í•»ä8͕̓¡Ä3£d5»9¸Þ4Í�ºtJ»9Í�¹tI#Ê#Éué ̓²̓Óévÿ¡Ä3£d5»Í>"‹Ó»Í>!‹Úº`53ÉÍ>̓²»Í>5Íæ»9Í•»Í>5̓~»Í>»ŒÍ”‹f5Í”‹h5Í”‹j5Í”‹l5Í”‹5Í”‹Ó‹5Í”‹5͘’£n5¡Æ3éÛ¸B÷.Æ3—>5Ñç‹�¸#;Ä3鼸é÷.Ä3Ä3ÑàB P¸5P¸Æ4PšY°ü¸B÷.Æ3—>5Ñç‹…¸#£5Ç5»Í>‹5Í”‹5Í”‹5͘¡5+Æ3£p5¡Ä3éL»Í>¸é‹Ø÷.Ä3—>ø4Ñç‹Ó‹�B Í”‹Ú’÷.Æ3—>ø4Ñç‹Ó‹�B Í”‹Ú’÷.È3—>ø4Ñç‹�B ͘¡ø4@£ø4¡p5;ø4}¨¡5@£5¡n5;5|éÿÇr5»Í>‹Ó‹r5͔͔͘‹ÚÍ>‹25Í”‹45Í”»65Í’‹:5Í”‹<5Í”‹>5Í”‹@5Í”‹B5Í”‹D5Í”‹Ë‹F5Í”‹H5Í”‹J5͘‹ÚÍè»L5Í•».9Í•»P5Í™‘£t5¡Æ3é7»Íè¸y‹Ø÷.Ä3ø4ÑàÑàä.“Í•».9Í•÷.Æ3ø4ÑàÑàä.“Í™¡ø4@£ø4¡t5;ø4}½¡D5£v5¡Æ3éb»Í>¸y‹Ø÷.Ä3—>ø4Ñç‹Ó‹�È%Í”‹Ú’÷.Æ3—>ø4Ñç‹Ó‹�È%Í”‹Ú’÷.È3—>ø4Ñç‹Ó‹�È%Í”‹Ú’÷.Ê3—>ø4Ñç‹�È%͘¡ø4@£ø4¡v5;ø4}’¡Æ3é6»Í>¸ ‹Ø÷.Ä3—>ø4Ñç‹Ó‹�3Í”‹Ú’÷.Æ3—>ø4Ñç‹�3͘¡ø4@£ø4ƒ>ø4 ~À¡Æ3é>»Í>‹>ø4‹ßÑç‹Ó‹�D%Í”‹Ú¸B÷.Ä3Ã–Ñæ‹Ó‹œ¸#Í”‹�X-Í”»Í”»„6Í™B’£ø4ƒ>ø4A~¸¡Î3£x5¡Æ3éG»Í>¸‹Ø÷.Ä3ø4ÑàÑà¬2“Í’‹Ø÷.Æ3ø4ÑàÑà¬2“Í’÷.È3ø4ÑàÑà¬2“Í–¡ø4@£ø4¡x5;ø4}­¡Æ3é»Í>‹>ø4‹ßÑç‹Ó‹�ô2͘B’£ø4ƒ>ø4~Þ»¬8º\5ÍŒ»Íè‹Ë‹ÚÍ™‹ÙÍ>"̓²ÇÜ4̓f» Í>5Íæ»49Í™»�ºN9Í>U̓È̓ÈÇÜ4̓f»Í>5¡Æ3;è4»uK;Â4ºuJ Ó#ÒtéE̓²»Í>5Íæ»R9͕̓»9¸Þ4Í�ºuJ»9Í�¹uI Ê#Éué ̓²̓-é”îéu¡Ä3;Â4}顯3;D5¦Í>1¡D5£z5¡Æ3éÍæ¸y÷.Ä3ø4ÑàÑàä.“Í‘¡ø4@£ø4¡z5;ø4}ÙÇÜ4̓fÍæ»î4Í•»x9Í•ÇÜ4̓f»Í>5Íæ»¾9Í•ÇÜ4̓fÍæ»:Í•»î4Í•»:͕̓ÇÜ4̓f̓²»9¸Þ4Í�ºtJ»9Í�¹tI#Ê#Étéôþ¡D5£|5¡|5£~5¡Æ3é&‹ø4‹ÓÑãÑã�ÃØ3‹Ê¸y÷.Ä3ÁÑàÑàä.“’ÍŒA‘£ø4¡~5;ø4}ΡÈ3£è4¡Æ3£Â4̓²¡Ä3£€5»ø6ºê4ÍŒ¡Æ3€5£€5¡|5;€5|é ¡Ä3£Â4ésþ‹€5ÑãÑã�ÃØ3“»ê4Í€ºî4ÍŒ‹Úºò4͌̓-̓,̓Žéó»Í>5Í>1Í>» Í>5̓²ÇÜ4Í=;Ð3té ̓fÍæ»B:Í•Í=;Ò3té ̓fÍæ»N:Í•Í=ƒûté ̓fÍæ»b:Í•Í=ƒûté ̓fÍæ»v:Í•Í=ƒû4té ̓fÍæ»Œ:Í•Í=ƒû5ºuJ¡Æ3;d5»uK#Ú#Ûué»Í? Í=ƒû5ºuJ¡Æ3;Ì4»uK#Ú#ÛtéLÍ=ƒû5ºuJ¡È3;Ì4»uK#Ú¡Ä3;Â4º}J#Ó#Òué+£Ì4»Í>"̓²Íæ»î4Í•»ž:͕̓ß̓̓²»ºÍ? Í=ƒû5ºuJ¡È3;Ì4»uK#Ú#Ûué.¡Ä3£Ì4»Í>"̓²Íæ»î4Í•»ž:͕̓ß̓̓²»LÍ? Í=ƒûFté ̓fÍæ»¾:Í•Í=ƒûGté ̓fÍæ»Ú:Í•Í=ƒû9té ̓fÍæ»ð:Í•Í=ƒû té ̓fÍæ»;Í•ÇÜ4̓fÍæ»;Í•Í=Í”»(;͕̓ßÍö  ƒ̓²»Í>"¡Æ3;Â4é »LÍ? 黺Í? ¡Ä3£Ì4»Í>"» Í>5̓fÍæ»N;Í•»È4Í•»X;Í•ÇÜ4̓fÍæ»˜;Í•ÇÜ4̓f»Í>5Íæ»è;͕̓éˆý¡Ä3£‚5¿„5¾<ͦ¿ˆ5‹Þ¾<ͦ‹Ö‹ó¿Œ5ͦ‹ò¿�5ͦ¡Ú4£”5¡Æ3é(¸B‹Ø÷.Ä3—>5Ñç‹•¸#;Æ3¹tI“÷.Æ3—>5Ñç‹�¸#;Æ3º}J Ñ#Òtéã¸é÷.Ä3Ä3ÑàB P¸5P¸Æ4PšY°ü¸B÷.Æ3—>5Ñç‹…¸#+Æ3£–5¡Ä3锸鋨÷.Ä3—>ø4Ñç‹…B £5“‹Ø÷.Æ3—>ø4Ñç‹…B £˜5“÷.È3—>ø4Ñç‹…B £š5¡Æ3;5»~K�>5ÿº~J Ó#Òté/¡Ò3#5;Ð3t願5%ÿ?£05¡Ä3£‚5̓K¡˜5£œ5¡š5£ž5¡ø4@£ø4¡–5;ø4|é]ÿ¡5@£5¡”5;5|éÉþ¿<¾„5ÍÊ»uK¾Œ5ÍʺuJ Ó#ÒuéÇf5€Çh5€Çj5ÿÇl5ÿÍ‹¾ˆ5Í “£f5¾�5Í “£h5¾„5Í “£j5¾Œ5Í “£l5Í‹¡Ò3#5;Ð3téC¡Ä3;‚5t顯3£‚5¡05‹Øœ5£˜5ž5“£š5顜5+05£˜5¡ž5+05£š5¡Ä3£‚5¿<¾„5ÍÊté ‹˜5Í‚‹þͨ鋘5Í‚¿„5Íœ�ÍÌwé¾ 5ͦ¿<¾ˆ5ÍÊté ‹˜5Í‚‹þͨ鋘5Í‚¿ˆ5Íœ�ÍÌré¾ 5ͦ¿<¾Œ5ÍÊté ‹š5Í‚‹þͨ鋚5Í‚¿Œ5Íœ�ÍÌwé¾ 5ͦ¿<¾�5ÍÊté ‹š5Í‚‹þͨ鋚5Í‚¿�5Íœ�ÍÌré¾ 5ͦ¡Æ3;‚5uéÙþÍ‹Í>g (#(Œ#- "(Z-]f*ô2Ä7@‡èA�ŽH k"<Ó ,%²RÈ[ß\I‚ íLº4©s´ |} t� ½À~îxjÆðþ‘ÐÖyÃyK1y BLDÿÿU‹ìŒÈŽØ‹v&‹ ƒù } Éu%°é˜IC.�>ƒù} Éuë$¹&ŠˆGCâ÷ë&‹\.�>&Š<.tЈGCâó‹v &‹.£,‹v &‹.£..�´Í! Àt°ë=.‹..¡,ŽØ´Í!.Ç.Ç(ÿÿ.Ç*.�´$Í!.�´'¹ÿÿÍ!2À‹~2ä&‰´.�Í!]Êó¥ŽÚ‹. ‹Å+Â=r¸^_‹Õ+бÓàŽÒ‹àWV-P‹ð‹ø@‘ýó¤üX¹ <ÿ. °¿°¢ _^‰&VWË_^[VWÿ6ÿ7Ë ´5CDMINDST.BLD/Ä5(C) Copyright Personal CAD Systems - June, 1984ÂMø5This program translates 1.30 & 1.35 File and Symbol databases to 1.40 format.:J6On which disk drive do Files and Symbols reside? (A or B) ˆ6LŒ6Translate (F)ile or (S)ymbol, (E)xit, (C)hange drive? (Enter F,S,E, or C) Ü6FÚâ6fÅè6.DBFð6Sö6sü6.SYM7E1 7e7CC7c.7Enter name of symbol (.SYM) to be translated: ,N7Enter name of file (.DBF) to be translated: +~7Enter new name, or for existing name: ®7TRANSLATING ¾7 Ä7Enter new drive letter (A or B) è7:î7Loading from disk8 has already been translated!&8 has.8layers 88System max is‹J8- Can NOT translate!%b8Input read error - can NOT translate Œ857’8T'˜858ž8Mm¤859ª860°8END+¸8End of file read error - can NOT translate &è8 Already exists - Overwrite? (Y or N) 9y„9Y9Writing to disk29,Æ89Translation complete!Y‚!V9Translate another file? (Y or N) B|9 uses the above Symbols - do you wish to translate all? (Y or N) EÂ9(This is your only opportunity to automatically translate all Symbols# : used by (: - Answering (Y)es is strongly advised) F:OverflowR:Memory overflowf:Interface faultz:Printer not ready �:Bad file name¢: not found .... hit any key Â:Disk is write protectedÞ:Disk is not readyô:Device I/O error;Division by zero ;DOS error #Ñ",;- can NOT translate. Hit any key R;File <\; is required to translate databases, but is not on this diskLœ;drive. Be sure you have copied both files from the Database Translator diskì;Press any key to abort Ð�Є�ÿÿº>ŽÚ&‹>ŽÂW¹ ¾ñ¿ üó¤±3ÀóªŽÚ_´º Í! Àt=Æ ´Í! Àt0º¼´ Í!Æ"º"´ Í!€>#uâ $$ß,@tÙ<wÕ¢ ë¸3À£; £= @£( º ´Í!¹º ´'Í!¡ %àÿ£; Ç( ‹ J±Óâ+С ±ÓèЉ +úƒïŒÖ‹ÜƒÃ±Óëó;þs鳋ïŽß3Ò´Í!‹ º ´'Í!) u&¡ £; Ç( º ´Í!ƒ> t"´'º ¹Í! Àui‹> ¡ ÅŽÀ&-ÿ uÞ[. ŽÝ¹3ö‹þü󥏷ި¹+ÈÑáÑáÑḙŽÀ3ö3ÿó¥ŒÑŒØ+È�ùv¹ÑáÑáÑặŽÂ3ö‹þê °º�뺦´ Í!3ÀPË Error in EXE file $ Program too large $ Cannot find A:BASRUN.EXE Enter new drive letter: $BASRUN EXEFOR Z1=BCN+1 TO ECN OP=CDB(Z1,N0):DX1=CDB(Z1,N1)-COX:DY1=CDB(Z1,N2)-COY IF OP=8192 GOTO 3350 IF OPN0 OR (CDB(Z1,N1) AND &HC000)<>N0) THEN X=CDB(Z1,N1):Y=CDB(Z1,N2):GOSUB 2270:X=(X AND &H3FFF):STA=STA+ROTDEGö  1/Unit,1 = 1# 1"/Fraction FT-IN,1 = 1",12 = 1' 1\2"/Fraction FT-IN,1 = 1/2",24 = 1' 1\4"/Fraction FT-IN,1 = 1/4",48 = 1' 1\8"/Fraction FT-IN,1 = 1/8",96 = 1' 1\16"/Fraction FT-IN,1 = 1/16",192 = 1' 1\16"/Fraction 1/8DA,2 = 1/8",192 = 1' 1\32"/Fraction FT-IN,1 = 1/32",384 = 1' 1\64"/Fraction FT-IN,1 = 1/64",768 = 1' 1\128"/Fraction FT-IN,1 = 1/128",1536 = 1' 1.0"/Decimal INCH,.1 = .1" .5"/Decimal INCH,1 = .5" .25"/Decimal INCH,1 = .25" .125"/Decimal INCH,1 = .125" .1"/Decimal INCH,1 = .1" .0625"/Decimal INCH,1 = .0625" .0625"/Decimal 1/8DA,2 = .125" .05"/Decimal INCH,1 = .05" .01"/Decimal INCH,1 = .01" .005"/Decimal INCH,1 = .005" .002"/Decimal INCH,1 = .002" .001"/Decimal INCH,1 = .001" .0005"/Decimal INCH,1 = .0005" 1.0'/Decimal FEET,.1 = .1' .1'/Decimal FEET,1 = .1' .01'/Decimal FEET,1 = .01' .005'/Decimal FEET,1 = .005' .001'/Decimal FEET,1 = .001' 1.0/Decimal,.1 = .1# .5/Decimal,1 = .5# .1/Decimal,1 = .1# .05/Decimal,1 = .05# .01/Decimal,1 = .01# .005/Decimal,1 = .005# .001/Decimal,1 = .001# .0005/Decimal,1 = .0005# 1mm/Metric,1 = 1mm .1mm/Metric,1 = .1mm .01mm/Metric,1 = .01mm .001mm/Metric,1 = .001mm User/Definable,1=1# User/Definable,1=1# User/Definable,1=1# User/Definable,1=1# User/Definable,1=1# User/Definable,1=1# User/Definable,1=1# User/Definable,1=1# User/Definable,1=1# User/Definable,1=1# User/Definable,1=1# User/Definable,1=1# User/Definable,1=1# User/Definable,1=1# User/Definable,1=1# User/Definable,1=1# 1"/FT-IN (1.35),1 = 1",12 = 1' 0.1"/TENTHS (1.35),1 = 0.1",120 = 1' 0.001"/MILS (1.35),1 = 0.001",12000 = 1' 1/UNITS (1.35),1 = 1 UNITS Í•‹ÚÍ>B‹ÙÍ>DÍ‹ÇÜ4̓f» Í>5Íæ»ª7Í•»î4Í™»Í>5Í‹ÇÜ4̓fÇÜ4̓fÍ‹¡Æ3é¡ü4@£ü4�>ü4}~ñÍ‹¡Ì3£þ4¡Æ3顯3é¡ü4@£ü4�>ü4}~ñ¡5@£5¡þ4;5}ÛÍ‹Í=ºÞ4ÍŒ’»„6Í�tð»Þ4‹ÓÍåƒû t黄6ÍŒÍ‹Íæ»Þ4͕͋»„6º5ÍŒÍ=ºÞ4ÍŒ’»„6Í�tð»Þ4‹ÓÍå“£5ƒ>5 té»5͌͋ƒ>5té »„6ºÞ4͌͋¡Ô3;5tébÍ=%“£5‹Ä3Í=!+Æ3“£ 5»5Íä“£ 5¡Æ3; 5Œ‹ 5+Æ3»5‹ËÍ= ‹ÑÍŒ‹5Í>B‹Ó‹ 5Í>DÍæ‹Ë»º7Í•‹ÚÍ>B‹ÙÍ>DéRÿ»5Íä;Ò3MZt ÿÿTµl Û 3ÀPŽØ¡¸£€¡º£‚¡¼£„¡¾£†ËSTACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK 05"/Decimal INCH,1 = .005" .002"/Decimal INCH,1 = .002" .001"/Decimal INCH,1 = .001" .0005"/Decimal INCH,1 = .0005" 1.0'/Decimal FEET,.1 = .1' .1'/Decimal FEET,1 = .1' .01'/Decimal FEET,1 = .01' .005'/Decimal FEET,1 = .005' .001'/Decimal FEET,1 = .001' 1.0/Decimal,.1 = .1# .5/Decimal,1 = .5# .1/Decimal,1 = .1# .05/Decimal,1 = .05# .01/Decimal,1 = .01# .005/DeMZt ÿÿTÝC Û 3ÀPŽØ¡€£¸¡‚£º¡„£¼¡†£¾ËSTACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK 05"/Decimal INCH,1 = .005" .002"/Decimal INCH,1 = .002" .001"/Decimal INCH,1 = .001" .0005"/Decimal INCH,1 = .0005" 1.0'/Decimal FEET,.1 = .1' .1'/Decimal FEET,1 = .1' .01'/Decimal FEET,1 = .01' .005'/Decimal FEET,1 = .005' .001'/Decimal FEET,1 = .001' 1.0/Decimal,.1 = .1# .5/Decimal,1 = .5# .1/Decimal,1 = .1# .05/Decimal,1 = .05# .01/Decimal,1 = .01# .005/Deö  $BASRUN EXEU‹ìŒÈŽØ‹^&‹‰f@‹^&‹‰h@Ñé‰t@‹^ &‹‰r@‹^ &‹‰p@¡v@÷.h@‰z@£|@¡x@÷.h@‰~@£€@¡p@÷.f@‹Ê‹Ø¡r@÷.f@+Ãщ‚@£„@÷€u+|@z@÷€u( Òu Àt ¡v@ë&‹~@¡€@+„@‚@÷€u¡x@@ë ‹‚@¡„@÷>h@‹~&‰]Ê U‹ìŒÈŽØ‹^ &‹‰j@‹^ &‹‰l@¡l@‹^&‹‰n@¡n@™‹Ê‹Ø¡j@™+Ãыʋءl@™ÃÑ÷€t ©€u ¸€ë©€t¸ÿ‹~&‰]Êöööööööööööööööööåöööööööööööööööööööööööööööööööåööööööööööööööööööööööööööööööö GOSUB 1410:STRG$=SCALMSG1$+SCALMSG2$:GOSUB 841 IF PTYPE=N1 AND DEVICE$<>"Y" THEN GOSUB 1450 IF PTYPE=N1 THEN PIXDUMP=&H2D:CALL ABSOLUTE(PERR,PIXDUMP) IF PTYPE=N1 THEN IF PERR<>13 THEN GOSUB 1450:STRG$="Communications error detected":GOSUB 841:GOSUB 1480:GOSUB 1485:GOSUB 1485:GOSUB 1400:STRG$="Make sure printer is on & cable is":GOSUB 841 IF PTYPE=N1 THEN IF PERR<>13 THEN GOSUB 1410:STRG$="connected; Hit any key - restart PLOT":GOSUB 841:GOSUB 1470:GOTO 4040 IF PTYPE=N2 THEN PLOTTER$=PLOTDRIV$+":"+OUTPUTDV$:PLOTFLAG=N1:CLOSE 2:OPEN PLOTTER$ FOR INPUT AS #2:CLOSE 2:PLOTFLAG=N0 IF PTYPE=N2 AND COMMPORT=N1 THEN CLOSE 1 IF PTYPE=N2 THEN GOSUB 1450:STRG$="WAIT":GOSUB 841:CHAIN PLOTTER$ 3990 IF PTYPE=N3 THEN PTYPE=N2:OLDPTYPE=N2:GOTO 3500 IF PTYPE=N1 THEN IN$=INKEY$:IF IN$<>"" THEN GOSUB 1450:STRG$="ABORT PLOTTING? (Y or N)":GOSUB 841:GOSUB 1470:IF IN$="Y" OR IN$="y" THEN 4030 4000 DEF SEG=SEGDEF IF ZZPN0 THEN STRG$="Unplug PLOTTER from Comm Port #1":GOSUB 841:GOSUB 1410:STRG$="Reconnect input device, then any key ":GOSUB 841:GOSUB 1470 4040 GOSUB 1380:GOSUB 1390:GOSUB 1630 IF INPUTDV=N0 THEN INITMICRO=&H54:CALL ABSOLUTE (STATUS,INITMICRO):COMMODE=&H83 IF INPUTDV=N1 THEN INITCOM=&H12:CALL ABSOLUTE (INITCOM):COMMODE=&H83 IF INPUTDV=N3 OR INPUTDV=N5 OR INPUTDV=N6 THEN GINITCOM=&H1E:CALL ABSOLUTE (GINITCOM):COMMODE=&H83 IF INPUTDV=N7 THEN COMMODE=&H83:INTKURTA1=&H36:CALL ABSOLUTE (INTKURTA1) IF SYSTYPE=N2 THEN GOSUB 1400:STRG$="Insert CADDRAFT Disk 'A'in Drive A":GOSUB 841:GOSUB 1410:STRG$="Hit any key when ready ":GOSUB 841:GOSUB 1370 WX=OWX:WY=OWY:SCALE!=OSCALE!:INMENU=N1:BXD=315:BYD=140:TMPOSCALE!=N0:GOSUB 2350:GOSUB 1430:GOTO 860 ' 4090 GOSUB 1400:STRG$="FILE SHOULD BE SAVED BEFORE CONTINUING!":GOSUB 841:PRINT CHR$(7); GOSUB 1410:STRG$="Hit A to abort PLOT, or any key":GOSUB 841:GOSUB 1470 GOSUB 1450:IF IN$="A" OR IN$="a" THEN GOSUB 1420:MAIN=N0:BXD=315:GOTO 860 PLOTTER$=PLOTDRIV$+":"+OUTPUTDV$ IF SYSTYPE=N2 THEN GOSUB 1400:STRG$="Insert CADDRAFT Plotter Disk in Drive A":GOSUB 841:GOSUB 1410:STRG$="Hit any key when ready ":GOSUB 841:GOSUB 1370 PLOTFLAG=1:CLOSE 2:OPEN PLOTTER$ FOR INPUT AS #2:CLOSE 2:PLOTFLAG=N0:CHAIN PLOTTER$ ' 4305 SWAP LX,HX:SWAP LY,HY:GOSUB 2235:SWAP LX,HX:SWAP LY,HY:RETURN ' 4450 'PDRWWDTH!=5.68 'JAPANESE IBM PRINTER PDRWWDTH!=8.0 'EPSON FX-80 PRINTER ' RATIO#=VAL(DBU$(N0,N1)+"#")/VAL(DBU$(N1,N1)+"#") ' PNTRSIZE!=PDRWWDTH!*RATIO# DISCALE!=(SCRNMAXX+1)/PNTRSIZE! 4480 RETURN ' ' *** ROTATION SYMBOL *** 5000 ON ROT GOTO 5001,5002,5003,5004:RETURN 5001 SWAP DX1,DY1:DX1=-DX1:RETURN 5002 DX1=-DX1:DY1=-DY1:RETURN 5003 SWAP DX1,DY1:DY1=-DY1:RETURN 5004 GOSUB 1460:TRX=DX1*COSPHI!-DY1*SINPHI!:TRY=DX1*SINPHI!+DY1*COSPHI!:DX1=TRX:DY1=TRY RETURN ' ' *** ROTATE TEXT SUBROUTINE DISPLAY ONLY *** ' 5100 ON ROT GOTO 5120,5130,5140,5150 RETURN 5120 SWAP X,Y:X=-X:RETURN 5130 X=-X:Y=-Y:RETURN 5140 SWAP X,Y:Y=-Y:RETURN 5150 TTX=X*COSPHI!-Y*SINPHI!:TTY=X*SINPHI!+Y*COSPHI!:X=TTX:Y=TTY:RETURN ' ' *** SUBROUTINE ROTATE_TEXT_INPUT_MODE_ONLY *** ' ON TXANG GOTO 5210, 5220, 5230 X = X + TXDELTA: RETURN '0 5210 Y = Y + TXDELTA: RETURN '1 5220 X = X - TXDELTA: RETURN '2 5230 Y = Y - TXDELTA: RETURN '3 ' ' *** SUBROUTINE BUNDLE(CN, Tö  XT$, MCODE, TXOP1, TXOP2, X, Y, ALAY, LAY) ' IF CN + (LEN(TXT$) + N3)\N4 < MCODE GOTO 5320 'ENOUGH ROOM GOSUB 1400:STRG$="Cannot accept text. Out of memory":GOSUB 841 GOSUB 1410:STRG$="Press any key to continue":GOSUB 841 '*** STANDARD ERROR RETURN POINT *** 5300 TXT$ = INKEY$: IF TXT$ = "" THEN 5300 ELSE RETURN ' 5320 LAY(CN,N0) = TXOP1: LAY(CN,N1) = X: LAY(CN,N2) = Y 'PLACE OPCODE, X AND Y TXPAD = LEN(TXT$) AND N3: IF TXPAD THEN FOR TXI = N1 TO N4 - TXPAD: TXT$ = TXT$ + CHR$(127): NEXT FOR TXI = N1 TO LEN(TXT$) STEP N4: CN = CN + N1: LAY(CN,N0) = TXOP2 LAY(CN,N1) = (ASC(MID$(TXT$,TXI, N1))) * 256 + (ASC(MID$(TXT$,TXI+N1,N1))) LAY(CN,N2) = (ASC(MID$(TXT$,TXI+N2,N1))) * 256 + (ASC(MID$(TXT$,TXI+N3,N1))) NEXT: LAYVM(ALAY,N1) = CN + N1: RETURN ' ' *** SUBROUTINE TXDRAW(TXZ, ALAY, LAY, MCODE, SCALE!, ROT, CLR, TYPE, LWIDTH, X, Y) ' 5410 TXBX=X:TXBY=Y:TXZ=TXZ+N1:TXI=-N1:TXDELTA=.16666*TXPITCH*TXDBU(TXSIZ) TXS!=.16666*TXDBU(TXSIZ)*SCALE!:IF TXS!>N1 THEN TXSCALE=TXS!*N4 ELSE TXSCALE=-(N1/TXS!) IF ROT= 316 OR ROTDEG <= 45 THEN TXANG = N0: GOTO 5490 'Q1 IF ROTDEG >= 46 AND ROTDEG <= 135 THEN TXANG = N1: GOTO 5490 'Q2 IF ROTDEG >= 136 AND ROTDEG <= 225 THEN TXANG = N2: GOTO 5490 'Q3 TXANG = N3 'Q4 ' 5490 IF TXLAY<>SCRNMAXX GOTO 5510 IF CDB(TXZ,N0)<>TXOP2 THEN 5630 ELSE 5520 5510 IF LAY(TXZ,N0)<>TXOP2 GOTO 5630 5520 TXI=TXI+N1:X=TXI*TXDELTA:Y=N0:GOSUB 5100:X=X+TXBX:Y=Y+TXBY: GOSUB 2230: TXFLAG = N0 IF TXLAY<>SCRNMAXX THEN TXASCII = LAY(TXZ,N1) ELSE TXASCII=CDB(TXZ,N1) CALL ABSOLUTE (TXFLAG,TXASCII,XD,YD,TXANG,TXSCALE,CLR,TYPE,DRAWCHAR): IF TXFLAG < N0 THEN 5620 TXI=TXI+N1:X=TXI*TXDELTA:Y=N0:GOSUB 5100:X=X+TXBX:Y=Y+TXBY: GOSUB 2230: TXFLAG = N1 'TXASCII is the same CALL ABSOLUTE (TXFLAG,TXASCII,XD,YD,TXANG,TXSCALE,CLR,TYPE,DRAWCHAR): IF TXFLAG < N0 THEN 5620 TXI=TXI+N1:X=TXI*TXDELTA:Y=N0:GOSUB 5100:X=X+TXBX:Y=Y+TXBY: GOSUB 2230: TXFLAG = N0 IF TXLAY<>SCRNMAXX THEN TXASCII = LAY(TXZ,N2) ELSE TXASCII=CDB(TXZ,N2) CALL ABSOLUTE (TXFLAG,TXASCII,XD,YD,TXANG,TXSCALE,CLR,TYPE,DRAWCHAR): IF TXFLAG < N0 THEN 5620 TXI=TXI+N1:X=TXI*TXDELTA:Y=N0:GOSUB 5100:X=X+TXBX:Y=Y+TXBY: GOSUB 2230: TXFLAG = N1 'TXASCII is the same CALL ABSOLUTE (TXFLAG,TXASCII,XD,YD,TXANG,TXSCALE,CLR,TYPE,DRAWCHAR) 5620 TXZ = TXZ + N1:GOTO 5490 5630 TXZ=TXZ-N1:X = TXBX: Y = TXBY: RETURN 'WHEW! WHAT A BITCH, BASIC SUCKS '  ' *** T E X T S: M A I N E N T R Y P O I N T *** ' 5670 GOSUB 5410: RETURN 'Draw only ' '***** JOB INFORMATION ***** ' 5710 IF GRID<>N1 THEN 5720 TSX!=SX!:TSY!=SY!:SX!=WX-(WX MOD GRIDS(AGRID,N0)):SY!=WY-(WY MOD GRIDS(AGRID,N1)) IF ((XMAX!-SX!)/GRIDS(AGRID,N0)<64 AND (YMAX!-SY!)/GRIDS(AGRID,N1)<38) THEN 5265 ELSE SX!=TSX!:SY!=TSY!:GOTO 5720 5265 IF SCALE!>3.2! THEN THSCALE=SCALE!*1000:GRIDCLR=131 ELSE THSCALE=SCALE!*10000:GRIDCLR=-131 CALL ABSOLUTE (WX,WY,GRIDS(AGRID,N0),GRIDS(AGRID,N1),THSCALE,GRIDCLR,DRAWGRID) 5720 DEF SEG=SEGDEF:GOSUB 1450:STRG$="WAIT":GOSUB 841:INFOVIEW=N1:CHAIN "CPINFO.EXE" ' '***** ERROR TRAP ROUTINE ***** ' 6510 GOSUB 1400 IF ERR=N6 THEN STRG$="OUT OF BOUNDS":GOSUB 841 IF ERR=N7 THEN STRG$="MEMORY OVERFLOW":GOSUB 841 IF ERR=25 THEN STRG$="INTERFACE FAULT":GOSUB 841 IF ERR=27 THEN STRG$="PRINTER NOT READY":GOSUB 841 IF ERR=52 AND PLOTFLAG=N1 THEN STRG$="PLOTTER NOT SELECTED":GOSUB 841 ELSE IF ERR=52 THEN GOSUB 1400:STRG$="BAD FILE NAME":GOSUB 841 IF ERR=53 AND PLOTFLAG=N1 THEN STRG$="PLOTTER NOT SELECTED":GOSUB 841 ELSE IF ERR=53 THEN GOSUB 1400:STRG$="FILE NOT FOUND":GOSUB 841 IF ERR=70 THEN STRG$="DISK IS WRITE PROTECTED":GOSUB 841 IF ERR=71 THEN STRG$="DISK IS NOT READY":GOSUB 841 IF ERR=57 THEN STRG$="DEVICE I/O ERROR":GOSUB 841 IF ERR=11 THEN STRG$="DIVISION BY ZERO":GOSUB 841 IF ERR=N2 THEN STRG$="SYNTAX ERROR":GOSUB 841 IF ERR=N9 THEN Sö  TRG$="LAYER OVERFLOW":GOSUB 841 GOSUB 1410:STRG$="DOS Error #"+STR$(ERR)+" Hit any key ":GOSUB 841 GOSUB 1480:GOSUB 1470 IF TMPOSCALE!<>N0 THEN SCALE!=TMPOSCALE!:TMPOSCALE!=N0:SIP=N0:GOSUB 1380:GOSUB 1390:GOSUB 1630 GOSUB 1415:GOSUB 1430:MAIN=N0:RESUME 860 ' '*** DATABASE TRACE FUNCTION *** ' 6690 GOSUB 1450:STRG$="DATABASE TRACE FUNCTION? (Y or N)":GOSUB 841:GOSUB 1470:IF IN$<>"Y" AND IN$<>"y" THEN GOSUB 1450:GOTO 4040 GOSUB 1400:STRG$="TURN PRINTER ON & PRESS RETURN":GOSUB 841:GOSUB 1470 GOSUB 1400:LOCATE SLROW,N1:INPUT;"ENTER LAYER #: START,END:";TLB,TLE GOSUB 1410:LOCATE LROW,N1:INPUT;" ENTER CODE #: START,END:";TCB,TCE GOSUB 1450:GOSUB 1416 WIDTH "LPT1:",132:LPRINT CHR$(15); IF TLB>70 THEN 6800 FOR Z=TLB TO TLE LPRINT "LAYER=";Z CALL ABSOLUTE(LAY(N0,N0),Z,READLAY) FOR ZZ=TCB TO TCE LPRINT "CODE #=";ZZ TAB(15) "OP=";LAY(ZZ,N0);"X=";LAY(ZZ,N1);"Y=";LAY(ZZ,N2) NEXT ZZ  LPRINT "LAYER";Z;"MCODE=";LAYVM(Z,N1) NEXT Z GOSUB 1415:LPRINT:GOTO 4040 6800 LPRINT"CELL DATABASE":LPRINT FOR Z= TCB TO TCE LPRINT "CODE #=";Z TAB(15) "OP =";CDB(Z,N0);"X =";CDB(Z,N1);"Y =";CDB(Z,N2) NEXT Z LPRINT:LPRINT"CELL DATA ARRAYS" TAB(20) "CLAST= ";CLAST:LPRINT FOR Z=1 TO LCELNUM:LPRINT "CELL #=";Z TAB(12) "NAME IS ";CNAM$(Z,N0) TAB(30) "# OF PLMTS=";CNUM(Z,N0) TAB(46) "CDB START=";CNUM(Z,N1) TAB(61) "COX=";CNUM(Z,N2) TAB(71) "COY=";CNUM(Z,3):NEXT  LPRINT "LCELNUM=";LCELNUM GOSUB 1415:LPRINT:GOTO 4040 ' ' *** READ THE PLOT SCALE MESSAGE *** ' 10000 INDEX=1:GOSUB 10200 GOSUB 10060:LEFTSIDE$=NUMBER$:LEFTSIDE!=NUMBER!:IF SCLERR>0 THEN 10020 GOSUB 10070:LFTUNIT$=UNIT$:IF EQUAL=0 THEN SCLERR=2:GOTO 10020 ELSE GOSUB 10030:IF UNITERR>0 THEN GOTO 10020 GOSUB 10060:RGHTSIDE$=NUMBER$:RGHTSIDE!=NUMBER!:IF SCLERR>0 THEN SCLERR=3:GOTO 10020 GOSUB 10070:RGHTUNIT$=UNIT$:IF EQUAL>0 THEN SCLERR=4:GOTO 10020 ELSE GOSUB 10030:IF UNITERR>0 THEN GOTO 10020 SCALMSG1$=" "+LEFTSIDE$+" "+LFTUNIT$+" = "+RGHTSIDE$+" "+RGHTUNIT$ UNIT$=LFTUNIT$:GOSUB 10400:LEFTFACT!=UNITFACT!:UNIT$=RGHTUNIT$:GOSUB 10400:RGHTFACT!=UNITFACT! LEFTSIDE!=LEFTSIDE!*LEFTFACT!:RGHTSIDE!=RGHTSIDE!*RGHTFACT!:OPTFAC!=LEFTSIDE!/RGHTSIDE!:RETURN 10020 GOSUB 1410:STRG$="Syntax error":GOSUB 841:GOSUB 1480:GOSUB 1410:GOTO 10000 10030 IF UNIT$="FT" OR UNIT$="FEET" OR UNIT$="FOOT" OR UNIT$=CHR$(39) OR UNIT$="MIL" OR UNIT$="MILS" THEN UNITERR=0:RETURN IF UNIT$="IN" OR UNIT$="INCH" OR UNIT$="INCHES" OR UNIT$=CHR$(34) OR UNIT$="M" OR UNIT$="CM" OR UNIT$="MM" THEN UNITERR=0:RETURN ELSE UNITERR=1:RETURN ' '*** LOOK FOR A NUMBER *** ' 10060 NUMBER!=0:SCLERR=0:BREAK=0:DECPNT=0:OPDIV=0:TEMP$="":NUMBER$="":OPNUM$="" WHILE BREAK=0 10065 TEMP$=MID$(BUFFER$,INDEX,1):IF TEMP$=CHR$(46) THEN IF DECPNT=0 THEN NUMBER$=NUMBER$+TEMP$:INDEX=INDEX+1:TEMP$=MID$(BUFFER$,INDEX,1):DECPNT=1 ELSE SCLERR=1:BREAK=1 IF TEMP$=CHR$(47) THEN IF OPDIV=0 THEN NUMRAT$=NUMBER$:OPNUM$=NUMBER$+TEMP$:INDEX=INDEX+1:NUMBER$="":DECPNT=0:OPDIV=1:GOTO 10065 ELSE IF (TEMP$=CHR$(47) AND OPDIV=1) THEN SCLERR=1:BREAK=1 IF (TEMP$>CHR$(47) AND TEMP$CHR$(57)) THEN SCLERR=1 WEND IF NUMBER!=0 THEN SCLERR=1:RETURN ELSE RETURN ' '*** GET THE UNIT *** ' 10070 UNIT$="" WHILE (CHR$(61)<>MID$(BUFFER$,INDEX,1) AND CHR$(36)<>MID$(BUFFER$,INDEX,1)) UNIT$=UNIT$+ö  MID$(BUFFER$,INDEX,1):INDEX=INDEX+1 WEND IF CHR$(36)=MID$(BUFFER$,INDEX,1) THEN EQUAL=0 ELSE EQUAL=1:INDEX=INDEX+1 RETURN ' ' READ THE KEYBOARD AND RETURN THE ' STRING IN BUFFER$ AND NUMBER OF ' CHARACTERS IN CHARCNT. ' 10200 CHARCNT=0:BUFFER$="" 10210 IN$=INKEY$:IF IN$="" THEN 10210 ELSE K=ASC(IN$):IF K=13 AND CHARCNT>N0 THEN BUFFER$=BUFFER$+"$":RETURN ELSE IF K=13 THEN GOSUB 1420:MAIN=N0:BXD=315:BYD=140:RETURN 860 ELSE IF K=32 THEN SCHARCNT=SCHARCNT+1:STRG$=IN$:GOSUB 841:COL=COL-1:GOTO 10210 IF K=8 THEN IF CHARCNT=0 THEN 10210 ELSE CHARCNT=CHARCNT-1:SCHARCNT=SCHARCNT-1:BUFFER$=LEFT$(BUFFER$,CHARCNT):COL=COL-N1:STRG$=" ":GOSUB 841:COL=COL-N2:GOTO 10210 ELSE IF LEN(BUFFER$)>=35 THEN 10210 IF (K<48 AND K<>47 AND K<>46 AND K<>34 AND K<>39) OR (K>57 AND K<65 AND K<>61) OR (K>90 AND K<97) OR (K>122) THEN 10210 STRG$=IN$:GOSUB 841:COL=COL-N1:IF IN$>CHR$(96) THEN ASCII=ASC(IN$):IN$=CHR$(ASCII-32) BUFFER$=BUFFER$+IN$:SCHARCNT=SCHARCNT+1:CHARCNT=CHARCNT+1:GOTO 10210 10260 IF SCHARCNT=0 THEN RETURN ELSE GOSUB 1410:BUFFER$="":CHARCNT=0:RETURN ' '*** SCREEN/PLOT SCALE CONVERTER *** ' 10300 DBUUNIT$=DBU$(2,N1):DBULEN=LEN(DBUUNIT$):DBUINDX=1:TMPCHAR$="":TMPDBU$="":IF DBULEN=0 THEN UNIT$="MM":GOTO 10320 WHILE DBULEN<>0 TMPCHAR$=MID$(DBUUNIT$,DBUINDX,1):IF TMPCHAR$=CHR$(32) THEN DBUINDX=DBUINDX+1:GOTO 10310 IF TMPCHAR$>CHR$(96) THEN ASCII=ASC(TMPCHAR$):TMPCHAR$=CHR$(ASCII-32) TMPDBU$=TMPDBU$+TMPCHAR$:DBUINDX=DBUINDX+1 10310 DBULEN=DBULEN-1 WEND UNIT$=TMPDBU$ 10320 GOSUB 10400:REALX!=VAL(DBU$(N0,N1))/VAL(DBU$(N1,N1)):SCALFAC!=UNITFACT!*OPTFAC!*UPMM!:SCALFAC!=SCALFAC!/REALX!:RETURN ' '*** GET THE UNIT TO MM FACTOR *** ' 10400 IF UNIT$="FT" OR UNIT$="FOOT" OR UNIT$="FEET" OR UNIT$=CHR$(39) THEN UNITFACT!=304.8:RETURN IF UNIT$="IN" OR UNIT$="INCH" OR UNIT$="INCHES" OR UNIT$=CHR$(34) THEN UNITFACT!=25.4:RETURN IF UNIT$="MIL" OR UNIT$="MILS" THEN UNITFACT!=.0254:RETURN IF UNIT$="M" THEN UNITFACT!=1000 ELSE IF UNIT$="CM" THEN UNITFACT!=10 ELSE UNITFACT!=1 RETURN ' 40000 SCRN=&H24:CALL ABSOLUTE (AH,AL,BH,BL,SCRN):RETURN 40010 LOCATE N1,N1:GOSUB 40020 AH=N0:AL=N3:BH=N0:BL=N0:GOSUB 40000 'CLS, SCREEN 0,0, WIDTH 80 LOCATE ,,N0 RETURN 40020 INITCRT=&H6:CALL ABSOLUTE (INITCRT):ROW=N1:COL=N1:RETURN 'CLS, SCREEN 1,0 65000 GOSUB 40010 END ö ' CPDBU.BAS MINDSET VERSION 1.40 (C)Copyright PERSONAL CAD SYSTEMS, INC. JUNE 1984 ' $INCLUDE: 'NEWCOM' ' DIM DF$(2,6),D$(6),DBUDEF$(65) ON ERROR GOTO 9000 DEF SEG=SEGDEF IF INPUTDV=N7 THEN TDELAY=N0:TDELTA=N7 ELSE TDELAY=3500:TDELTA=14 REDEFINE=N0:WINDOWSET=N1 100 N10=10:N11=11:N12=12:N13=13:N14=14:N15=15:N16=16:N17=17:N18=18:N19=19 N20=20:N21=21:N22=22:N23=23:N24=24:N25=25:N26=26:N27=27:N28=28:N29=29 N30=30:N31=31:N32=32:N33=33:N34=34:N35=35:N36=36:N37=37:N38=38:N39=39 N40=40:N41=41:N42=42:N43=43:N44=44:N45=45:N46=46:N47=47:N48=48:N49=49 N50=50:N51=51:N52=52:N53=53:N54=54:N55=55:N56=56:N57=57:N59=59 N60=60:N65=65:N80=80:N191=191:N199=199:N311=311:OLDXT=XT:OLDYT=YT GOSUB 40010 ' IF MAIN=N13 THEN 1110 'SYMBOL LIBRARY IF ZLAY(1000,N2)=N1 THEN CHGDBU=N1 : GOTO 4500 'USER DBU IF ZLAY(1000,N2)=N2 THEN GOSUB 11000:GOTO 4699 'TABLET SCALING IF ZLAY(1000,N2)=N3 THEN 11200 ö   'CURSOR DEFINITION GOTO 4699 ' '*** M O U S E D R I V E N *** ' '--- Mouse driven (for CURSOR numeric input) --- ' Should pass: initial value to TV$ ' range value to MIN & MAX (integer) ' # of figures to FIG ' Will pass : TV$ (if the input is valid) ' CANCEL (=N1 if "C" is chosen; =N0 otherwise) ' 200 SV=N0 CANCEL=N0:IF TBMAX THEN TB=ACTBOX:GOTO 200 TV$=RIGHT$(V$,LEN(V$)-INSTR(V$," "))+" ":TB=N0:RETURN ' '--- Get input from the keyboard or mouse --- 204 BUT=N0:GOSUB 210:IF S$=" " THEN GOSUB 206:BUT=N0:RETURN ELSE IF S$<>"X" THEN 204 IF ACTBOX=10 THEN CANCEL=N1:GOSUB 206:BUT=N0:RETURN A$=STR$(ACTBOX):V$=V$+RIGHT$(A$,1) V$=RIGHT$(V$,FIG):ROW=N25:COL=24-FIG:STRG$=V$:GOSUB 841:GOTO 204 ' '--- Compute coordinates of the box --- 206 X1BOX=223+8*ACTBOX:Y1BOX=N191:X2BOX=231+8*ACTBOX:Y2BOX=N199:BOXLT=N0:BOXLW=N0:GOSUB 208:RETURN ' '--- Draw box --- 208 TEMP=X2BOX-1:CALL ABSOLUTE(X1BOX,Y1BOX,TEMP,Y1BOX,BOXCLR,BOXLT,BOXLW,WRTLIN) TEMP=Y2BOX-1:CALL ABSOLUTE(X2BOX,Y1BOX,X2BOX,TEMP,BOXCLR,BOXLT,BOXLW,WRTLIN) TEMP=X1BOX+1:CALL ABSOLUTE(X2BOX,Y2BOX,TEMP,Y2BOX,BOXCLR,BOXLT,BOXLW,WRTLIN) TEMP=Y1BOX+1:CALL ABSOLUTE(X1BOX,Y2BOX,X1BOX,TEMP,BOXCLR,BOXLT,BOXLW,WRTLIN) RETURN ' '--- Input keyboard or mouse --- 210 GOSUB 27600:IF S$="" THEN TXD=XD:TYD=YD:GOSUB 2730:XD=TXD:YD=TYD:GOSUB 212:IF BUT=N1 THEN S$="X":RETURN ELSE IF BUT=N2 THEN S$=" ":RETURN ELSE RETURN IF S$="X" OR S$="x" THEN S$="X":RETURN IF S$=" " THEN RETURN IF LEN(S$)=N2 AND ASC(RIGHT$(S$,N1))=75 THEN XT=-N8:GOSUB 212:RETURN IF LEN(S$)=N2 AND ASC(RIGHT$(S$,N1))=77 THEN XT=N8:GOSUB 212:RETURN IF ASC(S$)=13 THEN S$=" ":RETURN S=ASC(S$) IF (S<48 OR S>57) AND (S<>67 AND S<>99) THEN S$="":GOTO 210 IF LEN(S$)=N1 AND S$<>"C" AND S$<>"c" THEN GOSUB 206:ACTBOX=VAL(S$):GOSUB 206:XT1=N8*ACTBOX+N1:S$="X":RETURN IF S$="C" OR S$="c" THEN GOSUB 206:ACTBOX=10:GOSUB 206:XT1=N8*ACTBOX+N1:S$="X":RETURN GOTO 210 ' '--- Determine where the box moves --- 212 IF XT=N0 THEN RETURN IF XT<-16 THEN XT=-16 ELSE IF XT>16 THEN XT=16 XT1=XT1+XT:IF XT180 THEN XT1=80 FOR DELAY=0 TO 500 :NEXT DELAY:XT=N0 TBOX=FIX(XT1\8) IF ACTBOX=TBOX THEN RETURN ELSE GOSUB 206:ACTBOX=TBOX:GOSUB 206 RETURN ' ' '*** Mouse driven for choosing words *** ' should pass: Number of column, maximum is 4 (NUMCOL) ' Words for choice (WORD$1 ... WORD$4) ' each word begins with capital letter ' ' Row # all the words to be placed (ROW) ' Column # each word to be placed (COL1 ... COL4) ' '--- Initialize the XT2MIN & XT2MAX --- 220 SV=N0 IF NUMCOL>N1 THEN XT2MAX=149:LUC1=ASC(LEFT$(WORD1$,N1)):LLC1=LUC1+N32:LUC2=ASC(LEFT$(WORD2$,N1)):LLC2=LUC2+N32 IF NUMCOL>N2 THEN XT2MAX=199:LUC3=ASC(LEFT$(WORD3$,N1)):LLC3=LUC3+N32 IF NUMCOL>N3 THEN XT2MAX=249:LUC4=ASC(LEFT$(WORD4$,N1)):LLC4=LUC4+N32 XT2MIN=50:XT2=XT2MIN ' '--- Entry point --- CANCEL=N0:COLFLG=N1:FC=N16:BC=N7:ACTBOX=N1:GOSUB 221:GOSUB 231 IF CANCEL=N1 THEN TV$=" " ELSE S$=STR$(ACTBOX):TV$=RIGHT$(S$,LEN(S$)-INSTR(S$," ")) RETURN ' '--- Draw box --- 221 IF COLFLG=N1 THEN COL=COL1:WORD$=WORD1$ IF COLFLG=N2 THEN COL=COL2:WORD$=WORD2$ ö   IF COLFLG=N3 THEN COL=COL3:WORD$=WORD3$ IF COLFLG=N4 THEN COL=COL4:WORD$=WORD4$ IF DISCLR$<>"C" THEN GOSUB 292:LOCATE ROW,COL-N1:PRINT"[";:LOCATE ROW,COL+LEN(WORD$):PRINT"]";:RETURN LOCATE ROW,COL:COLOR FC,BC,N0:PRINT WORD$; RETURN ' '--- Get input from the keyboard or mouse --- 231 BUT=N0:GOSUB 235:IF S$=" " THEN CANCEL=N1:BUT=N0:RETURN IF S$<>"X" THEN 231 ELSE BUT=N0:FC=N14:BC=N0:GOSUB 221 RETURN ' '--- Input keyboard or mouse --- 235 GOSUB 27600:IF S$="" THEN GOSUB 2730:GOSUB 237:IF BUT=N1 THEN S$="X":RETURN ELSE IF BUT=N2 THEN S$=" ":RETURN ELSE RETURN IF S$="X" OR S$="x" THEN S$="X":RETURN IF S$=" " THEN RETURN IF ASC(S$)=13 THEN S$="X":RETURN IF LEN(S$)=N2 AND ASC(RIGHT$(S$,N1))=75 THEN XT=-XT2MIN:GOSUB 237:RETURN IF LEN(S$)=N2 AND ASC(RIGHT$(S$,N1))=77 THEN XT=XT2MIN: GOSUB 237:RETURN IF S$=CHR$(LUC1) OR S$=CHR$(LLC1) THEN ACTBOX=N1:COLFLG=N1:GOSUB 221:S$="X":RETURN IF S$=CHR$(LUC2) OR S$=CHR$(LLC2) THEN ACTBOX=N2:COLFLG=N2:GOSUB 221:S$="X":RETURN IF S$=CHR$(LUC3) OR S$=CHR$(LLC3) THEN ACTBOX=N3:COLFLG=N3:GOSUB 221:S$="X":RETURN IF S$=CHR$(LUC4) OR S$=CHR$(LLC4) THEN ACTBOX=N4:COLFLG=N4:GOSUB 221:S$="X":RETURN GOTO 235 ' '--- Determine where the box moves --- 237 IF XT=N0 THEN RETURN XT2=XT2+XT:IF XT2XT2MAX THEN XT2=XT2MAX ACTBOX=FIX(XT2\XT2MIN):IF COLFLG=ACTBOX THEN XT=N0:RETURN FC=N10:BC=N0:GOSUB 221 FC=N16:BC=N7:COLFLG=ACTBOX:GOSUB 221 XT=N0:RETURN ' '*** Determine COLOR and BRAKET *** ' 292 IF FC=N30 AND LPAGE=N1 AND DISCLR$<>"M" THEN COLOR N14,N0,N0:RETURN IF FC=N30 THEN COLOR N15,N0,N0:RETURN IF FC=N15 THEN COLOR N15,N0,N0:LB$=CHR$(16):RB$=CHR$(17) ELSE LB$=" ":RB$=" " IF LPAGE<>N1 THEN RETURN ELSE IF LPAGE=N1 AND FC<>N0 AND FC<>N15 THEN RETURN LOCATE NUMLF+ACTBOX-MINCTR+N1,MERGIN:COLOR FC,BC,N0 IF ACTBOX>N9 THEN PRINT RIGHT$(STR$(ACTBOX),N2);:RETURN ELSE PRINT STR$(ACTBOX);:RETURN RETURN ' 841 CALL ABSOLUTE (STRG$,ROW,COL,HRTXTPRT):COL=COL+LEN(STRG$)+N1:RETURN 842 CALL ABSOLUTE (SINT,ROW,COL,HRINTPRT):RETURN ' ' *** SYMBOL LIBRARY *** ' 1110 DEF SEG=SEGDEF:CALL ABSOLUTE(N1,CLRBUF):COLOR N0,N0,N0 IN$="SYMBOL INFORMATION":R=N1:C=N32:BC=N0:FC=N14:GOSUB 9500 HEADING$=" NAME #":HEADLEN=N13:NUMITEM=LCELNUM:NUMROW=N20:GOSUB 9750 R=N24:C=N1:BC=N0:FC=N11:IN$=" Active symbol is ":GOSUB 9500 R=N24:C=N19:BC=N0:FC=N14:IN$=CNAM$(ACELNUM,N0):GOSUB 9500 R=N25:C=N1:BC=N0:FC=N15:IN$=" BUTTON #1 to change active symbol, BUTTON #2 to return":GOSUB 9500 CALL ABSOLUTE(N1,POPSCRN) 1115 NUMLF=N2:GOSUB 10000 IF CANCEL=N0 THEN ACELNUM=VAL(TV$) 1120 SX!=WX-(WX MOD GRIDS(AGRID,N0)):SY!=WY-(WY MOD GRIDS(AGRID,N1)) GOSUB 40020 DEF SEG=SEGDEF:CALL ABSOLUTE (N2,SAVSTART,N0,N0,SCRNMAXX,SCRNMAXY,N0,SAVWIN):BUT=N0 IF (TISM=N1 AND INPUTDV>N2) THEN IF INPUTDV=N3 OR INPUTDV=N5 OR INPUTDV=N6 OR INPUTDV=N7 THEN CALL ABSOLUTE (XT,YT,BUT,READTP%) INFOVIEW=N4:CHAIN "CP3.EXE" ' '***** INPUT DEVICE INTERFACE SUBROUTINE ***** ' 2730 PDN=N0 IF INPUTDVN2 THEN BUT=N7:OLDBUT=N1:RETURN SAVXT=XT:SAVYT=YT IF OLDBUT=N1 THEN OLDBUT=N0:OLDXT=XT:OLDYT=YT XT=(XT-OLDXT)/TDELTA:YT=(YT-OLDYT)/TDELTA OLDXT=SAVXT:OLDYT=SAVYT:RETURN ' '*** GENERAL PURPOSE SUBROUTINES *** ' 4000 COLOR ,N0:LOCATE ROW,N1:PRINT SPACE$(79);:LOCATE ROW,N1:RETURN 4010 COLOR ,N0:LOCATE ROW,COL:PRINT SPACE$(80-COö  L);:LOCATE ROW,COL:RETURN 4020 FOR MSDELAY=N1 TO N4:FOR DELAY=N0 TO 30000:NEXT:NEXT:RETURN 4030 R=CSRLIN:C=POS(N0)-N1:LOCATE R,C:RETURN 4040 COLOR ,N0:LOCATE N24,N1:PRINT SPACE$(79);:LOCATE N24,N1:RETURN 4050 COLOR ,N0:LOCATE N25,N1:PRINT SPACE$(79);:LOCATE N25,N1:RETURN 4060 GOSUB 4050:GOSUB 4040:RETURN ' '*** KEYBOARD INPUT ROUTINE *** ' 4100 COLOR N15,N0,N0:NIN$="":SV=N1 COLOR N27:PRINT CHR$(22);:COLOR N15:GOSUB 4030:IF MAXCHR=N1 OR NUMONLY=N1 THEN MAXCHR=N5 ELSE IF MAXCHR=N2 THEN MAXCHR=N13 ELSE MAXCHR=N19 4110 IN$=INKEY$:IF IN$="" THEN 4110 ELSE K=ASC(IN$):IF K=N14 THEN SV=N0 ELSE IF K=N18 THEN SV=N1 IF K=N13 THEN IN$=NIN$:IF IN$="" THEN 4110 ELSE PRINT" ";:GOTO 4160 IF K=27 THEN IN$="":ROW=CSRLIN:COL=POS(0)-LEN(NIN$):GOSUB 4010:GOTO 4160 IF K=N8 THEN IF LEN(NIN$)57) AND K<>45 THEN 4110 IF LEN(NIN$)>MAXCHR OR (K=47 AND MAXCHR=N5) OR K<32 OR K=44 OR K>126 THEN 4110 ELSE PRINT IN$;:COLOR N27:PRINT CHR$(22);:COLOR N15:NIN$=NIN$+IN$:GOSUB 4030:GOTO 4110 4160 MAXCHR=N0:RETURN ' 4200 CHR=N1:SV=N1:GOTO 27000 'KB INPUT FOR ONE CHARACTER ONLY ' 4250 FOR Z=N0 TO N2:FOR ZZ=N0 TO N6:DF$(Z,ZZ)=DBU$(Z,ZZ):DBU$(Z,ZZ)="":NEXT ZZ:NEXT Z:RETURN 'SAVE TO TEMPORARY & CLEAR SPACES 4260 FOR Z=N0 TO N2:FOR ZZ=N0 TO N6:DBU$(Z,ZZ)=DF$(Z,ZZ):NEXT ZZ:NEXT Z:RETURN 'GET BACK OLD VALUES ' ' *** M A I N E N T R Y *** ' '*** READ ALL DEFINITIONS FROM THE FILE *** ' 4500 CLOSE #1:DBUCHEK=N1:OPEN "CP.DBU" FOR INPUT AS #1:DBUCHEK=N0 Z=N1 WHILE NOT EOF(1) AND Z<=N60 : LINE INPUT #1, DBUDEF$(Z):Z=Z+N1 : WEND CLOSE #1:DBUMAX=Z-N1 ' '*** DISPLAY ALL DEFINITIONS *** ' 4580 DEF SEG=SEGDEF:CALL ABSOLUTE(N1,CLRBUF):COLOR N0,N0,N0 IN$="USER DEFINABLE DATABASE UNITS":R=N1:C=N24:BC=N0:FC=N14:GOSUB 9500 HEADING$=" # DBU Description ":HEADLEN=N26 NUMITEM=DBUMAX:NUMROW=N20:GOSUB 9750 CALL ABSOLUTE(N1,POPSCRN) ' 4686 GOSUB 4060:COLOR N11:PRINT" Current DBU is #";:COLOR N10:PRINT VAL(DIS$); GOSUB 4050:COLOR N11:PRINT" BUTTON #1 to select, BUTTON #2 to return to INFO menu "; NUMLF=N2:GOSUB 10000 IF CANCEL<>N1 THEN 4700 4697 COLOR N11,N0,N0:GOSUB 4060:PRINT" Current DBU is #";:COLOR N10:PRINT VAL(DIS$);:COLOR N11:GOSUB 4050:PRINT"WAIT"; IF REDEFINE=N1 THEN CLOSE #1:OPEN"CP.DBU" FOR OUTPUT AS #1:FOR Z=N1 TO DBUMAX:PRINT #1,DBUDEF$(Z):NEXT Z:CLOSE #1 'JOHNY 4699 IF (TISM=N1 AND INPUTDV>N2) THEN IF INPUTDV=N3 OR INPUTDV=N5 OR INPUTDV=N6 OR INPUTDV=N7 THEN CALL ABSOLUTE (XT,YT,BUT,READTP%) S1$="#" FOR Z=N1 TO VAL(DBU$(N2,N0)) S2$=DBU$(N2,Z):GOSUB 18000:IF THESAME=N1 THEN DBU$(N2,Z)=" " NEXT CHAIN "CPINFO.EXE" 'JOHNY 4700 SELECT=VAL(TV$) GOSUB 4060:COLOR N11,N0,N0:LOCATE N25,N1:PRINT" BUTTON #1 to or , BUTTON #2 for no change"; COLOR N10:LOCATE N25,N17:PRINT"Change";:LOCATE N25,N31:PRINT"Redefine"; NUMCOL=N2:WORD1$="Change":WORD2$="Redefine":ROW=N25:COL1=N17:COL2=N31:GOSUB 220:COLOR N11,N0,N0 IF CANCEL=N1 THEN 4686 GOSUB 4250 'SAVE THE OLD VALUES FIRST IF VAL(TV$)=N1 THEN CHGDBU=N1:DB$=DBUDEF$(SELECT):GOTO 5990 'CHANGE ' '*** DEFINING DBU *** ' 5000 GOSUB 40010:COLOR N11,N0,N0 : CHGDBU=N0 : CALL ABSOLUTE(N1,CLRBUF) IN$=" Example of defining the Data Base Unit :" CALL ABSOLUTE(IN$,N2,N1,N0,N11,N1,LOADBUF) IN$=" 1) DBU NAME : " CALL ABSOLUTE(IN$,N3,N21,N0,N7,N1,LOADBUF) IN$="Ft_In" CALL ABSOLUTE(IN$,N3,N43,N0,N15,N1,LOADBUF) IN$="" CALL ABSOLUTE(IN$,N3,N48,N0,N10,N1,LOADBUF) IN$=" 2) Description: " CALL ABSOLUTE(IN$,N4,N21,N0,N7,N1,LOADBUF) IN$="2 tolerance" CALL ABSOLUTE(IN$,N4,N43,N0,N15,N1,LOADBUF) IN$="" ö   CALL ABSOLUTE(IN$,N4,N54,N0,N10,N1,LOADBUF) IN$=" 3) 1 DBU = " CALL ABSOLUTE(IN$,N5,N21,N0,N7,N1,LOADBUF) IN$="1"+CHR$(34) CALL ABSOLUTE(IN$,N5,N43,N0,N15,N1,LOADBUF) IN$="" CALL ABSOLUTE(IN$,N5,N45,N0,N10,N1,LOADBUF) IN$=" 4) definition : " CALL ABSOLUTE(IN$,N6,N21,N0,N7,N1,LOADBUF) IN$=".01=.01"+CHR$(34) CALL ABSOLUTE(IN$,N6,N43,N0,N15,N1,LOADBUF) IN$="" CALL ABSOLUTE(IN$,N6,N51,N0,N10,N1,LOADBUF)  IN$=" 5) definition : " CALL ABSOLUTE(IN$,N7,N21,N0,N7,N1,LOADBUF) IN$="12=1'" CALL ABSOLUTE(IN$,N7,N43,N0,N15,N1,LOADBUF) IN$=" " CALL ABSOLUTE(IN$,N7,N48,N0,N10,N1,LOADBUF) IN$=" 6) definition : " CALL ABSOLUTE(IN$,N8,N21,N0,N7,N1,LOADBUF) IN$="" CALL ABSOLUTE(IN$,N8,N43,N0,N10,N1,LOADBUF) IN$="":FOR I=N1 TO N80:IN$=IN$+CHR$(220):NEXT I CALL ABSOLUTE(IN$,N1,N1,N0,N13,N1,LOADBUF) IN$="":FOR I=N1 TO N80:IN$=IN$+CHR$(223):NEXT I CALL ABSOLUTE(IN$,N9,N1,N0,N13,N1,LOADBUF) IN$=CHR$(221):NIN$=CHR$(222) FOR Z=N2 TO N8 CALL ABSOLUTE(IN$,Z,N1,N0,N13,N1,LOADBUF) CALL ABSOLUTE(NIN$,Z,N80,N0,N13,N1,LOADBUF) NEXT Z IN$="Define your DBU and at end or to exit" CALL ABSOLUTE(IN$,N10,N1,N0,N11,N1,LOADBUF) IN$="" CALL ABSOLUTE(IN$,N10,N23,N0,N15,N1,LOADBUF) IN$="" CALL ABSOLUTE(IN$,N10,N41,N0,N15,N1,LOADBUF) ' '*** DISPLAY OLD VALUES *** ' IN$="1) DBU NAME :" CALL ABSOLUTE(IN$,N11,N1,N0,N7,N1,LOADBUF) IN$="2) Description:" CALL ABSOLUTE(IN$,N12,N1,N0,N7,N1,LOADBUF) IN$="3) 1 DBU =" CALL ABSOLUTE(IN$,N13,N1,N0,N7,N1,LOADBUF) IN$="4) definition :" CALL ABSOLUTE(IN$,N14,N1,N0,N7,N1,LOADBUF) IN$="5) definition :" CALL ABSOLUTE(IN$,N15,N1,N0,N7,N1,LOADBUF) IN$="6) definition :" CALL ABSOLUTE(IN$,N16,N1,N0,N7,N1,LOADBUF) IN$="7) definition :" CALL ABSOLUTE(IN$,N17,N1,N0,N7,N1,LOADBUF) IN$="8) definition :" CALL ABSOLUTE(IN$,N18,N1,N0,N7,N1,LOADBUF) IN$="9) definition :" CALL ABSOLUTE(IN$,N19,N1,N0,N7,N1,LOADBUF) ' IN$=" OLD DEFINITIONS " CALL ABSOLUTE(IN$,N21,N11,N7,N0,N1,LOADBUF) IN$=" NEW DEFINITIONS " CALL ABSOLUTE(IN$,N21,N50,N7,N0,N1,LOADBUF) ' NIN$=DBUDEF$(SELECT) P=INSTR(NIN$,","):IF P=N0 THEN Z=LEN(NIN$)+N1 ELSE Z=P TV$=LEFT$(NIN$,Z-N1)  Z=INSTR(TV$,"/"):IF Z=N0 THEN IN$=LEFT$(TV$,N6) ELSE IN$=LEFT$(LEFT$(TV$,Z-N1),N6) CALL ABSOLUTE(IN$,N11,N18,N0,N11,N1,LOADBUF) IF Z<>N0 THEN IN$=LEFT$(RIGHT$(TV$,LEN(TV$)-Z),N14):CALL ABSOLUTE(IN$,N12,N18,N0,N11,N1,LOADBUF) IF P=N0 THEN 5200 ELSE NIN$=RIGHT$(NIN$,LEN(NIN$)-P) P=INSTR(NIN$,","):IF P=N0 THEN Z=LEN(NIN$)+N1 ELSE Z=P IN$=LEFT$(LEFT$(NIN$,Z-N1),N20) CALL ABSOLUTE(IN$,N14,N18,N0,N11,N1,LOADBUF) IF P=N0 THEN 5200 ELSE NIN$=RIGHT$(NIN$,LEN(NIN$)-P)  P=INSTR(NIN$,","):IF P=N0 THEN Z=LEN(NIN$)+N1 ELSE Z=P IN$=LEFT$(LEFT$(NIN$,Z-N1),N20) CALL ABSOLUTE(IN$,N15,N18,N0,N11,N1,LOADBUF) IF P=N0 THEN 5200 ELSE NIN$=RIGHT$(NIN$,LEN(NIN$)-P) P=INSTR(NIN$,","):IF P=N0 THEN Z=LEN(NIN$)+N1 ELSE Z=P IN$=LEFT$(LEFT$(NIN$,Z-N1),N20) CALL ABSOLUTE(IN$,N16,N18,N0,N11,N1,LOADBUF) IF P=N0 THEN 5200 ELSE NIN$=RIGHT$(NIN$,LEN(NIN$)-P) P=INSTR(NIN$,","):IF P=N0 THEN Z=LEN(NIN$)+N1 ELSE Z=P IN$=LEFT$(LEFT$(NIN$,Z-N1),N20) CALL ABSOLUTE(IN$,N17,N18,N0,N11,N1,LOADBUF) IF P=N0 THEN 5200 ELSE NIN$=RIGHT$(NIN$,LEN(NIN$)-P) P=INSTR(NIN$,","):IF P=N0 THEN Z=LEN(NIN$)+N1 ELSE Z=P IN$=LEFT$(LEFT$(NIN$,Z-N1),N20) CALL ABSOLUTE(IN$,N18,N18,N0,N11,N1,LOADBUF) IF P=N0 THEN 5200 ELSE NIN$=RIGHT$(NIN$,LEN(NIN$)-P) P=INSTR(NIN$,","):IF P=N0 THEN Z=LEN(NIN$)+N1 ELSE Z=P IN$=LEFT$(LEFT$(NIN$,Z-N1),N20) CALL ABSOLUTE(IN$,N19,N18,N0,N11,N1,LOADBUF) ' '*** GET NEW VALUES *** ö   ' 5200 IN$="1) DBU NAME :" CALL ABSOLUTE(IN$,N11,N40,N0,N7,N1,LOADBUF) IN$="2) Description:" CALL ABSOLUTE(IN$,N12,N40,N0,N7,N1,LOADBUF) IN$="3) 1 DBU =" CALL ABSOLUTE(IN$,N13,N40,N0,N7,N1,LOADBUF) IN$="4) definition :" CALL ABSOLUTE(IN$,N14,N40,N0,N7,N1,LOADBUF) IN$="5) definition :" CALL ABSOLUTE(IN$,N15,N40,N0,N7,N1,LOADBUF) IN$="6) definition :" CALL ABSOLUTE(IN$,N16,N40,N0,N7,N1,LOADBUF) IN$="7) definition :"  CALL ABSOLUTE(IN$,N17,N40,N0,N7,N1,LOADBUF) IN$="8) definition :" CALL ABSOLUTE(IN$,N18,N40,N0,N7,N1,LOADBUF) IN$="9) definition :" CALL ABSOLUTE(IN$,N19,N40,N0,N7,N1,LOADBUF) CALL ABSOLUTE(N1,POPSCRN) CHGFLAG=N0 FOR Z=N0 TO N6:D$(Z)="":NEXT Z ' '*** NO WAY JOSE, DBU's ARE FOR CADPLAN TRANSLATOR *** ' IF SELECTN40 THEN 5360 COLOR N12 GOSUB 4040:PRINT"DBU #"; COLOR N10 PRINT SELECT;  IF SELECT>N56 THEN COLOR N12:PRINT" is used by database translator and"; COLOR N12 PRINT" may NOT be redefined"; COLOR N11:GOSUB 4050:PRINT"DBU #'s 41 - 56 are user definable. Hit any key "; GOSUB 4200 GOSUB 4260:GOTO 4580 ' 5360 COLOR N15:ROW=N11:COL=N57:GOSUB 4010:MAXCHR=N1:GOSUB 4100 DBUNAME$=IN$ : IF IN$="" OR CHGFLAG=N1 THEN 5610 5380 COLOR N15:ROW=N12:COL=N57:GOSUB 4010:MAXCHR=N2:GOSUB 4100 DBUDESC$=IN$ : IF IN$="" OR CHGFLAG=N1 THEN 5610 5400 COLOR N15:ROW=N13:COL=N57:GOSUB 4010:GOSUB 4100 D$(N0)=IN$ : IF IN$="" THEN 5480 5420 IF LEFT$(D$(N0),N1)=" " THEN D$(N0)=RIGHT$(D$(N0),LEN(D$(N0))-N1):GOTO 5420 5430 IF RIGHT$(D$(N0),N1)=" " THEN D$(N0)=LEFT$(D$(N0),LEN(D$(N0))-N1):GOTO 5430 IF D$(N0)="" THEN 5480 P=INSTR(D$(N0),"/") IF P=N0 THEN IF VAL(D$(N0))<=N0 THEN 5400 ELSE RATIO#=1#/VAL(D$(N0)+"#"):GOTO 5480 IF VAL(D$(N0))=N0 OR VAL(RIGHT$(D$(N0),LEN(D$(N0))-P))=N0 THEN 5400 ELSE RATIO#=1#/( VAL(D$(N0)+"#")/VAL(RIGHT$(D$(N0),LEN(D$(N0))-P)+"#") ) 5480 IF CHGFLAG=N1 THEN 5610 5490 COLOR N15:ROW=N14:COL=N57:GOSUB 4010:GOSUB 4100 D$(N1)=IN$ : IF IN$="" OR CHGFLAG=N1 THEN 5610 5510 COLOR N15:ROW=N15:COL=N57:GOSUB 4010:GOSUB 4100 D$(N2)=IN$ : IF IN$="" OR CHGFLAG=N1 THEN 5610 5530 COLOR N15:ROW=N16:COL=N57:GOSUB 4010:GOSUB 4100 D$(N3)=IN$ : IF IN$="" OR CHGFLAG=N1 THEN 5610 5550 COLOR N15:ROW=N17:COL=N57:GOSUB 4010:GOSUB 4100 D$(N4)=IN$ : IF IN$="" OR CHGFLAG=N1 THEN 5610 5570 COLOR N15:ROW=N18:COL=N57:GOSUB 4010:GOSUB 4100 D$(N5)=IN$ : IF IN$="" OR CHGFLAG=N1 THEN 5610 5590 COLOR N15:ROW=N19:COL=N57:GOSUB 4010:GOSUB 4100 D$(N6)=IN$ 5610 COLOR N15:CHGFLAG=N0:GOSUB 4060:PRINT"Enter number "; COLOR N11:PRINT"to change, "; COLOR N15:PRINT" "; COLOR N11:PRINT"to save, or "; COLOR N15:PRINT" "; COLOR N11:PRINT"to cancel new definitions "; 5670 ROW=N24:COL=77:GOSUB 4010:GOSUB 4200:GOSUB 4060 IF IN$=CHR$(27) THEN COLOR N11:PRINT"Canceling new definitions...";:GOSUB 4020:GOTO 6580 IF IN$="" THEN 5710 IF ASC(IN$)<49 OR ASC(IN$)>57 THEN 5670 5700 CHGFLAG=N1:ON (VAL(IN$)) GOTO 5360,5380,5400,5490,5510,5530,5550,5570,5590 5710 IF LEFT$(DBUNAME$,N1)=" " THEN DBUNAME$=RIGHT$(DBUNAME$,LEN(DBUNAME$)-N1):GOTO 5710 5720 IF RIGHT$(DBUNAME$,N1)=" " THEN DBUNAME$=LEFT$(DBUNAME$,LEN(DBUNAME$)-N1):GOTO 5720 IF DBUNAME$="" THEN COLOR N12:GOSUB 4060:PRINT"DBU NAME must be specified";:IN$="1":GOTO 5700 5740 IF LEFT$(DBUDESC$,N1)=" " THEN DBUDESC$=RIGHT$(DBUDESC$,LEN(DBUDESC$)-N1):GOTO 5740 5750 IF RIGHT$(DBUDESC$,N1)=" " THEN DBUDESC$=LEFT$(DBUDESC$,LEN(DBUDESC$)-N1):GOTO 5750 IF DBUDESC$<>"" THEN TMPNAME$=DBUNAME$+"/"+DBUDESC$ ELSE TMPNAME$=DBUNAME$ FOR Z=N0 TO N2:FOR ZZ=N0 TO N6:DBU$(Z,ZZ)="":NEXT ZZ:NEXT Z ' '*** SEARCH FOR COMMA (,) IN EACH DEFINITION *** ' FOR Z=N1 TO N6 P=INSTR(D$(Z),",") 'COMMA IS IF P<>N0 THEN Z=N6:TOTAL=Z 'INVALID ö   NEXT Z IF P<>N0 THEN 6550 ' '*** STORE ALL DEFINITIONS TO ONE VARIABLE *** ' DB$="" FOR Z=N1 TO N6 5910 IF LEFT$(D$(Z),N1)=" " THEN D$(Z)=RIGHT$(D$(Z),LEN(D$(Z))-N1):GOTO 5910 IF D$(Z)<>"" THEN DB$=DB$+","+D$(Z) NEXT Z DB$=TMPNAME$+DB$ : TMPNAME$=DB$ ' '*** CHECK IF DEFINITION IS VALID *** ' 5990 TOTAL=N0:NOMORE=N0:DBU$(N1,N0)="D" 'SET DEFAULT VALUE P=INSTR(DB$,",") IF P=N0 THEN 6550  IN$=LEFT$(DB$,P-N1) P1=INSTR(IN$,"/") IF P1=N0 THEN IN$=LEFT$(IN$,N6) ELSE IN$=LEFT$(LEFT$(IN$,P1-N1),N6) DBU$(N0,N0)=IN$ 6060 DB$=RIGHT$(DB$,LEN(DB$)-P) 6070 IF NOMORE=N1 THEN 6350 P=INSTR(DB$,",") IF P=N0 THEN NOMORE=N1:P=LEN(DB$)+N1 TOTAL=TOTAL+N1 IF TOTAL>N6 THEN 6350 S$=LEFT$(DB$,P-N1) 'GET EACH COLUMN IF NOMORE=N0 THEN DB$=RIGHT$(DB$,LEN(DB$)-P) IF S$="" THEN 6060 Z=INSTR(S$,"=")  IF Z=N0 THEN 6550 DBU$(N0,TOTAL)=LEFT$(S$,Z-N1) '# IN DBU ZZ!=VAL(DBU$(N0,TOTAL)) IF ZZ!<0! THEN 6550 'CHECK IF INVALID ? S$=RIGHT$(S$,LEN(S$)-Z) 'GET THE EQUIVALENT # ZZ!=VAL(S$) IF ZZ!<=0! THEN 6550 'CHECK IF INVALID ? 6230 IF S$<>"" THEN Z=ASC(LEFT$(S$,N1)) ELSE 6550 IF Z=32 OR Z=43 OR Z=45 OR Z=46 OR (Z>47 AND Z<58) THEN DBU$(N1,TOTAL)=DBU$(N1,TOTAL)+LEFT$(S$,N1):S$=RIGHT$(S$,LEN(S$)-N1):GOTO 6230 IF Z=44 THEN 6550 'IF COMMA THEN INVALID IF Z<>47 AND VAL(RIGHT$(S$,LEN(S$)-N1))=N0 THEN 6330 'fraction IF DBU$(N1,N0)<>"D" THEN 6330 Z!=VAL(RIGHT$(S$,LEN(S$)-N1)) 'GET DENOMINATOR 'JOHNY IF Z!>32767 THEN 6550 'DENOMINATOR IS TOO LARGE AS AN INTEGER 'JOHNY IF INT(Z!/ZZ!)*ZZ!=Z! THEN IN$=STR$(INT(Z!/ZZ!)):DBU$(N1,N0)=RIGHT$(IN$,LEN(IN$)-N1) ELSE GOSUB 6550 'JOHNY DBU$(N2,TOTAL)=RIGHT$(S$,LEN(S$)-LEN(STR$(Z!))) IF DBU$(N2,TOTAL)="" THEN 6550 ELSE DBU$(N2,TOTAL)=LEFT$(DBU$(N2,TOTAL),N6) 'JOHNY DBU$(N1,TOTAL)=STR$(ZZ!/Z!) 'JOHNY GOTO 6070 6330 IF RIGHT$(DBU$(N1,TOTAL),N1)=" " THEN DBU$(N1,TOTAL)=LEFT$(DBU$(N1,TOTAL),LEN(DBU$(N1,TOTAL))-N1):S$=" "+S$:GOTO 6330 DBU$(N2,TOTAL)=LEFT$(S$,N6) 'GET THE UNIT 'JOHNY GOTO 6070 6350 DBU$(N2,N0)=STR$(TOTAL) 'STORE TOTAL COLUMNS USED WRONG=N0:ZZZ=TOTAL FOR Z=N0 TO ZZZ:FOR ZZ=N0 TO ZZZ 'CHECK IF UNITS ARE THE SAME IF Z<>ZZ THEN S1$=DBU$(N2,Z):S2$=DBU$(N2,ZZ):GOSUB 18000:IF THESAME=N1 THEN WRONG=N1:TOTAL=ZZ:Z=ZZZ:ZZ=ZZZ 'SAME=INVALID NEXT ZZ:NEXT Z  'JOHNY IF WRONG=N1 THEN 6550 IF VAL(DBU$(N0,N1)+"#")=0# OR VAL(DBU$(N1,N1)+"#")=0# THEN TOTAL=N1:GOTO 6550 IF (VAL(DBU$(N0,N1)+"#")/VAL(DBU$(N1,N1)+"#"))=(L1#/L2#) THEN WRONG=N1:TOTAL=Z:Z=ZZZ 6470 NEXT Z IF WRONG=N1 THEN 6550 IF CHGDBU=N1 THEN DIS$=STR$(SELECT):GOTO 4697 'IF CHANGE ONLY, THEN EXIT IF D$(N0)="" THEN 6540 RATIO#=RATIO#/( VAL(DBU$(N0,N1)+"#")/VAL(DBU$(N1,N1)+"#") ) IF RATIO#<1.05# AND RATIO#>.95# THEN 6540 GOSUB 4060:PRINT"Please double check definition #1. Change ? (Y)es "; GOSUB 4200:IF IN$="Y" OR IN$="y" THEN GOSUB 4060:CHGFLAG=N1:GOTO 5490 6540 GOTO 6600 ' '*** ERROR TRAP FOR CHANGINö  G DBU *** ' 6544 COLOR N12 GOSUB 4060:PRINT"Error in DBU #"; COLOR N10 PRINT SELECT; COLOR N12 GOSUB 4050:PRINT"Redefine ?"; COLOR N10 LOCATE N25,N20:PRINT"NO YES"; NUMCOL=N2 WORD1$="NO" WORD2$="YES" ROW=N25 COL1=N20 COL2=N28 GOSUB 220 COLOR N12,N0,N0 IF VAL(TV$)=N2 THEN 5000 ELSE GOSUB 4260:GOTO 4686 ' '*** ERROR TRAP FOR DEFINING DBU *** ' 6550 IF CHGDBU=N1 THEN 6544 ELSE COLOR N12:GOSUB 4060:IF TOTAL=N0 THEN PRINT"No definition"; ELSE PRINT"ERROR, might be in definition #";TOTAL; GOSUB 4050:PRINT"Do you want to change it ? (Y)es "; GOSUB 4200:IF IN$="Y" OR IN$="y" THEN GOSUB 4060:GOTO 5610 6580 GOSUB 4260:GOTO 6610 ' 6600 REDEFINE=N1 'JOHNY DBUDEF$(SELECT)=TMPNAME$ DIS$=STR$(SELECT) 6610 GOTO 4580 ' '*** ERROR TRAP ROUTINE *** ' 9000 COLOR N12,N0,N0:GOSUB 4060 IF ERR=6 THEN PRINT"OUT OF BOUNDS"; IF ERR=7 THEN PRINT"MEMORY OVERFLOW"; IF ERR=25 THEN PRINT"INTERFACE FAULT"; IF ERR=27 THEN PRINT"PRINTER NOT READY"; IF ERR=52 THEN PRINT"BAD FILE NAME"; IF ERR=53 THEN PRINT"FILE NOT FOUND"; IF ERR=53 AND DBUCHEK=N1 THEN DBUCHEK=N0:PRINT"FILE CP.DBU NOT FOUND"; IF ERR=70 THEN PRINT"DISK IS WRITE PROTECTED"; IF ERR=71 THEN PRINT"DISK IS NOT READY"; IF ERR=57 THEN PRINT"DEVICE I/O ERROR"; IF ERR=11 THEN PRINT"DIVISION BY ZERO"; IF ERR=2 THEN PRINT"SYNTAX ERROR"; IF ERR=9 THEN PRINT"LAYER OVERFLOW"; GOSUB 4050:PRINT"DOS Error #";ERR;" Hit any key "; GOSUB 4020:GOSUB 4200 IF MAIN=N13 THEN RESUME 1120 IF ZLAY(1000,N2)=N1 THEN RESUME 4697 ELSE RESUME 4699 ' 9500 CALL ABSOLUTE(IN$,R,C,BC,FC,N1,LOADBUF):RETURN ' 9750 '*** Initialize the page *** ' should pass: Heading corresponds to each column (HEADING$) ' Heading length (HEADLEN) ' Total of items (NUMITEM) ' Maximum number of rows each column can has (NUMROW) ' NUMCOL=NUMITEM\NUMROW:IF (NUMITEM MOD NUMROW)<>N0 THEN NUMCOL=NUMCOL+N1 GAP=(80-HEADLEN*NUMCOL)\(NUMCOL+N1):IF GAP=N0 THEN C=N1 ELSE C=GAP+N1 IF NUMITEM>N0 THEN IN$=HEADING$:R=N2:BC=N0:FC=11:GOSUB 9500:MINCTR1=N1:MAXCTR1=NUMITEM:MERGIN1=C+N1 IF NUMITEM>N1*NUMROW THEN C=N2*GAP+N1*HEADLEN+N1:GOSUB 9500:MINCTR2=MINCTR1+NUMROW:MAXCTR2=NUMITEM:MERGIN2=C+N1:MAXCTR1=MINCTR2-N1 IF NUMITEM>N2*NUMROW THEN C=N3*GAP+N2*HEADLEN+N1:GOSUB 9500:MINCTR3=MINCTR2+NUMROW:MAXCTR3=NUMITEM:MERGIN3=C+N1:MAXCTR2=MINCTR3-N1 IF NUMITEM>N3*NUMROW THEN C=N4*GAP+N3*HEADLEN+N1:GOSUB 9500:MINCTR4=MINCTR3+NUMROW:MAXCTR4=NUMITEM:MERGIN4=C+N1:MAXCTR3=MINCTR4-N1 IF NUMITEM>N4*NUMROW THEN C=N5*GAP+N4*HEADLEN+N1:GOSUB 9500:MINCTR5=MINCTR4+NUMROW:MAXCTR5=NUMITEM:MERGIN5=C+N1:MAXCTR4=MINCTR5-N1 IF NUMITEM>N5*NUMROW THEN C=N6*GAP+N5*HEADLEN+N1:GOSUB 9500:MINCTR6=MINCTR5+NUMROW:MAXCTR6=NUMITEM:MERGIN6=C+N1:MAXCTR5=MINCTR6-N1 IF GAP=N0 THEN S=N2 ELSE S=GAP+N2 FOR Z=N1 TO NUMITEM IF ZN0 THEN RETURN TEMPB=N1 IF NUMCOL=N1 THEN XMMAX=99 ELSE IF NUMCOL=N2 THEN XMMAX=149 ELSE IF NUMCOL=N3 THEN XMMAX=199 ELSE IF NUMCOL=N4 THEN XMMAX=249 ELSE IF NUMCOL=N5 THEN XMMAX=299 ELSE IF NUMCOL=N6 THEN XMMAX=349 ELSE IF NUMCOL=N7 THEN XMMAX=399 COLFLAG=N1 MAXCTR=MAXCTR1:MINCTR=MINCTR1 MERGIN=MERGIN1 XMMIN=50:YMMIN=8:YMMAX=(MAXCTR+N1-MINCTR)*8+N3 XMOUSE=XMMIN:YMOUSE=YMMAX RETURN ' ' '*** Mouse driven for SYMBOL VIEW *** ' Init. passes: Number of column, maximum is 7 (NUMCOL) ' (9750) Minimum index of each column (MINCTR1 ... MINCTR7) ' Maximum index of each column (MAXCTR1 ... MAXCTR7) ' Column # to place the data (MERGIN1 ... MERGIN7) ' ' Prog'er passes: # of rows skipped before placing the data (NUMLF) ' '--- Entry point --- ' 10000 SV=N0 CANCEL=N0:ACTBOX=TEMPB FC=N16:BC=N7 LB$="[":RB$="]"  GOSUB 10010 GOSUB 10040 IF CANCEL=N1 THEN TV$=" ":RETURN S$=STR$(ACTBOX):TV$=RIGHT$(S$,LEN(S$)-INSTR(S$," ")) TEMPB=ACTBOX:LB$=CHR$(16):RB$=CHR$(17) IF MAIN=N13 THEN ERAS=N0 ELSE FC=N16:BC=N7 GOSUB 10010 RETURN ' '--- Draw box or brakets --- ' 10010 IF ACTBOXMAXCTR THEN ACTBOX=MAXCTR:YMOUSE=(MAXCTR1*N8+N3)-((MAXCTR-MINCTR)*N8) IF MAIN=N13 THEN 10015 '  '--- DBU --- LOCATE NUMLF+ACTBOX-MINCTR+N1,MERGIN:COLOR FC,BC,N0 IF ACTBOX>N9 THEN PRINT RIGHT$(STR$(ACTBOX),N2); ELSE PRINT STR$(ACTBOX); RETURN ' 10015 '--- Symbol library --- IF DISCLR$<>"M" THEN COLOR 14,N0,N0 ELSE COLOR 15,N0,N0 IF ERAS=N1 THEN LB$=" ":RB$=" " ELSE LB$="[":RB$="]" LOCATE NUMLF+ACTBOX-MINCTR+N1,MERGIN-N1:PRINT LB$; LOCATE NUMLF+ACTBOX-MINCTR+N1,MERGIN+LEN(CNAM$(ACTBOX,N0)):PRINT RB$; RETURN ' '--- Move left & right --- ' 10020 IF MAIN=N13 THEN ERAS=N1 ELSE FC=N10:BC=N0 GOSUB 10010 IF LEFT<>N1 THEN ACTBOX=(ACTBOX-MINCTR+N1)+(COLFLAG-N1)*MAXCTR1 ELSE ACTBOX=ACTBOX-(ACTBOX-COLFLAG*MAXCTR1)-(MAXCTR1-(ACTBOX-MINCTR+N1)) IF COLFLAG=N1 THEN MERGIN=MERGIN1:MAXCTR=MAXCTR1:MINCTR=MINCTR1:GOTO 10030 IF COLFLAG=N2 THEN MERGIN=MERGIN2:MAXCTR=MAXCTR2:MINCTR=MINCTR2:GOTO 10030 IF COLFLAG=N3 THEN MERGIN=MERGIN3:MAXCTR=MAXCTR3:MINCTR=MINCTR3:GOTO 10030 IF COLFLAG=N4 THEN MERGIN=MERGIN4:MAXCTR=MAXCTR4:MINCTR=MINCTR4:GOTO 10030 IF COLFLAG=N5 THEN MERGIN=MERGIN5:MAXCTR=MAXCTR5:MINCTR=MINCTR5:GOTO 10030 IF COLFLAG=N6 THEN MERGIN=MERGIN6:MAXCTR=MAXCTR6:MINCTR=MINCTR6:GOTO 10030 IF COLFLAG=N7 THEN MERGIN=MERGIN7:MAXCTR=MAXCTR7:MINCTR=MINCTR7 10030 IF MAIN=N13 THEN ERAS=N0 ELSE FC=N16:BC=N7 GOSUB 10010:RETURN ' '--- Get input from the keyboard or mouse --- ' 10040 BUT=N0:GOSUB 10050:IF S$=" " THEN CANCEL=N1:BUT=N0:RETURN  IF S$<>"X" THEN 10040 ELSE BUT=N0 RETURN ' 10050 GOSUB 27600:IF S$="" THEN GOSUB 2730:GOSUB 10060:IF BUT=N1 THEN S$="X":RETURN ELSE IF BUT=N2 THEN S$=" ":RETURN ELSE RETURN IF S$="X" OR S$="x" THEN S$="X":RETURN IF S$=" " THEN RETURN IF ASC(S$)=N13 THEN S$=" ":RETURN IF LEN(S$)=N2 AND ASC(RIGHT$(S$,N1))=75 THEN XT=-XMMIN:GOSUB 10060:RETURN IF LEN(S$)=N2 AND ASC(RIGHT$(S$,N1))=77 THEN XT=XMMIN: GOSUB 10060:RETURN IF LEN(S$)=N2 AND ASC(RIGHT$(S$,N1))=ö  72 THEN YT=N8: GOSUB 10060:RETURN IF LEN(S$)=N2 AND ASC(RIGHT$(S$,N1))=80 THEN YT=-N8:GOSUB 10060:RETURN GOTO 10050 ' '--- Determine where the brakets move --- ' 10060 IF XT=N0 AND YT=N0 THEN RETURN GOSUB 10070: TBOX=FIX(YMOUSE\N8): IF ACTBOX=COLFLAG*MAXCTR1+N1-TBOX THEN RETURN IF MAIN=N13 THEN ERAS=N1 ELSE FC=N10:BC=N0 GOSUB 10010:ACTBOX=COLFLAG*MAXCTR1+N1-TBOX IF MAIN=N13 THEN ERAS=N0 ELSE FC=N16:BC=N7 GOSUB 10010 RETURN 10070 IF XT=N0 THEN 10080 XMOUSE=XMOUSE+XT:IF XMOUSEXMMAX THEN XMOUSE=XMMAX XBOX=FIX(XMOUSE\XMMIN):IF COLFLAG=XBOX THEN GOTO 10080 IF COLFLAG>XBOX THEN LEFT=N1 ELSE LEFT=N0 COLFLAG=XBOX:GOSUB 10020 10080 IF YT<>N0 THEN YMOUSE=YMOUSE+YT:IF YMOUSEYMMAX THEN YMOUSE=YMMAX XT=N0:YT=N0 RETURN ' '***** Tablet Scaling Subroutine ***** ' 11000 DEF SEG=SEGDEF IF INPUTDV=N3 OR INPUTDV=N5 OR INPUTDV=N6 THEN COMMODE=&H83:GINITCOM=&H1E:CALL ABSOLUTE(GINITCOM) IF INPUTDV=N7 THEN COMMODE=&H83:INTKURTA1=&H36:CALL ABSOLUTE (INTKURTA1) GOSUB 4060:GOSUB 4050:COLOR N11:PRINT"Do you want to scale your tablet ? N0 YES"; NUMCOL=N2:WORD1$="NO":WORD2$="YES":ROW=N25:COL1=38:COL2=44:GOSUB 220:COLOR N11,N0,N0 IF CANCEL=N1 OR VAL(TV$)=N1 THEN TISM=N1:GOTO 11120 TISM=N0:GOSUB 11170 11010 ERRTAB=N1:XDMMIN=SCRNDRWMAXXM1:COLOR N11:GOSUB 40010:LOCATE 25,29:PRINT" to abort scaling";:COLOR 15:LOCATE N2,N1:PRINT"Select lower left corner of MENU area";:FLAG=N1 WHILE FLAG GOSUB 11160:IF A=13 THEN A=N0:GOTO 11120 GOSUB 11190 IF BUT=&HFF THEN 11020 XTMMIN=TX:YTMMIN=TY IF BUT=N1 THEN GOSUB 11150:FLAG=N0 BUT=&HFF 11020 WEND GOSUB 11140 LOCATE N4,N1:PRINT"Select upper right corner of MENU area";:FLAG=N1 WHILE FLAG GOSUB 11160:IF A=13 THEN A=N0:GOTO 11120 GOSUB 11190 IF BUT=&HFF THEN 11030 XTMMAX=TX:YTMMAX=TY IF BUT=N1 THEN GOSUB 11150:FLAG=N0 BUT=&HFF 11030 WEND IF XTMMIN>=XTMMAX OR YTMMIN>=YTMMAX THEN ER$="INVALID AREA":GOSUB 11130:GOTO 11010 GOSUB 11140:RATIOXTD!=57/(XTMMAX-XTMMIN):RATIOYTD!=181/(YTMMAX-YTMMIN) 11040 LOCATE N6,N1:PRINT "Select lower left corner of drawing area";:FLAG=N1 WHILE FLAG GOSUB 11160:IF A=13 THEN A=N0:GOTO 11120 GOSUB 11190 IF BUT=&HFF THEN 11050 XTMIN=TX: YTMIN=TY IF BUT=N1 THEN GOSUB 11150:FLAG=N0 BUT=&HFF 11050 WEND IF XTMIN>XTMMIN AND XTMINYTMMIN AND YTMIN30000 THEN LOCATE N8,32:PRINT" ";:GOTO 11060 ELSE XMIN!=VAL(IN$) 11070 LOCATE N9,N3:PRINT"Enter Y value (-30K to +30K) ";:NUMONLY=N1:GOSUB 4100:NUMONLY=N0:IF IN$="" THEN 11120 ELSE IF VAL(IN$)<-30000 OR VAL(IN$)>30000 THEN LOCATE N9,32:PRINT" ";:GOTO 11070 ELSE YMIN!=VAL(IN$) 11080 LOCATE 11,N1:PRINT"Select upper right corner of drawing area";:FLAG=N1 WHILE FLAG GOSUB 11160:IF A=13 THEN A=N0:GOTO 11120 GOSUB 11190 IF BUT=&HFF THEN 11090 XTMAX=TX: YTMAX=TY IF BUT=N1 THEN GOSUB 11150:FLAG=N0 BUT=&HFF 11090 WEND IF XTMAX>XTMMIN AND XTMAXYTMMIN AND YTMAX30000 THEN LOCATE 13,32:PRINT" ";:GOTO 11100 ELSE XMAX!=VAL(IN$) 11110 LOCATE 14,N3:PRINT"Enter Y value (-30K to +30K) ";:NUMONLY=N1:GOSUB 4100:NUMONLY=N0:IF IN$="" THEN 11120 ELSE IF VAL(IN$)<-30000 OR VAL(IN$)>30000 THEN LOCATE 14,32:PRINT" ";:GOTO 11110 ö  ELSE YMAX!=VAL(IN$) RATIOXTW! = (XMAX!-XMIN!)/(XTMAX-XTMIN) RATIOYTW! = (YMAX!-YMIN!)/(YTMAX-YTMIN) 11120 ERRTAB=N0:PDN=N1:RETURN 11130 COLOR 28:LOCATE 17,30:PRINT ER$;:FOR E=N1 TO N3:FOR D=N1 TO 32000:NEXT D:NEXT E:LOCATE 17,30:PRINT" ";:COLOR 15:RETURN 11140 COLOR 10:LOCATE ,46:PRINT"Location Accepted";:COLOR 15:RETURN 11150 FOR DB=N1 TO 15000:NEXT DB:RETURN 11160 A$=INKEY$:IF A$="" THEN RETURN ELSE A=ASC(A$):RETURN 11170 CALL ABSOLUTE(N1,CLRBUF) IN$="To properly position your drawing on the tablet, follow these steps:":CALL ABSOLUTE(IN$,N4,N1,N0,N15,N1,LOADBUF) IN$="1. Center the drawing on the tablet.":CALL ABSOLUTE(IN$,N7,N1,N0,N15,N1,LOADBUF) IN$="2. Select a line in the drawing which closely parallels either the X-axis":CALL ABSOLUTE(IN$,N9,N1,N0,N15,N1,LOADBUF) IN$=" (horizontal line) or the Y-axis (vertical line).":CALL ABSOLUTE(IN$,N10,N1,N0,N15,N1,LOADBUF) IN$=" From this point on, if you chose a horizontal line then observe the Y-value":CALL ABSOLUTE(IN$,N12,N1,N0,N15,N1,LOADBUF) IN$=" at the top of the screen; for a vertical line, observe the X-value.":CALL ABSOLUTE(IN$,N13,N1,N0,N15,N1,LOADBUF) IN$="3. Place the digitizing cursor on one end of the line which you have just":CALL ABSOLUTE(IN$,N15,N1,N0,N15,N1,LOADBUF) IN$=" selected and note the value at the top of the screen.":CALL ABSOLUTE(IN$,N16,N1,N0,N15,N1,LOADBUF) IN$="4. Place the cursor on the other end of the line and again note the value.":CALL ABSOLUTE(IN$,N18,N1,N0,N15,N1,LOADBUF) IN$="5. Repeat steps 3 & 4, adjusting the drawing as necessary, until the value":CALL ABSOLUTE(IN$,N20,N1,N0,N15,N1,LOADBUF) IN$=" observed at each end of the line is approximately the same.":CALL ABSOLUTE(IN$,N21,N1,N0,N15,N1,LOADBUF) IN$=" NOTE: A difference in values of 10 or less will still ensure accuracy.":CALL ABSOLUTE(IN$,N23,N1,N0,N15,N1,LOADBUF) IN$="6. Carefully secure the drawing to the tablet and press to continue.....":CALL ABSOLUTE(IN$,N25,N1,N0,N15,N1,LOADBUF) IN$="X =":CALL ABSOLUTE(IN$,N1,N31,N0,N15,N1,LOADBUF):IN$="Y =":CALL ABSOLUTE(IN$,N1,N42,N0,N15,N1,LOADBUF) CALL ABSOLUTE(N1,POPSCRN):LXLENGTH=N0:LYLENGTH=N0 11180 GOSUB 11160:IF A=13 THEN A=N0:RETURN CALL ABSOLUTE (TX,TY,BUT,READTP%) IF TX>9999 THEN XLENGTH=N5 ELSE IF TX>999 THEN XLENGTH=N4 ELSE IF TX>99 THEN XLENGTH=N3 ELSE IF TX>N9 THEN XLENGTH=N2 ELSE XLENGTH=N1 IF TY>9999 THEN YLENGTH=N5 ELSE IF TY>999 THEN YLENGTH=N4 ELSE IF TY>99 THEN YLENGTH=N3 ELSE IF TY>N9 THEN YLENGTH=N2 ELSE YLENGTH=N1 IF XLENGTH for no change":GOSUB 841:RETURN 11380 IF CURSOR(N2)>CURSOR(N1)*N2-N1 THEN CURSOR(N2)=CURSOR(N1)*N2-N1:RETURN ELSE RETURN 11390 CALL ABSOLUTE (CURSOR(N1),CURSOR(N2),CURSOR(N3),CURSOR(N4),SCRNDRWMAXY,N0,SCRNDRWMAXX,N0,CURSSET) CALL ABSOLUTE (SCRNDRWMAXY,N0,SCRNDRWMAXX,N0,SETWIN) GOSUB 40010:GOTO 4699 ' ' ' '*** STRING COMPARISON (UPPER CASE <--> LOWER CASE) *** ' ' This routine compares 2 strings stored in S1$ & S2$. ' It will ignore the leading and trailing blanks of ' each strings. ' If both strings are the same, it will pass you ' THESAME=1, otherwise THESAME=0. ' 'WHAT YOU SHOULD PASS :  ' S1$ (STRING 1) AND S2$ (STRING 2) ' 'WHAT YOU WILL GET : ' THESAME ( 1=IF BOTH STRINGS ARE THE SAME, 0=OTHERWISE ) ' 'NOTE : ' TO AVOID USING THE SAME VARIABLES, THIS ROUTINE USES ' THE VARIABLE NAMES STARTING WITH "COMP" ' ' 18000 IF LEFT$(S1$,N1)=" " THEN S1$=RIGHT$(S1$,LEN(S1$)-N1):GOTO 18000 'supress leading blanks 18010 IF RIGHT$(S1$,N1)=" " THEN S1$=LEFT$(S1$,LEN(S1$)-N1):GOTO 18010 'supress trailing blanks 18020 IF LEFT$(S2$,N1)=" " THEN S2$=RIGHT$(S2$,LEN(S2$)-N1):GOTO 18020 'supress leading blanks 18030 IF RIGHT$(S2$,N1)=" " THEN S2$=LEFT$(S2$,LEN(S2$)-N1):GOTO 18030 'supress trailing blanks THESAME=N1 COMPL1=LEN(S1$) : COMPL2=LEN(S2$) IF (COMPL1<>COMPL2 OR COMPL1=N0 OR COMPL2=N0) THEN THESAME=N0:GOTO 18060 'different length COMPL=N1 WHILE THESAME=N1 AND COMPL<=COMPL1 COMPZ=ASC(MID$(S1$,COMPL,N1)) : COMPZZZ=ASC(MID$(S2$,COMPL,N1)ö  ) IF (COMPZ<65 OR (COMPZ>90 AND COMPZ<97) OR COMPZ>122) THEN IF COMPZ<>COMPZZZ THEN THESAME=N0:GOTO 18050 ELSE 18040 'not alphabets IF COMPZ>64 AND COMPZ<91 THEN COMPZZ=COMPZ+32 ELSE COMPZZ=COMPZ-32 'get lower and upper case IF COMPZZZ<>COMPZ AND COMPZZZ<>COMPZZ THEN THESAME=N0 'not the same 18040 COMPL=COMPL+N1 'get next char 18050 WEND 18060 RETURN '  '*** RECORD THE KB INPUT IF NECESSARY *** ' 27000 27005 IF CHR<>N1 THEN 27025 ELSE GOSUB 27100:IN$=TXI$ 27010 RETURN 27020 INPUT #3,K:IF K=N9 THEN LINE INPUT #3,IN$:PRINT IN$;:GOSUB 27030 ELSE 27005 27025 CHR=N0:RETURN 27030 RETURN 27032 RETURN ' 27100 TXI$=INKEY$:IF TXI$="" THEN GOTO 27100 ELSE IF TXI$=CHR$(14) THEN SV=N0:GOTO 27100 ELSE IF TXI$=CHR$(18) THEN SV=N1:GOTO 27100 ELSE IF ASC(TXI$)=13 THEN TXI$="":RETURN ELSE PRINT TXI$;:RETURN ' '*** RECORD KB INPUT IF NECESSARY *** ' 27600 S$="" S$=INKEY$:IF S$=CHR$(14) THEN SV=N0:GOTO 27600 ELSE IF S$=CHR$(18) THEN SV=N1:GOTO 27600 RETURN ' 40000 SCRN=&H24:CALL ABSOLUTE (AH,AL,BH,BL,SCRN):RETURN 40010 LOCATE N1,N1:GOSUB 40020 AH=N0:AL=N3:BH=N0:BL=N0:GOSUB 40000 'CLS, SCREEN 0,0, WIDTH 80 LOCATE ,,N0 RETURN 40020 INITCRT=&H6:CALL ABSOLUTE (INITCRT):ROW=N1:COL=N1:RETURN 'CLS, SCREEN 1,0 ö 'CPTRANS.BAS CADDRAFT/MINDSET VERSION 1.40 (C)Copyright PERSONAL CAD SYSTEMS, INC. JUNE 1984 ' DEFINT A-Z DIM LAY(1000,2),LAYVM(65,1),PCT(65),LINET(65),CNUM(120,7),CLRT(65) DIM INFO$(65),CNAM$(120,1),VREC!(5,2),TXDBU(15),GRIDS(10,1),PENNUM(65) N0=0:N1=1:N2=2:N3=3:N4=4:N5=5:N6=6:N7=7:N8=8:N9=9 ' 10 ON ERROR GOTO 9000 FIRSTIME=N1:DIM ALLSYMS$(57) ALLSYMS=N0:WRITELAY=66:READLAY=69:BLDFILE$="CDMINDST.BLD" FILECHEK=N1:CLOSE 1:OPEN BLDFILE$ FOR INPUT AS #1:CLOSE 1:FILECHEK=N0 SEGDEF=&H1900:DEF SEG=SEGDEF:CALL LOADER(SEGDEF,N0,STATUS,BLDFILE$):IF STATUS<>N0 THEN 9100 HRAMSTART=&H1E00:SETHRAM=&H48:CALL ABSOLUTE (HRAMSTART,N0,SETHRAM) N75=75:CALL ABSOLUTE (MEMORY,MLAY,N75):MLAY=N7:GOSUB 780 40 CLS:COLOR 14:LOCATE N1,16:PRINT"(C) Copyright Personal CAD Systems - June, 1984"; COLOR 15:LOCATE N3,N1:PRINT"This program translates 1.30 & 1.35 File and Symbol databases to 1.40 format."; 45 IF FIRSTIME=N1 THEN LOCATE 5,1:PRINT"On which disk drive do Files and Symbols reside? (A or B) ";:GOSUB 861:ROWNUM=5:GOSUB 810:IF IN$="" THEN 45 IF FIRSTIME=N1 THEN DL=ASC(IN$):IF (DL>64 AND DL<67) OR (DL>96 AND DL<99) THEN DRIVE$=IN$:FIRSTIME=N0 ELSE 45 50 LOCATE N5,N1:PRINT"Translate (F)ile or (S)ymbol, (E)xit, (C)hange drive? (Enter F,S,E, or C) ";:GOSUB 861 IF IN$="F" OR IN$="f" THEN DBTYPE=N1:EXT$=".DBF":GOTO 55 IF IN$="S" OR IN$="s" THEN DBTYPE=N2:EXT$=".SYM":GOTO 55 IF IN$="E" OR IN$="e" THEN 8000 IF IN$="C" OR IN$="c" THEN 1000 ELSE ROWNUM=N5:GOSUB 810:GOTO 50 55 LOCATE N7,N1:IF DBTYPE=N2 THEN PRINT"Enter name of symbol (.SYM) to be translated: ";:GOSUB 897:INFIL$=IN$+EXT$:OUTFIL$=INFIL$:OVERWRITE=N1:GOSUB 840:GOTO 1643 PRINT"Enter name of file (.DBF) to be translated: ";:GOSUB 897:INFIL$=IN$+EXT$ 60 GOSUB 800:GOSUB 840:GOTO 1643 ' '*** GENERAL PURPOSE SUBROUTINES *** ' 780 FOR Z=N0 TO 1000:LAY(Z,N0)=N0:LAY(Z,N1)=N0:LAY(Z,N2)=N0:NEXT FOR Z=N1 TO MLAY:CALL ABSOLUTE(LAY(N0,N0),Z,WRITELAY):LAYVM(Z,N1)=N0:NEXT:RETURN 800 ROWNUM=Nö  9:GOSUB 810:COLOR 15:PRINT"Enter new name, or for existing name: ";:GOSUB 897 IF IN$="" THEN OUTFIL$=INFIL$:LOCATE N9,44:PRINT OUTFIL$; ELSE OUTFIL$=IN$+EXT$ GOSUB 805:RETURN 805 IF ALLSYMS=N1 OR OUTFIL$=INFIL$ THEN OVERWRITE=N1 ELSE OVERWRITE=N0 RETURN 810 LOCATE ROWNUM,N1:PRINT SPACE$(79);:LOCATE ROWNUM,N1:RETURN 840 ROWNUM=15:GOSUB 810:COLOR 10:PRINT"TRANSLATING ";INFIL$:COLOR 15:RETURN 850 ROWNUM=23:GOSUB 810:ROWNUM=24:GOSUB 810:RETURN 859 FOR DELAY=N1 TO 32000:NEXT DELAY:RETURN 860 FOR MSDELAY=N1 TO N4:FOR DELAY=N1 TO 32000:NEXT:NEXT:RETURN 861 IN$=INKEY$:IF IN$="" GOTO 861 ELSE IF ASC(IN$)=13 THEN IN$="":RETURN ELSE PRINT IN$;:RETURN ' '*** KEYBOARD INPUT ROUTINE *** ' 897 NIN$="" 898 IN$=INKEY$:IF IN$="" GOTO 898 ELSE K=ASC(IN$):IF K=13 THEN IN$=NIN$:RETURN ELSE IF K=27 THEN IN$="":RETURN IF K=N8 THEN R=CSRLIN:C=POS(N0)-N1:L=LEN(NIN$):IF LN7 OR (K<48 AND K<>45 AND K<>47) OR (K>57 AND K<65) OR (K>90 AND K<97) OR K>122 THEN 898 ELSE PRINT IN$;:NIN$=NIN$+IN$:GOTO 898 ' '*** DRIVE CHANGE *** ' 1000 COLOR 10:GOSUB 850:PRINT"Enter new drive letter (A or B) ";:GOSUB 861:IF IN$="" THEN 1005 ELSE DL=ASC(IN$) IF (DL>64 AND DL<67) OR (DL>96 AND DL<99) THEN DRIVE$=IN$:GOSUB 850:ROWNUM=N5:GOSUB 810:COLOR 15:GOTO 50 1005 GOTO 1000 ' 1643 '*** LOAD JOB ROUTINE *** ' INDRVFIL$=DRIVE$+":"+INFIL$ FILECHEK=N2:OPEN INDRVFIL$ FOR INPUT AS #1:FILECHEK=N0 GOSUB 850:COLOR 14:PRINT"Loading from disk";:COLOR 15 INPUT #1,INMLAY,ECOX,ECOY IF INMLAY=140 THEN CLOSE 1:GOSUB 850:COLOR 10:PRINT INFIL$;" has already been translated!";:GOSUB 860:GOSUB 859:GOSUB 859:GOSUB 859:GOSUB 850:COLOR 15 IF INMLAY=140 AND ALLSYMSN0 THEN 2100 IF INMLAY>MLAY THEN CLOSE 1:ROWNUM=23:GOSUB 810:COLOR 12:PRINT INFIL$;" has";INMLAY;"layers";:ROWNUM=24:GOSUB 810:PRINT"System max is";MLAY;"- Can NOT translate!";:GOSUB 860:GOSUB 859:GOSUB 859:GOSUB 859:GOSUB 859:GOSUB 850 IF INMLAY>MLAY AND ALLSYMSMLAY AND ALLSYMS>N0 THEN GOSUB 850:GOTO 2100 1651 INPUT #1,OP,NLN,LCN IF OP=30 THEN 1660 ELSE LAYVM(NLN,N1)=LCN IF OP<>31 THEN CLOSE 1:ROWNUM=23:GOSUB 810:COLOR 12:PRINT"Input read error - can NOT translate ";INFIL$;:GOSUB 860:GOSUB 859:GOSUB 859:GOSUB 780:GOSUB 850:IF ALLSYMS&H4000 THEN CELNUM=(LAY(Z,N0) AND &H3F):CELROT=(LAY(Z,N0) AND &H1FC0)*N2:LAY(Z,N0)=((CELNUM OR CELROT OR &H4000) AND &HFFBF):GOTO 1652 IF (LAY(Z,N0) AND N7)=N6 THEN PSTA=(LAY(Z,2) AND &H7F)*5:PENA=((LAY(Z,2) AND &H3F80)\128)*5:STA=(PSTA AND &H1FF):LOWENA=((PENA*512) AND &HFE00):LAY(Z,2)=(STA OR LOWENA):HIENA=(PENA AND &H180)*128:RAD=(LAY(Z,1) AND &H3FFF):LAY(Z,1)=(RAD OR HIENA) 1652 NEXT Z CALL ABSOLUTE (LAY(N0,N0),LN,WRITELAY):GOTO 1651 1660 INPUT #1,WX,WY,SCALE!,DLX,DLY,GLOK,ALAY,ACELNUM,LCELNUM,CLAST,AGRID,GRID,DIS$,DISCLR$ IF DIS$="F" THEN DIS$="57" ELSE IF DIS$="T" THEN DIS$="58" ELSE IF DIS$="M" THEN DIS$="59" ELSE DIS$="60" FOR Z=N1 TO LCELNUM:INPUT #1,CNAM$(Z,N0),CNAM$(Z,N1):NEXT FOR Z=N1 TO LCELNUM:INPUT #1,CNUM(Z,N0),CNUM(Z,N1),CNUM(Z,N2),CNUM(Z,N3):NEXT FOR Z=N1 TO 10:INPUT #1,GRIDS(Z,N0),GRIDS(Z,N1):NEXT FOR Z=N1 TO 65:INPUT #1,LINET(Z),LAYVM(Z,N0),BOGUS,CLRT(Z):NEXT FOR Z=N1 TO N5:INPUT #1,VREC!(Z,N0),VREC!(Z,N1),VREC!(Z,N2):NEXT FOR Z=N1 TO 15:INPUT #1,TXDBU(Z):NEXT INPUT #1,K$:IF K$<>"END" THEN CLOSE 1:GOSUB 850:COLOR 12:PRINT"End of file read error - can NOT translate ";INFIL$;:GOSUB 860:GOSUB 859:GOSUB 859:GOSUB 780:GOSUB 850:IF ALLSYMS"y" AND IN$<>"Y" THEN GOSUB 850:GOSUB 800:GOTO 1725 1728 TEST=N0:CLOSE 1:OPEN OUTDRVFIL$ FOR OUTPUT AS #1 GOSUB 850:COLOR 14:PRINT"Writing to disk";:COLOR 15 GOSUB 30958:WRITE #1,140,CRNLX,CRNLY,CRNUX,CRNUY,INMLAY,ECOX,ECOY FOR LN=N1 TO INMLAY:IF LAYVM(LN,N1)<=N0 THEN 1734 ELSE CALL ABSOLUTE (LAY(N0,N0),LN,READLAY):LCN=LAYVM(LN,N1):OP=31:WRITE #1,OP,LN,LCN FOR Z=N0 TO LCN-N1:WRITE #1,LAY(Z,N0),LAY(Z,N1),LAY(Z,N2):NEXT Z 1734 NEXT LN ENDOP=30:WRITE #1,ENDOP,ENDOP,ENDOP WRITE #1,WX,WY,SCALE!,DLX,DLY,GLOK,ALAY,ACELNUM,LCELNUM,CLAST,AGRID,GRID PRINT #1,DIS$;",";DISCLR$ FOR Z=N1 TO LCELNUM:PRINT #1,CNAM$(Z,N0);",";CNAM$(Z,N1):NEXT FOR Z=N1 TO LCELNUM:WRITE #1,CNUM(Z,N0),CNUM(Z,N1),CNUM(Z,N2),CNUM(Z,N3):NEXT FOR Z=N1 TO 10:WRITE #1,GRIDS(Z,N0),GRIDS(Z,N1):NEXT FOR Z=N1 TO 65:WRITE #1,LINET(Z),LAYVM(Z,N0),CLRT(Z),1,"":NEXT FOR Z=N1 TO N5:WRITE #1,VREC!(Z,N0),VREC!(Z,N1),VREC!(Z,N2):NEXT FOR Z=N1 TO 15:WRITE #1,TXDBU(Z):NEXT K$="END":PRINT #1,K$ CLOSE 1 ' 1790 GOSUB 850:ROWNUM=15:GOSUB 810:COLOR 12:PRINT"Translation complete!":SOUND 400,2:GOSUB 859:GOSUB 859:ROWNUM=15:GOSUB 810:COLOR 15 IF DBTYPE=N1 OR ALLSYMS=N1 THEN 2000 1800 GOSUB 850:COLOR 15:PRINT"Translate another file? (Y or N) ";:GOSUB 861:IF IN$="y" OR IN$="Y" THEN GOSUB 850:GOSUB 780:GOTO 40 GOTO 8000 ' 2000 IF ALLSYMS>N0 THEN 2100 IF LCELNUM"Y" AND IN$<>"y" THEN 1800 TLCELNUM=LCELNUM:FOR Z=N1 TO TLCELNUM:ALLSYMS$(Z)=CNAM$(Z,N0):NEXT  DBTYPE=N2:ALLSYMS=N1:GOSUB 850:SYMCOUNT=N0:EXT$=".SYM" 2100 SYMCOUNT=SYMCOUNT+N1:IF SYMCOUNT>TLCELNUM THEN ALLSYMS=N0:GOTO 1800 INFIL$=ALLSYMS$(SYMCOUNT)+EXT$:OUTFIL$=INFIL$ GOSUB 780:GOSUB 805:GOSUB 840:GOTO 1643 ' '*** ERROR ROUTINES *** ' 8000 COLOR 15:CLS:END ' 9000 COLOR 12:GOSUB 850:ROWNUM=23 IF ERR=N6 THEN GOSUB 810:PRINT"Overflow"; IF ERR=N7 THEN GOSUB 810:PRINT"Memory overflow"; IF ERR=25 THEN GOSUB 810:PRINT"Interface fault"; IF ERR=27 THEN GOSUB 810:PRINT"Printer not ready"; IF ERR=52 THEN GOSUB 810:PRINT"Bad file name"; IF ERR=53 AND TEST=N1 THEN RESUME 1728 IF ERR=53 AND FILECHEK=N1 THEN 9100 IF ERR=53 AND FILECHEK=N2 AND ALLSYMS>N0 THEN FILECHEK=N0:CLOSE 1:GOSUB 850:PRINT INFIL$;" not found .... hit any key ";:GOSUB 860:GOSUB 861:GOSUB 850:RESUME 2100 IF ERR=53 AND FILECHEK=N2 THEN FILECHEK=N0:CLOSE 1:GOSUB 850:PRINT INFIL$;" not found .... hit any key ";:GOSUB 860:GOSUB 861:GOSUB 850:RESUME 1800  IF ERR=70 THEN GOSUB 810:PRINT"Disk is write protected"; IF ERR=71 THEN GOSUB 810:PRINT"Disk is not ready"; IF ERR=57 THEN GOSUB 810:PRINT"Device I/O error"; IF ERR=11 THEN GOSUB 810:PRINT"Division by zero"; ROWNUM=24:GOSUB 810:PRINT"DOS error #";ERR;"- can NOT translate. Hit any key ";:GOSUB 860:GOSUB 861 GOSUB 850:CLOSE 1:IF ALLSYMSN1 OR LAYVM(LN,N1)ö  8191 THEN 30980 IF (OP AND N7)=N6 THEN RAD=(X AND &H3FFF):PASS=N0 GOSUB 31025 LX=X:LY=Y 30980 NEXT Z 30982 NEXT LN IF XHI!=34000 OR YHI!=34000 THEN CRNLX=-32768:CRNLY=-32768:CRNUX=32767:CRNUY=32767:RETURN CRNLX=XLO!:CRNLY=YLO!:CRNUX=XHI!:CRNUY=YHI!:RETURN ' 31025 IF (OP AND N7)=N6 THEN IF PASS=N0 THEN PASS=N1:X=LX+RAD:Y=LY+RAD ELSE X=LX-RAD:Y=LY-RAD:PASS=N0 IF XHI!=34000! THEN XHI!=X ELSE IF X>XHI! THEN XHI!=X IF XLO!=-34000! THEN XLO!=X ELSE IF XYHI! THEN YHI!=Y IF YLO!=-34000! THEN YLO!=Y ELSE IF YN0 THEN 60100 CALL ABSOLUTE(HRAMSTART,N0,SETHRAM) CALL ABSOLUTE(MEMORY,MLAY,N75):MLAY=7 IF MEMORY<256 THEN 750 GOSUB 780 'Clear layer ' FILE6$="CP.DBU" 'Check DBU file CLOSE #1:FILECHEK=5:OPEN FILE6$ FOR INPUT AS #1 FILECHEK=N0:Z=N1 WHILE NOT EOF(1) AND Z<=60 LINE INPUT #1,DB$ Z=Z+N1 WEND DBUMAX=Z-N1 CLOSE #1 ' GOSUB 1300:GOTO 470 460 STRG$=SPACES$ ROW=N20:COL=N1:GOSUB 821 ROW=N22:COL=N1:GOSUB 821 GOSUB 850 470 GOSUB 500: IF ABORT=N1 THEN 480 'Get symbol name IF SCALEALL=N1 THEN 4000 'Scale all symbols in the SYMFILE$() GOSUB 600 'Get new symbol name GOSUB 1600:IF ABORT=N1 THEN 480 'Load symbol database GOSUB 2000:IF ABORT=N1 THEN GOSUB 980:GOTO 480 'Scale symbol GOSUB 1700 'Write symbol database ' 480 GOSUB 780:STRG$=SPACES$:ROW=N23:COL=N1:GOSUB 821 COLOR N11:GOSUB 820:PRINT"Continue ......(Y/N) ? "; 484 GOSUB 860:GOSUB 861 IF IN$="N" OR IN$="n" THEN 60200 IF IN$="Y" OR IN$="y" THEN 460 GOSUB 990:GOTO 484 ' '--------------------------------------------------------------------- '*** GET SYMBOL NAME *** GET SYMBOL NAME *** GET SYMBOL NAME *** '--------------------------------------------------------------------- 500 GOSUB 990:GOSUB 820:ABORT=N0:SCALEALL=N0 COLOR N11:GOSUB 810:PRINT"Enter symbol name to be scaled: "; SYMS=N1:GOSUB 897:SYMS=N0 IF IN$="" THEN ABORT=N1:GOTO 505 IF IN$="*" THEN SCALEALL=N1:GOTO 505 TSYMNAM$=IN$ SYMNAM$=DRV$+":"+IN$+".SYM":CLOSE #1:FIND=N1 OPEN SYMNAM$ FOR INPUT AS #1 INPUT #1,RELEASE,CRNLX,CRNLY,CRNUX,CRNUY,INMLAY,ECOX,ECOY IF RELEASE<>140 THEN BADFILE$=TSYMNAM$:CLOSE #1:GOSUB 899:ABORT=N1:GOTO 505 IF INMLAY>MLAY THEN BADFILE$=TSYMNAM$:CLOSE #1:GOSUB 900:ABORT=N1:GOTO 505 CLOSE #1 LOCATE N20,N1:COLOR N11:PRINT"Symbol to be scaled: ";:COLOR N15:PRINT TSYMNAM$; 505 RETURN ö  ' '----------------------------------------------------------------- '*** GET NEW SYMBOL NAME *** GET NEW SYMBOL NAME *** '----------------------------------------------------------------- 600 GOSUB 820:OVERWRITE=N0:ABORT=N0 COLOR N11:GOSUB 810:PRINT"Enter new name, or for existing name: "; SYMS=N1:GOSUB 897:SYMS=N0 IF IN$="" THEN IN$=TSYMNAM$:OVERWRITE=N1:ABORT=N1 TNEWSYMNAM$=IN$ TEMPNAM$=DRV$+":"+IN$+".TMP" NEWSYMNAM$=DRV$+":"+IN$+".SYM":CLOSE #2:FIND=N2 IF ABORT=N1 THEN ABORT=N0:GOTO 605 OPEN NEWSYMNAM$ FOR INPUT AS #2 GOSUB 810:COLOR N15:PRINT TNEWSYMNAM$;:COLOR N14:PRINT" already exists"; GOSUB 820:COLOR N11:PRINT "Overwrite ? Y/N "; GOSUB 860:GOSUB 861 IF IN$<>"Y" AND IN$<>"y" THEN CLOSE #2:GOTO 600 OVERWRITE=N1 605 LOCATE 20,41:COLOR N11:PRINT"Output file: ";:COLOR N15:PRINT TNEWSYMNAM$; CLOSE #2 610 RETURN ' '----------------------------------------------------------------------- '*** GENERAL PURPOSE SUBROUTINES *** GENERAL PURPOSE SUBROUTINES *** '----------------------------------------------------------------------- 750 WIDTH 80:SCREEN 0:CLS:CALL COLIO(N14,N0) STRG$="This computer does not have enough memory to scale symbols" CALL HRTXTPRT(STRG$,N22,N1) STRG$="A minimum of 256 K-bytes is required" CALL HRTXTPRT(STRG$,N23,N1) GOTO 60150 ' 780 FOR Z=N0 TO 1000: LAY(Z,N0)=N0:LAY(Z,N1)=N0:LAY(Z,N2)=N0 :NEXT Z FOR Z=N1 TO MLAY: CALL ABSOLUTE (LAY(N0,N0),Z,WRITELAY): LAYVM(Z,N0)=N0:LAYVM(Z,N1)=N0 :NEXT Z RETURN ' 810 STRG$=SPACES$:ROW=N24:COL=N1:GOSUB 821:LOCATE ROW,COL:RETURN 820 STRG$=SPACES$:ROW=N25:COL=N1:GOSUB 821:LOCATE ROW,COL:RETURN 821 CALL HRTXTPRT(STRG$,ROW,COL):RETURN ' 825 CALL ABSOLUTE(LAY(N0,N0),ALAY,READLAY):RETURN 826 CALL ABSOLUTE(LAY(N0,N0),ALAY,WRITELAY):RETURN ' 850 GOSUB 820:GOSUB 810:RETURN ' 859 FOR MSDELAY=N1 TO 4:FOR DELAY=N1 TO 32700:NEXT:NEXT:RETURN 860 GOSUB 859:RETURN ' 861 IN$=INKEY$:IF IN$="" THEN 861 IF LEN(IN$)=N2 THEN IN$=RIGHT$(IN$,N1):IF ASC(IN$)=73 THEN IN$=CHR$(23) ELSE IF ASC(IN$)=81 THEN IN$=CHR$(26) ELSE 861 K=ASC(IN$) IF K=N3 THEN 60200 IF K=23 AND DISPLAY=N1 THEN LASTR=CSRLIN:LASTC=POS(0):NEXTPAGE=NEXTPAGE-N1:GOSUB 950:LOCATE LASTR,LASTC:GOTO 861 IF K=26 AND DISPLAY=N1 THEN LASTR=CSRLIN:LASTC=POS(0):NEXTPAGE=NEXTPAGE+N1:GOSUB 950:LOCATE LASTR,LASTC:GOTO 861 RETURN ' '*** Keyboard input routine *** 897 NIN$="" MAXLEN=9  898 IN$=INKEY$ IF IN$="" GOTO 898 COLOR N15 IF LEN(IN$)=N2 THEN IN$=RIGHT$(IN$,N1):IF ASC(IN$)=73 THEN IN$=CHR$(23) ELSE IF ASC(IN$)=81 THEN IN$=CHR$(26) ELSE 898 K=ASC(IN$) IF K=N3 THEN 60200 IF K=23 AND DISPLAY=N1 THEN LASTR=CSRLIN:LASTC=POS(0):NEXTPAGE=NEXTPAGE-N1:GOSUB 950:LOCATE LASTR,LASTC:GOTO 898 IF K=26 AND DISPLAY=N1 THEN LASTR=CSRLIN:LASTC=POS(0):NEXTPAGE=NEXTPAGE+N1:GOSUB 950:LOCATE LASTR,LASTC:GOTO 898 IF K=13 THEN IN$=NIN$:RETURN IF K=27 THEN IN$="":RETURN IF K=42 AND NIN$="" AND SYMS=N1 THEN IN$="*":PRINT"ALL SYMBOLS IN THIS DIRECTORY";:GOSUB 860:GOSUB 859:RETURN IF K=8 THEN R=CSRLIN:C=POS(0)-1:L=LEN(NIN$):IF L<1 THEN 898 ELSE NIN$=LEFT$(NIN$,L-1):LOCATE R,C:PRINT" ";:LOCATE R,C:GOTO 898 IF NUMONLY=N1 AND K<>45 AND (K<48 OR K>57) THEN 898 IF NUMONLY=N2 AND K<>46 AND (K<48 OR K>57) THEN 898 IF MSG=1 AND LEN(NIN$)<35 AND K>31 AND K<127 THEN PRINT IN$;:NIN$=NIN$+IN$:GOTO 898 IF LEN(NIN$)>MAXLEN OR K<45 OR (NUMONLY<>N2 AND K=46) OR (K>58 AND K<65) OR (K>90 AND K<97) OR K>123 OR (SYMS=1 AND K=58) OR (SYMS=1 AND LEN(NIN$)>7) THEN 898 PRINT IN$;:NIN$=NIN$+IN$ GOTO 898 ' 899 GOSUB 850 COLOR 14:PRINT"Symbol ";:COLOR 15:PRINT BADFILE$; COLOR 14:PRINT" has not been translated to 1.40 format; can NOT load"; GOSUB 860:GOSUB 859 RETURN 900 GOSUB 850 COLOR 14:PRINT"Symbol ";:COLOR 15:PRINT BADFILE$; COLOR 14:PRINT" has more than";MLAY;" layers; can NOT load"; GOSUB 860:GOSUB 859 Rö  ETURN ' 950 IF NUMPAGE=N1 THEN NEXTPAGE=N1:GOTO 975 IF NEXTPAGE=N0 THEN NEXTPAGE=N1:GOTO 975 IF NEXTPAGE>NUMPAGE THEN NEXTPAGE=NUMPAGE:GOTO 975 STARTING=(NEXTPAGE-N1)*80+N1 ENDING=NEXTPAGE*80 IF ENDING>TOTSYM THEN ENDING=TOTSYM GOSUB 1320 975 RETURN ' 980 COLOR N30 IF SCALEALL=N1 THEN LOCATE 20,N1 ELSE LOCATE 20,54:PRINT" ";:LOCATE 20,54 PRINT"ABORTED"; RETURN ' 990 IN$=INKEY$:IF IN$<>"" THEN 990 'Ignore kb input RETURN  ' '------------------------------------------------------------------------ '*** SYMBOL DIRECTORY *** SYMBOL DIRECTORY *** SYMBOL DIRECTORY *** '------------------------------------------------------------------------ 1300 FOR Z=N0 TO 140 : SYMFILE$(Z)=FILLER$ : NEXT Z 1310 GOSUB 990:GOSUB 1318 'Print heading COLOR N11:LOCATE 6,N1:PRINT "Enter drive letter for symbol directory (A or B): "; GOSUB 1330:DRV$=IN$:COLOR N15:PRINT DRV$; COLOR N30:PRINT" WAIT";  SYMNAM$=DRV$+":CADPLAN.IBM":OPEN SYMNAM$ FOR INPUT AS #1 1312 CLOSE #1:SYMNAM$="":TOTSYM=141:EXT$="SYM" CALL DIRECT(DRV$,FCB$,DTA$,SYMFILE$(N0),TOTSYM,EXT$) 'Call directory IF TOTSYM=N0 THEN CALL COLIO(N14,N0):GOSUB 820:STRG$="No symbol on drive "+DRV$:GOSUB 821:GOSUB 860:GOTO 1310 IF TOTSYM>140 THEN TOTSYM=140:CALL COLIO(N14,N0):ROW=N22:COL=N1:STRG$="THIS DIRECTORY CAN ACCOMODATE 140 SYMBOLS ONLY":GOSUB 821:GOSUB 860:GOSUB 990 ' FOR Z=N0 TO TOTSYM : SYMFILE$(Z)=LEFT$(SYMFILE$(Z),8) : NEXT Z SYMFILE$(TOTSYM)=SYMFILE$(N0) COLOR N11:LOCATE 6,65:PRINT" "; LOCATE N24,N1:PRINT"Do you want symbol directory to be displayed ? "; GOSUB 861:IF IN$<>"Y" AND IN$<>"y" THEN DISPLAY=N0:GOSUB 1318:GOTO 1315 ' DISPLAY=N1:COLOR 15:PRINT IN$; GOSUB 1350 'Sort symbol files in alphabetical order GOSUB 1318 'Print heading LOCATE 6,N1 COLOR N11:PRINT"Total symbols on drive ";DRV$;" : "; COLOR N15:PRINT TOTSYM; 'List results of directory call NEXTPAGE=N1 : STARTING=N1 IF (TOTSYM MOD 80)=N0 THEN NUMPAGE=TOTSYM\80 ELSE NUMPAGE=TOTSYM\80+1 IF TOTSYM>80 THEN ENDING=80 ELSE ENDING=TOTSYM GOSUB 1320 1315 RETURN ' '----------------- '*** Heading *** '----------------- 1318 CLS:CALL COLIO(N14,N0):ROW=N1:COL=16 STRG$="(C) Copyright Personal CAD Systems - June, 1984":GOSUB 821 CALL COLIO(N11,N0):ROW=N2:COL=18 STRG$="This program scales 1.40 Symbol databases":GOSUB 821 ROW=4:COL=N1 STRG$="Recognizes (upper & lower case): ":GOSUB 821 CALL COLIO(N14,N0):COL=35 STRG$="FT IN MILS M CM MM ' "+CHR$(34):GOSUB 821 CALL COLIO(N11,N0):COL=71 STRG$=" only":GOSUB 821 RETURN ' '-------------------------------- '*** Print symbol directory *** '-------------------------------- 1320 S$="" : ROWNUM=8 : COLUMN=N0 CALL COLIO(N15,N0) FOR Z = STARTING TO ENDING S$=S$+SYMFILE$(Z) LOCATE ROWNUM,N1 IF COLUMN+8>75 THEN CALL HRTXTPRT(S$,ROWNUM,N1):ROWNUM=ROWNUM+N1:COLUMN=N0:S$="" ELSE IF Z=ENDING THEN S$=S$+LEFT$(SPACES$,81-LEN(S$)):CALL HRTXTPRT(S$,ROWNUM,N1):ROWNUM=ROWNUM+N1 ELSE COLUMN=COLUMN+10:S$=S$+" " NEXT Z IF ROWNUM<18 THEN FOR Z=ROWNUM TO 17:CALL HRTXTPRT(SPACES$,Z,N1):NEXT Z IF TOTSYM>80 THEN GOSUB 1325 RETURN ' '---------------------------- '*** Print page down/up *** '---------------------------- 1325 CALL COLIO(N10,N0):ROW=18:COL=35 IF NEXTPAGE=N1 THEN STRG$="^Z = page down ":GOSUB 821 IF NEXTPAGE=NUMPAGE THEN STRG$=" ^W = page up":GOSUB 821 IF NEXTPAGE>N1 AND NEXTPAGE96 AND K<123 THEN IN$=CHR$(K-32) 'change to UPPERCASE HIT=INSTR("AB",IN$) 'Find out if drive letter is valid IF HIT=N0 THEN GOSUB 990:GOTO 1330 1340 RETURN ' '------------------------ '*** Sort filenames *** '------------------------ 1350 L=TOTSYM\N2+N1 : R=TOTSYM 1360 IF L>N1 THEN L=L-N1 : GOSUB 1450 : GOTO 1360 1370 IF R<=N1 THEN 1410 X$=SYMFILE$(N1) : SYMFILE$(N1)=SYMFILE$(R) : SYMFILE$(R)=X$ R=R-N1 : GOSUB 1450 GOTO 1370 1410 RETURN ' '----------------- '*** Sorting *** '----------------- 1450 I=L : J=N2*I : X$=SYMFILE$(I) 1460 IF J>R THEN GOTO 1510 IF J=SYMFILE$(J) THEN GOTO 1510 SYMFILE$(I)=SYMFILE$(J) : I=J : J=N2*I GOTO 1460 1510 SYMFILE$(I)=X$ RETURN ' '----------------------------------------------------------------- '*** LOAD SYMBOL DATABASE ***  LOAD SYMBOL DATABASE *** '----------------------------------------------------------------- 1600 GOSUB 850:ABORT=N0:CEL$=TSYMNAM$:CLOSE #1 OPEN SYMNAM$ FOR INPUT AS #1 GOSUB 820:COLOR N10 IF SCALEALL=N0 THEN GOSUB 810:PRINT"Loading symbol ";:COLOR N15:PRINT TSYMNAM$; ELSE LOCATE 20,N1:PRINT"LOADING"; INPUT #1,RELEASE IF RELEASE<>140 THEN BADFILE$=CEL$:CLOSE #1:GOSUB 899:ABORT=N1:GOTO 1670 INPUT #1,CRNLX,CRNLY,CRNUX,CRNUY,INMLAY,ECOX,ECOY IF INMLAY>MLAY THEN BADFILE$=CEL$:CLOSE #1:GOSUB 900:ABORT=N1:GOTO 1670 1651 INPUT #1,OP,ALAY,LCN IF OP=30 THEN 1660 ELSE LAYVM(ALAY,N1)=LCN IF OP<>31 THEN GOSUB 850:CALL COLIO(N14,N0):STRG$="Input read error":GOSUB 821:GOSUB 860:CLOSE #1:ABORT=N1:GOTO 1670 IF LCN=N0 GOTO 1651 GOSUB 825 FOR Z=N0 TO LCN-N1 : INPUT #1,LAY(Z,N0),LAY(Z,N1),LAY(Z,N2) : NEXT Z GOSUB 826 GOTO 1651 1660 INPUT #1,WX,WY,SCALE!,DLX,DLY,GLOK,ACTIVELAYER,ACELNUM,LCELNUM,CLAST,AGRID,GRID,DIS$,DISCLR$ OLDDBU=VAL(DIS$) DBUERROR=N0 GOSUB 17000 'CHECK DBU IF DBUERROR=N1 THEN GOSUB 850:STRG$="CANNOT CONTINUE......":GOSUB 821:GOTO 60150 FOR Z=N1 TO LCELNUM: INPUT #1,CNAM$(Z,N0),CNAM$(Z,N1) :NEXT Z FOR Z=N1 TO LCELNUM: INPUT #1,CNUM(Z,N0),CNUM(Z,N1),CNUM(Z,N2),CNUM(Z,N3) :NEXT Z FOR Z=N1 TO 10: INPUT #1,GRIDS(Z,N0),GRIDS(Z,N1) :NEXT Z FOR Z=N1 TO 65: INPUT #1,LINET(Z),LAYVM(Z,N0),CLRT(Z),PENNUM(Z),INFO$(Z) :NEXT FOR Z=N1 TO 5: INPUT #1,VREC!(Z,N0),VREC!(Z,N1),VREC!(Z,N2) :NEXT FOR TSN=N1 TO 15: INPUT #1,TXDBU(TSN) :NEXT TSN INPUT #1,K$ IF K$<>"END" THEN CLOSE #1:CALL COLIO(N14,N0):GOSUB 850:STRG$="END OF FILE READ ERROR":GOSUB 821:ABORT=N1:GOTO 1670 CLOSE #1:GOSUB 826 LOCATE 22,1 COLOR N11:PRINT "Old DBU #"; COLOR N15:PRINT OLDDBU; COLOR N11:PRINT": "; COLOR N15:PRINT DBU$(1,1);DBU$(2,1); COLOR N11:PRINT" = "; COLOR N15:PRINT DBU$(0,1);" DBU"; 1670 RETURN ' '------------------------------------------------------------------- '*** WRITE SYMBOL DATABASE *** WRITE SYMBOL DATABASE *** '------------------------------------------------------------------- 1700 CLOSE #1:FIND=N0 COLOR N10 IF SCALEALL=N0 THEN GOSUB 810:PRINT"Writing symbol ";:COLOR N15:PRINT TNEWSYMNAM$; ELSE LOCATE 20,N1:PRINT"WRITING"; IF OVERWRITE=N0 THEN OPEN NEWSYMNAM$ FOR OUTPUT AS #1 ELSE OPEN TEMPNAM$ FOR OUTPUT AS #1 GOSUB 30958 WRITE #1,140,CRNLX,CRNLY,CRNUX,CRNUY,INMLAY,ECOX,ECOY FOR ALAY=N1 TO INMLAY IF LAYVM(ALAY,N1)CHR$(96) AND CHAR$(Z)N0 THEN ENDING=TOTSYM GOSUB 1320 1739 ROW=6:COL=51:STRG$=LEFT$(SPACES$,29):GOSUB 821 1740 IF OVERWRITE=N1 THEN KILL NEWSYMNAM$:NAME TEMPNAM$ AS NEWSYMNAM$ RETURN  ' '------------------------------------------------------------ '*** SCALE SYMBOL *** SCALE SYMBOL *** SCALE SYMBOL *** '------------------------------------------------------------ 2000 ABORT=N0:AX1!=N0 COLOR N11:GOSUB 810:PRINT"Do you want to scale symbol "; COLOR N15:PRINT TSYMNAM$; COLOR N11:PRINT" by using new DBU ? "; GOSUB 861:IF IN$<>"Y" AND IN$<>"y" THEN 2030 2010 COLOR N11:GOSUB 810:PRINT"Enter DBU #: "; NUMONLY=N1:GOSUB 897:NUMONLY=N0  IF IN$="" THEN ABORT=N1:GOTO 2035 NEWDBU=VAL(IN$) IF NEWDBUDBUMAX THEN COLOR N14:GOSUB 820:PRINT"Enter 1 to";DBUMAX;:GOSUB 860:GOSUB 820:GOTO 2010 FOR Z=N0 TO N2 FOR ZZ=N0 TO 6 : DF$(Z,ZZ)=DBU$(Z,ZZ) : NEXT ZZ NEXT Z DIS$=STR$(NEWDBU) DBUERROR=N0 GOSUB 17000 IF DBUERR=N1 THEN GOTO 2000 LOCATE 22,41 COLOR N11:PRINT "New DBU #"; COLOR N15:PRINT NEWDBU; COLOR N11:PRINT": "; COLOR N15:PRINT DBU$(1,1);DBU$(2,1); COLOR N11:PRINT" = "; COLOR N15:PRINT DBU$(0,1);" DBU"; GOSUB 3000 IF ABORT=N1 THEN COLOR N14:GOSUB 810:PRINT EDBU$;:GOTO 2035 GOSUB 2040 GOTO 2035 2030 COLOR N11:GOSUB 810:PRINT"Enter scaling factor: "; NUMONLY=N2:GOSUB 897:NUMONLY=N0 IF IN$="" THEN ABORT=N1:GOTO 2035 POSDP=INSTR(IN$,"."):IF INSTR(POSDP+N1,IN$,".")<>N0 THEN 2030 AX1!=VAL(IN$) IF AX1!=0. THEN 2030 LOCATE 22,41 COLOR N11:PRINT"Scale symbol ";TSYMNAM$;" by:";:COLOR N15:PRINT AX1!; GOSUB 2040 2035 RETURN ' '-------------------- '*** DO SCALING *** '-------------------- 2040 COLOR N26 IF SCALEALL=N0 THEN GOSUB 810:PRINT"SCALING"; ELSE LOCATE 20,N1:PRINT"SCALING"; IF AX1!=1! THEN 2250 'Do not scale '--- Reference point is (ACX!,ACY!)=(ECOX,ECOY) --- ACX!=ECOX : ACY!=ECOY '--- Check for out of bounds --- VALID=N1 'Flag out of bounds FOR ALAY=N1 TO INMLAY IF LAYVM(ALAY,N1)32767. THEN VALID=N0:Z=LAYVM(ALAY,N1):GOTO 2100 IF Y!<-32768. OR Y!>32767. THEN VALID=N0:Z=LAYVM(ALAY,N1) GOTO 2100 '--- Circ & Arc --- ö  2050 X!=LAY(Z,N1) AND &H3FFF X!=X!*AX1! IF X!>16383. THEN VALID=N0:Z=LAYVM(ALAY,N1):GOTO 2100 IF (-X!+LAY(Z-N1,N1))<-32768. OR (X!+LAY(Z-N1,N1))>32767. THEN VALID=N0:Z=LAYVM(ALAY,N1):GOTO 2100 IF (-X!+LAY(Z-N1,N2))<-32768. OR (X!+LAY(Z-N1,N2))>32767. THEN VALID=N0:Z=LAYVM(ALAY,N1) 2100 NEXT Z IF VALID<>N1 THEN ALAY=INMLAY 2125 NEXT ALAY IF VALID<>N1 THEN GOSUB 810:CALL COLIO(N14,N0):STRG$="Coordinates out of bounds":GOSUB 821:GOSUB 860:ABORT=N1:GOTO 2250 '--- Scale all coordinates --- FOR ALAY=N1 TO INMLAY IF LAYVM(ALAY,N1)8193 AND OP<16384 THEN 2135 LWIDTH=((OP AND 1016)\8)*AX1!:IF LWIDTH127 THEN LWIDTH=127 LAY(Z,N0)=(OP AND 7) OR LWIDTH*8 2135 IF OP<8192 AND (OP AND 7)=6 THEN X!=LAY(Z,N1) AND &H3FFF:X!=X!*AX1! ELSE X!=LAY(Z,N1):Y!=LAY(Z,N2):X!=(X!-ACX!)*(AX1!-1.0)+X!:Y!=(Y!-ACY!)*(AX1!-1.0)+Y! IF OP<8192 AND (OP AND 7)=6 THEN LAY(Z,N1)=(LAY(Z,N1) AND &HC000) OR (INT(X!)):GOTO 2150 'Arc & circ LAY(Z,N1)=INT(X!): LAY(Z,N2)=INT(Y!) 2150 NEXT Z GOSUB 826 2175 NEXT ALAY 2250 RETURN ' '--------------------------------------------------------------------- '*** CALCULATE THE SCALE FACTOR *** CALCULATE THE SCALE FACTOR *** '--------------------------------------------------------------------- 'Check if unit name used in dbu file is in M$() '--- old dbu --- 3000 IF INSTR( DF$(N2,N1),CHR$(34))<>N0 THEN S2$="IN" ELSE IF INSTR( DF$(N2,N1),CHR$(39))<>N0 THEN S2$="FT" ELSE S2$= DF$(N2,N1) DASHCOL=INSTR(S2$,"-") IF DASHCOL<>N0 THEN S2$=LEFT$(S2$,DASHCOL-N1) OLDUNIT$="" FOR Z=N0 TO 5 S1$=M$(Z) GOSUB 18000 'Compare S1$,S2$ IF THESAME=N1 THEN OLDUNIT$=M$(Z):Z=5 NEXT Z  IF OLDUNIT$="" THEN ABORT=N1:GOTO 3150 '--- new dbu --- IF INSTR(DBU$(N2,N1),CHR$(34))<>N0 THEN S2$="IN" ELSE IF INSTR(DBU$(N2,N1),CHR$(39))<>N0 THEN S2$="FT" ELSE S2$=DBU$(N2,N1) DASH=INSTR(S2$,"-") IF DASH<>N0 THEN S2$=LEFT$(S2$,DASH-N1) NEWUNIT$="" FOR Z=N0 TO 5 S1$=M$(Z) GOSUB 18000 'Compare S1$,S2$ IF THESAME=N1 THEN NEWUNIT$=M$(Z):Z=5 NEXT Z IF NEWUNIT$="" THEN ABORT=N1:GOTO 3150 '*** OLDFLAG / NEWFLAG = N0 --> FT / IN / MILS ' = N1 --> M / CM / MM ' IF OLDUNIT$=M$(3) OR OLDUNIT$=M$(4) OR OLDUNIT$=M$(5) THEN OLDFLAG=N0 ELSE OLDFLAG=N1 IF OLDUNIT$=M$(3) THEN OLDV!=VAL(DF$(N1,N1))*12. 'OLDV! in inches IF OLDUNIT$=M$(4) THEN OLDV!=VAL(DF$(N1,N1)) IF OLDUNIT$=M$(5) THEN OLDV!=VAL(DF$(N1,N1))*.001 IF OLDUNIT$=M$(0) THEN OLDV!=VAL(DF$(N1,N1))*1000. 'OLDV! in mm IF OLDUNIT$=M$(1) THEN OLDV!=VAL(DF$(N1,N1))*10. IF OLDUNIT$=M$(2) THEN OLDV!=VAL(DF$(N1,N1)) IF NEWUNIT$=M$(3) OR NEWUNIT$=M$(4) OR NEWUNIT$=M$(5) THEN NEWFLAG=N0 ELSE NEWFLAG=N1 IF NEWUNIT$=M$(3) THEN NEWV!=VAL(DBU$(N1,N1))*12. 'NEWV! in inches IF NEWUNIT$=M$(4) THEN NEWV!=VAL(DBU$(N1,N1)) IF NEWUNIT$=M$(5) THEN NEWV!=VAL(DBU$(N1,N1))*.001 IF NEWUNIT$=M$(0) THEN NEWV!=VAL(DBU$(N1,N1))*1000. 'NEWV! in mm IF NEWUNIT$=M$(1) THEN NEWV!=VAL(DBU$(N1,N1))*10. IF NEWUNIT$=M$(2) THEN NEWV!=VAL(DBU$(N1,N1)) A!=VAL(DF$(N0,N1)) : B!=VAL(DBU$(N0,N1)) IF OLDFLAG<>NEWFLAG THEN 3050 AX1!=B!/(A!*NEWV!/OLDV!) GOTO 3150 3050 IF OLDFLAG=N0 THEN OLDV!=OLDV!*25.40005 IF NEWFLAG=N0 THEN NEWV!=NEWV!*25.40005 AX1!=B!/(A!*NEWV!/OLDV!) 3150 IF ABORT=N0 THEN LOCATE 23,41:PRINT"SCALING FACTOR =";AX1!; RETURN ' '------------------------------------------------------------------------------- '*** SCALE ALL SYMBOLS IN SYMFILE$() *** SCALE ALL SYMBOLS IN SYö  MFILE$() *** '------------------------------------------------------------------------------- 4000 OVERWRITE=N1:NEWDBU=N0 E$=" press to continue scaling other symbols" LOCATE 6,51:COLOR N10:PRINT"SCALE ALL SYMBOLS"; GOSUB 4500 IF ABORT=N1 THEN 4120 CALL COLIO(N14,N0):ROW=20:COL=41:STRG$="Press space bar to abort":GOSUB 821 ' FOR INDEX=N1 TO TOTSYM ABORT=N0:CALL HRTXTPRT(SPACES$,N23,N1):GOSUB 780 IN$=INKEY$:IF IN$=" " THEN INDEX=TOTSYM:GOTO 4100 'Exit interrupt TSYMNAM$=SYMFILE$(INDEX) IF INSTR(TSYMNAM$," ")<>N0 THEN TSYMNAM$=LEFT$(TSYMNAM$,INSTR(TSYMNAM$," ")-N1) TEMPNAM$=DRV$+":"+TSYMNAM$+".TMP" SYMNAM$=DRV$+":"+TSYMNAM$+".SYM" NEWSYMNAM$=SYMNAM$ LOCATE 20,N1 COLOR N11:PRINT" symbol ";:COLOR N15:PRINT SYMFILE$(INDEX); LOCATE 22,N1:PRINT LEFT$(SPACES$,39); ' GOSUB 1600 'Load symbol database IF ABORT=N1 THEN 4075 IN$=INKEY$:IF IN$=" " THEN 4070 ' IF NEWDBU=N0 THEN 4050 'Not using new DBU FOR Z=N0 TO N2 FOR ZZ=N0 TO 6:DF$(Z,ZZ)=DBU$(Z,ZZ) : DBU$(Z,ZZ)=TDBU$(Z,ZZ):NEXT ZZ NEXT Z ' AX1!=N0 GOSUB 3000 'Calculate scale factor between DBU IF ABORT=N1 THEN COLOR N14:GOSUB 810:PRINT EDBU$;:GOTO 4075 DIS$=STR$(NEWDBU) 4050 IN$=INKEY$:IF IN$=" " THEN 4070 GOSUB 2040 'Scale symbol IF ABORT=N1 THEN 4075 IN$=INKEY$:IF IN$=" " THEN 4070 ' GOSUB 1700 'Write symbol database GOTO 4100 ' 4070 GOSUB 980:INDEX=TOTSYM 'Exit interrupt GOTO 4100 ' 4075 GOSUB 980:GOSUB 860:GOSUB 820 COLOR N14:PRINT"Can't scale symbol ";TSYMNAM$;:COLOR N11:PRINT E$; 4080 GOSUB 861 IF IN$=" " THEN INDEX=TOTSYM ELSE IF ASC(IN$)<>13 THEN 4080 ' 4100 NEXT INDEX ' 4120 ROW=6:COL=51:STRG$=LEFT$(SPACES$,29):GOSUB 821  ROW=N23:COL=N1:STRG$=SPACES$:GOSUB 821 SCALEALL=N0:OVERWRITE=N0:ABORT=N0 GOSUB 810 GOTO 480 ' '----------------------------------- '*** NEW DBU OR SCALING FACTOR *** '----------------------------------- 4500 ABORT=N0 COLOR N11:GOSUB 810 PRINT"Do you want to scale all symbols by using new DBU ? "; GOSUB 861:IF IN$<>"Y" AND IN$<>"y" THEN 4530 ' 4510 COLOR N11:GOSUB 810:PRINT"Enter DBU #: "; NUMONLY=N1:GOSUB 897:NUMONLY=N0 IF IN$="" THEN ABORT=N1:GOTO 4550 NEWDBU=VAL(IN$) IF NEWDBUDBUMAX THEN COLOR N14:GOSUB 820:PRINT"Enter 1 to";DBUMAX;:GOSUB 860:GOSUB 820:GOTO 4510 DIS$=STR$(NEWDBU) DBUERROR=N0 GOSUB 17000 IF DBUERR=N1 THEN GOTO 4500 FOR Z=N0 TO N2 FOR ZZ=N0 TO 6 : TDBU$(Z,ZZ)=DBU$(Z,ZZ) : NEXT ZZ NEXT Z LOCATE 22,41 COLOR N11:PRINT "New DBU #"; COLOR N15:PRINT NEWDBU; COLOR N11:PRINT": "; COLOR N15:PRINT DBU$(1,1);DBU$(2,1);  COLOR N11:PRINT" = "; COLOR N15:PRINT DBU$(0,1);" DBU"; GOTO 4550 ' 4530 COLOR N11:GOSUB 810:PRINT"Enter scaling factor: "; NUMONLY=N2:GOSUB 897:NUMONLY=N0 IF IN$="" THEN ABORT=N1:GOTO 4550 POSDP=INSTR(IN$,"."):IF INSTR(POSDP+N1,IN$,".")<>N0 THEN 4530 AX1!=VAL(IN$) IF AX1!=0. THEN 4530 LOCATE 22,41 COLOR N11:PRINT"Scale all symbols";" by:"; COLOR N15:PRINT AX1!; 4550 RETURN ' '----------------------------------------------------------------- '*** GET AND CHECK USER'S DBU *** GET AND CHECK USER'S DBU *** '----------------------------------------------------------------- 17000 DISTEMP$=DIS$ : DBUMAX=N0 : DBUERR=N0 '*** Calculate total number of DBU's *** ' CLOSE #3:FILECHEK=6:OPEN FILE6$ FOR INPUT AS #3 FILECHEK=N0:Z=N1 WHILE NOT EOF(3) AND Z<=60 LINE INPUT #3,DB$ Z=Z+N1 WEND DBUMAX=Z-N1 IF VAL(DIS$)DBUMAX THEN 17080 ö   'DBU OUTSIDE LIMIT 17010 FOR Z=N0 TO N2:FOR ZZ=N0 TO 6:DBU$(Z,ZZ)="":NEXT ZZ:NEXT Z 'CLEAR SPACE TOTAL=N0:NOMORE=N0:DBU$(N1,N0)="D" 'SET DEFAULT VALUE CLOSE #3:FILECHEK=6:OPEN FILE6$ FOR INPUT AS #3 FILECHEK=N0:Z=N1 WHILE NOT EOF(3) AND Z<=VAL(DIS$) LINE INPUT #3,DB$ 'SET DEFAULT DBU Z=Z+N1 WEND IF Z<=VAL(DIS$) THEN 17080 'ERROR IN CP.DBU FILE P=INSTR(DB$,",") IF P=N0 THEN 17080 IN$=LEFT$(DB$,P-N1) P1=INSTR(IN$,"/") IF P1=N0 THEN IN$=LEFT$(IN$,6) ELSE IN$=LEFT$(LEFT$(IN$,P1-1),6) DBU$(N0,N0)=IN$ 17020 DB$=RIGHT$(DB$,LEN(DB$)-P) 17030 IF NOMORE=N1 THEN 17060 P=INSTR(DB$,",") IF P=N0 THEN NOMORE=N1:P=LEN(DB$)+N1 TOTAL=TOTAL+N1 IF TOTAL>6 THEN 17060 S$=LEFT$(DB$,P-N1) 'GET EACH COLUMN IF NOMORE=N0 THEN DB$=RIGHT$(DB$,LEN(DB$)-P) IF S$="" THEN 17020 Z=INSTR(S$,"=") IF Z=N0 THEN 17080 DBU$(N0,TOTAL)=LEFT$(S$,Z-N1) '# IN DBU ZZ!=VAL(DBU$(N0,TOTAL)) IF ZZ!<0! THEN 17080 'CHECK IF INVALID ? S$=RIGHT$(S$,LEN(S$)-Z) 'GET THE EQUIVALENT # ZZ!=VAL(S$) IF ZZ!<=0! THEN 17080 'CHECK IF INVALID ? 17040 IF S$<>"" THEN Z=ASC(LEFT$(S$,N1)) ELSE 17080 IF Z=32 OR Z=43 OR Z=45 OR Z=46 OR (Z>47 AND Z<58) THEN DBU$(N1,TOTAL)=DBU$(1,TOTAL)+LEFT$(S$,1):S$=RIGHT$(S$,LEN(S$)-1):GOTO 17040 IF Z=44 THEN 17080 'IF COMMA THEN INVALID IF Z<>47 AND VAL(RIGHT$(S$,LEN(S$)-N1))=N0 THEN 17050 'fraction IF DBU$(N1,N0)<>"D" THEN 17050 Z!=VAL(RIGHT$(S$,LEN(S$)-N1)) IF Z!>32767 THEN 17080 'TOO BIG AS AN INTERGER DENOMINATOR IF INT(Z!/ZZ!)*ZZ!=Z! THEN IN$=STR$(INT(Z!/ZZ!)):DBU$(N1,N0)=RIGHT$(IN$,LEN(IN$)-1) ELSE GOSUB 17080 DBU$(N2,TOTAL)=RIGHT$(S$,LEN(S$)-LEN(STR$(Z!))) IF DBU$(N2,TOTAL)="" THEN 17080 ELSE DBU$(N2,TOTAL)=LEFT$(DBU$(2,TOTAL),6) DBU$(N1,TOTAL)=STR$(ZZ!/Z!) GOTO 17030 17050 IF RIGHT$(DBU$(N1,TOTAL),N1)=" " THEN S$=" "+S$ DBU$(N2,TOTAL)=LEFT$(S$,6) 'GET THE UNIT GOTO 17030 17060 DBU$(N2,N0)=STR$(TOTAL) 'STORE TOTAL COLUMNS USED WRONG=N0 FOR Z=N0 TO TOTAL:FOR ZZ=N0 TO TOTAL 'CHECK IF UNITS ARE THE SAME IF Z<>ZZ THEN S1$=DBU$(N2,Z):S2$=DBU$(2,ZZ):GOSUB 18000:IF THESAME=N1 THEN WRONG=1 'SAME=INVALID NEXT ZZ:NEXT Z:CLOSE #3 IF WRONG=N1 THEN 17080 IF VAL(DBU$(N0,N1)+"#")<=N0 OR VAL(DBU$(N1,N1)+"#")<=N0 THEN 17080 IF (VAL(DBU$(N0,N1)+"#")/VAL(DBU$(N1,N1)+"#"))=(L1#/L2#) THEN 17080  NEXT Z S1$=DIS$ S2$=DISTEMP$ GOSUB 18000 IF THESAME=N0 THEN COLOR N14:LOCATE 24,26:PRINT"Current DBU is #";DIS$;", i.e. ";DBU$(0,0);:GOSUB 820:PRINT"Any key to continue";:GOSUB 861 GOTO 17090 ' 17070 COLOR N14:GOSUB 820:PRINT"Press any key";:GOSUB 861:DBUERROR=N1:GOTO 17090 17080 IF DBUERR=N0 THEN COLOR N14:GOSUB 810:PRINT"Default DBU error ...... Searching for a valid one";:GOSUB 859 DIS$=STR$(DBUMAX-DBUERR) DBUERR=DBUERR+N1 IF DBUERR>DBUMAX THEN COLOR N14:GOSUB 810:PRINT"Error in CP.DBU file ..... can NOT continue!";:GOTO 17070 GOTO 17010 17090 CLOSE #3 RETURN ' '------------------------------------------------------- '*** STRING COMPARISON (UPPER CASE <--> LOWER CASE) *** '------------------------------------------------------- ' This routine compares 2 strings stored in S1$ & S2$. ' It will ignore the leading and trailing blanks of ' each strings. ' ö  If both strings are the same, it will pass you ' THESAME=1, otherwise THESAME=0. ' 'WHAT YOU SHOULD PASS : ' S1$ (STRING 1) AND S2$ (STRING 2) ' 'WHAT YOU WILL GET : ' THESAME ( 1=IF BOTH STRINGS ARE THE SAME, 0=OTHERWISE ) ' 'NOTE : ' TO AVOID USING THE SAME VARIABLES, THIS ROUTINE USES ' THE VARIABLE NAMES STARTING WITH "COMP" ' 18000 IF LEFT$(S1$,N1)=" " THEN S1$=RIGHT$(S1$,LEN(S1$)-N1):GOTO 18000 'supress leading blanks 18010 IF RIGHT$(S1$,N1)=" " THEN S1$=LEFT$(S1$,LEN(S1$)-N1):GOTO 18010 'supress trailing blanks 18020 IF LEFT$(S2$,N1)=" " THEN S2$=RIGHT$(S2$,LEN(S2$)-N1):GOTO 18020 'supress leading blanks 18030 IF RIGHT$(S2$,N1)=" " THEN S2$=LEFT$(S2$,LEN(S2$)-N1):GOTO 18030 'supress trailing blanks THESAME=N1 COMPL1=LEN(S1$) : COMPL2=LEN(S2$) IF (COMPL1<>COMPL2 OR COMPL1=N0 OR COMPL2=N0) THEN THESAME=N0:GOTO 18060 'different length  COMPL=N1 WHILE THESAME=N1 AND COMPL<=COMPL1 COMPZ=ASC(MID$(S1$,COMPL,N1)) : COMPZZZ=ASC(MID$(S2$,COMPL,N1)) IF (COMPZ<65 OR (COMPZ>90 AND COMPZ<97) OR COMPZ>122) THEN IF COMPZ<>COMPZZZ THEN THESAME=N0:GOTO 18050 ELSE 18040 'not alphabets IF COMPZ>64 AND COMPZ<91 THEN COMPZZ=COMPZ+32 ELSE COMPZZ=COMPZ-32 'get lower and upper case IF COMPZZZ<>COMPZ AND COMPZZZ<>COMPZZ THEN THESAME=N0 'not the same 18040 COMPL=COMPL+N1 'get next char 18050 WEND 18060 RETURN ' '----------------------------------------------------------------------------------- '*** GET (CRNLX,CRNLY) & (CRNUX,CRNUY) *** GET (CRNLX,CRNLY) & (CRNUX,CRNUY) *** '----------------------------------------------------------------------------------- 30958 XHI!=34000!:XLO!=-34000!:YHI!=34000!:YLO!=-34000! FOR ALAY=N1 TO INMLAY IF LAYVM(ALAY,N1)8191 AND OP<16384 GOTO 30980 '*** ELLIPSES *** ' IF (OP AND 7)=5 THEN SEMIX=X:SEMIY=Y:PASS=N0:Z=Z+N1 'HARRY IF (OP AND 7)=6 THEN RAD=(X AND &H3FFF):PASS=N0 GOSUB 31025 LX=X:LY=Y 30980 NEXT Z 30982 NEXT ALAY IF XHI!=34000! OR YHI!=34000! THEN CRNLX=-32768:CRNLY=-32768:CRNUX=32767:CRNUY=32767 ELSE CRNLX=XLO!:CRNLY=YLO!:CRNUX=XHI!:CRNUY=YHI! RETURN ' '--------------------------------------------------------------------------- '*** GET (XLO!,YLO!) & (XHI!,YHI!) *** GET (XLO!,YLO!) & (XHI!,YHI!) *** '--------------------------------------------------------------------------- 31025 '*** ELLIPSES *** IF (OP AND 7)=5 THEN IF PASS=N0 THEN PASS=N1:X=LX+SEMIX:Y=LY+SEMIY ELSE X=LX-SEMIX:Y=LY-SEMIY:PASS=0 'HARRY IF (OP AND 7)=6 THEN IF PASS=N0 THEN PASS=N1:X=LX+RAD: Y=LY+RAD ELSE X=LX-RAD: Y=LY-RAD: PASS=0 IF XHI!= 34000! THEN XHI!=X ELSE IF X>XHI! THEN XHI!=X IF XLO!=-34000! THEN XLO!=X ELSE IF XYHI! THEN YHI!=Y IF YLO!=-34000! THEN YLO!=Y ELSE IF Y51 THEN CLOSE #1,#2 IF ERR=52 THEö  N GOSUB 810:PRINT"BAD FILE NAME";:GOSUB 860:GOTO 60060 IF ERR=53 AND HIT<>N0 THEN HIT=N0:RESUME 1312 IF ERR=53 AND FILECHEK=1 THEN GOSUB 810:PRINT"File "+BLDFILE$+" is required to scale symbols, but is not on disk";:GOTO 60150 IF ERR=53 AND FILECHEK=5 THEN GOSUB 810:PRINT"File CP.DBU not found on disk";:GOTO 60150 IF ERR=53 AND FILECHEK=6 THEN GOSUB 810:PRINT"File CP.DBU not found on disk";:GOTO 17070 IF ERR=53 AND FIND=1 THEN FIND=0:GOSUB 810:PRINT"Symbol ";:COLOR N15:PRINT TSYMNAM$;:COLOR N14:PRINT" not found";:GOTO 60070 IF ERR=53 AND FIND=2 THEN FIND=0:RESUME 605 IF ERR=57 THEN GOSUB 810:PRINT"DEVICE I/O ERROR";:GOSUB 860:GOTO 60060 IF ERR=61 AND SCALEALL=N1 THEN GOSUB 810:PRINT"DISK FULL";:GOSUB 980:GOSUB 60080:GOSUB 820:COLOR N11:PRINT E$;:GOSUB 860:RESUME 4080 IF ERR=61 THEN GOSUB 810:PRINT"DISK FULL";:GOSUB 980:GOSUB 60080:GOTO 60070 IF ERR=62 AND SCALEALL=N1 THEN GOSUB 810:PRINT"File error in symbol ";:COLOR N15:PRINT TSYMNAM$;:GOSUB 980:GOSUB 820:COLOR N11:PRINT E$;:GOSUB 860:RESUME 4080 IF ERR=62 THEN GOSUB 810:PRINT"File error in symbol ";:COLOR N15:PRINT TSYMNAM$;:GOSUB 980:GOTO 60070 IF ERR=70 THEN GOSUB 810:PRINT"DISK IS WRITE PROTECTED";:GOSUB 980:GOTO 60070 IF ERR=71 AND HIT<>N0 THEN GOSUB 820:PRINT"DISK IS NOT READY";:GOSUB 860:HIT=N0:RESUME 1310 IF ERR=71 THEN GOSUB 810:PRINT"DISK IS NOT READY";:GOSUB 860:GOTO 60060 COLOR N11:GOSUB 820 PRINT"DOS Error #";ERR;" Hit any key ";  GOSUB 860 GOSUB 861 60060 GOSUB 825 60070 RESUME 480 60080 IF OVERWRITE=N0 THEN KILL NEWSYMNAM$ ELSE KILL TEMPNAM$ RETURN 60100 FILECHECK=N0:CLOSE #1 GOSUB 810:PRINT"Error in ";BLDFILE$;" ..... can NOT continue!"; 60150 GOSUB 820:PRINT"Press any key to abort"; GOSUB 861 60200 CLOSE:COLOR N15:CLS:END OSUB 4100:NUMONLY=N0:IF IN$="" THEN 11120 ELSE IF VAL(IN$)<-30000 OR VAL(IN$)>30000 THEN LOCATE 14,32:PRINT" ";:GOTO 11110 ööööö  ööööööööö  ööööööööö  ööööööööö  ööööööööö   ööööööööö!  ööööööööö!  ööööööööö"  ööööööööö"  ööööööööö#  ööööööööö#  ööööööööö$  ööööööööö$  ööööööööö%  ööööööööö%  ööööööööö&  ööööööööö&  ööööööööö'  ööööööööö'  ööööööööö(–å(–å