ðKCLOCKIO DEFй¹CLOCKIO FORO¤¹¹CLOCKIO MCD ¼Å¹¹CLOCKIO MOD ¦¹¹CLOCKIO SYMáj¹¹TSTCLK COM†`2¹¹TSTCLK MCD¥Râ¹¹TSTCLK MOD§ ’¹¹ÿ ÿ ÿ DEFINITION MODULE ClockIO; (* This is a utility module for reading time & date under ZSDOS. It uses the new 'Set Time' and 'Get Time' calls. Exception errors 'ClockReadError' and 'ClockSetError' will be raised if an un-supported function is called. *) EXCEPTION ClockReadError, ClockSetError; TYPE timestr = ARRAY[1..5] OF CHAR; datestr = ARRAY[1..8] OF CHAR; PROCEDURE RdClk( VAR Time : timestr; VAR Date : datestr ); PROCEDURE SetClk( VAR Time : timestr; VAR Date : datestr ); END ClockIO. 1/7/89 by Steven Hirsch This distribution is a quick example of how to read and/or set the realtime clock under ZSDOS. Although these files are in Turbo-Modula, this method could probably be ported to Turbo Pascal also. - Enjoy. i e ClockSetErrorClockReadErrorË ;ÒÔù–Ò3D•0C˜0�b#ÃŽ`�ÿ ãŽ��”2“4"¬2"$¬¥ã"­2B"­#" ±®0B"#" Ÿè®0ä$’2�4"¬2"$¬¥ã"­2B"­#" ±®0B"#" Ÿè®0ä$ŠÖk :Ôù–Ò3#•�”2“4"¬2"$¬¥ã"­2#"B"­ ¯0°B" ¯0¦ä ’2�4"¬2"$¬¥ã"­2#"B"­ ¯0°B" ¯0¦ä �c#ÃŽ`�ÿ ãŽ��ŠœPž.ÔÿCŒ / / ˜˜1DŒ : ••1B�—B‘‘B’”B“‘B””P^ÿßþºþÆþÇÿCLOCKIOÎ@I ùIMPLEMENTATION MODULE ClockIO; FROM SYSTEM IMPORT ADR, BDOS, HLRESULT, IORESULT; CONST GetTime = 98; SetTime = 99; (* ZSDOS / CPM3 Dos time services *) AscBias = 48; VAR StrIndex : ARRAY[0..4] OF CARDINAL; DateSkeleton : datestr; TimeSkeleton : timestr; PROCEDURE RdClk( VAR Time : timestr; VAR Date : datestr ); VAR i : CARDINAL; BCDTime : ARRAY[0..5] OF CHAR; BEGIN Time := TimeSkeleton; Date := DateSkeleton; BDOS( GetTime, ADR(BCDTime) ); IF IORESULT = 0FFH THEN RAISE ClockReadError; END; FOR i:=4 TO 3 BY -1 DO Time[ StrIndex[i] ] := CHR( ( ORD(BCDTime[i]) DIV 16) + AscBias ); Time[ StrIndex[i]+1 ] := CHR( ( ORD(BCDTime[i]) MOD 16) + AscBias ); END; FOR i:=2 TO 0 BY -1 DO Date[ StrIndex[i] ] := CHR( ( ORD(BCDTime[i]) DIV 16) + AscBias ); Date[ StrIndex[i]+1 ] := CHR( ( ORD(BCDTime[i]) MOD 16) + AscBias ); END; END RdClk; PROCEDURE SetClk( VAR Time : timestr; VAR Date : datestr ); VAR i : CARDINAL; BCDTime : ARRAY[0..5] OF CHAR; BEGIN BCDTime[5] := CHR(0); (* no seconds! *) FOR i:=4 TO 3 BY -1 DO BCDTime[i] := CHR( ( ORD(Time[ StrIndex[i] ]) - AscBias ) * 16 + ( ORD(Time[ StrIndex[i]+1 ]) - AscBias ) ); END; FOR i:=2 TO 0 BY -1 DO BCDTime[i] := CHR( ( ORD(Date[ StrIndex[i] ]) - AscBias ) * 16 + ( ORD(Date[ StrIndex[i]+1 ]) - AscBias ) ); END; BDOS( SetTime, ADR(BCDTime) ); IF IORESULT = 0FFH THEN RAISE ClockSetError; END; END SetClk; BEGIN DateSkeleton := ' / / '; TimeSkeleton := ' : '; StrIndex[0] := 7; StrIndex[1] := 1; StrIndex[2] := 4; StrIndex[3] := 1; StrIndex[4] := 4; END ClockIO.  OÎ@&.49> E J  ClockReadErrorClockSetErrortimestrdatestrRdClkTimeDateSetClkTimeDateªÃ�®·~~~Û꺕ÿ Œ=====mã™T+8LËÐÀÉÒmmmmmmmJX¦h^},,,,,,,,,, Í''Ä……………………………………ðDDDDDDDDDDDDDD®®®®®®®®®®®®®®®®ÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖÖ'7žD)DXµ,,,,Ûåíö¬¾¥·ÄÍÑÚ£©È&2 ‹�•œ±»Þêîúš£ôS!py4÷Š’åØB')7p (²4Ø'*œ§»éä�•8¦4Ow”¦¯—Ÿ¹ÂÈÒµþªÀm¦9 @OZ           ^(Ò!âC $�2 OVR(C) 1985 BORLAND Inc.|d Applicard l installedP= *ERT()SYSLIBOMPLIBo&F$fhéýáÃñýáÃÇ ýáÃÝýáÃìýáà ýáÑýáÃoýáÃ�ýáÃH ýáÃ^ ýáÃz ýáÃ"ýáÃÄýáà ýáÃðëÃŒ àçõÃñÑ÷ ýáÃÈýáÃ&ýáÃ2ýáÃôýáÃSýáÃ!ýáÃýáÃpýáÃyýáÃ1ýáÃôýáÃåýáÃØýáÃBýáÃ'ýáÃ)ýáÃ7ýáÃpýáà ýáÃ(ýáÃ4¯áÃÛ ýá÷ ýáÃé ýáÃýáÃ�ýáÕýáÃ8ýáæýáÃ4ýáÃOýáÃwýáÔýáÃþýáÃmÑÁà ÃE Ñà ýáÃÝýáÃ# ÿÃ* OéIllegalInstruction PointerError BadOverlay BoundsErrorDivisionByZero OutOfMemoryEndOfCoroutineFunctionReturnsNoResult StringTooLong RealOverflowOverflowCaseSelectErrorBadHeap StackOverflowíÿ6ÿ­ÿßÿÍÿÂÿ³ÿ|ÿ‰ÿ]ÿ7ÿhÿfÿIÿGÿEÿ8ÿÿ™>ñ2>Ç2>Ã2*í{+V+^ë^#VëÕý!Ã/ íCíSÉíCÙíCÙÉÙáÙíCÁÙíCÁÙáÙã¯É>þ ‡íDÖOÿ* N#Fo&) ÉÝåáF#fh= ùåýéÝnÝfåýé‡O>ÞGÝåá åýé*O åýéÍöåýé‡O>ÞGÝåá *O N#FÅýéÍöõÝåáæ‡OíBN#FÅýéÝåáæ*æ‡O N#FÅýéæíDÖOÿ* ~#foÚÝnÝfåýéÝnÝf åýéÝnüÝfýåýéÝnúÝfûåýéÝnøÝfùåýéŇO>ÞGÝåá *ÅO N#F#~#foãÅDMýéÅÍöì‡O>ÞGÝåá *O Áq#pýéÍöõÝåáæ‡OíBÁq#pýéÝåáæ*æ‡O Áq#pýéæíDÖOÿ* ~#foÚíC‡O>ÞGÝåá *íCO Áq#p#Áq#pÃIÍöïá|µÂ:}á|µÂ[uáæ‡O|µÂŒiá|µÂï_áÅ|µÂõVáã|µÂMáãæ‡O|µÂK@ÁáãÅ|µˆ3íCÁáãÅ|µÂ�$Áá|µ( NÅýéÁá|µÂ``iÁã|µ( ÃóÙ>þ ÑøÙÑÁá|µ(ï sÙýéÙÑÁá|µ(â s#rÙýéíCÙáÙáÁãÙåÙ|µ(Ê Ã‹ÍÈÁáÑ|µ( z³( x±(í°ÃE>ú ÍÑÁ ÙÁ áëãë|µ(–z³(’Ù (Ù~·( (#ï ø>ÿ  èÙ x±( kb6 x±(í°ÑÃqíDOÿ*+~+ng N#F åýéÕo&ëýéOÅýéOGÅýéëN#F#^#V#ÕÅëýéæOÅýéæÕíD_*+~+ngÿ ^#Vëþ‡Êµ Ãä ÝåÁÕÁÐíKý!)‡íDÖoæíDÖoæ&ÿÕíK ^#fkíD_~8"0š+~+ngÿ ^#Véëãëͯ ëãëÜý!áÁÕ|µyíK ÃÃ# ý*·(x±(íCÝ"!Ó ã"ëéí[Ý*íKx±ÃŒ ÝåÅÝ!Ý9Õo&ÿ#9:¼0ùýé :½8õ>þ ÝåÅÝ!Ý9Õ9:¼0ùëé å:½8õÝ惇o&ÝùÁÝáÑ9ù0x± NýéáÝùÁÝáÑÙ‡o&9ùÙåãáÑÙÝùÁÝáчo&9ùÙÕåÙÌáÑÁýáÙÝùÁÝáчo&9ùÙýåý!ÅÞý!þ(íC 88ýéëé`iͯ ò> þ õ>; ñÉíCÁ!9íB:¼0Ë8Ë!å ÂÑ ù9åÃI :½8âà ÍÈÑÁËA(!9íB:¼0 ùëí°`i9åÃE :½8í>ú ó"íSá^#V#ëãåë^#VáÕåí[ó"áÙ"áÙãõõÅÕÙÅÕÝåýåÙMD!ðÿ9ù}|Õë!í°ÑÙ~#fo´Ê" ù!9 í°ÙáÙÑ! 9ùëýáÝáÑÁÙÑÁñ:· ûåÅ*Äÿ ~þã #~þ: *~ܯ ÁáñÉ>í[Ùo¯gåoååÙÙ!å++åÙÍ4 ÙáááÙÉÍÈÑáÁÅåÙ! å>ÍõÙÅå!9ës#rú ÕíMÍ4 µ r+s!9ùÃEÍ4 ýé! å!åÍ4 ó*å>2ýéá}2ó· ûýéÍÈáÁãë!EíBÒp!<"; Ío!Üÿ ëás#rá"3 "7 á}2R !u "S !3 $í°ÃEë^#Vëýéñ0õýé!ñ0 ýé!ñ8ýéåë^#ëýéñ0ôýéë^#¯WíRëýéñ0óýé>ëëãÅOG|Æ€g·íBMDog8)íB8$og·(ë N#Fx Áëãë‡8ñ· éëýé ##)ÁÑïÑýéogåýéÍÈÁÑáå·íB837íR0.í[íKýéÍÈÁxÆ€GÑáå|Æ€g·íB87íR8ÝxÆ€G>ë ú >÷á}|áå¼8 ½8ýégo>þ ñõ‡8ýé>þ Áá·íB(!åýéÁá·íB(î!åýéÁá·íB8óßáÁõáÁ·íB0æÒÁáõÁáxÆ€G|Æ€gÜáÁòáÁxÆ€G|Æ€gÙÁáòáã|·}á ¦Ö0¢)< üg�oåýéÍÜx˸‡Ü^|˼‡ÜIÍÜxÆ€G|Æ€g·íBÙ8, 1íB8& +ÍÜ Ù Ù (.~#Ù (.¾#8 ·ÂJ!å !å#&å+åÙíKÙíKýé ϯÎ Ï!ŠÊá#åýéá+åýéOOÁá åýéÁá·íBåýéá)= üåýéáË<Ë= ùåýéi`ÁãÕë!Ë!ËË:(Ë0ô ÃÓËË!ËË;(0ö Ãç0 ÑÁåýéy°(!>=ÈË#Ë0øíjíB0 ?ËË=ÂÉáÑ>þ i`ÁãÕëÍýëÆi`ÁãÕëÍý»/+|/g}/oÉ/ x/Gy/OÉi`ÁãÕ¯ËxÄHË|Ä=ëÍýë·Ä@ˆáË|Ä@åýéáÙ!ÙË|Ù(+åÙåýéÁá 8NåýéÁá·íB8DåýéÁá·íJêÝåýéÁá·íBêÝåýéË!Ë8#Ë:(Ë0ò Ò²Ë!Ë8Ë(0ô ÒÆÐ ÐáÑ> þ Ùøi`ÁãÕë!͸Ãøi`ÁãÕ¯ËxÄHË|Ä=ë!͸Ë| Ì·Ä@ÃøáË|ã(#áã|µ ¶ýéÍÜÙ ÙíJêâûÍÜÙ·íBÙíBêâu/¯Ù•o>œgÙ>�o>œgÉ/¯Ù‘O>˜GÙ>™O>˜GÉÍÜËxÄ[Ë|ÄFÕë!ÙÕë!Ù>!=( Ù)Ùíj8ÙËËÙËËÒ‹Ù ÙíJÒ‹ÙÃÜË| ø·ÄIÙÑÙÑåÙÃoë!x±Ùë!°±ÊÙ>!=ÈÙË#ËÙËËÒÓÙíjÙíjÙíBÙíB0Ù ÙíJ?ÙËËÙËË=ÂâÉÑÃÍÜËxÄ[Ë|ÄFÕÙÕÙÍÀÙëÙë·ÄI�ÍÜÕÙÕÙÍÀƒáÙáË|ÄIåÙåýéáÙáÍIåÙåýéíCáÁÙíCÁÙãÙáëãÕ¯ÙË!ËÙËË�XÙ)Ùíj�T&ÉËËÙËËÙÐÙ#|µÙÀ,À|$¬æ€ÈÃ*áã>€¬gãåÍL{· Iz· S`iÙ`iÙ:“8Z(Ë8ËÙËËÙ=úË<ËÙËËÙ< óSõÜIñÜ^Ù ÙíJ¯Ë|ÄFËL( (2Ë<ËÙËËÙz·()>ËD ( =(Ù)ÙË0óbÍyÑåíKÙåÃI> ÿ Ñ!ååÃqÍL{·(ðz·(ìƒ0Ö0àÖ8ßõëË:{!ÙÕëËËkZW}!Ù· Ù{ZÙö8ú0Ù ÙíJ( Ë<ËÙËËÙéÙ{ZÙ ëÙÑÙÑÎÃðÍL{·(Cz·Ê/“8Æ~Ú*Æ~Ò/õ>ÙÕ·íBÙíB0Ù ÙíJ?ÙËËÙËËÙ)ÙíjÙ=ÂÈëÑÙë®ÙÃ!ÍÑá)Ùáíj|ÖÚ0Ö8þÒâ&(Ù)Ùíj=ö&ËÙËËÙÆ ôÜIåÙåÃpÍÑá|µÙá´µÊ0¯Ë|ÄFÕ—|·(þ(Ë?ËÙËËÙÃLÙ)ÙËÒ^&Ãðá,}!7íj=· úåýéá}á}•!8<)#= û·()= üåýéá}/æoåýéáÍAåýéáÁ}¡o| gåýéáÁ}±o|°gåýéáÁ}©o|¨gåýéáååýéáãåýéáýéëÑãÅMÙÕÅÙÝåýåíWõûÍ2"ñûêøóýáÝáÙÁÑÙÁÑýéëÑãÅBKëÙÕÅÙÝåýåíWõû*ìÕé¯7ŇO!: Á~#foéÕ ' A}éuå 1 Ù W @^u�é ËA(!íBØÉåÅÄÿ >ãw#>:wÁáÉÕë +6:+6ãx· yþ(+p+qáå6ã#6:###q#pëÑÉåÕÅë o gµ()~#þã '~#þ: !·íR(DMá~#~#Áy†O#xŽGÅ>·ÁÑáÉ>ú ÍÈÁÍ`!^#V+z³(FåÕþã áþ: Ûog·íB(8 |· }þ0áÑ##ÍáÑå##~#~á+ÑÅDMÍë ÁÑ*å 8(ë!9íRá8íSëÍoëÄÿÑ}|]T 6í°ÃE>ú ÍÈÁÍ`á^#V¯w+w{²Êu bk ~#þã ~+þ:Ì¥bk+~þ: +~þã Õ+~+ngë·íRÑÍ¥(ë!<Õë*·íBëíRëÑ "ÍoÍ*ë"##s#rÃEÅ*##"ÍoÂÿ ñÁõ}|íKq#p!"ÁýéáÅN#F¯w+wx±Ê# 2 2!; "ÍoÁýéÅíK!9íBÁåýéÍÈÁÑáx±(íR8í° +ë +ëí¸ÃEÍÈÑÁáx±(ós x±(íT]í°æáÅMDíh&Áåýéá}áÅMDíyÁýéoíC&)¡ F#fhé×ëõþ#;@o Ýåá‡O>ÞG ÉíSÑ>Áq#p#= ø*ëéÍ· >+F+NÅ= øÃI*O åáO|µ ôÃ# Íø×áÁx±Ê# ))) ÊÍ·ÍÃÃI*O ðO!9~#fo´Ê# ÍÃáÃIÍøÓ! 9F+N+x±Ê# ~+ng))) ÍÃáÜ >+F+NÅ= øÃI*O åáO|µ ôÃ# ÍøÿÔÿ–ÉÿÔý¬@�2"¤Þ" Ëã –" Ã"¬2äŠÿÔÿ�ñšñˆÿÔû—Ò3Þ�²ã·¬�2#"šª®0š©"¬2«åã#"�-"¬2"£ã� ñ­ä "­2#" ñ"«å ‹ÿÔû‘2�&ª3�&©#�¢ã#®Añâ#�$¢ã#®ñâ� ñ"¬2"“£å-‰ÿÔû�3¯N� °¦2"# «ã� ñâ"# ñ#¬3#˜ å‰ÿÔû@3«ã Ž `#@…�‘ ãG#@…�G¯°§¯2"`#@…�#@ ÿÔõ@6HËã|H`2Ha3"‘¡Þ-Žˆ¢ãi-¬="Ëã7"#¡Þ#ËÞ"#`¡Þ #a«ß"#a`¡ãŽ `4$ËÞ$®P"¡ã$. 4ä$Ëã"W¯H¯pHbY#XGËãH¯5¯%`‘G`ç®°§p‘&@…�&@…&@ÿÔë@;Ž`ZJ2JiXJbWJlY‘G`çãJhYH¯3#`‘G`ç®°§4‘9J.7'‘ ã O¶_Oã� Ž@ 'Ëã1'�ÿèU'±÷V'š¡9'– ãì 9•UJ.J.˦TD�<£ã�‘G`çã""l>Ž"p� Ž@ &®6'­7ä^ì ¶åŽóFŽ `¡Þ�F`çã�?ñâ#F¯3#`E°§3##`¦¬6‘7'&� ¤ã &' ñ'¬7äŒ in module šòJböóFŽ ` ã¯E‘ ãŒMissing module: ŸòJ`öE�çãhE“ 8E” ãJ�}JŽÿpJm�(ôŒ to “òJ`�(ôŒ is legal range, but �òJ.�(ôE” ãŒ or “òJ.�‘ôŒ was evaluated�òE• ãŒStack=•òJ•�ôŒ, heap=–òJd•�ôâ�7'D¢ã C' ñ'¬7ä)áJbWJiXJlY%4�7‘:Ïõ'�ª«ãˆóŒ Press "C" ™ò*ãŒfor calling chain >�ò⌠to continue >œò�:–�ÿÃŽ`Ëå Ž` �@è±·è�C¡ãÎóŒ%Module Procedure Offset PC�$òó�G`çß$b�µãNGö ”ò�G`çã�?ñâ<$`õ$aõ ”òI$£ã I$§¯”�ôâŒin a submodule�ò ”òG¯3I#`§®”�ôó'¬7ì ¶ãÎäôóBãNM�"0Ž LpŽNp� Ž@ ��Ã+@ˆÿÔû@3�2-Ëã3-"�$¨¦Ž$�$0-"�$¨® "-"�$¨® �Ÿ-"�$¨¦Ã"¬2"- å3#@ˆÿÔù@4-±�$¨¦3#�!¦2"p�!#ÃŽ`«$@…�$@ÿÔë@;�€Ò7-ãû�=J`:*¯P2*a±9*a�è°5�'Ã)üãŠ'%".& ã�'%¬4".%8%®°5Ž `3#.%( ã # .(�êæ>(#. 3#«å�€%§6&$£ã$6'%¦(&@(&¦8$&§4$«ã((¯8(`".&¡=-¶ã* `�ê·èp�_�=�=� Ž@ �5)¬9-ß)ü¶åU‘=-ã-¬=-’ ã��Ã� Ž@ +@ˆÿÔý@2Ž`^MN�"0Ž `\ŽŽ@ Ï7Ž`K ã��Ø�-Ž,� @ Ž� @ Oã��-Ž,� @ Ž� @ ä6"@ˆŽ$‘ Ëã‡��ÃŽ`=-=ÏwŽ$�-¬ŸŽ$ÃŽ`�ÿ¡ã�#Ž$ÃŽE`®±=�-�$¨@ûÎ-¬Ÿè=-- ã,ŒOverlay —òŽ%—ò�.ñŽ-’òŒ not found.šòó��Ã-ŽJ`çåCävà#ÿÔû‘2� 3"#¤ã " ñ"¬2ä„ÿÔýŽ¢ìލì‘2�-ñ"¬2"�'£å óŒTURBO Modula System �òŽÎìŒ Version 1.10›òŽÆìó‘2� ñ"¬2"�£å ŽÎìŒ CP/M-80, Z80›òóŒ' �&òóŒCopyright (C) 1984,1985�òŽÆìŒ BORLAND Inc.Ÿòó‘2�-ñ"¬2"�'£å óóŒ Terminal: ™òŽRìóˆÿÔÿàMþŽ`RBÞŽ"`ãÿ�@ž�-�dŽ@ ŽŽ@ - ¶ãW-®=Ž `=-ËãC-‚(‘ =-®T=-Ëã(-­=--=-Ëã--�@-----¦=ä--. =äH‘= Ž `=-=-ËãD’-.(çã4�-.(ç=-!-‚(p-!A-N¯ -§Ž @ ŽŽ @ Ž `="-"d¯<=-. =äI��ÃPþþý:üüÉûá÷Ù÷lø¤÷|÷G÷øöîöËöÂöÿKERNEL€À!!Î#¬#H#""ëm :ÔÿBCðððŒ The time is: œðB”ðððŒ The date is: œðC—ððPÂÿK'®(TSTCLK $M$PšnÔû¬@�2"�¢Þ" Ëã" �. ã‹"¬2ä"�.�3#’¤Þ#¤ã"¬2"# #¬3ä"�¢ã"¬�‹Ø‘JÔý¬@�Ò2Œ Input from: ›"�ð#"� Ëã>"“ �:¡ã"íƒ"�ï¶ã% ð ŒINPUT FILE NOT FOUND�ð ðPŠØñrÔý¬@�Ò2Œ Output to : ›"�ð#"� Ëã"“ �:¡ã"íƒ"�PÊ-ÔÿƒïˆœP¢OÔÿƒïˆ©5ÖÔÿ ð ï¶R`S‰©ÛmÔÿ ð ï �ðŠ©‡JÔÿ ð ïR ï �ð‰©OÔÿ ð ïR ï �ð‰¼/_ÑÔÿ ð‰¼/·>Ôÿ ðˆ¼/3fÔÿ¬@ 𠊼/Ë-Ôÿ 𠊼/ó Ôÿ 𠊼/'(Ôù–Ò4�2Ÿè3±#™£ã#®3$"#®0"¬2«å"£ã � ð­ä"­2 $" ð"«åм/£OÔû–Ò3�2#"—è®0±"¬2«å"£ã � ð­ä"­2 #" ð"«åŠ©Ôÿ ð ïR ï �ð‰¼/�`Ôÿ ð „„îPšÓÔÿ‘RPaýæÿÅÿ„ÿ8ÿ'ÿÿÿþðþàþ¿þžþ‚þhþWþFþþ”ýÖÿß)%4;$INOUTk$#3' ClockSetErrorClockReadErrorË ;ÒÔù–Ò3D•0C˜0�b#ÃŽ`�ÿ ãŽ��”2“4"¬2"$¬¥ã"­2B"­#" ±®0B"#" Ÿè®0ä$’2�4"¬2"$¬¥ã"­2B"­#" ±®0B"#" Ÿè®0ä$ŠÖk :Ôù–Ò3#•�”2“4"¬2"$¬¥ã"­2#"B"­ ¯0°B" ¯0¦ä ’2�4"¬2"$¬¥ã"­2#"B"­ ¯0°B" ¯0¦ä �c#ÃŽ`�ÿ ãŽ��ŠœPž.ÔÿCŒ / / ˜˜1DŒ : ••1B�—B‘‘B’”B“‘B””P^ÿßþºþÆþÇÿÕ3CLOCKIOS'Î@œ(  NoInputFileCON:ÊkÆEÔÿ��H ¯<•çã H¬X��H � ¤å ��H p`«ã�pâH¬XŠ•ÔÿƒC�ï¶ãŽ��ˆ•ÔÿƒD�ïˆ�QrmÔý¬ÓBð� «ã ðð�2"" �@è±·è"¬2" å„„ÆE�JÔÿ���~��–�ïC�”1DC�0��H YH¬XI¯<•çÞ��H � £ãI�< ãBC�ðâBD�ðH­X��H «å6�XPÿÿöþjÿVÿ9ÿžÿ—=;û&COMLINE¸(…RÉ) DiskFull DeviceErrorUseError StatusErrorEndErrorÿÔû�&Ò2"ŒWhile processing file �&�1"�¦3#ŸöâŽ"�%ÎŽ"�%ÎŽ"�%ÎÍ€àÿæÿìÿŠÿÔÿ«ß`Ž9z¡ã ŽŒProcessing unopened file�‰ÿÔñ˜Ò8��ÃŽ`¬6� �ÿÃŽ`7�5�2� �@è±·è�A¥Þ� �@è±·è�P¤ã� �@è±·è¯@p‘5‘2â&p�3'4"“¤Þ" �0¥Þ" �9¤ã‘5#š¨" ¯0¦3"¬2#4ä(" �: Þ%Þ$� ¢5%ã"¬¦"§@"§�$pâ&p'p„„ÿÔùŒ �$œ1€üí�$�2‘3"¤Þ" ËãN" �. ã+"¬2™3"¤Þ" Ëã#›¤ã#" �@è±·è#¬3"¬2ä&#˜¤ã#" �@è±·è#¬3"¬2äY„„Êk½CÔ÷�Ò2í"�‚ � ®@.4"‘$š©®0"’$šª®0"“�:”4‘3#™ ã"$�.$¬4‚ # �è5%� ¡ã"$%$¬4#¬3#›£å+"¬�1‹FmŽhÔÿ� �ÿÃŽ`R� ÉÕkîKÔÿ� BÈÿÔó7'eã›'�u'.í'b'a¢ã''ar'b3'cަ#§�è6#&¦5&Ëã#&�@'iËã #&­Ž&§'’y'c4'‚ �!¦2"'fp$%¡ã"�$Ã�"'‚ ÃŽ`Ëãí ”í$®€4" `¬pä'"`'g¥ã'"`w'iËã&«ã #­3'’#� �€¥¦y'&xí ‰ÿÔù4$.í$$cr$f$g¢ãj$‚ �!¦2"$fpÏ]�bÃ�!$‚ ÃŽ`Ëãí “í$ b®€r" `¬p"`$g ã($i‘ ã$b­3$Ž#� §x$h�€£ã$�x$’y$$b$h§rÎ$b$d ãÎä\í $b$c§…�ÿÔý�Ò2��Ã� ­Ž`çã+"ŒDrive @ is Read-Only��1"–� ®@Ž"�‰ÿÔû�:@`3#Ž9zp#‚Ž@##cq##cr##ctí�#Ãí �!¦2#"`w#‘y#>#‚ �$0‹Ø?ÖÔù¬@�$Ò2"€ýí#íŸ"ÃŽ`�ÿ¡4í $ã"#í#$…ƒbÔ÷¬@�$Ò2"€ûí%íŸ"ÃŽ`�ÿ¡3í "í"%í#ã�"Ã�"ÃŽ`�ÿ 4í $㎌Directory Overflow�"%í#‹œP^ÑÔù�€Ò2`ËÞ``Ž9z ãO`í`4$i“ ã"��€``÷í`"�?ÿ`í`.í�$‚ ÃŽ`�ÿ 3í #ã`“í$‚Ž@�:@‰§>fÔý`ËÞ``Ž9z ã)`2"‚ í"`.í�"‚ Ã�"‚ Ãí "‚Ž@�:@‰ýIXÔ÷¬@�$Ò2�$Ò3`ËÞ``Ž9z ãJ"`‚ �$0#€ûí#�"� ‘4#$ "$  ã $¬4$œ ã‹ä"í"`.5ó%í�#Ã#"®�@�"Ãí ‹Mm1-Ôÿí�y�x‰A?Ð/Ôù�€Ò2í4$b$a¢ã$$ar$f$d$c¡°¦$g¥ã$f�!�€�!È$b$c§�!Ɔ�$i‘ ã4$‚ �!¦3#$g­p$.í�"Ã�!$‚ Ãí $Ž"� §x$h�€£ã$�x$’y$g�!�€�!È$h�!dž�LWÖÔÿíab¥Þ fdc¡°¦g¥…�©‰‡Ôùí4�2$b$a£ã*$b$a§2"¥ã$a@$ a¦q…ƒ$a"@"¦$ a"¦q$b$d¡ã"…ƒ$d$c ã $ dަtâ í$ f®v"ަ¢ã(í!3$c#@#¦"#¦2#Ž¢ã$$bq"…ƒ$ f®vä1í!3#"§£ã"§3$c#@$$c#¦q"#¦…ƒ©‰‡‡ÙáÑãå}´('~#þ9 !~#þz N#F#~#foíB8( á##q#p¯ÉÕÙÕÝåÅÝ!Ý9åý"Lëý!ýé�p‘í ‘¡ã’í‹©?RÔÿía¬b¢ã a`p a®qŠ�ûŠ©Ôÿ¬°ü¬°¡ã’틼/OÔùí4$d$a§2"Ëã#$‘u"¥ã $a@$ a¦q‹$a"@"§"¦$d$c ã$ dަt$$dqâ $$dqí$ f®vŽ£ã"$cŽ@Žþ¦Ž¦$‘uí$ f®vä)Ž¡ãí!3$c@$‘u$$c¦q‹¼/O‡ÙáÑ{ãå}´(,~#þ9 &~#þz N#F#####^#V#ëíB8( >á##q#pÉ_ÕÙÕÝåÅÝ!Ý9åý"Uëý!ý逑틼/Ã|Ôÿíad­¢ãap a®q‘uŠ€�ÿм/�`Ôÿ¬°í‹a‚EQÔÿíf�!�€�!Èac§�!Ɔ�Ök«gÔõí÷Å£ã’íŽ�!ʺ3#�!Ç�€�!ɺ26&d&c ã & dަt‘5â "&f¡5%ãí%ã&"v#«ã &&cr&&ctâí!4&&c#¦q‹ÿÔý��ÃŽ`2�í��Þ"Ãí ˆÿÔÿPúÌùBù“øzøŠ÷Öö¤öKööö&ö-ö7öÈÿðû\ÿ<ÿ}øüý%ÿüþ–þ›ü×ý±ýJýrüèûß÷cû!ûµúLúú¶ÿRCFILESõ)¯Õ4$ TooManyTexts TextNotOpenÿÔÿ`� ã”�Úp”`ÊÿÔÿ`� ã•�Úp•`ÊÿÔýN«ßMN­ «ãEã €þð!"“ ãPð#M�ð$M���^MN pN¬^`«ã�pŠÿÔÿ“�ÃŽ`p`� ã�pŠÿÔÿŽ��ŠCON:ÿ‡ÉÿÔû@3ì%�ì% ã‘p#@‰ì%�ì% ã’p#@‰“2J" ” ã"p#@‰"¬2"�£åŽ��#@‰ÿÔý@2G�I�H�JL"@„„ØoÔû@3¬@�2"" �@è±·è"¬2"£åí$`’ ã�#@…ƒ#¬”Ä ã `“� �í&�^â=ŒRDR:¬”Ä ã `“�!�í&â$K`°¦ðãK`ï`��"�í&â�#@…ƒH`�‘#@…ƒ#@bÔû@3¬@�2"" �@è±·è"¬2"£åí$`‘¡ãa#¬”Ä ã `’�"�í&âLŒPUN:¬”Ä ã `“��í&â3ŒLST:¬”Ä ã `“��í&âK`°¦ðK`ï`‘�"�í&#@‹œPÖkÔû@3`­Ÿ¤ãFJ` ‘¤ãJ` ‘ ã`�øK`°¦ð`”�"�í&`‘ ã #“í2â`’ ã#“íâ�p#@‰jKí Ôý@2í$`“í&"@‹ÿÔù@4�2"”�"�í&K"�"¬2"�£å�#“í3�#“í�#“í‘U$@ˆÿÔÿF …�ÿÔÿH ¯�ç…�ÿÔÿH � …�ÿÔÿG …�ÿÔÿK…�©Ë'Ôû­Ÿ£ãŽ��I ã H pI�â(J «ãKð `� ã Kð �pâ LýýëH`Š©ÛmÔûŒ¬‘1�2€ýñ#� £ß#¯�çå#� £ã"¤ã"#"¬2€ýñä‹©Å.ÔûŒ¬‘1�2€ýñ#¯�ç¶ã"¤ã"#"¬2€ýñä‹©‡JÔý�Ò2�p"�òF"�ðŠ©OÔý�Ò2�p"�òF"�ðŠ©�PÔý�Ò2��!Q"�òF"�ðŠ©Ôý�Ò2�Q"�òF"�ðŠ©ùJÔýí¶ã€þñä H�‰ÿÔÿ­Ÿ¤ãI‘‰¼/ó ‡ñÙÁÑÙÕÝåíKÅý"Ý!Ý9åÙz· <{=þ06ýnýfyþ 6ÿ4ýnýf~þ('þ C > ̓> ̓áÁÝáá¯Ã{Ù!å!ååÍ5ýnýf^#VÕóýnîýfï  ÅÍHˆÅÕ!9åýnýfë))^#V#NÅëÍCˆ¼/3fÔý¬@�2"¤Þ" Ëã " ø"¬2ä‹ÿÔÿ¬£ã � ø­ä¬§ËÞ­ � ¡ã­ä¤ã  ø¬ä„„¼/Ë-Ôý–Ò2"•ð"•í'‹¼/ó Ôû•Ò2�3"#šª®0š©#¬3«å#£ã � ø­ä#­3"# ø#«å ‹¼/·>Ôý›Ò2"šð"ší'„„¼/�`Ôý�3Ò2"�2ð"�2í'„…¼/·>ÔýEÞJ ’ ã*€þð""Ëã""� ã€þð!"“ ãP"� åâ "“ ãPâð#�ø‰Ök"@ÔÿG ¢ã� øä ŠÿÔÿíPáþyú(ú*úúúûù¾ù§ù�ùtùù*üü¶ûû�ú�üÅÿuühüYüOüÕýývÿWÿ<ÿÿþæþ„þØý¯ý‹ýiýIý)ý¸üdü¬ÿ—=¢C%4�)TEXTS+4Œ]ð: ("D€ÿÔÿò`Ëå‰ÿ‡ý~ ·ý~ ýåÍ€ýáý6 ·(ýw áѯéÿÔÿ‘VˆÿÔû�3€þñ"™ ã� 2"˜ ß"� ß"� ã#Ëã ˜õ� õ˜õ#­3â;"� ã#Ëã ˜õ� õ˜õ#­3äâ#"�¢Þ"�¡ã#""� ¢ã ÿ"®@õíâ"õ#¬3"� ß#£åq#¤ã#�öŠÿ‡áã}ÃÿÔÿ�õšõˆÿÔý¬@�2"¤Þ" Ëã " õ"¬2äŠÿÔû‘2� 3"#¤ã " õ"¬2ä‘2°3"#¤ã"¬2ä ‹ÿÔÿŽH‚-•�íŽH‚0•ŽH.;íˆÿÔõC¢ÞB¢ãVš4�05ŽH.)ãŽ4�53�2#ŽH‚*" ¦3ŽH‚+" 6ŽH‚!&#$ª%¦#$©3&­6#«å3"¬2"‘£å3ŽH‚!ŸŽH.,íŠÿÔÿŽH‚<•ŽH.GíˆÿÔÿŽH‚3™ŽH.;íˆÿÔÿŽH‚8•ŽH.;íˆÿÔÿŽH‚C—ŽH.GíˆÿÔÿŽH‚?—ŽH.GíˆÿÔÿŽH‚Ÿ�íˆÿÔÿŽH‚Ÿ�íˆÿÔÿŽH‚� SŽH‚‘ RŽH‚<� ËãD�êæTŽH‚3� ËãD‘êæTŽH‚C� ËãD’êæTPªþ’ÿÿlÿYÿFÿ¦ÿ—ÿÜþÀþvþlþaþÞýÖý°ý£ý�ÿ¸:TERMINAL&;Uö…=TooLargeÿÔù�2�€?ü‘èã\"âBü� AØüÎü�ÈBØüÎü�@FØüÎü� ¼¾LØüÎü�ÊZØüÎü�®Å�tØüÎÍ€¶ÿ¿ÿÈÿÑÿÚÿãÿ›��±"¬2«ålü†�ÿÔÿ¯`d¤ã¯ e¯` p¯¯`¬p⯠�p¯¯ `¯0p„Èb b8Ôí�3ì &�- 7'ß&�+ ãì $™£ã�…ƒ�ö�5ö�333Å¢ãöš�!È$�!Æöâ%¬5ì $™£å#&�. ã%ì $™¤ãö�333Å¢ãöš�!È$�!Æö%­5ì ä#& �@è±·è�E ã<�2ì &�- 8(ß&�+ ãì $™£ã�…ƒ"�ÿ¢ã"š¨$¦2ì $™£å(ã%"§5â%"¦5&Ëã�…ƒö�Å¥ãö‘�!Æ’�!ɾ�@ØQâö¾Q'ã A!Ÿêé!Q%�²ã!%ŽÚÿ²ãAŽÚÿ%§úÙQŽÚÿ5A%·¬úÙQâ %ËãA%úØQ‘…ƒ�Q%�´…ƒ ðÿ©ÕQÔå”Ò<ò¬� @�8��!õ�4‘3�²2¼6�Õ¢9!Žÿè!,òQ,òa±¯8(Ž�ÿ ã"ã�0„…¬4âè(�µãC(�M¸Ž¹¬8(�' ã�ýð|Ù�ÈBÙâ(úÙ�€?Õ¥ã � AÙ(¬8â+(¬�M¸Ž¹8(·¬úØ�ÍÌÌ=Õ¢ã � AØ(­8&¬(­"¶¨¦5%�µã%—£ã—5�?%úÙÖ�€?Õ¥ã � AÙ(¬8"¶ã (‘µã(3â‘(§4,òQ,ò aŽ ¦q,òA¿š�!Èõõ�Å¢ã�õ&#¦5—67"ã'¯7â«ã%­5%'¥ãŽ ��'%§5)ã%­�-$Ëã %�0$­4â1&Ëã(õ�Éó%óº®0õó�ÈÇš�!Èõ&­6â%�0%¬5#Ëã#­3#«ÞËã%�.%¬5%'£å^"ã)%�E%¬�+(�´°¦(­¼8%®(š©®0%®(šª®0„…ÈbG/RÔù�p�2� �- 4$ß� �+ ã"¬2" ¯03#™£ã�…ƒ`š¸#Ð�Ðp"¬2"£ß" «å&$ã`·¬p‘…ƒ�…ƒ ùÿ"m¯gÔù¬� @2¼3�²4"«ãŽ ��"#šª®0#š©3"­2#«å$ã"�-‹Èbo 2Ôû�p�2" ¯03#™£ã�…ƒ`šÂ#Àp"¬2"–£ß" «å$‘…ƒ�…ƒ ùÿæ_ÍQÔý¬� @2"�²ãŽ ��"šª®0š©"­2«å‹Èb3@VÔù��!Q�2� �- 4$ß� �+ ã"¬2" ¯03#™£ã�…ƒAš�!È#�!ÆQ"¬2"£ß" «å($ãA@Q‘…ƒ�…ƒ ùÿsKÐQÔù¬� @2��!Å¢3Ì��!Å¢4$ã�ÿÿÿ"«ãŽ ��"š�!ʺ®0š�!É"­2��!Å å*$ã�8#ã"�-„„jK‘`ÔÿP°ú2ú&ú$üˆÿöþzþÚú ÿ²þþæÿG=CONVERT¥=ö<�C ¦} aëm :ÔÿBCðððŒ The time is: œðB”ðððŒ The date is: œðC—ððPÂÿTSTCLKCINOUT#ECLOCKIOÎ@G�MODULE TstClk; FROM ClockIO IMPORT RdClk, SetClk, timestr, datestr; FROM InOut IMPORT WriteString, WriteLn; VAR time : timestr; date : datestr; BEGIN (* time := '12:34'; date := '01/01/89'; SetClk( time, date ); *) (* Un-comment the above code, ONLY if you are running a CardZ180 BIOS *) (* version 1.2 or higher *) RdClk( time, date ); WriteLn; WriteLn; WriteString('The time is: '); WriteString(time); WriteLn; WriteLn; WriteString('The date is: '); WriteString(date); WriteLn; END TstClk.