koreth@panarthea.ebay.sun.com (Steven Grimm) (12/27/90)
Submitted-by: fischer-robert@CS.YALE.EDU (Robert Fischer) Posting-number: Volume 13, Issue 32 Archive-name: mclock MCLOCK was written by: Robert Fischer \\80 Killdeer Road \\Hamden, CT 06517 USA (203) 288-9599 fischer-robert@cs.yale.edu MCLOCK is in the public domain. MCLOCK is yet another corner clock which serves two main purposes: * It doesn't use Line-A, but writes directly into screen memory. This way, you can use it with the blitter on a Mega without interference. * In addition to being able to display the time in 12 and 24 hour formats, MCLOCK can display it in a 100-hour format (actually, 100-hur format), where each hur is 1/100 of a day. The clock simply tells you how many hurs (up to three decimal places) have passed since last midnight. For example, 50.000 is 12:00 noon, and 75.000 is 6:00 PM. One hur equals exactly 14:24 minutes, and one thousanth of a hur equals exactly .864 seconds. Imagine the advantages of this system of time. Much of the world uses the metric system of measurement because of the obvious advantages in measuring things in one unit. For example, kilometers and meters are much easier to add, subtract, multiply and divide than miles and feet. But the archaic system of time which we use today brings needless complication into everyday life, even for those using the metric system. For example, we still get the fun of converting between km/hr and m/sec, with a conversion factor of 3.6. If speedometers were calibrated in km/hur, that would be the same as calibrating them in m/milli-hur, eliminating any conversion factor at all! If you were traveling 10 km/hur (about 40 km/hr), you'd know instantly that you'd hit that point 100 m off in 10 milli-hurs. The Metric mode of MCLOCK is made to demonstrate this new system of measuring time. The accompanying program HURCLOCK.BAS, which runs in Omikron BASIC, demonstrates such a clock in the analog format. MCLOCK runs as a desk accessory, and automatically reads the current system time and displays it in the corner. Every few seconds, MCLOCK checks the current system and if it's too far off, MCLOCK recalibrates itself. If you change the time with the control panel, you should see MCLOCK change in a few seconds. You can set three options (pretty obvious). MCLOCK reads them from the file MCLOCK.INF (in the root directory of your startup drive) when it starts. MCLOCK.INF has one line, with up to three letters, as follows: m : Display metric time o : Display old time 2 : Use 24-hour format (defaults to 12-hour) For example, the line 'mo' would tell MCLOCK to display 12-hour old-style time _and_ Metric time. MCLOCK was written in MWC and MADmac assembler, using LynxLib (my library, which I posted recently). Enjoy! ------- cut here -------- table !"#$%&'()*+,-./0123456789:;<=>? @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ begin 644 mclkbin.arc M&@A-0TQ/0TLN04-# S@H )<5.07:#W(/ ,8#0 ," U< W@8B$ 4 z MT@ 8#16XX#/0@B(GN0828"?DC),@3JS\T_>B@0HW ! ( 0*A!8 &/8#\\\< y M" ! ;QS X!&@(0 W,V/.!$- "%":* G,9&, #@&A_F"XF#D.";0V "S\ ""5x MJE6L%+;"<"D!TL^98EU",'MT:\>.8[.* W(5@(2T "C,K0MAZP\7!)WH2N#'w M&S^[*KXX\>*D3LB!'5_HL !&\#\P7)Z\/;/Y!T\ D2<C$9Q GF$ $$);T$&:v M4^9@AS& !)-GP450M 4 !GP%;)%CQ8]I 9#I09P 8ZP %!1P,99Q# 28)<u M.7/G)LY0() '0 +KS1MH,&/@2G< RQETAV*=O)#SRT'HJ4 -!@H L@38## At M.7H9]@&@CWX \.>? S38%X 0!!JHG V+-1;2/^@@<0T &,!QP59..$'%$RW(s MA \.4PU(! ?($&$$$2H. XC</#P E<EJH,$@3\@ <1*.LXHF *Z0/&$"0 @r M 1\$7>D##A+FW&A3BCL"T2, /V(B)#2#0$-(B/_P8^1 X#Q)0 #H..C+@KPq M\8)-!&#Q!&FR",DE/2#H4($*9KGR#SU<PL, ( T-,( ;"/SYCT/]L*'#".[Lp M.= %("2Y9),$?E!=5O75Z"0 /UQZ@0=)5EK5I19(P\2%&$3HF$C\O' ##HLo MX,T9(I#JB'H L)>5(VPP <('.I2 !D?@J'.>]:!@ ,!NL"B"P4JC#$0/%)Dn M! "D!E@;YJ,DP%' C))1( AI* @Y@G\6P-+< H"<,1 Q<"AAZY@G0! N%H(Am M((V0!M@$0[ % / A' K,.&:9X>*0KRQK M#FF[H@@ ^__@9+@#4#NV Q,P,7l M# <9("K P4&Y M(PP_G:PS%7%E,2L?@ B#9!.#DJP7*;N8+"LO_4JD+ 7[ k M++,.$_"2KR'\ NI0SX(1(,:'RC+K[ 2H2!N &-D&BLRC*$AQ7JFX\E"1-&8Pj MX/6C'B";E31AHUWVV9BJ_6ESO+D;@ =P(&$KW5Z<8< 77SM"MQ5G< "K!.X@i M 4P@ARG0;\L^#R#.AX=C P8,YE7DR.',*,XX03KZP-4!9@C@!P,P'.!YXX\Sh MK<L KE"N^N*-Z]AZL -@,K .N#M"N0X2.+/Z;K='CL?O$N RO *V5QPY&+OCg M;@7R2BQ?O& # ($\#<LW#SGV*'S87 * F,'"K[AC\"&N"U1$S1L$& >& ' $f M@;O 3\#11+ "V/.A"Q]0U83(T1$DZ"$!1H!##S@4!"$)11\0><- -"&$'"B'e M!BOISX,T^!\A3,4<*^F 3,HAPG^0 PE (4=O9O27D<#A!PS\ 5#TL9O3\,8'd M#'2344;" )0,8"1L, ((G "-1ND# B@P(1( 0**$(05<C# _+" !%A@X0K)c M& D(H$!$,' #@Y"#PW ( $P<M !,@"#=,+H !M(889@D 4<]G&N1PU1%_OPb MA1!.@3XJ!2$S7.*'M\"U+%T(Q@ K>X(! $4F,-3Q6MWZUM BH 3!% >YD(7a M+**FBT5J[9$70(%@ D#!&?8P)4!T09(45PY$S"8:^"" %4 3-88)7 :.4Kz M8SE+7@Q$ %( @P'>.!(P*.,%4Q$DL/R8F5,B8"2V-. !\@&'!#"P./\ F $^y M)!@!,."!3N&0AYY0$P (X RIL6 'U8D@, R$%=)D1]-<X2:(N L G)#F.5JHx M#^S9(S-"P8<!(2"&S32-"D)JS@'T<(:B &%^8/0"$&"#H5<>$0A@C(%-%*#0w MOCD4H@%XG (H*AO:'!$$&=VH0H'0T)6 ]'$-(*E%(?"Q &AT-R@<24[UL=.=v M2N8!YNBF*$Y#@9[.T*@Z/>H,.^*9,N44'9N)*F>F*E6IPL%U >##:7A ( B<u M@0&G3"(ZS$ P>2# V;E!AA H2I0 & $6\N*649P&$@8P *.B %%'$*"QB1At M'C0U"QK^ 0\2#-9&P*@&,'R01&E,X0@\2*(\D& ,#$@B">S(536,$85G_,,>s MC8'!C B A',, 1\FP$-90? UL\A G7@- R^D$(09!$-S3/C&!X0A(9'H8P;Nr M2$E%K"&5E!!@HQ0=@.(\21!K<$D?8(3**97B#S:0H"O^4-PX$#&$? QW&L q MP0REH"=]K 0"$) !((CI#S!0XP6P905&!K( *]03MOX0H!4&0M?A5H02_<T*p M+2J"B0!;("%9X82!_5$14 3X A*H""D>+)"LH,+ E*@(*PC&(6LA '\S\&Y6o M&'PM)*GS A#0[T#@,($.*P1_8%0Q ( KW*QX@\8*J @X:,R BHB#Q@ZH"#EHn M3-.LF(/&$<X*.FA,@8JH@\86J @[:(R!BKB#QA6V #QHS(&*R(/&'J@(/6@,m M@HK8@\8BJ @^& 4 $CQ* C2^3U9^&UP55$20&7"Q<*&&$A; P%H7 (!XN?+Gl M1PE@T D"- $&C8-"7\L @^:!HR^ @$$#8=(*@ %^9<SF#U^KC#;0\X?Y3)!)k M"QHE2 +TH5%"@4DO&B48F+0!-%V1_#)F50.AL:</C&,=\]C'0!8RD2MRY. Fj MV0)+#FZ3L_+DX$8Y*U,.;I6SX@XXS$#4^.-T<#T-X5_;& XRP#8W;_V8&6^[i M(MY@<XX_#8<1B/M-Y-[O6\_]:6_S.KA!SLJ.@UMD"_S8V,)6-K&A7!%TP$$%h M[Y:QKM'=:WW#X854\C#^!LT $ !: [0>L;9K#&$XN"'AMQ;!:'<" &0X00B]g M'<A\ ; /OPE)2M? "'&G7(JQ7L@+Y<.$W(([\:(0((((,H0WI$2D3M,#0(@f M0B!($ &D$T$00:"A% ?"!R6,5@T(4+H2(K"&H!-@ZTX'1&-(,*.@0QKH)(" e MT0D0=0!,G4H^![K0B8X ICM=$&MW>B#:_G86@" T;'ZT9,N]CJ0/27"! ':d MU3Y:OKO3[7]O#!S^H01!D <.5(*&.! A"T&,P0#C4 09["$.24A"$&00@#0$c M,0ZSD($>1A [-!1?= @0Q>B5#H#>#T\ -1#@Z40 ! F T'8"@ $#(E! V!M#b M>P2(P/8$P#T(OD"""\ @ , 0A@@N'0 D!$$8PD""$+(/C4#H:"702 01 2"#a M@11 $@"@@?OAWP3W(P( 3W"_'P" %0 4X/X2Y'_[UW[^IPD%8DX!$ "D( %z MHH ! D! PD*T!,'. !4P !TX +B!H'X( 1\8 #L( .Z("00 +Z! -P0 Gy M6 &D( $ ((#,((F& (P(!V!8()\( 'X'X] 0DM0 #D!)!V((IT1,UZ# )x M&(,]$3 @Z'\'T1,VF $"( -L0$%L(10F(7F%#!$N($,: 1>(50B( ("($-w M 0$*&(,G: -6"!4>( ]. !-, 1,\ 1#L 0ND 1.8 0"(P=O4 =BP 9E )Iv MX 9S0 =AP 9L4(AG )6( 1, !)+ )^6 =T4(B#: 9O( <@,(=U>(<AD&.>u M:(=X* 53, 2"UHDM, 1L\ 9CL 8#T8$4$ Y!A$.P0H])H&&0(%8$"BB\&&0t M, $"8 #RX .P (@ 28(RT( 'HI0$(0 $2H 4 '08 #)B(T(8 0P Hs M8 Q"L(U0H $*H .P +5""$MR $*0 0&H 20 $@P '8Z $8 #WF(_XN(\$r MH (<(_QB "0 $*P * ('<6) '.0#<*) ( (\/*0$1*9#O*)$%F9#L& ^q M8 !V!0 :"$U#3$]#2RY24T, G$^ 0 EA7Z7?O=%@( P @"0-+"@) $2p M ) 8B! A @! 4!2(,#"E#)LRHRA V((FS=CUH @DF8.'#9A\N@ T*0,'3EIo MQG3\&!*$F#P@I+P14T8.1R,EQZ#IR=(E3)E4TK0IL_()&S(@DBY=:>2-G#9An MZ#1U N")$2-=N7H%*X,&@!@R !!YXZ8, #__D5\ (""Q $0!420:" $ 8 m M!/R#1 !XD'%@H , ! A8@#!A<^#.G RL4"/40D(-DPXBR! 13X&[% 9\H'l MS(@&8 ! @H@&3B.& ^! [=L"7]M&4)?O7@![1R^(B*"S!N 2"^!)SEE@;,( k MCN^%5&#/:D@#FI-6 &"X74@&?N]M/5S@ N/(J?]A_B\W^ND%!%W/WAX W08 j G'/0&+_YV^?SO)6?(?-HQ$"!UB; G$%S0'7="<HRL]MICBV$G"1H i h end -------