}|1 Hr@ N 0K2w 5hL  <~)ZM K} >&z2w 8M 02|*3;4b<n= }7x;3K}}7 {CHWz }C @om(L z2 LY2 @ vw;ICODE-1184) 1203,1204,1203 1203 IF (ICODE-1504) 1410,1210,1410 1204 CALL IOPEN ('DTA0',FILE) READ (4,1229) NPT IPT=IPT+1 NPT2=IPT+NPT-1 IF(NPT2-500) 1208,1208,1209 1209 NPT2=500 12 p{ g@ LI )0) lJC&EK L01 $K=% L%0) L)0 L1 1 6K L;1pF (ICODE-1632) 1200,1212,1200 1212 CALL OOPEN ('DTA0',FILE) WRITE (4,1229) IPT 1229 FORMAT (A3) DO 1213 M=1,IPT 1213 WRITE (4,1228) (NTAB(M,N),N=1,3) 1228 FORMAT (A2) CALL OCLOSE 15NyFwbXn'bn4 n4b G ~C(WzU"b(;z!b@;zbHf.bf/JC .bAj@"@HzfiH/@/Rf.X l}ye"onh rm ~nx |Gn { ~mfVbkn?n;r&s&hmf Eh n8b tbcc l8Ef ~C}ck)). |`Xn)){ 0Df.bf*0@b&b&b&5N9izH/NC)GJE(/X$X$X$EGjh/q&fb`cz* X"DnHD{" G~'}'F>fjz*noxp&cF6&&cF cb7#j&c7F c l68 G~68 ~G}68 }GVN4&k6{  C| ~Cb{@/kz"yiKJ./!f G~}w ([c bdh[ [(U :hS& KBzznNi}tp5NyF;xh'& c F c F"b"bbbf~&f.bfy(J  P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi U 9Hh lzpz*cpefn l >A~0~&J0n4"cF% &&c' @H1~fn~b l}|y 6:&7c7BF 7c7Fc n66 ,{7rzy{Hf.bf l}N{V 1 xC wr xG  hC^hdh_6U \IhdjywFEwOR.n bDB(|h  T&)* *-1L=V*VV*VV*VV*J, h Z.C$=B"&L5 DB | LC&+J^}gz@ Z J(/VJ$]F"+,X,:Z9eZJ!.KJbKH.G ,EH+-S-HIb EIKJb!HnG& KBzzno7 JbJej (?V, IV C(VzB V R Q)&6ML H w 1~[<$6}"An8zDb6|R( ~< j rFB{ /Mz /Kf.M !,O&,MkM U IUfBtLvx]zLojl:np;rD@ |&!#%')N.~rsvvN] /xRC `0 & c d0 c daf>atHf666b& bC n PhbP8b(J . Jhb&.fJ(b8J~&}f}a(]z  PJ |(2z{H/zy"P0# 0! c (#bbcoz n r` gK?#%')N. p@`?M |>&6@uS\xJ&8TD5DuU5U TDTdTNTv= E3 au^4PfSOVtL4"}UOS @71 @627H13A2dL @ ~CHLzS KBJL K b l~H?L" @oa(L }2w b ot(N |2 ~GO K $!vf`/ @N KL KM KN 0K2w 5hL  <~)ZM K} >&z2w 8M 02|*3;4b<n= }7x;3K}}7 {CHWz }C @om(L z2 LY2 @ vw; p{g@ LI )0) lJC&EKL01 $K=%L%0) L)0L1 1 6KL;1 LI )0) lJC&EKs LLLLL L L L L L LL L L L LL L LL1*x+ [O[4)x;[3 ;7b j3Zn%6<r^ynaj1?'?)-7676_7 B*)j).c77c l& C_g L )&/767-6-(6  *-d-_77d)b720-7) l-&IK8-7'7B7g)&JK87y2*7d776*@ @p cN((bG*&(C[*c(]z7`K > I)e3&Wenu:m  )QFs l @ SN@O HRFC TB ,~xB },},}B*DBBB|!.(/{P:z!.(/yV:x!.(/5\*w!.(/vb:u!.(/th:s!.(/rn:q!.`! 4S 6A #`#`>2 \n%~(?}:|!.~C({{z"!l~(?y:x!.~C(w{v"!l~(?u":t!.~C(s{)r"!l~(?q0:p!.~C(o{7n"!l~(?ml;kGj>kGi(E h ,\ l i(E g ,\ lfe7dc7ba7`:cc c `t2BY# U` `]3 4`Oc`K ES`@R.hB ~ <  !n}GBBBB l||7{(E z <\ l }78 g{(E y <\ l x78 g{(E w <\ l v78 gu8B ~<~<~t7tEt!> |CHs{{(E z< , {(E y< ,{*B"  t\bE~CB @}c|c{czcycxchB w v8 u<08H (H 5 'g(1s2@,t!> sC(HzHHz?,t!> sCsxr q8I .(I +( I ((I %(  u<HH \hH p  5BE\6 BN#ff f i,~ }DDHBH BH @*'* AS'X30``F8DS!'30@:DBBBLBM"BN BLBNBL BO BNB l||7{(E } L\ l !n7 {rEzD \F @ hP y#7 {r"t\`B.E~D \F @ }c7 ~!l|{r EzD \F @ {bE~D \F @yc1xc2wc3vc4hB  ,  uCu{r!uc(AzHAzt{2EsD \F @ n7 {rEzD \F @ hQ (M (N (P r#7 {r@ v _\Vf ft"E~E \F @ hR (M (N (P }#7 xL (L (N (L (S ,|8(:H/:{+z(E y \\ l z(E ~ \\ lxZ6w[6v\6u]6BtE @ @s8  t\XH r @-1p} 5T f `tB'A#XRL'1@~+}EEHBH @*'*T`FL?1q =3 IIi@|C1&615M4U {CzG l{ {C"""t\& B.Ha ~C}|7{(E zl , {(E zl ,778 g~C}|7{(E yl , {(E yl ,7(Ewvu> x>E ! ?&,l>07H? wws!tb@~ww77H?lsss!rb@~ss7s > nvq>svp>w j` 7@0ww~ n~}|}2E{ RY MAIN MAIN, NOP CALL 0,OPEN PAUSE @> @b~} !J&NK b!J&N  7 U67HVd7 W67HXd7 Y67HZdF(~F(}F(M|{b7Y ;x7U ;x7W rF MFnoMA;{! G&,lF0NJLM8 ?  T O!N!(/X~b2 b}3&U2I- 5c5L#0 +4,b57j2f) f4$&#@# nJ> n!"b|G#]#V3f{Urz x O 33$HVbn?d . ny W0%?2KA1%=i~+Q zRfzTzWBzX-zY#z`z }G| }c{z(yy yxy)w(zvu)$t)A$ kbklsA7A|I!AgVkbHzsi6Aj6 yA^d.AA&kJrisjr!f ls(?\A$AgA NA ~k-j Abeles7 |e 39W['Y=xo)Y*WI~}7} ~|b'{"zhd~yz)H?!hV *xzxzi~}@? lw!>}S(}@?O!.vuz}hHz f} .~>zxz)OD,~NKf Lf l~~NO7})| R2{`{U{S {{6{ MhM oN lMLlIKJLKKj MfLHIz}H>}vsvgu>u}st}s}'5 ,}r0}|0 }C{H/%Qd>w PP&  HuSHMSHwSHvH5$H5{ HzR^yR|pZz)ytK#=) $ ("  .) bn ~6 Cl 4X7h AFn(hn! JDD"@~b>z*N*C*(O?D"(>z*3JDl**6D*+!Dfj }6|6{z0b{jxj }2}~|2|~{2{{sH nzyxDHE+ }D>}|s|g{>{|jT=00 F}l(?~9hw?&x_ z?"{//-P}E70(/l0(|y{ ?##Kz}!Yf#> O9z n y`xY2,*wZOZIznnsv'Y>J, ~W&}Y"HbnO0Ya(O oY],Z>uC Yfmt"xYkz) END*e `8{?02I:*)I} .G =f l~vEz}|`_ U_ S_PW "={K~E!7h~ziy<&x=&~7x~@5z!l~XV *jG b=d /5}"wG} .=v"uCH$zts)O bFbblW\83, BLOCK 3 \X2, BLOCK 3[0S e |#}OK*8KONKpo6CdsH!~ D x!',b!o(6CdsQ " P'@Ho1o3<&4sC4d464O(?UH/1Mf$0fpAo0O! hU 1Sj[[Db  l~w}r 0 122 0 ]6, 706 11030AAbH ~Odn& &cB(#)cC nEc-cDcFcGb1cHbfE-J nC ?KDJ2InFH'HABHIrDIbGH'Vb?n0@p'pQK{22.??3;6>(+"'52'43>(+)'52'20+. 2'1/??}1 >$ OR!W7(T(?'LXLV %U pY *bWb7U(zLx0'&(&[&\(0Z" b;`F6C;dEE70;c;LE{ 7ES'L1<=ajwao[2h#\LhTuRSbhe t|~vGwizCVDyo}ozo`oH&cF6&&cF cb7#j&c7F c l68 G~68 ~G}68 }GVN4&k6{  C| ~Cb{@ kz"yiKJ./!f G~}w ([c\bdhV [(L :h^S*N}tP Note: Lines longer than 256 characters were wrapped