Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!ames!apple!sun-barr!newstop!sun!grapevine!koreth%panarthea.ebay@sun.com From: koreth%panarthea.ebay@sun.com (Steven Grimm) Newsgroups: comp.binaries.atari.st Subject: v06i082: modula2 -- New version of German Modula-2 system part06/15 Keywords: zoo, uuencode Message-ID: <34234@grapevine.uucp> Date: 5 Sep 89 18:37:16 GMT Sender: news@grapevine.EBay Lines: 509 Approved: koreth%panarthea.ebay@sun.com Submitted-by: uunet!mcvax!unido!klute (Rainer Klute) Posting-number: Volume 6, Issue 82 Archive-name: modula2/part06 table !"#$%&'()*+,-./0123456789:;<=>? @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ begin part f modula2.uaf M=W%>.>8DMB $#')>,#!YG=2;_6$+*+"D$G R7ZH5%74+ H! *#/)>I68&UU<+&'"/_ @>3$%_D=6GO- 3Z$"<%DDGK\(+DZ2"GJIXYN s MIN4^H3AA;4,%_P@ M0 (RH(1TL!@ 1J."L$40G"*0K"*O[ISJ:D"(/)>,P(!r M 'I=Q"H!V+1-UV@.U'&CXT0LU 5[Q%=YJ%1/OCIAS[$4"H %0C C2L<*_V #q M'_H"Z9@W\( 1M$!'\"AMU$9.M& "0H(.WV&"6AA['V ._X .=% )+ -4: ,K7)&R0H!,UNS-WL5n M1P"SZ)"L#-"S-HNS_- :5G"OX@$$=R<;^PD ,D 6+QNS1ONS::.SG72U2!NTm M,4NT7$N?%64-MG,Q8=,0$DNQ V"Q:(NQ!? M05$S540#K?&';4NQO*87%TNQl M","VU(&Q+?*2! L U< .K<$+>TL2$ K:$$B=L ?Q>QI!M0K3&UCCLEHDL=K,*:@$&/ D+:F$%! P U& &g M#^P=/8$+F@$+%G&Y:J9c M/- :3- R_^ *6ZP*8#QA]]O'8FS&@:S&A=S&;ZR9:GBM3+&XE@8 YX 1KZ Jb M-7$2G3RBD.#!J2R6E *3DU%%BO# NI" ;*0+:[=Z\_@*:" DQ$"97A"KL+ La M-4%>*@BNE8'(<"RK:- 3W&"K5ED0ZO!>K /-& $/-("3 VEW/4$,H*K!T3RBz M2@#-WPS"& $.*C">_Z#"YPC-+3R4][ @5[)' : $>0L ++!4_-4?KP $RV7*y M.G H9^ DKR #2R4%A @ KT "0X'.D&@"V@'1GJB$_("$UV$/2J@/&"T^2^4)x M<>HDKB .FF$/YP4"0/"&*, %M"/2RB";F.@*PK!<%N,"&#$+7D #'Y";J (%w M0N %+8T1KF *,"W4GE!>)PT$/@W4_>$*B%#2;X@!$F(/Y175$D(/2S4%"^T*v M8D#3!4$/V^L/.IV;T L:]M#41K!448 ,38T#@\D&PP s MYJ %/0$-"[FATE*0,5 <#9>L(G-VT.AQ(.56;,M?T-Y,#<-N8@6?J&, :M- ?K. .\>>Jq M$D$;YHT'#' ?[NT,K0&?;'C?=]K/3L(*M* 9M. @3E"7 4Z6+G(Z_NW>E!#:p M(QJ5$H$1MB -,UI#L""MK[8*FBAYA^($=8 1K. %O@+BY+0*\B9YX:O :] 7o M_R .:J$$AP($P"#B;@V8 "#B,' H @!N , **' H^+"H/RXK>>/CK% ;=Y)$n M>R(.X2#C 8X '[X$(JY>/& $-0X JX /)5X')TX'9$:9H -$"@XA#06FX*(KGA'@![2\X l M+6X7,*X7AP(#'W#F?##E9RYG5Y[EJ\ &'^X%9TX&8GZ.:IYJ6DX%M\,IX-JAk M#B"0LNMA=A[B6FZN4/$Q9V Q"&#*SC#60J Z'] ?JZ !12UTH/#AT'#F)0'8j MKZ8*@F"M%J$$JT =:H$"Z'HH&($1J@ .[XBN)#!AM$BL!H#8 < %E* &+]X?i MJK"Q[YHCTS:/JF#G*GY&RL[L4"$"Z/HA(!#9E7'MU$$#Q"H ].XDN^ #[SAOh MQ)(*-NJ8I=$,H&81N@HA!!"6 ! ,5+!43@ (XJY@;,0+AY[Hf M+SXQ!,T]J:#?ND'0;)H*,WT&(0\")!_P-I!M5P+HNB!KTD8%AM7E3!$ :% _e M3<$Y)@ 5!$ "P*L-V(US 2#V"D$(4%$ TF N70\>5 $>\ 5!Q 1 + AE Yd MEFD,NN$#NO'V"@ *A*$#A&$'4)$ S@8 #< "4-$ 3I#V7 5%Z 'L$,_B,\Oc M(,(/4/$ 6 5&Q > + !"0$ +L#WHB\7'= 7 # "AT\"AP$ )> %4/$!<0( b M*5 7 * "H?\#J@ 5/Y H $Q/K[I 50 "M ! $#@ 507#=0: &RA_W " $a MA!_]F@ 50N +UB\.4#$$%0$ 0_#V/" #4-$#\K#]F \ 1"#^^LP,4%$$V@\ z M2D .4+$$C@ 51@#X ' $' 52'#=24 !4"$)N(/Y9PV@@A-H>U" $D %*6#Yy MJ$#KHP*( "I0 6\ %:J Y , 5> M #) P"H@ B "E8@ZVU !+(!]=XOD@7Ux M(P6JP!7( E,@A/B * )R( BT 1:8 J$!== - #0@ -FH 2" "P"P$ &,H$Zu MR *9H#Q@!*# #*)!-:@$6> \(%.( XD0G)B$\C,R\,@_N ,&( NUY\ 'Z9t M DY@$E1"+& ",*$F3#A)R1-60C#0"3-A)20#I? 3KH546 G90"K,"TS '3!"s MXP$5%M*^&X7T"P!4JDE 6*C>J_D'-\+#78E6F L)0";LA?/H'V@!9'?JIH!Ur ML0"U2+?("THP!701 ^!%O@@$R LE, 5PSC+B 8 @NTD):F@-D]%P6$,3H!G)q M"QM08(9>WI@&&.$?6(%!5VW\ ;9Q3&3!W@F 'N#\[I=8^QSV#)]=+RD@&-#5p M5OH<:H%W1+1NP+;9,[SLU?@#3\"C\B$EXX=,02$!Q(APS_*9 2"(=\'>o MV0MBU;ZHA$A4 LLJ2QC$*\$@$J)K@%A?X'5!HWQ&'+C1E7AK+X,:>+'AL!(Mn M0DL,:JX!<96[7\%ZR(D_&#?XL)/H0XSH#_4A R!6R0\!1*W;T!!R4B2$"AB m M:-$ "1 0\QD"(%I20 HTQ&U# 7HB WA$_H *_+N(6&WZ 2A =@R !$R!IT@$l MAUA4D(N*C4=L/'+2#^Q L@$1E3 I31@<8 JE!&(# )QPL4$#774 F,(%."-Gk M(5@YB DS;KK3/.H'-.#>R 0*8*0"8RZT1YH0;>'%W:< Y")=1 MV\?@L![F(j M[Y#$0S((K0$)F$9B)<3D @>0BQA1A_$#W.C\((!!&(WF" "4EN6 6E1+ZV@Mi MKR6VS!8!4%MN2V3S(&3!!M0HVR =#8+P>C7\H%=('LJ4A0 #R@2 2AJ(;0Kh M00LD@SB(6@D* C&%8H#Y9("H\ =DX C, Q0 /;<;!F FCQ7+9g MA-M-)X+"7#AF>*%EQ(X0(,S1#P@0%@* W:(.S&OW&:"=10&(U03 (K9 5U6>f MG54$U %U& +K #R( &TP(D&G 4A"L&)($\8 >(PEALJKLTd MR2>I)(^D!;@!JVCG)!PV@.]\5(@0BJ2 F@(H42*H!01@)4V$[9)B8Y)0b M4@=Q92*I0@)@"B>@DX"'1DD2(*6DG(1>[DU2@.4B)@XC%R !SF_,/*!#&\,'TVE]0863IK FPw M"<<7GU +)L VD "*F7"P@,5$!F!#8W),Q&@Q<8%<8 14"V9A@\O5$[#!?@0 v M7&X2U#$1PQ0 " G8"18CNPW("0,)3&'')%J?#:9HH9WP,A%!?Y1E+G-G0HBCu MJ7%NH@EYF?0@$^XWB]$&,$(^<"'#<&<" ,(X"?*" ' #I@4KB(SIE0L= ,)Dt M1?0@B!5)!^"*?",_<$4Z3!]LCY>YE]DS52$6 )KFLS7LGJSY+G.AT?2? /0?X *n MIHVRFR)#=1H$UJF67JRDWEZ.N>)$>R!.9">#+1Z%M U$ ",X208/>H!m M_FC-J!D:'0*-NA]3,V]T3GM@"O3F"-V:QY MDA-[ .0'02@(1:!91$MNM@4l M)L!IZHG(ZHS\ &)% 6:E\[N>HU)]2 ,8H1ZX*SHZ.>_HWWF5i MBNT?< *@ 1ROR#G"E9!T='#"H=AJYA$]N(<&8>/X.YTU!3J \_,?1&,!;(\Sh MNG(D 07X .\(G\F%O;!'WU?WF@!U=+'1@O>%!-"5S#FCPY($X-(OT *N@S[8g M/QGQ*NI":-HYA!, $ /\ P#H%H, 0*R ,4U!6O)=TLIQ(PETVCO:EGW!%SF[f M0\IS?(X >)5DE$^Z*68"!5L 30] '=!+A"!^8'Z[((^e M4*=FL9U"''@:*P];(M5GMG(GTHETU3WR:<;DIP! #4#3!!!0)2 (Z$?H*@L\d M@A=0'Q-.L'1^/502*--W= (B@@$PB\84\S"S7R@%\>G6Y2#W" QGRC%Z-(:H(]*1=@a M #0R .;K KA4L^B ^E$; Z8/E9Y*5"]@%AICBX@JLO0$? #@<$9_F2U=IGKUz M++@B W 7L"01- #7R!]$A=9P,]GI0_5X8'0G3!\V10^ @43MJ7DC#GPD0; 6y MS5V\(A;RH%))GM) #]# W3&LA:0 &4\HVQ@ISZ[?G08V0"M%)42x ME16020AA%[4 (84*><*SBE/G!UJUJ&C-&P<@GXH +0V5Z'4)JM?Fu M^EP!0'3EJI]UPEY7\ !4'0!W!0X0%KA.6/(*7@& <<6P894);%BU 1P91_(t M9IS NLY4^OI%=:S$N6X7([_JU#2Z%XE%W!,2W* TR ,H0!8L&S^H%=X FUF4s MR(4Y.TGWA HDP'&63\AY,;[G8GB(#_ ,["Q5*E>8* *H%'+ 6UP);T($HH"U^18.Eq M#:V9?KHF[DD.":55,-I,:#&4P9J! ZV!%/2$/W<"7F8//:')03.( TBE:%]Fp MXYD$JP+(!@!6L6AO:*-=%6AL*+[GF]7$'F?$EV)** @]Fn M!AN!!WP@8CG9S=@3HNQ< P#PH,TI18J)M@;GMW"<[99P0H66Y1 VYN.LG (@m MW)+/\,EE!8 ::#BM%GZ&686@!7P+W[-3.B"l MV@TX'303MV^&#VR@&;R!=L$& $0-: 9L4&VE1;4-FE DVZi MF1#64@=9RS3/XO[4FOUS$^K:$.H-?"VP':$!@&_V!'" =;7FIWT3F@$-4=TMg MMH*QA&K=$:LSC:W6?1/31PUIS6.+:BW%R^2:$>N%)BV%HVPQPCI@!:T2VK9:f MP_MX7V_;];T&TMSARU>S#B0 .JDH[4 ,3*\.0!E!D46P;,^T(EC%N1%+H"GFe M\ ?[*0#8@CJV%#C*$ L -526V8/ODC$,03YDMQ;ARM;'\WMOWY<0X#E@]GW!d M+HOP0N7FP(( !]=N.MR,$''Q;\9U0?@ .F@7>V!=-($ K@GT ( X@CPK/@!(c M_P)E+<((Y!<#8(%.5D#)-2JKLRP)@I$LDH,#*@@@R;>-T3W1YB:MHQ5]U-: b M/MX4/&$&"ZV% -,GNP( =E!X] +O,;LEV-4BVRJ:9E7P"RZ:*[@'M^#'&X-Ma MKSEH#3 \VI-KOEL<;"II;1Y0PX4-T. A)7P#67"D'9=CN#)\(3E9=Z8 \5-z M+5+>>DN@ O&O<(YU-P516*!#@#-2[ &4L \5J:,* ZZ(P>P&# / *2#Z"-Qy MT;"C#0#SM^;,)VM 1+CN>FR/[S$^SD>+D' 0QGDD8DCTC ZV*-I)*H X6G@+x MH$86JZY[1H' 3CV2,* UT(*JY0U:@!+X!]H 0*%B2XQW)H (Z)@E( U(2X4@w M!)BH"#@C-8"!W!GG9P%>\;ND 2G@Q46V&A 1:))-1,6E(1TL!%*Y +XK34*Yv M7\+V.@,?*Q0F3%9\J"W!OM;;A]ICOT"O @ PH B$2 QPBS57 1B16&MGT45Lu M53EV%BN&$"]2*=80:["SAL TF%GH&&E=GW,@J;:C>>R.=& .WZ]'# !NDV,Pt MQ 2 /4JM1"P?Z2,T@@%J00?$N_E :L\H$9BP4J,B/U0[-RJ_<2B&'>@*"4R!s M,]J-N^&+6WHJP1QP@WN3@UZ<$*@A8$4L"PS2 ;Q!IO#*C)@[/OJ> XUr M@,E20! T4X/PJ!+"IYA 7N $P&14 1+AX]3Y'2:.6)B#U_,2I$%Q0 <2I),Tq M+^8;%=8J]T 'O$!^<67_@;F0%?IE %8(POMS@ \0XVI%",S5:"L!VFN5@34+!=Dn M %+-2I5#,^LDA4.7\U5?WCDGF!2NV\>)1X<#-%T L]DB2.:ZYT,R&P^_$(/^ $, L>:!:U $OBEK6k M1!X0 YBE#B2$/$!.>6,98 1RP NPB!PHJDF5T]6$^OS[[C+J,P!J00B$F N-j M'C2#.FA( F 'J19YP%IT$!%@ <#S'S0"8D +C "&T@SR('G^@P)]'0[TYE30i M ( <0 $L@I^B:E+5!B R-9'$%PG2&HEQ"\3IM&J!4D D"P2#72)C479L9)h M@"Y @ !XTI,G2O-'F?D!K+0R+=)9VA+FPD;KBZQ DY[16/I(2^E,>*;E09K6g MTG*"37^ W_D'MNF3AA9A&DG7QTRH3+WT!P#3:CI)9T( (@+.M'IVTB,53P=Jf M.)0)&XJ-3E, $>/ S? 6:$I TBJ 9H8U 0:73 0- "P QAA'(2D.@"AI2E@e M?LMW0?]4!( Z566S-051 9A&H+T!KLP49-JLB@2E_ID9JG[@> 5V-%4+IYISI&K?O*I7]O\!#TD5z M5LOJB-T.(74>X Y^T617TR&YJ;NC!5#8#%L=( %^_;$C]KPF8J6Z-=-GZ^(!y M#+8O@H8:6QAP;*%-M#_,D =MB;LV^CH15S,?:"C[:Fv MR@!9UX]T3:['=":T+C2@3=-I.[VN>_6$*9# 6EF7;F?MBZ" Z,:R1%I1$^M,u MB'.H@.K&3JQ[=L?+V"VL=?>T;K36I5!3LW3MK5VW+FS4X6-OYPW-_0T>!?^St MU]8T0!."38VY1=]E/JJK&5.GZY\\HX>R] 8 >^!HB("N/;#E A;PT-I%'@!Hs M&&V,]+:F\-!S>UOJEJA%SV;TW-Y!!EKN5EX^X:F? 4;P!D(S ("#I T5Q,#2r M9MR;&N?8 ]-04'PXJZ/C;O/&FS#3T<*[6-="=&V+@K<,SX6[D'@7C!P^J-\=p MND;4PKM OFNH0 EL> QGUZ9[$N <..#$BS<4=]:HFX?_ Q]^Q9]WM0[60_R'o M8W$COKR1N!B/ETL<4IOP;O"1 0 3P-YR 6H7C/YL!(@ ,2 "W=L%?._8'+ZSn M=[JF!#5$'9AO3\T'Y(@X8-_VPYJ&;1#\%\BVV2Y [,)C;\X;"P"X089SV]94m MCLL#[:(.S%?:A@K,@(&C#!C-R3VY) < KH"%*Z\C'L:[>*,UY9TZN7CMI&H!l M'E#!H 74#)8_:@'"?VBY+=_DN5Q@?'( 8 2j MRIUWHSWGIUP0S/),_LMQN3D7YJ>YIXI!__/ 0X-LCDM+^?JH K@SBWV-K_EF[H+;/1'h M#0E4.99EYTA]U0-_G]+R?SVB:[M"9N4"/g MXP0]D+/TGB[-PXT*S;44W:)G
)&IZ:X &HER3<_(O,-);@RPPZ?41I1/Qf M24#5G3I4, 3S/([+]!G=U(GZ6H"F"".GWW)J5M:'N1(PYB@CJ,_HKF[668!"e M)RD@F([;<2(0S2$U1,<&K\&:?[:*CLG).4-7!U*@JD.%CNX/#3M(G]'#S*L#d M@)*NSD\Z.T_IKCP31G:S_M+Y^5J?T8E=LM_TM"[6=3IB5^P (*'_]&-^RP/Yc M9A_FH^RO9TS!CLT+^T??Y)L:5DEV9Q#5,3H70.VP *N3 *VNTC/A;Y?LA""Lb MQW33KMO-.E'MY6H=F,_HYC[,D0!]1Q 0*<#$\&$.4 ![8 3N@3S0!S) z M'Y"!?: %^ $4Z @)%DYKFE!7@78=[0(PK=:9*8@'.D)\K =4T ,&x M5VM2 (2[?S]&PGJ9.U[_:B4A# .*!7-\3=T%YX,$[!PX:62W[]\^ S;5FZ5w M=M'6Z-F/ 2!!4NGMXYY)@CDHU2A;/JMJ/N*RJ2K,MJ;/N&G27ZV)#9"M%OGXNU^)I)KFH_S+) ;(=I2!:L)%;$RV45408IYED_E6u MW<<[3]Z8V=7 [2&-P\ I&JT+OLE%U-QSRKCO.L&2N*^EQ8T4_P*!O9$.Q&J'I3G>A1QAY_V;%>U<5Js MC, P- 4+O_1)E0.DWDU_YX.\I[[9$"Q![OHP/[!=?9EWU;1AUD\8:H!L<<"Qr MY^-R/M/GC0+ ['.AL]^#';T$_?V^ @"B@/O&5;OH!VJSp M/K,-=_7YD%Z,4 VH$L%_>B> V.N#UJ"AZ3T!L/=$WN-M7GU/#80>RK 8[U4:o M4((1*X.I@2UH#8;BTM@J/D#SB;TGP/B4$6/^QT["8FF,$JVPQ'#"')D6^A"^n M0%0@S0ZA DP8M% H#X$J %!T1?[17]JP?WP;[/WWM>X.:__#.UH=#O=X"_'HS'_;?ON:U36;?S*/]7S1]l M8IF:E_+FOMLK=!-P[S/<"[[W@-[66XQ"#BO4 ;N/\?A*3'>2NRH7YCV_P50Gk M7T'<>Y7?\P& -* &^\WA1V< 0,FA 2,X5]+']-@J]I3PL:NM\@2MH7%]?L.Jj M%B+^&5E?2X&YRH6*KYW[+,:/]R Y]I\A:6 %;D?!#_FF'PF0_+O#(E#^FK^Ai MI%_YRV!IP %POL6@Y,^ R&A_6T4 O'_> /_*H/1'@P<)),&#T%^71+\?V086h M2]FV9"Y<^C+"Z5.VQPP!I/Y9. L P80; Q(#(108PT ! N=U&'@ L"!?_[&g M B)!BF-.+0OB.-WE;*E$'RPU2Mb M?M:Z8?37L #& FAFRWE/UFX!/),F&P!MZG\EWE:9>_-RQ;]-!F=%'$7'X?:5a M;OOUMA@ HAG"&3T2=;4=9<7A'0-AE^!^K&(X&\/B#=>)$%"E^ \,43[S3E!#0O,(""t M'LK X805_] B$ 2*#&0 R@U (8( UE 0AH[M:"&@O_P4])7?F&@T0,>7R1Fs M9A%)0",D)GQ!PA0=9(S /_;0<15+/S' 3 M3;*P1;?8P:I\]@V'P@LD*DX 8r M"1F3XH0D*WNE V0_5]>HT!=I4+00)[@D =)4*?U5TT^37#1YD)"E# 4K.U0Tq MUUYS 38A8G_A$ D3>(T%+:K\P\S0;9_\-MBHS.U5R6:3E8PS:]>A1%M3 _ Mp MGC(/B,/?"B/AQC_"!)YQK$Y_P;#F?EE@N01"G,$Y ) 03O8"AP.0#!Z+]RSSo MZ!I=^;B0,@_&Q.V[VU4Z>0*DOOKG>)NP-RY%TTP!2T7P D -'PC@-IE@0\!Zn MF&4S=3;L BR>->I)9PS(W'*M , \I%QD2PM,Z#"5PL-9DK+2L0O@5\JE)XZm M/G/S/SX C.AS7H%#RS 6IHT9A&?Q8P@"!J.!!?*C!QF#P#]P(4$$'H4?7I' l M]E1'%F2P865"R)SRC-:U ,KK%'ZEB0/<-Q+X0HF!WZk M&$* P?CC E:2#\U:1H$&>H491 1 ';BD";^ XIUN $?_C%% SC$BG_(8MVFj M0(/X.$,6_:"^"G@AN:KPP>[=PPZK*QT0C@%WA+Y#VHP\G,.R>0_E/ /h M*?Q#"_\0PS_4\ \\_$,0_X#%/QCQ#TL485OJ\!:XM#2N<4[_G&/:FS*'^/B2$&"48R&'-X4$MF438+/e M=3L$@#'D,$D45O*2*LBD0)7I22Z4\A]H^$?F[/"/*[+2E;"4)2UM&:X$Y-)-($*#':< VCX. W?"FMW^08C!(c M *!,P#; A&+N']YX 5,N$H 7W"V .&0A"I?JC=2YB( L+6@Q$+&XQLT4 $;@b MZ8!X4+JE;BZ GEL9 P82 -%=A&@H)$\ B)?#1Y*E&"[P8?J:>1$]T"YW-AV,a M&<)7O:/"K&DT^,#*!""(BV!1 .%ZP/, \( >".$?Q&AA6XAQV0?\@(8*#" )z M_K< %W(VM*--'1+R2E 0 H 8GHAIT(#&$ZL!@ /!8\I= UB\L0& !];1K0F*y M=ID*)!8-UYL;WC!VL&%V5;;$H(%?H\D^ #C??&#P/PNX@?[X<\O=# JW#+Fx M/ZLF]KP"1.UZP48+U&)5!%.H6%,(28!^2O6A:S1P+Q@6V%"W;9/w M^>BWA@_UBAD8P,P@7N2X^L3O@DNK6 !45;B5BVWWA@&# P-.A>X]6257@F'Vv M;EB9$%X(8,/4,@K*YX)>(4$QR2(,<8CX:"3^7 DOZ-D+7MB&5&WD2((&5#QD3+& 2t M@T7F*@#HRC7AX=5X:88N+J3++JD-AL(36FYSZ0P +$#7E2O%B%X!$ QP[#B%s M&3;P%[Q"7)D2-B*X&XP"5.H5$!PZ&*)8=.H<7;;*8S41E*RL!RQ>Y],X*K6E4(YH'GN[QXH[L27XLF0&FWK0"A!NU")M:K(^Sq M-9YS_3I@*/H+!,X8J!E7ZHN0H<78O8@2F.V7R 6-^k M*E-6OP6 3S@Q[^8$;SG^_\Z$-_i M^M*/_C],0?WL,^,?6. ^\K\/CUG^0Q*WK,%(=VG27Z[+( J3& L0(<"B$ ;h M45"& B=& ET,-'1$ ;.!V]>%Q ? A LA>2<4R:>9^$B ">X,,f M&@@_?[5V9^%K"&)_1JCI9IA[8+RM!K \A)#\%Qc M;^=Q , &&M@"HH0/7!A 7AAR4/9^J8,]L<9XM-840M 6ON 5"' C_^ +>'@Rb M.^(+J8,.SH5_^HUU8T&O@"'G1X8,,.KOA^)E!F ^&"$Q-_a M\U=_&U,W^,>!_N<7[@")HL0QBX@1-F4[DF-TN348LM!P@S%@*#2$O8AY979Fz MI$5D&;9B7N%E.*A6J=-6U(9"JB4,ER4 K05<-36%N%\%;5_AJO) ]y M<(:#KP8,5%=0N: .O\:,0+4WV- 1 J )T;@Q4+A4MK!4M$ 6O* "$'@W$T,+x MDN 7(/!3_;1E_AJ<<&)5^87=QAR9S!Rw M);7 ;158Q, 6VB3X@AKBZ>33E1X=>5;*&*<>\&7%NE?@#F0T,E4r M6H5:K,E:<)AA/("0LG4+3K!RAW8+/C!06G.3BB=KGDAA-QAU[+6#/?@%)P< q MM]!#-<=R & +\,"0F=B,#^D7RL">6 @V[VEED"59_T!9F!5:0ME95XB=KFF/p M@;9FLWF=GY6=KJ67Z), \N$7/C55+KDWJ# 8?7DR1)@ZF"!@[S-F+T:B,8>#o MJ?.;>?$S1&)X[W=W4R9H/L) /Z-"Em M:UJEAL"F;UJF5+**41&C R $ %&M$ @:H$&D$!l M@0H$&I$"@6H#E(B(3&IM>X@%?;B&V. 5,$"H;&D",]F?F02 [2:(%V$(#8B?k MI.!64<&64C"D> DV..F8C?=QF=&3/\F#)B< 9$$+@A">ND8+#VB?3ZJK.B"Ij M;&<^]7(O^;(O#M O_Q(PLR"0!N,/<^< 7L$*/: 3<>4/#H&M&K.M=="MVFI.i MF?.MX4H1W*H3"_*ME%YHNON0N!!$1g M-1 F^]84H4,?%N!"!,&4UE)KY!$$9.$N]&(O^((%C] O,*M,\@$ -',1! !5f M#@!57@!5]' 1 \ .XY2H6L(,M:8%%[$ /@L #7"T#4 .)#.UF,4/%Q$!R,!Oe MZG 1&: 3 ' !\?-FEG 1-< (%\$$0-"UZ\).;>NV;PNW '". +['0 .Z$@ . &=DL$>:NW%\&W B /-@ +1I &c M;% &4Y 'ANYb M\L (H*"YG.NYCPNW R"X3A 'P.NL>O /_F,%%X$ 10L '*%%R.H04Q%B4W 3a M4P$")B"]DS 5)&"]TQL3/72]4U&+U_L3) &PWLP!=,34X$"/; &">L/2, &z M]T %2Z4/V6L5*' 3JN4/S],%OZ"^1[ .G6 ,%Z!_^K N4D"N8-<3WB*4PI8Yy M_."4-@>_\DN_]JL0^#L)^LN__MN] "S !-P3!TRN4_# 8)!VW7L#Y,HM-LLVx M $.\'E P%^$UU8M*X'!..W'#"G###@"_3$4>(D"][CH)$^P$/QS$"H$K0QR_w M2F#$,5&]2'P3$VP$Y,$=3RP?W,M4W/2A(' "-0QC3MS%W/)^-VP .9P#V?H/v M.A:_3J#%.WP":SS&Z%3&Z'1L2]S&Z.0 ;WP/2A#'.$S','$/1G##") "\6L$u M]R $+.Q(+NP/1H"^]M "![$Q K$Q+: 01X$/YFH/2@"+?N$%IY,P#/ #$T#)t M^##*ZFL5)#<)/? %,A,Z]A 3[Q?)Q3O)F8,/EKP3Q>L5(O#*$6P!LXP/M5R\s MN(S)7F$ 7D$$D!;)&X$/KQS+$$#)_' "MKP37B$5#SS-Q=L4I4S&W$S'QOP3r M_P &P'P5A0,'WQ,3(0;%DV"S^ (%-.LO+MP/9% P[D -$TP%G;E;+H$!6F/!q M5SP)2L "]T &*/$ M(#/F%-Z_PP"-W& W%!Z!HU03FS)F>0._$"]%0T-^Y+1p M[][,LM[J ."FT.H.S$0IS0;N .\L#0#NT&\@ :1T3!: ,+I369>Q=m MFI76!Y@ :1W!&N"U3G0/4D >5H#*"I%XD_ 3#D !"BT.38P10CS5^HG6XK##l M="T//T$ 2@!- # !7QB_\XO6[. U) V#?TY=,T.S\.SY2 $1> .[H /)R 'k M;$M9Z$,!$N,/-F0Q?I0QZT(Z=/G92HUW:\A7<"A%!,4':O=U(3?1$G0W^/LY8&?/i M7F$.GIW>FJ3<8,/>*W,!:$T-9I)/">T9YFW: ^7?5P'@Z#V_"E&$RWW>B2C?h M!T[@]5W=2G70%[@UHW=e M17[DW:WDX$T""B$ 2B )EM;F"I)_[B ./X[6Y2WD9AY^T ,$:9[;)/#=7([=9;XR1*[=1L[=2?[="F+-,QS&V* @7^@95#S#c M8$-F%TX%<[[8&:.=(&[@J(X$8R;I'/[9KIXQ!A#K#4[K"Q'KJ"X$7>,90A _b M 7##'( T@4SH#($!Q2[(JK 0A1S(B(S;NFU/O7W>AZX3!L#9>MWH%_'H8S[=a M>S[IUYW=VXWDWDW;FP[&J.3IX3W@'A#K302RQ&[(Q_YFRBX$S$[(AHS(E. )_B TSJMNO(/Y4('XL<.(+40.=ZGZ]>]-K WX% Ty M9'$/T(#?/7YJE437?0X ?\[=@?[= .44URT.9)$/%("$7]"$[I!5U^T-M. *x M=CX8A##REV7RKHWRZY_G@&Y#WUWT=OY^+?;<@T':;CZ#:_E w M'C'G D#H"I");M[TXA!075W#8/V%:#W6XH,1_^YF1& 0-#^# L#9$$3IY-[=v M$D/S)9 *"F+Q ( "-8#6*J[Q)N,.YC#J&8.38X, =O!60@O73H0NURT/9>RSu M>"T/!R@ ?'TU?QT @3W8A?UF-_$3"/ M W'Y\D _C.W85IS$ F'G3<2S$[##t MD![D'U[<9C[NEE[N:_[I8_[?X+Z"?(_QW++Q & /"@>/)S;02K 2=L[Q=A#Ss M,R\.Q?Z 0S_-3N\ @*P$U0_V%N 58J#0VD#%1PS0K*\-@RS[L3[WN*_FF9[9r M:"T/5R ,1" 943G\2L$3:\-S8[6VH#(%\@";V4/WIH\B D" !]8MC+& q MY=-V\J"O:3[.QQ0(6_>R"H?M)Q@ ?*#0K %YD&F/;9VQ/FL@!#@%[Y,/LM 'P[@!Z /L( ^\HM"8#1>+F,8*6721!; 0LAA)I!963N"T *]7:2[@>(.n MS5TZX+X, OJ/NJU4C@=.KNBQD[F!'Vm M MF]:W;Z+I%=0>]2 [7@[&-UML\+YKY,I\/0QZE1@X.P]H6[,U?I%L<-F8 30=4MLZ^5!); '%XD=8W8^<(^5@"7Vk M?F:@SR(Y=6!6]#NUIROZ 3A >/[ #_@#1^ /@$$P_ <#)UD0.%^Q#)Y1%CN4P4'<5R(.MYBTA,">A&Cc M]44MEA2OP@UKBF&"C-E%O'CRI%FFRT%,!8$X )K'R6B>7XA,H FM>8,?T#4Fb M&VHD<0,**(&.TT$RVIXW\(PT#PP@@]#H#?P"/+B,BQ'H+;UUT?2\PV<=*2.\4, T *+(0"(Q'F\"NE1'*Q'\!@_",![Y%!Sy MY8-4 =:8,4[(U>^ 5H, !&@!GT 7@LTZAO79B%/ML)2))GK>,v M" !\@%?P:]90L$5 N<@-O\24?(!6$@!(0+Y' ;/D,0, \< 4"+3 -AB, ('Tu M"^1I(*@-5Q#HW*0)D +N!^9% ;!Q;"Z9*21V.#-J L%2 0H OS:!YK@5*;*#K8J/\"K_&N,$_.RW8BT7B,I,@;/21q M7] #SS(L!,!I.;T>F&>CE:AN-58XVB3AR&6H:X_F#5W*.G49%?-CNT0MHXPLp M_ .I\ 6BV;4<)H# JH$ K*;(AA<[P (Q# !P,H+@%\A *%,"Z,,3_:-NR0/;&O&0>_,(TLU LE3XP0\K?#L2 CVP/5C&6&$%T D,80*4@$NF($HD5J./:VP]6H 1i M\,#"A A88[AS8Q IS+DXI^:',VZ=\VYNSE\#. 5GZ[B*32%LJAS%R0/HP0"Xh MG)#3>&9,XCF1*&?6Q)N+@Y@5+TY6O/R""Y 8QY9-P%HY029U]/-N "H&3T?Z/%4G)$3@M:-Y#E EV?A) O\0&6 e M#D7H%Y@ !J4'!X"!%D\-6D&WYIQ3 !.4;GH%/0! !:@!(*#,TP&04!.P-1X4![P YX K]PH*(FCTJ+UN!)BH"O\b M@27X!WI _)"#+7#C& #%.RGKX@;H34QP L$A)E"'[!!@=LHOH#+C6< P!WK(a M8,#,**DTF28 4 $VTP3@3)U),D(9\\Q5RRMHELVA:3*-)M)DFSW3;5H3)S(\z M0.@.%:'W\Q]0 N0YLM!GR9BB]E(/=,]+]CT[&4TAG_C ?.K0@[,^ 0H!L)? y M:GW*3UW&#$@ _W1BSNAJY%!=:C]]Z/*R +A4 1Q36FHX 4!N8SR*D(<:4'&*x M#@;*%.6BXM0B3IY:6'G\W3AB>%LJCOZ##&%/MQ0-^ =.@$O!*UG +?PH(+TEw M@K09HA]HJ 0F 0@B ?2%.PI0$ ""+$#.#*% QS"X/"W@5M"'U1L,I,![9LN-v MX1)(G@PP]Z?(/#@OPY 'PX(A2S2**4EWJLU2I\3+MN=26L5.)W]A,FE23:-:#HC&TYM 5B D/%NA8A9=OD5WN5B7:6ZTG$I6AZ])Rp M_M9RV4#&Z&%5JVQUL5J,MSI+TZ=&[1BYL@>BSFS'GY1A]/#O*T8(9L?O8(SJ)@?H&MBPA4#k M.LGJ336K4-/)UM8J2^&H+/"TL@T6RR:X+KMEZUV$11\>KK8ZA$["#_Y!K)0Hj M:;9 =@D*H?=E%A.6QT];"D%!_,A!'[7??K8)T',B"($E6Ci M.CQEZX+EL5<6<_Y8,YMG VV'Q; <+[[J67/Z8>4!:CVA5\$O/,PR2E0_' 3Uh M"K<5U,*#QNEB(^BB-:Y MGHFNS'+6<J"EYNR-J[,&E4\14@!0-L F ( '(X1N/-)(.KRZ@3'(JFML7S+7BZ (HIF%f M%;0?UA[HSVT[:4$K*8T'H,#0V@-$:U*O9HM-M$&4RZ9:??D"@>I$NP=L#(\!e M,B>@QYQ +'1>BRQ@= -F:4E#IV$$C#VSQ22ZP3 33NEN":;ATR.@&'Q %O !d MJHJ?\386D8/#20\@ICU 9Q_.*E#+9]E)G2#?Y+A.DEIVOU#68I3B8* "0O/-c M,%Q\,#H>;L3E-10W@5C\-OAM0U 0<'4N . [79+P.!Wz MR^B1*+EV=^E&TAGF23.)%4% ().&_0-HL'CA7N--O,Q@\:J/R8M*B,'BY5F8y M%S,MWK74>7'!XL5VG9<6+-[#U7EAP>)E")T7&"S>#=5Y6<'BY7J=%Q4L7BG8x M>4G!XDV G9<3+-Y"U7E!P>+U69V7%RQ>D=&\[(5#P%DT@)WPK(L@'!4$(E48w M;NW#<8&D4'U'@/+B7=QW;M4M&4 %9E?!7,Y"59^D+R5293 0ELKVHY7"[P5 "&C@F$($+_!,2 "G0Y]!LP=VRF("!U8(JHR5]830H0^>&;S-986& ^#@"/:"*QDPs M+30KF " 50PRZZ6!#!G'-<"KS-CR06:+O&B Q5&5!;6#YG$"_^#I!.&"X<9Y@8IX)MP83"@"I)Pq MF&#"%5B(&4MDN3+U@#]P!=266]3A7(:%3X$6GL->V!\X@Q80AL'G6ATG7J$,p MFTAN@(8I@!I6Q&R8&C1B3P")\241VJ.B$P9G R%?$:j M(-F+&3INDB@1G GL9\C-G$R*_A;JL@-/KHI?X(;U,W3" 4Q@0ZL#-VPEOYDFi MPA"BLD*(R579*0\[J\? (+Q\P\PP3_@h M!8_W'Z2V;<$.;@D"L+,HA9Q9()+!BF."$P9H5#40[P-AT"Q#YP;4QP1W8X1 g M$T@ 3* !R&]8$ &89*_ "$+-< G)G^@%FD (8 (E@&;NR9F$7U38F$":]QNSf M/,V;&/.! _VN"61 "^'$QRIRIV ('Y+/OA5RR%]4$E_0?N8)E9$%PLA"/$d M+G8BW!E\PMR+8)K. - E9<.8E,EC&GR,6YD["!WN();]LFH,GF\9-/8*B( ^c M^[)FG)^O\448(;9L&\<]M%7*!M"25O@%5S!/79L^WC\]"!K3#L'(CQ06PX7@ '9?B1ZU\^ZT>P =>()/2S(N@,@HND9X w M@T$,,.D6(P5/+!1@TO6UC@T76K *0-5%P &E\26H.K[),\>#>R[1#2&@?0$ v MQ*H/ J&#>ROO*XA2;6(O;1!+.-:U5 P8RSKMPNY!?*'4Z%C+O63US*<]H Q&u M&MR"!L1JA!3R!(/@$O 4%s MD-&.^10$XZO0*69PTGU#$9<8I(!6A@TJ"5L($U?4IDT,$_ )$@9GQ 8E8 K0r MN9,]=%A!7]5 )Q*9+;;?!@#U2Q\+[IG-I]4=9!;9CP+*E;3 W#S4+-V[!HH78YN86D1'V[<2P7 G&QI(1?@% )C 90@ =N5P7N[A^."63@,G1,ID!*^P'",-WM"QB0AP( k MO-G 91!EZ#ML8@+J/9>O-_"F Y?! )"'91J]J33[OB#CNSS8[?_M/O$W+5C>j MP-L07(8$@,"C-^ &WZU$?\<$1G 9:"A3"-W1VZA1<%; P&.")9@0$;P?, "[i M?471@.;;W0.<$X1P , )M ;TY@=7=8"#@A<.C$] ]\:?AFB DX("C@KZ=P3Gh M!ZY > !O6#"\]?%5%"IADP7\;^!-"R[#!5#B*X"SA,UW# #@=TS0!?.;BO=5g M$BHZT3?P%@:7 ::@YB6."T@H.7C?P-L87(9=C5:J.#8@H" <=R*XT\7_L>!MS9(+EZ<&)!00F#$8P(XN SG>K@Le M<4>./T?( .<&J7N=K>XNW)/8>$S(0-OZ0MZJE6$#!$'KELJTFXQ103S&K=-Qd MQN!ZKY8BS_)]1I=L-\C$W>-H94 Y<,'BG '5/@-//"9,;ZR-$8:Y^Q/F"@Mb M-C$7XS$!'VQ@JY#,?0M9F ?,()RCYFA.SDF!.>^K57EU P-!3)X_L5(J_QY#6HA!7DL-7-"@BZIRN"[!Q_^K,S7L4QN3[@Y.S\B;PA+\X,z MH)SX[N@$8'N#="@'PCLZ C#?7GR.,VY*$,(#P EG"@6@I4,Y/E#, X $Z-]>y M7",Q;C(@R@, !K#;7AP60#DF$--! .BVZ8R;!L1T$_# &SF4XP"1/ "P@ S.x MU/7!^4X?\"L P(#+L "8>CY@!U7=!ER&46S),[K+HP9570=[RB$#$Q:K\5CXD)N?+3E B -!:3D3?.A%/)Q]TP#A!u M[06@^4H$&' 1#@ AB.V> 'DA >35*A>"*3C <$L(/($GP 2*0!#0MT, "00!t M*7 1AL!Q)P))P D$ 29P$9H[%2@"1Z (('';Q+=P @!80[= _>W_T(I/?G?A&@@!1X D- (V:!Z7X1KL 3&.\7(0A\r MI?0^!5RV?T?NVCT):($B ":.Q-H[@@>O5-W +#=J4!Z/P+EG<)#>"20!(Q q M=Y\"2&"_=W@>!(2 RU;N4 p M%'?D/A+K>Q' D-@O1L!)O $@D!W__%!G@J0][/\W+O[64X"1^"V)W@G4-^;o M>X^O6T$ "P" )M#< < 3^$I:GK]/ 0/?X"5\%8#R*G[,#X$CCX#HUI67 :B+n M^^9?UP4$/H 16 /&0 !,1]B;N-P _\U G%_ <T;_F&3/$K+2QL %j M0B"6<0#5P@^*P-)\P01!";Q*OX $-@PP0;@7MP;ZYYI[M>%7UC!F #<^\C-i M8BJS?5OP!]Q^(+P9#3;N0YD0>)7JWA^ 2Q,KL ]-2!7[I[<,P!M[P^2P-*Dh M&,3H L@"M74.<1#$Y_:C ^ '(V(4[P& "O8*'D#ADZNL]!5H 1$8^\8.YP/R0N#H)WUVZ@]@?AT@#\ - &@!JY\YE/[AA.01@=VPe M!+#_#\2^.'4#Y $" &\T@/;5OC\@F%L_.P!O/1#WL3X0T&=F?SPP!:0?]K&^d M"FC[P!L1Y/VE[P\,'14#WA93RU_]I=\/1&?9?PJ'/VR:@\4?$U!!Y8_>Q;+Nc M%Y*8P)G^_N,/F^IFZT_^LR_Z S_DO^%,H04 ;^N=^M,^.^T'BL AD(<, +SQb ML>-7_6%3#O!]RA_[U7X_F.R/HJMC<< O^R&_(_/\%J"KFX#-WP]<@.UG"A&@a MJ_L Z&\!.HDY,/C^ _X [J\O-;L/U $:OMBN8-;0FQU";IXE>UB72S,">!Iz M"3\;" !=$OFK?7[ #$CM^ X 0#WXLU-^ !!D"3GS@P> 4!/$'BYI\K$VP y MT#"Q!@ 1)Y-Z?/GGCX$; (X7A%&1(")CPPL"'+B!<47$%^>O / P FT%PQ0x MZ.'GP8F5?^"4?'3 A:2 #D+^B1,*P$%$FC1<-"4BI(>0IDJD,C@#@&8//@ @w M_#,'IBN"KP!@C!72D%S4?^2*\ *P8)R0(^[^H<,# (=4"(CX 5" A,@-0B v MT)'XEY!@!5;#2FG+%((996_)T1KZ5$-FN73MXM4K9$[BR7#!<)O2EBW0SW/Ku MWLV+3HEI &:ZNA *]TU7$ZC!L8:;52E7 !20L*$$Y(-!$! !H* (@ 5&,+Z4t M,X<=>K9>'#,28VMH[@.!Z-,K6I\TG!QO7&X (WN!\ ]"@O?ES]-2Ms M-QPX8(##DDLP *@>1C10r MJ,,40OP@0$'_\)-A !OZ@T=T,"BQ@G%=B?@DMU-!#$<% '0$8N=;11T]Pq M]!$ .KSE#VA/C.:*$N$!<)P)_3D)I90?5"EB=1BAY@]V986U(TT)#2#$"1OVp MX\^'!C7PY7IP#C9GF,OY<.!+7RC(8$YZY(-.A.QD %8 _RB#%@$<*;>/(0S]o M0\^7&&!$@@N2@B" " 8%\%M$.%!'@:4 6-7BI9ENVNFG?8EJ:0"FZE,B)\A n M(<1F_^A#1E<@O*6/7RWR 4$[K" BQ L$1$637'_\HV*,BNP)$Q4+W@1H/E+Xm MU)6CD++1"3%?HH 1 RP,]FU]$$BQ' \Y'$J)#F4:H.Z[>SI11X.!COK3D5W\l MTI1^"K 55IF^*.N 7/T>P4XGQO"%095)\-)L#T1PY%&_32W)P,7^,@"PP!"4k MB0AO_M3G ,AEXE$F&08C_(O"#/M%4\3]%K&P,1Q4R8L,0%C9%0TM\Y+PS0Y7j MJ2P#+L-L#%@Y)X:)$10/W)4(93HP65-7,S#C%GB#g M?/L-N."$ZXKA#((X / #'XL+@/I*Y[O4K0X Z0-&F]R0.1A\JPQ=$4+Fd MZ,Q):;L0/)U&C(?P0@""Z\@^E*"%6 YG0:S"Eb M#]"HH!QW61@%?A > ;0) DKX@L9ZT!!]M*A,#/"5WDSE#R?ABA]E8(5' ' Ca M?W2.!UG4GY;F\L4P=F*,9=P0/XR1QOIX!E-/(B0884:!#-Q&*65"@/%*H!2Yz MX:L>KH@0+LJDB@C9PTAT"("FHO"(%P @.J&J"!@PPH1O & 2'#'+?]A#Z8Py MP(, @)U6!'"5 "A! ,=I$B1!@X!SA)$3RF""+I=G#R;,(RV)8242SL$ &P3x M&*\46T600$M;XG*:O%S,T982&0:("0R@D.8N[9'+6S:E:F"#Y=@FP9($5V#$!6\8 8WV,$/VA"')TPA#UT( !B24(9=v MJ6'D;DC"'&J4A1SU:#"#V %O$>,?V'!-$S'%#USY\8-OX0=H#)H77'P/!N$#u include modula2.uag Rainer Klute ---- klute@trillian.irb.informatik.uni-dortmund.de Univ. Dortmund, IRB |)|/ klute@unido.uucp, klute@unido.bitnet Postfach 500500 |\|\ ...uunet!mcvax!unido!klute D-4600 Dortmund 50 ---- Tel.: +49 231 7554663