[comp.sources.atari.st] v01i020: autotime -- another AUTO-folder clock-setter

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

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

[Here's another program to set the system clock.  It should go in the
 auto folder.  Source and executable are included in the arc file. -sg]

begin 600 autotime.arc
M&@A!551/5$E-12Y#`&H`^08``)@0FE16O$(,```,+U0T4`!"!0A(`X)4H?*$
M2I(F14"T``%'SILS<L*T`4'G#8@Y9>AP1%/F8YXY=,IL',/FS9@U(-ZX^4@G
MC!PZ=>"X&%CPX(`D=$[,`?%D"4>/;-*X@4D'39JA=](T!2&B31LR=:SF$;&3
MH$&$3=Z026,F31DR('#<B"$CQHRN!5\,'#A"*<LZ9$KR>#-'C%(R+M#XF*M@
M1-ZR;DI>>2*%2`*E=!($!!'#!@B_=.;H`'$"\@D02D$T*7-&8Q@\<0D;+H.X
M9-$$,`A/EE,F#-HZ;N:D.9,8K9@\*8>&<8,VB9N4;%J@S,.F)&329>0,52&W
M\&&E):M,00&'Q9L4";AO>=/%!`P\1HRDH'L],8@J2;A[!X]"N_SO*V34L*'"
M?O<W*\20PGH*L,<:=B"4A4=.*,R1`@@-;C''%C%TD5\7(/3`&1<PG`#>9&[4
MP49R*<G1AE)AI`1"&"`<44031#PQ!4UR*'5&:@4J`-E`*,G1G!L-$IC`&&C8
M5-`<.PRTQT`)T';&4R6"=AQH/<"0I`()W.%4<Q!.F,8**W21PI5-AE2''#.A
MD$8+`E[9!V%I5`29FD)"!MJ52V(IQ!@RO5$''2C(P`*$:;P0`PPIK'!"AV,R
MN6>??P8ZJ)HE')KHHAZZ">=Q`Y'Q!AUIM%%&D$PZ"65T(!!II`I(*EDJ::?*
M(:5((/Q(IJDHH6HG"&CX*<>@)X:8TJ`@\4G<K;#F*NMBC7$4:AE7,OECAC3^
M&"299$$X+0\@T``"'WS46L9,/6A8P[?A3NL#"#8\>,:G'HEA&ZBB1HMEKV=2
M&R$,7;2`Z8,&'0K""EU2V.^_9`;[9TD:1BC#P8SV)##!$<X`<:9,9HO"M.6R
M^V"Q,J'5\(0T7`PP93`,7'`-)I-9!AL@?52&L2*#8"5ACYD!(;ZR<ILRN+SZ
M"L*Z,LR`+I,'$:"PBCZC"\+2):U;0PY'8YDTR,2!T#306*,E=0[NPGO9O,_:
MFP"]#$/(+!$IH(`"SUIS&X.`WT((==P@U/!@N`W.'/+0ZPK8:(XY0T@%2'2@
MC0+:#W:,*-*0$$`;3FA"B*B]\I*!M@Y,#F'L'7.@(`(7<G#A!A=T)#$B:6&P
MX:RH$&:>X!LFIAB3K'Z*](;.&;EQ1ADID&ZZ"(.727F:;0[T9HX[*N`I&2F.
MZN"K3RJ;:I&RLHHG];'."H*X;B!;?92[MB%34RQ`GP<+>=0FA_C=KPT"]"F9
MS7&UXUZ;L<X;CPM""!IJ%PC>U9&QD8%^T,)9^XRDH8+QRU\1"UC**#:A"D'0
M0Q))R\VP9+[CH$%?$WK8!4\VL8)9;(1D4A^U$!*ADHU08A-<6<MPIK$%]LQF
M3K/AT"@3`ZH!#7)*.]\'Y>:T#DXE<#)P&A!52$2@J7!=,Z`;`>-E&P2:#8'Z
M6EO;4*!#'G`+;'5#@1&'R"V]U4U]@]N?X1"'0!0@L'$:>AR6C'>F-%V.,)E#
M(.>PY#F9@$YTPCM=ZE97&M=A$06R,P/MVF`[VL7D3S'AW7!^%[S2N8%XR#H>
MA)*G@.4-A)%*00&!\E2F\>EJ2FF`G_54E3TQU,$,V#I.`J`V*)X-2GW`$N*@
M;$BFM24`@8-"&YE:XKM?IJAL3&)E`GI$(7Z9;3(@<8[.DK`$(1#A=<X9BAU:
MEP:T4(=)]'L6M8X0$L6-*0&2,<CO1)*&-8@!+5@T`39Q9$P5-4R+$`HG['P0
MN':1"6U99`S;\GE,V,GS/&:(7/'NUK#%B9.?WS/C0?$P`_60"6X(:2A`(3JW
M!TTT!A8%9QCRD+2&8A$2!O"HS?``TH4*\7LFC1[@(JK2\\`@I%C2848AY$:9
M0A0$8)QH18NG,:CQP`8I,X$\><8#&7A+J?,;*0]F(`.D@0"JZO-!4N4Y1AZX
MY:I<%:)6P0H"&_I`@*0L'`H.%Y(VOK%<6P4!6Q/W+(>**@5P?1`I$=)'-_QQ
M=)9$'16>M1E,,@DA<:K1<=[FJ^(A5DZ+A9IC!]#7OP82=42(7F$GF]@YV7`%
M.+@CEAZK6$"-D;.0!10:R<37SX4.L*8;WF2_4`8\2`4%HD7G\A+@22Q-Y@XE
MN<-P1%+`BKRA#7`@+DE`4`>0R"$!WR0<,_E%K1OL()TR$TE.+O-*,Z!*D;+J
MJW12U3K71?>7'DEK95][64$6X3BH:DI)`/HV-%A%0G,0TV;)E`#QAJY'Q4N`
M@A@$8#+U`01:2@.7W/BINO8H/P,RVW0QI"'K@C.]3.JO:P$96#J\-TKRC:J*
MN)@'JQPP!?O-L'\;1`<Y!'C`<&"QBPV,X"V5A,%M?+`,(HRSR:RS12\2RCS/
MJ\^TN8V89T@!%=;9QA1XL3)[@Q!"D*SD=9HS!>;!`PPB9P2%/M,@.<%BB-OY
M3B$#]+Q3*&==BSRXY0$:"$%55$]424U%+E!21P`/!0``F!":5)X6!`<```Q@
M-```8(`%`$@#;!T<8.&@`R?Y%C*`.-"`"A5/5+0!0`!$"P`,H+4"0$$D``[0
M>`T,`4`$`&F-A/'ZA]"?BR`O`+QH(.3,#QX`E#@)\HV?1!`;,8A(.JW=28\D
MIP!Z8V`"B"C(_O%#"@`"5`Y2A6#`JA7%1@C9G')(T42K1@`(G(PT`(*-5B1H
M``!RHHN`,BR/7K#X9^_'8'U\!5#B\NCG0+X%&#@.XEC`4,!.ZCBQ,O#'`2%'
MP`P4`..`E",@W,"%!@P"!#,`_LDK/06(:``"?'QPXB7SYH$P7,!%`BR04070
M^`"`\0-`9<<#^!+@QCCX\.+'D0!)OKSY<Z#1^_)BS-NWE7_^D)Q[`,&$:@0O
M%O#]!PBP#Y!'.&X$((%!_@)G#*2`?P2]4=%MQG`P`1*&<*(<#,T<)\$*``2`
M1""2/,A-$!I0*``2A6CRX#(24CC`A1DNITT0!!H`&P`@8$`A`4@0@LF#R90(
M0`$H/HA-$+<1(`01#!@QT'XJ%`G`!:JUQ$`11PZDP9,`[-!D?T1$"<"`6>Y@
M($&WX0"#`><`$0X0,A2P3A"`!"$#`>*P&40/0*#W@PMV`M6"=`P`Q@`@!Q'P
MH@(P``7`;1@@P49G0"7`UP#L5`=4`+<)P,0W",!3GF;GI;=>>^_%QY<_;-B'
M'T$!@CD0+A@L:"...EJ(H8]!W`@`%!QXR*"#RT6XY80`G#CK<AMVR!&((BY'
MXJ\4\C@L#"LRD"4`2$H+P!U-BJ!D`/M-:20#5U+)K8!4?O"E`;?1``,!XYB)
MI@%KM@E($73:B:<_CJWPJ`5^`@J)H`(6.A"BBG;7:&+V2%IAI9=FNNEF_Y"C
M7@`0.'9!8KA0\4@+=;H#`I[N@`.(R/72\_$_[@"C4FS_U#L;GO*H`P0PROU0
MKS_!R68.$.#,K-P']?*3,STT`P!TG?H,+7/1#]2+S]#B\.RS<_7:`RX`/*"W
M*`#87(V!5EL[<S4(_^BS-3%7QZ;/E[I<W<`_^&P-2]IP?VG*U080]B4G=_Y#
M3[Z):=!OH"\2TK<\CNVIBP`"#/[OBVP4#(9CCNH2@#J,]<T/7_RXHG'?_G!.
MBL8%JT$Y7P$@4QV>]G`'17.<&_(YGOAPSL?L97,N!^F+TG&ZY98PUA/J0&C<
M@7('1%PP'K\'H`=C2+@1L6,*H,X&8Q#@60X2;;KSCSFL"0%!$-Z3`P("5`"2
M$^=B`*8$$+#](\SQ`"0O\:*8-$\#]-*30SWJ)L">]KA'ON^%;WSE.U_ZUJ>+
M?L#`??"+C3`<HP*^```?I`-&.`"QP9PXA@46-(?&7`*"#R`A&#(9R#_H$PB.
MH>P%('.,!2RH"L8T;"^]T0RG'I/#WP#@89SY80^#"$0>FL>(.Q3B$968Q"(R
MT8=.O!-<+(B^1T11.`AP#!,L"`3,Y#`%29!-"I2`LA1\X1_J<$(31&`7>9#`
M+NX0#!HS`T8QDM$=9IRC$]@HFS>^<#!IK$,=Y3'&,IXQC4'@HQOA*,=`9J8!
M"DA`$MC`AC*<(0QL``$=TM"&,H``!6((`QE`8(8WR*$-8:`#"$RYRCJH\@UF
M`($<PN"&,Y0A!9`<""0E24E+8A($9$BE)T$I2E*:$I6OE$,K7QG+6=;REKD$
MP"ZIP,DRZ``$THPD$81YS6PJP)L)*((;Z%`&9=(!#9[<9"<_B08TM*$-6YC#
C'+J0@F[N4ISD-"<Z@2G,3^8A#^\D`QGJB4U(%$``!@``&@`_
`
end