?FAOV1.0 4-NOV-2021 09:59 VSI C V7.4-002  $READONLY$ FAOURLENCODETABLE FAOURLENCODETABLE2idR$CODE$ $LITERAL$$LINK$$DATA$X$BSS$(JPFAOLSAK0JDFAOCHECK0J`QFAOERRORNOTICED0J`? FAOBIGNUMBER0J CFAOCOMMANUMBER0JppE FAOTOBUFFER0J`K FAOTOEITHER0JHPM FAOTOMEMORY0JPFFAOTONET0JG FAOTOOPCOM0JI FAOTOSTDOUT0JpOFAOLIBPUTOUTPUT   OPCOMMESSAGES0 OPCOMMESSAGES  OPCOMTARGET0 OPCOMTARGET8 FAOURLENCODETABLE8 FAOURLENCODETABLE2 6= %00=%01 =%02(=%030=%048=%05@=%06H=%07P=%08X=%09`=%0ah=%0bp=%0cx=%0d=%0e=%0f=%10=%11=%12=%13=%14=%15=%16=%17=%18=%19=%1a=%1b=%1c=%1d=%1e=%1f=%20=%21 =%22(=%230=$8=%25@=%26H=%27P=%28X=%29`=*h=%2bp=%2cx=-=.=/=0=1=2=3=4=5=6=7=8=9=%3a=;=%3c=%3d=%3e=%3f=%40=A =B(=C0=D8=E@=FH=GP=HX=I`=Jh=Kp=Lx=M=N=O=P=Q=R=S=T=U=V=W=X=Y=Z=%5b=%5c=%5d=%5e=_=%60=a =b(=c0=d8=e@=fH=gP=hX=i`=jh=kp=lx=m=n=o =p=q=r=s=t=u=v=w=x=y=z=%7b=%7c=%7d=~=%7f=%80=%81 =%82(=%830=%848=%85@=%86H=%87P=%88X=%89`=%8ah=%8bp=%8cx=%8d=%8e=%8f=%90=%91=%92=%93=%94=%95=%96=%97=%98=%99=%9a=%9b=%9c=%9d=%9e=%9f=%a0=%a1 =%a2(=%a30=%a48=%a5@=%a6H=%a7P=%a8X=%a9`=%aah=%abp=%acx=%ad=%ae=%af=%b0=%b1=%b2=%b3=%b4=%b5=%b6=%b7=%b8=%b9=%ba=%bb=%bc=%bd=%be=%bf=%c0=%c1 =%c2(=%c30=%c48=%c5@=%c6H=%c7P=%c8X=%c9`=%cah=%cbp=%ccx=%cd=%ce=%cf=%d0=%d1=%d2=%d3=%d4=%d5=%d6=%d7=%d8=%d9=%da=%db=%dc=%dd=%de=%df=%e0 =%e1 =%e2(=%e30=%e48=%e5@=%e6H=%e7P=%e8X=%e9`=%eah=%ebp=%ecx=%ed=%ee=%ef=%f0=%f1=%f2=%f3=%f4=%f5=%f6=%f7=%ff=%f9=%fa=%fb=%fc=%fd=%fe=%ff=%00=%01 =%02(=%030=%048=%05@=%06H=%07P=%08X=%09`=%0ah=%0bp=%0cx=%0d=%0e=%0f=%10=%11=%12=%13=%14=%15=%16=%17=%18=%19=%1a=%1b=%1c=%1d =%1e =%1f =%20 =%21 =%22( =%230 =$8 =%25@ =%26H =%27P =%28X =%29` =*h =%2bp =%2cx =- =. =/ =0 =1 =2 =3 =4 =5 =6 =7 =8 =9 =%3a =; =%3c =%3d =%3e =%3f =%40 =A =B( =C0 =D8 =E@ =FH =GP =HX =I` =Jh =Kp =Lx =M =N =O =P =Q  =R =S =T =U =V =W =X =Y =Z =%5b =%5c =%5d =%5e =_ =%60 =a =b( =c0 =d8 =e@ =fH =gP =hX =i` =jh =kp =lx =m =n =o =p =q =r =s =t =u =v =w =x =y =z =%7b =%7c =%7d =%7e =%7f =%80 =%81 =%82( =%830 =%848 =%85@ =%86H =%87P =%88X =%89` =%8ah =%8bp =%8cx =%8d =%8e =%8f =%90 =%91 =%92 =%93 =%94 =%95 =%96 =%97 =%98 =%99 =%9a =%9b =%9c =%9d =%9e =%9f =%a0 =%a1 =%a2( =%a30 =%a48 =%a5@ =%a6H =%a7P =%a8X =%a9` =%aah =%abp =%acx =%ad =%ae =%af =%b0 =%b1 =%b2 =%b3 =%b4 =%b5 =%b6 =%b7 =%b8 =%b9 =%ba =%bb =%bc =%bd=%be=%bf=%c0=%c1 =%c2( =%c30=%c48=%c5@=%c6H=%c7P=%c8X=%c9`=%cah=%cbp=%ccx=%cd=%ce=%cf=%d0=%d1=%d2=%d3=%d4=%d5=%d6=%d7=%d8=%d9=%da=%db=%dc=%dd=%de=%df=%e0=%e1 =%e2(=%e30=%e48=%e5@=%e6H=%e7P=%e8X=%e9`=%eah=%ebp=%ecx=%ed=%ee=%ef=%f0=%f1=%f2=%f3=%f4=%f5=%f6=%f7=%ff=%f9=%fa=%fb=%fc=%fd=%fe=%ff= 0x!8XL!%D =!%I(=!%T0=!SL8=!#SL@=!@SQH=!#@SQP=!ULX=!#UL`= %X!8XL!8XL()!XLx=!#XL=!ZL=!#ZL==!20%D= !AZ, !#%D= {!UL}!-!#AZ= !8XL!8XL!8XL!8XL= !#=%X!8XL (!AZ)= &!8XL/!AZ() 44 4(40484@4H4P4X4`4h4p4x444444444444444444444 4(40484@4H4P4X4`4h4p4x444444444444444444444 4(40484@4H4P4X4`4h4p4x444444444444444444444 4(40484@4H4P4X4`4h4p4x444444444444444444444 4(40484@4H4P4X4`4h4p4x444444444444444444444 4(40484@4H4P4X4`4h4p4x444444444444444444444 4(40484@4H4P4X4`4 (h4p4x444444444444444444444 4(40484@4H4P4X4`4h4p4x4444444444444444444 44 4(40484@4H4P4X4`4h4p4x44444444444444444 4 4 4 4 4( 40 48 4@ 4H 4P 4X 4` 4h 4p 4x 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4( 40 48 4@ 4H 4P 4X 4` 4h 4p 4x 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4( 40 48 4@ 4H 4P 4X 4` 4h 4p 4x 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4( 40 48 4@ 4H 4P 4X 4` 4h 4p 4x 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4( 40 48 4@ 4H 4P 4X 4` 4h 4p 4x 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 44444 4(40484@4H4P4X4`4 (h4p4x444444444444444444444 4(40484@4H4P4X4`4h4p4x4444444444444444444 =# ^~ G ^ ~ ( ޴0 8 @ >H ^P ~X ` h ޵p x GGXGG\>`~d!  /?$`ݠ4G 4G_!h 8l= <p]qDrpDStJWBr\//#B4G"tb/@Zk  G 1@ 0@xݱ+///BG\]="GGb/@Zk\ CtA!"XtG0B8bA 0"/@ZkBG4Gb@ZkC Ct ͡ @ C@xݱd=  = CC%@#@|=//| WAw/KC////6C/p]CKC5DC2F/. ///xݡvMKA/ `.UJ!c F>p]*1@Ap]/,Btb G  4G-A @Zk  G AAxݱ.p]JC5DCCTFrF_.@bJ{"I/} KD1 G# A`,@HH@@DG//.\}"JxFǠD  sD/.JF/ 4G .JG,'F&,#///D/d/4GDK[ dK[G /;=/.B4G"bPJJ/@Zk///BG4Gbb@ZkG@"C$"! .PJJPBF////\}? DaD///d.B4G"bStJgJ/@Zk 4Gڣ9" g///8G4G@}4G ^/y"`4GX4GĹ"S///4G"ݲK///4GڤY# @g  }@///4G9" 7///4GڡY"@}////4Gڠy"`'///4Gݙ"///4G"]///4Gy#`///4G9  =///4G9#  D.DJdDKd.dJhF` 4G ..Gd JV JF@#/@///`g `;,{#A;H'H"# D.J//&L#"d @8GGF/+`4G` l/'l=C@0" BD G"8]"GlG(b@Zk //0b BG8]"l}(bG "@Zkh ?  D/"d -/`'// l=/'l=C@0D B `G"8]"GlG(b@Zk //0b BG8]"l}(bG "@Zkh ?  Df/"d -/`'//g l=/'l=C@0D B `G"8]"GlG(b@Zk //0b BG8]"l}(bG "@Zkh ?  D6/]ڿ" "d ?F"AB/; `///`9 ."UJJ | ZEB0@BEEB1 .J z]T-TIGC_s /ڗ "ڷ"d F // `g `.s" UJJ ` /g /` /.#/D0B!1@@]"JY #KDFZ#z#ڗ"F//.,`F@FJEHJPCp-pIxrIR"TBD/``.JJVC6/r/[rK6KfJR"TBfGr?R,HDEC./XK @s"J!1 @yHR"TBGD?@..JPJJVCv/vKuJR"TBF>2s-sI aE KC+/.+KWJ @!1 @s"{rIR"TBDF> .JJPC./XKJyJR"TBG?s-sI aE KCk/.kKUJ @!1 @s"vrIR"TBFD>{/  XK?R/ڶ #d  /`//g l/'l=lPBGTGXb ///@ZkG 5 2/ں d Y /`M 0."Q0J'J I.GJJ/2`///BUBF7G)v/"vKC!@U!@DD v-"vIC@0FU@F/V."VJCAUAFhF /"KCC7GUCFv/"vK0 B3BG8]"GG(b"@Zkh  /// //&M? 4Gڒ"d @8 D!FF# G//` BH="8]"bGGH!A =GG@ZkH }!hiA$vHC.PJ>///C0¦ B "# Gd 8]" `GG(bx" @FlG@Zk /0 BG8]"(bGG p"@Zkh!  +Eí d - /`// l/'l=C@0iF B `Gh"8]"GlG(b@Zk //0 BG8]"l}(bG`"@Zkh ! +ER/ Gۻ ڻ"d FJ `' g..gJT JtF/..JW JFPB P"4GXbC/P @Zkd-,` 8]"0" BGG(bGdI@HX"`E#@Zk= h ?D?DC*`/%DD/$ %. %JC%BqF/ . JCBF/. JCB7G/ E/ EKCECD/. J?e.dAeJC F/ FF3// ./ *FFD/$E/ EK@@F/%, %H?@$@aF/ e- eIAdA F/ `. JBBG/%/ %KI/ .GIKP J PGڻ)! %,%H%H,///$D`F/$ s-s"sICdA  G/`.s"JCBD/.s"JCBPG/ s/s"sKC$A IF/ ,s"H?.Ge!J / K, eEDHTgEw3Ks"D<S/SK*/XF`F/$S.s"SJCU'A )F/ ,s"HCU@F/.s"JCUB uE/ `,s"HCU@F/3/s"3Ks/sKCrB2.2J/, /// X'E@F/$ .R"JCU@G/.R"JCUgA F/`.R"JCU@DG/ .R"JCUBpG/r.R"rJ?.VJ>///۶#d /`5 0BG8]"(bG P" BG@ZkhQ  /۫ d 9 / `// G.g.S gJGJ SF/..JV J FPB P"4GXb C/ P=!//@Zk,i- ` HKiID D/0" BG8]"(bGGH"@Zkh//  /lی !۬ d ?D 8F/D-CIC_ //$. b"@" d $Jx.F4FG/"d A/`Ǣ."WJJǢ 6/V# Y:K'K* ///xݡA`%,-.%Ht-H)1 A Q-J!4F->?//bGf/B4GtbF $A @Zk ` G nAdAxݱ?GJO//ڼ d ]  _FFPFC]4J=ø=گ"#d  = F7/7KC ;E /X'Gw""/ W.SJEF@.JF a-v!KKaI vE"! 0@a=/KCD7-7It 0@`.t!IUJ! "F>0@/ w-a/wI"xaI[aK! xGa?0@/ 7/!-7KI!I"r!J! 2E!=.J]///B0@BFFdJDQa/ D"[aK! 0@dGa?7/7KC%A(Ae!I2FF5F/= a-"KaI! 0@ eEa=,HC@@[GYFuHRG,@.VJF>7."7JC@! 0@@ +EzHF 4E !/Y!K"! 0@:G!?W.WJC@@tHuF6FqF/ /"XK! G?7-7I7/7K(G0@s!K/`@.VJF! ">}=="1@aA7 8E/+ ///, DHXD+a/! aKXGF&@a.! aJXgF/ `.! JXF,! HXD!-! !I X'E/ ! +@/_1@ `/A.AJXGF/@! 1@/?.JXFH,! H@///D D TG8,{aIEH! xaID<!/!KY!KCHB8GrF/(@!?,! HCBzaIEHD 4E/ <!.! xaI!JQ!JCB8FuF/`!>,! HCBFeaIDHD! <A/AK.JC3@7.7JC0@8GV/,i!JF" DEH! 0@D<w-wI"CyaIFBA.RAJYFA>/K! 0@"C{JD/4.TJF! 0@>,H"CyH = F'`a.SaJyFa>/KC! 0@"{!ID.VJ! 0@F>W/WK"CyJdE/ a.SaJ! 0@yFa>/KCD/.VJ> //Bڪ`#d ="`  _"btG/@Zk/ //ڨ !d M / `'// '.G.R GJ'J 2F/..JU J FPB P"4GXb C/ P=!@Zk,i- ` HKiID D DV/BGTG@="b /@Zk DI@"@G0b BF8]"A@GGGaG(b@ "@Zk  `b! D D2/ڭ !d /`'y '""B" 2DG!ڰ`"d `/`mp"" FG# /`'a ' C/8 d/dK/,///FD/$D. DJC!BqF/ . JCBF/. JCa@G/ `d- dICaA +G/`d/ dKD.DJAB@$.$J/1 .p]JBCC/4GF/0`///xݡ{JA/ @m-KmI!&1@ {Em=p]*1@Ap] B4GbFfl-At @Zk` G `n@ k@xݱ$,p]$HCBC5FC2FqF?.JBC8G*/FD/$d/ dKC@`E/d, dHCa@#D/ . JCABrF/ @$. $JC!BF/ $/ $KD/DKAC@3 c-cI,///D`D/$#,c #HC!@aF/ C.c CJCABF/@#.c #JC!BF/ /c KCCD/C/c CKc-cIaAk@!&/.d Jx%E  /%Ed  ///8$Ed  ///X%Ep]9@$/ $KCF@;F( /xݡA D/m.DKu J&1@SmJ!uFm>p]*1@Ap]B4GtbF-A @Zk` G o@ e@xݱp]@C+D?.JC@C-CIC_6p]'Ed /@&@pݰD-CIC_*p] 'Ed / @G_!p]/Bھ`"@"d `4G b0b!l/@ZkG D0" BG8]"l}G(b8 "G@Zkh  /ڽ`!"8""d `G  QFl]G0¦ BGڹ`"`g(b8]"G d 0"l}@Zkh  z/B&ڬ !d C  s"GG"]"bCl0F' } H="G@ZkHBHB"G R"@Zk//H}+v`IC-HI=0" BG( "8]""l}G(b/@Zkh//  A0 BG8]"l}(bG "@Zkh//  10 BGڧ`!`g(b8]"G d "l}@Zkh  /B0"ڥ d {g4G b)!`G@Zk BG8]"GGGG(b@Zkh ///h B4GGbC>@Zkp] @ HH vHC@aE D/2///xݡGt-JAm.SmJ!&1@tFm>Hp]*1@A"Hp]// BtbG,-A4G @Zk` G +A $AxݱH=p]CC!v H @FF?]_F Gb#@D//G/ 4G=}Gb#`@G=_"Glhb4GU CC> G$EX(G)G+Gx,G3&`@`B "/ G//@Zk )/BG_""4GGb/@Zk /pBG_""4GGxb/@Zk /BG_""4GGb/@Zk /=4 E=DGDk e.eJ+eJ/dF@F/$`.R"JCBG/2/R"2KC$CyG/ r-R"rIC$A E/ ,R"HC$@!F/ .R"J.CP"]#"DJ@FWG//@v/ GvK- ///xݡA +--,+ItHk!A-H!4D-<+,+H?lB4Gtb`F`-A @Zk G Axݱ+,+H A?//B"b"=0bݢF0¥ Ck!CCG//0#//%/p% ]!%KD /=D 1@` &1@p/ .PJJ0D8D  HF'D?DF.JFC" u1J3JuFC};vK}1,H@@//%.B%JA2@/."TJJ B!XDDDD`D///@ FF0X! B!//B!// G*.*J/?///x=A ..JwJJ!UJ!F>j.jJlB4Gt`G` Ab @Zk G 0Bxj.jJ !Bv//ݢ=0¥C8⥩CCCE/p="}!EKD?D!1 @@&1@p=/C%.Q0J'JFFJ/;@ݢFFPB."J"Fݲp.wJCs1`J9?K3G=p.pJCpQJ vHDE/EK'DC!  A/@!!.!Jqq J"! 5JF!.6JGG!.!JC3Ja1 HaFC}0vJ/E/EKRNBR// .¦JTBT/.#WJJ(b! UDB_FQEROB r+,+H?/x=A ,M/ Hu Hk!ZMK!UGM?k.kJB4GtbFy-A @Zk G 0Bxk.kJ !Bj//p.GG}=]GJ==CCFCCCC/(///xsHA/.TJFG! &1@>p71Bp ///G%"{JKXF/M/ZMK!&1@[GM?%,pA1H71B'Hp//@! e" E.RSJGJRTBRPF@ /.B4G#bVJJ/@Zk -.Gr-HQ-J!2F->//@b¦Q@"s֢ `.TJJTBFF /.B4G#bWJJ/@Zk:%,"BA0H'H! @ @" H\<@Ck/4G//TG//G//G//TG //G//G//G.G&1@vmJUJ!F>p71Bp}////`.#WJJFFJ' m/[mKF`J!`Gm?xA%.%Jm.'D! t-HSmJ! &1@tFm>p71BpW/.p&1@J71BFpBM////0&1@M/K @CZMK{ H![GM?p71Bp8//."&1@m.J ABSmJ!t-H!tFm>p71Bp$//. /JX K`J!G ?p71B&1@ p//Lt4G@G?@lB-Ab @Zk G 0B !Bxpݢe.GFeJF== FB#b#" DF:F/,.GJ(///xA . -JiJ H I! E =///lB4Gtb `E`̡-A @Zk G A AxD-DI_p= CCEE( /xGt-JA m.SmJ!&1@tFm>pݢ61Bpݲ/ BtbG,-A4G @Zk  G @@xp@CDC-CIC_fGh=c/Gh_/G[//Gh]W/|""h}S/GhO/GhK/GhݲG/GhC/Gh=?/Gh];/Gh}7/Gh3/Gh//Gh+/Gh'/ Gh=#/ Gh}/Gh/Ghݱ/Gh}/ Gh]/Gh /Gh=/Gh/Gh=h}C41ArF/@e/G///`.J,///x=A H/--HKkMK!&1@I-I! +E-=pݡ.1Apݱ,HLB4Gtb @E)@ -A @Zk  G @@x,H.'#?'9#UJ>̢`]-A *@A!/{@z/e:K[zKeG z?h///M-JMIM=,`=!A ,/ ///[ Q.s1HRQJSFQ> <`=b ,kIGHD< ¥,,HF HhDX]@E)//@<*/GB&""G4_"s"("hGbG@ZkBd="TGb@Zk|=! //BG0@"ItGb)!@Zk @hG ] ] } ( ݤ0 8 @ =H ]P }X ` h ݥp x #k/rFr] =Q. 1HR QJSFQ>//z/ :K[ zKeGz?//, IG HD<// ;#^~^ ~(08GGGX/c. B4Gb@"@ZkB GG4Gb/@ZkXD///`G/BG4Gb@ZkXD/G/`//G/ G"GG %?Y" @G/?Xc|@/KCFK>`///5,`uHF"0BA5H"B D5<7.7J"CzJF)`5/Y5K:G0B"B5?,H"CsH{D/`.VJF0B"B>.J"CcJ:G u/[uKcGu?,HC0B"BvF5/Y5K}BGbpB5?/B(D=B$;݀B4G(DӴ F1v?JG$;xbtFG@Zk?'GX""EG@9#`b0B8b[`*X/`Yc/[]@Zk Á[0B?'""GG8b!\@9#@ZkGG]] }(08@#/k///0.GG0J% ///P.0 @"FPJ"/ P.0 @PJ"@0.0 @0J" P.PJ0 @"/ @0.0J0 @" P.0 @PJ_11 @3C1FpN6dJ2C3F1C!D0N6J3C//@[G0D"ssB!3@Gt D///0B///.G!1 @wqJJCF/.TJF>TG1"0B..JVJ xJ1"F>.GTJ>k///1QB#6JCP^~7!J[ BVJ"X^`GGH~LVJbG8"/@Zk B"H]="L}G(b@ZkGP]X]`p#k/#G> G@h0C^~GGG|" P#k//9 C"8#/& C@/9!C@#XT X CTG "84XR/ //xG91 C#"q?GGG"{#GG]_G]P#/k///#> /@h]0C^~GGG|" P#k///9Q C"(= /& C@/9!C@! AV! C6 G "/_ //!G91 C! "0?GGGG"G{# _G]P#/k///8#(> "@h {=0C|" 91 C^~0> ^~G[@G~& C /9!CG C@! "`AVAVav!6AVA[/ //G91 C! "?G ="}""_"Hb#p"_GG0B"h "b#@x(G}"=8BTG@bP"! !v H2_J HAFp@Pp@ZkG//GG0B"t "b#@GG]]}`#k/X#8> /@h^~>"> ^ ~(G// 1"!B/=0CGGG@|" C91 C}"@"/& C/49!C@"3TS G s" C43/ //4G91 C"s"6?GG="_"hb#}""A_GGGPB" "b#@B"TGb @ZkGG]] }(p#k//#8> /@h^~^"> ^ ~(G// R"AB/"F4GGGV]0C|" 9Q CRGG) C= H]"//9!CG@R" ! `r Ca2!ҢRA2!ҢԲ/ //RG91 CR"! P?G `GGGG"b#_G//GG="_"b#}""_P" BG"(bTG!@Zk`GGB" " b#@GG]] }(p#/k///#8> /@h^~^"> ^ ~(G// R"AB/=0CGG`Gc/9Q C"H"/& C/59!CG C@" "`4UTutբԲux/? //uG91 C""`?G="_"H}""b#]_HBG8"""GtGPb/@ZkGB"b#H= "@G//@=TG(B0b1v H/@Zk//=XB4G`b0v H@ZkHBGG="TGPb@ZkGG LO= ]] }(p#k///8#8> /@h^~>"> ^(~0G// 1"!B/_&"R"=0CG]GG ݲ|" S///91 C= @="/& C/9!C@1"qaQAѢ G !  Cqa/ //QG91 C1"! W?GG="_"Hb#}""_GG0B"? "b#@4G(B0b0J vHF"@ZkG//GG0B"C "b# @GG] ](}0p#k/#;G ^~[(^0GG#"=]GA"b}G@ZkBG="bGG@"/@Zk@"G0" B(b vHY"@q" B!XQ.RQJXQ>GG}87"@ZkG ](]0@#/k4G STRDSCBUFFER4b#P STRDSCBUFFER4@ STRDSCBUFFER4)0GTSTRDSCEXTERNAL4*Hb#PSTRDSCEXTERNAL4)P@TSTRDSCEXTERNAL<|GSTRDSCIFNOTBEGIN<b#PSTRDSCIFNOTBEGIN<@STRDSCIFNOTBEGIN4G STRDSCBUFFER4b#P STRDSCBUFFER4@ STRDSCBUFFER4G STRDSCBUFFER4b#P STRDSCBUFFER4@ STRDSCBUFFER4dG DECC$ISDIGIT4pb#P DECC$ISDIGIT4@ DECC$ISDIGIT4G DECC$ATOI4b#P DECC$ATOI4@ DECC$ATOI4G4 DECC$ISDIGIT4 b#P DECC$ISDIGIT40@4 DECC$ISDIGIT,G$SYS$FAO, b#PSYS$FAO, @$SYS$FAO,4GTSYS$FAO, Db#PSYS$FAO,P@TSYS$FAO,GSYS$FAO, b#PSYS$FAO,@SYS$FAO,G SYS$FAO,  b#PSYS$FAO, @ SYS$FAO,x G SYS$FAO,  b#PSYS$FAO, @ SYS$FAO, G SYS$FAO,  b#PSYS$FAO, @ SYS$FAO< G TCPIPADDRESSTOSTRING< b#PTCPIPADDRESSTOSTRING< @ TCPIPADDRESSTOSTRING, GDSYS$FAO, 8b#PSYS$FAO,@@DSYS$FAO4#G SYS$GETMSG4$b#P SYS$GETMSG4#@ SYS$GETMSG,(GtSYS$FAO, Pb#PSYS$FAO,p@tSYS$FAO,GSYS$FAO, b#PSYS$FAO,@SYS$FAO,G4SYS$FAO, ,b#PSYS$FAO,0@4SYS$FAO,DGdSYS$FAO, Tb#PSYS$FAO,`@dSYS$FAO4!G SYS$GETTIM4"b#P SYS$GETTIM4!@ SYS$GETTIM,G<SYS$FAO , b#PSYS$FAO,8@<SYS$FAO, b#PSYS$FAO,G SYS$FAO,@ SYS$FAO4!tG SYS$GETTIM4"b#P SYS$GETTIM4!@ SYS$GETTIM,GSYS$FAO, b#PSYS$FAO,@SYS$FAO44G\ STRDSCBUFFER4@b#P STRDSCBUFFER4X@\ STRDSCBUFFER<p G STRINGURLENCODEURL< b#PSTRINGURLENCODEURL< @ STRINGURLENCODEURL4!!GG> WATCHTHIS4>b#P WATCHTHIS4>@> WATCHTHIS<>G>WATCHDATAFORMATTED<>b#PWATCHDATAFORMATTED<>@>WATCHDATAFORMATTED<>G>WATCHDATAFORMATTED<>b#PWATCHDATAFORMATTED<>@>WATCHDATAFORMATTED4 @G$@ SYSTRNLNM4@b#` SYSTRNLNM4 @@$@ SYSTRNLNM4$@GD@ DECC$ATOL48@b#` DECC$ATOL4@@@D@ DECC$ATOL4p@G@ DECC$ATOL4|@b#` DECC$ATOL4@@@ DECC$ATOL4 BGhB DECC$ATOI4XBb#` DECC$ATOI4dB@hB DECC$ATOI4BGBDECC$TXSPRINTF4Bb#`DECC$TXSPRINTF4B@BDECC$TXSPRINTF4BGBDECC$TXSPRINTF4Bb#`DECC$TXSPRINTF4B@BDECC$TXSPRINTF4DG4EDECC$TXSPRINTF4 Eb#DECC$TXSPRINTF40E@4EDECC$TXSPRINTF<A4EGTEERROREXITVMSSTATUS<BLEb#ERROREXITVMSSTATUS<APE@TEERROREXITVMSSTATUS4?0IGtI SYS$SNDOPR4@8Ib# SYS$SNDOPR4?pI@tI SYS$SNDOPR4= KG8K DECC$FPUTS4>,Kb# DECC$FPUTS4=4K@8K DECC$FPUTS4=LGM DECC$FPUTS4>Lb# DECC$FPUTS4=M@M DECC$FPUTS4NGNDECC$TXSPRINTF4Nb#HDECC$TXSPRINTF4N@NDECC$TXSPRINTF47NGO VMGETHEAP48Nb#H VMGETHEAP47O@O VMGETHEAP,;OG(OVMGET,<Ob#HVMGET,;$O@(OVMGET49(OGDO DECC$STRCPY 4: MAPODS5VMSTOURL WATCHFUNCTION=!(=TRUE0= "FAO@= !UL !&Z P WATCHTHIS=<h= \"x=%5c%22 STRDSCIFNOTBEGIN=s TCPIPADDRESSTOSTRING= *ERROR*2= SELECTED STRINGURLENCODEURL WATCHDATAFORMATTED DECC$ISDIGIT DECC$STRLEN="= =(null)7DAYNAME STRDSCBUFFER7DECC$$GA___CTYPET7 TOUPPERCASE=0 2;= T SYS$FAO7 TOLOWERCASE;7DECC$$GL___CTYPEA;! SYS$GETTIM= (none){0}(null)# SYS$GETMSG% DECC$ISPRINT 'LIB$DAY_OF_WEEK= *ERROR*1= CHECKED 7OUTPUTBUFFERSIZE0)STRDSCEXTERNAL=SH=&P= X=>`=h=!&Z pWATCH Pe5=!&S=?=FALSE=null8OTS$MOVE=  -MAPODSSRIVMSTOURL /MAPODSADSVMSTOURL=0 2`Q;=@$ 1DECC$TXFPRINTF7DECC$GA_STDOUT=02pO;=p4 03LIB$PUT_OUTPUT8 OTS$HOME_ARGS=02PM;=p4 p7 VMGETHEAP=[%%X%08.08X]9 DECC$STRCPY;VMGET=02`K;=p4 = DECC$FPUTS==02I;=p4 =02G;=`@  HTTPDPROCESS Xe57 OPCOMTARGET@? SYS$SNDOPR=02F;=P, =02pE;=P0 =0P2D;=p< AERROREXITVMSSTATUS =6= 4=4=`4= 4=h4= 4= 4=(4= 4=4=04=84=@4=H4= 0123456789abcdef= 0123456789ABCDEF=4=4=p4=x4=P4=X4=%xx=4=4=4=@4=X4=4 0 DECC$ISDIGIT DECC$ISPRINT DECC$$GA___CTYPET DECC$$GL___CTYPEADECC$GA_STDOUTDECC$TXFPRINTF DECC$FPUTSDECC$TXSPRINTF DECC$ATOI DECC$ATOL DECC$STRCPY DECC$STRLEN TCPIPADDRESSTOSTRING STRINGURLENCODEURL STRDSCBUFFERSTRDSCEXTERNAL STRDSCIFNOTBEGIN ERROREXITVMSSTATUSMAPODS5VMSTOURL MAPODSADSVMSTOURL MAPODSPWKVMSTOURL MAPODSSRIVMSTOURL SYSTRNLNMVMGET VMGETHEAP WATCHDATAFORMATTED WATCHFUNCTION WATCHTHIS OUTPUTBUFFERSIZE TOLOWERCASE TOUPPERCASEDAYNAME HTTPDPROCESSWATCHSYS$FAO SYS$GETMSG SYS$GETTIMLIB$DAY_OF_WEEK SYS$SNDOPRLIB$PUT_OUTPUTOTS$MOVE OTS$HOME_ARGS !PC$IS