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.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.