🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.sys.atari.st
Article #24645

DATE revised

#24645
From: silvert
Date: Fri, 30 Jan 1987 13:15
281 lines
17795 bytes
Here is an update to the DATE program I posted recently.  Better error
checking and improved self-documentation.  If you didn't see the
original posting, this is a program you can put in your AUTO folder to
make it easy to set the clock.  It is designed to require as little
input as possible.  The source code in TDI/Modula-2 is enclosed.  The
file is arc'd and uuencoded.

Since I use Modula-2, I'll add my voice to those responding to Pratt's
complaint that if you haven't got full documentation, you must be a
pirate.  I have the Modula-2 developer's kit, and the documentation sent
out by TDI is grossly inadequate.  I have to rely on sources like the
much-maligned Abacus books to get essential information, and I get angry
at the idea that if you didn't buy the full Atari developer's kit you
are some kind of thug.  I am eagerly awaiting a decent book on serious
ST programming.  Also with regard to Modula-2, has anyone out there got
release 3 from TDI?  How is it?

begin 644 date.arc
M&@A$051%+DU/1       O0@  #X.UT 3)7,2   ,39X0J<*D" @B8>B4D;,#
M! H5(*:D86-G(9V#"<NTF%.&#ITT;LZ @"/GS1DY8=J ,/-&#H@@5:@\6?F&
M#9F%(%2D:*" IQ$I3YJ 2.+F29V+29I >2*%"@@I9<*08?$T*IDA8>1,!7%%
M3AJ%5+M^+8-5*PN>(" 5$*MP"AVO(<-Z5<C$#56%<MH,04*UR!,F.WCZ!"J4
MR9N01(TB5<K4*52IAD.6)1.XIX*?02-FF4*EB-"D2YN^)"*%:A BI(M,F5*9
M)^C&((YX)O*$M6 %0YXXX0S"R,0R3E*6 =$#A(@@.KC E,F%2)#.+J!(.2*B
M<EH#6806!U$CA@SKD+ 3(9YVP(SO:,-3T0Y"!@P:., ;H#*%/"3SZ"U3R0+%
M($(J:;11!A5YP#%<<5(4D9L41*0'P4<"@J #"$,$P6 23@0!F(-D9"0AA182
M@:&&X!50A!-$M*: %1:"T"%8($!8!E5NE'''AQ5>F.&&"J1%@!%UL,$&0@I]
MR(1N1^288GH$Y!&5'%2U<1@=:%#581Y4H?%&'5""T 9(5'$T!HXACLBCCVXX
MF16-4KI!)8U7TJ@EEVR"1*:.)#+Y7X!E"%&'&6;@-.&> A)H('@$(!&&&V2P
M,=R$&'8FFQ2(4E'&'!=-*,03?Q41A!,J2O?$$$4,E"!7<Y4A PINU-&&&(*"
M "*>3*30D$,0@7!'JB"$T5X+9*1QQE<@M/KJ0NFM<,=7:("@QT)OK#01&SGM
MI( 011R!87H()&%$L:["ZA(/(,0  PA4('%B>@NP508*)\!P@JWLNCL9J^$N
M1%4,]/8("0)%,#%%$?6F>J^QXE(E0[]I 8QB92>.YVY^/&&KK1/<RM8$;5.X
M<$1'1+[[8AFVXAI1'IB6H=+((+30 @C$IC$'"(X.2\</0YD!PAQO4!5''5^Y
M4"VWWCK$L@\@W*!"=BF@JZX3L<U6FPM/V&1I7B@T'3%X"&C,L<<= 2@@"C*6
M_-#)*:LDX]"6->QN70V][0;7[KH%UQDHB.!<9RV_S-%%<Z"LD$ICL/'&&&NX
M($+)D$ @-]VIV@T2WL>! $4=8K"1QIA$O-%&&'9"4=))*8$@1AX@"#%M1!-5
M) <=+"P>=ZIP<UOW6Y/G?5-%AAM(AJ[,HBOB"TV\04:08;0@@^*,-_"X[9'C
M'E+>5* A,\PSNR[T\C. ,(8<42GT.PXWO !##"_, (/L;M,^]VT92]WQ$P:Z
M@8)OC@8G(%4P4*4HHXXR&T3.T)$8H6$X:\-42N# MH85[7^-&@ZYO#8UORS!
M:>OR5[O<-[NQ2&YZ(L"*&]SPAHN8 22_.Z&CC%.RV]WM?K_1'\G L\&QP U5
M'I0>Y;*P)2_5 5,P<X,"A63 ZY'$)"A121AFMK<BR*Y@-IP;#MNBP[S9B4K#
M6<Y,6&(3G!P&!'G8DDO$\(82NDAF:WBB!A\WQ3)\D'*=*^+,%O6[MZ N#&< 
MG1N8UT&ZO&^-'&SC&_/6@OL@@5B+0MT:RH Z.D2K#'CX2B$'P+[G:9""\[/:
M0MJ0-:YM+7X;FQJAW@5!1YF&-"@8I9\ M9 44 63+B @'?K%K;,YX0TW&H/G
MX) 5!!XP1G>(EHSF0)4?#N<PPV&)2WPEAB4.1R=$^Q8*CH81L?7I3X&2@PM&
MUC2FI$<!*)BFAXJC2FPN9)L9:=JGQD,V/H$ :>5DI3;+9JV&I>M$@JRB"*8@
M.)6YR$/74V/# C:P?+Y0!*(K@QW2L*69)9 ."\0>"\'3 );I@)QAL.8JLXE.
MA5!T;1>M)I\V>DX9>?)AW*HE1$B8R\.X[B)8_&>1Z!@C=RKSC'.  QO"@#IH
M^@L!:G))>$+*,A%9 039X5J;J)26 H14G$4*R'B8=I D'#4+2_KIE=)R *)Z
M2*I(S2JWYB14 X1T;49%5Q.4:B=(=+4X[8P06-?3M+32AVMBXNI9W3E7V[3M
M7_;*"AE0$-05X*!_[6EAJO+V@DJF:E5+18-BQ\)8@0+VL>+,PV2I>%!9.78L
MJR+K9M\E AU8%@$30\&7W##:O)EVM*L2TVAO:,GVY?"@U;O>]6)Z$S.$(4@7
ML4,8V%"'&?6*4< C(JQ 8$PR?-:/D+MM[D20!IV%L0XNBA8)+U(&-^'$5S6Z
MD7")6P8^MK%V/W7A=)-@W1YZCE@QC>QQ?Q=4JC0QN6QX;AG0:UO.3G<,PQT#
M\HJ$197<]+HK*8G:?MG;W[*!#N:M[66CJ"(?):@_SX&>=$/B$!$4P;LN$; <
MP.<FF0['3LK\W$6VD(<\M*$-72 #&29TVL>0(3)GF(Q#>A.D(7EHMG]L6)J>
M)*'B*,E,]^MQR*IZ5'-!@@ ,^Y<;Y!O2(^\HG$ 2TI+!ZF0H,[E<,(!!E!' 
M*)X6>58BNG*6?1Q5@8!9S(BJ@A.HD 0F.&3*4VH6N6(P W6BZ,Y;)==Y_,Q.
MO.@%">3Q2ZT05;0U+[DXY[HGU.+)48L6AV5G:Q41NVO'!CZ9H 8Y&Q;!IZLE
M'A<$G)9#3ZV5G@04;<A9>2<(#HM!J 7US+!VR<L.VVJ"OOK62(OTT\!(Y)#F
MNM<"*QJKY!ML0M]9ON2*;-,D/10G#(&P3ZHG)!+PR;^Z^EMX=E.S@EUK+^49
MUY%%]A1>'>A_HD[2Z6D AJXM;8H6C=GEDD&YYXWMK)2," I2;9[WM3 01*S7
M*/4VI<]I:6)G96E"68&YQ;VT\4B\S'E 5+>9=&%/44'#_N5PWCZ,EY& CR,E
M7AN*6Z)B$* !#2^F\9AMK&,4%,M&(  RU]Q 5ESC/*WF@L'.5^OS&W$YS'&>
M<YWOW'-RR8 &SEZVG<AE S&_Y,]DV^1>$OV7*!/@U3B'=+D7/D]W[C5"F>XQ
MJMVD:D\3 -0B%1!)RQXA8Y-5!>L!P<57BW>_^JC;/F(2+*< LHRD,J,C-:<V
MN8FHP8>-3X?7J.)=4+;&R\\%HT1!*8U[&BE$/O'R=&740MFQOWG=4D ,*2R'
M8#B.:)Z. 511Q#""%Q?P!!H(1$%412Y04D<       ,D   ^#OA #53,,P  
M#& T   0@P\ 2 8"*#KHP$F^@2M0#00!X$B1)E@ -'E#I@Z;,"UDO)A"!02*
M,2E #'D#)X^<-&?0T %!A4@2$%/>F*%S)XR<,B"8T"'C D2,'#AJL#"*U$91
M %30 *53)DP;$#I4HGDY!P22,&S8+(42QJ/*.G+HI)FS-(P;,B"@H$G#1J55
M."!< -@RH\N6C1T_A@0AI8X;FFG: "TB1\X;.5A!\)$, E*"$0#\/EG2!8 3
M*P.=>'%2!\072 <!P))(0 R#<8"@240 #1X"S]"BH0. ( LB)]!$ (!CP,D1
MTI__H5,! $\";81Z%/GG3X4#*(5:3$<'Q-T_?"V:_*/7PLH_>$[0M$#RCYT.
M%]09% %PX(R"]_'G(S!#H84; !+\HX\*\*&#G7;*.:$/ $C@YX]\ #Q@!@/I
MM8 &;P(J"( ,#D((P81"N")@B.=IR$&'\R50A@(50I'A@@CX!X " B;Q$$&$
MX""B/T*P (  *;@A(  $Y" D/KP%.=Z,2L(#@ -*L@-@DP!8D(%! 0"@@0M"
MH@-"#@/% ,@+0/SH R\#L6!%>KXY 883<XB&G'FV""&D+0S\Y\ _MHQ!@(8>
MX&?+.$4DX9TX0M !!0!Y/LDG&09(<2<8Y!CZ#S J,("@,I:*DRF"SECJRZ?3
M26,I+Z3^8XVEN*2JC1[_(.A-#P;1"(R=_PA#*P !_$,,KL;@B@P(/!PT #*6
M*I.I" 4X(<2N3ERZ:Z^Z8NGKM/\$*R0RM ;0JR^P(H@+L<8BZYVR###K[*XT
M2&MMM;Q>:ZVV_W!KK2\HM/$//TFP\X\FJ8Y;+"3')KMLL\\:-,&EN,+;ZZ]"
MTCOLP 6?>["S3N0RT %8P,'$#YX%(6<=R2'R0@O[KA MOP\1S,<1WFFBQPH6
M<'-%,_OBR@A^C%BJB1(T+'I&I$(R @8[/>01)B'_(((?(A J0(8$//N< 9HP
M+*HA"GK @ < .,"'""+\S"@ (0/]TW39"B!!!#9%5!US!H0L*ND_C'3]==A-
MDSVCVW#+_2_==A=MH[&HP/R/(WH44//-.0NI"'Z*6.H(WXQ@([GBFEQ RZ)E
MWCTY?)5[YPC00@L AC09#Q2 ,BM\L>_((#P1!#K_ !(),+&T0Z08!L@Q ''&
MD2;' <0?800_)P#PPLI.N-'""S_V<,'T^R)ASKXB1 &"(RPDP80W/_SS@A?[
M^N#)^3\Z808+;\P^Q_+-/S^[]-0+8#WV_&C/O?>..,*"5-""!?2 !QD[8/,.
MN#P2@$]\Y#,?^OBA/O8)P'WPDY_]^!&]Z0'  #V@'@'XYS]^F$8$%R*!","'
MA/&5[WSI6Y\7VO>^^'%P?LP#P!1T"  S($  5\#'/P9Q!3CMT P$\$$@C-A#
M RR/(DQ$HA/B$$4%@"  K2,8-^"4'B& PHM>_%*8>!$" 'A1!4A 3=E(,(0%
M&2 $"0 #!%I''RR0BV ?"YF;.N$,(&+C'UP$#8/.81 1Z 4!)- + TP0 !0$
M0 4"<!L2BB ,81"#&,8H!C**@80@2$,(0BA$-@HAC2&,LI-"(-@0D" $) R!
M&H.@!B%:$ 1&M4 (O&'"-P#@@Y%]9B!(.,?7#,FH1/*&%F@"@-K$X $A#$$0
MPD"# W 0 "$$H9/0M$$ 9$  :+I2F];L)!B:.0AMNC*<0<!!L1XPCD6,(Q*R
M$$09"" )04AA"%%@QC_DT8(AV+*6"- E #S@2T$&\Q, 0($B67#(<7!B')X 
M 0%08P@R"" 91K   8Q1K #<AF!G(  "AL&K<'!""$70  &L0 QQG)0 X?"$
M$([@ 0-8P1CBD*D!8%  U!P!%@;!@!A<  Y7(&  O#*# K!140*(@Q)2* (8
M.( )0ZP! V>P "Z2N4P$:,(@$'#;&@PPA2*,@Q%JT <VT$0P0)#!J5 M@A (
MH 1"F$$ *%5"$=Q  "$0 @P8T(5!_M$&!,"A61HC&#7.BH$"@(,3XIC 4UM 
M!$8)-!\CH]]P )G8 6P1A\V#@S^RZ%DX:18.'.SL9T^[#]*N-H=PT(=K30M;
MS*HVD/O*RXRH)X-#_B  /RA6LYK ' 3QXSV\@= "Q& !Y"*@'(6Z40R D0(1
M\4-K"\* <PDP'Q! ]W $@4=U]Z6UT9!,D"\ $T&8$5P #(".!Q  %QZ1WC A
MH[T7U!A]Y$M?]<: &NU%[,;X6U^"8*.]Q=%O?.=;X!APH[T'@"^!_0N.]B) 
MP@Q6KPP8T-X38+B_ Y$! MIK@@\7F)OM+<&'?4G%%M<.!!<B@ H0,()BA(D/
M*% :0?@P BG=AB#C0@&C9 , "A"9 SD.4ZM\9 !H%,( @' = %P A&\@@WHO
M&#$ VJL$)P3A&V4C& .2O&,5^ @!VF %H])<9#9SH,9C?$&Q/LB+]KY7P02>
MLP%<@5\3ZUD9 ?;S0 QPX&(E>, ,UK,Y("SH#]+#PHTF@#,Z'&D.D#C24$CQ
MAT=0-O<J($R @$.$CW,C!N@A.>) +@0@!((R:%<O%("0 ,K@ .3&>CXD$ ,!
M]!  , A #PG]#P(P4 @4"%L)%#B#ZOZT('8 V]8(0E277J 7"U#['^*@8P$<
MX8)/J. #TOF'.?!CCJB100-=TX:0S,$W="0!31.P%#LR4(@R 4H/Z82/.0A0
MV:7&K4!+@+>\"0> NZ&#VE6Z=K;UNVTL/*(%7ZB2$EQ1)66#01%*T(L$LHH?
M= 0< /'VSKS1U +L?G *7>I!E_ZACHY_/.3MX9LZ,-&E)% < B;X#P,\!SH=
M=DD)76J#ZJ2!'W5$=0DW-S:CA! TSY@W.?! K@5D36NI0RC7N^[UKX/-&V(K
M'0'(MCBS ^!L $@=X1!X@8 !L.UN?SO<]GAVM=&N=FT[PN$0/P^N^*%T!@B!
M$KC2!W[TH8O_<$ ,KQ80T@& Y/]@ '4 &-K=] $&;P@!/O_(>)'/H -@+[[Q
M ," !F)=  "L0*G8XN""0.!YBH->]*0'0 LFE/H.6.L?@R_\OOS$:U\#^^O$
MQ@\_=*\/,BC@ZV%?MH("0 #A?U[I&,! TQE   "$8474!X >="V ZG^A T3X
M1SVV)'X&E!X&9>  ^>MA?@#D0 P2T%OHX5,/3!2A!^''AX9DL/[V!P$H_5=Z
M6L!<^/8U&$!_]F< _89_WZ$A"/!U0D !R)=LM08?^%!X5?)6O;=UP%=LQY9L
M7M!W*D !NB B\% &%B"")&B"9E"!WZ%[]J!K&_A[PN9U'W@&7&-V%K@WU=9W
M+T !+_ G#"<$#J<-G]!W*% (=Z-Z_H .&:<V9^  *D@$'L@H2>A+-_)#O^1T
M#C$0#L &6R@$&@8#!94SG*=(/U  7X<$5$!'#N  \]4#LN,/R"4!4<4W_H +
M13 &]Z%Q415N/"(DQP4?_E!6:0@#\,$/L' %;\!L & "PO=U?,,/.?<D/ < 
M98*(^[*(;$ T^P(&W$ %C^ @&"@!8@ !#J)T#I !^B4#6<.%YS4B9UAD::AT
M8=6&^O6&<3B'0C"+#E"+_]$VN.B%</@(<K@OPJ=NU(&!#D &#.!<NL</%@4&
MCH@:R2@D_A!N@G=(RN@/AW@!L" D^N G&J("@Z<)V*AT"L W^E")"G")F0B.
MX@@I*"<@8( -HAAX#F*(!:")^K"(Y#A @V>+[*@YO.&.\ @ _KB(D#)Y]RB*
M91B(U(%<'-:/A B0C@@#J5B#38<+8TA[V/@D$&E>FN@/#.F)_K ZHDB1?S@?
M#?%TI48'6TA'#& (<G(C$J "6XB(O $R7E9<\\$B3R=(/*EE/*D /AD$0,DH
M!341AT0]NL4 U,.3$  R/"D!2;F4%-"4 *!;"#"5:!@R2_F2<S(010DRNJ4 
M8/DD62E[\S%'0VF6OJ60>H&47:E(:UF58NF6 %*&_" $I]"+;N@'HIAW'!27
M9G0*=C:8HOAM'>B7@-E>NZ8EOK5V#D )>"<[ASDG.:.8P@5L6]*3EHF9#Z>9
M7!F9Q:*3N4B8C^"8PH8#A0"9GFEZ/W!(;DB:AGF:L\D"C-F:'R")L3F4G=E>
M+5";O'&;F3D[B(F: , #JI@I:F><%)*+]  %O@F<NME>/?"<4ED TNF&U7F=
MKQF<99F8[>4#QGEAN4B:2O )2#2# - !09F=Q?(#Q@D!/@B$MIF+L/ $[V"%
M.H<"GT"?F'B?^8EPZNF%_?F?8Q:@ [J<LQD$7P>=EHD-\]6>[ZEUP":?3T*@
M0H!VQND H(F&:_< %N"?,_)U DJ@2(!PT^F%%OH(*OJ@Y<F<28"@;ABC&)IU
MOA>?\T$APOF7LVD%O<B=:C>AW>F&"VI+IAFDFK<?),"<5X!P2*D7O]A1=&2B
M**H N;EZ4DJE(2J8^J6E_\FE38H<-^( 9C"3HW$C&P .+D %3; H<3JGGB%(
MR*4 &(@ 8^  *C<C3/ET"\( ?WH;0%J>JAB!/4(?5T(D'_0"#( $>' ;2, &
M[:-?$> %UHD"7P K*. C H +A6 &&@"IE>@ 2# %'X"E^F4!Y#!?G*HA0) #
M?* VO &I'5:I,T*1:5B)")"J-$D)*#IF7["H,2 $:B8#L)("\V$#0F"I/H"L
M9N>7$$@!BWH &L!D"%!Z]:%\"X(:S^8C/F!<$[<O8J<A>H"K9X8$@O@"H$I'
M$( -6\JI!+(O>L4&'F"JPI:JJPH <]2JKRJC7^!+ Q2NO*10^R*J9U"JB[2O
MJEHL"5HE 1NKYF5F9J<+R3H&!I "EJH#&[*LS?JLO(0 :G8 'U2&]-!W2J!A
M0' &&""&(08$^LHHP*I?$D /#L>IBNHC!V"Q.H"Q&U(&#%N)D?JP[D5'K@JK
M [L@R^$C.F .C0 .C0 '"Q .I6!<]3I\:F8#Y[H@@C"S14M'-YNS7Q!V?V)>
M2E(V-@"IU\8//W!F0G "[#H[F H#P\JI+6 0O*%,^*"NO#&W??NN^@4!K#"O
M7U"O^'"O0ZMS_%HL_SH022NP(P.IO>BS E (&_,/496&;\M+8@L$#@<#O_D%
M(),#$3>NEBH XY%SXV&Y17  _T "PD8!LV W:J8#$=EW;#BWG#40$_ Y,JIS
MR&8&**"[5#"WHZ5?OVN=(TH=!HAYX? V12")A("R?:<!+-M^ ;"P$U V6;(A
M,MNP-#L%8HNS NNS4"NU5&NU6)N(0,NUW@H B@"V-3L08RNP9CLR:0L :RN5
MB=BY"!"W<YM: Q$!=LN@>*NWM_$=?ONK1^*NESH0A&NXB*M74]0"EFH#^\*V
M_PNW<BN(=&3 =_L%E'L&EHNY]*&Y1<"YXOJYH3NZI7NZ&/PCJRLD]."ZL'L!
M%*< BX( 4F*RD7*[3VH?/@NT,J"Q'&MV&W+"F:L$HXH!]$N^-FN^G)K$'FL#
MN<NX5)"GX- $EYLV__ !!? !^SD0%: #FRJ\%$"JQBMW,R+&9'R<^G7&ULF5
MZH@!% =VAW0&#-"H67( /FPLQ8&87Y>M'[2M']2U & (E'L"  ROA""*$#"Z
M'P  2O !9]"_<9NKELHBF$H \S7)G%K)E^RR,_NK4Q"W2#NQ2QMZI]RXO++*
M2MO($)Q?!>P'#B?*7T#*'S!%&B(&KRS%]DO%9;O&,-#(CSRXD?P(NLS+9F!M
MXHO*_8I% #O+?G<"M1S"N,S,E&S)O4Q%06J+,QM64X!<OU@ [EB_ &(&ACN\
MWAH $@"IYMRKP9BJO:BK$0L!6C#"2F"I"- &0-"HU6< E*N89]:OD62I,A#"
M!VR%).QW!LT; @S"=3O"&L()0TP&C7H;!/V,5DK/?Y/*9X#/\-K0Q-K/O,$&
M-$#+@GO+N=S-ESQ%XPS+U RYK$RP&S+31KMVD<NI+!W! ! !V]S,WCQ%2I"L
M&=JC&3 ?$1;.]3R, $+%P3C#.K#!UYS,$KS,1!W3<8"KQ2*WG9R>)#VX^XS 
M#]VVO3C1=%O )DVQB"ILAFP  E!Z#-!^!' &(!#( G#(:H94'>VK]GP&=)0!
M3*"TU K73#;7C-)^"' &(A#(?DVR/_*HT9RJ[573 $#8ANW4C"+9I6< !,(;
M1CP&#( !:/)>@DHD$1C:")"^4UNU5SL=_)"U[[NP45R^9)N_YL7!^P+ :DW 
M0=W67Q D>ZL#4:S*U2RYA*QS1"L$$]#<*T ?<8W( G &<C#=I5< G.?9'X3=
M1'(&$&"P0."K%A";V17%TRS+DKL@+!#%@"W,( >\G!K( PULOJH!$Y #\P$$
M&@+%XENT_7IG-KW9;STC[NC<!Q[=V*JMI3< 9]#>XMLVJGI(WEW=/+IU8DQ'
M=+S>KASAL"S@$DO@)(.3)!"&.B8#O=2F \$!O"E(5-N63AQ2\,FA%X:8<*!E
M/\EUPT:>(SX0&Z -7<AX3+"%$#"7<"  28F%*UYB-\(!6!#D'& $<. 9^E5]
M6\AI*PX!(28$6,YX,A!B1M#E&R /(=9E*CY0<K"%:PC5'* *.?N!=P4&Z,"5
M*QMB4' &$EB#K?@$,+LA4* A-!"W9"8#748)I9SG?TL%@RX$3D":#EBM7S<!
MU!!B3\"5<?R )VX$C3Z2Y=FO#3#HFDX)HMBOQY?IF_X($8DK=$B(&,@ 8H "
M&\D;D+>PL8X ']!T=-0!4/$(=Y.2SI#JV$B*.B<&\:L-2'#B3D!''* (#H>]
M(>8$[0<"9F  0$<=8Q"_L.#L&P+MI?<'?*SM"\W89D %U>X/8W#)Q;(!H'[J
M_4H$ZR[JC]"O)F'J\-ZOZD[OHUXL[H[OCU"/H[4@1 #NW-Z58D !M<YTY84<
M"T("M<Z*S[XH'Z!AR:Y?NBZ*O:X@_Z !2LYX4A"&&O;G9XX"5C $E>ZQ4-#Q
M'AL$58 %'KM75 $9)Y &;G "TDX79> &5@$4/D 1+E\&,/\&=4 '-&\&-H_S
MB@$".S\<MNRHR2&1J[Z,PYYX_K!X#2KK32=YV%AY*D<='6I><%#3BG7D=&3E
MYK'J  (A T & 0QK(Z/JC3( UNZ(.N @5"^)A&AS '*J%C #96(+5[_V138R
M;T\=#9GUR&![O!+X7@_V T -Q%/E=RH@=0B,3\*&N8X'\S4!-[+0(2;2O*J&
M^PK5'B ,NVB&DP_ZE2_ZI&^,<UCNO*>A(&=C&R(%=3[[BNP)^U@$BR<!JBA]
MBY)]+A#GC@@(#J*,_! V **'54>($!( K]^C$R#[,D#[&B8%9P %@5?M_# &
M+#!X=?^:=T]Q$G"J"3EYO5Z/_  &SB#L '**="_^B8KK7L^;D)\<U( KU( ?
MU("!%B &#0(?U+!X*?@?$C#K-J#_BY>"_R$!OL\HU7=]"I!]VT< W0< 7Z#_
M'Y<"EF(-!'<WU  &KJ#_'Y<"EF(-"&]&CEPL*3"WUF!GQSX0'E"]^O4!!C"L
MI:P!B4H!W9OXLW_':()%"V()FUPL*3"WUF!GQSX0'I (=/0!!C"LI<P"O8\F
M A":"*"]2;UUT1]B4G#'K=CQ"\)*CEPL*3"WUF!GQSX0'N (=/0!!C"LI0QZ
M#F#:O-*]B3_[=XPF6+0@QZ<GIGVT7D_E T'V U'[,H -9\!_&J8-[3< 9B "
MQQYB4'T!!N!PM2\#5)#46Q?](=;Q"Z( W9OXL]_G,H -?2X#0.[U5#X09#\0
MM2\#V7 &_*=AV]!^ V &(G#L(68)='0!!N!PM2\#EI#46Q?](=;Q"Z( W9OX
ML]_G,I -?2X#VS R4S[V=SH0M2\#V' & :%AVM!^ S#NM2\#6V ??3[](W/L
M(:;HH4]'&H ,UEG[,D %+5C(L:< <6X-M2\#5)#46Q?](=;Q"^(&H*EAVP "
M D8PMG 0\64LSE+]&H($:Z[LS/X(W9OXLZ\A+K#F66H%#M>]B3_[&K*5,%(E
M"LDH8M]9U# R8E__95_[,H -40CNVM!^ R#\%ZWJQ][Y="0"GM#L&C8%T6X&
MCU?]X'WLG4]'(N )#@>*[._J/%#[TW\&- #N4Q#M8P#KA/C]O.'P&S(%A4,=
MQ][Y="0"GN!P8* +[._JJ$B(WR_1N+X@X@":&K8-("!@!&,+!Q%?QB(,?3[]
M&L(+G[_FEY_YF^\$G=^]B3_[&B()JG[LG9^E5N!P[._J/%#[TW\&- #N4Q#M
M8P#KA/C]O.'P&S(%A4,=Q][Y66H%#@<&NL#^KHZ*A/C]$MUTW9OXLZ\A6PDC
M58*)C"+VG44-(P,')5[_YO%@Q?(!<[M%^C4"@G"AU<]Y[?4!<_M@Q:( <2MG
M8#S QQYB':]?"D %*&H!M3_]1)R(V.GU5#X09#\0M2\#V7 &< #NV]!^ V &
MYW9([=< 9@ #QQYBEN#I=+0!='"A&F8)9B !QQYBED#J=+0!=#!?&D(!QQYB
MEG#I=+0!='"A&F8)2;UUT1]B':\/ 4 !H8D [=< PJ\AC*,E&K8-("!@!&,+
M!Q%?QJ(&GIZEEI#O,Y*EEB"*W9OXLZ\A74;Q%M"]B3_[&H(#GIZE=)#O,Y*E
M=""*W9OXLZ\A6PDC"FE&C"+VG44-&H('H*EAVP " D8PMG 0\64L6'#I66H)
MHMB]B3_[&D($EY[KN]Z]B3_[&L("EYZE=""*W9OXLZ\A6PDC $ "S<DH8M]9
MU# R4S[V=SH0GDY')8 (G%X'8E__9:_JW9OXLU_[T\]Y[._J&DF(WV_U0A,H
MA/C]O''K6J-?)8 (%I_UOC R8E__9=^+\XSZPDA'HS]?SJ4)7P"(W9OXLU_[
MT^^RY?X&$B#O=%0"B""*_@X&X##/J"^,='0"/C!?(P,'JCD09*\J;JR6WEDL
M"K#)7SVWV#"WUT!'": "*(J57SVW!U;& ' "G%#',#D0'L &4S[V=SH0?2X#
MV-#G,J -?2X#V=#G,K --SD0*:#Q9:_J[._J!D^(R'?U* D&XK#U_M#UG/E@
MQ?(!<[M%^C4"@I#YFR\%(<8-M2\#W' &.-!>'S"W#U8L"A"W<O8/D$   WSL
M(;9%^J4 5("B%E#[,L -9_" PH8"UK7Q*/#G@G23$.$*1! $5% $(- "+0 "
M<U &,S$'>3 '5'$58\ &;S &:Z 701 7=2 &;) &8P "1/ &;1 &,A\7CF'=
M5@$"8I '(" $=%$74T 7=N#S=. C9% &=E &;, 290 7=Y &=( &-&$3+P 8
M'@$2O045<]$5:P$"=N#S1=%;,P "8_ 384 5<($#-_ ",! #+S #,   0: #
M7*#R5/ $7$ $04 %1> ")W\$ # $;N$&;S 31/\6-<\&0 $ 60#T(- &=3 '
M,R'S<T '8%$7=# 770$'CF'=5@$"8= 51! $5# ?,@\"=" 5(*#R5/ $TOX&
M;$ &/@\";W 8>0#TD"$&;_ &,T$&:[$& $ $;P "=# 77>$6<$$'<I '(! &
M9Q &,J\7+4 P2) &,^$6>0 ":U &>0 "=/ &K88':4 '+4 P.I0'<T 55T$&
M84 5(+ 6% $%/V$':0#T7:$61S\'=' 7(+ 6% $"%!$5:P$":P$"=" 5($ &
M96 &9<$&,V$'8%$'9= 6;P$"=T 7=2$&0%$'<U &9   :6 &() '0 \"9/ &
M(. &;S 3-__R(! &(. &97 '(& '8%$'9: 726 &() '0 \";] &:3 3=" 5
M(- &;^ &=( &(. 6<)$'52$'2T$$04 %10 "=T 7ECH&8#$&'A$&5 $"=" 5
M5V$&CP$">0#TTNX85T$'4@$"9% &9E 6;$ '>M'SD#$&:/$3;C 39! &5 $"
M,B_MC]$&83 36Y '>= &;= %9$ &60$ /0\9</ 3<W#S,Z$61R_STOX8;1 &
M,X$&:- &;9 5PT'E T'V ^%<Y@8"_4J&^E4"B""*Z7G9=(0"".!P&H*5OE4L
M2X\"".!P&Y\"%##E8W^GP'3BWI"EN.!P.J!AWB ?#@  &INE/G#L(08.66J^
M='0"(D!')R "[84!QSX0*5!B^G4"/C!?='0"(I"K.I8"_*U?)^ #\T5')R "
M[;4!QSX0*9 &='0"/C!?='0"(M!>7J%C*6"3^G4"/C!?='0"(M!>#W#L Y$"
MJ'#/.C8#2Z_/PZH$.C8# L &\>L)='0"(M!>8:5C*9 +='0"/C!?[?4 QSX0
M*8 *='0"/C!?='0"(M!>)'#L Y$"RT!')^ #\T5')R "[34"QSX0*1 /='0"
M/C!?='0"(M!>%7#L Z$"%D!')^ #\T5')R "='0"(M!>&'#L T% ='0"/C!?
M='0"(I"EZ*E>,R  X"4#U=&=Z8VIU&"=.J!AWJ +.C8# " &)Z)AWJ +.C8#
M/<3P&@8.NG#BYFX![86J.J8"QZ%?)^ #\[4U[64!QSX0*E!$^G4"/C!?,W C
M,V L,N -,[#Y_A!BX* #&N8-XM $73P#TH\..J!AWB  1= KZM $,R#]+:=A
MWB  \_$!,R#][J%AX& .3=#%,R#][J #&@8. O"Z+-<$,R#]4:=AX"  \_$!
M,R#]\J #&H8.!C ?F>:=Q;+T*(  #M>OSZ-?)8 (HO@#&J8.=+0"7I#OSD-'
M)8 (HO@#&L8.=+0"7B"*EWWL Z$";T!')^ #\_4#&N8.=+0"7I#OTZI?)8 (
MHO@#&H8>^K4"7I#OTZI?)8 (HO@#&B8/=+0"7@"1^G4"(D!')R "[85&.J8"
M::Y?)^ #\T5')R "[?4!QSX0*N )='0"/C!?='0"(M!>*'#L Z$"OT!')^ #
M\T5')R "N:IC*I .='0"/C!?='0"(D!')R ")';L$"$!='0"/C!?QQYBY$!'
M*" +#D=')R ")T8.DGH"C\MV=^>;,R#]]'!BY""I)_"X;,=MGR"I $ &=N=P
MWS8#TF\/)T8.D@H 9&!W;O<!,R#]^* #&F8/$-( 9*!=&H8/K.:,X#X%[=< 
M(87Q6J $K4@.+3@#F^\- S$#GK$@N* #&D8/$ (%8V#P&D8/W 4 4# #TC_G
M"T(#2G#B]-"G,[#Y]!!B<[X@'J $)VX/8V#P&F8/NG#BZM"0)^Z$)VX/?3H#
MFV\/(:8.&J*1&G:!)\X.<"$%)]YR&J8.$,( ?2H%)XX.!* T#!!B+:=AZK .
M18 #&H8.<)  X4 &<(,-)XX/,T , S$#6U8L(G#L$(&[^G4"/C!?QQYB"S<0
M)6 "#D=')R "SZ9AXJ (94,&,R#]^O!L&B8.BE V9#!),R#]QZ5A^@ A&$ &
MVJ5A_  A/.",X#X%[=< %G<Z)RX.+3@#FP\.(?;OC*<#&L8/ZU $.*!A^K"^
M9  W,T ,(>:-ZC4#5#X0#V -HO@#&I:\$BP!HO@#ZC4# @!>,E =W8G<!4P-
MUKG)ZC4#2P\!RSP!NP0 ,W"VI'$0\14 =, #6,0!*N &1!  $  !&!  ;" "
M#@ )!4 #HZ< "*  "*  "*  "*  "*  "*  "*  "*  &F  ",#[%F  "H  
M"H  "H  "H  "H  "H  "H  "H  "H  !*  6* %O* ! : ),,  "L !=. !
M&B .,J  ". ,&F "(J !(J !(F "*B ",L ")D #(@ "3B$"$L  ):$":  "
MW8\ #F "-H "(@ "4:H!UN$ ,H "(J "(@ &," "3N !ZB<!'F !'B !,J "
M** !,* !'N !$@ #&D "&L #/& %(L !9,#B3* !#J  "* #!J !!F  "*  
M!&  !&  (@4!&L  !L  $H !$F !M:8"!C!L#& !#@ )!,#["&  %*  "& $
M/&!8"& !"$  %* !&&  3&  7N '!F !(&  )J  &&  &  ""H  #&  ".  
M#&  !L  "H  #&  ".  #&  !L  "H  #(  "L  "& !#L  "" !$*  $*  
M4Z< "& !!H  #(  !D !P\8 H(T $F !""!2#F  $C!L#&  )C!U$H  (&  
M"H !"H  %J  "(  "L  "H  #L !"#!U"J  ".  #*  4X< %J  #J  #J  
M4_>&$&  -$ !&$ !!B !&N  )#!U"*  !D P 8P !&  (&  "A!KWD($&  !
ML88 "F  ",  !F  "&  "F  "*  !H  "F  "*  !H  "H  !J  #J  !L  
M!H  "F  "*  !H  "F  "&  "F  "&  !., "&  "&  "&  #&  $&  "$  
M!D  !J  !L  !J  !J  !L  !J  !K!J"&  #(  !L  !H  !L  "&  #(  
M!H  !J  !H  "F  "*  !H  "F  "&  "F  "&  "&  "J  !J  #*  !J  
M"F  =0T!"$  "L  "J  "$  "H  !H  !H  !*  !H  !L  "&  ",  !J  
M!H  !H  "*  ",  !E#7#H  !*  ",  !F  "&  "&  #*  !G ;&@      
 
end
-- 
Bill Silvert
Marine Ecology Laboratory, Dartmouth, NS, Canada
CDN or BITNET: silvert@cs.dal.cdn	-- UUCP: ..!{seismo|utai}!dalcs!silvert
ARPA: silvert%dalcs.uucp@seismo.CSS.GOV	-- CSNET: silvert%cs.dal.cdn@ubc.csnet
Technical Details
Message-ID: <2384@dalcs.UUCP>
Path: arc1-ca.pugleaf.net!utzoo!watmath!dalcs!silvert

Show Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: arc1-ca.pugleaf.net!utzoo!watmath!dalcs!silvert
From: silvert@dalcs.UUCP
Newsgroups: comp.sys.atari.st
Subject: DATE revised
Message-ID: <2384@dalcs.UUCP>
Date: Fri, 30-Jan-87 08:15:26 EST
Article-I.D.: dalcs.2384
Posted: Fri Jan 30 08:15:26 1987
Date-Received: Sat, 31-Jan-87 04:46:48 EST
Organization: Marine Ecology Lab.
Lines: 281
Keywords: set date, AUTO folder