; ](U*U*UPROG2CONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading FFORMA 13pSETQxDEFPROPU:U.UT+INTERNAL-STRING-MARKER xFFORMA13VERSION xU*U*UBASE+OR-FILLER*NOPOINTEXPLODEFLOATFIXNUMOUT-SET|U*U*U|10SNDD|1OUT|REPEAT-OUT|NOUT|NREVERSEU*TERRORPRINT-FIXED-FIELD-FLOATINGOUT OF RANGEFAIL-ACTLSUBR-0,8 A@1n+ Z(+ ",81n@+ Z(+ ",8  Z(,8Z(,8Z(,8 ( & -,1D    (B{ @ 00an@+ `+ `,8-,}0@,:,:7Bg " (B{Z @" 0B+ g++U Pw7Bg~ " (B{ Z0B+ g~++U hP Np Po3Phg 2#` g~ Po Rw * J B` h5.) ( H p4.U0n +U ./p.. NnoD 3nd+U2.e+U%.j.(?. Pw} "w} Nw~ w/p/./w~/nw4.U7@`` +9 g}   g}  "w6@``+= g}   hN3Nh+A g}!@ " g} "w} g} " p 4NR.. ,: w}-, oh%0j0(G. Rw~ "w~ p/ g} $,< "p g} "w}/0BA/6B+T " +UZA+a g~4Ja[(Z (0H+V ,a,8` g}-, $p-, $w-,` $h-, $-,,8,8e,8fP ",< ",//@"//,xq}']fY ]*]*U`ARGS xEMEMQLG10|U( |.10S"PRINT-FIXED-PRECISION-FLOATING-0,8 1n+j( Z(+k ",81n+n 0Z(+n ",81n+q P`Z(+r ",8 Z(,8Z(,8Z(,8 ( & -,  ` (B{ an@+} ` +~ `-,~ -,|-,}2,:,:7Bg~ " (B{Z0B + g~++_ Pw7Bg} " (B{Z20B+ g}+ +_ hP"2 Np@@wz Nw}@@wz . Nw{". Nw{ .! g} Nw| Po Rw| g} B` "! * J Bg o3Nhg .#o Nw~  Po g|(N{6 8+.[g| Bg7@ H " (B{Z0B+ g Nw{Zg| [ Bg7@ " (B{Z0B+' g Nw{3.o+_Zg|Z[ Bg7@ H " (B{Z0B+. g Nw|0nA +_+27Bg| " (B{Z0B+2(! g| Nw{ h5.4 ( H 20o+85P_" .@@w| Nwz+20p+>30p+>%00j0(G.,< "p/./+?@ "o Nw} p1n+_0.+_ w} /p Nw~1n+G o2.q+S+H3nq+S w~.... Nno w}.. @ Nw..  0.w,:  h /2no+S w:w~ Nw}6@g+f@ w}2nw|+W2.w{+X * Jg+f5.\#w~/. 0 Nw} Pwz+f o%.j.`(?. Pwz "wz p/ Nwz Pw}5pf  0N+e wz..3nw+f * Jg@ 7@g+ w{4._0n+_ p/w{ w}/w{.0 Nw} Pw}0P+p or. @ +x ./.. o 0/w}.0,:  oh / Ro %.j.(?. Pwz "wz Nwz@" w{5N o2.r++2nwz+ wz5N o4N!. no>w}". Nwz+ @" w{5N o3.s+ + 2.wz+ o. :w}"0 No Pwz wz5. o%.j.(?. Pwz "wz Nwz w}4n% w|5. wz5N o+-, o  0.w},:  h%.j.D(?. Pw|/  1N+- w|5N! . Nw}+- w|&.5P% w|&.>w}D @ Nw|+!+-5., ./w}.. %.j.(?. wz Pw&$w Nwz .@@w|  Nw}6@g+/ .+4  1N+3 w}D"0n+32.s+47t . w/wz/w}  /w~/ Pw~40_6@`+; g| $ "w~` g|   hN3Nh+@ g|!@ " g| "wz g| " w} 4NJ "w| w}/ g| $,< "p`` g| "w|/7@g+X g|!@  " w}5.O ./nw}7t . g| @,< "p  0N+V w}0.+V 00 g| " g| "w}/7@`! +[ g| $ "w~6B+] " +^D Z+l g}4Jk[(Z (0H+_ 0 ,k,8 g{-, g|-, $p 2-, $w-, $h-, $" -,,8,8u,8u",< ",0 ////,xz( 0?|l?rg4e9Lf3KW 0{Hf xU*U 0FIXABSHAULONGLOGIFIXPRINT-FIXED-FIELD-FIXED-0,8  1n+z Z(+z ",8A@1n+} Z(+~ ",81n 0+ Z(+   (B,8Z(,8,< ( & -,D   ,<,:(B{ `n + ` B`,80 ,8-,~7Bg~ " (B{Z20B+O g~1.+O0n+O g~-, B g~ Bg  0N+ (  * Jg g5. * J g Bg@@ g Nw  0N+# w/.&... += w0.?+.  0N+. w0.+* g += g ,: "h.. /+= gd,: "h  ,:,Z@0 Po "o/ B`,8` Nw~ "w~@  Bg `/2N+; `+= `..  Pw6B+@  1N+@7_ . w~/w/ Pp40O7@g+F  g}   g}  "p6@g+J 2 g}   g} g6B+N "  +OZ+[ g~4J[[(Z (0H@b+P ,[,8 g}-,  -,d $w~-, g~-, $ -,D@0,8,8_,8`",< ",/0 ////.P,xv   xSUBR,80@,:,< h(Nr/.@-, .%.j.(?.,</0,<20 +j". Np,8 w.p&. Nw "w ..  B`2nh+q  Np+r  Nw w/p0n+j ..w@  0.w,:  h/@ 2nh+| w-, + ..p 0 0.p,:  h/2nhB+ p-, + p/.-,   ///,xs"jA@m0!`,8,< p2.+0.'+0.2+0.+7 .+0.t@"+7 .+2.+0.P+7D" .+2.+7 .+2. +D02.!+7! .+ ./,xkaB 1@Pdn5JjU*U!LEFT.EXPLODECEXPLODEN+0P`NUMBERP-,,8,86@g+% `( +8[g0B!+( * J`+60B"+*P( @@+61B+-1B"+-0B#+00B#D g " -, B+60B#+3 *$P&! J +61B$+5%4B65N6 * J  UZg Bg+#/,x!"TYOASCII",<,86F+> ,>,8,8,8",@ a<%+B[4H@-,+A&Z `0-,XC "//,x](! !9PRIN1NRECONC,8,86F+J ,I,8b ,8,8",<&+O,8[4HL# @` +MZ`'XC`/ "/0,,x8!D,<,<,8 w4nX,<@ p4NW ` "w>p+S "/0P +Y "//,x(! PU*U*UANDORNULLGETARRAYARRAYDIMSPROGNFLONUM'U*U*USTORE ' ? 9 0FEATUREU*U*UBIGNUMDOI1+VALTIMEST1T2U*U*ULINV=>HAIPART rU*U*U LSH-FSC@PLUSPBOOLE2U*U*U*QUO0 @<#3 !*$W<QUOTIENT'(())(**)++)++,,-,-.,-.,//00112213 33 445561-6537473847738965947384:73:85:85 4:3:854,,1;4#;5'<4,1;<=:#=584>,:-1;75>?38:?5'@1@,:-1;<=::A5877589>112213AB3A61-,13,:-1B/3x;