[comp.sys.atari.st] Another date-setting program

silvert@dalcs.UUCP (01/29/87)

DATE.PRG is another program which you can put into your AUTO
folder to set the clock when you boot the system.  It is mainly for use
without a RAM disk, since it replaces programs like AUTODISK.
It has the following features:

Like BICLOCK.PRG it uses its own time stamp to simplify the process,
but it lets you enter the date and time numerically.  It is also
pretty smart -- if the time stamp is for Jan. 24 and you enter 26 for
the date it assumes that you mean Jan. 26, but if you enter 12 it
will change it to Feb. 12.  It also knows about the end of the year!
If you just hit a carriage return, it doesn't change the entry.

If the current time is legitimate, then DATE exits immediately -- this
is handy if you have to reboot, since rebooting leaves the clock alone.
This idea comes from Moshe Braner's AUTODISK program.

The following uuencoded file contains date.prg and the TDI Modula-2
source code.

begin 644 date.arc
M&@A$051%+DU/1       M@<  #D.&4&@^K4/   ,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!"IT
M2I8I5(H(3;JTZ4LB4J@&(0*YR)0I@7LJ8,S4Z1'%1)Y@%JQ@R!,GB$$8F5C&
M2<HR('J $!%$!Q>8,KD0"9+8!10I1T1D3FL@BU#9(&K$D#$<4G$BL=,.F,$<
MK7,JQT'(@$$#1W,#5*9$AS2]NF8J6: 81$@E39LR5/+ @2U;2A'34HA8A_#Q
M/0@=( P11'Y).!$$8/N1D=%_ 0Y(1($'-E= $4X0D1E/5@P(@H)@@=!?&52Y
M4<8=# I(H($(*I 6 7E$)0=5;;SA!AUH4*5@'E2A\48=+X+0!DA4<31&B0Y"
MF.**[+E7AA!UF&$&3@ F^5Y\\S5' !)AN$$&&[ !6&!BGTEA)15ES'$1@$(\
M\5<103AQH0*_/3%$$0/9Q]5<9<B @AMUM"$&E" T>.*!*33D$$0@W($G"&%H
MUP(9:9SQ%0A\^KF0=2O<\14:(.BQT!LK3<1&3CLI($011Q1H'0))&$%IGW^Z
MQ ,(,<   A5(4&C= FR5@<(),)Q0Z*Z]ED7&GK N1%4,PZH("0)%,#%%$<3B
M:2RREO8H0[-I05MA9A1"UZMY/)V:JA.K?M9$:%.X<$1'""F$ H=E%'IH1'F8
M689*](+00@L@3)K&'"!P*2D=/Y"Z:JL;+N@#"#>H8-RMN3H!@KKLNO"$363F
MA4(*((3;T$-#F0'"'&]0508>D[KQ!HDZI0N::.YVU-Y[*'QH+\E3Y*N02A\J
MK%FWO=;54-%N-(= KV[!=08*(NR6F+\ <W31'#[O"\(8;+PQQAHNB& O)! @
MK333;X'T-&T@0%&'&&RD,201;[01!DAMEW122B"(D0<(0H@:T405R4$'"V(?
MC:?1JZ+M--0W5=3U?&0DNNFM#[[0Q!MDU,%&&"W($/;8#9C=.)Y-JPTU%6@,
M'##!A;N@G0LQ;"U'5 I5CL,-+\ 0PPLRU) XT8LG39K,Z]+\Q'QNH+ :EZZ]
M1Q4,5&&I)9<[0W1&1QZB 5O09J8$A]#=,FS]EK#-BC'-?BU!L:[.\EJ\XF.E
M'A+46+GA\D5F@%1Y_UR:C;T<I[KGM>8UW(*$_,9BM#O5+VWW$T$6=N2C.I@I
M8&X('QM&12/7D<0D*%%)& @FM2(DKEH,3)H#VP+!M>&-1K#!S4Q88A.<R @$
M>=B12\3PAC=<!%)S6,,)XV>V%9;!?FNC6_=<EZ7*O>5O83C#W=PP.OK1Q7A$
MG)\1D0BU%I '"9/*TM_64(:_T0%4*_N*%P<P/-/%;WWMVA@9.M:&CRE-9,C+
MF)1\=3XN208R*-@CDYRTD!10!8XNV!X=FK4JDCGA95NK&QRR\CWO>>@.H/K0
M'*AB0=C("#8L<4FCQ#!"V,3,6:QRU;P<AI&;+:E)3Y*#"^@%,J981P$H6*5"
MHB-(6"YDEAD!69N@DS,E@>!AO22D+'56JF[ABD);;"'4\*4O?BW(=4/L5K2F
M%<W'B2!O9;!#&G9$,/#107RO$V!S&M O'<@FF;$$ID+6&31WME))@XSGA^[X
MK54U$B(N(]$89%2XB\"P8;MLHH>,&<H-#0P.G_O;*;O5HJP0QY[]>I 50& <
MI<5H1IQ2BSUU"9N 0,<X(-,H1RVTJANEY0 879!)5_JF;NF(1Q>53=!4BAV/
MX@T2,)5-,?TS4^RD- D;#8_2A/12>P:MJ*,9VK.*E95C550.*\ !];0S0#Q!
M[05MQ).>/DJCKH[EJ]F<JEA7F0>SLM";@0KK6/1T4SFXU5<BT$%:E[;6'[GA
MKE#3ZUWU)*2[-M"-UB& ?=3#F],]T&D.$4$19H23@<KA=F/XX37=0).\),1'
M;2 #&0"T5ZA(Q5@.H=2(0&!8+*ZH"DZ@0A*8X! 1D6A6RZ&.,"OD$+SH!0G1
M\0L3['6O.X0A7QX"E64Q>Y&%E$0.!)LH) C ,-O&QE;/M!@\?]E.V?2+9'S:
M( C*,",Y2+29T]VF04@&P]LE:H2,XBQYGT@^2"2@NJO%+0RP6[&A.&$(>QK1
MLO:K K*BP5XBNU<G3_8:'\F(1O6]KZNL.]-:V6I6+LVN?P%LVP'# ,'?NI>(
M\' 1 T<8OR12J86/22L9O$^[]PGP'9:UG0\W),$D4U08QC?BBUSUQ!->K8KW
M"X)9F5C#!0+P54',4F<E8+NR["X.720QH:R@MD)&*JWVFP*)0>?*,@9!A;EL
M)3Q*5;%%8"P5'/M6M45VLGB)Y&7+D-F%^@=OH;3;1=" AC:T@;0)1(!IKU+5
MU%JWM5:"K6QI&^99R6 &-OCP2WB;LX7\-KA_22!U@TPBV? 7FE!V03UU:DSP
M>FY4\S5O?0F@WGN^)Y^_'#664ZQE"W<9.R  ,X4%LN4/JT"IB37SBA*+R"G 
M*R.!#(,K81WE8%JIV#934K*7[<ME*DG3B-PC"OH(HL=(8=KXK+8A+S:S=EE-
MTV2ZH#T1.82N<63;3<3>F\*%$;RX@"<:"$1!5$4N4%)'       6(@  .0Y!
M03.U3#$   Q@-   \$(% $@& N@YZ,!)OH$JQ P$ >!(D298 #1Y0Z8.FS M
M9+R80@4$BC$I0 QY R>/G#1GT- !085($A!3WIBA<R>,G#(@F- AXP)$C!PX
M:K PBM1&40!4T "E4R9,&Q Z5*)Y.0<$DC!LV"R%$L:CRCIRZ*29LS2,&S(@
MH*!)PT:E53@@7 #8,J/+EHT=/X8$(:6.&YIIV@ M(D?.&SE80?"1# )2@A$ 
M_#Y9T@6 $RL#G7AQ4@?$%T@' <!"!8" & ;C $%CC0 :/ 2>H45#!P!!%D1.
MH(D  ,> DR.D/_]#9Q!/ FV$>A3YYT^% RB%6DQ'!\3=/WPMFORCU\+*/WA.
MT+1 \H^=#A?4&10!<.",@O?QYR,P0Z&%&P 2_*./"O"A@YUVRSFA#P!(X.>/
M?  \8 8#Z;6 1F\"*@B # Y"",&$0K@B8(CG:<A!A_,E4(8"%4*1X8((^ > 
M @(F\1!!,N @HC]"L "  "FX(6!K.0B)3V]!CC=CDO  X$"2[ #()  69, '
M  $ H($+0J(#0@X#O>#""T#\Z ,O [%@17J_.0&&$W.(EIQYM@@AI"T,_.? 
M/[:,08"&'N!GRSA%).&=.$+0 04 >3K))QD&2'$G&.08^@\P*C" H#*6BI,I
M@LY8ZLNGTTEC*2^D_F.-I;BDJHT>_R#H30]7T@B,G?\(0RN6_Q"#JS&X(@,"
M#P<-@(RERF0J0@%."+&K$Y?N&D"NTO9:+;!"(D-K -/Z BN"N Q;[+'>)<O 
MLLWN2D.T5TZK:[O6PHOM/]K"ZPL*;?S#3Q+L_*-)JN$2"XFQR"K+K+-73G I
MKN_RZJN0\PHK,,'E&MRL$[D,=  6<##Q@V=!R%F'<HB\T(*^*T"[[T,#\W&$
M=YKHL8(%W%S1C+ZX,H(?(Y9JH@0-BYX1J9",@,%.#WF$*<,_B."'"(0*D"'!
MSCUG@"8,BVJ(@AXPX $ #O A@@@_,PI R$#_,$VV D@0@4T15,.< 2&+2OH/
M(UQ[#3;38\_8]MMQ^SMWW43;6"PJ+__CB!X%T&PSSD(J@I\BECJR-R/81)ZX
M)A?0LFB9=DL.'^7>.?)ST * (0W& P6@S I?Z"LR"$\$@<X_@$0"3"SMM":&
M 7(,4-QQI,EQP/!'&,'/"02I[(0;+;SP8P\71*\O$N;H*T(4(#C"0A),>//#
M/R]XH:\/GI3_HQ-FL/"&[',HS_P+SD,OO0#46\\/]MIS[\@1"U)!"Q;0 QY@
MK(#,*Z#R2. ]\(F/?.;C!_K4)P#VN0]^]).=_0!@@!Y(CP#ZXQ\_3".""Y% 
M!-Y#0OC&5[[SI<\+ZVO?^_@!)_D!8 HW!( 9$"" *^#C'X.X IQP: 8"^" 0
M0]2A 91'D206T0EQ<*("0!  U@V,&W!*CQ! L<4M?BE,:@@! +:H B2@AFPD
M&,*"#!""!( ! JRC#Q;$-3"/@<Q-G7!&#['QCRR"AD'GN)((](( $NB% 28(
M  H"H (!M T)11"&,(A!#&,4 QG%0$(0I"$$(10B&X60QA! J4DA#&P(2! "
M$H9 C4%0@Q M" *C6B"$WC#A&P#P@<@^,Q DG,-K@V24(7M#"S0!(&UB\( 0
MAB (8:#! 3@(@!""H,EFVB  ,B! ,U=YS6EJ$@S*',0U5^G-(." 6 \8QR+&
M$0E9"*(,!)"$(*0PA"@PXQ_R:,$09BE+!-P2 ![8Y1]]^0D H."0+"#D.#@Q
M#D^ @ "H,009!) ,(UB  ,8@5@!P,[ S$  !P\!2.#@AA")H@ !6((8X2$J 
M<'A""$?P@ &L8 QQO-0 ,"@ :HX BRMA0 PN (<K$#  +)E! =B0* '$00DI
M% $,',"$(=: @3-8 !?&1"8"-'$E"+1M#0:80A'&P0@UZ ,;:!H8(,BPU*86
M00@$4 (AS"" DBJA"&X@@! ( 08,Z.)*_V@# N# K(P-C!IDQ4 !P,$)<4R 
MJ2T@ J/^F0^1V1 .?33L + 8O^41QQ]6W&P-/0L'&FJ6LY?=1VA12UI]K':T
MS(-#94_K1WWE94;2DP$A?Q" 'Q"+64TP"(+X\9[>0&@!8K! <1%0CD+=Z 5N
M2(&(^)&U!6%@N028#PB::SB">$*Z^LK::$;VQQ> B2!Z\"T !A#' PB "X\P
M;YCLH-X*9HP^[XWO>5\@"/465F/YE2]!#*%>X]S7O? 5\ L4H=X#M#? ^W6$
M>A'PX 3O5Q?J/4&%]1LF6ZC7!!M6L"S46X(-[S****8=""Y$ !4@8 3%"),*
M4) T@JA@!%'"#4',8!)&S08 %/@Q!V@<)C.HP$<&@$8A# "(U@' !4#X!C*D
M]P($?$R]2G!"$+Y!MH$Q@,@V/G)OM,$*1I$9R&?F (S!^ )B<9 7ZF7O@0/L
M9@.XHKXAKK,R_)OG@1@ &P7N,P?-T6!!&X >$Q8T 9R1845SX,.*A@*)-SP"
MLJU7 6%R 1P<C)P;,4 /RA%'<2$ (1"4X;IZH0"$!% &!Q17U?,A@1@(H(< 
M@$$ "T'!?Q" @4+HNC=*H, 94O>G!;%C(:]&$**Z)"8JB>D?XHAC 1SA@D^H
MX /2^8<Y\&,.J)%! US3AI#,L3=T) %-$[ 4.S)0B#(!2@_FA(\Y""!9I,*M
M0$M M[H'!P"[H:/9%GAVM.\[;2P\H@5?H)(27$&E88-!$4K0BP2LBA]TY!L 
MZ?;.NM'4@NIR< I=ZD&7_J&.BE\\X^W9FSHPT:4D,!P")O@/ SKWN1MV20E=
M:D/JI($?=3AU"2__-0.$ #3/C%<Y\"BN!5;=:J5#2-:TMC6N#;KK7O\: <%V
M>+$#<&P *+W9$'C!?P$P[6I?.]OV0+9> JZ7L(^]X >/'3QPQ0^A"X$2N-('
M?O2AB_]P0 RH%A#0 3#D_V#@=  0FMWT 09O" $^_X@XD,^@@X4,OO  P( &
M5%T  *S@J-6BX8) 8'F&8U[SG = "R84^@[ ZQ][[[N^_%3K6^>ZZH7 #S]D
MKP\R*.#J62>V@@)  -U?_M<8P$#1&4   (1A1<P'@!YF+8#F?Z$#1/A'/;:D
M?09T'@9EX #WZ^%] .1 #!+(6^;A4P],%*$'V<>'AF0P_O(' 2CU[[P6D@MO
MKV& _>YG /4&?]^A(0AP=4)  < G;*X&'_C0=U3"5K4W=5=G=;N6=5X@="I 
M ;H@(O!0!A:@@1SH@6;0@-\A>_8P:Q-X>[UA@< F;%OC=0ZH-VLG="]  2_P
M)P0G! :G#9\@="A0"'8C>OZ #A&7-F?@ ")(!+XF<T&X2S?"0[QD= XQ$ [ 
M!E,H!/OE#0*%,Y1W2#]0 %>'!%001P[@ /#5 ['C#\4E 4ZU-_Z "T4P!O<A
M<4Z5;3PB),0%'_X@5F$( _#!#[!P!6]0; !@ KIW=7O##S'G)#0' &4"B/HR
MB&PP-/H"!MQ !8_@(! H 6(  0[R:PZ0 ??U MX@7G,R(E\(9&'X:UY5AO=U
MAFFXAD*PB@[0BO_!-K!HA6CX"&JH+[HG;M0!@0Y !@RP7++'#Q,%!H:(&L$H
M)/Z0;7I'2,+H#W]X ; @)/K@)QJB GNG"=#X:PJP-_K0B KPB)&(C=H(*2 G
M(&" #9J8=P[BAP4@B?HPB-P80'OGBN28.;UACN@( /8XB)"R>.^HB5V8A]11
M7 SPAWR(CX8( Z%8=46'"UO(>M#H) @Y7I+H#P1IB?Z@.IK(D'<X'PUQ=)Y&
M!U,81PQ@"')R(Q*@ E,(B+WQ,5HF7//!(D?W1S1I90*I%PI@DT& DXPB4!-!
M2-)S6PP@/30) 1]#DQ(@E$1) 48) +>% $P)AB!#E"<Y)P/1DQ]S6PJ0E4XB
ME:HW'W"TDU^Y6S\Y(V%Y2&3IE%MYE@#2A?P@!*=0BV;H!YJ(<+*CEF-T"G&V
MEYIX;158"':)E^I%:UJR6V/G )1@<'Y)0SN),X+Y6PNQ)37YF)$9=W_IE8&I
M7C(9BWSY"(:Y:SB F)5YEY?I>3] 2&;8F9-9E8I)+"Q F*;Y 8JHFJG(FNK5
M J_9&[$IF;%#F:!9FP#  Z*8*6(7G!02B_0 !;FYF[39FCVPG$M9 ,YIAM$Y
MG:C)F^0U$,CI \%)8;'8F4KP"46T@@#0 3E9G>KU \$) 3:(@[ 9B[#P!._ 
M*$#X"?!)+$ PG_79;.9IA?FYGU_FA/X)F,@9!%?'G(^)#?"5GNLI=0OAGD[R
MGV,$=L'I )D)AF/W !:@GS-R=2BPH,?9FDC0;,]IA1+Z"":*HN$9FL22! 1J
MAB]*H5%G>^TY'Q2RFLAI!;6(G6+WH-EIA@<Z2\5IEY*W'R2 G%?0;$&I%[>H
M47$DHB2J +,Y>E JI1VJE_>%I?NII4N*DE9H!BLY&C>R >#@ E30!(OBIG#J
M&7]47 H @0@P!@X@<C-2E$>W( S I[CQHZ IB@G8(_1A):W!02_  $B ![B!
M!&RP/O<5 5X@G2CP!;"" CXB +A0"&:@ 8W:B Z !%/P 59Z7Q9 #O"5J1H"
M!#G !VG3&XV:89(Z(PP9AHV( *;*DI1 HE_V!8@: T)09C( *RDP'S8@!)/J
M \7J=7:)@!2 J >@ 4B& )U7'\*W(*B!;#[B \.U</JB=1JB![7J([RJAR_0
MJ7$$ =B0I9E*(/IR5VS@ :.Z:Z:*J@  1ZK*JC#Z!;L40-Z:2P>E+Y]Z!J**
M2/AZJL12H%3BKZXZ7F*F [I@K&-@ "DPJ3JP(<BJK,R:2PA09@? 05U(#T*G
M!/OE#F>  5H8)NYPKXS2J_<E ?1@<)EZJ#YR !-;L1M2!@G;B([*L.L51ZO:
MJ@"[(,SA(SI@#HT #HT !PL0#J4P7/*Z>V5F ^2Z((( LT$;1S1KLU^0=7\R
M7DE"-C;0J,_&#S^ KD)P DB@AW$4 3  K)G: E?2&\>$#^?:&V_['>M*J0,!
M :P KU\@K_A KS\K<_E*+/PZ$$7[KR+3J+4XL0)0"!KS#TX5AFN;2UX+! 8'
M [KY!1^3 PD'KI,J .,1<^-!N45P /]  KM& ;-0-V6F PDI=&38MYDU$!/@
M.3 J<\%F!BB NU30MZ!U7[TKG1]*'?X'>>'@-D6@B(10LD*G 2E;?@& L!- 
M-EE"$"^KL#$[!5Y;L_\ZL4SKM% KM50;B#R+M=L* (K M3([$%_[KV(K,F4+
M &>[E(&XN0C0MGUK6@,AMW3[!78[$+CAMPV)KGVKM^QZ7X)+N(9[5U#4 I-J
M _J"MOW+MFX+MY4ZMPB:J9)[!I1KN?2!N46@N=_:N9\;NJ-;NA;\(ZDK)/3 
MNJY[ 0RG (N" %$RLI%2NTUJ'SMKL1BKL1M2PI>K!*"* ?(KOC-+OIF:L5ZG
MO[>KN%1@I^#0!)6+-O_P 07P ?<Y$!6@ Y@*O!00JL2K=C/BQ6 LG/<UQM)9
ME>*( 0R'=81T!@R@J%ER #Q<+,8!F%=GK1R$K1R4M0!@"))[ O[;KH2@B1 0
MNA\  $KP 6>POVUKJY/*(I5* /#UR)D:R9.\LC#+JU/0MD0+L4>;>:.\N%AR
MRD:;R']K7P/L!P;GR5\ RA\ 11HB!JOLQ/0+Q6%[QC"0R(L,P8W\"+:,RV80
M<.!+ROI:1?WZRD-W K$<M[2,S) LR;D<1:OIBC#K55-07+=8 .8XOP!B!H0;
MO-L: !+0J.*LJ[EHJK5XJPX+ 5I0P$HPJ0C0!D"@J,UG )(KF.BJKXXTJ3(0
MMR#,GU\0T/X+P!X\P D=K!K""4%,!HJ*&P!]C%0*SWY3RF= S^T:T9F:S[W!
M!C0 RP\\R[6<S9,,1=_,RM#LN*@<L!ORTD([=H\KPM-<S95ZS<FLS5"D!,9:
MH3R: ?/A8-T<S[L((%"<BS&L QD\S<4<N,?\TRT=![5*+&Z;R>4)TA!\SR&\
MT/SKA0XM.Q]<P'*\:X)L  +0>0Q0?@1P!B#0QP(PR&565!F]J_)\!G&4 4Q@
MM-&JUDC6UHQ2?@AP!B+0QW@=LC_"J,ULJNH5TP#@UX"=U(S"V)UG  32&SPK
M V/  !B )NSUIZV1@)N- .?[M%$[M=/!#U7;O@C;Q.,+MO<[7AJL+PW=P68-
MT04<)'BK TULRM$,N8 L<T K!!-PW"M 'VM-R )P!G+0W)U7 )2'V1PDW:UQ
M!A PL$"PJQ: F-;5Q,_LRI"[("S0Q'KMRQCGNYG:Q_^\$+NJ 1.0 _,!!!K"
MQ. ;M/HJ9S)=V86:B^:(W &^W-5ZK9TW &=PWN#+-J=*2-C]W#LZ=5X<1W!<
MWJJ\X*S,WP_KWR,#DR20A37V NSPD@/! ;?Y1U!KEDKL4>R)H10&F'#@DS=)
M=2T(GE4( !N@#3?. 4PPA1# EG @ $()A24.8C?" 5BPXT8 !YYQ7\TWA956
MXA 0)O 0Y80G V%"#U:^ ?(0)O*GI@/A 7(PA6.XU!R@"C9[@6><.NA0E2@;
M)OYP!@I8=:78#RU+$*"U(#30MF#V O)'":$\YWQ+!7V.'IUI@-)Z=1- #6'2
M#U79Q@<8XO3@!)2PD:"IKPW0YY->Z8^@K[\GZ91NZ>1%';C"AGP(@0P@!B@P
MD<!6= C+Z@CP 4471QT %8]@-R'I# E9ZIPH<V+POMJ !"$NP(2G" 9GO6'"
M#^4' F9@ #A''6/POK" [ 2A[)WW!WA,[2]@[;UA!E3P[/XP!I-,+!N@Z:'>
MZ<1"!.;.Z?IJ$J#.[N2^[IJHK^K^[IK8CGD. $2@[=P. F)  ;!.=*@X,@M"
M K!.BLF^*!^P7\1>ZYJ(ZPKR#QI Y(0G!5FX7Z %Y@9E!4/P!$ZPL5!@\1L;
M!%6 !1N+5U0!&2>0!FYP LQ.%V7@!E8!%#Y $2A?!BK_!G5 !RYO!C O\XH!
M C5/'+*\J,JAD*8^C+X>>/XP> G:ZD$#DHTG<M21H>,%!S%]6$$>1T]N'J8.
M(! R &3POZDF,J7>* , [8:H P[B](K(ARX'(*1J 3-0)K;@ZF0/9"*#]M11
MD- (!LC@>EBB]U>?]0- #</CY'0J(&V(BTY"AK2.!_ U <]E:3 @3:O8D&*(
MKTOM <(PBU[8^)O_^)W_^;ZXAN!.>Q:*<3$FD))\7C"0>._K"?-8!(,G :*H
M?(L2?2Y 5\RH(8#@(,+(#V #('+8='P((0&@^CPZ :T?^V_N^F< !7GW[/PP
M!BRP=VZ/FG#/<!) J@&Y>+C>COP !L[0ZP#RB6WO_88ZZU=_FXJO'-2 *]2 
M']0 @18@!@T"']0P>"'X'Q* >)5L__[_:Q*@^XS2?,^G -$W?010?0#P!?9_
M<2E@*=; ;W9##6#@"O9_<2E@*=8@\&.DR,22 GUK#7$F[&$^O??U 08 K*&L
M 89* =L[^*X_QVA210MB"9=,+"G0M]809\(>YHD01Q]@ , :RBR0^V@B )J)
M -A+U%/G_%])XPJ  ?<5^QJ22HI,+"G0M]809\(>YHX01Q]@ , :RICG *&-
M)=L[^*X_QVA210OR>WH2VD-[]4T^$%T_$-$/ X9P!O0'^T]SX&8@ L+^E45_
M 09@<-$/ P) U%/G_%_I&0NB -L[^*Y_YS!@"'<. \!Q]4T^$%T_$-$/ X=P
M!O0'^XE0?@-@!B(@[%])!'%T 09@<-$/ T1 U%/G_%_I&0NB -L[^*Y_YS!P
M"'<. XD@,DS.]70Z$-$/ X9P!@$!^T]SX-X>_3"0 /9QY[$O,L+^E0)0YG&D
M <@@G=$/ P)0@H&<>@K@^]80_3 @ $0]=<[_E9ZQ(&Z0F;"?""#P7P-C"P?A
M7L72++#O&0N"!&4>1QQ@[(^PO8/O^AKB F5^I59@<-L[^*ZO(50)(U3B^@RP
M]9I%#2*S]?'O]=$/ X:0A-0. T]SX+YOB"0%C<+^E9(M IYP[+ ? ,MN!H<'
M^XGG535V^7$D IY@<)B(_JG. ]$?^V=  ]1^^<L^!JO.A]O?&P@OD % .-0A
M[%\IV2+@"08'!KJ _JD.BGRX_;TA\)ZQ(.*0F;"?""#P7P-C"P?A7L4B#'<>
M^QK""[DZ^KRZU!T@^8] ^<G^E0&PO8/O^AHB":4N[%\IV0]@!0:'_JG. ]$?
M^V=  ]1^^<L^!JO.A]O?&P@OD % .-0A[%\IV0]@!08'!KJ _JD.BGRX_;TA
M\!C'O5_I&0M"E3!")9#(*%NO6=0@,G#PX?%O'MR@7A_0MUAT7R,@"!,*^XFG
M ^KU 7W+#>JE &W;9EP<P,+^E4T^$ I !21J =$?^T(<B-1Y]4T^$%T_$-$/
M X=P!G! [3"0".4W &;P;814?@U@!C @[%])!)@>1QM !Q,*^T1@!A(@[%])
M!)X>1QM !_"E(10@[%])!) >1QM !Q,*^T1 U%/G_%_I&?H0 !2@F0A0?@W@
M^X:X.%H"^XD  O\U,+9P$.Y5+&J Z5=J"?-.+)H\$ ]@"9JXO8/O^AJ29??5
M 1:PO8/O^AJ" YA^I70P[\2BR0/Q '2@B=L[^*ZO(50)(ZY?2PRP]9I%#1J"
M!YD)^XD  O\U,+9P$.Y5+%@ Z5=J"9JXO8/O^AI"!)!.Z[:^O8/O^AK" I!^
MI72@B=L[^*ZO(50)(P!  LG)*%NO6=0@,DS.]70Z$)@>1R6 "**^]?'O]:6^
MO8/O^M$?^Y2'_JDND7RX_5"?>('"A]O?&[*>-?=5 HCP\'_O"R*S]?'O];7X
MSJ.OBW'D^?"U7)KP!7BXO8/O^M$?^RL+[F\@ >T>1R6 "/?^]^#PSJ.OBW%T
M CX 7R(#!Z,Y$%VO*FH\EMI)+ IPR5K=M]C0M]<01PF@ B0:E5K=MX 6Q@!P
M IP0QV8*4&S Y%Q/I^()^X9PYS" "'<. X=PYS"0""0. "J !D00!%10!"#0
M BT  G-0!C,Q!WDP!U1Q%6/ !F\P!FN@%T$0%W4@!FR0!F,  D3P!FT0!BP?
M%XX!W5;A[WD  D) %W4Q!71A!SA/!SY"!F5@!V7 !BQ1!G!Q!VE !VA $S;Q
M H#A$2"A6U Q%UVQ%B!@!SA?%+H5 R P!C\1!E0!%SAP R\  S'P C)0 P 0
M!#K !21/!4_ !400!%10!"X0\D<  $/@%F[P!C/A\V_Q\FP % "0!3H/ FU0
M!W,P$RP_!W0 %G5!!W/1%7#@&-!M%2 0!EU!!$% !?/!\B! !U(! B1/!4_ 
M[&_ !F2 \R#P!H>1!SH/&6+P!F\P$V2P%FN@[V\  G0P%UWA%G!!!W*0!R 0
M!F<0!BRO%RTP,$B0!C/A%GD  FM0!GD  G3P!J:&!VE !RTP,%8Y!7DP!U1Q
M%600!E0! FM!$7'Q$W:0!CK?%6H1]'- !W<! FM!$2!@\VZ0\B P!H_Q$V,P
M$V00!E0! BS/[(_1!F$P$VW0!F1 !ED! #</&6/P&#\Q!C.A%D'/\LS^&&T0
M!C.!!FC0!FV0%<31Y /1]0.Q7-X& OH* W%4 HB@B>49V7&$ @A@<!H2E;M%
M+$6/ @A@<!2/ E# Y%Q/I[U48S"@"%>*"P:G ["O"/+A  !PL5?J \+^E8QP
MI>0;1R<@ G%T B*@7A@@[ .! H(01R?@ _ 51R<@ K9:8RC "7%T CX 7W%T
M B*@7AL@[ .! L401R?@ _ 51R<@ NKE%36& @,W$"?@ _ 51R<@ NKU ,(^
M$"F@5Q]=8S  "NT*UHRB!#4& Z# !K,?1R<@ NKE5366 A401R?@ _"E7@\@
M[ .1 CHX$"?@ _ 51R<@ NI% L(^$"F@8?=U CX 7W%T B*@7B,@[ .1 DT0
M1R?@ _ 51R<@ NI5 <(^$"DPYO=U CX 7W%T B(01R<@ NJ% <(^$"F0"'%T
M CX 7W%T B)PI>0)^Z#073# "1 ZWI5*#=*I ["O"+I08S#@"6)P(K"O"+I0
M8S#@"69@\+#/"+I08S# "6-@ >KU ,(^$"DP"G%T CX 7UJC7A<@[ .1 K00
M1R?@ _ U S<" Y[PE8HP S<" YSPE3H#^XH@#DV0Q3/P_,X(^XH@ $4P+>K0
M!#/P_)*@ ["O" (P'Q\P \]/"3H ^XQ@#DV0Q3/P_):@ [#/" +0NB37!#/P
M_)B@ [#/" (P'Q\P \^O"3H ^ZAA /,A:=I)+$6/ @A@</I*/_=5 HB@B3\ 
M^Y(01RJ  ?-.+/1S7R6 ")KX [!/"7&D AB@B9$M[ .1 LT01R?@ _#U [!O
M"7&D A@P[\1BN_=5 HB@B3\ ^Y@01RJ  ?-.++9[7R6 ")KX ["O"7&D AB 
MD/=U B(01R<@ NHE L(^$"D #7%T CX 7\+^E8X01R5@ @871R<@ CH ^XX@
M'P0 #<9([9=??@W@<,"@!#4& XY0@C-P(S"@"%_I"1I"^[#O"!!"!F3@H62@
M##<" Y*P#34& XOC=;#O"(I -F0 2;I08S! "6-O $E#!E^Y.%X'^XZ@"&1C
MC#XZ!@A  'E  +#PE8OC=;#O"(I -F2@"S4& Y)0D#4& ]WJ=;#O"(I -F0 
M27H#^X[0-V2P#D1@ ["/&G"0 .$P!M9 !-90!#,04@+I">HE L(^$"DPZ?=U
M CX 7\+^E8X01R5@ @871R<@ CH ^XX@'PF  \9([9=??@W@<,"@!#4& XY0
M@C-P(S# "%_)"=V(;+#O"(I -F0 2>M0!'H#^X[0-V20OF3P-C- #%_)"3\ 
M^YYPI=:@B3\ ^YS0KA*@B3\ ^Z#073# "1 JW -,#=)YR; /"HRLB1. 2P(I
M"B)S$.X5 '3  U7$ 2K@!D00 !   1@0 &P@ @X "05  YNG  B@  B@  B@
M  B@  B@  B@  B@  B@ !I@  B ^Q9@  J   J   J   J   J   J   J 
M  J   J   2@ %B@!;R@ 0&@"3#   K  73@ 1H@#C*@  C@#!I@ B*@ 2*@
M 2)@ BH@ C+  B9  R(  DXA A+  "6A F@  MF/  Y@ C:  B(  D^J =;A
M #*  B*@ B( !C @ D[@ >(G 1Y@ 1X@ 3(P8QH  QK@ 1X@ 3"@ 22@ 3S 
M U8@ AQ !B;.!!K@  J  #I@ !I@  :   I   9   ;P41"@ 0Q@  P@ 1@@
M 1;@:BI@ +S& !;@ )!  +B/  9  0J  $;  X.% !:   1  1J  0; ! ;@
M!7Y@ !8  @9@ @J  0:  2"@  C   :   [   9@  R@  C   :   [   9@
M  R@  C   B@  R  !;@  R  !(  0H  0JP= J  !9@  C   A@ !3 :PR@
MV0@@ 1:  !_E  8@ ;S&  9@ DLG 0@  @:@ !B@  A@ 0J   B@  R@  C@
M !R  $NG  J   [   JP= A@ 0K@  K@  JP=&<( 09  Q2  11@ !*@ 0Y 
M DN'  I@  .#  $ "A@  :J&  I@  C   9@  A@  I@  B@  :   I@  B@
M  :   J   :@  Z@  ;   :   I@  B@  :   I@  A@  I@  A@  /C  A@
M  A@  A@  Q@ !!@  A   9   :@  ;   :@  :@  ;   :@  9 :@A@  R 
M  ;   :   ;   A@  R   :   :@  :   :   ;   Z   2@  Y@  C   J 
M !*   J   C@  S@  I@  A@  A@  S@  A   P  1!@  :   :   ;   I@
% #H&&@" 
 
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