x ,5-@P C2n9 9%ALGDR+7GCLY iXM%ALGDR+14O%ALGDR+14GCN= iI%ALGDR+13K%ALGDR+13I&[8 zQ%ALGDR+55S%ALGDR+55I D ?+ IFE PR?0OC-KA10, < ?P IFNDEF %17A, ?p < EXTERNAL @%17A > MOV@0EI AX,A PUSHJ@P SP,LABEL(17) @p > IFE PROC-KIA10, < IFIA0DN <0> <0>, AP< DFAD A0,AAp > IFIDNB <0> <2>, < B0 DFAD A2,A BP > IFIDN <Bp0> <3>, < C DFAD A3,A C0 > IFIDN <0>CP <4>, < Cp DFAD A4,A D> IFIDN <0> <D06>, < DDPFAD A6,A > Dp IFIDN <0> <9>E, < DFADE0 A11,A > >  > I D` `p9 IFE PRaOC-KA10, < a0 IFNDEF %25A, aP < EXTERNAL ap%25A > MOVbEI AX,A PUSHJb0 SP,LABEL(25) bP > IFE PROC-KIbp10, < IFIcDN <3> <0>, c0< DFAD A0,AcP > IFIDNcp <3> <2>, < d DFAD A2,A d0 > IFIDN <dP3> <3>, < dp DFAD A3,A e > IFIDN <3>e0 <4>, < eP DFAD A4,A ep> IFIDN <3> <f6>, < Df0FAD A6,A > fP IFIDN <3> <9>fp, < DFADg A11,A > >  > I E {p IFE PR|OC-KA10, < |0 IFNDEF %51A, |P < EXTERNAL |p%51A > MOV}EI AX,A PUSHJ}0 SP,LABEL(51) }P > IFE PROC-KI}p10, < IFI~DN <4> <0>, ~0< DFAD A0,A~P > IFIDN~p <4> <2>, <  DFAD A2,A 0 > IFIDN <P4> <3>, < p DFAD A3,A  > IFIDN <4>0 <4>, < P DFAD A4,A p> IFIDN <4> <6>, < D0FAD A6,A > P IFIDN <4> <9>p, < DFAD A11,A > >  > I E@ 3 IFE PR0OC-KA10, < P IFNDEF %33A, p < EXTERNAL %33A > MOV0EI AX,A PUSHJP SP,LABEL(33) p > IFE PROC-KI10, < IFI0DN <6> <0>, P< DFAD A0,Ap > IFIDN <6> <2>, < 0 DFAD A2,A P > IFIDN <p6> <3>, <  DFAD A3,A 0 > IFIDN <6>P <4>, < p DFAD A4,A > IFIDN <6> <06>, < DPFAD A6,A > p IFIDN <6> <9>, < DFAD0 A11,A > >  > I F  +  IFE PR+0OC-KA10, < +P IFNDEF %41A, +p < EXTERNAL ,%41A > MOV,0EI AX,A PUSHJ,P SP,LABEL(41) ,p > IFE PROC-KI-10, < IFI-0DN <9> <0>, -P< DFAD A0,A-p > IFIDN. <9> <2>, < .0 DFAD A2,A .P > IFIDN <.p9> <3>, < / DFAD A3,A /0 > IFIDN <9>/P <4>, < /p DFAD A4,A 0> IFIDN <9> <006>, < D0PFAD A6,A > 0p IFIDN <9> <9>1, < DFAD10 A11,A > >  > I&d S0M IFE PRSPOC-KA10, < Sp IFNDEF %22A, T < EXTERNAL T0%22A > MOVTPEI AX,A PUSHJTp SP,LABEL(22) U > IFE PROC-KIU010, < IFIUPDN <0> <0>, Up< DFDV A0,AV > IFIDNV0 <0> <2>, < VP DFDV A2,A Vp > IFIDN <W0> <3>, < W0 DFDV A3,A WP > IFIDN <0>Wp <4>, < X DFDV A4,A X0> IFIDN <0> <XP6>, < DXpFDV A6,A > Y IFIDN <0> <9>Y0, < DFDVYP A11,A > >  > I&d` u[ IFE PRu0OC-KA10, < uP IFNDEF %30A, up < EXTERNAL v%30A > MOVv0EI AX,A PUSHJvP SP,LABEL(30) vp > IFE PROC-KIw10, < IFIw0DN <3> <0>, wP< DFDV A0,Awp > IFIDNx <3> <2>, < x0 DFDV A2,A xP > IFIDN <xp3> <3>, < y DFDV A3,A y0 > IFIDN <3>yP <4>, < yp DFDV A4,A z> IFIDN <3> <z06>, < DzPFDV A6,A > zp IFIDN <3> <9>{, < DFDV{0 A11,A > >  > I&e@ $0U IFE PR$POC-KA10, < $p IFNDEF %36A, % < EXTERNAL %0%36A > MOV%PEI AX,A PUSHJ%p SP,LABEL(36) & > IFE PROC-KI&010, < IFI&PDN <6> <0>, &p< DFDV A0,A' > IFIDN'0 <6> <2>, < 'P DFDV A2,A 'p > IFIDN <(6> <3>, < (0 DFDV A3,A (P > IFIDN <6>(p <4>, < ) DFDV A4,A )0> IFIDN <6> <)P6>, < D)pFDV A6,A > * IFIDN <6> <9>*0, < DFDV*P A11,A > >  > I&f  ?0- IFE PR?POC-KA10, < ?p IFNDEF %44A, @ < EXTERNAL @0%44A > MOV@PEI AX,A PUSHJ@p SP,LABEL(44) A > IFE PROC-KIA010, < IFIAPDN <9> <0>, Ap< DFDV A0,AB > IFIDNB0 <9> <2>, < BP DFDV A2,A Bp > IFIDN <C9> <3>, < C0 DFDV A3,A CP > IFIDN <9>Cp <4>, < D DFDV A4,A D0> IFIDN <9> <DP6>, < DDpFDV A6,A > E IFIDN <9> <9>E0, < DFDVEP A11,A > >  > In LP IFE PRLpOC-KA10, < M IFNDEF %21A, M0 < EXTERNAL MP%21A > MOVMpEI AX,A PUSHJN SP,LABEL(21) N0 > IFE PROC-KINP10, < IFINpDN <0> <0>, O< DFMP A0,AO0 > IFIDNOP <0> <2>, < Op DFMP A2,A P > IFIDN <P00> <3>, < PP DFMP A3,A Pp > IFIDN <0>Q <4>, < Q0 DFMP A4,A QP> IFIDN <0> <Qp6>, < DRFMP A6,A > R0 IFIDN <0> <9>RP, < DFMPRp A11,A > >  > In@ Z IFE PRZ0OC-KA10, < ZP IFNDEF %50A, Zp < EXTERNAL [%50A > MOV[0EI AX,A PUSHJ[P SP,LABEL(50) [p > IFE PROC-KI\10, < IFI\0DN <2> <0>, \P< DFMP A0,A\p > IFIDN] <2> <2>, < ]0 DFMP A2,A ]P > IFIDN <]p2> <3>, < ^ DFMP A3,A ^0 > IFIDN <2>^P <4>, < ^p DFMP A4,A _> IFIDN <2> <_06>, < D_PFMP A6,A > _p IFIDN <2> <9>`, < DFMP`0 A11,A > >  > In` n0% IFE PRnPOC-KA10, < np IFNDEF %27A, o < EXTERNAL o0%27A > MOVoPEI AX,A PUSHJop SP,LABEL(27) p > IFE PROC-KIp010, < IFIpPDN <3> <0>, pp< DFMP A0,Aq > IFIDNq0 <3> <2>, < qP DFMP A2,A qp > IFIDN <r3> <3>, < r0 DFMP A3,A rP > IFIDN <3>rp <4>, < s DFMP A4,A s0> IFIDN <3> <sP6>, < DspFMP A6,A > t IFIDN <3> <9>t0, < DFMPtP A11,A > >  > In  0} IFE PR POC-KA10, <  p IFNDEF %52A,   < EXTERNAL  0%52A > MOV PEI AX,A PUSHJ p SP,LABEL(52)   > IFE PROC-KI 010, < IFI PDN <4> <0>,  p< DFMP A0,A  > IFIDN 0 <4> <2>, <  P DFMP A2,A  p > IFIDN < 4> <3>, <  0 DFMP A3,A  P > IFIDN <4> p <4>, <  DFMP A4,A 0> IFIDN <4> <P6>, < DpFMP A6,A >  IFIDN <4> <9>0, < DFMPP A11,A > >  > In@ P IFE PRpOC-KA10, <  IFNDEF %35A, 0 < EXTERNAL P%35A > MOVpEI AX,A PUSHJ SP,LABEL(35) 0 > IFE PROC-KIP10, < IFIpDN <6> <0>,  < DFMP A0,A 0 > IFIDN P <6> <2>, <  p DFMP A2,A ! > IFIDN <!06> <3>, < !P DFMP A3,A !p > IFIDN <6>" <4>, < "0 DFMP A4,A "P> IFIDN <6> <"p6>, < D#FMP A6,A > #0 IFIDN <6> <9>#P, < DFMP#p A11,A > >  > In  8Pw IFE PR8pOC-KA10, < 9 IFNDEF %43A, 90 < EXTERNAL 9P%43A > MOV9pEI AX,A PUSHJ: SP,LABEL(43) :0 > IFE PROC-KI:P10, < IFI:pDN <9> <0>, ;< DFMP A0,A;0 > IFIDN;P <9> <2>, < ;p DFMP A2,A < > IFIDN <<09> <3>, < 

