Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: 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 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#"2*%"@@I9<*08?$T*IDA8>1,!7%% M3AJ%5+M^+8-5*PN>(" 5$*MP"AVO(<-Z5F.&&"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"!73*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/QN70V][0;7[KH%UQDHB.!<9RV_S-%%! $4=8K"1QIA$O-%&&'9"4=))*8$@1AX@"#%M1!-5 M) <=+"P>=ZIP5* 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(EHSF0)4?#N5DI3;+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.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;2<(#HM!J 7US+!VR'>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$OV7*!/@U3B'=+D7/D]W[C5"F>XQ MJMVD:D\3 -0B%1!)RQXA8Y-5!>L!P<57BW>_^JC;/F(2+*< LHRD,J,C-:-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 $[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 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"P "Z2N4P$:,(@$'#;&@PPA2*,@Q%JT MLP%<@5\3ZUD9 ?;S0 QPX&(E>, ,UK,Y("SH#]+#PHTF@#,Z'&D.D#C24$CQ MAT=0-O) +@0@!((R:%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 .&: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?,,/.?+[*@YO.&.\ @ _KB(D#)Y]RB* M91B(U(%<'-:/A B0C@@#J5B#38<+8TA[V/@D$&E>FN@/#.F)_K ZHDB1?S@? M#?%TI48'6TA'#& (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/?"<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=EHD-\]6>[ZEUP":?3T*@ M0H!VQND H(F&:_< %N"?,_)U DJ@2(!PT^F%%OH(*OJ@Y?\T$APOF7LVD%OAW>F&"VI+IAFDFKJAB!/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!<$[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?:*NWM_$=?ONK1^*NESH0A&NXB*M74]0"EFH#^\*V M_PNWM'[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!)#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 &\G!K( PULOJH!$Y #\P$$ M&@+%XENT_7IG-KW9;STC[NCXMLVJGI(WEW=/+IU8DQ' M=+S>KASAL"S@$DO@)(.3)!"&.B8#O=2F \$!O"E(5-N63AQ2\,FA%X:8<*!E M/\EUPT:>(SX0&Z -7PL8X ']!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 !MZQ4-#Q M'AL$58 %'KM75 $9)Y &;G "TDX79> &5@$4/D 1+E\&,/\&=4 '-&\&-H_S MB@$".S\<%#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&^,A(&=C&R(%=3[[BNP)^U@$BR($!( K]^C$R#[,D#[&B8%9P %@5?M_# & M+#!X=?^:=T]Q$G"J"3EYO5Z/_ &SB#L '**="_^B8KK7L^;D)\"_R$!OL\HU7=]"I!]VT< W0< 7Z#_ M'Y<"EF(-!']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'S"W#U8L"A"W3 '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'S0#TD"$&;_ &,T$&:[$& $ $;P "=# 77>$6<$$'0 ":U &>0 "=/ &K88':4 '+4 P.I0'0#TTNX85T$'4@$"9% &9E 6;$ '>M'SD#$&:/$3;C 39! &5 $" M,B_MC]$&83 36Y '>= &;= %9$ &60$ /0\97J%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:-ZC4#5#X0#V -HO@#&I:\$BP!HO@#ZC4# @!>,E =W8G&$& -$ !&$ !!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