Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!ames!sun-barr!newstop!sun!grapevine!koreth%panarthea.ebay@sun.com From: koreth%panarthea.ebay@sun.com (Steven Grimm) Newsgroups: comp.binaries.atari.st Subject: v06i078: modula2 -- New version of German Modula-2 system part02/15 Keywords: zoo, uuencode Message-ID: <34230@grapevine.uucp> Date: 5 Sep 89 18:36:44 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 78 Archive-name: modula2/part02 table !"#$%&'()*+,-./0123456789:;<=>? @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ begin part b modula2.uab M]P/#&7U-\ 1.D 14\ 12T ((2@15, 4@\ -\\'HQ*052P )!0 1&F:$LD 2Hy MEP1., 4L 52D 168 5)\ 1\8'M1N'ROV']V<( @('GL. 6V.'Y\8 >3=P?Bx MUWO&&'U*$ 9\X 0R:)KEJ7U%6(ARZ09T.8S4N'0M&A-/<&S-4VUD%6N(MW(8w M8 P! *9A*J9CR@1CB@-CBJ9IJJ9KRJ9M"J:R *;T0 ($0 !S2J=WBJ=YJJ=[v M2J=(P*=YJJ:$\*>#*J;8D*< $!#Z"=.FC X +L.*'4NVK-FS8@%\6>.FC%(01,)43:/799.3*5>R ="Bm MLN7+F#.W (OX;MX@8\;K/H4>7/CVCl M=F?6KG7+IN'[=NO#J%'<\_'7L4_;J%V$3!K!5@V;]5($K"8Q5N>4H:-'k M.UDOFL!.H1-&3E4W:+U,H:RY?F:PU:^GR0["A7\06X1!51?=@?!=>..5UY]_j M 0Z8'@CKM5?5@BZ$U2 =7A??BY0489i M:(7E!1:<\342"&$T%=54YGD1!&=3U($4'&:$\2((A+AH%7Q>0,$9%5:UD<96h M+5%BAAF%F>@%%2JN6!]G0[S1!AQIL&$5"YV)06)C(.1'1VEL"A'&&&O4 8=>g M7F[(F0HN$%&$$2" UQYXUVGG!1%[NM#$$T0$6L:@913*9!-@+?$&F=G!!Q83f ME,R!E'9@5=$&>%EF"193E405 0A11(0F2:)3UU5AXL@,/&&D5:!<$<=d MQRJ;KAAFEM:%8&FL \.)515"!! A:!")'&DC=ZD95c M5S$1J;MNG &"'82! (4<;YA1H1,57I&&>VB$>/ =!*^Q$ATN $#$?A*7AIT89V1ILJ[?@7I6C&:TU^VRT()"V&<@P6@=C$1^'S$;+a M.+(4;AA*M@H?&OM=91@=: CXGG83OW&&'%QUI3, -K(!GU7TLG'&A.@JS"J[z M=4P%0KQAE^=)JT@5=M6^00U5U%%)E2RW''3;C3?%>O.-AM\ 0-EW&IZJ!$(5y M;J1A1WC7$5+LX)\>QA$ 5$>6"G'E8Q1$(3\":T0@ #T +!+[VK-)?WT;0$ Q?789Z_]]MQW?WU&w M!7"@Q.B]-[%$%5),X0(56'!)_@,F2 , _&( $#X/OD=/_?YR6>_]_P#D'OD&v M2, "&I!\_$L@7/P7P 8",",$^ *B". F'8 @+APY 0 BB*@!?$F!(*2+ T?Hu MO0.:\(0$#&$(&4C"%GX/A3 \H0I!R$(7DC"&.#3@#!580QLZ,(= 1. .^==#t M'P8PB$C4WQ"G5T0C_@]\*H#'!BMXP05B (L%\4 >!!S2AQB7-IHA.[E\0@s M@I%Z8ASC]LH(Q#,R48T_9",.W2B]-,(1>W*<(QW[=\^1C'Y\X!6+Ar M" 3PL=6N_O:K0N)J#"#HV)V MBM;E>%W,,AD]'2P%@#DX),Y^%T,8! #'-P@q M>BY82RJ_X$E0?O)48A #RPJFG@2!2@C7F5 56%6>Z^@,,8JI0QM"-*6GD"HCp M7K3=%]FR2E:ZX9G0C*92G%"&.H0K,8O92E>^TII8SK)CK](+ R0!F( ( 3$o M$P@ #@" #!C0=B800 4 8 , "*!XQD,>1PP W< 8 +0 Y[PH- >KHS'*A8,n MY!(!@(6&.O2A$(VH1"=*48H"(&;5D@, A) =@J%A#G"00R#,T+*O*"$, *#Fm ME)8R,*Y5Z$!R($D=S&!2E*I4*5*X2QK,5:RN4<4P-4UII)1B,VRY+J=SV.G6l M(NDUH +@I$)=:>P ,-4V6>=-5P$ 4I5Z,*;^U U!O6GDBM $*%1A/H\I A&2k M0(4G2(&J2P"+G.AD)[U 5:S'J]WMPB"- $PCH,$;7O'RJLP-F@$=_P2 $:RGj M�D5*%OL6,? 9"C-]E+,)7#45-4Q2JGGI (H 5M2MU!!'?XTPFD->UH2WO:i MU+:6M:M5+6IA.UO9NC:VK[5M:I!>YN>XO;XM8VM\@UKFEMN]S1h M-A>USUUN:TT+7.HZUQW5Q>YUL\O;T(KVL]X% #F@BZCQFA91[H N;]-K7?9Jg MU[WK52\ I.M/^LY7NO=M[G)1FU_^[K>^IO5O@ ',WORJUKX(QB]\YRO?!3M8f MON;5;H2[*U\BH):_%BYPAC%\87]NV,/A'1T0 ##B$I/XQ"9.,8I7K.(6L_C%e M+G9Q1APRSL".3ID/P$6-A7?CC$" $_:T,4<*JP:.;((CS.!BC040 4 (%@ Qd M@#+X,&*_*]K/G06H,0":_.3D@4\#4 3?"NRG92X#()V^4V8!HFP_&MGO#THVc M0$;,G$X-:M!^I@!?,\#7O(W(>8CY\;K6E(@UH/H X%J)&!:3H/VM3K?$=&a M$&"!6?>@U8Y^]9T10(994P2+LL!UJ7>=C8PD@",)T."H,RUH4]\Y 4XP=AV,z M#>1EN]K9QAZ&L=61$05$0-C-WK0"<-!M5E;$$.!^])T5T(IN4Z/;^TBWKC.Ry M !'0.PGTAH.\L0V !5R"WKZ@=SGVO6D& \ #*A!1ABP@WUG^<\,&#'"C[!Px M)UD[U^L$P+$1_FL&_!OAI-@W P#0@(5#(R,-8"?)\7WQ)Y\RT0!P ,P=L.B8w M6X+@E$FG[0@ J\;L[!X(@ )"%=FXPR!OQ>4< X(\(V.X! )BG#! P] '@v M$P <(" )8LX1GR?OZED?8"A';KLK%O;A/?]YTY^.< !,W<]@)^!;'< 1C.S\u MZO,4YYPEH,ZA R\ .L^X.T_H)'>R<^A#5_KHODT^* C RZ,>/ &'WI$!W'VPt M>A_=GD=G ,O;[^J9Y\B[_XQ%SQL ] 3D!M>[[?E[8IZ Y@" E4M?V"RBP.@&s M]+R3 /KM8_M.\<-C/.4!4.LL*B#NA8&H"^ _YHWT881$?n M (-[0#YV!Q8P& G4EX7H-%A9EWP"< I"=Q'J) )!* "]$'YF:#LC (/5<#MMm MR! PB%@MF(4E (/RL$]S: )IR \YF(4G0((#H'A9E(4=0(@J@&QSR$XI "?l M]H3Y V8H=W0JP'X#('$<47*VLP*8&%?F1W+JQ *86 5ER(DT$7>9-P HI1&Bk M"'C&8SO?IGB^PV09R!'X-D^NETY@IG(:,1E?\6U9I#Q*QG.*IQ=KMV5GB \j M1P"8& =*9CO^9SN[:#QA-SH#\ C]IF1D-TZ8"&1#QTX_H$X'@(FJ-W19U'"Vi M@P#L1P!7-'06\2.VDP#MJ 5!AH C9CO'!X8#1 !'-G0CYP/J]'S\2#X$H U1h M!SV'9CO75Y"C0P#VD)#?UH2VTP#L5P#S-$]\YV7D-UCS1#X14#+SI'CK-UA4g M-CH+(6<0(%!S!CV^8WYTP!.1G?KJ$X6NISDTP")w M@'308SMRMI,(RA'_$ $_XG,;@8H%\*'?IDP-D!Y3Z:1B.CH-T E\29[KQ'X-v M( I!EF4=:A%9=&Q/R*5IEV6H2(_W.:0D-PODXZ9ZR8O*2*:XR95NBIE0JJ;/u M$XY5RG4C5W)YVJ49AXJF::ACBG))=J;.EZ:;^ QMJDZU>:%+27+O1G?'AI6\t M::I1V@WW&*F\]W]9&GR6BH"H* %I2J;+]W[JU*K& V: V@#Q,*K_>9\I2G(1s M27>J.IVQF'%">HL986\6P9U2N8G31W=WBJ8.F:2 B(KLR7X.D&5O&:GLA':5r MFEA\JDZG]ZZJX!@,(L)T?ZHLQ5S(^QTY8^:18=ZH.$&5>YX-6p M>G35R:]ZVH1?JDYA2J\SUH,M6)Z[.F.WAJ^V<[#=.9D3@&KE^FG':JJ9YP!Ko MR'/B5Z($D1$4()"R9P<9H0$\M@%^B75(B'67UITRZ '+]P'>$!#.7% "$J!RF"L&0=2N*j MCA"R/>60HLE6C@ 0."EI 2;K4C0 #D1%< *5@>O6#QS]X/POKZ M# Y5%0i M@GT)J'L]V!M",JC'D#V\6, A"!J I^]AV@CIB !2%'EICCX9Z(VAO@@&Ib MJ!2^'?F//TI2\!@(E@D*0F!2&$J@H>X("L>*15(#@T(/0&(H-<"EZ>*FL,S:a MT3_*P,9!H@6@TZ@WP&HS+'2'XND;LN[4>:=?=/BF!! B.D'FF9O"1@*PHC3Fz M+ + 4N*MG> J-)LN!1C2& . /'0< X\1T%< S3FF4 9]%8"&<[7ZLZ.-%D(Ry M6F76*>1 ODX$]NUC.>0+Q+AQR9:O#.NVZ]"[CQ4PKR'UN;#I8P>C"T%F96YFx MA3L (''. P#\M+!"N^E" #V^Z2!2<0!@K-!E?B'AG,MVPJL0#Y%!XQL.-QL'w MGT(#S$N"9&(%I_5A^,EL1&!/? #/M283! -AQ"@Iu M )P!Q&B DE#4J,QC&D2&@FUGO QD9!A("\B&(-2(CK,5RF2+/C)[ $IBH"0$.8P6s MP#^R4Z>D\ !<5C)GCI-;#B!!L/,/*M!@#:A"J^DR ""OL1' V?$/($=C\2VWr M[R.*$03CR&<=#P& !&*P .< 8S0#.@ F 6 _C[#&42A0)2320P0(o MD 9+ % 6L B$&W !@7EHHM_N,(Y8BHA04!C C95<0&*(4)@IN7!5X40!DZ$n MXF@@< 8%O."):?.+.P(CA#4@YP=/;-T_") \(/01A/\08>[BR$.\G", $*ACm M7 *I@"@"8 !F0( ?,TD01[A@ IY8!=I(:4I G($)M!R- ,SPP1"R(9<>.$4T!2)(KQ@F]^<(!#HNV8K1N GQ#')OP;D!; IH09&&8S&"M $!(/ 8/Y0DC?BL,9T*::A?B !1i MB?X#'Y;YJ#%#.B\5E+1(]&AA #@ #,X(*,GA88KOEDP/f M@)WTAZ8X98);^>-\Z<.''=H' PCD*BXV=2QDV2'9]@D!"J7:5 N9L*DV2*.$e M'SN #\@EF@# 8%.1M8,(D" -=VS*%U#P(!:0, MDF,$>,$!!^'SP <:E( GXd MD$,*E( /-Z3@"_A0 U%$P(;DDJ"Z;AA,=+'%#Y4! :B1 )V,0 <&X% ALPc M S^FL @+:.,, @"#/G#*#\0Q $@\),B:X@(@$9 W+>H-K'?!:T<2+ $, OA0b MB.:[ $@HPK[X/5/Y1#(%\O+1!OM%@)LN-!H%V/0Q#0A5&[$0F Q+8:<:AH"/a M"A:^OOP#"'KR16!GR( *BX2/&C QBC?\HWBY6 )ZTL:,@V9C!N!8QVU2,2!Zz MK!"-Z<(?Y @R:N4Q8%$JP,#I"P .6H"$PBRP@6:PP$&9] \:-*8';'+ IB(4y M "2H1Q#_P*R8[>0 ,H/AS&E>,VE4\&9_R'G,>&PC'/!,4SW?S[SZ6.P:^X*3x M2F[(%"#PZB(NZP R$ 03$)# FSJ\(4-$^JO_T,?OWL EKUI5'UT-0'RK2!P 7B 9t M#'?"PQGNAHFS P",L#@ :*%Q9VC\B\A(>!)%YS'VN<_CPD_"H"'[ DU'_+0r M3'H)P@4 C.$-<,B#"]@P!SH0I $*& +6\Y &-YP!!" 0 M\@/:V P#L3X!#q M&=R =H(0(0QT*$,:0#"$)T A"RY@PA2HL*8TC $-= "!'=X@!S2$P0UDF+M+p M[I[WO??][X$?/ CT4 <0U*$-9GC\&>2@]\.[Y.T*B$(=RL &-I ![WHO_.$3o MO_C&/S[R;G )V+60!M:_OO(@6,/CZ>X&PR,>!&60@Q[*4($Nn M!S*X(?FR/W[M'0]YR:/^"=6_OAR"/_SL)U[TK"^#\T$ _>I['_5&* ,:V(!]m M,>B]#7S'>N])GWO4)R<-=)!W($ %8=!U90 "9" '@3 &:S!W(+ !90 ?><$l M-@, 05 %6%"!H$4%%0AV$"$ !@ 0'.BZ&*FB2)C"9J547UQ'#)LV8%@R!*V]AI8R<.<)!S'G#d MA@T(-X-!A&DO.@S&CA]#MI !@O=).52A9]Y);BAT'5E-4')&=[3A51T(9Y0Ac MQAL$%F8>:"RHYQT:($QF'7;F=08'9+21I1$(8E!%&R%F5!2A&]$IH% 0](FEb MG%P=UN&)?!@=F%UG)]&'W%&$U!9876)%E"$98>QHQT6=)5?A6',HQ$09:)Q'a M1QUHL#$'" ZZ019##D$D47!0>A1B97.8E26#:) 5A!NN59=91F&!4)X<9IV1z MF4+$H1'88#0QN6.8YM4)@A#F470G"G61!D*09?AFVQRTO?=&IIAFF4:+<*9@y M8%BT1>@F8!8FB=$:]L$H7513E<7>BZ"!@(1R=:51%9B4N"$F1FY0=!:<8":Wx MZAMMP.$:'2=]B81]9(A11Z;F5>6+JN(:H"#8- 1!%&3$RQQ61@K/&#M9YLu M1!).)$%%$D\XT0)^((FFV*)I<&<1'7&*K%#)1Q31!!-)"/%2Q1>;]W)@4PCQt M,0@F@/"$U2T8X995WX*0=!,CESP%%40P[;1+4+*&5HAN4N$C'YH1;K3((;2^^q ML=Q=NPX[6_-L;UUT\WAE2WX((#E.Op M$O97/"'%$BIOK_K&M4K^NO)DI=AWBM4UEVJMZ]'G!O9#> (4LN ")IRM)2B8o M'7'651K7T0\$R0N7%")SG8&!(!#=FD/T4K._B&"/>41(PA26X *:I0QXO/$-n MDTZ2!@9RS&,@&UB&CB '2GBB#!EB0F7,@*0UL&5::#!)&%($ A<8$7LH*$((m M(R8%%T!!"D=( ?"2\Z(0%>$Z=#!*1EP@!!> @ HH@<-:L-<$&4 A"%1 @@NHl M@ 4JK 0%4P B',P0AK&XL E/($(5F!"$D2"A"$Q@ O:*( 4IJ*^$H&,)"HR k M)=>,JPR860Y&PE:K(2#++XXDXQ*^$, !.A&*%%O"&Z(GAQ$Y!C*2\6(1OF08j ML8#@23T*$?-BB)L=1D@.=3"#!Z?'.8[(8'1!.%D3GW@$X*'A+QMK9:%B-84Xi MM0="5)D(8)J#O9,)H0I'<($4IC $7CJLC%/X8R"UR4UOFJP((XP8%!!I!'-*h MH0C!=$$3BF#.3F9!"DDX@AJI\"H%W 0&5\F/2)H)2?<<3&$%DI$(f M(Q;P@-83302G(E26_-1ASH-F2$ C5"4TYSF%.4RA0E1&8 IS-*3Bd MT!1BM4,7SC*$(X2F$*<)':&B *9H:>L3@DE($'0GFKZ$ D6"Z (ZX($..^B0c M?<#4JM&$(4YHJ4RFVOJ&.J[)2UV=4UUFPP06D;V@2FKI*Z:\C4a M8ZS-K20)*7&M%-0CS0K-%4$R""<@F>""NL$UMAQ*D6I<)%%9%H$*59""SJ@0z M!N+$R"4NE0J" #=09[I'F>^)3X3&2J^RGC4P;0C$'*J"D>\&&"UN<*AEOQ0Zy M^#8!I9A34EGFXR7Z?2G"F6JNH(0:H4YA2:LFR0U-.@4E5OGJ!%]BPQOF$*$Xx MN4I&.%ZHN= %L! 1M#T7'9S)ZLN1B 0"!"> Z:@O9%*$[%"DU&5J/7FDS%4%Y^#UAt MR-184B+:5XL&@^81:KCD!TF[9%'1F59E4T=4G(C0!,#IJRr M9CD$;&^3A;[$<8->VM"68%7D(A$1*@_&<)'8L,<'1$,2M83Ap M%R)BNV8,QYZ0IM7MZB[10:C*?"F(E$KO@W<9W[ZJ#Q OV*T' IQ R\XEQ,No M%8UWA*'$7-(G:[#BU*^E9\'/=/K^E)RW]H&'5F6k MM3P(@AB*"T2(M_K51[I0@=\-UC.G^01/@(/3(\+FKG_S02/%^QR*[AJ,_+[Vj MPO=P:4%9K!4NIP9XCM9"NF02$3)]+N$:9Y!^JD)F+'%_5"-'=&1'A-![:#=^!%g M(#A\7U2"7:8'7.1%X;(LS\%U+J$6-#9$HE%S7T)ZC\$O'R9AQD(NN?$?0ZAVf MZN<&KW423S@9P<(&+7 %RD$&;W 'T$2%5M@<2RAD-O@UJ@-3TG(&e M4V8L579EB]$WD=$<(0)U779,(1(A1S@@&<<",$@63R(OR^$OVX(15S @9($>d MA%$$?')9N!07^R>+QI=@"Z95L50@73=:2!5P2D4(_@--I8@J:_>(O31M1C%Ec MM_*)E24IRW<4SN:)'%<=6G1^1G>*A?$&^ ,A;J$47:4RW9%X:%%4RA$;86")b MVWAL\M%AQ/0]97".$_-4@F)%[0@9\ B-F=5A0?@U^/@2@ 5-_'=2 )E\-#$8a M_[$N*6$?G.9IHN$$G2B,YL,2)79<7L0H:9 2)U"/ 'D"##DD>&<&$#F"&3@Dz M=] W)T$'J-AUOP-+*H!$8>U9K=I80<#!E!WE+GI5R]R,EV@A&CP4\^,-KN41XV1>/1C$'x M4J1,Y[B4$;D<&=9E*5A'FD(MRD&'0U1BM34O@)$AHX41F"B5=U$'<'".K18(w MPZ%V:B5<7Z(K1DD5%T$:7W(B8:1+7:)A?=ER''(@YWB U1%X5 5]:"%=%I0Bv M9G"(CKA[&Z,"+B S&:*:>$0$6OEW^8,1*+"% D@$&4(V!(@1P.&7'14D_3>#u M8B!4F"@S-&,S..,$,R@I*) $30 %3* TG^,Y-Y,S4O2:>Q2;BZ8_:Z<>VN*,t M9O8E1]EGF.EX*;<>'"AU*%E)ER2)4X0'C,E37X1.5+":*"-4-T4%]"E/>61\s M_>,>^GDV]IDR_68M:+5VK\=:JBDSVLF5&-D2_)=:424:D>A()TEX'I0AE7%#r M2?(5>?A]& &:2B5]0E5]QF840O=@(+"@*(,B/[BB_ F;$JERGK:$[:=][P=Nq MR5%_&R=*I*1A3$ ))H8165,%!!<1$?$K4[9*)1EH@_8E_?9 DN. +6&B0(>Bp MV.>'3,5HS 95=B0Y^N>-'*1:]I%K'!(1=! IP=9U6JH%4_$6AW&B&IQ(12_HE+N:;&.&&J)02**":Q"1%.^F2W)F'n M]8)C"C$#^))"6S9_&!&EB%<[&4*)A(7)0")6JJHH0TH&I#$4C;! Am M$*$<5'$P/F$RL<*9C'8Y$G(GC"EI4T!KSJ6>F%,9JE<%H:$E9!&LQX1QC#D]l MDK)]A.1%:H&2TKI=AQ6!( H\$38N\V$>N5(5UQE>XD1>N$H5T_.KF/@$8A!Hk ML/$W^3$:+H &7F05A_H>&Q(8;U ;9%$KUVI8.[1^*@%.Y0H"A&<=E94&$74>j M@&>6:'%3III9N41FANA*F,APR>(6D=>&C?&&DJ%7/!EK;V!8A)!+@4$5?)FDi MR/&'<\DA(A88 T8[@<&8?$E70B("Y64UY#."';NH9.&0(2)* 4@?TT.3U\IXh M*==".I1+G58=E.E(P6@RO7H&I I<]]8J9$:PXX6T$8NT"ZE:(2*J5!LBW)$#[>E(2"NVMX1S438]-_6Oe M2XD6<50BN"9;JB8:MU,'U\)V:L&AB7NO 5,IE9$:.T26$_6OQA(A[CAWS6@Rd M\TIF!Q)HMI%4[.JN= >-\= %=F)DB8I9%@A6@!S9!$LF0($%Q8H,#D] /8Dc M7X:3RO5*1B&FFD<3LAM7:2%PN"4:-+D%3[ $70"RDGITOM6,T\,;+K2*T2L:b MT_LU'A:VJB:YMJ8WE4L3* "]!W:/OE6Z:#!'=21%DC(?%$:[(!$883-O L>Ia M:;5?\0?!LB^IO G5' )2G!>F(4QN**=T))H@&85-D"z M<4D&10NNV5B^WMD>)T6+Q>+&8B(H2*EE'(DMW2%F>/K*F,Y=W]0$;>9J,.5R68T,$3S %SQ>1x M[2&K-1=+B[&2-)FX; *M; 6^.AE-\UL8/ED&9&96DM+&W;&6$B(:]FNI"H"I_'&0GQHB<"033")C8L*SI6=Y*6"K"#-DDB7)E]F;(" "u M86<23]PB(E!E/OH-P9M,&Z>B"^]P'(A>5YNH01(?&+t MV.P6;* QWL?,X8*Q?D&EAY5G6M.NKT$'\-HS*&*:M)F.>/$_PG4BBTS&(:(Xs M9MP9G@,ZHD,ZIG.2*8G%/91RI=E[DKS'7ORO;FN&A)PD2Q*\Y@(?UX(6-1>:r M,!16OLA@_XL1"HT6&\,;3YP:TU-;@<4F&?)[-EU5 D1 !N1&QHHLP=$ISW>"q M/I72TP4]UWS":"'3'T7.#/TYH3,ZI7,Z_WE2=84H&&$:SW2-R]BX;A "TZ/+p MM!,B?8B^(O!VYA%W+S+-DMJX6H /MYH5=B(PA%]JA_n M\QB+ATYKD-F?[5T*RU1>#UU2TFYM.' M;**3XS1U*4<*?!2(;++*>4NK4GZ'$1 W,19M =L&'(*N$UO6<="\W;5#:0Y?*Rl M87P&07.RX.+%C$+2G=9X0U#;8X!#-1TB(O L,S'-X;*1PWH?@$-Y90'02D<6k MN@08HI>HU6QYW)N':+LJ1RS%%KI#[NAZYKD@:<=R+[W!$S8]VKV"8C!@*@6Hj M(&"(SH544[;-E@?+P&*F$UW6F TMYF$5>S+3%=*T*R63+!&X22N69D"6-JDWi M_J68AC45ELV)DFPH4$T:!=D9,HB%7L0$G<6](G=[*3!076.))#>\B<<*5+;9, &=[(669C;f M_82I,R"U:,&YYF',8!6V4TNJZIH\4_ &I%(&+7 ERT>(EJXZ=RKB-9<2:?W?e MV#8]0V028:$'T[QW:6 ')8D"4#!CR=L1TX1MIY[;0\:'D18BUGNFM-H&TX/%d M34L';(X62<[1@LQ7QL?B,YL2A9O.Q!'>#^KA[P+JL>6)CQ59P]9(E.V_O\HDc MXU@6)@5-9(!+=X'AL%H_R9$2!MXH)BL'U9&4@B(&?2,:5M W:3!$P0F*L3R1b M.YAQ9#97SN7OU;a MI-=IL-5>F:7&?>??;X#R87&[N40P)\&WPU4'*<)"57_F?FX=^B[)T)<2FVSN$FL&5*H2"0YJ*::E4+_MAE4&;R-KZ1XB90_$x M9^]E6UKT7NK1 PLX^(IQYG%Q:.#P7A2+!>CW5G\27YD\J^Y"#"S;"LP2V0J3w MF]%N$Y:^M^4= UV6(]7)$;&87P8XVOZ0*#"K 8>6(:41*6&+OA&KE5J!P@SSv MQC7C,V]2/TL8.MH;J?^0,9#U*M&W21L_Q3^*6$() !+FE6!IB)F@HW:*PHE^647%.+'D K?- A-Y-+0LIr MWP1P=(<%L)%:((PV#R2S+CA!% :E<&+<9q M9>U.$?>+%75M_F6ECR0B&AS9JA3XK3,\.4LF08">/K>M^D;,DQ=F 1G"]F)"5;G N!;B-A3_6I-+(<^&-TPj M@IZ8@YS07*2!Z5$1*D6(6(5UH!5&'E@X521",UP5$+!'N$'80AML$D186&2!i M47!#?E7R5 ))Y! X*QO&AB05&(Y)LC(6)DZNG026H^?"4-)R(7-B/I0$LG#2h M=I@< '\50H&<%&%'!/:@^B)]*L]W,F(0_>"C<0KI84Z]$BI">]+9CId M 6;^F2>*<\&,6=D&9N&** ^OD4T58F-8DL; NFA5+>P!'*&"58?ZL@9N!%.\c M>25)JA (60@'FMD3>0)# )U,@6DVPGJ8;FN)4JL2D:HRQ09*@GP*2R9CE-06b M-L 0)=H1VX3E(LE1@;-X';/C7?QF':_B 8FI]+_0 L!9 U[DTSV3U[8?[X(+a M$0%W*9JBB$0W(4(@1= 'X(ZAP/Q$R1J ((('H) 6F#.0+45T,+5P!FX$$6H!H20Y#J!B&"&]'\.K*y M3E*/1T*MF$.3L""M6V@J#E01/1J!I&"@V@O'&F80 5Z( 9&UW^#?>C(T+O'$x M[;=M&'G$8LC;;A)&.6",F28&^F.&HY$VDC7BR#NA$2+$8_@4Z4PTTL/I89$Rw M1;7"75;AU!FJRF(5K,R"N6:O9T?8ATYQ6&X(8=@88"19K 585^&H0EXJ$=-Dv M&4X%WH0E;E&F6($IZ0="%1" $$=>HX1 >'!Z>"2[(B'70(5$"UME6T>2RIt M+SUH+^,C*\/&$7-354AJ3 \F==;0"TJ1$X[D V8I3J1;;&*K 1%LIV_Y1\22s M(CJ%'-A L*$\D;SKH(LDFI;:.U;O^ODO+;6*(-+TN)-H[$L )/$433Y2&^A)r M20*UB4NE,@"O6O6*#XEN"&*$JJ <0L#(N%0N8-(=I(AES(3,Q,Q<(:+3-9@;q MX1IP6/-I 5TKXDG%!D<55QM&6$7I:F'I"1Y&6G3D;1%XINAW"K0!!4$L&*8DXWLIIL"ICRN@46#3C=05;!+G=4>,AG-&U_30E"R'69FIo M()$93,)4T"403N\H,VW$8LE)<2[.$U3(A0R/T)1;1(E3$AD9!b M%& \VTM*P!_9*I(Y+"F2*,4(]*0QV^_=3,73Y%L0(UDH"JPH%*N%X[3-_MQ&B')X"$]L4E\@G '/ 8E!!@2:VQN ,B[N3*_X#y ME;*)4*T$)C1]!ALP8BO4/Y#.MQPDA%B6]F55+(QTI#U\"5*T1$WHZT-E7@0'x MY LK2-#&FA6YI6BA#U463%G&4D*G7!T@=#BD!T<%2E" ]0./1D7XO",I(A=5w MDWE! 0R0'PG5,P"IJ )'VIXODLI04AH TX "F.9LE1((H=D49H:R@ YTI$J,EJZ,YM"00( ,J*9@0 GE@_^44#K/4u M8"#W-&U"#_JXM-31&7R'B!)- -*OZI<9)-QRD.XPGX#5*@A6K4%8S7/M8'XA(-2R6^-0H[0I.20#1<7)MT[8S!*WG4DMC L%$SB%]15K>1s M#*,+9L4-@Q2F H_41$Z&0 K .;PSI/S.0T(S8--Z@'%E)+'IK?KD5YU ?*@Kr MU^J3%),C=B-;9F;\H,A2IT()U<1&@)H;."U*2+&BDR6@3M@)9@H[L#7:G"]Kq M.5O68WN$KF8$C>R3-@( 49IKQ:U_3+N$E+>66BF57^5HGH?IE2>-9E_A*G]Mp M#E!T\XA/53'[UL)JT /$0@:PLC6 5_6J7;FM94%>A,7P-(*JPF=X SL#\16.o MPW%A_%SFY&^FZ&SVGI&Y(3"&#K0"HB-#!!,I(&/IHEV48Q?98*>!&6E+O80-ASC ,*5!XC3I%l M5D12')% 2$9),BN=D1#0(%X$47[$*7-FCP *& )%DV:(#BF"' LMHI4"1 "Vk M!EG]9'R*; BD"2< 6=VZ:O%1/B))DA1$KTO9F%K!!$J9(?.K2-9O&I\D2UU:j ME_'!&Q'0IZ@4QA0 M<\0L $XH)+" &&CAEJ(=^,@X4)?S,-TH1FBRZS==O#!i M\G0@'<@2B ! :0$0!P:$*H8";6M"AD Y0>#90AP<<&V)2A"X 9P#XJPR9X2_h M),BQ?4C=J0C. /X@!![$%4@*$H^4NL+;X8SPI1F8,JG6T*(_[[;MG*NRS1#Kg MMMW2@7>+*JZQ()7N3e M,=._=IT_"P= C1-XLD7@X6J!R\(&8D"&&+I=0@8<7:([Z:3([U&YID/H$EV&d MDE%= M)E [+RH,G'L_AH0X@3Z+*3K8T*+2$2&FZ;86RF.1;-MH"Q*Q."(YZ3c M*$ZQ3_Q!6#B/P"I[,%T4,DDMT[-J4MS*A!!* )@/-#>S= (<['XC^a M(PO0HH&IZ8L00.J4P*25@;4%1<@YFH>=MSL4Z!YM ":(B0VA6_JJ[$ .:+ A3Ny M8[ AX>\\T89SF<$JE;Y("V(.W!.:0-)NCMY35A&!'%FR>S FQ(132(/x M9J3]RW\G1A/@(N]P33&%IT" "[ !/L (. $KX 4,%7#,$IAU"&u M-)5+L,&4)@=7E2 OQ ?Y#"FNHRD $[.RXR A7A.FZHZCV(EF"#P91*T,%4t MV I' 2GL[5X)\V%G"D%RQ!_10(9'5+DXPU.X"FL-*L@K[$&"1%04@s M.8R<7*K#9K@&YV$KG$3Q!Cp MQI!2DH&=2>R_JBT7"0)+P!>7 9BR+#JQ(I[&LMAD\.$ Q@:$U L:P@DC"1<$o M>6P0Z+$27A@*P!#-A$0TA]T 0\'#^A@1*2(;7%7T\,/%PX&8H3"B7Z$0 C(_n MIH7\ 2 ?HD2DB NR%98B"+GYH07^L)"YCD.^ _UXTDGD?3R05<(0T,,O0!AKm M9! PZ3JR,/K(_9@&2.&/7)%/LA56 2HYZJ$%F>R2&_)$O@/SICW\8T57<2S;+(($-R&0\7)2Ej M\%K&R6X9[\GDK^R4>>A8MLL^F20/ 1E3%?ZQ#:;)!#D- P^N'"(8"J&<"H8Ri M,0ODQ3QCRD!$?LP_N2)+9HQ\CE\RJ%$#A(L?:g M2 I/FU@LF4]&$K7!MAB2?*2CZ'-W5@@$.B2DM_R,A_DS06[0VZ5#0^A.d MLS!-CC RSD88*"QGYFP0%$+AXM";6 D\A.JHGAOT$##&BKAPV0 C IAQ]]K(1CW J0+IP(1YSC(>--(WNSU:XF-3Bb ML]>TRH6/)LO"R!9]2*^A)6+TC/;+#?J$*.+3N]4&X)<&TF+:*.B0%&.FCS0>a MML@75 KOKS8]/9_TCY8D"B%.2]S 5Z>O](?6P\H)#[L!0D ;C-'L]--@.E"_z M1CG &,J _05U7\(&6VDTK8=)$!ZF;7-N[CSJ-PVHX7%02,XK>D6S:*&@ (2 y MX5P#9/0HUF%7O2EPPV^NQG@8>5Z>5RU9CF)];M6O^E;8D4U,JPWDK?Z\>#A6x M-T<'JB[:\9!2",5Z#4#GDX*'H_6=KLY2V%H[ZW<MLET(R-q M367>-DI)Q?8Z7Q^$5+VS@X*5H%5 ^PP(;<2=E3%V54':/"+TZ>I?,18NMYB@p MVA2;+W?N)*VU0W>M&-T[6B*9[G&Z7Z+U"-%JZW,)K2=_ML>V\]#+UW=S[DBFO!?,]NPTVQF[=1;M"+.WKGm M0U0<"%H<^J[=4Z ET6C[/;!!P J0PKP[%STD.XNN%<"4OJ(!/ QVER0QL*j M)=<1XFQ@2M-O"NZ7/3<25\1:;DN0P@/^AY6X H/B-DR#&&@COHG7LQ4&W_K[i M:_#2%+ "=#4O;0$Q8&1 \?1ME%^Q&3\GU]F+K_$V3KUXZ0J(XX&:/4SQ.EZ'h M[WC^ML&'U@\@<2DRNG&X'T8]J)=ZW>QXK+/K\0\'XB@[-GOg M@5$'D9/RR7'8C($S4()4MSB4C;I?0A&OR)[[DRMB\BUZ6K80,.7HP>E :B =f MK&X/&P#>5GMU6^'BS:2_4M,&6@N3@W.=7JXM&,(=L-VOG"![;B6]I8VYB%.8e M&UP4=7 %T,OUGAL YNJ[@@]S'-VV@<9;X,(+<(?8YS$ ("*",X?FW5N<5Q7=d M367:[3FG-5U8@0M@6X:/+LS(:DB&13[T$F.,$4Z6P5(/D^*")/1QAO,P@F8Pc M9M+!S #%JQLNYC//A)*<&?ZR'_XH6453AL$/TC0% !9 6AY%1N -I=3Rb M'YQ[Y4"!/QEPS)$Ma M&Y62(JB> 2O&A@)*5LCI4-(JD";3A& F2Q2L"RU.4L!'C7=EJQR:^G?B C!Bz MHR)FGL!A#!N_GP)A?X0Y$"-F9H#!;'XT_;Y=-H 44,7N(HS&\D+*FH/6FQ0"y M2#\7&3-JT9 WX G,95K_V+.29&L8&L1,D$ 2, )4H 5<'046(=Y=J:R)8.?^x M]:TOH5IBA5*W8A-%KO\BN@YO>PMJ# R&T*K?G6B3Y$Z 'QWJZ*&HTY^>)R9*w M*==99PS&BQ@!SL!*^>6A.BFBO?K4]9,%GZRF*3IBR/L3?6&:=Z'29R(%U$9u M4F"R&GIR[BV)!O%CW>6 1H@+@&(G1@2'^;QBA5Y@/?L,A^B?4P$G.-A3G^EFt M*US]K#;0@!2"FQT+'"3I2 >/I$'>U)2ICCS@NT,< ',B0I(AR8YZY)U ,CQ@s M96:"?'(IT!I';I!+I(@R/""! AL^TG1XP4D$&M45<.S1206D@!U DGC5@XT@W1:*6//I^W26),6/RI/UPOP0^q M<&6SK'MH"5A^N(, +H]E[3LD.1JK.CDW#)Q]$&:$VC[(_9?+N^S?T7&= !78p M 5^@)7!YIC$C;*QVQ/,92.$)$P#T*V'/2X$^+P7@//^5\TMZ8HP.o M 9+G)\:>GQ&@H]+'^0'T.UZ3IM_R'&%&%)(@D 4^O?F0\R':_^:1/5($3+U*n MX/)X!%K[39I!@KG\VE 9IN,*.'J7P.5-![1.B^\%T9_Z13'H74+-8 *NGB7Tm M^B0 K9_ $XA.GT/8_PY;WX@GAA-X E0@V2=Z3@FM2WT)'O.+(@O\CCQ2XZ>]l MUB "W5X_2?MA+P3>F*HCWC_ZK4&O8>TBO;0k M\_M^3\W?/:2U]\I>:RQZ!8!HU>+ Y_55I=BW!"CP!#PN(?D"$4/3>G#YD_P[ZF/([_=/I&R(PKE_".PD@D%;JOY.H($(HOEI<^A"?".1[K^\WT3ZXAR)Dg MWPKH?#UO,JS [W@G4 ">9'M0+P5L_D)X G.?[D?ZI_]>XHL32/9G=S],E!'AD#?( .[/O%WDR">Z5M^4>GYe M7I_SDP'_8.\3/[,G_35>!33\(J#C3WZ_3_J;OXY ?C80^CF&X@<=C!b M'+_CM;WQOP( 83 @02G('DBA0H*@@3Y@##80$$1)T10J+B2A H2%2EV?&'8a M$$01)" +)M%29&%)$ ZG)(E8!,L0)BI7EG08TR8(C1,_KG2H$2:6C!YU@L1)z M12>5)SYM GTB% I"*DV-LA0)1:F4*D5T HUH) B3*5VMAC1BE,I6)T-J,@0Zy M!"R3)T$4FAWHT @3I2Y1N@U)90I8A%7OYGVB- N4(H4!9P$KY4F3QD;S2M%9x MQ0F5)$PH7ZT2$8E8*D7O7B6ITXK8OV]!6 F=Y @2UI5!($F2.H@4SP(=6I$2w M,8D1WEY!X-9YY383QC]!7 G>!,KR)A.IU$WRQ,F7)D^(5%G^Q6&2)L@S(N'Mv M\ H5Z%(3$F^=)*O-*PB)E#[J'*J")-I-A^2/G!QIT%$&;5==441P;!E87!)#u M!#A@&4.$(0<9;J47UWYLT>3?59Q!2& 2;M#Q5WHO:<@$?RF9)MYQ*UTA((%,t MN'%?;\XQH2 511Q1A!0U.F5<4O/%6(84983!QH7. :? 7$X(&B1QQILU#$'"">(<:0>4K**(6/q M$NC&"2#H40<(C,XQ!AIPUN%&&BU$=,:FII8Q!X%HT %H&F6 T 0E9["11JIKp ME#&@I(&Z <*:;;X9)PAVL"D2&0.^(2>=B9(:4:T4@NH"GQ+A,2 (,+A ;KGDo MZ@!"$&P0B(>S<;(1QAR7(LLJ&3N5@0>N<\!!;*IQNA$1%?'2$08===L;JQ<;"&NBRH$V&T(2B=9D1$1!IS#$L'@2#$NF^_+\M!1[<*k MI%D$N+C&D'"YZ(J,;\X[SRNU&_92&N>EF>89\, %']PWND,P#(+#HU4.0@P4j M6XRQQAQ[#/+="IR0=[@QB&H&JT*G\4:K<>):\JZDZRWN"9(N+2<987@"@AMAi MI/KSGU:\&^^\$06::!'2TD%MHG0RWT;!:@,?J)S*N@FGG*3^J4FEBFN*+/+Wh MYDLKK+023#>F))M,A@L@=)\XIGK SOZ<1<B0J*O]3$Y3>%G1[.<\H=6!:-D;'Z["H+\RW($0JH+=P0(5 F^5#E[$6;N!.[3 J((D2E@ :]D)]/=' K8d MJ$]A:E=0D,,;SB"'L?W)=]0KPY]0D#%5QQ)=$.H O$' HG$!A!=:]2 !U8MS)>ILD()JM5$>3@1H2A2U/2x MW%7BW-;.[)&-#6209$2:D*= F!!=2JA#FT#P HV6E XG36GC<@@YA4U."@W3w M:)J8,+"B4DMA+,49G#(%TU_&::8UU=]-<[I3$/3TIT&%JDE12JVC$DR'?EL8v M4S&'(]$Y 6E2W>%*B84S-Q B5035J%;EP%6;*@"G;M!IY,3J4S@ %01SS5==u MU?JX';J@AV]UF!/2U,8RV*&N5,7KKIXEA[FUU*^A#*Q7!PO6PXY5L4'-[$3?t M@*C'WM!Q;%6J#ZOIK8@(@5A_.J:=ZO2SY"VO>> ,5Q#T1S.77HU6("!"P?XWs MMCPEBHSV^E\9(J)9.K#!?:!% P:/M:N8XN^Y:9A3':#72N!IDPZQ@M>QW)=W)IVP0:"*$RP:&-X0Z!:X%P"q ME1>>OOPOU4!0PHA44@Q(LMA?*^-8QVQ UD';$ @60LU]5\C3(//+9#FH4LOW0Y86NKRK6.JYSR6&l MPAOF,""0;E.2,T,NH^9[-?MB2E*GI&[3+E7-6^>Z=;+\4R4/IFAV7?"\K/RHk M*^>4P7WILJ-;ZZ7H(C(\2X%T#BVH AS$7(9BCC00N2,P'0CQ*P0'09CA4F8Lj MK0E'.>:)#B7SV*'T1S)"D-)_B2HD(A5P*33(J;!A=-F-30U.#)(L$)X@T(WCi M'/$[DXQH_OH3OK'9!@FS(2*DNNK\0. (P\5)DH("[=;81#9D>;=N(KG::#\Nh MQVTVRY6D=!4:3UW'.7B7#5>T[B#I9$!DX3R;:W@#',P@*2;_"=>QCA?:'O>Gg M6)J!S1=H%^5]3WE_79@+.:)AH-V4\<2+N_$RJXH E-b M<($2_J\$ S$%4Z #_/=]HG,"*B J-D%0MP("9L!NLP)W8B!-SN)0N\(H$SA:a M[?(LU.)=*C=(_\,"E:9/x MDX=UA6,O24A]N/(_9O [KX0XEI(J/<#@@6!LP4_+,t MH5.FCL:P @V-KC"P &8@$Xr M@".@Z]>\!+8^C3K5K%!':@'\< % PF0 $.Z:R,M@Z]T3;O[^,R/W[8*Y N8&q M4&W7*EZ]6Y5\,6/PJ^O- !)/6OP%Q!_o M#=#Z*F[N?546V&"%6768>+N1YQL7YSGFCR!%+769 Y?9YE]S7#T7&@3U32>8n M=?MA%QZ 7RS%FV_ ">>@<58L==<-[_TCR&>A.=#A7 ]<%^)^_;U&HHD*?L&@m MBNGU8TYD]DV07UW9,0=;=[/5%IYNO#56)"M(>DC!DF?T^!]??@%F$(&&X48El M>58&U8\;$?IS&0B7>7 9!^%!L)5]%5;T^\ X %1 ;%CSQM7D;"92*\&6=X%#AW%8P7_:.(j M?1;PR:>?3O[H3Z&$4G:H!JHBP*H-_TCR8F@T_$/)P@#(\(\E$,/P#R80N_"/g M)A"S\ \G$)OPCR<0D_ /*,NB<.-;&"8DQHH-;#E#=FVd M'OH8(2\'EX$]Z&6QZHK<92]S.W#!K-HMB7TSS)4 =EYN)RVUPTI@;#[*>$H7AM4/H"H;G",@MA7P^VTSNRWb M [U'_3NU5 BO1SXR*"LW![3;8%\!?']9=HFW#JHSHKTZ^2OIFJ9Z.#[8& \=a M!73+S:$:]FEA7VIO"1#ZD]Z1DI-T0[3W'(T.[/N+L?!A!ZT1ZS+DHDSD#(6Jz M.WF(7F\A@)Z:US=;OT.?M\+#@:EA2E-V>M]>C"(9RI2*,G"BC)PHPSC*y include modula2.uac 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