ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDATE4 PAS2‰F‰Ù;�4u ¾DATE4 CMD3_Þéî‰v�F‰^�ÿ ‰^�–Ñë^Ñ㋉…²PROGRAM DATE; CONST Esc = #27; 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; StringType = STRING[80]; VAR CH : CHAR; YEAR : YEARTYPE; MONTH : MONTHTYPE; DAY_OF_WEEK : DOWTYPE; PROCEDURE GetTime; TYPE RegsType = RECORD AX,BX,CX,DX,BP, SI,DI,DS,ES,Flags : INTEGER; END; TimeType = RECORD Year : BYTE; Mon_DOW : BYTE; Day : BYTE; Hour : BYTE; Mins : BYTE; Secs : BYTE; END; VAR Regs : RegsType; TimeBuf : TimeType; FUNCTION Get_Nibble(N : BYTE) : BYTE; BEGIN Get_Nibble := N AND $F; END; FUNCTION Get_BCD(N : BYTE) : BYTE; VAR Temp : BYTE; BEGIN Temp := (N SHR 4 ) * 10; Get_BCD := Temp + (N AND $F); END; BEGIN Regs.DX := Ofs(TimeBuf); Regs.DS := Seg(TimeBuf); Regs.CX := 0; INTR(220,Regs); Year := Get_BCD(TimeBuf.Year) + 1900; Month := MonthType(Get_Nibble(TimeBuf.Mon_DOW SHR 4)-1); Day_Of_Week := DOWType(Get_Nibble(TimeBuf.Mon_DOW) - 1); { WITH TimeBuf DO BEGIN WRITELN('Year ',Get_BCD(Year)); WRITELN('Month ',Get_Nibble(Mon_DOW SHR 4)); WRITELN('DOW ',Get_Nibble(Mon_DOW)); WRITELN('Day ',Get_BCD(Day)); WRITELN('Hours ',Get_BCD(Hour)); WRITELN('Mins ',Get_BCD(Mins)); WRITELN('Secs ',Get_BCD(Secs)); END; HALT; } END; PROCEDURE PRINT_MONTH(MONTH : MONTHTYPE; YEAR : YEARTYPE; VAR DAY_OF_WEEK : DOWTYPE); CONST SPACE = ' '; SPACE6 = ' '; VAR X : DOWTYPE; J : INTEGER; ROW : INTEGER; DAY_OF_MONTH, DAYS_IN_MONTH : INTEGER; NEW_MONTH : BOOLEAN; PROCEDURE INIT_MONTH; BEGIN CASE MONTH OF JAN,MAR,MAY,JUL,AUG,OCT,DEC : DAYS_IN_MONTH := 31; APR,JUN,SEP,NOV : DAYS_IN_MONTH := 30; FEB : BEGIN 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; { BEGIN } END; { CASE } END; { INIT_MONTH } PROCEDURE DO_START; BEGIN GOTOXY(16,6); DAY_OF_MONTH := 1; FOR X := SUN TO SAT DO IF X < DAY_OF_WEEK THEN WRITE(SPACE6) ELSE BEGIN WRITE(DAY_OF_MONTH:5,SPACE); DAY_OF_MONTH := DAY_OF_MONTH + 1; END; { ELSE BEGIN } WRITELN; END; { DO_START } PROCEDURE DO_MIDDLE; BEGIN GOTOXY(16,ROW); FOR X := SUN TO SAT DO IF DAY_OF_MONTH <= DAYS_IN_MONTH THEN BEGIN WRITE(DAY_OF_MONTH:5,SPACE); DAY_OF_MONTH := DAY_OF_MONTH + 1; END; { THEN BEGIN } ROW := ROW + 3; (* SKIP 3 SCREEN LINES *) END; { DO_MIDDLE } PROCEDURE DO_HEADER; BEGIN GOTOXY(34,2); NormVideo; CASE MONTH OF JAN : WRITE('JANUARY'); FEB : WRITE('FEBRUARY'); MAR : WRITE('MARCH'); APR : WRITE('APRIL'); MAY : WRITE('MAY'); JUN : WRITE('JUNE'); JUL : WRITE('JULY'); AUG : WRITE('AUGUST'); SEP : WRITE('SEPTEMBER'); OCT : WRITE('OCTOBER'); NOV : WRITE('NOVEMBER'); DEC : WRITE('DECEMBER'); END; { CASE } WRITE(YEAR:5); LowVideo; GOTOXY(15,4); (* CURSOR 1 PLACE BEFORE Reverse *) WRITELN(ESC,'[7m','SUN':6,'MON':6,'TUE':6,'WED':6,'THU':6,'FRI':6,'SAT':6, ' ',ESC,'[1m'); END; { DO_HEADER } BEGIN { PRINT_MONTH } ROW := 8; (* FOR SCREEN LINE *) NEW_MONTH := TRUE; INIT_MONTH; ClrScr; DO_HEADER; NormVideo; FOR J := 1 TO 6 DO BEGIN IF NEW_MONTH THEN DO_START ELSE DO_MIDDLE; NEW_MONTH := FALSE; END; { DO BEGIN } LowVideo; END; { PRINT_MONTH } PROCEDURE ToUpper(VAR S : StringType); VAR X : INTEGER; BEGIN FOR X := 1 TO LENGTH(S) DO S[X] := UPCASE(S[X]); END; { ToUpper } PROCEDURE GET_MONTH; TYPE MonListType = STRING[36]; CONST MonList : MonListType = 'JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC'; VAR M : StringType; X : BYTE; BEGIN { GET_MONTH } REPEAT GOTOXY(0,21); ClrEol; WRITE('Month: '); READLN(M); M := COPY(M,1,3); ToUpper(M); X := POS(M,MonList); UNTIL X <> 0; Month := MonthType((X - 1) DIV 3); REPEAT GOTOXY(0,22); ClrEol; WRITE('Year: '); READLN(YEAR); IF (YEAR >= 0) AND (YEAR < 100) THEN YEAR := YEAR + 1900; UNTIL (YEAR >= 1583) AND (YEAR <= 9999); END; { GET_MONTH } 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; { THEN BEGIN } 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 } BEGIN { MAIN } LowVideo; WRITELN('Calendar version 3.0'); WRITELN; GetTime; REPEAT REPEAT Get_DOW(YEAR,MONTH); PRINT_MONTH(MONTH,YEAR,DAY_OF_WEEK); GOTOXY(0,23); WRITE('<--[ , ]--> , Q(uit, N(ew '); REPEAT READ(KBD,CH); CH := UPCASE(CH); UNTIL CH IN ['Q','N',#29,#8,#19,#12,#4]; CASE CH OF 'Q' : HALT; #29,#8,#19 : IF MONTH = JAN THEN BEGIN MONTH := DEC; YEAR := YEAR - 1; END ELSE MONTH := PRED(MONTH); #12,#4 : IF MONTH = DEC THEN BEGIN MONTH := JAN; YEAR := YEAR + 1; END ELSE MONTH := SUCC(MONTH); END; { CASE } UNTIL CH = 'N'; Get_Month; Get_DOW(Year,Month); UNTIL FALSE; END. { MAIN } ëëë((@éý$��Í«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☋ìé÷U‹ìUéfU‹Äÿvþ‹èUéŠF2ä%ˆFéŠF2ä‹å]ÂU‹Äÿvþ‹èUéLŠF2ä¹Óè¹ ÷éˆFûŠFû2äPŠF2ä%YÁˆFéŠF2ä‹å]ƒì�~ä—‰FðŒÐ‰Fø¸‰Fî�~êèÐýÍÜèæý¹ èþLŠFä2äPèŽÿl£n¹ èþLŠFå2ä¹ÓèPèNÿ-¢p¹ èêýLŠFå2äPè8ÿ-¢qé‹å]ÃU‹ìUéKU‹Äÿvþ‹èUé‹^þ6ŠG 2ä=t!=t=t=t=t = t= té ¸‹^þ6‰Gõé�=t=t =t= té ¸‹^þ6‰Gõék=téc¸‹^þ6‰Gõ‹^þ6‹G¹™÷ù’=téC‹^þ6‹G¹d™÷ù’=ué ¸‹^þ6‰Gõé ‹^þ6‹G¹�™÷ù’=té ¸‹^þ6‰Gõé‹å]ÃU‹Äÿvþ‹èUé¸P¸èŒÛ¸‹^þ6‰G÷¸P¸Y‘+È}éxA‹^þ6ˆGýQ‹^þ6ŠGý2äP‹^þ6Ä&Š2äY‘;Á|éè/óèÏö èïüé/èó‹^þ6‹G÷P¸è&ö¸ P¸èöèÎü‹^þ6‹G÷‹^þ6‰G÷YIt ‹^þ6þGýé�ÿèßòè•öè¦üé‹å]ÃU‹Äÿvþ‹èUé¸P‹^þ6‹GùèÐÚ¸P¸Y‘+È}éYA‹^þ6ˆGýQ‹^þ6‹G÷‹^þ6;Gõ~é/è‰ò‹^þ6‹G÷P¸è“õ¸ P¸èqõè;ü‹^þ6‹G÷‹^þ6‰G÷YIt ‹^þ6þGýé¯ÿ‹^þ6‹Gù‹^þ6‰Gùé‹å]ÃU‹Äÿvþ‹èUé¸"P¸è9Úè‡Ù‹^þ6ŠG 2ä=téè òèªõJANUARYèÉûé'=téèîñèŽõFEBRUARYè¬ûé =téèÑñèqõMARCHè’ûéð=téè·ñèWõAPRILèxûéÖ=téè�ñè=õMAYè`ûé¾=téè…ñè%õJUNEèGûé¥=téèlñè õJULYè.ûéŒ=téèSñèóôAUGUSTèûéq=téè8ñèØô SEPTEMBERèõúéS= téèñèºôOCTOBERèÙúé7= téèþðèžôNOVEMBERè¼úé= téèáðè�ôDECEMBERèŸúèÏð‹^þ6‹GP¸èÙóè‹úè Ø¸P¸èÉØè®ð¸P¸è¤óèDô[7mèußSUN¸èôèhßMON¸èùóè[ßTUE¸èìóèNßWED¸èßóèAßTHU¸èÒóè4ßFRI¸èÅóè'ßSAT¸è¸óèâó ¸P¸è1óèÑó[1mèàóèñùé‹å]Ãƒì ¸‰Fù¸ˆFô¹èlùè�ûè'×¹è`ùèÂýè_׸P¸Y‘+È}é6A‰FûQŠFô2ä Àué ¹è3ùèBüé ¹è'ùèîü¸ˆFôYItÿFûéÎÿèûÖé‹å]ÂU‹ìUéP¸PÄ~èSÞèäßY‘+È}é6A‰FüQÄ~W‹Fü_øWÄ~W‹Fü_ø&Š2äèú×_&ˆYItÿFüéÎÿé‹å]ÂU‹ìUé%$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECƒìR¸P¸è%×è‰Öèïè§òMonth: èÆøèµî�~­±Pèñè9ñè´ø�~­W�~­è�ݸP¸èèÞ±Pè½Ý¹ è*ø�~­Wèÿ�~­èyÝ¿+èrÝè߈F¬ŠF¬2ä=ué†ÿŠF¬2ä-¹™÷ù¢p¸P¸èšÖèþÕè|îèòYear: è<øè+î¿nè;ðè±ðè,ø¡n=¸}HP¡n=d¸|HY#Á Àué ¡nl£n¡n=/¸}HP¡n='¸~HY#Á Àué„ÿé‹å]Ã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é‹å]ÂèŸÔèNíèîðCalendar version 3.0èìðèýöè-íèãðèôö¹ è…öèÓ÷¹è|ö¡nP p2äPèÿ¹èiö p2äP¡nP¿qWè„ø¸P¸èÕèæìè†ð<--[ , ]--> , Q(uit, N(ew è’ö¿ºè’ì¿mèqîè�ö m2äèHÕ¢m m2äPèpÞ¸Qè|Þ¸NèvÞ¸èpÞ¸èjÞ¸èdÞ¸ è^Þ¸èXÞè)ßué©ÿ m2ä=QtéèÿÙér=t =t=té+ p2ä=té¸ ¢p¡n-£né  p2äH¢pé5= t=té( p2ä= t鸢p¡n£né  p2ä@¢p m2ä=Nté¾þ¹Xè:õè�ü¹è1õ¡nP p2äPè·ý¸ Àué˜þééQÙΟ ö¯.äÏ� ÷