[comp.sys.atari.st] DATE revised

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

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

manis@ubc-cs.UUCP (02/03/87)

In article <2384@dalcs.UUCP> silvert@dalcs.UUCP (Bill Silvert) writes:

>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.
As TDI says, you need the developer's kit in order to use the
GEM/VDI/GEMDOS/BIOS modules. I think everybody thought Atari was going to 
bring their technical reference manual to market sooner. However, there are
a couple of bright points. GEMDOS is pretty similar to MS-DOS 2.1, so books
on MS-DOS programming are somewhat helpful. Also, there is now a
``Programmer's Guide to GEM'', whose publisher I can't remember. Either of
these resources, PC-specific as they are, is probably better than the Abacus
stuff.

>...  Also with regard to Modula-2, has anyone out there got
>release 3 from TDI?  How is it?
I just ordered mine by phone last week. Apparently, they aren't shipping just
yet, but expect to ``soon'' (I suspect that's why they discouraged phone 
orders on the order form). By the way, my respect for TDI as a company
continues to escalate. Not only is their update price reasonable (if a
little high), but they are flexible. I ordered the commercial upgrade late
last year. I felt it was a bit unreasonable to pay an additional US59.95 to 
upgrade now, since I'd have waited for the upgrade if I knew a new version
was imminent. However, they told me that I could have the update for the
cost of the 3 library source disks they had sent me in the commercial
upgrade, plus US$5.00 shipping.

A good firm, with a good product.