ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCALEND6 CMDd**************CALEND6 PASe5**************ÿ * A program 33@éý$��Í«Copyright (C) 1984 BORLAND IncÓKNEC APCinal selectedP=;00H 2Jÿ=8 ;00H.Š' äùt C.Šè þÌuõøÃè* ÃSQRWVPœ2äPÿ¨�X^_ZY[Ã<€rè¦ëè†$ëÚU‹ì‡^Pœ.ŠC ÀtèÇÿëó�X‡^]ÃU‹ì‡^Pœ.ŠC ÀtéèÁÿëóCKuÃ. &2äÀÀÀP2ÀÔ XHu÷ëåènÿr!.‹ÐëØSP»ªèìÿ»¤èWÿr.‹¼èÀÿX[ÃSP»¶ëéSP»°ëâSPœ.€>Òt .ÆÒ»Êè´ÿ�X[ÃSPœ.€>Òÿtñ.ÆÒÿ»ÄëãSP»¾è’ÿX[ûmé‰ÿ»}éƒÿSQRWVPœ¾�¿Ó¹.‹.‰FFGGâô.Š . žÆè$.Š¡. ŸÂè»Óè¶þ.‹¢è!ÿ�X^_ZY[ÿÓ2íù.ö�ÿt.ˆÃOO»K2ä.ö·n Àt0.ˆGŠÄ Ûuèà d[YSŠÐŠñþÊþÎépÿ±²þèc2ä$±²ÿèU Àtõ÷Ít<ué\!2äÂXZP€úýs±è0÷ÍtLèºÿ Àt LèÀÿ<uLè¸ÿÃXZP±é XZP±é±èþ2䋨éaþé‘[_ë)PQ±ÓèØYX%Ã;Úu;ÁÃÁÚëå&‹E&‹]P ÃXÃ[S‰>YŒ[‹Á»r3Û$øè¼ÿ‹È‹ÓÇaUŒcÄ>UèÂÿt%è°ÿs ‰>aŒc&Ä=ëéèst +ÁÚ%ë6&Ä=ëTè`‹ÇŒÃè‹ÿ£Ö‰ØQR‹È‹Ó‹ÄŒÓƒëè_ÿ3ÀèhÿZYwé- 3À3ÛSP&ÿu&ÿ5‹ÇŒÃèTÿ‹øŽÃ&�&�E&�E&�EÄ6a&‰<&�DÃÄ6Y&‰<&�DÑ[_ë[S‹Á&‹ &‹U»r3Û$øèîþ£]‰_Ä>U‹ÇŒÃèêþsW&‹&‹]èÞþs‹øŽÃëî‹ñŽÂÿ6_ÿ6]&‰&‰\&�D&�D&‰ &‰U&‹E&‹]è<t&Ä=&‹E&‹]&‹ &‹Uë&‰U‰W‹ùŽÂ&‰&‰]‹È‹Ó¡]‹_&‰E&‰]£e‰gÇŒÃgèKþèVþuQ¡Ö‹ØèJþt1‹ñŽÂ&‹&‹\&‹L&‹T&‰&‰]¡e‹gè)þ&‰E&‰]3ÀÉ>ÖŒØW3Àü¹ó«_3ÀÃ3É3Ò3öÄ>Uèþtè&Ä=ëó‹ÄŒÓƒëèÓý3À+Ørè‹ÂÃ;ós‹óèÑý‹È‹ÓÃèÀÿ‹ÆÃ[¡Ö&‰‹Ø&‰Uÿã[&‹£Ö&‹E£Øÿã‰i‰kÓ[‰,.;W!tW.ƒ!u‹Ó±èTþÀtFŒÊ±3èH‹,¡i.‰G!º$ÓR±è2‹,±!è& Àu‹,.ÿG!Z�€ÿkuÖƒÃ$ÿãÿ6,² é‹UÍà]ÃÇ;¿¤¹%üó¤ÆÏÆÒÃ�¬ÖÞæ¬�SQRWVLÿ¦éÌú²ÿëWƉ ÇŠ »è_Ã2ÒŠè«{}U3À¹üó«Ã3ÀŽÀÿ6Rÿ6P&�&�÷Íu2Ò±èÊýÿ6ɸ»3PŽËË Ày÷ØÃPè[Ñè™÷ó’Ë*‹(SQŠÇŠûŠÝŠé2ÉÐØÑÛÑÙXÈXظébȸ6؉*‰(‹Ãà Ày÷ØÆ-C2íº'èºèèºdè ² èŠÈë2ÉþÁ+ÂsúÂþÅþÉuþÍt€Á0ˆCÃ3À€?$º uºCPŠèCþŠÈX€é0r%€ù rƒúu€é€ù r€ùsR÷âZr2íÁsÎë ƒút‹ÈÉÊ€ù-uCQè©ÿYr€ù-u÷ØøÃ[‹÷&Š 2íA+á‹üüó¤ÿã^.Š 2íA+á‹üüó¤ÿæZŠÁ‹Ü6Š2íÙC6‹?CC6ŽCC‹ô:ÈvŠÈ6ˆAüó¤‹ãÿâ[‹÷2í+áL‹ü6ˆ Güó¤ÿã[2í‹ô6Š2ä+Á‹þø Àt'y‹ç6Š Aüó¤ë6ˆ ùñAýó¤G‹çÿãè!é9èéBèéKèéTè é]èéf‹üƒÇ6Š 2íG‹÷ñ6Š2öF‹ÞÚŠÁŠâ;Êv‡Ê Ét üó¦u:àZY‹ãQÿâ�Ћü6Š2ö‹÷Fò6Š Ñr&6ˆ2í+ù‹çAVüó¤‹þ^NO‹ÊAýó¤G‹çÿ&вé�ÐèÂü‹ÈXènH‹ô6Š2ö‹üú+Ðvð;Ñvñ‹Ñýó¤ë3Ò‡÷6ˆ‹æÿ&Ð[‹ü6Š2äàDÿã�Ћü6Š2öG‹÷ò6Š 2íF‹ÞÙ3À+Ñr@ ÉtBüQWVó¦^_Yt@GJuñ3À‹ãÿ&Ј5£6[�:�<‰&>Œ@SÄ>:Wèøý¸P¡6HèBÿÄ>>èåýèõþÄ>:èÚýÿ66¸ÿè%ÿèàþŠ5èõýéWÿ£8[�6�:�<SÄ>:Wè¨ý¸P¡6HèòþÄ>:è•ý¡68P¸ÿèÜþè—þ±ÿè®ýÃ[XþÈu†Äÿã‰Ð²éÈ‹ô6Š\2ÿ6‹@Šà°6‰@Ã[â‹ô6Š:Át2äð‹ü2íù‘Aýó¤G‹çÿã äu Àtòé[Z‹÷ƒì ‹üQü ít2ÀªþÍuûŽÚó¤Y´ *å*át2ÀªþÌuûÿã[ƒì ‹ü¹3Àüó«ÿãèð6Ñ[XS*ÈrþÁŠáèÝŠÌ2í6ÐàsC°âôËôFF6‹| 6ŽD"ŠÕ2öò2íüó¤Â$[ŠÕ2ö2í‹ôòñ‹üƒÇ ;÷tNOýó¤G‹çÿã¸ë3Àè•ó§ŽÚt5 ÀÂ@3Àë¸è}Hu‡þ­ ¯uâø¸ë3ÀŽÚ ÀÂ@è_­ «âúŽÚ èQ­÷Ð#«âøŽÚ èA­#«âúŽÚ ‹Ü6‹G" ät3Àë è6"¸t@ ÀÂ"ŠØ2ÿ±ÓëƒÃÜŠÈ€á°ÒàËôƒÆ‹üƒÇ$ŒÚ¹üÃ;øu;Ñu@ ÀÃ;øu;ÑuH ÀÃZ¿àè‹÷R¿Ú[Y��E�EQÿã[Yÿuÿuÿ5Qÿã3À‰‰E‰EÃÇ�3ÀëñÇ‚!ÇE¢ÚÇEIÃÇ�úÇE3óÇE5ÃÇ€ÒÇE÷ÇEr1ˉ‹D‰E‹D‰EÃ.‹‰.‹G‰E.‹G‰EÃÑ%ëøÐUÑUÑUÃøÑ]Ñ]Ð]Ë‰ë ŠEDˆE‹ED‰E‹ED‰EÊE*DˆE‹ED‰E‹ED‰EÃöU÷U÷U€EƒUƒUËE;Du‹E;DuŠE:Dó€ë2Û€<uÀ=uè@ÿ0]ÃV‹×¿æè3ÿ‹÷‹úŠ}€ç€2\2߀M€€L€‹ÏŠ*tsöØ‹þè?ÿþþÈu÷‹ùöÀuèBÿs2è+ÿþu+ùë.èOÿs€÷€ècÿ‹E E Et öE€u èùþþ uóè‰þë€÷€0}^À=tS€<tKŠ襊Ȼæ‡þ‡ûè¢þ‡û‡þè[þˆ µ±CÐsèÔþè¿þþÉuòþÍuëŸöE€užè¡þþ ˆT0u€=uè'þÀ=túŠ*õèP¢æ»ë¹èâþrè«þõÐþÉuKþÍt ±è`þsåè•þøëçèUþrè¼þõ‡Þè!þ‡ÞŸöE€užè>þëþuùÃé”ÿr€v [é¿ý€s[ùÊuŠT2ò€M€€L€öÖ€æ€ÃŠE2DŠEyÐÐè€tètõÊ:u ÀtèQþà ÀuétýŠô¹�y÷ØxþÉÀyú öx€ä‰ ÇE‰EÊ,€wèHýë<(s2ä3Û3ÉùÑÙÑÛÐÜþÈuõ!M!] eÃV‡÷¿æè^ýèÊÿ‡÷èþ^Ã[&ÿu&ÿu&ÿ5ÿã[.ÿw.ÿw.ÿ7ƒÃÿã[XYZ_&‰&‰M&‰Uÿãè·üèËýrèÉüòé¥è¦üè¶ýëíèžüèCþëåè–ü€<tè�þëØ²éƒ‹Ü6€t6€w€Ã‹Ü6€gÃèmüèïþ¸tH ÀÃè^üèàþ¸uH ÀÃèOüèÑþ¸sH ÀÃè@üèÂþ¸vH ÀÃè1üè³þ¸wH ÀÃè"üè¤þ¸rH ÀÃèü‡÷¿àèrü‡÷éhÿè üèÖþèüÃèüèöþëô=Úÿ|=%~²éáP¿ÚèüXèiëØèžöº€° öÇ€u ÑáÑÓþÊþÈuñ2Ò€çXSQRÿàºÿÿë3ÒY[XXQ±�*Ër"€ùwþÁŠü€Ì€Óès Òt@x öÇ€t÷ØÃ3Àòéy¿Úè#þèŽûÿàèzû[XS¿Úèþè{û¿àëåècû€=tAöE€u?‹÷¿ìè­ûŠ€Ðø€ˆ,P¾Ú¿òè—û¾ìè+ýè>üþ ‡þè3üX8vPè~ûë܇þè*ûòé¿ìèû‹÷¿Úè6ûþ è üëèüú€=lra‹÷¿ìèûþ‡þŠ]€eè\ýˆ]r èÐüèÌýèqüöE€tè×ûþ è@ýœrèÈûþ è5ýr þ€M€è¼û€=lr»ð±è��r €=t€u€è£úÃX�9Ÿ?×`C�0’0gª?(2×n¶*ï8t Ð Ðzˆˆˆˆ~«ªªªªèeú€=töE€t²éGŠ,�˜PÆ�¾ì‡÷èƒúþ èÝû‡÷èbú‡÷è>û‡÷þè;û‡÷è ü»’±èþ¾Ú‡÷èeúþ ‡÷èûX¿òè«ü‡÷þè û¾ìè û€=gsèúèúÃ}Š�؉}颋.:}Žã8Žc~I’$I~ÍÌÌÌL«ªªª*èÉùöE€œ€e¾ì‡÷èú‡÷èªû€=ˆsNŠþËEºÿÿèíýP‡÷è=ü€=tþ ‡÷è˜ú»(±è�X¾ìÑès P‡÷è¸ù‡÷èûXr�t‡÷è�ùè[ûèqùÃX²éLm.`1pF,þåt6|‰„!wS<ÿÃ.zÒ}[•|%¸FXc~üïýu€Ò÷r1è'ù€=t¾3ÀöE€t@€eP‹÷¿ìè4ù‡÷è‚ûr‡÷è÷ú‡÷èXùX@@PÇ~JÇDŽéÇDÏèaûsèÊëZ»°P‡÷èBùƒÃ‡÷èGûXrƒÃ þÈuè‡÷èù¿òè%ùƒÃS‡÷è·ù¿ìèFú‡÷èËø‡÷è«ù‹÷¿Úè�úè|[‹÷¿ìèøø‡÷è’ùX¨tP‹÷¿ìè§øþ è{ùX¨t€M€èvøÃçÏÌTöô¢0 jÁ‘ €µžŠoD€‚,:Í€jÁ‘ �€!¢ÚI}袋.º}Žã8Žc~I’$I’~ÍÌÌÌL«ªªªª»M±‹÷¿ègø‡þSQè¡ùY[è¾é–ùQ‹÷¿øèLø‡þèXøƒÃëQ‹÷¿þèJøƒÃ‡þSèàø[¾øSèiù[YþÉuà‡÷èè÷‡÷éÈøSƒúr!‹Áègñ²öE€tþÂ*Âs2À< r° þÀŠÐŠðRè™ZŠÂþÀ öuÁyÆ ë < r° è [¾ öÅ€t°-èjŠé ötµ íyèYëèKþÍyù Òt°.èIþÅtè@þÊuõþÊxè,ë÷ öuðEè+°+ ÉyöÙ°-è°/þÀ€é sùè€Á:ŠÁë Š ÀtFë°0ˆCÀ=u» Ç00CC�ûuô¹ÃŠm€eŠ,€˜»M÷ëŠÄ<ÙuþÀŠÈöØQè@Y€=�sè«þÉ€M€°„*Æt è1÷ÐþÈu÷» ¾æŠEÐèÐèÐèÐè0ˆ€e‡þèÙö‡þèùöèööè ÷èðöC�ûuÓÃ2ä» Ø€?5ÆrþÈx Kþ€?:rÆëïÆ1ÆGþÁÊ€ù-uCQèYr€ù-u €=t€u€øÃè7ö3ÉŠè ïè‰r%ŠÐèr.ŠÂ2äSQ¾ì‡÷è›ø‡÷è÷Y[öÅ@tþÉë <.u öÅ@ùu€Í@CëÁè¥Ôh¶¿ÉìÅëx-ÐÍÎÂSÞùx9?ë+¨­ÅøÉ{Η@€=uÀM€V¾æ‡þèQõ‡þè€õè}õè�õ^s èuõþuùÀe€ðÿ¢2[èD _S€>ÏuA�ÿÆuŒÀŒÛ;ÃuÆÏ À>2tè$r &Æ&ˆEÃè[í&Æ&ÆEƒÇ ¾€¹üó¥Ã¹»2QS¾¹Šèúí.:t [YƒÃâçùÃFCâéYY€<:uó.ŠÃCONTRMKBDLSTAUXUSR°ÿë2À¢3[Sè…€>ÏuI&€}u#è@€>Ïu8&Æ€>3t&Æ&ÆEu"é€&Æ&€}u&Æ&€}u&Æ&ÆEÃè ¹€>3t±èl¹QèeYþÀuˆ.ÏÃWƒÇ¹ 3Àüó«_Ã[S&€}u.&öt°èþ€>Ïu&öuîë&öt±èþÀuÆÏ&ÆÃ�Ðÿ6ÐW¿Æè _Ã�Ðÿ6Љ>,Œ.&öt&€}u &ÆEé8ÆÏÃ�Ðÿ6ÐW¿Æè _Ã�Ðÿ6Љ>,Œ.&öuÆÏÊ.Ò€ý€rµÆÒ»‰Ó±è�ë< t4²<t<tþÊ<t< rå:ÍtáˆþÁCè4æë×þÉxÑKèPæ þÊtÇëîÆÃWÄ>,&€}_Ãèïÿtè¡<uÃWÄ>,è_ÃSQRW&ŠE<u‹ÓŠ<toÿÓëi<uèëP< rèÉåë< uè¹åXëN<uLÿ¦ëC<uLÿ®ë8<uLÿ²ë-±èŸu&Š]2ÿ&ŠA0<t&þEy&ÆE&€ ëÆÏ°_&ˆEZY[ÃWÄ>,è_Ã&ŠE€>Ït°Ãè:ÿèàÿ< t < t< t< uè1ÿëè» èÅÿ< t< t< t<tˆC�û'tè ÿëßèíþuèÿÆ» €?Ãr€?tÆÏ ùÃ[SèÊþu è|ÿ&ˆéÚþè×þ&ˆñÿë2É[SQè|ÿYtQèÄìYèÂÿr Éu&‰ë&ˆÃ[Sè\ÿtW¿Úèåú‹÷_èžÿr¹üó¥Ã[Sè{þè!ÿ< uè~þëô3Ûèÿ< t<tC&ˆþÉtèdþëèèDþuèZþ&ˆÃÄ>,&€}uéBäèáþ< t <t è:þëðèþu è0þ< ué)þ&€}t&ÆEÃWÄ>,è_À>ÏucSQRW2äP&ŠE<t<uÿ¨ëD<uÿªë:<uÿ¬ë0<uÿ°ë&X&€ &Š]2ÿ&ˆA0&þEy&ÆE±è«tÆÏ_ZY[Ã[ZSèÚé<v ‘I° èxÿâù‹Âéqÿ‘[XSQ»èúêXè¹é�ë+Ãv‘° èTÿâù‹Ë»ŠèHÿCâøÃ’[XSèÝïP‘»èøëÍ[YS¿Ä Éu¿Éè[ëè ÃTRUEFALSEègéZ‹Ü6*v ŠÈ2í° èÿþâù6Š2íC Ét 6ŠèíþCâ÷‹ãÿâ[.Š2íC Ét .ŠèÕþCâ÷ÿã° èËþ° éÆþ² ë²[S&ötèxý:Ât<u¸ ÀÃ3ÀÃ2Àékú°ÿë2À¢3‰0[Sèa€>ÏuCèIû€>Ïu9&Æ&ÆE&ÇE&ÇE-ŒÂ‹÷ƒÆ¹€>3u2Àè«¡0&9EtÆÏÃ&ÇE¡0&‰E¸ÿÿé‰[S&öt(±"è4&ÆE&ÇE-ŒÂ‹÷ƒÆ¹¸ÿè`±"èéûË÷[ZSÄ>,&‹E&;Es2À&‹Mè;&ÿEÃÆÏ Ë÷[ZSÄ>,&‹E&;E¸ÿr&ÿEtþÌ&‹Mè &ÿEÃÆÏ À>ÏtÃŽÚ‹Ð&öt&&€%û Òt&€}u öu�ù€s QRV±!èŸ^ZYuW Òt&€ &Š]2ÿ¸€+Ã;Ès&M3Àë&ÆE+È‘W�y0è7üó¤è1_‘&€}uQRV±"è;^ZYu&ÿE- ÉtéÿÃÆÏ ÃÆÏ à Òu‡÷Ã[S±"ètÆÏ Ã&€ &öt&&€%÷ë &öt&€%ûQŒÂ±3è�U0±èYè ÀÃ�U èÃWè±å_Ã[_S&;Ew3&‰E&‹U÷âƒÒŠÈ€á&ˆMÀÒŠÄŠâ&;E-t P±"è…ÿX&‰E-ÃÆÏÃ[&‹E&;E¸u@ Àÿã[&‹Eÿã[&‹Eÿã°ÿë2À¢3[Sè8€>Ïu-èïø€>Ïu#&Ʊ#è]ÿ&‹E-&ÇE-&‰E&ÇE€&ÇEÃ[S&öuÃéù±!ë±"ˆ4‘[XZ_S&öt=PQ±3è"ÿYZãQR±èÿŠ4èÿZY Àu$&ÿE-�€Iëß&‹E-&‰E&;Ev&‰EÃÆÏÃÆÏ €>4!tÆÏ Ã[_S&;Evé ÿ&‰E&‰E-Ã[Sè¢u±è¦þþÀuÆÏÃ[èj_Sè‡uóè¬äWƒÇ¾€¹üó¥_±èzþþÀtÔƒÇ ¾€¹üó¥Ã¸Kë3À[S÷ÍuFèIuèP±èLþþÀXt3&‰E-ŒÊ±3èGþº%R±è>þ±!è.þZ Àu &ÿE-�Â€ëæ±èþèããéìéoÿÆÏÃ&€}tÆÏÃLÿ¤ÈB‰>C[�EYXSQ»è/æëˆB‰>C[�EZXSè&ëP‘»ècóYÄ>CWŠB2ö“-+Èv G&Æ þÆ:òtâ󑻊CG&ˆþÆ:òtâñ_&ˆ5Ã2Àë°¢G‰>L[�N�H�Jè@S»€>Guè;ær#Ä>H&‰ë¿Úèmôr‹÷Ä>H¹üó¥3À8t“-@Ä>L&‰ÃX‹ô6Š2ö‹ÊBƒùv¹F¿üó¤ÆâÿàÃ[ŒÚ‹÷_üó¤ŽÚÿã[ŒÚ‹÷+á‹üüó¤ŽÚÿã[Y_üóªÿ㑌Ú[_^ü;÷sñùNOýó¤ŽÚÿã[WUS¹ &ÿ5GGâù_^]ZY[XÜWVURQSP‹ì‹~ŽF¹ &�GGâù[]_ÿã;ÁsòéÅ;Á|;Âò é·‹Ä+Ár=r±ÓèŒÑÁ;Ørò é˜[X�Sÿ6ÍÇÍLè‘Þ ÀtLè—Þ�Í<tÃ�ÐèÏèÝ^C User breaké‘ ÏÆÏ2äÀ>ÏuÃ�ñÿ™ð™ò™ð‘ !"�ЊÏ艊».$.׊ÐèÍÜ I/Oë2[X�S²ë ’�‘ÿð�ÐèZŠÂ»h$.׊ÐèžÜ Run-timeƒ.Ðè‹Ü error ŠÂèzâÆTÿèvÜ, PC=¡Ðè_âègÜ Program aborted é%ãR�&ÍûÿèáZÃèCâ%½‹ìéÐ Õ (JANUARYFEBRUARYMARCHAPRILMAYJUNEJULYAUGUST SEPTEMBEROCTOBERNOVEMBERDECEMBERU‹ìUé—U‹Äÿvþ‹èUé‹^þ6ŠG 2äP¿%¹èHæè[çué ¸‹^þ6ˆGü錋^þ6ŠG 2äP¿%¹èæè2çué ¸‹^þ6ˆGüéc¸‹^þ6ˆGü‹^þ6‹G¹™÷ù’=téC‹^þ6‹G¹d™÷ù’=ué ¸‹^þ6ˆGüé ‹^þ6‹G¹�™÷ù’=té ¸‹^þ6ˆGüé‹å]ÃU‹Äÿvþ‹èUé¿tèô¸ P¸èãöè­ýé‹å]ÃU‹Äÿvþ‹èUé¹è+ýèÄÿ¸P¸Y‘+È}é9A‹^þ6ˆGùQ¿tè¹ó¸œP¸èšöè:÷ ----------èVýYIt ‹^þ6þGùéÏÿ¿tè‰ó¸œP¸èjöè ÷è1ýé‹å]ÃU‹Äÿvþ‹èUé¹è¯üèHÿ¸‹^þ6ˆGý¸P¸Y‘+È}é˜A‹^þ6ˆGùQ‹^þ6ŠGù2äP‹^þ6Ä&Š2äY‘;Á|é!¿tèó¸œP¸èõõ¸ P¸èëõèµüéA¿tèóò¸œP¸èÔõ‹^þ6ŠGý2äP¸èÜõ¸ P¸èºõè„ü‹^þ6ŠGý2ä‹^þ6ˆGýYIt ‹^þ6þGùépÿ¿tè¤ò¸œP¸è…õè;öèLüé‹å]ÃU‹Äÿvþ‹èUé¹èÊûècþ¸P¸Y‘+È}é¬A‹^þ6ˆGùQ‹^þ6ŠGý2äP‹^þ6ŠGü2äY‘;Áé!¿tè<ò¸œP¸èõ¸ P¸èõèÝûéX¿tèò¸œP¸èüô‹^þ6ŠGý2äP¸èõ¸ P¸èâôè¬û‹^þ6ŠGý2ä‹^þ6ˆGý‹^þ6ÄW‹^þ6ŠGù2ä_&ˆYIt ‹^þ6þGùé\ÿ¿tèµñ¸œP¸è–ôèLõè]ûé‹å]ÃU‹Äÿvþ‹èUéP¸P¸Y‘+È}étA‰FúQ¹èÅúè^ý¸P¸Y‘+È}é5A‹^þ6ˆGùQ¿tèSñ¸œP¸è4ô¸ P¸è*ôèôúYIt ‹^þ6þGùéÓÿ¿tè'ñ¸œP¸èôè¾ôèÏúYItÿFúé�ÿé‹å]ÃU‹Äÿvþ‹èUé¹èCúèÜü¿tèêð¸P¸èËó¸WP¸èÁó¸P¸è·óè�ú¿tèÂð‹^þ6ŠG 2ä¹ ÷á—�Ç%èX߸#èôèZú¿tè›ð‹^þ6‹GP¸è�óè.ôè?ú¿tè€ð¸P¸èaó¸WP¸èWó¸P¸èMóèú¿tèXðèùóè ú¿tèKðèÖó èùù¿tè:ðèýÞSUN¸èŽó¸ P¸èóèØù¿tèðèÜÞMON¸èmó¸ P¸èíòè·ù¿tèøïè»ÞTUE¸èLó¸ P¸èÌòè–ù¿tè×ïèšÞWED¸è+ó¸ P¸è«òèuù¿tè¶ïèyÞTHU¸è ó¸ P¸èŠòèTù¿tè•ïèXÞFRI¸èéò¸ P¸èiòè3ù¿tètïè7ÞSAT¸èÈò¸ P¸èHòèù¿tèSïèôòèùé‹å]Ã츢s¹è†øèWú¹è}øè%þ¸P¸Y‘+È}éHA‰FúQ¹è_øèû s2ä Àué ¹èJøè†ûé ¹è>øè_ü¸¢s¹ è/øè?ýYItÿFúé¼ÿ¹èøèÜúé‹å]ÂU‹ìUé¿tè³î¸P¸è”ñ¸@P¸èŠñèTø¿tèîèJøé‹å]ÃU‹ìUé%$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECƒìèDîèúñè øè;îèÛñ1[Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec]è¼ñèÍ÷èýíè�ñStarting Month: è³÷è¢í�~ú±èñïè&ðè¡÷�~úè�Üè¥Üè<Ýuéè Õè\Û¸P�~úèrÜèÞY‘+È}é(AˆFùQŠFù2ä—WŠFù2ä—ŠCú2äè&Ö_ˆCúYItþFùéÜÿ�~úè7Ü¿ê+è0ÜèÎ݈FùŠFù2ä=té ¹ è¹öèÜþéŠFù2ä-¹™÷ù¢ré‹å]ÃU‹ìUéè-íèãðèôöè$íèÄð'[Four digit Year between 1593 and 9999]è¯ðèÀöèðìè�ðStarting Year: è§öè–ì¿$è¦îèïè—ö¡$=/¸|HP¡$='¸HY Á Àué ¹èöègÿé‹å]ÃU‹ìUéè�ìèCðèTöè„ìè$ð/Number of months to print [greater than zero]: èöè ì¿mèîè�îè ö¡m=|é ¹è‘õè“ÿé‹å]ÃU‹ìUéƒì ‹F‰FøŠF2ä‰Fö¸‰Fô‹Fö-‰Fö‹Fö=|é‹Fö ‰Fö‹Fø-‰Fø‹Fø¹d™÷ù‰Fú‹Fø¹d™÷ù’‰Fø¸÷nö-¹ ™÷ùFôFøP‹Fø¹™÷ùYÁP‹Fú¹™÷ùYÁP‹Fú¹÷éY‘+Á¹™÷ù’‰Fü‹Fü¢qé‹å]ÂU‹ìUéƒì¿tWè7ÚLST:è¨éèõ¿tè;êèõ¿tèUë¸P¸è6î¸OP¸è,îèöô¸‰Fú¿tè1ë¸P¸èî¸DP¸èîèÒô¿tèë‹FúP¸èôíè¾ô¸P¸Y‘+È}é-A‰FüQ¿tèêê‹FúP¸ ÷nüYÁP¸èÁíè‹ôYItÿFüé×ÿ¿tèÂê¸P¸è£íèmô¿tè®ê¸P¸è�í¸GP¸è…íèOôé‹å]Ãè�ÑèuêèîCalendar Version 2.1èîè$ôèTêèôí-Prints a calendar from a given starting MonthèÙíèêóèêèºífor as many months as desiredè¯íèÀóèðéè¦íè·ó¹ èHóèkû¹è?óè¡ü¹è6óè8ý¹è-ó¡$P r2äPè™ý¹ èóèEþ¸P¡mY‘+È}éƒA£oQ¹èüò r2äP¡$P¿qWè·ô r2ä= t鸢r¡$£$é  r2ä@¢r q2ä=té ¸¢qé  q2ä@¢q¿tèMé¸ P¸è.ìèøòYItÿoé�ÿèéèÓìèäò¹èuòèbú¸ ÀuéÿééŸÖté”Ò¸¢r¡$£$éÏ r2ä@¢r q2ä{ ************************************************************************* Prints an unlimited number of calendar pages on Epson MX printers. Prompts for starting month/year, and the number of months to print. by Charlie Godet-Ceraolo 2610 Glenwood Road Brooklyn, NY 11210 *************************************************************************} PROGRAM CALEND6; CONST Esc = #27; FormFeed = #12; TYPE MonthType = (JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC); DOWType = (SUN,MON,TUE,WED,THU,FRI,SAT); YearType = 1583..9999; MonArray = ARRAY[0..11] OF STRING[9]; MonthDays = SET OF MonthType; CONST Days31 : MonthDays = [JAN,MAR,MAY,JUL,AUG,OCT,DEC]; Days30 : MonthDays = [APR,JUN,SEP,NOV]; MonthNames : MonArray = ( 'JANUARY','FEBRUARY','MARCH', 'APRIL','MAY','JUNE','JULY', 'AUGUST','SEPTEMBER','OCTOBER', 'NOVEMBER','DECEMBER'); VAR Count,L : INTEGER; Day_Of_Week : DOWType; Month : MonthType; New_Month : BOOLEAN; Pr : TEXT; Year : YearType; PROCEDURE Print_Month(Month : MonthType; Year : YearType; VAR Day_Of_Week : DOWType); CONST Bar = #156; MaxLines = 8; Tab = #9; VAR Day_Of_Month, Days_In_Month : 1..32; J : INTEGER; X : DOWType; PROCEDURE Init_Month; BEGIN IF Month IN Days31 THEN Days_In_Month := 31 ELSE IF Month IN Days30 THEN Days_In_Month := 30 ELSE BEGIN { February } Days_In_Month := 28; IF Year MOD 4 = 0 THEN IF Year MOD 100 <> 0 THEN Days_In_Month := 29 ELSE IF Year MOD 400 = 0 THEN Days_In_Month := 29; END; END; { Init_Month } PROCEDURE Print_Margin; BEGIN WRITE(Pr,Tab); END; { Print_Margin } PROCEDURE Print_Dashes; CONST DASH10 = '----------'; BEGIN Print_Margin; FOR X := SUN TO SAT DO WRITE(Pr,Bar,DASH10); WRITELN(Pr,Bar); END; { Print_Dashes } PROCEDURE Start_Line2; BEGIN Print_Margin; Day_Of_Month := 1; FOR X := SUN TO SAT DO IF X < Day_Of_Week THEN WRITE(Pr,Bar,Tab) ELSE BEGIN WRITE(Pr,Bar,Day_Of_Month:3,Tab); Day_Of_Month := Day_Of_Month + 1; END; WRITELN(Pr,Bar); END; { Start_Line2 } PROCEDURE Print_Middle; BEGIN Print_Margin; FOR X := SUN TO SAT DO IF Day_Of_Month > Days_In_Month THEN WRITE(Pr,Bar,Tab) ELSE BEGIN WRITE(Pr,Bar,Day_Of_Month:3,Tab); Day_Of_Month := Day_Of_Month + 1; Day_Of_Week := X; END; WRITELN(Pr,Bar); END; { Print_Middle } PROCEDURE Print_Rest; VAR Y : INTEGER; BEGIN FOR Y := 1 TO MaxLines DO BEGIN Print_Margin; FOR X := SUN TO SAT DO WRITE(Pr,Bar,Tab); WRITELN(Pr,Bar); END; END; { Print_Rest } PROCEDURE Print_Header; BEGIN Print_Margin; WRITE(Pr,Esc,'W',CHR(1)); { Wide Print } WRITE(Pr,MonthNames[ORD(Month)] : 35); WRITELN(Pr,Year:5); WRITE(Pr,Esc,'W',CHR(0)); WRITELN(Pr); WRITE(Pr,' '); WRITE(Pr,'SUN':6,Tab); WRITE(Pr,'MON':6,Tab); WRITE(Pr,'TUE':6,Tab); WRITE(Pr,'WED':6,Tab); WRITE(Pr,'THU':6,Tab); WRITE(Pr,'FRI':6,Tab); WRITE(Pr,'SAT':6,Tab); WRITELN(Pr); END; { Print_Header } BEGIN { Print_Month } New_Month := TRUE; Init_Month; Print_Header; FOR J := 1 TO 6 DO BEGIN Print_Dashes; IF New_Month THEN Start_Line2 ELSE Print_Middle; New_Month := FALSE; Print_Rest; END; Print_Dashes; END; { Print_Month } PROCEDURE Reset_Printer; BEGIN WRITE(Pr,Esc,'@'); CLOSE(Pr); END; { Reset_Printer } PROCEDURE Get_Month; TYPE MonListType = STRING[36]; CONST MonList : MonListType = 'JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC'; VAR M : STRING[3]; X : BYTE; BEGIN WRITELN; WRITELN('[Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec]'); WRITE('Starting Month: '); READLN(M); IF M = '' THEN BEGIN LowVideo; HALT; END; FOR X := 1 TO LENGTH(M) DO M[X] := UPCASE(M[X]); X := POS(M,MonList); IF X = 0 THEN Get_Month ELSE Month := MonthType((X - 1) DIV 3); END; { Get_Month } PROCEDURE Get_Year; BEGIN WRITELN; WRITELN('[Four digit Year between 1593 and 9999]'); WRITE('Starting Year: '); READLN(Year); IF (Year < 1583) OR (Year > 9999) THEN Get_Year; END; { Get_Year } PROCEDURE Get_Count; BEGIN WRITELN; WRITE('Number of months to print [greater than zero]: '); READLN(Count); IF Count < 1 THEN Get_Count; END; { Get_Count } PROCEDURE Get_DOW(Y : YearType; M : MonthType); VAR X,Century,Year,Month,Day : INTEGER; BEGIN Year := Y; Month := ORD(M) + 1; Day := 1; Month := Month - 2; IF Month < 1 THEN BEGIN Month := Month + 12; Year := Year - 1; END; Century := Year DIV 100; Year := Year MOD 100; X := ((26*Month-2) DIV 10 + Day + Year + Year DIV 4 + Century DIV 4 - (Century * 2)) MOD 7; Day_Of_Week := DOWType(X); END; { Get_DOW } PROCEDURE Init_Printer; VAR X,Y : INTEGER; BEGIN ASSIGN(Pr,'LST:'); REWRITE(Pr); WRITE(Pr,Esc,'O'); { SKIP Off } { Set up tabstops for doing the spacing } Y := 3; WRITE(Pr,Esc,'D'); WRITE(Pr,CHR(Y)); FOR X := 0 TO 7 DO WRITE(Pr,CHR(Y+(11*X))); WRITE(Pr,CHR(0)); WRITE(Pr,Esc,'G'); { Double Strike } END; { Init_Printer } BEGIN { MAIN } ClrScr; WRITELN('Calendar Version 2.1'); WRITELN('Prints a calendar from a given starting Month'); WRITELN('for as many months as desired'); WRITELN; REPEAT Get_Month; Get_Year; Get_Count; Get_DOW(Year,Month); Init_Printer; FOR L := 1 TO Count DO BEGIN Print_Month(Month,Year,Day_Of_Week); IF Month = DEC THEN BEGIN Month := JAN; Year := Year + 1; END ELSE Month := SUCC(Month); IF Day_Of_Week = SAT THEN Day_Of_Week := SUN ELSE Day_Of_Week := SUCC(Day_Of_Week); WRITE(Pr,FormFeed); END; WRITELN; Reset_Printer; UNTIL FALSE; { Exit in Get_Month on Null } END.