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.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 �(?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.csnetmanis@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.