From: NL0242T@NLZCL (Oscar van Eijk)
Newsgroups: comp.os.vms
Subject: Vms News Manual (1/8)
Date: 15 Nov 92 21:33:59 GMT
Organization: Philips Communication & Processing Services
X-News-Reader: VMS NEWS 1.24

-+-+-+-+-+-+-+-+ START OF PART 1 -+-+-+-+-+-+-+-+
$! ------------------ CUT HERE -----------------------
$ v='f$verify(f$trnlnm("SHARE_UNPACK_VERIFY"))'
$!
$! This archive created by VMS_SHARE Version 8.1
$!   On 15-NOV-1992 19:08:07.12   By user NL0242T     
$!
$! The VMS_SHARE software that created this archive
$!    was written by  Andy Harper, Kings College London UK
$!    -- September 1992
$!
$! Credit is due to these people for their original ideas:
$!    James Gray, Michael Bednarek 
$!
$!+ THIS PACKAGE DISTRIBUTED IN 8 PARTS, TO KEEP EACH PART
$!  BELOW 30 BLOCKS
$!
$! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER
$! AND EXECUTE AS A COMMAND PROCEDURE  (  @name  )
$!
$! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING:
$!       1. NEWS$DOC.UUE;1
$!
$set="set"
$set symbol/scope=(nolocal,noglobal)
$f=f$parse("SHARE_UNPACK_TEMP","SYS$SCRATCH:."+f$getjpi("","PID"))
$e="write sys$error  ""%UNPACK"", "
$w="write sys$output ""%UNPACK"", "
$ if .not. f$trnlnm("SHARE_UNPACK_LOG") then $ w = "!"
$ ve=f$getsyi("version")
$ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto start
$ e "-E-OLDVER, Must run at least VMS 4.4"
$ v=f$verify(v)
$ exit 44
$unpack: subroutine ! P1=filename, P2=checksum, P3=attributes
$ if f$search(P1) .eqs. "" then $ goto file_absent
$ e "-W-EXISTS, File ''P1' exists. Skipped."
$ delete 'f'*
$ exit
$file_absent:
$ if f$parse(P1) .nes. "" then $ goto dirok
$ dn=f$parse(P1,,,"DIRECTORY")
$ w "-I-CREDIR, Creating directory ''dn'"
$ create/dir 'dn'
$ if $status then $ goto dirok
$ e "-E-CREDIRFAIL, Unable to create ''dn' File skipped."
$ delete 'f'*
$ exit
$dirok:
$ w "-I-UNPACK, Unpacking file ''P1'"
$ n=P1
$ if P3 .nes. "" then $ n=f
$ if .not. f$verify() then $ define/user sys$output nl:
$ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='n'
PROCEDURE GetHex LOCAL x1,x2;x1:=INDEX(t,ERASE_CHARACTER(1))-1;x2:=INDEX(t,
ERASE_CHARACTER(1))-1;RETURN 16*x1+x2;ENDPROCEDURE;
PROCEDURE SkipPartsep LOOP EXITIF INDEX(ERASE_LINE,"-+-+-+-+-+-+-+-+")=1;
ENDLOOP;ENDPROCEDURE;
PROCEDURE ExpandChar CASE CURRENT_CHARACTER FROM ' ' TO 'z' ["`"]
:ERASE_CHARACTER(1);COPY_TEXT(ASCII(GetHex));[" "]:ERASE_CHARACTER(1);[
OUTRANGE,INRANGE]:MOVE_HORIZONTAL(1);ENDCASE;ENDPROCEDURE;
PROCEDURE ProcessLine s:=ERASE_CHARACTER(1);LOOP EXITIF CURRENT_OFFSET>=LENGTH(
CURRENT_LINE);ExpandChar;ENDLOOP;IF s="V" THEN APPEND_LINE;ENDIF;ENDPROCEDURE;
PROCEDURE AdvanceLine MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);
ENDPROCEDURE;PROCEDURE Decode POSITION(BEGINNING_OF(b));LOOP EXITIF MARK(NONE)=
END_OF(b);IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+-")=1 THEN SkipPartSep;
ELSE ProcessLine;AdvanceLine;ENDIF;ENDLOOP;ENDPROCEDURE;SET(FACILITY_NAME,
"UNPACK");SET(SUCCESS,OFF);SET(INFORMATIONAL,OFF);t:="0123456789ABCDEF";f:=
GET_INFO(COMMAND_LINE,"file_name");b:=CREATE_BUFFER(f,f);Decode;WRITE_FILE(b,
GET_INFO(COMMAND_LINE,"output_file"));QUIT;
$ if p3 .eqs. "" then $ goto dl
$ open/write fdl &f
$ write fdl "RECORD"
$ write fdl P3
$ close fdl
$ w "-I-CONVRFM, Converting record format to ", P3
$ convert/fdl=&f &f-1 &P1
$dl: delete 'f'*
$ if P2 .eqs. "" then $ goto ckskip
$ checksum 'P1'
$ if checksum$checksum .nes. P2 then $ -
  e "-E-CHKSMFAIL, Checksum of ''P1' failed."
