||!`PHH@J0n4"cF%&&&c' @H1~fn~b l}|y 6:&7c7BF 7c7Fc n66 ,{7rzy{Hf.bf l}N{V 1 xC wr xG  hC^hdh_6Q \Nhdjx LFE] (?V,IV C(VzB V R Q)&6ML H w 1~[<$6}"An8zDb6|R( ~< j rFB{ /Mz /Kf.M !,O&,MkM RCUfBtLvx]zLojl:np;rD@ |&!#%')N.~rsvvN] 0 SUBROUTINE EINGA(IS1,K1,JAHR,ISCH) CO@L01 $K=%L%0) L)0L1 1 6KL;1* IHELP=IREM(K(IS1+1,I)/100) 35 IF(IHELP-K1)20,30,20 20 IF(IHELP-20-K1)10,40,10 40 WRITE(1,100)JAb n4c)F)c )bDnbDf)r$+ P@/$!f)b3n**4:*c*Fc(&{@Bz!NDd@BzHf!.b f&b$czPHo@f.bDoR"S..f/! hnnDBHrH~wJ -195t/&c F4nH?! h"D #Q'@h h G~}w (00bH ~1d~3&2>&c|(H#[c* n/c c)c+c,2bcc-b3f/_J n* ?s){2.n+-'-0BH.rD.b,-'V2bqn30I)+10*IQ(1/@ p{ <@< LI )0) lJC&EK L01 $K=% L%0) L)0 L1 1 6K L;1%p  T O!N!(/X~b2 b}3&Q 2H- 5c5 L#0 +4,b57j2f) f4$&#@# nJ> n!"b |G#]#V3f{Urz xO33$HVbn?d . ny W0%!- d/ ?p2:A1=i~+Q xRfxTxWBxX-xY#x`x }G| }c{z(yy yxy)w(zvu)$t)A$ kbk lsA7A|I!AgVkbHzsi6Aj6 yA^d.AA&kJrisjr!f ls(?\A$AgA NA ~k-j Abe les7 |e pxD @3(WJ'Y+xo)8*W8~}7} ~|b'{"zhd~yz)H?!hN *xzxzi~}@? lw!>}S(}@?O!.vu z}hHz f} .~>zxz)OD ,~f/! h nnD e O. Ee80- {Pz+% >NKf Lf l~~NO7})| R2y`yUyS y{6yMhS oT lMV lHKJLKKj MfLHIz}H>}vsvgu>u}st}s}'5 ,}r0} |0 }C{H/%Qd>w PP&R"{{sH nzyxDHE+ }D>}|s|g|pZ z)xtK#) $ ("  .) bn ~6 C l 4X7h 1Fn(hn! JDD"@~b>z*N *C*(O?D"(>z*3JD l**6D*+!Dfj }6|6{z0b{jxj }2}~|2|~{2{{sH nzyxDHE+ }D>}|s|g{>{ |j#=0  F} l(?~9hw/&xO z/"{-0 }E70(/ l0(|y{ ?##Kz}!Yf#> O9z n y`xY2,*wZOZIznnsv'Y>J, ~W&}Y"HbnO0Ya(Z oY] ,Z> uC Yfmt"xYkz) 55<*e`8z? 28(*)8} . G =f l~v Ez}|`O UO SO@W "={K ~E!7h~ziy<&x=&~7x~@5z! l~XN *j G b=d /5}" wG} .=v"u CH$zts)O bFbb lWy3u |uuS!wcHt{7 !>!n sG*0S e|#{O9*8:ON)5N^F]`bXn,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 Ehn8b tbcc l8Ef ~C}ck)). |`Xn)){ 0Df.bf*0@b&b&b&5N>i`zH/NC)GJE(/X$X$X$EGjh/q&fb`cz* X"DnHD{" G~'}'F>fj Nxp&cF6&&cF cb7#j&c7F c l68 G~68 ~G}68 }GVN4&k6{  C| ~Cb{@/kz"yiKJ./!f G~}w ([c\bdh [(Q :h^Sz"j 9Mh`:Nn}tP5N^mF;^hn'& c F c F"b"bbbf~&f.bfy(J  P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi Q 9Nh 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_6Q \Nhdjx LFE]OR!W7(T(?'LX LV Q pY *bWb7U(zLx0'&(&[&\(0Z" b;`F6C;dEE70;c;LE{ 7ES'L1<=ajwao[2h!\LhTuRSbh t|~vGwizCVDyo1?nH%~ \} |}}S! l|H?{ 7> z ,vxw xEx!> uCHt{ lxs7r(G , 4 > 7> 8P qsQ 4HP pHoyr!oc(_zH_zn78<(m{e7(<! lo: i;0 d4=/.-0 ,x8 p{<@< LI )0) lJC&EKL01 $K=%L%0) L)0L1 1 6KL;1% LI )0) lJC&EK L L LLL L LLL L L L L L L L LL @!n+x 48[2q /'{)m %^M6n;l> I)e3&Wenu:m  )QFs l @ n |PPsRPs N( n((/("); (b.)Q @S Q(S)8TU'XW'hV' K FnY&&!&'&.&3&8&)2Z & &[ &F& C G DJ;K 80 hOe``fOed L^ fGfgD]d.i|e'0'pp Eb&t,('H/)"<b~*rC (2<+b i/' J,&H"z)=&}~'*C( K(=&+*%S ,|{0(,{z(&y)&x*&w+&vu'tBtr} |, 2sss!rgCK> qp0(J{Jn!okXp8ug]o?C  #2qVqr0"1c!!bL~9!!&! J!F.(b Iw ( ,w0"iw> Pocplho6XcnobXoWn"/ Wc( nbDobXoFn">V*n!&o!..X.nlhZofn- !!b@,rnlh1.Zr  . ?G+0hcKrpc+ Aw n~)pp&l@9AER0uH>@`1`RPS2 l(+2@i O AEwnX/ < ?&A9@T8U3<why I  -@9a8!V&r(ByK>]bWrmcLtEJ+M.qjU]"k!|QT+ois\idi[6mAe["u]]idM ,lr@rdJ`0*w) J n `(rHnu0+B`Y@C*vR@4 7N+ C@%*A` 3+O`M3J6I@! fL@JfL@JfM@ JfM+fI@]9+aM@6\ 7@*fA}*FN]+N@2m+aDo f %)vFZ,+P`G@WS& GN@ JFA@  fO! FO# G$ '@$ R FS!*F4zJF4+fC5`9+Pc vS4*vEA\+SE@N d@Ld+dR@1e+E/8Jd>JdN d@ d d Jd>Jd NKdO+KdAvM@@@vN@@(vNCvP@@HJvT@@ JfTCPfZ@@ vZCvP@@H wQ*&V/ 6 @T&FQ!*AC*C@*C)@!IQ@0 qte+ @|g+ HpiB 7CBk+ p7; arA6 U@@!  pmb APRBM 7# 3@}b 3|*2|j 4|1|_,RTR@170#A7O"  q7)7|M20|G6q7DMqDD370jA 7@@ 7\ gq 7p p 7r q7 O57Aq6o,P@6 rqb7bmq7+'r7+6|%+ssbXAT PCNMT@N FF~F9FDFD @< *i@}FKFDFD @X'*"AEC aRgq@*!.(/|^:}FFDFD @{:v `'!H0`SSS S1 ET'q`)'T@( ~l&hD hD ) ), }|}}S!|cHfz~FgF{ .GFzF GEhD { hG l{ lTvD @F hG_hD D + l2*v i@~FGDF.j@?fD @ *i@~G~E~!>}H?J( ||# ~ @FD @( *lwLt@*{G{E{!>zH/Iz"GFF @H lJh7J78H* *HFFF FFFF FFFFyGGDFD @x:p pn'E%TR!`UAAi~!l}(?|: FF{G+GDFDFD @/ *orB@,z|zzS!ycHlz{GgFx .GFwG GKxD x hG lx |ZwD @F hGexD D 1 {GGA"G (1`Jv .DFD @|S!~cHBz}|}}S!|bH0zFFH|GFF @J7J7Hz{H#G h  hD   JMP ^A ^B, / RETURN RETRN EINGA / END CALL 0,EXIf7~G7H}G7H|G7H{G7HzG7HyG7HL7N x x DD D D K 'U"gOiLOR7(P!b!Hol"7L x  hRy7R !>(/wj:LjxHI, BLOC)Q PONMLD @'*I` H0'@Z~8M }!|c(~{{"!l|H? z+yIVIx.6w/6v .G @uI G7D  xB6wC6v .G @vI GKD D D e /q+ L)ITNSQU$' ,qR@t"|C7N  x M L 1I5IL&M&~ .G @}I GD L!Mb"~b hG  ~ *yD @DHD @B/*q 2GU2'H,Mq@*|,{78N IQ(J)-1952)60,35,60 60 CONTINUE K(18,I)=K(18,I)+10*IQ(1( 7 <~t7 <}t7 <|t7 <{t7 !.Hv{7& >ubGJJ @,78,3NtJhO &7( !>(/sh:r!.&7( !>*( d+;*);(';&%;$>(z~8 }, |#{chD zGJyJ @(D ' 1 "q +g'J@L*}JEJ|46{56D @z(G ,y ,B D @L1* q" g<'@ 7& >xGz(G , ,, 7, 8N wv'}JKDJz*K0 0d  + *0>GJK @ 8D D ~ :1(,H)H ,!.Hv{7e>ubGLL @m7XmSNtLhO F7g!>(/sj:r!.&7g:* dal]kj]ih]gf]e^!l~(?}+|L#L{6z6D @y(G L| L D @) *lsBjiM |LGL{66z76D @y(G L| LD D @M *lsB`i |LjH |L\LD @xLLgHD p 3 " 2 q@ wGwEw!>,ji]_N~H/ ( L MM @LLm7XmS!}b!(o|:{k7e>zGy(G L LmxMLo7XoSPwMzx ~\qM7q}!.(|{%.{"GL{M @m{RGL{M @oX z\qM7q8P yxW7oatHf666b&bC n PhbP8b(J . Jhb&.fJ(b8J~&}f}a(]z  PJ |(2z{H/zy"P0! 0! c (!bbcoz n r`gK?w a/J n `@`?M|END LAP \K, COMMN 3410 \IF, COMMN 20 \ISCH, COMMN 1 \IFACH, COMMN 1 \P, BLOCK 14 \J, BLOCK 1 \I, BLOCK 1 \I1, BLOCK 1 \J1, BLOCK 1 \IS1, BLOCK 1 \I2, BLOCK 1 [A, BLOCK 1 DU Note: Lines longer than 256 characters were wrapped