[comp.sources.atari.st] v01i021: time -- interactive time-setter

koreth@ssyx.ucsc.edu (Steven Grimm) (04/28/88)

Submitted-by: braner@tcgould.tn.cornell.edu (Moshe Braner)
Posting-number: Volume 1, Issue 21
Archive-name: time

[And one more time-setter.  This one is intended to be run from a shell
 or the desktop, rather than from the auto folder. -sg]

begin 600 time.arc
M&@A424U%+D,`0```;FH`:P<``)@0G%1K$!T-```,+U0T4`!"!0A(`Z@D:5($
M1`L0<.2\.2,G3!L0=-Z`.%.&#H@P;LB`F-,1(YHR(_/,H5/FXA@V;\:L<3&P
MX,$!2>B<F`/BR1*,&MFD<;/&9!J>=]+000-"1)LV9.H\S2.")D&#")N\(9/&
M3)HR(G'<B"$CQ@RK!5\,'#ABZ,LZ9%#R>#-'S%`R+M#X6*M@1%RO;E!>>2*%
M2(*A=!($!!'#!@B[=.;H`'$"\0D00T$T*7/&8A@\:?GZ+0,8I<\$,/@NEE,F
MC,@Z;N:D.1-8I)@\+'F"%)G$#4LV+5;F88,2,><R<GBJ4-OW[U"45::@@,/B
M38H$T[>\Z6("!AXC1E*P=1X81)4DTZM?1Q$]O?45,FK84-&>^IL5,5*(5S">
M]',07N%1!QPHS)$""`5N,<<6,70!7Q<@]$`9%S"<<-UB;M3!!G`LR='&4&&P
M]!$(1Q31!!%/3#$2'7(,=49H_"F`V$`KR4&<&P7NE\`8:(0A1T%S[##0'@,E
MP-H91W6(F6^8]0"#D`HD<`<::1"'X()IK+!"%RE`:61'=<CA!H)IM)`?E'WP
ME49$B*&0AHZ(808ED5$*,<8;;KQ1!QTHR,`"F2_$`$,**YQ089=%VHFGGGSZ
M268)@A)JJ(5HJNG;0&2\04<:;9218Y%')HD<"#SZ".2<H'(FZH]Q@G"CEZ&N
M-&JK:.@IQY\?9LC2GR3=&1*LJLKZXV"%8<1I&5`6>6.$*]I8!HX&>MD5@LOR
M``(-(/#!AZO/1BAA#=ENNZP/(-APX!F::B2&:YMVFFR4M8;);((P=-'"I`<:
M)"@(*US)H+WX>IGKGBA)F*`,`!]JT[[])CA#PI06.2T*R_8@H;DCE>&K2`8O
M2`/$^3(&`[_^U@"REV6P05+&&S/[)%^'F8%@O#]:.[*V(-`,`KDRS!!ND0<1
M,+"(-H<+PM`HD5M##C]'&72O>(I4-,Y0A[0S"$N?F^YC[![[;@+M%HP@L42D
M@`(*.O-@;0SY98L@TB"HC?6!VQ:H<=0[DYL?HC'&C"`5)-$1-@IA'V@Q"(,"
M#0D!K-$1YI@H#/KNNF2$K4.10_AZQQPHB,"%'%RXP04=26S(61AL&-LI@I0#
M^(:'(8+PNNQ[RBYS16YPE,+GH8O`]Y>.BXG@F0.E&>.,"F1*1HB>&I@JDL*2
MVN./*@0YY/.K+ND1MVX`"[V2K;:!YU(L+)\'"WFT)H?WV9,-PO(L?5UQLS?F
M**W,%'<;PL5:9\0U&?!#%LS29RH)^:M>]U*8OD;6L`4U*($6<@@(</"R*(G/
M-TSIV!80!L&0,<Q?#^N@E\S'+(0DZ&,=7!@#2W8RF$V,@#5#G-%@>#6V,0UG
MBA/:^)BR-J-=<"DUE('1<DC"'N*,A.2:0=O0Y3_*!?!K`9P7V<R&`AK*+0=T
M>]L.XV:M&F31?'R3&/X`UY$`HB"`AI-0XJ($O,<A2')\<2+S+A>ES.%I<YWC
MG>A(9[K.I"Z**&B=&5[7AMC-CE&V`P'N=*='WP$K>)`CG@*,-Y!"#@4%^Z'3
ME[XW*R:E@7W1*Q7UQ%`',TC+-PE`VI]H]B?SX6J'?X*AE\B6@`#^*6Q>@DGN
M:ADBKQ5)E`FH$8/J]:Z5^(@.=%2,04A2')DE80E"((+JBL,3.Z`N#2)93I'@
M=RQF':$C@^M2`I2YD9*D80UB$$D433!-&/%21`:;(H*XN3H?Z,U<7@J;%`E3
MMGGV<G7L](X9%O<[N!F,<-VT)PCF!H*`XF$&X?&2SA!R4'TJE&T'<F@,(KK-
M,.0A:`>-(B0,D%'$X6&C!=WBO,[(O+PMU(L--2D,.!HE&E(402P5D4)!@,68
M>@>BOYL8TGA@@Y&9@)TTXX$,L'74]WF4!S.0`=`:RD[S^<"H[/PA&GA@%JH>
M;8=7]2H,?8`Q3?H-!62D@QG1:#&L@B"M@RM<6P^D2838T0UX]!SH]DB%8TW&
MD45"R)I:Y!NTV>IW@F5389&&V`'<-:]Z'!T1YMB4Q@ZV33!<`04MJU@^:96S
MA.43&+UD5\UQ3J^A2RT=AM"CW!6'#C]`4!Y>X(8#`39*@F7672]94N_<P`BD
M'<#$TK"_$^3A,DTE;@].D`4+!98`7R@#'I02N=\EH`\@2-G*ZNI8T^9QKZ,K
M@APD\J/`;2IW;TT1J6`B$P!)Y"+/C.9M$X"0Z$Z73Y(<I_&NFUV5H<2LCSUM
M9.DP!96PQ"7L+<I0K"D4,LR7DE%:S!U0<@>0>,1_I7*M25"B3VWV39CU8M8-
M=D#.P(%@0(\II1E&-<@?W34YI$)=ZCQ<2XT`V+NHW6,1?#.JI7"XFVA#PU,4
M-`<N_=6Z+^9<C:P;H`$5B$6_P^Z4JH22,VKJ6$^6`WST\S400TA"(]ZFC8N4
M@`!_5[4[5I*/G2JB*N;A*0!,P9&]5&9?)2?+3$Z#@`BT9"])F4I6LK(9:[3E
M,$;8(!SQ2(F:L)-VTIB>8CN;+L^0`BHDVHPI4%MCLH@"A$RZTHD.9PJZ@P<8
M+,X(!/W:8@84Q36?,YV-[C!S$C`%<&(9TH9.`!,U8DPYT*%2"@`:"%1)344N
M4%)'``!N:@"2!0``F!"<5!0TJ`<```Q@-```8`#0P``&`$`:8$&A`R?Y%`Y@
M`'&@`3\JGJAH`X``B!8`&$!K!8#"2``<H/$:&`*`"`#2&@GC]6^A/Q=!7@!X
MT4#(F1\\`"AQ$N0;/XD,0'#$(&+IM'8H/Y:<`NB-@0D@HB#[QT\I``A2.5`5
M@D$K5Q0<(62#RB%%$ZX;`2!P0M(`"#9<D:`!`,B)K@(>L#QZP>*?O1^%]?D5
M0(G+(Z`#_18``SD(9`%$!3NIX\3*P!\'A!P!,U``C`-2CH!P(Q<:,`@0S`#X
M)^_T%""D`0CP\<&)E\V=!\)P(1<)L$!'%4#C`P#&#P"7(0^0#,/Q\.+'DR,!
MLKSY\^A!I_^%X-@W<"O__"$Y]P"""=8(7BSP^P^08!\ACW3D"$`"`_T%G#&0
M`O\1](9%N1G#P01(&,()<S`TDYP$*P`0`!*!2`(A-T%H4*$`2!2B"83+3%CA
M`!AJV)PV011H@&P`@(!!A00@00@F$"9C(@`%I`@A-D'D1H`01#!@Q$#\J6`D
M`!>PYA(#12`YD`90`K"#D_X1(24`!&JYPX$$Y88##`:<`T0X0,A0P#I!`!*$
M#`2(TV80/0"1W@\NW!E4"WX1`(9@#!@$"0$P*@!#4`#DA@$2;'P65`)]`F%=
M4`'D)@`3WR``CWF<H:<>>^[!)Y]?_K!Q7WX$"1CF0+A@P."-.>YX888_!H$C
M`%!P\&&##S8G(9<4`H`BK<UQZ&%'(8[87(G`5M@CL3"PR("6`"0Y+0!W."G"
MD@'P1^61#&!99;<#5OD!F`;D1@,,!(QS9IH&L.DF($74>6>>_D"V@E\#J`&H
MH(0.>.A`BC+JW:/\*C&IA99BJBFGG?U#SGH!0`#9!?PR0,4C+=CI#@AYN@,.
M("/;2P_(_[@#S$JS_6-O;7G*HPX0P##W@[W^#$>;.4"`0S-S']C+C\[TU`Q`
MT';J0_3,1C]@+SY$B]/SS]#9:T^X`/"07J,!4,D:!EQQ#0'6(/RC#]<&8#V;
M/F#R@W4#_^#3*`#RJ!TWF.A@;8!A8'J#YS_TZ+N8&_\J%#``JOPM#V1\ZB*`
M%84/"J,D!E.&L.,^./8W/W[QX\K&?_O3.2D;&ZP&9)`ZSH%U>=K3'13/=6X(
MZ'GBTSD?M)O=N1RE-TH'ZGX%H([FE`8/SL8K2_0'?@7FH:I_^F6AJ@(^!<_[
M([EI8+`BP.L2@"O$6QB\%1OG!H'!L'0?@"2.=<#<`1(;C(SZ?CB&A!L20Z9`
M\'`X!D&>Y4""F]SQ#W.X1@@0"`(!R0$"!%`!$#KIG`0$HP0@R.8?PG`?`.`W
ML4:A0WTXL!_^R*&_X*G`?P`4H`(+>,`$+K"!#XR@+O@!#@I:<#;"@(P*_`(`
M?I0.&.$`1!!U`AD6\%`=&WL)"#Z`A&#,9"#_J$\@.I:R%X0,,A;@(?BP!X!^
M6,)A??D-9SH5&3$&!P`0\PP:S:C&-);Q/&\DXQKA.$<YNK&.9[PCGN3"0P<^
M0H_$00!DF,!#(&A&C"E(`FU2H(24I>`+_U"'$YH@`KS(@P1X<0=A(KF91"ZR
MD>YX)">=4$G:8+**A9%D'3PI#T8Z$I*2#$(I+YG)3:IR,PU00`*2P`8VE.$,
M86`#".B0AC:4`00H$$,8R``",[Q!#FT(`QU`\$QJUF&:;S`#".00!C><H0PI
MR.5`<KG+7OXRF"`@@S2/F<QE-O.9T<2F'*R)36URTYO@%"<`R$F%8I9!!R#8
MIRZ)L$Z`"E270T!#-[\)@C3\#IEY>($;4A!0<A9!#G*HYAS*0`=B>A,$5'C"
M%$`P!C:\80QK:&9&VP"")"R!2./4Y13R,`<ZE(&E)3UI2M/@!CL$,PUD$&@"
MBN`&F\Z3#F@X)C&-B4PTH*$-;=C"'.;0A1085*A$->HPDYK.=4(T#U`E`QFL
*&E!(%$``"0$:`#&-
`
end