[comp.binaries.atari.st] v07i049: anamod2 -- Shareware Modula-2 compiler part16/28

koreth%panarthea.ebay@sun.com (Steven Grimm) (09/24/89)

Submitted-by: madsen@admin1.usask.ca (Jorgen Madsen)
Posting-number: Volume 7, Issue 49
Archive-name: anamod2/part16

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin part d ANA_M2_3.uad
M!G-WA])LA+#YDV]PAZ%H ;) @S.,P H9BA9PL(:LU*"X-1) !%]0!L'];K<<w
M 6(*FS_Y!G<8BA%SF1:ZF+2^-4K#B5:];*"X@RBPF'!@!MIVRQ(@#E^ C^\Vv
MR*>!#6_9V<G&PZ<AH\F\XW3PWP)! ?V8S%1/IZ%( <2PF&EP!J?XWP)1 <K;u
MC'$8<, (,S0XPP@,E<"H,C0XPPC\!6\ C"#PFC.,P"(:BA5 "31HUG]HHP(At
M/#18=G]HHP+1/.A8!IJ<Y,)&!HO)OP;)PP*Q 1JPF/QKD'1PF@*Q 0FIT&40s
M!_\M$!N JFDI!X]H\@+! =  !$!0SE=(!X+ 8S@PZ&<' # W3M>! $"PZ-\&r
M<^-T'0P !$#0!-(K"#SF!8-^=@  <^-T'0@ !"A>BV$P3M8Q ,X !$! S -;q
M&()PS$ @;7T/ (4Q3M>! (-^=@!0&.-T'0P !"A>BV$P3M8Q ,X !$"@R\7;p
M<H*P-0"  X-^=@#0<N-T'0@ !"A>BV$P3M8Q ,ZPWRT' +48!N-D'0.@#$  o
M!+]<!G,' (*P-<(,!!KM!DW+!N-T'0@ !.-=C'4P3M?! $ @!G7@J= & .-Tn
M'1  !&)0!YY*IWHP3M=! 4  !#;X;ILL"%OCR4#@!GDNB.-T'0@PZ #0[8(Xm
M3M8Q /P !$"@R?HH"%NC3$#@!GDNB.-T'0@PZ #0[8)H+8.H $ 0!P#0[8)Hl
M+8.X $#@VUDY[M8RB ( !)KLQWE@+8,X $  !,EVH-XF"%LC  X !+X-  ?Jk
M;>-T'0@ !&$(  ?J;=8RB H ! -\H-YF+8.X /OMVP# ;V5@+8,H $"P^ZH\j
M3M8Q /P !$"@R@!0!H*P-:X,!#@) !E<!N-T'0@PZ$^1P65@+8.H $ 0!T^1i
MP65@+8.X $  !*7\;H*P-0)@#D#0<&H  !,\3M>! $!PWQ,\3M?! $! ![$-h
M !,\3M<! 4" !S+P%!-L+8.H $"@T  PP=8RB L !(F(N!-L+8,H $  !-;_g
M<H*P-3L"!)_W<C%G+8.H $!PWV=G+8.X $#0<&H  &=G+8/( $! ![$- &=Gf
M+8/8 $! IV00?C$W3M8Q /P !(E(!N$7<]8RB ( !&H  &00?C$W3M8Q /@ e
M!$!0=CHL"%MC !X !-+6]P#P@^-T'0@ !'00VT_Q@]8RB H !'00VS$  #]Hd
M+8.X $"@!@  !S$  #]H+8,H $"0B' 0 P#P@]8RB , !(,.PN C"%MS #@ c
M!+BMJ@ P3M>! $  !+AMH8*P-0<@!H,. #1NH>-T'0@ !()(XQ8Z3M?! $"0b
MB#1NH=8RB ( !&H  #1NH=8RB , !")#XQ9J+8.H $  !#A(O.$G"%MS .@ a
M!()HH3\( .-T'0@ !/IHH3\( .-T'0\ !(EHH3\HS(,H $"@!@!@H3\HS(,Xz
M $  !&5'<78@"%N# /IMBP"0=^-T'0@ !(GH;0"0=^-D'0/ #T  !$_8K@ @y
M"%OSO$  !!8^Q64@"%N3 %H !&$  !,,B.-T'0@ !(DXP8!H+8,H $" DP#Px
M;H!H+8.H $#@<@#P;H!H+8.X $  !#@)!Z^<!H*P-0G "4  !#@)!Z]<!H*Pw
M->8+!$  E5E)!U\@"%NS.T"0B-;_A;=$  ( !$ 0SE\@"%NC "P !+8X@^-Tv
M'0@ !(O.AE\P3M?! $  !$I0S#,@"%N33D!@BP#@!C,P3M>! $"PZ-_F!C,Pu
M3M?! $ P!C;HI0 P ^-T'1  !&,@^+\T ^-T'10 !&]NH0$' .-D'0/ #T  t
M!)E\H&8@"%NC)D#PYA8:<  P3M>! $"0B!8:<,(\B ( !$"@!-8, (*P-=D,s
M!")CS0 P3M>! (-^K$'XGN-T'0P !$ PR?6;A8*P-0,"!")CS0 P3M>! $!@r
MJ?<( .-T'0P !(O^;> S3M<! 4"PWV4P=T\A"(2\7")3!G/W%.-T'0@ !&)0q
M!R)#ON-T'0P !$T/ .0[3M<! 4  !$H@R() R$8 !"(CR.-T'0@ !&)0!R(Sp
M=P P3M?! $#0]  P=P P3M<! 4  !.A8!G/W!8) R,X !&)0!R(S=U]X2P2@o
M $!@@WC0]  P3M?! $"@CWC0]  P3AT$!$T/ -D[3M8Q /H !!U>!R)3&.-Dn
M'0-@#T"0B'4@,H4Q3M8Q /( !/3.CH*P-44#!(+HC>QH+8.H $#@D-[(CM8Rm
MB L !(,>M*:+!H*P-1!@#$"@CT%KNFA@+8,H /O=<@!@NF@P3M8Q /P !(.>l
M;W2 ^H*P-1&  $"@C_E&!Z@_3M>Q $  !&40W.\& (*P-1$@!D"@U4H- (*Pk
M-8L,!"*CU  P3M>! $ @!G4@,N0Z3M?! $#0] ! KN-T'1  !$"PS4HM"%LCj
M,T @,MP\3M>! $ @!G4@,NH[3M?! $#0] "@ON-T'1  !$!@R$HM"%LC 40 i
M!&)0!R*COM8RB H !$T/ .IK+8,H $"@CX6AOM8RB .PWRT' .H[3M8Q /P h
M!$ P!W!@!MH& (*P-1(@#D @,G!@!MH& .-T'0@ !&:@;0"@;0 P3M?! (,.g
M (6A;0 P3M<! 4  !)UXK-\F"%L3\4 @,K8\3M>! $  !.I\K&4@"%N#&D @f
M,IUXK&5@+8,H $#PYA8:<  P3M8Q /P !$!0R\=:!H*P-:,(!$" C^\& &4@e
M"%LS =@ !")3O!%:!N-T'0@ !$!PSQHI"%LS ?H !"+3V<E&!^-T'0@ !.4)d
M !II+8.H $  !,F\XW3 !H*P-11@!4 @,F:PXW3 !N-T'0@ !&:@;0"P;6PPc
M3M?! $  !,E,]7,@"%M# <0 !"(#Z',P3M>! (/.M@$W!^-D'0/ #T! IWKPb
M;8$X3M8Q /@ !$! IV=PBFP@"%M3 <M%IV=0<0# !N-T'0@ !&:@;0!@(VPPa
M3M?! $!@FKMI(VPP3M8Q /P !$"PAA:ZF(*P-4H#!'1Z!A4' ',P3M>! $  z
M!+#YDV_P!8*P-15 "4"@CS.,P%\P3M>Q $  !+#YDV_P!8*P-18@"T  !+#Yy
MDV_P!8*P-18@#4# D@#PDV_P!>/404  !+#YDV_P!8*P@Q( !$!PAU:];(*Px
M@R@ !$"0R=,H"#L(!D"0;/[-&  P3M>! $#0] # &  P3M?! $! <78@VP,Pw
M3M<! 4 P>+9T'>-D'0/ #T"0B+9T'=8RB ( !*N^;$\Q3M8Q /@PZ&Q[O^-Dv
M'0- #T  !'Y)!W\H"%O3/$"0;/[-&&$P3M>! $#0](P! &$P3M?! $"PZLO&u
M&.-T'1 PZ # ZK)]2P2@ $#0] "P!K)]2P0@ /O=<@"P!HPQ3M8Q /P !#:Xt
MFFCP%.-D'0.P#T  !']H[W\H"%LC/$ @B&;]A^-T'0@ !*N^;  0!N-T'0P s
M!&]NH0$' .-D'0/ #T  ! K=](*P-1H@"4 @B/S;]-8RB H !%NLAP#@!N-Dr
M'0/ #T  ! H=AGD@"%NC ;H !,8O!V&8!]8RB H !$'^H7"0!]8RB NPWRWWq
M%'"0!^-D'0/ #T  ! J-KW @"%NC >0 !,8/MV%H+8.H $ 0Y!\:AM8RB L p
M!$W_%&%H+8,H /O=<D\1AN-D'0/ #T  ! IMD'0@"%NS 1H !,8O!P9)!]8Ro
MB H !$'^H3!G+8.X $  !(O)OP8I"%N#7$!@_/QKD-8RB H !$'^H09I+8.Xn
M $  ! IMD'0@"%NS 7  !,8O!P9)!]8RB H !$'>!C$  '0P3M?! $ 0Y"U,m
M!]8RB L !$" VQ8J"%NS :@ !/BXPP!@H=8RB H !&)0!^MCH=8RB L !'00l
M T)AH=8RB P !'0@ T)AH=8RB T !$"@T&40!VP@"%NS ?P !&$  #\>!VPPk
M3M>! $#@D#\>!VPP3M?! $  ! H]!K$M"%OS8$ 0!@# OV,0V]8RB H ! [)j
MOV,0V]8RB L !$"@T/C:!H*P-1S@!D 0!@# O_C:!M8RB H ! [)O_C:!M8Ri
MB L !$T/ /C:!M8RB ( !$"0EG*0A6\@"%O# =  !#B(AT_Q!N-T'0@ !$"@h
MR?HH"%M#:T! IWKP;?HX3M>! $  !*K\%(*PB@X ! VG!@# AN-T'0BPWRT'g
M &PX3M?! $  !#;X;ILL"*N( D! IWKP;9ML+8,H (,. 'KP;9ML+8.H /OMf
MF0"PR=8RB L !/M=!IHL"*M(!D!@FF3 &-,V3M>! $#0]$\Q;=8RB ( !+O/e
M&-,V3M8Q /PPZ !P!XPQ;=8RB H ! D. (PQ;=8RB M0N3;@ !Q@ #2  0R@d
M !*  0J $2:@ 12  5B" 24! 0H  0H  ?*+ 1P@ Q*@ 1S  1C  GZD "1 c
M 1Q  0H  0H  0K  1B  1R  1A  AB  1"@ !P  0H  0J  1"@ !"@ !"@b
M !2@ !"@ !2@ !2@ !2@ !"@ !"@ !2@ !2@ !"@ !2@ !"@ !"@ !"@ !"@a
M !2@ !2@ !"@ !2@ !"@ !2@ !"@ !"@ !R@ !R@ !2@ !2@ !2@ !R@ !R@z
M !2@ "51$A2@ "7! 0I  0K  0K  0I  0I  0I0$B*@ !2@ !R@ !"@ "51y
M&0P LBP! 08 "8J@ CX0 "P! T80 .YG#QK !I1@ !*@ %1@  8  3X  21 x
M !3 # A@ !)@  [ "4:@! @0  $  PJ  BH@@8R "DA@  $ "0U !0$0 %3 w
M" Y@#(*  7;@  ;@ PX !SJ@#@9  ;@@#43@  ;@  I  3P  TK  ]@5 %3 v
M 0$0 ,2  !X0 %* !JP0,*9@"0:P=A*  18 #0@ "0L  @[@  ; 'P&@"!8@u
M 0X@ 1+@  Y@ P[  3B@ !80,-Y@ !Y@ &A@ "1@ 12P9 RP9#Q@  8P+@Y@t
M  8@ 1# $@Y@ !*@  I@  [@ !8  0YP':1D  : Q)"0 $L& 4@,"06P=EEAs
M !!@ "@P2CH " X0TQC  5S@ 1K@ 22@ 1X@ @_6?13@ 2*   R  _H@ DL&r
M 1;@  Z@"4S  P9P'0B@  B 4"Q  D $ AI@1@A@  BP=@;@ !;  2A@ 1S@q
M AHP2@S@  :   : ! A@ !)C #Q !4B  !A  2(0 -<A!3R@ /E" R9@ BA@p
M 1!@ 1"@!2I@ B9@ W_D!*3$!$(  0[ "8U& 0X  Q*  A2  A3@ !Q  1Q o
M 0]& 0X@ @A@ ")@@!3@ !R  A*  A3  1C  1C  N,B,0\V+A(C 19@ AH n
M5Y P 0J   A@ !1  08 "07@  JP=@X !G2   :  &MG .XG 0Y@  XP+A+@m
M .-" 0[  P@0 /J@! %P'80@ P8 "A* "B3  0%@ !@  10  10  10  12Pl
M+4*@ C2 !! @!1"  1!  1!  1!  1!  7_$ !:  4M$!0K $AC@ Q(@!2: k
M 2;@ AR  I?E!!H #(;@ @:0+QH@ S0@ 1!@!!(@!"[@ C8@ C)@!!A  T  j
M S"@ RC@ AC  CB@ B;  CC  R+@ 3J@ Q[0:"Q@!"Y  E7# T3  2Q =!X i
M!2*0<RX  SK@ BC  RQ  1[  1C  1;  2Y@ AK  SH@ QY@ P$  7:  3Y@h
M  9 !4K@ "QA 0% !#A !)*@ WC@ S3 !5" "BR  19  13  AX@ QX0 -?Ag
M?=@ !P%("B@0,"R  A:  E#@ "3@  A@  8  09@  Y  0A@ !#@ !A  $H f
M 6*  8;  DA@ @$0 ":@ 0' $BX0 +[@ .K !8;@ B@  2@0 ##  6H@! $ e
M#"2@ <9@ "Z   ;P1S+K )#  1+@ )#  1+@ )#P 73@  Y  1C@  Y  4+@d
M  R  2R!!!!@ 0Z@!DM& 1;@ %1@ 1(@ DS@ ->A 0YP'5Y  >X0 )!@ . @c
M 60 #08  0S !%@0 /+' 0H0 +80 .2@ 01@  80 !I@ '2  )X0  &@" ' b
M$F@0 )!0 +*@ ";@ 2S! 7]D+0$0 /A  G:  "H0  & !PZP=B3  0$0  ;@a
M &M' D@0  '@6BB "PI@  ; #@I@  80 /A@ "3@ !X  RI  S"  33@ 3*@z
M 1A@ $3D  8 L@9@  BP=FNW=DR$  :  "*@ "2  @Z   @@,2A@!1S 1!R@y
M 1I@  X@ 1R@ 1A@ !Y@ !#  1R  @Y@  8  09P'?F"  8@ @:   9@ !*@x
M  8P+@A@ !Y@  A@  8@ 08  0:  !I@  Y@  B@ P9@ !9@  ;   9@ !!@w
M !I@ *-D "Q@ !"  !0@ 3@  1J  42@ PA@ !3 1&N' !)@ $ND !*P=@C@v
M  Z@  B  1R@ 0:  @I  @I@ B[@ AX  A9@(AH@ Q!@1BJ@ 0X@ @Z  AR u
M "Z@ !9  3*@ !H  1ZP9 [  #)@ 0J@ "C@6@S@ !Z  19@ !*@ !1@ !9@t
M !"0%1!@ !*@  C@  J   :   K@ @JP=DO$ 1+  DQ$ @J@ V1@ !Q@ !9@s
M 0Y@ ""@ AZ@ ":@ "VB  Z  ")  1:  C+@ !S  G\T+@;@ 4#@!@J@ "I r
M AA@ @I0$DAL 5GA  HP2@J   :   I0M0K@  B   :P1 9  0BP=AA@ !JPq
M=@Z  !I  !@  0K  0A@ !2  0X@ 1@@ A(  1C@  :  /"@ !"   R@  H@p
M 1;@  J   SP$>/" &NW=A!@  A@  BP=@%@ 'X@#0R  1@  K\7 )P@ PH o
MLI!051H(4D5!1$U%         ',!   I$B==_8DN @  #%30I)D#8B"(-V[*n
M'#0#PDP:.PK#R!DC$"*9AFG8E"%X1R!%$&W"K%%8!PX(.F@BN@G38DZ>.73*m
MM)G30$$0.A+3@)A"!403&5QLX/#YADP=-BQE@"!2!B*;-W#:E'%#9^?+F&U8l
M[$021$J1*UV+@" SD(Z<-&+JT$F#L"9$.7/8N@$1PP4,%R! &'DCI^%1-@7=k
MF.$;<BU"$'/**$2IT 61)T,P:B289FX0)T&^_/Q2M^L0%S5K!IE84>$8A#&Ij
MSM%1$P2D"9<S;^XL)3*D 4?DA('C,0Q@IDZA2J6Z,R4;-JU?Q]8LXXL,%YY=i
M#VA2]&A2$$/>M(&3L8R<Y+ Q,_\R WIMZ=2-(FVAE$GED=\5N XONSD-\[8'h
MN!>C6TX>$(X58816+DR111,@:!6&&Q>Y\(002DBV$7C+;58#?M*UD<88<KQ1g
M1$AC$%0&673P%9H"1J0!5U5DP7166H:YH0,(2BQ8AT1Y:!5##CCD )H"-0$:f
M"%9%4E-)3TXN1$]#  !V    )Q*F;<6G>@    Q4T)0!D<;-&#9UR)0A \),e
M&C9EYH ((V<@'(IT0+PQ \)*&3ESTKQQ R*&"Q@:.=(1.-%-F!9S\LRA4Z;-d
MG 8*@M"AF ;$%"H@FLAX80,'"")E[)1A\P9.FS)N,DZ12;.-3S04R]S)>C3-c
M3#EIQ-2A(]*-"YP: !H:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:b
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:a
D&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:z
 y
end