$ exit
$ckskip: e "-W-CHKSUMSKIP, checksum validation unavailable for ''P1'"
$ endsubroutine
$start:
$!
$ create 'f'
Xbegin`20644`20news$doc.zip
XM4$L#!!0`20`20`20`20(`20,Q9:QE6YG@5%0$`20`20)(!`20`20`200`20`20`20`20,6YE=W,D9
V`26`5DC+G)E861M
XM93V0,4_#0`20R%`5D_R*!T(ZD-JH71B0F`26!A8:I4!A8WY`5E1.)'9U=U4:)/X`5B/EJQ
XM6?;3>\\?`5DH$%`20PLG*E$`26E!`20SO':GB:5@T1.F.(1BDF(W!J>D"1/G3`20,W<#?8
XM\0<Z.E(7RP(`5E=\R>_0I94UI<@SV/XPIO;H)H`206`26.WY3L?C@5L(_74,9$)72!
XMTMIS'\7V*E!I,$9A;!\1!>\\Y`5BM7`5B=H=GZ`5EU`20H_'%B`5E!9.`20_`26`5B=U)BUJ26YC
XM\?>?>:)QY+,\WVX>VN:_R:`20BA`26+ML%BK0)?_?.Q`5B3BP=PT#D6(=*X9CT0(=Q
XM:3"KN%(M8M782`5B+,M.!I_6/F?=WD$LW5*`5E>JG#5`5DK3#_8:A.7B'`26Z(*BL@#U
XMA1.L9=NVS2`5D02P,$%`20`20`20`20`20@`20\UYM`269#QQ<+)!`20`20`20T@D`20`20`20X
V`20`20`20!A8F`5DU=%`5DN
XM97=S+G1E>'U6VVX;-Q!`5DSG`5B%!`20A0`26U`20VLN6X;8H62)T8,%*G0>PD?=B7O8PD
XM0EQRN`5E1JI0KZ`5DYXA5Q?;2`200#ILBYGIDYHZR<YXWG=O.VL)VGK`5B6CC`5DR`5B;9)D
XMR`5DH9'$DYR@VINM%<L_`26Y5`5D:0G9*?,VTRI`5EF+XX_LHQZYM?-<T`5D2V\EB*Q6V:
XMW,`5D5-$1%IS5`5B9:BP>5OMQ/T\`5D\0F+S0`5BZARWCKREEO.*%-X=-19RE5S";1)T
XM1`5E$20HU6'.1YI1Q,SZ+."`26%75,*(9T(F@R4$+Y$'$`5EDAR`5D(:Q%R`5BP06"1U@W
XM!M`208Y';G84OBE;S"+7`20S,Q8<8OK)+3N7SQ@0G`203==EK2V7ARN3U-,V4J7FV0
XM%VQMAV`5E?KZ_BNT#MFKSDS:2N'P-/KLZU#IE,<V2;-\BV##5(Z=N<41CC/$18
XMD!+H)$.`5DIESJF9R-QV,JM"T73D*ME%L$5RG=(T<!`5EB4,()TI+L4AYVXM$.`20I
XM.-W7\*56"QXEO?)S:0?X4(9ISKI!:\3.X"JE`5BR;CYK;3%?6V75`20P(B!/K=:V
XMEXH%/_=E\`5EJF00_9J>_SEM\,4`20WWL%;P3)F-SXL"2MOD`5B'QR\?KRYU`5D`5E'>`5D.
XM))_L=\H62NODJNY>W?/BV3.*G`5EP/NN?02"$$/--E>D%=(RG';Y<O+RC+DO<K
XMZX`5B5/EI/:S2"C`5EJ0N.VT5`5D+W)R%V/UMN3Y`5EZV$N=I`5E>B`5D:FU)1J%`5BH84GP16
XMK.E/`5D)QB`5EFKU?S1M;4U/E*YLVZ1B`5BDNY`26OQ77`26Y/OY.G2)VEDU!0.9`5EG8`5BJ`5E
XM#_%\DPJ8`26?YV>?0SY/'(P#?,ZVLHB8%X#LIO31>FGO81R*P\5MY+7:;C`5D/*A
XM+!IPJ4J`26K8Q-=2ALDCDNI<DWG_G?3K6AOQZS$J`5BP@E`5BO6`5E5`5D`26`207ZFJ_H*L2)
XM_FH9X\I@B`26!"IBD`5EE`5B9NE.8V36X\`5D;G;5;5#MQW15D@Y`5DH:<0C+1P`263WD$S2
XM\ZQIK4>TF<MK;D`20!V=1:;W"W@?DYS!>,X/P1)-'*.5H/KSUK/0(O`5ECA<SM9,
XMF%C,-*:XJJ"#A!'7'`26R(?U-$`5BM(=BP1+VSC.`26+L%W$.<*Y<$`20J")$,"T98XL
XML",!"C,JF0U8I$D2\G`5B')=62`5EW`5BXI53TE`5E,*`5D%)B\HO`20`26`5D5O`20#ARNFVD4+E
V.
XM'\_`5E6Y(DA-.ISI5`5E2#1#44`209!`5BR#E.N:QK;>Q9W@E($\X!\E0KU6/ZS0$IL"
XMSH7S>+>3#J0R`20.*.XWZ3#,B)L`5E>`5B`20(`5D(`5E"S$_B*+B`5EI%-C`5ED%/Q`5ENGUWO:4
V+
XM=,`20)L*NQ"52N`5D`5DB'>;TQQLJLGO`5B(SNT_V`5D!')TU7@-*ILHC(/#3TF8USK'-N
XMDT`5D6K`5D%E<P/1`26U"`5E\IWG'SIX`5D_XJS-C)`202`5B4`5EXOVK5K1#$NQS`5D=`20Z?1QV
V6ZF
XM9`26RH!:`20>JO`26$HF4W+2$BX(T"`5B*%X4RS;3D:M!_T"\@3-)B(H\`5D\RD+UR$%?B
XMP3QD@J`20`5E:(5"C>(`5B?B`20T`5B5(<)KN6"4MX6'MQ$R9)L+YO*FI:M43\4GOAR\AL
XM=5,7JZ/.AENYV*UGT0DJQ_3SP=@>O=/-W`26`5BBPCE)`5BF1,XR\5_`20(!1,`26K1:ZU
XM.RRX#TA(!A8T8"ILS%E*=Z`26C\0C>`20D.9GSP2@V;5E1%,S!G0!7_0(CCO9<M'
XM`5E0$>9_42D`20X!+08?SV-D_P-02P,$%`20`20`20`20`20@`20(VUK`263W%+98`5D`20P`20
V`208`20D`20`20`20L`20
XM`20`20!A<G1I8VQE+G1E>-5536_;,`20R`5D`5EU=P00NT198"VZVW8FN!8BO6`5D0-%`205\4
XMFXFURI(KRDF#S/`5D`5DE"4`5B2=/LZU;D$$NB'LE'\BDES)PT`5EFAY>GU`5B\>GK69-*
XMG>/S4E@G,X4_,UXV27);2(+,E*70.1`20JOD4@-$0SH`20HS.9`268PW@!KL#`5E0(L2
XMP=C$`5BRU3+.'<FO*D`209'G%HE`26<$=23V$N59X)FQ/;@L4*A?/;SK`20S8;,")KSO
XM,8CQDG7P(2Q,#1G'$L("H11;*V7F=44>(5JWT/WW7+K"`20R8>D*TJF8U@(TO`5E
XMU*:%,W/.2VH(.9""J35UU8"2Y$9PX6*,2$D7I<9GUU/0N5HC*1=.`20#EOP5D*
XMUQYGM;6H'52`26I*_)*+FR.).FINVPU`5B`20JX1Q:`5B2EL`20QYC9`20+S41*K`263;>=3!<
XMT'1`26E<AP`5E;$L_4H;;\C.3V$FE.0:+`5B31BY)9..`26<QQ,X`5B3MC`5EW815N\_\'*9
XM*F`26G`26"Z=`26UL*UVS="(BQXT)?Q-A\2?_!P96P?('SW`5E5C#76SLSM'8YQ*O9RA
XM)5ZN\;"RZKFFP'QHR$A`5B;)JN"%286O$08((Z4X9"XSS5QB'W`5ED/7J2W@`20O!9
XM<,/`26N\3`5D`5D!B'9'"+Y$J>#S'%0>/GIS=J.V`20U+@?I?CL;?HJXU`5B*"">'26QK"
XM7BK(`5B8539_F<#KDA4.==MG_-\O>:>X()L+2#YN,O9P_WWZX_WVR#`5BN"W9>VI
XMP_7#5GNR_,!'<@0W<\%'!8J<_`5DB,B9WSCA_7Y(4L3.4,`5D:HF`5DV%,UET,H9>@
XM1US,#9/71.PD8DM6#IX>97B3ZS9IQZEBF?(!+`5D`20-P>O"1`26K6A*!R?=E#-!XA
XMX3S:L_6X*3BF>OR#Y`5B`209AN6$I;"!`20W847!ZV`5E/ZNJ;P`20")5L)+\9_,M:5MPK
XM8XOB,9;DYN`5BR\O3ZX4U4A`26K67+MXDP7I8O_/V3I`5B%F7E-?DWHOSPXH7K7H.Z
XM?3MGPK:/1)2I3/A066TN)NW3:$K9OB`5D)4*%AY"GJ9D\R`5B_AR"_(\`5EWOLF"O+
XMM#LO89FHI!,*%'J":;0SV#:I`26`26'SJIJE:?**D5O9`5B#(9!$6+5F`26Q$V`5E0`5BH??
XMGQQ'5.\_W8_`5D<`5B1M#<>QT'"\TH`5DU@(DQX6,L;!=;\@M02P,$%`20`20`20`20`20@`20)
V`26UK
XM`26?/`5D>CO4`200`20`20>P0`20`20`20H`20`20`20!B;W1T;VTN=`265XC5,`5D;`5DLP$-WY*
VV`5B*$+1VV@X%
XMNK5H`20F0(@A;NQH623A(1?B@DY=A@`5E=`5D`5BHD37B6T@W(`5B'`5D`5D`5BQ/9)`5BK(.TYCK
V`5E
XM>-QL'A\2EZ;!7:QL"%;_K:DJ6_7HO'6@`5B18UFI`208V_320VVU%J;)`5EQY"C`5B`20<
XM##97,Q/8-E>-`5D(,2`5EQ7<!WB12F48'6534PD?@*C='J3)QR/W"CIGQR$!4>92
XMN"!KA0F4`5D(`26(3-DIY,39().O!<`5B,$G`2075HSQK1`5D$C?`26+UG0GWL_5Q\`5D41JZ$
XMZZ8QJA;NK-,BI/06D9N+>`5E`5DG`5ES4*)5N)SE`5D@7/`5E`5E_?`5BSE+#"3IJX)1PFQHV=
XMLC$!<A3/A1.H$$K9%VS`20`26I7M%.:L?7`5E\-!W9(3T`5BP#_`20WHZ+<2=Y%K-;.PG,
XMX"4ZAZ(I_16`5B;S--+XAF`5BJB#NB\!`5EP'K2;.94YZ5_`5E=`26(<ZR+`20L4`5B06<(?D%
XMC$8+`5DU18_!%-AP8=*>`5EAL`5E>X5HRC:8JA`5BX`5BO=B?T0/<X#>\XDV.7EG`5D"P3B$
XMP7HO*X7?+J*7H(.H1I)-40WQZPT=H=#UJ`26ATJT9MXB?JI)C@"LYN<SX_IOGA
XM)\CK:O+AX`208<N`5B'._DU?;>J0,>6O%+=>$ZZG7-.!L,*>AK_P'@B9G2XW8O\`20
XM4$L#!!0`20`20`20`20(`20"1M:QGP*2RZLP$`20`20(,#`20`20`20*`20`20`20`208V%N8V5L+
VG1E>)53P8`5B4
XM,`20R`5DYRN\5`5B0,$GS!LBP2$@Q"`5B(UR<%.WC4B3$J=31J7_CI.TPVJ$$%116`5D=Y
XM?L`5BS:\6DH_'NV7)_=`5BQ_>+`5D6QC7T8`5D'H--F?6J+`5D$X9HM*6;DEJ5>NP-@_;#
XM@*X!>9V8`26H@>R@9`20!QL$8H\1>F2HB1R,GF/9`267N"(\VL`5E"R?A@.\:`5E'LIP`20E
XMAES?M::;@@",$PB"$X#<XNS#MULID39E1HOI).!;`5D81Z-M8*+32`268S#UE)G`5B
XMX*>NS_1;H0.\)HUR`20H`26G!MG4EM157:`203A?->>N?`5E+<!22<_>V?,*:*V?KP`5BY
XM`201UV%,#+NC3(11P,M.O2!C\4%?SLDJC!X4`20W2E4G'E'3\FH81/VJ+`5D'SEQ(N
XME<70D710M_#6AP'CNEXC<G(;\`5B`5D7`5ES2A-:VAP.M_H%Z\N7M\@'1`5D::C%R<:O
XMZ`5D\!QX\)\@>.FCKC%E`26>:565\\F-+D)VW_?<G`26C*(`5EG4)8-IL`5E(-1A+'M%F+
XM-#`5BNL3AA1.;+9%2:#(C`26IS(8Y`5E,!/ONAC`26Q+,#0`5E90"UIC'F01G7L9@K`5DMD%
XMZBF3D15O@;T\MO\B7'R,XJN#JL@U`5EY%`5E`205!+`20P04`20`20`20`20"`20#V7FT9PNCZ,2T
V`26
XM`20`20";$`20`20`20$0`20`20`20`26-O;F9I9W5R871I;VXN=`265XE5A;BQLW%'`5B7KU!A"5D
VPDY:`5E
XME+RU60HAI80T*81,*?*,;"L`5B(TVDF76,._`5E`5DWSF2YF)OV@1"L*6C<_G.=R`5B>
XMLCJHKM?`5E_,+9G=D/7O7`26V;$TMM:?ST/07E;+FW`5E>:ER-0I1!5W1P_LWM3:6:
XM,):-VNKFW.3OD'EH@`5D7'(*$G2"5W`5EBAWIL%G8`5E7Q8*J#`5B`20`5D:LI70Z<KL3(6K
XMG?,M`26Y,FR-`20`5BK`5EM")(_X`5E2A_T8T`5BTK62M0Z5-QW+NQTI##I9.9H`5E6JCU3@U-
XMS\=6M3H\)`5E="IRI`5D_K%MR57KR(#MRZW>`26WONU79HE!_/37?`5EZ7N(C*)LH<)4
XMKAE:>_X!-`5E-YE$_DH\=E*<ZE;N7OB+Z(T`269,"9`20B8DK/WQX0!?Z1FRNDV5D<
XMJUY(NNF5L4`26>W.!EYQU?UJI72>OR:"S6`5DE`5E9IEE9OZ<#V'ZYDX!CV`5EB:S=.Q
XMW*G*-*8_)7DZ@_U\.FZD@A"=$KSXN-7RZ$W?:TM)`5B2D:<N3"A3?5R@%?3:`26S
XMUU-XY+Y46S?T;,<C%P'LU#5\H)=`5B`5BX9NH8F_A`5E`5DF.<3`5EULE`5BK3L.B;6'%KHV
XM3*RH`26\H`26.`5B`5E9-:>8K.LIKD0`5DBJ34MIXX<<F=MPN`26-:Z:J,NY"J=0WE!-6%D;
XMCYIQ/F,`5B7\%KY`20+RXJAL+WLG499VKR.>S@,(HNT44MB0L*R4I>*)QZY!21B`5B
XME`5BD`20OX'CH,,WT?LK6%_>7-.`5EO)EYW\`267/E"H3Y95<J'CDKKE3>;NU7L2O7B`5D
XM9EUY$VEW`5D?)-`5D34I!LX961D.;FCJJ(D440+8+B4'-4($`5ECB$/C:?G':T/-!-
XMX.PDE<_\VLA@;*6GA$Z9UW.`5BD@K,U$U3"/$KV*`20_J`5B9K-"B`5DB\`5E\5CUXK!:V
XMV)T/!07`5EURB5K6%=L;,="B#'W9-'FXE$E6M;$F480T6L-E9G$..W`5B`5EZJ)@N.
XM,+/=R0G="#`5BQOOR`5B-N'`5E`5E8?X`5E>!:#==`26EHX`5E37T`20ME2?$(1):!`5EIP;5=7\C
VW
XM"1-@SG`5B'>LA>HJ2XQ+B$T%+;8C`2665O-,OHA/0JI6;@M?TZ`20W:;QL=1W;FX9O
XM`5EL`26X(8AD:3-W+VI9ZV`266VC+4F-`20UZK1!:SIQ-G+#Z%SH!2-K2%LHY/\V`5BFM`5B
XM,3-U`5B,N%`5E,_IF.$+/%L8WBW/X/JR`5BU`20S+B0()S"Z!`5DAZ=-1.ZKS>P17HX`20#`5E
XM;`20,'(>\,PZ3\:>3\#-N<HM=I9MW-T:?\Y`20PS(X+N,XX9C.41Q7GEO<`5B7`20D'H
XMQV?DNY#BQ,,X!JG3(E'\,0`5D$D4??)J$<.3>ESZ,%:#`5D9X`26`5EQWL!X5`26*ZB5`5D`26
XM01<!U2`20`5B`5B0-0:9;`5BSD8VYCX9X'Y/TL`5BOE853)'`20!X%TDU06`20?Y#ZQ#>Y8-9<
XM233;(D,!`26R`5D)5T!/"`5D<*ZO>KH4/3V_DOPU=A`26-YG/?PE`20@.$6D.A;`5BU3=:6H
XM3WK5=1A>2?A:(C!YKL9N`5DGN<*!.3%.0!%0#/,@ZIOS22Y_P(H%%V3Z>PJ;K`26
XMVT7(?+"9GRF/:4<0T$,Y/XSJ;I=H)0L<*9X?M*I1%ZE`5B)#W`20X/-2310:;U>P
XMIT,AB*F3J/8>1%J(Q0,.-A*40J>Q$'<)`26)WV<(R2H/8HBH@*`5B=4K0KW2I`5EMJ
XMQ*1*K212'AVL4_74<Q!8UK`5E16_3H-)3R)J/J.C+:':U8OHTV\IYY=3$2G=R#
XM`5DK1>4BE@`5B`20%`5BD`2631+N<`5DJ':HJWGC7W60Z.HSV%B/,CZYK*D4Y6OTY4<Z$`5ENC
XMGITU\>?)7!Q<O/IQ;7"I>_UI,)ZAFDJ`5D$%CX6K+1`26QKP`5D$#9<*0."C.!MSTG
XMG:6JTI#$?ZE_?QIT8)<V4A?`5B0C`20_X4!7N%`20@$`5DP151.50`5D`5B9YA1)R58T(.4(
XMH'`5EU1BY'_K.4`5B`20N\\NF";#,OLOOLM6!G75BXBQTWUL#>/`26@`5B+S'7_N<?%HN?
XM;@*`5BTTRT"6?">)J7<85_?IG1=S0A`5BQ);::12+E`5EN21KN3<?C--4GEF`5BTRGF.
XM0`5DU'J"-*`5BF!Z>:4`26Q.D%RB`20F*`5E8J`5EK)>TQG?.,)ALD'I3O`26P?<9+3!Y0;'B>
XM*QT2X`5E)'`260;8S`5D<#>;$=Q<$N=FZPV#$5%;\E0=H3MZ@K`5ED'TY5`26`5DN?Y%"%J)
XMU3:4`20)8E)C_`5BE+9?5DK%\BJ?+?R>?TI2FK`5BX9X;;4?P+4$L#!!0`20`20`20`20(`20/9>
XM;1G(K(62DP@`20`20"<:`20`20`20*`20`20`20`209`265F:6YE+G1E>*U9;8_;N!'`5EKE\Q-1;
V7Y*#5
XM9M,6A`5DL6!=+L!@VN2:Z;O;8!#!QHB;)Y2Y$**:UC`5E/3?.S.D9-EK`5EYQ<`20B2`5B
XMHLCAO#PS\XPR`5D3)OE#7?KJ`5DO7KU`5E>`5D--E2GDIW4A2V5D_`5D1ZZ2"WIE3SU@G:
XMWR7)W4+">NISB'MQ0U4)4T`20M76E=Y:%092F=-`20V4K>%K/"P7T@#**V"IF@7D
XMTC5"F>1C*`5B0JE70>A(?2:FV7_BI)I@`5E`5E%KE<_ZFJ\,JSZ:S56C9GUWPE"+I;
XMM+H!8?P2=6P6H@'EH7:VJAN\1)F@8VU`5DTX%U"3\%`5E6W=P1,OHQ47453W-#MX
XM`5B0OO;:Y$@S<;D!`5D;`5D2"T-+D$WSAEYD#6DTX`5E=ZHF>X.1`20N`5BE"O"I6<@$`20!KI
XM*F6$!E'76N7L4-HRL\(58Y5P;8\ZTT5X.G`5E.C`5ENI%FY.!V8EO$*WBZ;K=D_P
XMRQA@W"DKL'6,XJFBW_$!?U3V!?YX\=._`5BG96?`5BCY0*=J,9<S)\5`5D,MT!W7!N
XM"WQ`5D0'`5B-<;5_17'\@XVZ)$G`20@7\,!`200@"*W1X`5D9+`5E-A*'`5E`20G_#VB8K8ZBHH,
XM!FP/J(`20!H80O1\%W**FQ/=SQ*N43BT\AGAQ`26H;T-@OS"+N$PQ'Y73`20?_C6.+
XM*/O4?$:`20?Q1.5!*A>2C`26`5BPY`209B;GRJP?\*#LDJFQ%"A,`5E?>US,E?GE`20?=?+P
XM1`264RXQ7VREO38!(NI"@H9DKJXBFY=":3Z"I99/`20?='PQ2!!./JH+PZU1F49@
XMP@K7K;76J%.%@E1N=5N9`5D24N=NL.OH`26`5DRX?6IU.L`20GEAFS-X*Y=`5E`5BFQ;>Z#M
XM_?*MK/5J`5EO.=!=A:_PEK9S!P`5EO/E6,`5B`5B=O8+Y@'L`5B'\541A$;<NAD)(4V):#
XM9=>M=N6\M*9Q5@,<T>?Y6,X/<K6TKO`20`5B`5EU_46$P?$.I`5BY`201`5DGF_K<_.IQM1X
XM=.`5EUHB(Y:QF;N+`5BW#XJ92E,,`208Q9;P:7`5DRL`5E.`26_SR#`5BH'`5E`5EC*1C`5BL"!9I
V_ZU
XM"Z%J;+`5D0#C`5B?K.7!?X,($?TP%*F1/=U!0,('VT(NN.51#7!-WC8>;#G*BM@`5D
XM$-HSO"`20+'HCY=#39QNV0DB6FR`26%EJ*SUA;+/IZ7",CF3FY89.S3ULZ.M$_/4
XM4G_?*;V>7H2R2`5B3!AYZ,60O`26-N!;U7`20!3LA`5EO_(-%JRY-%0U<3V*PCHALWD6
XM5*`26-"_%`20/=?B`5BPYNSM\(A<VS*)ST+-`5EP-(N,`20'`5ENV->H!/::`20@@Z`5E.9(4R<@
XMG`5E0Y+JZTNQL7(`5D3-%#I0#0`26>JAYV`5DJ587<%KP\ZCV*;<`5EP`5D(0$M"*V%30S$D
XMXF#;AAH614(%/P3OXT*"3`20N==L49TVNYGF(;`5EM_Y<$L0U5UM-.>><`202M_Y"Y
XM(.\A/GM+8JNK\/6`20VT>U.P5%O"MQDD@@XA?MH7"C30S\*"M?8)/)J<?`20D\G5
XM)#W`5BV`5DG+V`5B._GZ59ECT--A)NN!'X`5B'@T1F%C)UJC5\@X?:W%JD=Q`5D'X*F*8!
XM`26HQ#B?F3_";>80\I"`20*$QO#ZK;`20E%4(1"<`5B`5E\!W-:6ZN=WN;`5D4FME6+:$U#.
XM-2PSK2XHIYEGB`5B"MSU)B1J3P7#V@W<`26#QVO.0<KP`5BYX2'6`20,%W<W;WY\=_OB
XM`5DL/)IMTAB1I1+3`5ER5#1;=D2BAY`20R<`5BF!0"*Q)B`26`5B?)"`5DI9"WCH<0+@4>X\3T
XMC-`5D*Q@<%.Y26NG48?NF??J%';CZ)JM:R.Z$A%'`26$:1%`20?>4L>`5D0%#(Y`20N4V)
XM#XMG+78VA_2/'1,F;U8`5D`5D9@PK`5EDEL360G;`5B$=Y`26F%`5B'0'$_87H`26!.`5E`5D8VS<
VB
XM).=`5DC%EQ5#C9*`26SL,AM\B-'3.D(`20*`5D!?\>\?/?S2`5EN;11)`20=GT!H1MF>/I!#
XM;$T>`5E%R+(OA6`5D?/',!#Z+Y\(AW$PV3<.CF<1`26@>_RAP2;/GJ8P@Y,<2,K.L_
XM!RRDKK_V+()<=107_X65T`5E`20E?4LCC;G`26K!!;2V`26X=P4H9/`20"419`5E%S,M$`5BJ2
XM"XZV.=.6`26$C35M*I/+J78T_+LE!<9<)R-LZ+03#)91U(IR"<(F4>-7`5B0R#NO
XMCN0_`5D:S+`5B`5B*L?/XLA;J\S+*Z_',*`5D_6S++NOOT\))\H6:8A/"@B`5D%ND)GJ4V
XMKF79I(E3\T630ENG4*`202*79D@R>\U)@VV.L-48D4T5<A846)3CXH2U(,QCGE
XMB'=D?J",A>V.`5D/+WMI(CY\+@7,E."65BDW5QJL>L415`26YAV5;9\FRN2Z+89R
XMB=8R08T/WW=IK#1CVUG%L,Y.P.(B.962V<';`5EP81:E!%E2;T*$*/`5D%'`5D$+1`20
XM`5D`5BQLB"U'F`20V??E!L_Q4"=PSK%Z,:T!`26N>,=UCG.(1MJBLW`5B@.70FOA_N"=?_
XM)O`5DX`269+U"Q-IX'4##`5B%QI,BQW?8<BS*KCI2='94E-Q@V8GP\#(2CZ+N/K6U"
XM\<*A`5BIZX(DSXNP"=ENZ!""6JZ#E`5EF!;2Y<++9,,N=`5BOWIO"SL?\\6)%.LI;@
XM'5E7GZ(<)5Z/I37@@\<6Q),<F7F*G96XIX`5E;N47B@AVS<=C#=-AIRX0*_$@)
XMQ*-7B-70*4JNTSW<1JJ`266QFQ`26)K`20_H1/#GUJ??PEY?,`5EI#`20_X.1/.1F_@0FG
+-+-+-+-+-+-+-+-  END  OF PART 1 +-+-+-+-+-+-+-+-