.yXL@~@p@`.%@K.@oM[M@.  -* *,*K T[,*K.Lrv~&a*}$& UP X*Wwwr zgSg`aw&B eaOMT[r.rWIND $RWIND .GLOBL $BCKSP $BCKS&P .GLOBL $ENDFL $ENDFL .(Wz@<U@<ܟ@'.#S@#`@z\@z@(M~Wh.&f5 R, ,W , z#S#`Rz\ z&<.& V BEP D V<U<ܟ$<ܟmaOMT[r.rWIND $RWIND .GLOBL $BCKSP $BCKS&P .GLOBL $ENDFL $ENDFL .(Wz@<U@<ܟ@'.#S@#`@z\@z@(M~Wh.&f5 R, ,W , z#S#`Rz\ z&<.& V BEP D V<U<ܟ$<ܟm@z.z @Bx@e3l@(/hnN.%Sh!;htahBxE"h.BxF"hhBxI"hBx}h.  ɥ/ ɥ/ /D e3l",&ы&7 7 7  T,& kWkWkW kW$kWg.J ѥ/  7,,8%2(kW.p7,7,0 *! \gW\g @Q-` , @Q- a-!aW!v  /,\gW @QR @QR- q $RET $POPR\$a-! aW!rv~.:) O@ @Q@@.-Z@a@z@\_@fH@ .lS@t!@!@#,@.L *v ؚ-\@N&?dd.r++0WWvGv ss<F&p< (( ( ( ( ( ( .""f@@e%@L@/.i+@n%:@p@}@""@.""t!@""v@vL$G@vLG@ N@.a\g@/d@s"@yvL@(zh.-&f&f ..L *v ؚ-\@N&?dd.r++0WWvGv ss<F&p< (( ( ( ( ( ( .""f@@e%@L@/.i+@n%:@p@}@""@.""t!@""v@vL$G@vLG@ N@.a\g@/d@s"@yvL@(zh.-&f&f .e   kWkW.I    & 9  i kWZ$7 *<.58*%Z [M Nm;`S:dS8*5(U*:d` %S %`%S%`%Z.   6  P%[ ljz $T[N.¥,¥/*ɋ  ,- .: m7 e7+a ,*K@.,@-@:@vL!@ NS@?. Na@R@YZ@T[@a@D.a @a%@a-@aOM@aPM@.aW@aL^@aw@ax@ay@.:d@:dS@:d`@:d@\g@.\gW@$q"@9w\@y@䒰"@.e3l@(e^h:s!e^h4&hJ.{Lh{L?hfZhIqh@}hD! """"ve%$e%F.& e # ""vyvL N.Lw  " yvLyvLe% NA.r D ! ҕ^e@ T (e%.  :" Y  e%.W0Օ 7 7  +"e% e% "}&p.eG" """"ve%$e%F.& e # ""vyvL N.Lw  " yvLyvLe% NA.r D ! ҕ^e@ T (e%.  :" Y  e%.W0Օ 7 7  +"e% e% "}&p.eG#X(`9\(XaX(`9(%2.`    w ! w "aPM!aL^"!(aPM. & bAB&m N!$z (ay.w  a &  UaPM aL^!x. D  a w .e =.+ .EVEN .CSECaPMaOM!T .=.+.$$$$. .$. Z f : >$q",e3l$,*KW.&f  &  䒰".L ( ( #e3l,*KT[,.rvA #wB ##c.# ,#)¥'C C2  T[. D& wE# ADg 9w\.  7 %  pp p. E  w! 7a`ppc.0DFW!@S*LLe% s"$e%@.VW  mՕ Օ >el-pe%.|h-` c$""""t! ""v"""(e%.   f  "e%/d"a\g(&  pp p. E  w! 7a`ppc.0DFW!@S*LLe% s"$e%@.VW  mՕ Օ >el-pe%.|h-` c$""""t! ""v"""(e%.   f  "e%/d"a\g('..&f P  *e.T   mmxz g$z .zD D D EE <ܟ<S&BxC.&fm& &f& B.gz .  <m  @gz . `%` @A L @%.` l .  .8(  $T[ YZ,YZ. . w $ ? & .\gWa ax$?(aOM~.0>\ E%  { >,.V @- % ,   T[.|U •)/ )),&FuR T[. ,  &T[," @Q$R( )v [] ERROR !a\g   @vLGi+ vL$G.t!fg@/@ @Q@.k<@z@ @dy@@R.!S@!ܟ@!@#@ #}@^.a'`@%,%@,*K@.L@vL!@G.vLG@R@Ww@a@a @_.a$@a&@aOM@aPM@aL^@*v [] ERROR !a\g   @vLGi+ vL$G.t!fg@/@ @Q@.k<@z@ @dy@@R.!S@!ܟ@!@#@ #}@^.a'`@%,%@,*K@.L@vL!@G.vLG@R@Ww@a@a @_.a$@a&@aOM@aPM@aL^@+       f a.^@a   1/D"e3l. & $   ‹¥,!2T[. <l ¥(! J" & o T[.¥, 6 ¥,¥)  T[T[?. <0  =<  &"[M& Nm; *<"5 *`S,w( @Q R\gW @Q./w' W!݂,R @Q R @QR. C ` ` C B   @QR$B(\gW (ww . @QR @QRa-!X.@ )w  A  5"aWa%aPMT[.fwP +w . " (-.a\g@aw@ay@a*}@:dS@.:d`@:d@gS@g`@\q@.ar @rv~@s@wr @wt8@ .w`@z @z\@z@t!@. D@Bx@I@@(t!fh]:Kh.f     `A  w 0 &a .&& A 5zaw"a$&a*}..a\g@aw@ay@a*}@:dS@.:d`@:d@gS@g`@\q@.ar @rv~@s@wr @wt8@ .w`@z @z\@z@t!@. D@Bx@I@@(t!fh]:Kh.f     `A  w 0 &a .&& A 5zaw"a$&a*}/:dS:d`z [M3.>C C C Ee & [M [M.d>  </D!2 !2&.JDmC aD 11}  z . 7 0 7 7 C /D!2!&!6. :B D n!7!7 !7.  Dl7!7 0 9w\a ax$a%(T[.)w 0 , q a !"9w\M.w .  )G w 0 $a  axT["a (a%.@ .  ݍ& fH\gW" @Q$R,  . @QR a-aW NS" Na."7 /( w Va-Z 1,L@w + Em C *w`a ay!g z .p @ @ @ EC n 2Oa*} aL^!.&  L5 $a*} aL^!Bx&z. P w  (w`aya$!"aPM$. 5w 4X  (aL^!aPM$t!& D, 2,L@w + Em C *w`a ay!g z .p @ @ @ EC n 2Oa*} aL^!.&  L5 $a*} aL^!Bx&z. P w  (w`aya$!"aPM$. 5w 4X  (aL^!aPM$t!& D, 3!6!6"!2."e  J"& (eL.HlL d tDBd!k.nx `J"@ ?w ;@x$a . 7  (,Bm<V.ay !!%!$z (%`].  @w ; w V*%S !%z !%a &ayl,, D7I4T[(,.H+ );Cנ נ=7  0  Na.n 7 , )$$aw !:T[ T[, 7 H 4 8,:d:d4\gW @Q"-(.  Cנ נ(" @Q- a-aWE.  w A  NaaPM" Na".wZ f5   r *# /rv~k<dy$z., c w (k< vL!.Lrv~c \qA.Rw E7 7 l-7  7.,*KaPM E.Lwt8rv~$Ww.x a&5%P 3$wr zgSg`(aw.w ]  NL E5 "aPM]z":dS$:d`.$ 6   r *# /rv~k<dy$z., c w (k< vL!.Lrv~c \qA.Rw E7 7 l-7  7.,*KaPM E.Lwt8rv~$Ww.x a&5%P 3$wr zgSg`(aw.w ]  NL E5 "aPM]z":dS$:d`.$ 7*a  !%ay!z !%Q. m(  wB+(! !%z %[!(:.*mU2E  *z  %S %`%[%2(!%_.P x 7 jw ;&!(7!"aPM$(!%.v w +  .ay a !6!aL^"!&B, wD7!)m5H& ( U:y) OT[6.*, )  w `:d"-Z.P  f   = P,T[(.v ӝ 7 N m,:fH lSfHt!:J.t T7  7*-Z NSvL! fH"vL!&fH&. 7 =[ ),vL!: \Ew nw w < 5N& ayaPMnaPMw(z.E&   ay"a$&z.e    $ a*}aL^!&a*}n.6 w 8w?| 5aL^!"wr &z.\&5"  O"w` :dS:d`ay1.   Fw nw w < 5N& ayaPMnaPMw(z.E&   ay"a$&z.e    $ a*}aL^!&a*}n.6 w 8w?| 5aL^!"wr &z.\&5"  O"w` :dS:d`ay1.   G#U*a0M !!%z  ,S",\a. w  w +C.,S,\a z aPM!% a .  b. =!aL^!!(7   i,\gW @QR @QR$" F *a-! aWa%a'`aw,> w m  ,!""""""" """"""""""""""""""""""""""""DDDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDDDD """"""""""""""""""""""""""""""3333@DDDDDDDDDDDDDDDDDDDDDDDADDB C'^H)Na^H*Oa^VcPa^VQa^-MRa^.0'%&`'&(gs%&yw$Dffffff&""""""3333IBx (aOM2. nwew # wa  aL^( 3(  5/.a'`  a'`z":dS.. w    w Cr$:d`aPM$aPM&.F w  w #  CF( awaPMa ay"aOM5(: w  ;*aw !ar JBx (aOM2. nwew # wa  aL^( 3(  5/.a'`  a'`z":dS.. w    w Cr$:d`aPM$aPM&.F w  w #  CF( awaPMa ay"aOM5(: w  ;*aw !ar K! aPM!6!7&b w F w .aL^! aPMa'`awa'`.w2Cm5U C.aPMz ,S,\a,S,\af.m  . =.+ $TR =. !7aL^!e. .EVEN &eAf{.& e& h&A (g.mC T!ee R$ L_:vL!"T[M.wZw6  8$ NS NS-Z NS$a}.30-,. K( Na Na-Z NS NS&.,4    .\gW -ZaL^-Z! $\gWuX  P,\g @QR @QRm n q*a-! aW! NaaMa'`ar a'`J.ZՕ Օ 7"s dy$%,%(w. 7 ~ ͵c)͵`w a\gR&aPM( .ͽw 0 F͵@@  @Q @QaPM0. ͽ w 4  l* @Q @QaPM4&k<$w w 8  w ,aPM aPM8rv~k<aPMNa'`ar a'`J.ZՕ Օ 7"s dy$%,%(w. 7 ~ ͵c)͵`w a\gR&aPM( .ͽw 0 F͵@@  @Q @QaPM0. ͽ w 4  l* @Q @QaPM4&k<$w w 8  w ,aPM aPM8rv~k<aPMOn z .>  <  !.d"&@ w & !2ayaPM  > ay.#"z@!U@!ܟ@.!@,@WS@W`@T[@.aPM@ay@:dS@:d`@(f#"h. % # "5P.&  w 7. .y#,y Na z$.(\gW"5P *(:dS:d`\g @QR q. @QR a-!aWa%,E  ,:d aL^ay! @Q"R&& BLIRDCXA, @QR a-!aWa%.&Q.> w D7aA&& 7 (>! a& #} (4w F w w ,aPM  awa$aPM .T  F 7 .aPM ar ar aw"a$&ar &z7 w w w ,s  aPMaPM.we B 7a& & *yaPMwar s&R.> w D7aA&& 7 (>! a& #} (4w F w w ,aPM  awa$aPM .T  F 7 .aPM ar ar aw"a$&ar &z7 w w w ,s  aPMaPM.we B 7a& & *yaPMwar s&SEUx*,zWSW`"!U$!ܟ"&5w \ .!ܟ:dS :d`aPM\ay!-@,  :Wt .GLOBL 4 T[$. z(z@<U@<ܟ@.!U@!ܟ@,@2@2,@r.WS@Ww@W`@T[@:d@.:dS@:d`@:d@rv~@wS@.w`@zw@z\@(T*.END=ERR= $PSH $PSHR1 0 Py&*.(P.DW^dksz $FIND $INRI $INI $INFIW^d k sz .j $OUTRI $OUTI $OUTFI $ENCD $DECD"0,0 $PSH, $IO $IOF v.X? %@@z@.] X@dy@lS@!@'&@@.a'`@,*K@,@:@T[@.a$@aw@a*}@+dI@:dS@.:d`@:dU.7 $w F 7 v. aPMar awa$"ar (s.w @E w 8* a :daL^aPM & @Q( J w w $ Jw .R aPM aPM$aOM"aPM** w ( J w w , q. aPM (aOMaPM aPM ,<.LJJ&E5@< WaOMz!ܟ!SV.7 $w F 7 v. aPMar awa$"ar (s.w @E w 8* a :daL^aPM & @Q( J w w $ Jw .R aPM aPM$aOM"aPM** w ( J w w , q. aPM (aOMaPM aPM ,<.LJJ&E5@< WaOMz!ܟ!SW(h(h zrh,Y7 y 7e* rv~:d2, Ww$z($  fU E*z\ 2,zWSW`:d$D PE*<U<ܟ :d<ܟwSw`.` -~ "(zwrv~zw"zw&T[_*( 7 :X@gS@g`@w`@&(Xht!h*. ! 0-"lS T[lS .& f&   [ lS+dI$a'`(a'`u.L@ T =L ,DT[T[ .r D B ?W=: B @6,z",. =W,8 YQ*r z7 x@( %,%a\gdy$dy}.edW ѕ,ѕ P-Y&%,%z z\dy"I.Lѕ ѕ 4E 7 (Udydy $a\g-w wt ROUTINES CALLED: %,%vLG   .  .GLOBL $READ $WRITE $DC$IC$LC.0I O .END MAIN. .GLOBL $EXZQ*r z7 x@( %,%a\gdy$dy}.edW ѕ,ѕ P-Y&%,%z z\dy"I.Lѕ ѕ 4E 7 (Udydy $a\g-w wt ROUTINES CALLED: %,%vLG   .  .GLOBL $READ $WRITE $DC$IC$LC.0I O .END MAIN. .GLOBL $EX[Ue-3* :d,z:dS:d`":d.( ,) :d :d:dT[* EUU7 U7*!U !ܟ!ܟWSW`:dl.Ʃ 9678 ,:d rv~"T[).u:@z@!@".,*K@,@,Xz@a%@a0M@2.ay\5 3 0 ɋ z,.W,%   "ɋ,": .1f )./BF '&@,S. = 0  BM:,*K lS$a*}.0EUP  Lf!$w`gSg`aw!.V CF !*? %awa$!"dy&] X]IT $.VEXIT : MOV MOV -(%0),-(%6) JMP .|@(%4)+ .EVEN +10,%0 BR +4,%0 . BR MOV -(%0),-(%6) (%5)-4,%0 A.DD #10,%0 ADD #4,%0 . = .+: 0 ),: 0,0 : 0,0,0,0 .GLOBL $OTSV !.t!yt!&@t!f@#@*.T[@9w\@e3l@(6t!h.  w , t^IT $.VEXIT : MOV MOV -(%0),-(%6) JMP .|@(%4)+ .EVEN +10,%0 BR +4,%0 . BR MOV -(%0),-(%6) (%5)-4,%0 A.DD #10,%0 ADD #4,%0 . = .+: 0 ),: 0,0 : 0,0,0,0 .GLOBL $OTSV !.t!yt!&@t!f@#@*.T[@9w\@e3l@(6t!h.  w , t_@9w\@@e3l@(u:h. P  ,e3l ,*K,Xz,Xz"a0M&?.& V  ; 8 DW,3  ,&5.r0 - * ( ' $ ,9w\,m. W) `)| eTTTTTTT $POP2 J*Da5ÜE$ zz:dS:d`:dT.; ) ? @ @Q@z@).!@-@a%@a-@aW@A.aL^@ay@:dS@:d`@:d@(.\g@\gY@(t? %h.7 n 5ĕP .) ?  n\ga"e3lT[t!f,"9w\\&w26FILE#t!& 2 6.y:}/D@) @E M@.p:@@%@%p@0M@\.L@{d@dy@}@t!@.!2@""@""g'@""v@a'`@.'Q@X(`9@\(Xa@%,%@2@.3؁@X:*}@x:@:k@O;@H.o;@@A@@vL@vL@vLD@b"e3lT[t!f,"9w\\&w26FILE#t!& 2 6.y:}/D@) @E M@.p:@@%@%p@0M@\.L@{d@dy@}@t!@.!2@""@""g'@""v@a'`@.'Q@X(`9@\(Xa@%,%@2@.3؁@X:*}@x:@:k@O;@H.o;@@A@@vL@vL@vLD@c  $!a%z ay&z1. z{|}~   .GLOBL $DEFIL ,U,W .X:kL@z@<S@.<U@<ܟ@dy@#S@#`@.X:*}@Ww@T[@wr @wt8@.z\@I@( X:kLhdYz:dS:d`$\g&&e0  * \g @Q- @Q-a- D 5*!aW a%z:dS:d` \  $POP:daL^ay!.; ) ? @) R@? %@.? S@? `@ @Q@@z@.O@!U@!ܟ@!@#@.#,@(@(N@,*K@e.vL(F@vLxF@vLF@vL$G@vLG@*.oM*@ Nk@ N"@ N#@ N@.N@oTd@^k@^"@^#@.^M@_ 3@_oM@`@a\g@;.>aH@/d@/dZ@4d(@s@.s"@s&@s;M@9wY@wz@.wt8@y""@y#@yp:@yK@P.yvL@yM@ys@yM@nz @g.z @z@zt!@z""@u~@.~@f.vL(F@vLxF@vLF@vL$G@vLG@*.oM*@ Nk@ N"@ N#@ N@.N@oTd@^k@^"@^#@.^M@_ 3@_oM@`@a\g@;.>aH@/d@/dZ@4d(@s@.s"@s&@s;M@9wY@wz@.wt8@y""@y#@yp:@yK@P.yvL@yM@ys@yM@nz @g.z @z@zt!@z""@u~@.~@g.  9(/  T[T[ (T[i.&-   N ) " T[T[(T[y.L ,M ,) T[.r    3  X:*}. 7 2 &ef wt8wr z&z\u. B  5/*dy h,@.-@:@T[@a@a-@.aW@:dS@:d`@\g@\gY@.wr @wS@w`@y@ z#@.(? Wh? \h@? p]h|? ]ha&KhOh<Oh~. # !  (# ,*K,"T[.&% @& f  W  < (N#,.Lɋ &it!@ D@,@Bx@i.(lE U(heE =h_U(h/=h)h.#U(hJ#=hD #}h}s}h\z8wh 7 7 7 77*>aH {dt! D0Mwz.7 !.) nz vLBxBxz""6.>!  sysoM*vLF"vLxF.d njt!@ D@,@Bx@i.(lE U(heE =h_U(h/=h)h.#U(hJ#=hD #}h}s}h\z8wh 7 7 7 77*>aH {dt! D0Mwz.7 !.) nz vLBxBxz""6.>!  sysoM*vLF"vLxF.d nkIdy"#S$#`^. E EP,X:*}<ܟ<S<U<ܟ <ܟQ.E,e@&S@z@.<U@<ܟ@@,@,s@.K`@YZ@`@@+dI@\gz@b.wt8@z|@z&@zT[@(*E,ehO.f& W- ~ |%YZ YZl5EU*zwSw` !U"!ܟ(!ܟ.r& w7 fB=  :(:&#. &  W  ɋW,,*K z##,.)H E FE;,"z&? S(? `L. ĕ ĕ$ Ĝ\g&\gI   ,*\g m & *,,3؁ 2"%,%&&$ 7 7 7 *(a\g 'QN`O;*&& 5`*%,%& a\gx:vLxFvLxF7.׭ .  ѕ?ѕ ѕ ѕx: p:. w0 p: x:x:vLF.& f/EW 7 n & *,,3؁ 2"%,%&&$ 7 7 7 *(a\g 'QN`O;*&& 5`*%,%& a\gx:vLxFvLxF7.׭ .  ѕ?ѕ ѕ ѕx: p:. w0 p: x:x:vLF.& f/EW 7 o ,.&y ѥ,t e&&& & zz|"z|&z|.L W- W U%Rѥ)Oo,.r&f&& e   YZzz|z|.( (&  z&"&k.$Cfe e&  `@+dI"wt8&wt8.(e e ep\g @QOR" * @QO a-!aW!.8  =(  wr ? %T[.^   w7 ) ? y ) R$) ? .&  7  L(y#,) ? y"\gY/. Ee0  .\g @Q- @Q"-&a- q^k .6/E W &vLG  Nk N#" N#.\7 /E  & :kvL(Fy#&y#.W E -ASUH$y""nz ` ` . --LIU[,nz  NNN N"N(0- ,nz  N Nr^k .6/E W &vLG  Nk N#" N#.\7 /E  & :kvL(Fy#&y#.W E -ASUH$y""nz ` ` . --LIU[,nz  NNN N"N(0- ,nz  N Ns ] &S(\gzz,s( e YZYZ.<@S@`@,S@Y.,\a@/@ @Q@k<@ 2@. L^@@@%2@%[@.z@<@<L@<@<*K@*.<@< @<@<@<S@.<U@<ܟ@uS@u`@!@9.%z@a'`@E,e@,@,W@t  $PUT $POP!aW !.^p: @Q@] X@dy@#.lS@!@:@vL!@R@.a%@a-@aW@aL^@aw@=.ay@+dI@\g@\gW@( \_hQ.(  & !$ vL!lS+dI dy$lS.& e$$ ! u N N O;.( w B @ H$0 (.P   ASLIERONCKSUCOGO^nz  nz (:~^JVp e,~ ^ JVp) Z.Z 77 I.wzBxBxs& s$s"^. wr  Ĕ0!   ""g'.”0   ``v N N O;.( w B @ H$0 (.P   ASLIERONCKSUCOGO^nz  nz (:~^JVp e,~ ^ JVp) Z.Z 77 I.wzBxBxs& s$s"^. wr  Ĕ0!   ""g'.”0   ``wJ.,Xz@KR@K`@[M@ Nm;@.R@YZ@`@@a@a%@.a@a-@aOM@aPM@aW@.aL^@aw@ay@\gW@BxE"@.BxF"@BxI"@Bx}@z @z|@M.zT[@Bx@@e3l@(C<@ha&h. f  *e3l/,Xzk<"a'`&a'`x] X ] X.L ( ,,:\gW.r , ,ĕO ĕP \g&\g"77 +. @Q R @QRa-!N.  H  <  0aWa%a% a%. CF 5 5      a%aw! $ENDD! y.ע,ע/ע 7 .vL"vLF(vLxFv* *vL(Fyp:vL(FvLGvLG$&w 7 7 * N" yM N"yMvLG N"D.2   ,vL$G ^#`^# ^#$vL$G(Xw 7 7 .^" ^M^"^MvL$G ^"$xz.ע,ע/ע 7 .vL"vLF(vLxFv* *vL(Fyp:vL(FvLGvLG$&w 7 7 * N" yM N"yMvLG N"D.2   ,vL$G ^#`^# ^#$vL$G(Xw 7 7 .^" ^M^"^MvL$G ^"$x{&  g,\gW @QR @QR.< F @B2¥/*a-! aWa%aw!.b ^ɋ  ɋɥ, w "aPM$(k<.F w 77 .EVEN "awaPM,Xz%zZ .CSECT $TR: O '.c&f7 7 7  : vU<|    ayaL^.09? W@L"@@.@!@ #S@#,@a'`@.,*K@.L@:9S@D9@x:*K@.`@@a0M@aw@a*}@9w\@& z#@(09h.wR & W) W= z# ).& EW!P }7 M*` vLDE ME MvLDs,7 B!.vLD E ME MvLDoM*$oTd .H `wFe,!PvLyKoTd yvL&wwF   *X(`9 \(Xa_oMyMt! \(Xa+e*z z  zt!zt!zt!\(Xa"e 7 <[~7 M*` vLDE ME MvLDs,7 B!.vLD E ME MvLDoM*$oTd .H `wFe,!PvLyKoTd yvL&wwF   *X(`9 \(Xa_oMyMt! \(Xa+e*z z  zt!zt!zt!\(Xa"e 7 <[< <L$. *+ N  $z <ܟ <$< .,  ,  <L%.4/ / ed ɥ/.Z/7 v P  <  < &<  m7 7*<z z  z[M,Xz"$&<Ĝ* Nm; ,Xz<` ,*K#, (a0Ms.L   F .!a0M!a*}a'`(aw($r  # e*! a'`D99w\x:*K:9SQ. 77   $F: $ #S #S .Lx:*K `@.  7 fa0Mx:*K ? W$x:*K.  e&,*K*z z zwt8a'`/dZ>(,6 7 7 7 *vLu~/d'Q/D %s$L7 Е 9,%p!2 X(`9_ 3X:*}X:*},hЕ w7 7 !.X:*} X:*}""v""9wY$y""*wh7 w~7 k*y# N"yMvLG^""^M.ww $(!*z z zwt8a'`/dZ>(,6 7 7 7 *vLu~/d'Q/D %s$L7 Е 9,%p!2 X(`9_ 3X:*}X:*},hЕ w7 7 !.X:*} X:*}""v""9wY$y""*wh7 w~7 k*y# N"yMvLG^""^M.ww $(!Sk<.E%  S (%[%2a S$aOM(z. z hwwe<U$ !%[ ,\a",S(,S. J  @ KF(,\a ayJaOM!(a'`_(& J    .aw JaOMz!a'` <*KUF5 =. . =. =a'`X X 5 .L#,a0M .      . : & a0M.& e W, ex a0M.L S C !  "L"3.rW0 U  .GLOBL $TSI ). .GLOBL $TSR .GLOBL $TSD  .\"$&GLOBL $TRTST .E,e@&S@z@(vL$Gdy%,%nz  ((.  70 Օ/Օ, Օ nz . Օ   D( dya\g`vLD$4d(h. _ e  w4 &_A@eA@0M s4.F7 7 • !$0MvLxFvLF} }.l•S,  ,& &,o;@,%,%(vL$Gdy%,%nz  ((.  70 Օ/Օ, Օ nz . Օ   D( dya\g`vLD$4d(h. _ e  w4 &_A@eA@0M s4.F7 7 • !$0MvLxFvLF} }.l•S,  ,& &,o;@,%,%m*ay z <z <<.p f &+ uSu`z$a'. aC 7gBx}aL^BxI"< .h * 7  F '( < <*K<*K aOM(aw. m + .! <z %[aOM"ay;*  . =  *.<U@<ܟ@@,@,s@.K`@YZ@`@@+dI@\gz@b.wt8@z|@z&@zT[@(*E,ehO.f& W- ~ |%YZ YZ ,.&y ѥ,t e&&& & zz|"z|&z|.L W- W U%Rѥ)Oo,"&&a\gb. B& .s& s"B%,%&a\g$vLxFq$wwx*vLF ~Ls;MvL(FvLGG.  f1 fvL$GvLD .A$$$ SWITC yp:%,% vLG! HES = # 0000 ERRORS V %,% vLF:#:4d N(^EXECUTION DELETED w"&&a\gb. B& .s& s"B%,%&a\g$vLxFq$wwx*vLF ~Ls;MvL(FvLGG.  f1 fvL$GvLD .A$$$ SWITC yp:%,% vLG! HES = # 0000 ERRORS V %,% vLF:#:4d N(^EXECUTION DELETED wa< BxF"aL^! <L.*mJ ɥ(SɥOJɥ"G3$<L< z YZ.PɥZGɥ-=ɥ+ E Cɥ*#% , .vB <7 7ɥ(*ɥ- zz|<LYZ.ɥOɥZɥ+  ,$z&<. 47  | $z < zYZ,W9. .r&f&& e   YZzz|z|.( (&  z&"&k.$Cfe e&  `@+dI"wt8&wt8.(e e e ] &S(\gzz,s( e YZYZ."HN) ? @) @? S@ V.Ve mf $vL /doM*oTd(X(`9.| D  DD D "\(XaDA@"A@(_ 3. D  D) D 6 _oM)A@"A@(. e  **COMPI$%,% a\gvL/d.LER ----- CORE** PHASE USED W. FREE DECLARATIVES XXXXX XXXXX E V.Ve mf $vL /doM*oTd(X(`9.| D  DD D "\(XaDA@"A@(_ 3. D  D) D 6 _oM)A@"A@(. e  **COMPI$%,% a\gvL/d.LER ----- CORE** PHASE USED W. FREE DECLARATIVES XXXXX XXXXX Ei7 jEEM$ E,e<L <ܟ$<S(<Sa.   0wX -<<<$<K.4 kÜ  v n%Bx<(<+Z%x 0 " <BxxaOM~T.~%%Ü  EBx&K`j. && E KRK`K`.? p]@? ]@? `@ @Q@O@2.O@L"@d@@z@q.O@@~@uR@u`@!ܟ@.!@""g'@#xQ@%@@a'`@.'~@E,e@,@,@-@&.-@:@{L?@ N@R8@.R@oTd@Y@T[@_oM@.a@a @a%@a-@aOM@.aPM@aW@aL^@aw@ay@N.a*}@:dXE(.:CUTABLES XXXXX XXXXX ASSEMBLY X`XXXX XXXXX 2.s;Ma@vL$G@oM[M@.^M@s@I@(s;Mh.!   ?&oM[MoM[Ma^M(^M.& ѕ< W  E."IvL$GI"vL$Gb.LU0ѐѕ:  ѕ. XE(.:CUTABLES XXXXX XXXXX ASSEMBLY X`XXXX XXXXX 2.s;Ma@vL$G@oM[M@.^M@s@I@(s;Mh.!   ?&oM[MoM[Ma^M(^M.& ѕ< W  E."IvL$GI"vL$Gb.LU0ѐѕ:  ѕ. K`.%W!"&w Re& & & &  |aPMRz|r.0  %%Z%`@aOM&Z.&w J  e  ;" aPM Jz|aL^&!H.<&,  .WORD .BYTE 377&   a<.b # @ @ @ @a & ! L^:.  @ @ @ @ @a  2S@:d`@:d@:d@.ev@gS@g`@\g@\gW@.g@9w@[@wr @wS@w`@.y@}d@~W@( ) Oh.) Rhlh#,h(h6(Nhb z#hb.wT7!w0? ]oTd_oM9w@[.&$  8-5-. $.&fy devR8.r ^MI^M$I6.r EFs a.5& /CC,SY:FTNLIB[1,1]/L/G  &.O @vLDzz  -.axL"@@a@(@axh. ɥ0   D L"#r ^MI^M$I6.r EFs a.5& /CC,SY:FTNLIB[1,1]/L/G  &.O @vLDzz  -.axL"@@a@(@axh. ɥ0   D L"#( 5wg%zzr.Cy N@g@/D@.@@z@<S@<U@.<ܟ@uR@uS@u`@!@.#S@#`@&K@,*K@,@j.,R@S@@_oM@a%@a0M@}.aL^@aw@a*}@:dS@:d`@.:d@:d@9wY@wr @wR@.w`@z @zt!@L 7W  W)y@~@~yA.r    AwAy) ?  :({L?.- (  ƆoUYT[E,e. p&! 5s*,oTdz""g'$wS&w` .x5n Y&Ew? S ? `yZ.  P E7 O$4>"&%ɋ3, aD.2,k<@d@!@p.,*K@2@2H 2@3}@.`@@a @a0M@aPM@aL^@.ay@9w\@wz@z\@(r2,h\2h . .TITLE .CSECT .GLOBL : JSR %4,$Ph.&OLSH .GLOBL $POLSH,$NAM $NAM,0,0,L .GLOBL $SEQ "&%ɋ3, aD.2,k<@d@!@p.,*K@2@2H 2@3}@.`@@a @a0M@aPM@aL^@.ay@9w\@wz@z\@(r2,h\2h . .TITLE .CSECT .GLOBL : JSR %4,$Ph.&OLSH .GLOBL $POLSH,$NAM $NAM,0,0,L .GLOBL $SEQ zT[@Bx@.؁@@@@@A.@@@@@ .@@@(@P@^.x@@Ȃ@@@ .(u!h Nm;hljh@hS.N e 6 6 * &K"&,&& %E*dYk.0  9 4&4U4 g&Y;.V eu#&CEEB  yP.|PPBeᷣPhg N,Y.)1?IOBCCBEE ^. P f @  0Q P y`.RT!f w ) %@,.W(  \$\ w .2 aPM z\ay!2G(x   w  ,3}a0M a0Mk<aPM $ w e w .ay! ayaPMz\aL^-$, w L(a  aL^!wzaPML.i9Nk<@z@!U@m.!ܟ@!@,@ \$\ w .2 aPM z\ay!2G(x   w  ,3}a0M a0Mk<aPM $ w e w .ay! ayaPMz\aL^-$, w L(a  aL^!wzaPML.i9Nk<@z@!U@m.!ܟ@!@,@zzw` wR\.D5 W( e *:dS :d`(z.je   E <ܟ"  e6 *Bx.6 6 ! g { b 3$ ,.`  eW,W)X    " > w w 0Q z~W.:PwwTBE@C% $yJ.`FK   (  w ) ? T[") ? (? p],wl7 7 &&f* ::) ? ) ?  y$}dR.&E  @ )-$zu` uR}d@~g."  & h)"   ?. N)" .L@2@;.2@3}@x:*K@vL!@a@.a @a0M@aOM@aPM@\g@@.\gx@wY@wz@z @z\@.(th 2h L^hL"hB.hdhhh~h .!h&Kh,,h ,*Kh,8h..hKh _MTqh NhR8h7.ThHXhYhT[h`h.`@ha$h6a%h<a-haWhx.L@2@;.2@3}@x:*K@vL!@a@.a @a0M@aOM@aPM@\g@@.\gx@wY@wz@z @z\@.(th 2h L^hL"hB.hdhhh~h .!h&Kh,,h ,*Kh,8h..hKh _MTqh NhR8h7.ThHXhYhT[h`h.`@ha$h6a%h<a-haWhx.E?E2Q <  C,*K"&a0M, A $. a0Ma%aw a%$q.@E & )& *:d:d aL^a%&wr R&fE   *z:d :daL^!v.eseU*z "&zBUd@~$}d>.p 77&77 O }dy) ? :.B & w.EpU  ,KT[&@~-.h&f& ( $ y}d}d@~"T[. #Ff V Z }dy@~.  5$ ,z:dS:d` T[.).aL^hFawhayhpayhla*}hB .+dIh2evh\ghf\gWhR\gYhL.gh9w\hIhe3lh.B09AZ6.&!ĕ:ĕ,ĕ  &a".Lf wf w$\g@\gx\gx\gx"\gx6.r7 w  .GLOBL(\gx \g@\gx.aL^hFawhayhpayhla*}hB .+dIh2evh\ghf\gWhR\gYhL.gh9w\hIhe3lh.B09AZ6.&!ĕ:ĕ,ĕ  &a".Lf wf w$\g@\gx\gx\gx"\gx6.r7 w  .GLOBL(\gx \g@\gx.&  5*aL^z :dS":d`(|5 E*:dS:d`zw`wR. w .GLOBL $ADJ I"/D(.  l6 v6vN*(/D("&P,2e 4 5m*x uSu`$gf.V 6‹% 1 EP (@~. P   ` a'`.& !  U4a'`a'`.L&  U}d }dy.r& H f5b5\ "@~z :dS":d`(   ,\gW @Q R @QR. aOMaPM& . .+-***/.OR..AND..NOT..L"  B.T..GT..EQ..NE..LE..GE..     U n  .(  C å å$.N נA   e.t`  B¥  ɥ ɋ~. DaOMaPM& . .+-***/.OR..AND..NOT..L"  B.T..GT..EQ..NE..LE..GE..     U n  .(  C å å$.N נA   e.t`  B¥  ɥ ɋ~. D2 EE2Q*z (PBx <S$<U!.| l3 $E E>$(<U<ܟP(<Sy.3QU W, ɋ W,$<ܟ #S #`F. e  !.& 4m$" ; g z .C C C E$ vE 5  @<:*a-! aWa%:daL^.E  #  )]  wr U(5%  E, \gW @QR @Q R. A CF !*a-! aWa%awa%,> IE UP 6*aw!a*}zgS g`Y.b CE  &f D.W R &5.&f@  Ëנ @. e ee e ѐ  .2@(&fe B.X em&ff&e a0Mz (z\M.~ Z  e a0M.&f $2 .eW0 &f D.W R &5.&f@  Ëנ @. e ee e ѐ  .2@(&fe B.X em&ff&e a0Mz (z\M.~ Z  e a0M.&f $2 .eW0 $x :3 w*zT[ gz g+.R7E E E Eve wa-$g P&zT[&x w *zT[zt! ,R_oM9wY(X" EEsQc*S@( PuRuSu`Jeu`x.> g@ aw! &""g'.ĕ ĕ$  Ĝ A, \g\g\g $\g( @Q  *O @Q Oa-!aWm.BIIRDCJX75o5m5k!@~U.& 77e ĕ$ E " N,\g \g.   ' C E  \g \gW7E0 a0M.W0 W9WAWFE7. &̋ 7w .w *x:*KvL!.La $aPM&vL!.< b  w :(wz baOMwY!$a {.b: $SEQ,7mcf& ɋ#.L.Lwz c.ɥ'ɥ,ɥ= ɥ(ɥ)  .      ɥ'RW7E0 a0M.W0 W9WAWFE7. &̋ 7w .w *x:*KvL!.La $aPM&vL!.< b  w :(wz baOMwY!$a {.b: $SEQ,7mcf& ɋ#.L.Lwz c.ɥ'ɥ,ɥ= ɥ(ɥ)  .      ɥ'R @Q@L"@F.@@%[@%`@z@.<S@<ܟ@!U@!ܟ@!@.#,@a'`@'@,@,Xz@.-@R@YZ@a%@a-@.aOM@aPM@aW@aw@ay@\.:dS@:d`@\g@\gW@\gz@N.wt8@w`@wS@w`@ z#@ .z @z\@z@e3l@(:> h &8Ĝ  x, \g\g @Q#xQ @Q.V Mw g$#xQa- !aW!0.|    ܩ\g" @Q$-. EwKK P* @Q- a-!aW!"  !. \gW \g @Q-  @Q. ɋ.""[M/D@""@""t!@&""v@(8z""hz.&fW!UE!+  """"t!(/D&5!w ""i.#q@8(c@8h@8h$.& & &f&f& & & A& & .&$m"$   ɋ.""[M/D@""@""t!@&""v@(8z""hz.&fW!UE!+  """"t!(/D&5!w ""i.#q@8(c@8h@8h$.& & &f&f& & & A& & .&$m"$   . 77f& ѥ(ɋ ,XzYZL"a.&ѥ)(  ɥ=  .L ׅ%5E` *,Xz ,z%`"!U$!ܟ(rU@EB  m(!ܟ <ܟ<S' \gW g. @QR @QRa-!\&  F  E !( E&- a- !aW!,&Q4`J ,Q '~J\gW @QR @Q.& CF w $d*Ra- !aWa%awLSVSP0 X.Xf  Ee0 7)& )  \gW$\g( @QP&~7 @E .- @Q -a DE v!$w.L+--  'DE 0.r0L    9Q  X. 0 $ FaB A @ v!$N  .  /#   .cw& 23   w e. . vv    w(.0EDN " v!$DE+Q.V- v!$DE 00.|90 ` av!$  ` DE v!$w.L+--  'DE 0.r0L    9Q  X. 0 $ FaB A @ v!$N  .  /#   .cw& 23   w e. . vv    w(.0EDN " v!$DE+Q.V- v!$DE 00.|90 ` av!$  `*aWa% a'`a'`aw!* w & =.zay aPM , z$w`h. 5ɥ,$ɥ)! wS z\gz"&E  U*z <ܟ<ܟwt8w`wt8.,0 0  6ɥ,ɥ)V$:dS:d` %[gz {.R ɥ=S W ]Ep]-!aWQ. A    *wr  a%aw) ? ":(!E*5  U, \gW @QRa-"!*wF e0 ܖ*aW \gW\g @Q -. wJ $SBS $SBXf&@& @Q- a-!aWl(,7@ 5@ 5&w d*@~ wr z!ܟ:d. "w   4 4f.& ( " mB A @ mA 3.@ m@ c  e  =. e=-9B.:6 C B A @ #"B .`A @ C6v "$e.΋V w  Jf. &f 8 2&f . eB A @ eA @ e@ e B A @    . "w   4 4f.& ( " mB A @ mA 3.@ m@ c  e  =. e=-9B.:6 C B A @ #"B .`A @ C6v "$e.΋V w  Jf. &f 8 2&f . eB A @ eA @ e@ e B A @     z#('.x&       E #,\gW'Q(e0 077 . \g @Q- @Q- a-. w $ m2 2 Z.!aW aPM$z z\ z.F w 67^_ $TRaw aPM6,Xz$. : JSR %4,$POLSH $POPR .+2 RTS0 %5 : S:d`$L w l w ,aPM  ay!aPMl ay.h{ E e w ,aPM{ aL^!:$aPM& &7ww l w @E ,.@~ OaPMl a :d:d .w @E%@5 w QaL^aPM &a*}y.+  CEF w ).a  wr zay"aw&aPM( oA.z*}@gH RH.SH`H,RH,SH@,\aH-.? RH? SH@? `H L"@@m.@%RH%SH%[H %`H.&RH&SH&`Hz@<SHǰ.<UH8<ܟH@uRHuSHx.u`H !SH?!UH!ܟH!He.!H !H#RH#SH #`H .&K@X(`9@\(Xa@,8@,Xz@GA.z*}@gH RH.SH`H,RH,SH@,\aH-.? RH? SH@? `H L"@@m.@%RH%SH%[H %`H.&RH&SH&`Hz@<SHǰ.<UH8<ܟH@uRHuSHx.u`H !SH?!UH!ܟH!He.!H !H#RH#SH #`H .&K@X(`9@\(Xa@,8@,Xz@G.:K/@> @d@$.k@k<@t!@t!f@""@9.""v@#@#@(@,0M@g.,Xz@2@2,@X:kL@vL!@.qQW@SW@`X@@+dI@rv~@.9w\@wY@z@@@(,.o|h9wYh9w~\h9w ]hD, w7 ' 7- * #vL!t!f,Xz ""*Ý  3 w  w .@~'~'~aPM  aL^$aPM=. w - e0 y* aPM O \gW&\gQ@  . @Q- @Q-a-!F.V w   .+2 JSR %5, gaW!.| BR .+: 0 ADD #,%6 JSR %4,$POLSI. H .GLOBL (%5) $GET $PSHR $SVA. $SVP.9@8@X:*}@KRHKSHK`H._MTq@ N@S0@WRHWSH.Ww@W`HYZ@S[ܟHT[@G._oM@`@@+dI@:dRH:dSH.:d`H:dH:dH:dHgRH.gSHg`H bsp@9wY@9w\@'.wt8@wRHwSHw`HwRH.wSHw`H z @z|Hz@.zt!@zT[@zw@zBxHz\HC.zH؁.9@8@X:*}@KRHKSHK`H._MTq@ N@S0@WRHWSH.Ww@W`HYZ@S[ܟHT[@G._oM@`@@+dI@:dRH:dSH.:d`H:dH:dH:dHgRH.gSHg`H bsp@9wY@9w\@'.wt8@wRHwSHw`HwRH.wSHw`H z @z|Hz@.zt!@zT[@zw@zBxHz\HC.zH؁"""v,$ ,"  ,zwY ,0Mk<,""9w\.H  5 8 ݄x e {k<`X@`X@&d.nՄ +    Jk<> ( &f  7 *2qQWSW+dISW 2,.&  #rv~9w\ @.   $SVE $CMORANNTADSBMLDVPWNGLT GTEQNELEGE.#/@/D@? W@s.k@k<@\_@t!f@""@.""v@#@ #S@X(`9@\(Xa@r.,0M@,Xz@2@2,@:9S@.vL!@qQW@_ 3@_oM@9wY@.9w\@wY@yvL@z@(.#hTD9h:aSh9w@[h( wHHHH.HHHHH \.H"H$HH&H(. H*!H,"H.#H0(Hd.PHxHH ȂH Hx.HHRHSH`H .c@8@@8@(&:h,h.,Rh,Wh,sh,zhS@hd&\gzhwr hFz&h:. HHHH.HHHHH \.H"H$HH&H(. H*!H,"H.#H0(Hd.PHxHH ȂH Hx.HHRHSH`H .c@8@@8@(&:h,h.,Rh,Wh,sh,zhS@hd&\gzhwr hFz&h:. :  (* (X:kL@: 9w\() # r X:kL"k"T^fow.T^f o wr6.  .JSUBROUTINEFUNCTIONBLOCKDATAEe .pXTERNALDEFINEFILETYPEDIMENSIONCOMMONEQ-.UIVALENCEDATAIMPLICITENDLOGICAL*1LOGIC7 '  *# 9wYvL!t!f/D /" w*# #_ 3X(`9_ 3X(`9:- *\(Xa_oM "" ""vzwY/,Pۅ   h.,0M yvL,Xz9w\ #S$yvLZ$tą x.? W vL!\_ #S.0   CaCa$ L"M.&` 7! d  zt!-.L  T&5  L"g.rEEV!3`&.$ :W.&w:6 &6v "e "".a v6  ߁W"&K L". W. W'4 e:w0   CaCa$ L"M.&` 7! d  zt!-.L  T&5  L"g.rEEV!3`&.$ :W.&w:6 &6v "e "".a v6  ߁W"&K L". W. W'4 e:w.ALBYTEINTEGER*2INTEGERDOUBLEPRECISIOND-.OUBLECOMPLEXREAL*8REAL*4REAL^fW O ^"f,   W*k<kSW+dISW"2,.axL"@@a@(@axh. ɥ0   D L"#"&%ɋ3,  z. ENDFORMATDODEFINEFILEA"  5.SSIGNCALLCONTINUERETURNGOTOIF(PAUSESTO.PREADPRINTWRITEENCODEDECODEREWINDBACKSPACEFIND.axL"@@a@(@axh. ɥ0   D L"#"&Pw.0ev Nv  B ,8.VE% ^ e: Wwzwz.|w" 60' X:*}&S0٩. W(U5 S0 wt8,XzI.%E R "  YZ.  "EEwt8zz Pw.0ev Nv  B ,8.VE% ^ e: Wwzwz.|w" 60' X:*}&S0٩. W(U5 S0 wt8,XzI.%E R "  YZ.  "EEwt8zz  aD.2,k<@d@!@p.,*K@2@2H 2@3}@.`@@a @a0M@aPM@aL^@.ay@9w\@wz@z\@(r2,h\2h . .TITLE .CSECT .GLOBL : JSR %4,$Ph.&OLSH .GLOBL $POLSH,$NAM $NAM,0,0,L .GLOBL $SEQ  \$\ w %ɋ3, aD.2,k<@d@!@p.,*K@2@2H 2@3}@.`@@a @a0M@aPM@aL^@.ay@9w\@wz@z\@(r2,h\2h . .TITLE .CSECT .GLOBL : JSR %4,$Ph.&OLSH .GLOBL $POLSH,$NAM $NAM,0,0,L .GLOBL $SEQ  \.E!"  N N"z( Nx.: wT 6( & z9w\".`v (v$e  $I n9@8`@(9@8."UUw0v$em.  $I " U0$9@8 `@9@8wt8$wt8. "e "*  0?3+dI N.E!"  N N"z( Nx.: wT 6( & z9w\".`v (v$e  $I n9@8`@(9@8."UUw0v$em.  $I " U0$9@8 `@9@8wt8$wt8. "e "*  0?3+dI N .2 aPM z\ay!2G(x   w  ,3}a0M a0Mk<aPM $ w e w .ay! ayaPMz\aL^-$, w L(a  aL^!wzaPML.i9Nk<@z@!U@m.!ܟ@!@,@.L@2@;.2@3}@$\ w .2 aPM z\ay!2G(x   w  ,3}a0M a0Mk<aPM $ w e w .ay! ayaPMz\aL^-$, w L(a  aL^!wzaPML.i9Nk<@z@!U@m.!ܟ@!@,@.L@2@.De$ыW', &TN  z. 5ԕ u 7BUzT[ YZ.D w"*W Nz ND.j'ы $ыDeT zr. N  6 6 6 .6 @6 6Da  z.WHwB w(W.BWEoWDla .De$ыW', &TN  z. 5ԕ u 7BUzT[ YZ.D w"*W Nz ND.j'ы $ыDeT zr. N  6 6 6 .6 @6 6Da  z.WHwB w(W.BWEoWDla x:*K@vL!@a@.a @a0M@aOM@aPM@\g@@.\gx@wY@wz@z @z\@.(th 2h L^hL"hB.hdhhh~h .!h&Kh,,h ,*Kh,8h..hKh _MTqh NhR8h7.ThHXhYhT[h`h.`@ha$h6a%h<a-haWhx.aL^hFawhayhpayhla*}h;.2@3}@x:*K@vL!@a@.a @a0M@aOM@aPM@\g@@.\gx@wY@wz@z @z\@.(th 2h L^hL"hB.hdhhh~h .!h&Kh,,h ,*Kh,8h..hKh _MTqh NhR8h7.ThHXhYhT[h`h.`@ha$h6a%h<a-haWhx.aL^hFaL"Q. 0/ & v$e   ,XzE.( $I "UUU9@8`@9@8`.NE0Q @<w wt8(.tw] 6 6 6 6   .0     P   T[$.  6 N$2T.( e "e2e( +dIs.L"Q. 0/ & v$e   ,XzE.( $I "UUU9@8`@9@8`.NE0Q @<w wt8(.tw] 6 6 6 6   .0     P   T[$.  6 N$2T.( e "e2e( +dIs.B .+dIh2evh\ghf\gWhR\gYhL.gh9w\hIhe3lh.B09AZ6.&!ĕ:ĕ,ĕ  &a".Lf wf w$\g@\gx\gx\gx"\gx6.r7 w  .GLOBL(\gx \g@\gxaOMaPM& whayhpayhla*}hB .+dIh2evh\ghf\gWhR\gYhL.gh9w\hIhe3lh.B09AZ6.&!ĕ:ĕ,ĕ  &a".Lf wf w$\g@\gx\gx\gx"\gx6.r7 w  .GLOBL(\gx \g@\gxaOMaPM wwwwhwl6 0.2wjf 焃 T _MTq9w\&.X6 6Da6WEWDvS.~ T W+W-~6 \:  .6Da& - ER zv.  - **; @8/. &e(e(v$e --.DF $R "UU wwwwhwl6 0.2wjf 焃 T _MTq9w\&.X6 6Da6WEWDvS.~ T W+W-~6 \:  .6Da& - ER zv.  - **; @8/. &e(e(v$e --.DF $R "UU. .+-***/.OR..AND..NOT..L"  B.T..GT..EQ..NE..LE..GE..     U n  .(  C å å$.N נA   e.t`  B¥  ɥ ɋ~. D &f D.W R& . .+-***/.OR..AND..NOT..L"  B.T..GT..EQ..NE..LE..GE..     U n  .(  C å å$.N נA   e.t`  B¥  ɥ ɋ~. D &f bsp`@bsp.<UE0Q e "wt8"+dI.b$2w .... &R c@8U.e(E T w G&.$D "U UE&`@d. 555     .Eǯ &  & NI. f B bsp`@bsp.<UE0Q e "wt8"+dI.b$2w .... &R c@8U.e(E T w G&.$D "U UE&`@d. 555     .Eǯ &  & NI. f B &5.&f@  Ëנ @. e ee e ѐ  .2@(&fe B.X em&ff&e a0Mz (z\M.~ Z  e a0M.&f $2 .eW0W7E0 a0M. D.W R &5.&f@  Ëנ @. e ee e ѐ  .2@(&fe B.X em&ff&e a0Mz (z\M.~ Z  e a0M.&f $2 .eW0W7E0e `) `)  t S0 +dIS0&z.FE Em   z .l5 55 5   ,XzG.  W(EUE f  . 5E fE`mw! "zT[&zt!. w fE2_oM9wYzT[-. \1wwe `) `)  t S0 +dIS0&z.FE Em   z .l5 55 5   ,XzG.  W(EUE f  . 5E fE`mw! "zT[&zt!. w fE2_oM9wYzT[-. \1wwW0 W9WAWFE7. &̋ 7w .w *x:*KvL!.La $aPM&vL!.< b  w :(wz baOMwY!$a {.b: $SEQ,7mcf& ɋ#.L.Lwz c.ɥ'ɥ,ɥ= ɥ(ɥ)  .      ɥ'Rɋ.""[M a0M.W0 W9WAWFE7. &̋ 7w .w *x:*KvL!.La $aPM&vL!.< b  w :(wz baOMwY!$a {.b: $SEQ,7mcf& ɋ#.L.Lwz c.ɥ'ɥ,ɥ= ɥ(ɥ)  .      ɥ'Rɋ$ zT[ Nz "zT[&z.*7U ff&ff&& 7  NzT[{.Pm  EWw Nz (.v%   2 zw"z.&f e zt!X(`9.w7e7.TRUE.zt! zt!\(Xa.FALSE.6 $ zT[ Nz "zT[&z.*7U ff&ff&& 7  NzT[{.Pm  EWw Nz (.v%   2 zw"z.&f e zt!X(`9.w7e7.TRUE.zt! zt!\(Xa.FALSE.6 /D@""@""t!@&""v@(8z""hz.&fW!UE!+  """"t!(/D&5!w ""i.#q@8(c@8h@8h$.& & &f&f& & & A& & .&$m"$    DE v!$w.L+-- .""[M/D@""@""t!@&""v@(8z""hz.&fW!UE!+  """"t!(/D&5!w ""i.#q@8(c@8h@8h$.& & &f&f& & & A& & .&$m"$    DE!.2 G@{d@t!@n.t!&@t!f@i@y@_qt:@z@Z.~W@(/hhaHhDah:a.Nah\ysh~h.t!h( Dh   (((.(7 f&7 f e@ .NaD7 wE7:7<7vaHhDah:a.Nah\ysh~h.t!h( Dh   (((.(7 f&7 f e@ .NaD7 wE7:7<7v\..ŋp7j > \... 7ad`^ŋ7RPN  &.BB7<6f&  $ .7 7 7  . :\\..wBa :\\.."}s} 2z b b.*}KLH<3$<.t>\..ŋp7j > \... 7ad`^ŋ7RPN  &.BB7<6f&  $ .7 7 7  . :\\..wBa :\\.."}s} 2z b b.*}KLH<3gH RH.SH`H,RH,SH@,\aH-.? RH? SH@? `H L"@@m.@%RH%SH%[H %`H.&RH&SH&`Hz@<SHǰ.<UH8<ܟH@uRHuSHx.u`H !SH?!UH!ܟH!He.!H !H#RH#SH #`H .&K@X(`9@\(Xa@,8@,Xz@G.9@8@X:*}@KRHKSHK`HA.z*}@gH RH.SH`H,RH,SH@,\aH-.? RH? SH@? `H L"@@m.@%RH%SH%[H %`H.&RH&SH&`Hz@<SHǰ.<UH8<ܟH@uRHuSHx.u`H !SH?!UH!ܟH!He.!H !H#RH#SH #`H .&K@X(`9@\(Xa@,8@,Xz@G}H3؁H.~}H8(h/Dh) ? h.) hE MhE Sh @Qh(kh.k<hkWhjp:h^hah.;hhUt!hDfhh.@hZh^%h~%hV%2hR.%2hr%Zh%pht-Zh80Mh.ah5zhOh<h<Lh.<h<*Kh<hZ< h<h\).<he%hh@~h*LhQ}H3؁H.~}H8(h/Dh) ? h.) hE MhE Sh @Qh(kh.k<hkWhjp:h^hah.;hhUt!hDfhh.@hZh^%h~%hV%2hR.%2hr%Zh%pht-Zh80Mh.ah5zhOh<h<Lh.<h<*Kh<hZ< h<h\).<he%hh@~h*LhQ._MTq@ N@S0@WRHWSH.Ww@W`HYZ@S[ܟHT[@G._oM@`@@+dI@:dRH:dSH.:d`H:dH:dH:dHgRH.gSHg`H bsp@9wY@9w\@'.wt8@wRHwSHw`HwRH.wSHw`H z @z|Hz@.zt!@zT[@zw@zBxHz\HC.zH؁HHHH.H.9@8@X:*}@KRHKSHK`H._MTq@ N@S0@WRHWSH.Ww@W`HYZ@S[ܟHT[@G._oM@`@@+dI@:dRH:dSH.:d`H:dH:dH:dHgRH.gSHg`H bsp@9wY@9w\@'.wt8@wRHwSHw`HwRH.wSHw`H z @z|Hz@.zt!@zT[@zw@zBxHz\HC.zH؁.i+hbiL,hf h2] Xhdyh@.fHh:lShh.%h7}h.t!h(!h!%h!h!2h.!6h!7h!(7h""h""t!h.""g'h""vh#h#xQh!%@hu.%zh@'&@ha'`ha'.h'h.'~h'QhX(`9hz\(Xah|%,%hj.,Xzh-h-h.Lh+2h.2h2h9@8hX:*}h>x:h .x:*Kh>:.i+hbiL,hf h2] Xhdyh@.fHh:lShh.%h7}h.t!h(!h!%h!h!2h.!6h!7h!(7h""h""t!h.""g'h""vh#h#xQh!%@hu.%zh@'&@ha'`ha'.h'h.'~h'QhX(`9hz\(Xah|%,%hj.,Xzh-h-h.Lh+2h.2h2h9@8hX:*}h>x:h .x:*Kh>:HHHH \.H"H$HH&H(. H*!H,"H.#H0(Hd.PHxHH ȂH Hx.HHRHSH`H .c@8@@8@(&:h,h.,Rh,Wh,sh,zhS@hd&\gzhwr hFz&h:. 0   CaCa$ L"HHHH.HHHHH \.H"H$HH&H(. H*!H,"H.#H0(Hd.PHxHH ȂH Hx.HHRHSH`H .c@8@@8@(&:h,h.,Rh,Wh,sh,zhS@hd&\gzhwr hFz&h:. khh:h<O;hvLhv5.vLhPvL!hvLDhvL(FhzvLxFhT@.vLFhpvL$GhvLGh[Mh` Nkh\;. Nh N"h N#h NSh6 Nah4. NhNhqQWhRhUS@Qh.SWhS0hoTdhxWwhYZhZ.^khb^"h^#h^Mh_ 3h~._oMh`hahNa2hJ/dZhN.:dh=dyhEf@QhF\g@h2\gxh0|.$q"har h0rv~hsh,bskhh:h<O;hvLhv5.vLhPvL!hvLDhvL(FhzvLxFhT@.vLFhpvL$GhvLGh[Mh` Nkh\;. Nh N"h N#h NSh6 Nah4. NhNhqQWhRhUS@Qh.SWhS0hoTdhxWwhYZhZ.^khb^"h^#h^Mh_ 3h~._oMh`hahNa2hJ/dZhN.:dh=dyhEf@QhF\g@h2\gxh0|.$q"har h0rv~hsh,bsM.&` 7! d  zt!-.L  T&5  L"g.rEEV!3`&.$ :W.&w:6 &6v "e "".a v6  ߁W"&K L". W. W'4 e:wPw.0ev Nv 0   CaCa$ L"M.&` 7! d  zt!-.L  T&5  L"g.rEEV!3`&.$ :W.&w:6 &6v "e "".a v6  ߁W"&K L". W. W'4 e:w ph.shs"hs&hwYhwzh.wt8hy""hy#hyp:hyKht.yvLhryMhyMhyhnz h.z hzhzt!hzT[hzwh .}dhu~h+|~Kh~HXh,hFBxhX䒰"h4.; FORTRAN V004A FORTRAN V004A .& 00:00:00 00-XXX-70 PAGE 0000  L  N.N ph.shs"hs&hwYhwzh.wt8hy""hy#hyp:hyKht.yvLhryMhyMhyhnz h.z hzhzt!hzT[hzwh .}dhu~h+|~Kh~HXh,hFBxhX䒰"h4.; FORTRAN V004A FORTRAN V004A .& 00:00:00 00-XXX-70 PAGE 0000  L  N.N  B ,8.VE% ^ e: Wwzwz.|w" 60' X:*}&S0٩. W(U5 S0 wt8,XzI.%E R "  YZ.  "EEwt8zz .E!"  Pw.0ev Nv  B ,8.VE% ^ e: Wwzwz.|w" 60' X:*}&S0٩. W(U5 S0 wt8,XzI.%E R "  YZ.  "EEwt8zz <Ez* z".tE= z. NzbzE z$' .&z'y' NQ'^; V U;UP J.JdePQP~<Ez* z".tE= z. NzbzE z$' .&z'y' NQ'^; V U;UP J.JdePQP~ N N"z( Nx.: wT 6( & z9w\".`v (v$e  $I n9@8`@(9@8."UUw0v$em.  $I " U0$9@8 `@9@8wt8$wt8. "e "*  0?3+dI N.De$ыW', &TN .E!"  N N"z( Nx.: wT 6( & z9w\".`v (v$e  $I n9@8`@(9@8."UUw0v$em.  $I " U0$9@8 `@9@8wt8$wt8. "e "*  0?3+dI N "S p vq vu eMAIN.DATA. U145 E N #.y ** 66 .. "S p vq vu eMAIN.DATA. U145 E N #.y ** 66 .. z. 5ԕ u 7BUzT[ YZ.D w"*W Nz ND.j'ы $ыDeT zr. N  6 6 6 .6 @6 6Da  z.WHwB w(W.BWEoWDla L"Q. 0/ & v$e.De$ыW', &TN  z. 5ԕ u 7BUzT[ YZ.D w"*W Nz ND.j'ы $ыDeT zr. N  6 6 6 .6 @6 6Da  z.WHwB w(W.BWEoWDla   (( @2} 2XF.Xt.$$$$. tZ$~V.:p:@a@@.t!@L@Df@%2@0M@.%,%@x:@vL@vL!@vLD@.vL(F@vL$G@vLG@ N@`@.a2@/dZ@Ef@Q  (( @2} 2XF.Xt.$$$$. tZ$~V.:p:@a@@.t!@L@Df@%2@0M@.%,%@x:@vL@vL!@vLD@.vL(F@vL$G@vLG@ N@`@.a2@/dZ@Ef@Q   ,XzE.( $I "UUU9@8`@9@8`.NE0Q @<w wt8(.tw] 6 6 6 6   .0     P   T[$.  6 N$2T.( e "e2e( +dIs. wwwwhwl6 0.L"Q. 0/ & v$e   ,XzE.( $I "UUU9@8`@9@8`.NE0Q @<w wt8(.tw] 6 6 6 6   .0     P   T[$.  6 N$2T.( e "e2e( +dIs.@wY@wz@L.yK@yvL@|~K@~}@~HX@Z.(!hf,0Mho;@hNA@hH. NvLhahra ha&hra0MhM.aOMhJaPMh^a\gh/dh. @ $ yvL0M0M x:$vL(F2.&5`  H (vL(F x:p:ap:H.L   ! @wY@wz@L.yK@yvL@|~K@~}@~HX@Z.(!hf,0Mho;@hNA@hH. NvLhahra ha&hra0MhM.aOMhJaPMh^a\gh/dh. @ $ yvL0M0M x:$vL(F2.&5`  H (vL(F x:p:ap:H.L   ! 2wjf 焃 T _MTq9w\&.X6 6Da6WEWDvS.~ T W+W-~6 \:  .6Da& - ER zv.  - **; @8/. &e(e(v$e --.DF $R "UU bsp`@bsp.<U wwwwhwl6 0.2wjf 焃 T _MTq9w\&.X6 6Da6WEWDvS.~ T W+W-~6 \:  .6Da& - ER zv.  - **; @8/. &e(e(v$e --.DF $R "UUՕ^e@ m.r\ Օ ĕ  7 7 a"0M.C? )נ נ0~0Mp:~HX.נ9נ  Ԑ7 -נ~HX yvL. נ  !-&"p:p:~HX&yvLr. Eנ 9נ -Dw~HXyvL.0w >w + 0)נ 7נ`4-~Օ^e@ m.r\ Օ ĕ  7 7 a"0M.C? )נ נ0~0Mp:~HX.נ9נ  Ԑ7 -נ~HX yvL. נ  !-&"p:p:~HX&yvLr. Eנ 9נ -Dw~HXyvL.0w >w + 0)נ 7נ`4-~E0Q e "wt8"+dI.b$2w .... &R c@8U.e(E T w G&.$D "U UE&`@d. 555     .Eǯ &  & NI. f Be `) `)  t S0 +dIS0&  bsp`@bsp.<UE0Q e "wt8"+dI.b$2w .... &R c@8U.e(E T w G&.$D "U UE&`@d. 555     .Eǯ &  & NI. f B!0MyvLp:.V- b l wѐ/yvL yvL5.|m C å1å9 -yvLyK$yvL.w7 $~HXvL!0MyvL$0M.fvppl f@ `Vwz wY$@].  6 . - N6 .( N,  2 x:"0MyvLp:.V- b l wѐ/yvL yvL5.|m C å1å9 -yvLyK$yvL.w7 $~HXvL!0MyvL$0M.fvppl f@ `Vwz wY$@].  6 . - N6 .( N,  2 x:#z.FE Em   z .l5 55 5   ,XzG.  W(EUE f  . 5E fE`mw! "zT[&zt!. w fE2_oM9wYzT[-. \1ww$ zT[ Nz "zT[&z.*7$e `) `)  t S0 +dIS0&z.FE Em   z .l5 55 5   ,XzG.  W(EUE f  . 5E fE`mw! "zT[&zt!. w fE2_oM9wYzT[-. \1ww%, `2a2 vLG"%2$vL$G&:.80000 fh˕/DDevLGfh.^ 'd &f-Df &Df(F -* %,%FDfP. s   vL$G` vL$G&vLD.%  ,@ @ vL$GvLD.&, `2a2 vLG"%2$vL$G&:.80000 fh˕/DDevLGfh.^ 'd &f-Df &Df(F -* %,%FDfP. s   vL$G` vL$G&vLD.%  ,@ @ vL$GvLD.'U ff&ff&& 7  NzT[{.Pm  EWw Nz (.v%   2 zw"z.&f e zt!X(`9.w7e7.TRUE.zt! zt!\(Xa.FALSE.6 !($ zT[ Nz "zT[&z.*7U ff&ff&& 7  NzT[{.Pm  EWw Nz (.v%   2 zw"z.&f e zt!X(`9.w7e7.TRUE.zt! zt!\(Xa.FALSE.6 ) > ?& #`vL$G$vLD$.     6Dft!t!$DfY.<fՋ D Df%,%vL$Gbw n  nr.r7w ~ww ~ ' -M ~~ N&vL.8!&f  ע0$vL/dZ/dZEf@Q"Ef@Q.ӕ * > ?& #`vL$G$vLD$.     6Dft!t!$DfY.<fՋ D Df%,%vL$Gbw n  nr.r7w ~ww ~ ' -M ~~ N&vL.8!&f  ע0$vL/dZ/dZEf@Q"Ef@Q.ӕ +.2/@o|@%S@<.<@@u:@u!@{d@!;@.#"@(@i@y@9wY@9w~\@.9w ]@ zr@(dhh ].t!hBt!fh>#h:#,h6`X@hn.aHhDah:a.Nah\ysh~h.t!h( Dh   (0,:# d \q z##,:aSt```@.? Wt` X ``K&v~ ```*\q`09 ` `IqfZz..\X  &}s!e^e^ \ X&>&T 1* {d{d{d{d{d{dkr w{{d{d {di@y.1.,\..ŋp7j > \... 7ad`^ŋ7RPN  &.BB7<6f&  $ .7 7 7  . :\4aHhDah:a.Nah\ysh~h.t!h( Dh   (((.(7 f&7 f e@ .NaD7 wE7:7<7v\..ŋp7j > \... 7ad`^ŋ7RPN  &.BB7<6f&  $ .7 7 7  . :\\..wBa :\\.."}s} 2z b b.*}KLH<3}H9~@p@`.%@K.@oM[M@ -f C`(DaoM[M DaNax:h .x:*Kh>:khh:h<O;hvLhv5.vLhPvL!hvLDhvL(FhzvLxFhT@.vLFhpvL$GhvLGh[Mh` Nkh\;. Nh N"h N#h NSh6 Nah4. NhNhqQWhRhUS@Qh.SWhS0hoTdhxWwhYZhZ.^khb^"h^#h@i+hbiL,hf h2] Xhdyh@.fHh:lShh.%h7}h.t!h(!h!%h!h!2h.!6h!7h!(7h""h""t!h.""g'h""vh#h#xQh!%@hu.%zh@'&@ha'`ha'.h'h.'~h'QhX(`9hz\(Xah|%,%hj.,Xzh-h-h.Lh+2h.2h2h9@8hX:*}h>x:h .x:*Kh>:khh:h<A? S@? `@ @Q@. L^@L"@@@z@.uS@u`@!@,*K@,@R..L@R@a@a @a%@.a-@a0M@aOM@aPM@aW@|.aL^@aw@ax@ay@a*}@8.:dS@:d`@:d@:d@=dy@.gS@g`@\gW@wR@w`@;.e3l@(K f9h,.]h=dwhydhqB; 9@|@@@^.H g,H@,HkQHsHK.t!@"W@-`@C`O@C`O@l.C`O@C`O@C`O@|~K@*@N.(p g h ghhpzhh.`P@@AS. C`OC`OC`O!C`O)C`Oi.&s;1@i}@֯  C`O; 9|@$,Lޯp!C^Mh_ 3h~._oMh`hahNa2hJ/dZhN.:dh=dyhEf@QhF\g@h2\gxh0|.$q"har h0rv~hsh,bsph.shs"hs&hwYhwzh.wt8hy""hy#hyp:hyKht.yvLhryMhyMhyhnz h.z hzhzt!hzT[hzwh .}dhu~h+|~Kh~HXh,hFBxhX䒰"h4DO;hvLhv5.vLhPvL!hvLDhvL(FhzvLxFhT@.vLFhpvL$GhvLGh[Mh` Nkh\;. Nh N"h N#h NSh6 Nah4. NhNhqQWhRhUS@Qh.SWhS0hoTdhxWwhYZhZ.^khb^"h^#h^Mh_ 3h~._oMh`hahNa2hJ/dZhN.:dh=dyhEf@QhF\g@h2\gxh0|.$q"har h0rv~hsh,bsphE. 1  ɥ(= !$ e3l,*K.L$L"I.&w f r  S,r\gW @QR$ @Q&R.L w w  4 W.a-! aWaPMwax$!-r $TR . $TRX . $TRA 0 $TRAL Q. f > B,)& ɥ, ". *υɋ F$^)~ q0$t!"W-`|~K&*.kQ(E M@E S@@).g,@,@kQ@s@}@&.vL@vLD@vL$G@vLG@oM[M@f. N@oTd@^M@C`OHC`OHk.C`OHC`OHC`OH/d@ g @?. gh@s"@yM@z@(.; 9h|@hh6t!h"Wh.-`h4d(h|~Kh*hX:G.; FORTRAN V004A FORTRAN V004A .& 00:00:00 00-XXX-70 PAGE 0000  L  N.N<Ez* z".tE= z. NzbzE z$' .&z'y' NQ'^H.shs"hs&hwYhwzh.wt8hy""hy#hyp:hyKht.yvLhryMhyMhyhnz h.z hzhzt!hzT[hzwh .}dhu~h+|~Kh~HXh,hFBxhX䒰"h4.; FORTRAN V004A FORTRAN V004A .& 00:00:00 00-XXX-70 PAGE 0000  L  N.N<I:| ,|\gW @Q R& @Q(R.   ,wb*a- !aWa%aL^!  UE*za*} zgSg`w`v. P w ѥ,J.wR aw!aPMax"!.F Uɋ'ɥ,9 z? S? `(`*lɥ(3  J(&.X:;d( X:vL(R(r (rh(rBx(>ABEMNOPQRTUr  rh rBx r  rh rBx r  rh rBx K; V U;UP J.JdePQP~ "S p vq vu eMAIN.DATA. U145 E N #.yLEz* z".tE= z. NzbzE z$' .&z'y' NQ'^; V U;UP J.JdePQP~ M ,\gW @QR @Q"R. ɥ)w we,a-! aW!aPM (   .\gW @Q R @QRa->. ww ɋ *!aW !L"(,.%  < zu`uS. f ѥT ѥONr  rh rBx  r  rh rBx r   rh   rBx   r   rh   rBx   r O ** 66 ..  (( @2} 2XF.Xt.$$$$. tZ$~V.:p:@a@@.P"S p vq vu eMAIN.DATA. U145 E N #.y ** 66 ..Q)e3l,*K".> 4 ɋU<* !z ? S"? `&:d`(:dS*dÝÝ i* @Q @Q"\gW  w .R Ra-!aWaPM. ̅ w JE . ax!a z :d$:d.  $ASP $AS . R rh rBx r   g rhS  ghrBx` . W ( E SvLD X: X:vL"oM[M(41 & -, r rh rBxX:oTd.T;eeE \-St!@L@Df@%2@0M@.%,%@x:@vL@vL!@vLD@.vL(F@vL$G@vLG@ N@`@.a2@/dZ@Ef@Q@wY@wz@L.yK@yvL@|~K@~}@~HX@Z.(!hf,0Mho;@hNA@hH. NvLhahra ha&hra0MhM.aOMhJaPMh^a\gh/dh. @ T  (( @2} 2XF.Xt.$$$$. tZ$~V.:p:@a@@.t!@L@Df@%2@0M@.%,%@x:@vL@vL!@vLD@.vL(F@vL$G@vLG@ N@`@.a2@/dZ@Ef@Q@wY@wz@UaL^ ay &L.B 7¥O¥" r e3l.L=dyn.w ` 2  w $ !=dy aOM.6< 1 B L^$3.\ ܅ ځD  !"a,*K"(.L. D .GLOBL $PAUSE $PAUSE . aOM aOM.GLOBL $STOP V" N X:;X:$ N,zm*vLG vLDE MvLDvLD$E S @@ .X:@} X:@ s"oM[MoTd. Fff(~*&r X: X:(&X:*U.02 20    u.X:0X:2X:2X:0X:. w W  < |$W$ yvL0M0M x:$vL(F2.&5`  H (vL(F x:p:ap:H.L   ! Օ^e@ m.r\ Օ ĕ  7 7 a"0M.C? )נ נ0~0Mp:~HX.נ9נ  Ԑ7 -נ~HX yvL. נ  !-&XL.yK@yvL@|~K@~}@~HX@Z.(!hf,0Mho;@hNA@hH. NvLhahra ha&hra0MhM.aOMhJaPMh^a\gh/dh. @ $ yvL0M0M x:$vL(F2.&5`  H (vL(F x:p:ap:H.L   ! Օ^e@ mY$STOP .ASCII ^^ .BYTE 0 .EVEN >.u:@z@!@".,*K@,@,Xz@a%@a0M@2.ay@9w\@@e3l@(u:h. P  ,e3l ,*K,Xz,Xz"a0M&?.& V w + 0)נ 7נ`4-~0MyvLp:.V- b l wѐ/yvL yvL5.|m C å1å9 -yvLyK$yvL.w7 $~HXvL!0MyvL$0M.fvppl \.r\ Օ ĕ  7 7 a"0M.C? )נ נ0~0Mp:~HX.נ9נ  Ԑ7 -נ~HX yvL. נ  !-&"p:p:~HX&yvLr. Eנ 9נ -Dw~HXyvL.0w >w + 0)נ 7נ`4-~0MyvLp:]> ; 8 DW,3  ,&5.r0 - * ( ' $ ,9w\,m. W)   $!a%z ay&z1. z{|}~   .GLOBL $DEFIL ,U,W .'|Q @Q@!@a'`@u.^ X:.< ҋ  4d*vL /d X:X:;d &X:W. % 7 7 < W!;U(& X:X:X:<(X:vL#, & - 2 @,X: X:vL NX:2$X:@E><"<ы7 *X:<X:" X:< X:&RR .X:vL X:X:vL X:X:vL M _f@ `Vwz wY$@].  6 . - N6 .( N,  2 x:, `2a2 vLG"%2$vL$G&:.80000 fh˕/DDevLGfh.^ 'd &f-Df &Df(F -* %,%FDfP.V- b l wѐ/yvL yvL5.|m C å1å9 -yvLyK$yvL.w7 $~HXvL!0MyvL$0M.fvppl f@ `Vwz wY$@].  6 . - N6 .( N,  2 x:, `a,*K@.L@vL!@R@T[@.a@a @a$@a%@a-@q.a0M@aPM@aW@aw@\gW@('|Qh#"  l*.L ,*K\gW @QRj , @QR a-!aWa%$0F w $w i*a'` aw!a aPMvL!bh;=  < ? 4.X:;X:=X:<X:vL X:vLN.B Rw @  Z ?   X: X: X:vL. 4%W!:UW!=Q ,5 "X:&,(X:h.5 U  '5&$X:vLX: g,&X:.  | W!$ W!: DTX:.+ W!; w tc. s   vL$G` vL$G&vLD.%  ,@ @ vL$GvLD. > ?& #`vL$G$vLD$.     6Dft!t!$DfY.<fՋ D Df%,%vL$Gbw n  nr.r7dI REDUNDANT CONTINUATION MARK; IT IS IGNORED I CONTINUATION MARK NOT IN RANGE 1 TO 9; IT IS IGNORED I ILLEGAL STMT. NUMBER, NON-NUMERIC CHAR. IN COLS. 1-5 W ILLEGAL TYPE OR IMPLICIT STATEMENT, INTEGER IS ASSUMED. W NON-DECLARATIVE STATEMENT IN BLOCK DATA. F SYMBOL TABLE FULL. W TOO MANY CONTINUATION LINES, REMAINDER IGNORED. S MIXED MODE IS USED IN AN EXPRESSION. e.L( w B ..)%a$aPM2.r #>  l.  7  [ @QR%. L    ;w a&aPM(.w  F  .aPM a'`a'`awa$ !U. ff"  H w, ' T[.0 fz X: .>W!= W!:   9- X:(X: .d+  5 EU 7P& X:;dX:X:&X:3 5-.X:X:X:X:X:.U@U  U T.X:X:X:vLX:$X:vL. w Fff T t5X:;dX:vL X:.-w ~ww ~ ' -M ~~ N&vL.8!&f  ע0$vL/dZ/dZEf@Q"Ef@Q.ӕ  7 * |~K%,%~}vL(%,%   vLG&X:vL X: 0.ыwwU E7 S&X:X:X:vL$X:)*: 7 $ R1P`bh. X:$Rr `b h"$:.\ & xU _o.   5e5UX: X:X:. X   :׭ cX:vLkC FORDGN.FTN C ********* C CREATES AND THEN PRINTS A CONTIGUOUS FILE C OF MESSAGES FOR ACCESS BY THE FORTRAN COMPILER OR OTS. C ********* C INPUT FORMAT (FROM LOGICAL UNIT 4): C 1ST RECORD-- I3,10A1 I3=#OF 64 CHARACTER MESSAGES C   TO BE ALLOCATED. 10A1=FILE NAME C OTHER RECORDS- I3,32A2 I3=POSITION OF CURRENT C  MESSAGE IN THIS FILE. 32A2=CURRENT MESSAGE. C LAST RECORD-- I3,32A2 I3=NEGATIVE INTEGER. 32A2=IGNORED. C OUTPUT FILE IS CONTIGUOUS -- SY0:FILNAM[LOGIN-Ul F ILLEGAL SYNTAX IN LIST ITEM. F ILLEGAL LIST TERMINATION. W ILLEGAL CHARACTER IN FORMAT STATEMENT. F DIMENSIONS MUST BE SPECIFIED FOR EACH VAR. IN THE LIST. F DIMS. CONFLICT WITH THOSE OF AN EARLIER STATEMENT. W UNRECOGNIZED STATEMENT. F ADJUSTABLE ARRAY NAME OR INDEX NOT A SUBPROGRAM PARAMETER. W MISSING EXPONENT IN CONSTANT. mL^@aw@=.ay@+dI@\g@\gW@( \_hQ.(  & !$ vL!lS+dI dy$lS.& e$$ ! ] X ] X.L ( ,,:\gW.r , ,ĕO ĕP \g&\g"77 nX:"X:.    6X:X: X:. & W!@ 5UU  W!#qX:vLX:vL. USW!-  W!(aX:;dX:;d.@ U JW!( W!+ U=5..fU77 7 ( W!( 5X:X:-.'U7 5UE .X:X:X:vL$X:oIC] C PRINTED OUTPUT GOES TO LP: -- FORTRAN DEVICE 5. C INTEGER A(32),NULL(32),COUNT,INDEX BYTE TODAY(9),FILNAM(10) DATA NULL / 32 * ' ' / COUNT=0 WRITE (6,1000) 1000 FORMAT(' FORDGN V002A'/' INPUT FROM LOGICAL UNIT 4'/) ENDFILE 6 C C READ FIRST RECORD AND ALLOCATE CONTIGUOUS FILE READ(4,1001) IBLOK,FILNAM 1001 FORMAT(I3,10A1) CALL SETFIL(1, FILNAM, IERR, 'SY', 0) DEFINE FILE 1(IBLOK, 32, U, INDEX) C C INITIALIZE ALL RECORDS OF OUTPUT FILE TO BLANKS DO 10 I=1,IBp F MAXIMUM FUNCTION DEPTH (20) EXCEEDED. F MISMATCHED PARENTHESIS. F NON-ARRAY REFERENCE TO ARRAY ITEM. F CANNOT ASSIGN TO A CONSTANT. F CANNOT ASSIGN TO A FUNCTION. W ILLEGAL CHAR. TERMINATING A STMT. OR POSS. BAD OPERATOR. F SUBSCRIPT ON NON-ARRAY VARIABLE. W NAME MUST BE 1-6 ALPHANUMERICS, THE FIRST ALPHABETIC. q +. @Q R @QRa-!N.  H  <  0aWa%a% a%. CF 5 5      a%aw! $ENDD!     ayaL^.09? W@L"@@.@!@ #S@#,@a'`@.,*K@.L@:9S@r (X: .fffff "PU0 Z (. $ U 6 $ W!)U X:$ X:vL. ,׭׭ U77. X:X:X:"X:vL&X:,$Հf @8 *X: X:X:;dX:*H7ы2f@& *X: X:X:X:z.jы!ыE& e sLOK 10 WRITE (1'I)NULL C C READ INPUT AND WRITE EACH RECORD OF OUTPUT FILE 40 READ (4,1002)I1,A 1002 FORMAT(I3,32A2) IF (I1 .LT. 0) GO TO 50 42 I1=I1+1 COUNT=COUNT+1 WRITE (1'I1)A GOTO 40 C C READ THE CONTIGUOUS FILE AND C PRINT A LISTING OF THE COMPLETED FILE 50 CALL DATE(TODAY) WRITE (5,1003) FILNAM, TODAY 1003 FORMAT(29X,10A1/1H0,'MSG MESSAGE',17X,9A1/' NUM'/) C DO 51 I1=1,IBLOK READ(1'I1)A I2=I1-1 51 WRITE (5,1004) I2,A 1004 FORMAT(X,I3,X,32A2) WRITEt F ILL. SUBSCRIPT IN AN ARRAY ASSIGNMENT OR MISSING SUBSCRIPT. F ILLEGAL OPERAND OR POSSIBLE ADJACENT OPERATORS. F TOO MANY SUBSCRIPTS OR NO CLOSING PAREN FOR SUBSCRIPT. F NO FUNCTION ARGUMENTS PRESENT. F UNRECOGNIZABLE PARAMETER IN FUNCTION CALL. F FUNCTION CALL MISSING A ")". F ILLEGAL ROUTINE NAME. W MISSING END STATEMENT, END IS ASSUMED. uD9@x:*K@.`@@a0M@aw@a*}@9w\@& z#@(09h.wR & W) W= z# ).& EW!P  ,*K#, (a0Ms.L   F .!a0M!a*}a'`(aw($r  # e*! a'`D9vm.X:X:X:X:(r &7 7 $ em7 .X:  X: X:$X:X:. ыw  SX: X:X:.l  7 n V 5 U@ V XX:$X:.  UU   EX:vLX:vL$X:.    .  0  X:;d (5,1005) IBLOK,COUNT 1005 FORMAT(/X,I3,' MESSAGES ALLOCATED.',I6,' MESSAGES INPUT.') END x W IMPROPERLY NESTED DO STATEMENT. W DO LIST OVERFLOW, NO MORE THAN 10 NESTED DO'S ARE ALLOWED. W ILLEGAL SYNTAX IN COMMON/EQUIVALENCE. W TABLE OVERFLOW IN COMMON/EQUIVALENCE. W DUMMY VARIABLE OR ADJUSTABLE ARRAY USED IN COMMON. W VARIABLE ALREADY IN COMMON, CANNOT BE RE-DEFINED. F ILLEGAL DO STATEMENT SYNTAX. F DO CONTROL VARIABLE IS NOT A SIMPLE INTEGER VARIABy9w\x:*K:9SQ. 77   $F: $ #S #S .Lx:*K `@.  7 fa0Mx:*K ? W$x:*K.  e&,*K .L#,a0M .      . : & a0M.& e W, ex a0M.L S C ! z.F &U   w T.X:& X:X: X: "X:lf -  .X: X: X:X: X:. r  l d D  ( X: $X: &X:(. *U E l  l&X: X:*X:vL (. 0 .& " E7 7 .&X:#.   {141FORCOM.DGN 000I REDUNDANT CONTINUATION MARK; IT IS IGNORED 001I CONTINUATION MARK NOT IN RANGE 1 TO 9; IT IS IGNORED 002I ILLEGAL STMT. NUMBER, NON-NUMERIC CHAR. IN COLS. 1-5 003W ILLEGAL TYPE OR IMPLICIT STATEMENT, INTEGER IS ASSUMED. 004W NON-DECLARATIVE STATEMENT IN BLOCK DATA. 005F SYMBOL TABLE FULL. 006W TOO MANY CONTINUATION LINES, REMAINDER IGNORED. 007S MIXED MODE IS USED IN AN EXPRESSION. 008F ILLEGAL UNARY OP., ONLY +, -, OR .NOT. ARE ALLOWED. 009F CLOSING "/" MISSING ON BLOCK NAME.|LE. F DO PARAMETER IS NOT A SIMPLE INTEGER VARIABLE OR CONSTANT. W BAD STEP VALUE IN DO, IT IS ASSUMED TO BE 1. W ILLEGAL CONSTANT IN PAUSE/STOP. W ILLEGAL OR MISSING STATEMENT LABEL, IT MUST BE NUMERIC. F ILLEGAL SYNTAX IN GOTO/ASSIGN STATEMENT. W ILLEGAL PARAMETER IN STATEMENT FUNCTION LIST. F ROUTINE NAME CANNOT BE A NUMERIC CONSTANT. W "SUBROUTINE" OR "FUNCTION" NOT FIRST STMT. OF RO}  "L"3.rW0 U  .GLOBL $TSI ). .GLOBL $TSR .GLOBL $TSD  .\"$&GLOBL $TRTST .E,e@&S@z@.<U@<ܟ@@,@,s@.K`@YZ@`@@+dI@\gz@b.wt8@z|@z&@zT[@(*E,ehO~  W!;W!< X:.C  @       U[.@   t &X:vL X: X: &X:H.f 5`ʕ'5@ʕGfAʕ X: ". R fA  .eʕ Jҋ  A(X:.b -< S8 & NvL/dvL$G&X: 010W ALL PORTIONS OF FORMAT MUST BE WITHIN OUTER LEVEL PARENS. 011W TOO MANY RIGHT PARENTHESES IN FORMAT. 012W ILLEGAL CHARACTER(S) TERMINATING A STATEMENT. 013F ILLEGAL FORM FOR A NUMERIC CONSTANT. 014F INSUFFICIENT COMPILER SPACE TO EVALUATE THIS CONSTANT. 015W INTEGER CONSTANT TOO BIG. LARGEST POS. VALUE ASSUMED. 016F ILLEGAL SYNTAX IN LIST ITEM. 017F ILLEGAL LIST TERMINATION. 018W ILLEGAL CHARACTER IN FORMAT STATEMENT. 019F DIMENSIONS MUST BE SPECIFIED FOR EACH VAR. IN THE LIST. 020F DIMSUTINE. W ILLEGAL PARAMETER IN SUBROUTINE OR FUNCTION LIST. W TOO MANY PARAMETERS (>255) IN ROUTINE LIST. W CONSTANT MAY NOT BE DECLARED IN EXTERNAL. W TOO MANY LEFT PARENTHESES IN FORMAT. W MISSING COMMA OR ) IN COMMON/EQUIVALENCE. W MISSING ( IN COMMON/EQUIVALENCE. W DUMMY ARGUMENT OR ADJUSTABLE ARRAY USED IN EQUIVALENCE. W INCONSISTENT EQUIVALENCE. .f& W- ~ |%YZ YZ ,.&y ѥ,t e&&& & zz|"z|&z|.L W- W U%Rѥ)Oo,.r&f&& e   YZzz|z|.( (&  z&"&k.$Cfe e&  8.(6 6&  ( . X:( X:6X:$X: (X:.$ EEEUQa7  X: X: $.J ~ 5@ŭEU &X:X:X:"X:P.p X EU  8 & X:X: X: $X:84. 8w Z^  7 *X:8vLG^ vLG"vL&/dm. CONFLICT WITH THOSE OF AN EARLIER STATEMENT. 021W UNRECOGNIZED STATEMENT. 022F ADJUSTABLE ARRAY NAME OR INDEX NOT A SUBPROGRAM PARAMETER. 023W MISSING EXPONENT IN CONSTANT. 024F MAXIMUM FUNCTION DEPTH (20) EXCEEDED. 025F MISMATCHED PARENTHESIS. 026F NON-ARRAY REFERENCE TO ARRAY ITEM. 027F CANNOT ASSIGN TO A CONSTANT. 028F CANNOT ASSIGN TO A FUNCTION. 029W ILLEGAL CHAR. TERMINATING A STMT. OR POSS. BAD OPERATOR. 030F SUBSCRIPT ON NON-ARRAY VARIABLE. 031W NAME MUST BE 1-6 ALPHANUMERICS, THE FI F TWO OR MORE COMMON ITEMS ARE EQUIVALENCED. F I/O UNIT IS NOT SIMPLE INTEGER VARIABLE OR CONSTANT. F ARRAY OR FUNCTION NAME NOT ALLOWED AS UNIT IN I/O STMT. F ILLEGAL SYNTAX IN I/O OR ENCODE/DECODE. F MISSING ARGUMENT IN FIND. F ILLEGAL RECORD DESIGNATOR IN RANDOM ACCESS READ/WRITE. F MISSING RIGHT PARENTHESIS IN I/O OR ENCODE/DECODE. W ILLEGAL FORM FOR END= AND/OR ERR= . `@+dI"wt8&wt8.(e e e ] &S(\gzz,s( e YZYZ."HN) ? @) @? S@.? p]@? ]@? `@ @Q@O@2.O@L"@d@@z@q.O@@~@uR@u`@!ܟ@.!@""g'@#xQ@%@@a'`@.'~@.   J  **(q&X: X: $X:*(X:(&.  ^ʕ  ʕ) ҕn X: " q.   ʕ ׭c.׭\8 X: .. $   R $ vLGvLG/d" ( N.T wF BLOCK .z LENGTH  XXXXXX (000000)   RST ALPHABETIC. 032F ILL. SUBSCRIPT IN AN ARRAY ASSIGNMENT OR MISSING SUBSCRIPT. 033F ILLEGAL OPERAND OR POSSIBLE ADJACENT OPERATORS. 034F TOO MANY SUBSCRIPTS OR NO CLOSING PAREN FOR SUBSCRIPT. 035F NO FUNCTION ARGUMENTS PRESENT. 036F UNRECOGNIZABLE PARAMETER IN FUNCTION CALL. 037F FUNCTION CALL MISSING A ")". 038F ILLEGAL ROUTINE NAME. 039W MISSING END STATEMENT, END IS ASSUMED. 040W IMPROPERLY NESTED DO STATEMENT. 041W DO LIST OVERFLOW, NO MORE THAN 10 NESTED DO'S ARE ALLOWED. 042W ILLEGAL SY W ILLEGAL FORM FOR LIST ITEM. F ILLEGAL SYNTAX FOR REWIND, BACKSPACE OR ENDFILE. F NON-INTEGER PARAMETER IN REWIND, BACKSPACE, OR ENDFILE. W ILLEGAL H CONSTANT IN FORMAT. W HOLLERITH CONSTANT COUNT TOO BIG. W SYNTAX ERROR IN IMPLICIT STATEMENT. W HOLLERITH CONSTANT IMPROPERLY TERMINATED BY END OF LINE. W .NOT. MAY BE USED AS A UNARY OPERATOR ONLYE,e@,@,@-@&.-@:@{L?@ N@R8@.R@oTd@Y@T[@_oM@.a@a @a%@a-@aOM@.aPM@aW@aL^@aw@ay@N.a*}@:dS@:d`@:d@:d@.ev@gS@g`@\g@\gW@.g@9w@[@wr @wS@w`@.y@}d@~W@( ) Oh.) Rhlh#,h(h ;. 8 8 -1< n(X:8X:8 N$vL(/d. 7   h2 < 8"X: X:2 (X:. , ( ҕ 2"w - X:2_.  w 4 =% R t X: X:X:.< G @  w tr ĝ X:&X:.b c @ 8XEN NTAX IN COMMON/EQUIVALENCE. 043W TABLE OVERFLOW IN COMMON/EQUIVALENCE. 044W DUMMY VARIABLE OR ADJUSTABLE ARRAY USED IN COMMON. 045W VARIABLE ALREADY IN COMMON, CANNOT BE RE-DEFINED. 046F ILLEGAL DO STATEMENT SYNTAX. 047F DO CONTROL VARIABLE IS NOT A SIMPLE INTEGER VARIABLE. 048F DO PARAMETER IS NOT A SIMPLE INTEGER VARIABLE OR CONSTANT. 049W BAD STEP VALUE IN DO, IT IS ASSUMED TO BE 1. 050W ILLEGAL CONSTANT IN PAUSE/STOP. 051W ILLEGAL OR MISSING STATEMENT LABEL, IT MUST BE NUMERIC. 052F ILLEGAL . W EXPONENT MAY NOT BE LOGICAL*1, LOGICAL*2 OR COMPLEX. W INTEGER**REAL OR INTEGER**COMPLEX NOT ALLOWED. W COMPLEX**REAL OR COMPLEX**DOUBLE NOT ALLOWED. F IMPROPER LABEL SYNTAX IN IF STATEMENT. W ANYTHING **COMPLEX NOT ALLOWED. F MISSING COMMA IN READ, PRINT, OR PUNCH. F INCORRECT SYNTAX IN DEFINE FILE STATEMENT. W ARRAY MAY NOT BE DECLARED AS EXTERNAL. 6(Nhb z#hb.wT7!w0? ]oTd_oM9w@[.&$  8-5-. $.&fy devR8.L 7W  W)y@~@~yA.r    AwAy) ?  :({L?.- (  ƆoUX:X:8(N ( 6  .X:6 X: X:;d X: X:9  -  L.X:X: X:;dX:X:;d.  | p4@a ` & X:X:X:4 X:* 4W  ҝ@. X: X:4 X:X: X:t&    6ѝM. X:X: X: SYNTAX IN GOTO/ASSIGN STATEMENT. 053W ILLEGAL PARAMETER IN STATEMENT FUNCTION LIST. 054F ROUTINE NAME CANNOT BE A NUMERIC CONSTANT. 055W "SUBROUTINE" OR "FUNCTION" NOT FIRST STMT. OF ROUTINE. 056W ILLEGAL PARAMETER IN SUBROUTINE OR FUNCTION LIST. 057W TOO MANY PARAMETERS (>255) IN ROUTINE LIST. 058W CONSTANT MAY NOT BE DECLARED IN EXTERNAL. 059W TOO MANY LEFT PARENTHESES IN FORMAT. 060W MISSING COMMA OR ) IN COMMON/EQUIVALENCE. 061W MISSING ( IN COMMON/EQUIVALENCE. 062W DUMMY ARGUMENT OR ADJUST F ARRAY IS TOO LARGE. F ILLEGAL ROUTINE NAME. F ILLEGAL DO SPECIFICATION IN I/O OR ENCODE/DECODE. F ILLEGAL LIST IN IMPLIED DO. F ILLEGAL FORMAT SPEC. IN I/O OR ENCODE/DECODE. W SYNTAX ERROR IN THE EXPRESSION OF AN ASF. W MISSING "," OR ")" IN ASF. W MISPLACED "=" IN ASF. YT[E,e. p&! 5s*,oTdz""g'$wS&w` .x5n Y&Ew? S ? `yZ.  P E7 O$4>dYk.0  9 4&4U4 g&Y;.V eu#&CEEB  yP.|PPBeᷣ X:X:6( "  ѝw4 wa.X: X:X:4X:X:.: 6 $6 X:;d X:6X:6.` 4) s& X:X:4 X: (X:" -6*vL$G vL$GX:6 X: X:$ 86,X:8X:6 X: X:vL$G  ABLE ARRAY USED IN EQUIVALENCE. 063W INCONSISTENT EQUIVALENCE. 064F TWO OR MORE COMMON ITEMS ARE EQUIVALENCED. 065F I/O UNIT IS NOT SIMPLE INTEGER VARIABLE OR CONSTANT. 066F ARRAY OR FUNCTION NAME NOT ALLOWED AS UNIT IN I/O STMT. 067F ILLEGAL SYNTAX IN I/O OR ENCODE/DECODE. 068F MISSING ARGUMENT IN FIND. 069F ILLEGAL RECORD DESIGNATOR IN RANDOM ACCESS READ/WRITE. 070F MISSING RIGHT PARENTHESIS IN I/O OR ENCODE/DECODE. 071W ILLEGAL FORM FOR END= AND/OR ERR= . 072W ILLEGAL FORM FOR LIST ITEM. 073 F ASF NAME HAS BEEN PREVIOUSLY USED. W SUBSCRIPTS OUT OF BOUNDS IN DATA OR EQUIVALENCE. F ILLEGAL EXTENSION OF COMMON ORIGIN BY EQUIVALENCE. F OPENING "/" MISSING FROM DATA GROUP. W UNEQUAL NUMBER OF VARIABLES AND CONSTANTS. W DATA NOT ALLOWED IN COMMON EXCEPT IN "BLOCKDATA". F SUBSCRIPTS ON UNDIMENSIONED ELEMENT IN DATA. F ADJUSTABLE ARRAY NOT ALLOWED IN DATAPhg N,Y.)1?IOBCCBEE ^. P f @  0Q P y`.RT!f w ) %@,.W( > w w 0Q z~W.:PwwTBE@C% $yJ.`FK   (  w ) ? T[") ? (? p],46f,vL$G X: X:4 X:X:6. ?A,R* ʥ $X:? vLG X:, X:*. ҋҕ ҕ B! & /dvLG "X:&&vLG. ? f e0R X:?m.F & @ ( @ ! X: &X:).l  `  e ee e T. : F ILLEGAL SYNTAX FOR REWIND, BACKSPACE OR ENDFILE. 074F NON-INTEGER PARAMETER IN REWIND, BACKSPACE, OR ENDFILE. 075W ILLEGAL H CONSTANT IN FORMAT. 076W HOLLERITH CONSTANT COUNT TOO BIG. 077W SYNTAX ERROR IN IMPLICIT STATEMENT. 078W HOLLERITH CONSTANT IMPROPERLY TERMINATED BY END OF LINE. 079W .NOT. MAY BE USED AS A UNARY OPERATOR ONLY. 080W EXPONENT MAY NOT BE LOGICAL*1, LOGICAL*2 OR COMPLEX. 081W INTEGER**REAL OR INTEGER**COMPLEX NOT ALLOWED. 082W COMPLEX**REAL OR COMPLEX**DOUBLE NOT ALLOWED. 0. F PRESETTING NAMED COMMON ALLOWED ONLY IN "BLOCKDATA". F ILLEGAL FORM FOR CONSTANT IN DATA. F ILLEGAL REPEAT COUNT. W MISMATCHED DATA TYPES. W DATA MUST FOLLOW ALL OTHER DECLARATIVES. I NO PATH TO THIS STATEMENT. W VARIABLE MAY NOT HAVE BEEN REDEFINED AFTER USE IN "ASSIGN". F ILLEGAL FORM FOR COMPLEX CONSTANT.wl7 7 &&f* ::) ? ) ?  y$}dR.&E  @ )-$zu` uR}d@~g."  & h)"   ?. N)" Ud@~$}d>.p 77&77 O }dy) ? :.B & w.EpU  ,KT[&@~-.h&& ]$E$ E LX:$=.  UUUf U.X:X:vLX:vLX: (X: . &&&&& 0 xU &X:vL X: $X: (X:;d.%dX *T$ +N-&N.*@*/&! 7 & Lb""@ X:).Pd(b5`5`5@5@1 :X:83F IMPROPER LABEL SYNTAX IN IF STATEMENT. 084W ANYTHING **COMPLEX NOT ALLOWED. 085F MISSING COMMA IN READ, PRINT, OR PUNCH. 086F INCORRECT SYNTAX IN DEFINE FILE STATEMENT. 087W ARRAY MAY NOT BE DECLARED AS EXTERNAL. 088F ARRAY IS TOO LARGE. 089F ILLEGAL ROUTINE NAME. 090F ILLEGAL DO SPECIFICATION IN I/O OR ENCODE/DECODE. 091F ILLEGAL LIST IN IMPLIED DO. 092F ILLEGAL FORMAT SPEC. IN I/O OR ENCODE/DECODE. 093W SYNTAX ERROR IN THE EXPRESSION OF AN ASF. 094W MISSING "," OR ")" IN ASF. 095W MISPLA W NUMBER OF DIMENSIONS NOT THE SAME AS DECLARED. W RETURN IS ILLEGAL IN MAIN PROGRAM. W MISSING DO LOOP TERMINATION(S). F DIMENS. NOT TERM. BY RIGHT PAREN OR TOO MANY DIMENSIONS. W ROUTINE NAME CANNOT BE DECLARED EXTERNAL. F ENCODE/DECODE LACKS LEGAL BUFFER DESCRIPTOR. F ENCODE/DECODE BUFFER SIZE NOT SIMPLE INTEGER. F ARRAY OR FUNCTION CANNOT DESCRIBf& ( $ y}d}d@~"T[. #Ff V Z }dy@~.  5$ ,z:dS:d` T[.)6‹% 1 EP (@~. P   ` a'`.& !  U4a'`a'`.L.vU E TwI LBLRdX X:.@&  N F@  Az. N  & @  ~.  &   `@ B. 25UE d & X:X:vLX: X::.4 5@ 5` U7 &X:X:$X:vL(X:"$Z7 7  h g.X: X:CED "=" IN ASF. 096F ASF NAME HAS BEEN PREVIOUSLY USED. 097W SUBSCRIPTS OUT OF BOUNDS IN DATA OR EQUIVALENCE. 098F ILLEGAL EXTENSION OF COMMON ORIGIN BY EQUIVALENCE. 099F OPENING "/" MISSING FROM DATA GROUP. 100W UNEQUAL NUMBER OF VARIABLES AND CONSTANTS. 101W DATA NOT ALLOWED IN COMMON EXCEPT IN "BLOCKDATA". 102F SUBSCRIPTS ON UNDIMENSIONED ELEMENT IN DATA. 103F ADJUSTABLE ARRAY NOT ALLOWED IN DATA. 104F PRESETTING NAMED COMMON ALLOWED ONLY IN "BLOCKDATA". 105F ILLEGAL FORM FOR CONSTANT IN DATAE BUFFER SIZE. S VARIABLE USED BUT NOT PREVIOUSLY DEFINED. F DIAGNOSTIC TABLE OVERFLOW. F ILLEGAL FORM FOR UNIT NUMBER IN DEFINE FILE. F MISSING "(" IN DEFINE FILE. F ILLEGAL RECORD COUNT (M) IN DEFINE FILE. F ILLEGAL RECORD LENGTH (L) IN DEFINE FILE. F DEFINE FILE ONLY ALLOWS UNFORMATTED (U) MODE. F DEFINE FILE ASSOCIATED VARIABL&  U}d }dy.r& H f5b5\ "@~z :dS":d`(   ,\gW @Q R @QR. E 5  @<:*a-! aWa%:daL^.E  #  )]  wr U(5%  E, \gW @QRX:X:vL X:.v 7  ^;-  &5U X: X:X: .55@UE@E5  X:vLX:vL. " U  d X: X: X: .  N \U z'UX:vLX:;d(X:vLt.W!. W!$U   X:vLs.4W!. U  . 106F ILLEGAL REPEAT COUNT. 107W MISMATCHED DATA TYPES. 108W DATA MUST FOLLOW ALL OTHER DECLARATIVES. 109I NO PATH TO THIS STATEMENT. 110W VARIABLE MAY NOT HAVE BEEN REDEFINED AFTER USE IN "ASSIGN". 111F ILLEGAL FORM FOR COMPLEX CONSTANT. 112W NUMBER OF DIMENSIONS NOT THE SAME AS DECLARED. 113W RETURN IS ILLEGAL IN MAIN PROGRAM. 114W MISSING DO LOOP TERMINATION(S). 115F DIMENS. NOT TERM. BY RIGHT PAREN OR TOO MANY DIMENSIONS. 116W ROUTINE NAME CANNOT BE DECLARED EXTERNAL. 117F ENCODE/DECODE LE NOT SIMPLE INTEGER. W MISSING ")" IN DEFINE FILE. F EXPRESSION STACK OVERFLOW W ILLEGAL FORM FOR OCTAL CONSTANT. W OCTAL CONSTANT TOO LARGE. W OCTAL CONSTANT MUST HAVE AT LEAST ONE CHARACTER. W IMPROPER FORM FOR REAL CONSTANT. I NO EXECUTABLE STATEMENTS IN A MAIN PROGRAM. W MISSING COMMA.  @Q R. A CF !*a-! aWa%awa%,> IE UP 6*aw!a*}zgS g`Y.b CE  aw! &""g'.ĕ ĕ$  Ĝ A, \g\g\g $\g( @Q  *O @Q Oa-!aWnE$X:vL&n.Z@ +-'"%H"&.<  w   T5. T hU UX:vLs. L ZW!> " ! s X:;d"X:;d &X:.! -- @  ` & .   & e @X: .> AACKS LEGAL BUFFER DESCRIPTOR. 118F ENCODE/DECODE BUFFER SIZE NOT SIMPLE INTEGER. 119F ARRAY OR FUNCTION CANNOT DESCRIBE BUFFER SIZE. 120S VARIABLE USED BUT NOT PREVIOUSLY DEFINED. 121F DIAGNOSTIC TABLE OVERFLOW. 122F ILLEGAL FORM FOR UNIT NUMBER IN DEFINE FILE. 123F MISSING "(" IN DEFINE FILE. 124F ILLEGAL RECORD COUNT (M) IN DEFINE FILE. 125F ILLEGAL RECORD LENGTH (L) IN DEFINE FILE. 126F DEFINE FILE ONLY ALLOWS UNFORMATTED (U) MODE. 127F DEFINE FILE ASSOCIATED VARIABLE NOT SIMPLE INTEGER. 128 W REDUNDANT COMMA. W IMPLICIT STATEMENT APPEARS AFTER STATEMENT IT AFFECTS. W LOGICAL OP. MEANINGFUL ONLY ON BYTE, LOGICAL, OR INTEGER. F EQUIVALENCE GROUP TOO LARGE FOR ADDRESS SPACE. W ATTEMPTED EQUIVALENCE TO MISALIGNED BYTE ITEM. m.BIIRDCJX75o5m5k!@~U.& 77e ĕ$ E " N,\g \g.   ' C E  \g \g&8Ĝ  x, \g\g @Q#xQ @Q.V Mw g$#xQa- !aW!0.|     Z 0 9 .  $ K.d  @ R  (X:;dt.C0   & N`U X:;d. ` vew W!;4X:.  W!, U ( 7 &X:vLX:vLX:vL&X:vL. W!,    jX:vLX:;d X:;d."W! W!  ş JW MISSING ")" IN DEFINE FILE. 129F EXPRESSION STACK OVERFLOW 130W ILLEGAL FORM FOR OCTAL CONSTANT. 131W OCTAL CONSTANT TOO LARGE. 132W OCTAL CONSTANT MUST HAVE AT LEAST ONE CHARACTER. 133W IMPROPER FORM FOR REAL CONSTANT. 134I NO EXECUTABLE STATEMENTS IN A MAIN PROGRAM. 135W MISSING COMMA. 136W REDUNDANT COMMA. 137W IMPLICIT STATEMENT APPEARS AFTER STATEMENT IT AFFECTS. 138W LOGICAL OP. MEANINGFUL ONLY ON BYTE, LOGICAL, OR INTEGER. 139F EQUIVALENCE GROUP TOO LARGE FOR ADDRESS SPACE. 140W ATTEMܩ\g" @Q$-. EwKK P* @Q- a-!aW!"  !. \gW \g @Q-  @Q. E !( E&- a- !aW!,&Q4`J ,Q '~J\gW @QR @Q.& CF w $d*RX:;dX:;d.H @ 6f   X:;d X: .n ыɋU   X:X:vL.C @ @   #1- K.` Ee) ``B ! \X:. #`B  s  . #1-`7& wCa7&X:&X: "rBx(X:WPTED EQUIVALENCE TO MISALIGNED BYTE ITEM. -01****TERMINATING LINE**** a- !aWa%awLSVSP0 X.Xf  Ee0 7)& )  \gW$\g( @QP&~7 @E .- @Q -a-!aWQ. A    *wr  a%aw) ? ":(!E*5  U, \gW @QRa-"!*wF .,%<T! h7   < X:$X:&R^ `  .X: X: rBx rh r c.pB w FR h&r  X: r "rh.   u57 f rh rBxX:.ABC f6Q.X: r rh rBx X: . 2a2 vLG"%2$vL$G&:.80000 fh˕/DDevLGfh.^ 'd &f-Df &Df(F -* %,%FDfP. s   vL$G` vL$G&vLD.%  ,@ @ vL$GvLD. > ?& # e0 ܖ*aW \gW\g @Q -. wJ $SBS $SBXf&@& @Q- a-!aWl(,7@ 5@ 5&w d*@~ wr z!ܟ:dS:d`$L w l w ,aPM  ay!aPMl ay.h{ E e w ,aPM{ aL^!:$aPM& &7ww l w @ RRRRRRRR⋇.2{d@i@y@4d(@U.(haHhDah:a.Nah\ysh~h.t!h( Dh`vL$G$vLD$.     6Dft!t!$DfY.<fՋ D Df%,%vL$Gbw n  nr.r7w ~ww ~ ' -M ~~ N&vL.8!&f  ע0$vL/dZ/dZEf@Q"Ef@Q.ӕ  7 E ,.@~ OaPMl a :d:d .w @E%@5 w QaL^aPM &a*}y.+  CEF w ).a  wr zay"aw&aPM( o*Ý  3 w  w .@~'~'~aPM  aL^$aPM=. w - e0 y* aPM O \gW&\gQ@     (((.(7 f&7 f e@ .NaD7 wE7:7<7v\..ŋp7j > \... 7ad`^ŋ7RPN  &.BB7<6f&  $ .7* |~K%,%~}vL(%,%   vLG&x:h .x:*Kh>:khh:h<O;hvLhv5.vLhPvL!hvLDhvL(FhzvLxFhT@.vLFhpvL$GhvLGh[Mh` Nkh\;. Nh N"h N#h NSh6 Nah4. NhNhqQWhRhUS@Qh.SINDBACKSPACEFIND.axL"@@a@(@axh. ɥ0   D L"#"&%ɋ3, aD.2,k<@d@!@p.,*K@2@2H 2@3}@.`@@a @a0M@aPM@aL^@WhS0hoTdhxWwhYZhZ.^khb^"h^#h^Mh_ 3h~._oMh`hahNa2hJ/dZhN.:dh=dyhEf@QhF\g@h2\gxh0|.$q"har h0rv~hsh,bsph.shs"hs&hwYhwzh.wt8hy""hy#hyp:hyKht.yvLhryMhyMhyhnz h.z hzhzt!hzT[hzwh .}dhu~h+|~Kh~.ay@9w\@wz@z\@(r2,h\2h . .TITLE .CSECT .GLOBL : JSR %4,$Ph.&OLSH .GLOBL $POLSH,$NAM $NAM,0,0,L .GLOBL $SEQ  \$\ w .2 aPM z\ay!2G(x   w  ,3}a0M a0Mk<aPM $ HXh,hFBxhX䒰"h4.; FORTRAN V004A FORTRAN V004A .& 00:00:00 00-XXX-70 PAGE 0000  L  N.N<Ez* z".tE= z. NzbzE z$' .w e w .ay! ayaPMz\aL^-$, w L(a  aL^!wzaPML.i9Nk<@z@!U@m.!ܟ@!@,@.L@2@;.2@3}@x:*K@vL!@a@.a @a0M@aOM@aPM@\g@@.\gx@wY@wz@z @z\@.(th 2h L^hL"hB&z'y' NQ'^; V U;UP J.JdePQP~ "S p vq vu eMAIN.DATA. U145 E N #.y.hdhhh~h .!h&Kh,,h ,*Kh,8h..hKh _MTqh NhR8h7.ThHXhYhT[h`h.`@ha$h6a%h<a-haWhx.aL^hFawhayhpayhla*}hB .+dIh2evh\ghf\gWhR\gYhL.gh9w\hIhe3lh.B09 ** 66 ..  (( @2} 2XF.Xt.$$$$. tZ$~V.AZ6.&!ĕ:ĕ,ĕ  &a".Lf wf w$\g@\gx\gx\gx"\gx6.r7 w  .GLOBL(\gx \g@\gxaOMaPM& . .+-***/.OR..AND..NOT..L"  B.T..GT..EQ..N:p:@a@@.t!@L@Df@%2@0M@.%,%@x:@vL@vL!@vLD@.vL(F@vL$G@vLG@ N@`@.a2@/dZ@Ef@Q@wY@wz@L.yK@yvL@|~K@~}@~HX@Z.(!hf,0Mho;@hNA@hH. NvLhahra ha&hra0MhM.aOMhJaPMh^a\gh/dhE..LE..GE..     U n  .(  C å å$.N נA   e.t`  B¥  ɥ ɋ~. D &f D.W R &5.&f@  Ëנ @. e ee e ѐ  .2@(. @ $ yvL0M0M x:$vL(F2.&5`  H (vL(F x:p:ap:H.L   ! Օ^e@ m.r\ Օ ĕ  7 7 a"0M.C? )נ נ0~0Mp:~HX.נ9נ  Ԑ7 -נ~HX yvL&fe B.X em&ff&e a0Mz (z\M.~ Z  e a0M.&f $2 .eW0W7E0 a0M.W0 W9WAWFE7. &̋ 7w .w *x:*KvL!.La $aPM&vL!.< b  . נ  !-&"p:p:~HX&yvLr. Eנ 9נ -Dw~HXyvL.0w >w + 0)נ 7נ`4-~0MyvLp:.V- b l wѐ/yvL yvL5.|m C å1å9 -yvLyK$yvL.w7 $~HXvL!w :(wz baOMwY!$a {.b: $SEQ,7mcf& ɋ#.L.Lwz c.ɥ'ɥ,ɥ= ɥ(ɥ)  .      ɥ'Rɋ.""[M/D@""@""t!@&""v@(8z""hz.&fW!UE!+  """"t!(0MyvL$0M.fvppl f@ `Vwz wY$@].  6 . - N6 .( N,  2 x:, `2a2 vLG"%2$vL$G&:.80000 fh˕/DDevLGfh.^ 'd &f-Df &Df(F -/D&5!w ""i.#q@8(c@8h@8h$.& & &f&f& & & A& & .&$m"$    DE v!$w.L+--  'DE 0.r0L    9Q  X. 0 $ FaB A @ v!$N  .  /#   * %,%FDfP. s   vL$G` vL$G&vLD.%  ,@ @ vL$GvLD. > ?& #`vL$G$vLD$.     6Dft!t!$DfY.<fՋ D Df%,%vL$Gbw .cw& 23   w e. . vv    w(.0EDN " v!$DE+Q.V- v!$DE 00.|90 ` av!$  `. "w   4 4f.& ( " mB A @ mA 3.@ m@ c  e  =. e=-9B.:n  nr.r7w ~ww ~ ' -M ~~ N&vL.8!&f  ע0$vL/dZ/dZEf@Q"Ef@Q.ӕ  7 * |~K%,%~}vL(%,%   vLG& .DvL$GvL @ @,  %.){dkf w{d{d {di@y.aHhDah:a.Nah\ysh~h.t!h( Dh   (((.(7 f&7 f e@ DvL&$GvL `$GvL   s .PDfF%%, *- F(Df& Df-f& d' ^.hfGvLDeD㋊/˕hf 00008.:&$GvL$2%"GvL 2a2` ,:x 2  , N(. 6 N--.NaD7 wE7:7<7v\..ŋp7j > \... 7ad`^ŋ7RPN  &.BB7<6f&  $ .7 7 7  . :\\..wBa :\\.."}s} 2z . 6  .]@$Yw zwV` @f lppvf.0M$vLy0M!vLHX~$7 w.vLy$KyvLy- 9å1åC m|.5vLy vLy/ѐw l b -V.p:vLy0M~-4`נ7 נ)0 + w>w 0.vLyHX~1 b b.*}KLH<3}H3؁H.~}H8(h/Dh) ? h.) hE MhE Sh @Qh(kh.k<hkWhjp:h^hah.;hhUt!hDfhh.@hZh^%h~%hV%2hR.%2hr%Zh%pht-Zh80Mh.ah5zhOh<h<Lh.<h<*KwD- נ9 נE .rvLy&HX~p:p:"&-!  נ .vLy HX~נ-7 Ԑ  נ9נ.HX~p:0M~0נ נ) ?C.0M"a7  7   ĕ Օ \r.m @e^Օ !    L.Hp:ap:x: (FvL(5h<hZ< h<h\).<he%hh@~h*LhQ.i+hbiL,hf h2] Xhdyh@.fHh:lShh.%h7}h.t!h(!h!%h!h!2h.!6h!7h!(7h""h""t!h.""g'h""vh#h#xQh!%@hu.%zh@'&@ha'`ha'.h'h.'~h'QhX(`9hz\(Xah|%,%hj.,Xzh-h-h.Lh+2 H  `5&.2(FvL$x: 0M0MvLy $ @ .h/dh\ga^hPMaJhOMa.Mh0Marh&ah arhahvL N.Hh@ANh@o;h0M,fh!(.Z@HX~@}~@K|~@vLy@Ky.L@zw@Yw@@QEf@Z/d@2a.@`@ N@GvL@$GvL@(FvL.9h.2h2h9@8hX:*}h>x:h .x:*Kh>:khh:h<O;hvLhv5.vLhPvL!hvLDhvL(FhzvLxFhT@.vLFhpvL$GhvLGh[Mh` Nkh\;. Nh N"h N#h NSh6 Nah4. NhNhqQWhRhUS@Qh.SWhS0hoTdhxWwhYZhZ.^khb^"h^#h^Mh_ 3h~._oMh`hahNa2hJ/dZhN.:dh@DvL@!vL@vL@x:@%%,.@0M@2%@Df@L@t!.@@a@p::.V~$Zt $.$$.$tX.FX2 }2@ ((  ..==dyhEf@QhF\g@h2\gxh0|.$q"har h0rv~hsh,bsph.shs"hs&hwYhwzh.wt8hy""hy#hyp:hyKht.yvLhryMhyMhyhnz h.z hzhzt!hzT[hzwh .}dhu~h+|~Kh~HXh,hFBxhX䒰"h4.; FORTRAN V004A FORTRAN V004A .& 00: 66 ** y.# N E 541U .TADA.INMAe uv qv p S" ~PQPedJ.J 00:00 00-XXX-70 PAGE 0000  L  N.N<Ez* z".tE= z. NzbzE z$' .&z'y' NQ'^; V U;UP