IFIDN <9>= <4>, < =0 DFMP A4,A =P> IFIDN <9> <=p6>, < D>FMP A6,A > >0 IFIDN <9> <9>>P, < DFMP>p A11,A > >  > I$ Epa IFE PRFOC-KA10, < F0 IFNDEF %20A, FP < EXTERNAL Fp%20A > MOVGEI AX,A PUSHJG0 SP,LABEL(20) GP > IFE PROC-KIGp10, < IFIHDN <0> <0>, H0< DFSB A0,AHP > IFIDNHp <0> <2>, < I DFSB A2,A I0 > IFIDN <IP0> <3>, < Ip DFSB A3,A J > IFIDN <0>J0 <4>, < JP DFSB A4,A Jp> IFIDN <0> <K6>, < DK0FSB A6,A > KP IFIDN <0> <9>Kp, < DFSBL A11,A > >  > I$` gPo IFE PRgpOC-KA10, < h IFNDEF %26A, h0 < EXTERNAL hP%26A > MOVhpEI AX,A PUSHJi SP,LABEL(26) i0 > IFE PROC-KIiP10, < IFIipDN <3> <0>, j< DFSB A0,Aj0 > IFIDNjP <3> <2>, < jp DFSB A2,A k > IFIDN <k03> <3>, < kP DFSB A3,A kp > IFIDN <3>l <4>, < l0 DFSB A4,A lP> IFIDN <3> <lp6>, < DmFSB A6,A > m0 IFIDN <3> <9>mP, < DFSBmp A11,A > >  > I% PG IFE PRpOC-KA10, <  IFNDEF %53A, 0 < EXTERNAL P%53A > MOVpEI AX,A PUSHJ SP,LABEL(53) 0 > IFE PROC-KIP10, < IFIpDN <4> <0>, < DFSB A0,A0 > IFIDNP <4> <2>, < p DFSB A2,A  > IFIDN <04> <3>, < P DFSB A3,A p > IFIDN <4> <4>, < 0 DFSB A4,A P> IFIDN <4> <p6>, < DFSB A6,A > 0 IFIDN <4> <9>P, < DFSBp A11,A > >  > I%@ pi IFE PROC-KA10, < 0 IFNDEF %34A, P < EXTERNAL p%34A > MOVEI AX,A PUSHJ0 SP,LABEL(34) P > IFE PROC-KIp10, < IFIDN <6> <0>, 0< DFSB A0,AP > IFIDNp <6> <2>, <  DFSB A2,A 0 > IFIDN <P6> <3>, < p DFSB A3,A  > IFIDN <6>0 <4>, < P DFSB A4,A p> IFIDN <6> <6>, < D0FSB A6,A > P IFIDN <6> <9>p, < DFSB A11,A > >  > I&  1pA IFE PR2OC-KA10, < 20 IFNDEF %42A, 2P < EXTERNAL 2p%42A > MOV3EI AX,A PUSHJ30 SP,LABEL(42) 3P > IFE PROC-KI3p10, < IFI4DN <9> <0>, 40< DFSB A0,A4P > IFIDN4p <9> <2>, < 5 DFSB A2,A 50 > IFIDN <5P9> <3>, < 5p DFSB A3,A 6 > IFIDN <9>60 <4>, < 6P DFSB A4,A 6p> IFIDN <9> <76>, < D70FSB A6,A > 7P IFIDN <9> <9>7p, < DFSB8 A11,A > >  > I? 70o DEFINE 7PAB(Z) < I7pFE PROC-KA10, 8 < IFNDEF %C80A, < EXTE8PRNAL %CA > 8p MOVEI AX,Z P9USHJ SP,LABEL(C)90 > IFE PRO9PC-KI10, < 9p IFIDN <B> <0>, : < A A0:0,Z > IFI:PDN <B> <2>, :p < A A2,Z ; > IFIDN <;0B> <3>, < ;P A A3,Z ;p> IFIDN <B> <<4>, < <0A A4,Z > 

<6>,

IF=0IDN <B> <9>, =P < A A11,Z =p > > > > > >I?,+ >0s A B A BK:5 v1%ALGDR+453%ALGDR+45Kc%H1 5P7 IRP A 5p< IFE PROC-KA106, IFN PROC-KA16P0, >AL MVt= wX=%ALGDR+50?%ALGDR+50O$; jXU%ALGDR+16W%ALGDR+16O%}w jQ%ALGDR+15S%ALGDR+15O>d@ 1%ALGDR+3S: mi%ALGDR+23k%ALGDR+23S:9 oy%ALGDR+27{%ALGDR+27S: H zXU%ALGDR+56W%ALGDR+56S:NJ0 ^%ALGDR+0S;@ rX%ALGDR+36%ALGDR+36W P W% P Y[ )%AI74 Y&[Z (py IFE PRO)C-KA10,< ENTRY )0%AA > IFN PRO)PC-KA10,< ENTRY )p%AI %AL=%AI * ;[205] ENTRY %*0AL ;[205] > *P IFNDEF %ALGDR,<*p EXTERNAL %ALGD+R SALL %SUBTT+0L(ALGLIB,ALGOL LI+PBRARY) > d: Z +p ZZZ==1 ,IRPC B, XWD ,ZZZ SIXBIT\,pB*\ IFE <*6-ZZZ>,< Z -0 > IFNB <C>-P, < XWD DL,C -p B: LABEL(.A): JSP AX,PAR0>.0 IFB <C>, < .PB: LABEL(A).p: JSP AX,PARAM> / EXP d PURGE B  PURGE[>u kY%ALGDR+17[%ALGDR+17[>u kX]%ALGDR+20_%ALGDR+20]c$.: nq%ALGDR+25s%ALGDR+25_(< 5%ALGDR+5_B5 t!%ALGDR+41#%ALGDR+41_V mXm%ALGDR+24o%ALGDR+24_V9 oX}%ALGDR+30%ALGDR+30_W&  s%ALGDR+37%ALGDR+37a /%ALGDR+2a  -%ALGDR+1a NI  gX=%ALGDR+10?%ALGDR+10aJMm q %ALGDR+33 %ALGDR+33aJ|0P aJ|= lXe%ALGDR+22g%ALGDR+22b@ d >pwDEFINE B <%ALGDR+A>B e|= la%ALGDR+21c%ALGDR+21e C@ pX%ALGDR+32%ALGDR+32ed\r sX%ALGDR+40%ALGDR+40e=i vX5%ALGDR+467%ALGDR+46ge@ qX %ALGDR+34%ALGDR+34ge}: r%ALGDR+35%ALGDR+35gR$[Z /P' IFE PRO/pC-KA10,< ENTRY 0%AA > IFN PRO00C-KA10,< ENTRY 0P%AI %AL=%AI 0p ;[205] ENTRY %1AL ;[205] > 10 IFNDEF %ALGDR,<1P EXTERNAL %ALGD1pR SALL %SUBTT2L(ALGLIB,ALGOL LI20BRARY) > c: 2PZ ZZZ==1 I2pRPC B, XWD ,ZZZ SIXBIT\3PB*\ IFE <*6-ZZZ>,< Z 4 > B: L40ABEL(A): PU4PSHJ SP,TRSTD EX4pP c PURGE B c PURGE B gSy w9%ALGDR+47;%ALGDR+47gSI1 yXM%ALGDR+54O%ALGDR+54iJd@ xXE%ALGDR+52G%ALGDR+52iJf Z xA%ALGDR+51C%ALGDR+51iKI yI%ALGDR+53K%ALGDR+53qMI  u)%ALGDR+43+%ALGDR+43 tH IFN PROC-'PKA10, >%AL ;[205] VuR h$UNIVERSAL A - B, 10B(310)(, EUROPEAN SOFTWAHRE ENGINEERING, SEP-74 ERING, SS@P $;SP >}{woP