╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   ¤   4■   ■    ■   & !"#$%'()*+,-./01235■   67■                                                                                                                                                                                                                                                                                                   Root Entry        аЧсb╬ку`М╠%о`9▓ ╠─@BibItem.DES    ,BibItem.SRC            (+BIBITEM.BIN            Ы8■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               Creates 949 strings for bib and item recordsISRMB44 Connex.Client commmode blockcolumns fdxcolumnsgettextinregionDNonejanfebmaraprmayjunjulaugsepoctnovdecckculcacccfcfccrsshrfcrcdcrmvflfsrlfakaalaraskekseerikirpsirnnetnetbkbmlbacdsuscul)+ET$(Counter) Counter=Counter+1 Loop Dim ST$(6) ST$(0)="-" ST$(1)="f" ST$(2)="o" ST$(3)="i" ST$(4)="p" ST$(5)="x" ST$(6)="XXX" Dim STChoices$ STChoices$=ST$(0) Counter=1 Do While ST$(Counter)<>"XXX" STChoices$=STChoices$+Chr$(9)+ST$(Counter) Counter=Counter+1 Loop '**These are the bound with choices for type of cataloging Dim BW$(6) BW$(0)="1" BW$(1)="2" BW$(2)="3" BW$(3)="4" BW$(4)="5" BW$(5)="6" BW$(6)="XXX" Dim BWChoices$ BWChoices$=BW$(0) Counter=1 Do While BW$(Counter)<>"XXX" BWChoices$=BWChoices$+Chr$(9)+BW$(Counter) Counter=Counter+1 Loop '**These are the bound with choices for subject analysis Dim BS$(6) BS$(0)="1" BS$(1)="2" BS$(2)="3" BS$(3)="4" BS$(4)="5" BS$(5)="6" BS$(6)="XXX" Dim BSChoices$ BSChoices$=BS$(0) Counter=1 Do While BS$(Counter)<>"XXX" BSChoices$=BSChoices$+Chr$(9)+BS$(Counter) Counter=Counter+1 Loop '**These are the bound with choices for enhance Dim BE$(6) BE$(0)="1" BE$(1)="2" BE$(2)="3" BE$(3)="4" BE$(4)="5" BE$(5)="6" BE$(6)="XXX" Dim BEChoices$ BEChoices$=BE$(0) Counter=1 Do While BE$(Counter)<>"XXX" BEChoices$=BEChoices$+Chr$(9)+BE$(Counter) Counter=Counter+1 Loop Dim VolChoices$ VolChoices$="None"+Chr$(9)+"1"+Chr$(9)+"2"+Chr$(9)+"3"+Chr$(9)+"4"+Chr$(9)+"5" VolChoices$=VolChoices$+Chr$(9)+"6"+Chr$(9)+"7"+Chr$(9)+"8"+Chr$(9)+"9" Dim CopyChoices$ CopyChoices$="None"+Chr$(9)+"1"+Chr$(9)+"2"+Chr$(9)+"3"+Chr$(9)+"4"+Chr$(9)+"5" CopyChoices$=CopyChoices$+Chr$(9)+"6"+Chr$(9)+"7"+Chr$(9)+"8"+Chr$(9)+"9" '**Defines box for inputting choices defined above Begin Dialog ItemLocation 436, 200 Caption "Create Item Record" Text 20, 14, 40, 16, "Item Loc" ListBox 16, 24, 40, 170, ILocChoices$, .ILoc Text 73, 14, 40, 24, "Volume #" ListBox 68, 24, 40, 156, VolChoices$, .Vol Text 125, 6, 40, 24, "Type of Cataloging" ListBox 120, 24, 40, 63, CTChoices$, .CT Text 123, 88, 40, 24, "Bound With for Cat" ListBox 120, 107, 40, 57, BWChoices$, .BW'MacroName:BibItem 'MacroDescription:Creates 949 strings for bib and item records 'Programmed by: Jim Ferguson ' Catalog Dept ' UCSD Libraries 'Revised 040607 by: Jim Soe Nyun ' Catalog Dept ' UCSD Libraries 'Revised 041116 by: Ryan J. Finnerty ' Catalog Dept ' UCSD Libraries '**Gets OCLC line number and screen line number for line containing "Ftext$" Sub GetLineNo(FText$,LineNo$,Counter%) On Error Goto Handler Dim CS As Object Set CS = CreateObject("Connex.Client") Dim Columns as Integer If CS.CommMode = BLOCK Then Columns=CS.BlockColumns Else Columns=CS.FDXColumns End If Counter=0 Do Until NewLn$=FText$ or Counter>25 Counter=Counter+1 CS.GetTextInRegion Ln$,Counter,1,Counter,Columns NewLn$=Left$(LTrim$(Mid$(Ln$,8)),Len(FText$)) Loop If Counter>25 Then LineNo$="None" Else LineNo$=Trim$(Mid$(Ln$,2,5)) End If Goto EndRoutine Handler: Resume EndRoutine EndRoutine: end sub sub main On Error Goto Handler Dim CS as Object set CS = CreateObject("Connex.Client") Dim PacBib$ Dim Counter,Cntr as Integer Dim MTable$(1 To 12) MTable$(1)="jan" MTable$(2)="feb" MTable$(3)="mar" MTable$(4)="apr" MTable$(5)="may" MTable$(6)="jun" MTable$(7)="jul" MTable$(8)="aug" MTable$(9)="sep" MTable$(10)="oct" MTable$(11)="nov" MTable$(12)="dec" '**Date$ is in format: mm-dd-yyyy ' '**Converts two-digit numerical month to three-letter code for autostats Mth$=MTable$(Val(Left$(Date$,2))) Yr$=Right$(Date$,2) '**Defines choices for item locations, and corresponding bib locations Dim ILoc$(20), BLoc$(20) ILoc$(0)="ck" : BLoc$(0)="cul" ILoc$(1)="ca" : BLoc$(1)="cul" ILoc$(2)="cc" : BLoc$(2)="cul" ILoc$(3)="cf" : BLoc$(3)="cul" ILoc$(4)="cfc" : BLoc$(4)="cul" ILoc$(5)="cr" : BLoc$(5)="sshrf" ILoc$(6)="crcd" : BLoc$(6)="sshrf" ILoc$(7)="crmvf" : BLoc$(7)="sshrf" ILoc$(8)="lf" : BLoc$(8)="srlf" ILoc$(9)="ak" : BLoc$(9)="aal" ILoc$(10)="arask" : BLoc$(10)="aal" ILoc$(11)="ek" : BLoc$(11)="se" ILoc$(12)="er" : BLoc$(12)="se" ILoc$(13)="ik" : BLoc$(13)="irps" ILoc$(14)="ir" : BLoc$(14)="irps" ILoc$(15)="nnet" : BLoc$(15)="net" ILoc$(16)="bk" : BLoc$(16)="bml" ILoc$(17)="ba" : BLoc$(17)="bml" ILoc$(18)="cdsus" : BLoc$(18)="culd" ILoc$(19)="sk" : BLoc$(19)="sio" ILoc$(20)="XXX" : BLoc$(20)="XXX" '**Creates string formatted for use as a "listbox" Dim ILocChoices$ ILocChoices$ = ILoc$(0) Counter=1 Do While ILoc$(Counter)<>"XXX" ILocChoices$=ILocChoices$+Chr$(9)+ILoc$(Counter) Counter=Counter+1 Loop Dim SA$(2) SA$(0)="None" SA$(1)="rjf" SA$(2)="XXX" Dim SAChoices$ SAChoices$ = SA$(0) Counter=1 Do While SA$(Counter)<>"XXX" SAChoices$=SAChoices$+Chr$(9)+SA$(Counter) Counter=Counter+1 Loop Dim CatType$(7) CatType$(0)="cop" CatType$(1)="tc" CatType$(2)="ip" CatType$(3)="in" CatType$(4)="cfc" CatType$(5)="cfp" CatType$(6)="cfn" CatType$(7)="XXX" Dim CTChoices$ CTChoices$=CatType$(0) Counter=1 Do While CatType$(Counter)<>"XXX" CTChoices$=CTChoices$+Chr$(9)+CatType$(Counter) Counter=Counter+1 Loop Dim MatType$(6) MatType$(0)="m" MatType$(1)="s" MatType$(2)="c" MatType$(3)="p" MatType$(4)="g" MatType$(5)="h" MatType$(6)="XXX" Dim MTChoices$ MTChoices$=MatType$(0) Counter=1 Do While MatType$(Counter)<>"XXX" MTChoices$=MTChoices$+Chr$(9)+MatType$(Counter) Counter=Counter+1 Loop Dim IT$(17) IT$(0)="0" IT$(1)="2" IT$(2)="4" IT$(3)="6" IT$(4)="7" IT$(5)="10" IT$(6)="11" IT$(7)="12" IT$(8)="13" IT$(9)="14" IT$(10)="15" IT$(11)="33" IT$(12)="35" IT$(13)="36" IT$(14)="43" IT$(15)="45" IT$(16)="49" IT$(17)="XXX" Dim ITChoices$ ITChoices$=IT$(0) Counter=1 Do While IT$(Counter)<>"XXX" ITChoices$=ITChoices$+Chr$(9)+IT$(Counter) Counter=Counter+1 Loop Dim ET$(4) ET$(0)="None" ET$(1)="ceh" ET$(2)="seh" ET$(3)="eeh" ET$(4)="XXX" Dim ETChoices$ ETChoices$=ET$(0) Counter=1 Do While ET$(Counter)<>"XXX" ETChoices$=ETChoices$+Chr$(9 Text 177, 6, 40, 24, "Subject Analysis" ListBox 172, 24, 40, 63, SAChoices$, .SA Text 175, 88, 40, 24, "Bound With for SA" ListBox 172, 107, 40, 57, BSChoices$, .BS Text 229, 14, 40, 16, "Enhance" ListBox 224, 24, 40, 63, ETChoices$, .ET Text 227, 88, 40, 24, "Bound With for Enh" ListBox 224, 107, 40, 57, BEChoices$, .BE Text 279, 14, 40, 16, "Item Status" ListBox 276, 24, 40, 63, STChoices$, .ST Text 281, 88, 40, 24, "Material Type" ListBox 276, 107, 40, 57, MTChoices$, .MT Text 333, 14, 40, 24, "Copy #" ListBox 328, 24, 40, 156, CopyChoices$, .Copy Text 385, 14, 40, 16, "Item Type" ListBox 380, 24, 40, 170, ITChoices$, .IT OkButton 135, 170, 60, 20 CancelButton 241, 170, 60, 20 End Dialog dim IChoice as ItemLocation DisplayDialog: dialog IChoice dim BC$ ScanBC$="Please scan the barcode (press enter if no barcode)" Begin Dialog BCBox 150,90 Caption "BARCODE ENTRY" Text 10,10,130,25,ScanBC$ TextBox 45,40,60,12,.BC OkButton 30,65,30,15 CancelButton 90,65,30,15 End Dialog Dim BCEnt as BCBox Dialog BCEnt BC$=BCEnt.BC EnterBib: EB1$="Please enter the bib number (Do not input .b before the number)"+Chr$(13) EB2$=Chr$(13)+"Just press if you are not overlaying" EnterBib$=EB1$+EB2$ Begin Dialog BibBox 150,90 Caption "BIB NUMBER ENTRY" Text 10,10,130,25,EnterBib$ TextBox 45,40,60,12,.Bib OkButton 30,65,30,15 CancelButton 90,65,30,15 End Dialog Dim BibEnt as BibBox Dialog BibEnt PacBib$=BibEnt.Bib '**Checks to see that leftmost character is numeric If IsNumeric(Left$(PacBib$,7))<>-1 and PacBib$<>"" Then FmtError$="Bib. record number is not valid." FmtError$=FmtError$+Chr$(13)+"Please press and reenter number." FmtError$=FmtError$+Chr$(13)+"Remember--do NOT include "".b""" MsgBox FmtError$,0,"ERROR--INCORRECT FORMAT" Goto EnterBib End If '**Length of bib. record number must be eight digits If Len(PacBib$)<>8 and PacBib$<>"" Then LengthError$="The bib. record number must be eight characters." LengthError$=LengthError$+Chr(13)+"Press and reenter number." MsgBox LengthError$,0,"ERROR--INCORRECT LENGTH" Goto EnterBib End If '**Finds call number field to generate 949 for item record. First looks for '** 099, then 090, and finally 050; or for BMD and MCL for 096, 060, 099, 090, then 050. Dim RawCallNumb,ItemCallNumb,MARCTag as String If (BLoc$(IChoice.ILoc)="bml" or BLoc$(IChoice.ILoc)="mcl") and CS.GetField$("096", 1, RawCallNumb)=TRUE Then ItemCallNumb=Mid$(RawCallNumb, 6) MARCTag$="096" ElseIf (BLoc$(IChoice.ILoc)="bml" or BLoc$(IChoice.ILoc)="mcl") and CS.GetField$("060", 1, RawCallNumb)=TRUE Then ItemCallNumb=Mid$(RawCallNumb, 6) MARCTag$="060" ElseIf CS.GetField$("099", 1, RawCallNumb)=TRUE Then ItemCallNumb=Mid$(RawCallNumb, 6) MARCTag$="099" ElseIf CS.GetField$("090", 1, RawCallNumb)=TRUE and Left(RawCallNumb, 6)<>("090 ") Then ItemCallNumb=Mid$(RawCallNumb, 6) MARCTag$="090" ElseIf CS.GetField$("050", 1, RawCallNumb)=TRUE Then ItemCallNumb=Mid$(RawCallNumb, 6) MARCTag$="050" Else MsgBox "You must supply a call number, then run this macro again." Goto EndMacro End If '**Generates 949 for bib. record Dim BibNumb as String If PacBib$<>"" then BibNumb$=("ov-.b" & PacBib$ & ";") Else BibNumb$="" If (IChoice.Vol=0 or IChoice.Vol=1) and (IChoice.Copy=0 or IChoice.Copy=1) Then CS.AddField 1, "949 1*recs-b;bn-" & BLoc$(IChoice.ILoc) & ";b1-" & MatType$(Ichoice.MT) & ";" & BibNumb$ end if '**Generates 949 for item record using call number field Dim ItemCopy,ItemVol as String If (IChoice.Vol=0 or IChoice.Vol=1) and (IChoice.Copy=0 or IChoice.Copy=1) then ItemNote$="cat" & Mth$ & Yr$ & ";rjf;" & BW$(IChoice.BW) & ";" & CatType$(IChoice.CT) end If If IChoice.SA<>SANone then ItemNote2$="cat" & Mth$ & Yr$ & ";" & SA$(IChoice.SA) & ";" & BS$(IChoice.BS) & ";sa" Else ItemNote2$="" end If If IChoice.ET<>ETNone then ItemNote3$="cat" & Mth$ & Yr$ & ";rjf;" & BE$(IChoice.BE) & ";" & ET$(IChoice.ET) Else ItemNote3$="" end If If ILoc$(IChoice.ILoc)="nnet" then ICTRLCD$="n" ElseIf ILoc$(IChoice.ILoc)="lf" then ICTRLCD$="l" Else ICTRLCD$="" End IF If IChoice.Copy<>0 Then ItemCopy=CStr(IChoice.Copy) If IChoice.Vol<>0 Then ItemVol$=CStr(IChoice.Vol) CS.AddField 1, "949 " & Chr(223) & "z " & MARCTag$ & " " & Chr(223) & "a " & ItemCallNumb & " " & Chr(223) & "t " & IT$(IChoice.IT) & Chr(223) & "n " & ItemNote$ & " " & Chr(223) & "n " & ItemNote2$ & " " & Chr(223) & "n " & ItemNote3$ & " " & Chr(223) & "l " & ILoc$(IChoice.ILoc) & " " & Chr(223) & "i " & BC$ & " " & Chr(223) & "s " & ST$(IChoice.ST) & " " & Chr(223) & "g " & ItemCopy & " " & Chr(223) & "e " & ItemVol$ & Chr(223) & "r " & ICTRLCD$ CS.Reformat Goto EndMacro Handler: Resume EndMacro EndMacro: end sub onХ┌e* BCBCBox]Eж, BibBibBoxobject0 Б CreateObject ┘┘·ЇyР 4Б╥7)_______________*#А ш_TRUE ╢  :|ь█0АААА ААААА А$А(А,7ILocVolCTBWSABSETBESTMTCopyITItemLocationХ┌e* BCBCBox]Eж, BibBibBoxobject0 Б CreateObject ЕЕ·ЇyР 4Б╥7)Й~╡ /√╨шkv$ / √╛(! t /4√╛(! GД─ !Д╠ ohq─ `[@uк─ H+Д─ !/DPД─ PH┼Д─ P(PЦ | Д╠ r¤NvЯ(||OЙNВNNt}t4 ─ `[v\Д╚ o}qt4 ||LIЙNБN╧Д╚ o}qtВ!z$ $y;─ Бш#7)Й~╡ dHН} lIН} tJН} |KН}ДLН}МMН}ФNН}ЬOН}дPН}мQН}┤RН}╝SН} |I|NNtN╒лН}|I|NNй }─G(Н}╠G0Н} ╘H(Н} ╠H0Н}!▄I(Н}!╠I0Н}"фJ(Н}"╠J0Н}#ьK(Н}#╠K0Н}$ЇL(Н}$№L0Н}%M(Н}%№M0Н}& N(Н}&№N0Н}'O(Н}'O0Н}($P(Н}(,P0Н})4Q(Н}),Q0Н}*<R(Н}*DR0Н}+LSISRMB44 Connex.Client commmode blockcolumns fdxcolumnsgettextinregionDNonejanfebmaraprmayjunjulaugsepoctnovdecckculcacccfcfccrsshrfcrcdcrmvflfsrlfakaalaraskekseerikirpsirnnetnetbkbmlbacdsusculdsksioXXXrjfcoptcipincfpcfnmscpgh02467101112131415333536434549cehseheeh-foix13589Create Item RecordItem LocVolume #Type of CatalogingBound With for CatSubject AnalysisBound With for SAEnhanceBound With for Enh Item Status Material TypeCopy # Item TypeF_ILoc_Vol_CT_BW_SA_BS_ET_BE_ST_MT_Copy_IT__3Please scan the barcode (press enter if no barcode) BARCODE ENTRY _BC__?Please enter the bib number (Do not input .b before the number),Just press if you are not overlayingBIB NUMBER ENTRY _Bib__ Bib. record number is not valid.(Please press and reenter number.Remember--do NOT include ".b"ERROR--INCORRECT FORMAT0The bib. record number must be eight characters.!Press and reenter number.ERROR--INCORRECT LENGTHmcl   getfieldB096060099090090 0509You must supply a call number, then run this macro again.ov-.b;949 1*recs-b;bn-;b1- addfieldAcat;rjf;;sanl949 z  a t n l i s g e r reformatДn`` ZZlljj^^\\``bbddffnnhhGetLineNomainн оОQ/ЇА ╫ ╟А( (FTextLineNoCounter#_CSBLOCKColumnsNewLnLn___g[╛Т1╞ $Ю╫ ╟@ @(@08@(@HP@X`@hp@xА@ИР@Ша@ и░@ ╕└@ ╚╨╪ршЁ° (08@"H XP"X p`hpx"А xИАРРа░Ш└╨аи░р╕Ё└╚╨ 0@P`pАРа░└╨рЁ 0HXhxРа░└╪ш° 0@PhxИШ░└╨р°(@P`pИШи╕╨рЁ(8H`pАРи╕╚рЁ(8HXhxРа░└U_CSMTableMth_YrILocBLocILocChoicesCounter__SASAChoicesCatTypeCTChoicesMatTypeMTChoicesITITChoicesETETChoicesSTSTChoicesBWBWChoicesBSBSChoicesBEBEChoices____________VolChoicesCopyChoices_IChoiceScanBC_BCEntBCEB1EB2EnterBib_BibEntPacBib_FmtError___LengthErrorRawCallNumbItemCallNumbMARCTagBibNumbItemNoteSANoneItemNote2ETNoneItemNote3ICTRLCDItemCopyItemVol_____________________________________________________________________(Н}+DS0Н},TT(Н},\T0Н}-dU(Н}-\U0Н}.lV(Н}.tV0Н}/|W(Н}/ДW0Н}0МX(Н}0ДX0Н}1ФY(Н}1ЬY0Н}2дZ(Н}2мZ0Н}3┤[(Н}3┤[0Н}7G(Н8}8H┼╙9╨╛(Н┤gvN:8|PN {╨╛(Н{@8};╨H┼▐(╙<tЦ ?\GHН}@╝HHН}A┤IHН}DGHНP}EH┼╙F╨╛HН┤gvNGP|PN {╨╛HН{@P}H╨H┼▐(╙ItЦ L─GXН}M╠HXН}N╘IXН}O▄JXН}PьKXН}QфLXН}RьMXН}S┤NXН}VGXН`}WH┼╙X╨╛XН┤gvNY`|PN {╨╛XН{@`}Z╨H┼▐(╙[tЦ ^ЇGhН}_°HhН}`№IhН}aJhН}bKhН}cLhН}d┤MhН}gGhНp}hH┼╙i╨╛hН┤gvNjp|PN {╨╛hН{@p}k╨H┼▐(╙ltЦ o GxН}pHxН}qIxН}rJxН}sKxН}t LxН}u(MxН}v0NxН}w8OxН}x@PxН}yHQxН}zPRxН}{XSxН}|`TxН}}hUxН}~pVxН}xWxН}А┤XxН}ГGxНА}ДH┼╙Е╨╛xН┤gvNЖА|PN {╨╛xН{@А}З╨H┼▐(╙ИtЦ М\GИН}НАHИН}ОИIИН}ПРJИН}Р┤KИН}УGИНР}ФH┼╙Х╨╛ИН┤gvNЦР|PN {╨╛ИН{@Р}Ч╨H┼▐(╙ШtЦ ЭШGШН}ЮЬHШН}ЯаIШН}адJШН}бKШН}виLШН}г┤MШН}жGШНа}зH┼╙и╨╛ШН┤gvNйа|PN {╨╛ШН{@а}к╨H┼▐(╙лtЦ ▒мGиН}▓HиН}│░IиН}┤JиН}╡┤KиН}╢LиН}╖┤MиН}║GиН░}╗H┼╙╝╨╛иН┤gvN╜░|PN {╨╛иН{@░}╛╨H┼▐(╙┐tЦ ─мG╕Н}┼H╕Н}╞░I╕Н}╟J╕Н}╚┤K╕Н}╔L╕Н}╩┤M╕Н}═G╕Н└}╬H┼╙╧╨╛╕Н┤gvN╨└|PN {╨╛╕Н{@└}╤╨H┼▐(╙╥tЦ ╫мG╚Н}╪H╚Н}┘░I╚Н}┌J╚Н}█┤K╚Н}▄L╚Н}▌┤M╚Н}рG╚Н╨}сH┼╙т╨╛╚Н┤gvNу╨|PN {╨╛╚Н{@╨}ф╨H┼▐(╙хtЦ щ\|PN {м{@╪|PN {р8{шЁ|PN {°@░{|PN {H{ |PN {(P┤{08}ъ8|PN {{@╪|PN {р{шЁ|PN {°8╕{|PN {@╝{8}э\|PN {м{@╪|PN {р8{шЁ|PN {°@░{|PN {H{ |PN {(P┤{0@}ю@|PN {{@╪|PN {р{шЁ|PN {°8╕{|PN {@╝{@}їH╚┤АА  N ЎHRАААА └ЙАN°HHW(U[ ╪ЙАN∙HMк(_W 8ЙGN√HH_(UI фЙАN№HMЬ(_D 8ЙKN■HH_(M} ЁЙАN HM?(_x `ЙONHH_(X{ ЙАNHM9(kx ░ЙSNHH_(M▒  ЙАNHM?(_м PЙWNHH_(Xп 4ЙАNHM9(kм └Й[N HHW(Uх HЙАN HM?(_р РЙ_N HH_(Xу TЙАNHM9(kр ╨ЙcNHHW(U lЙАNHM?(_ аЙ NHH_(X |ЙАNHM9(k pЙ$NHH_(UM МЙАNHMЬ(_H @Й(NHHW(UБ ШЙАNHMк(_| АЙ,NHO[<кЗ ЙАNHP[<кё ЙАNдЙHN6"HXN%ЁP}&XZЦАА  N 'XRАААА (ЙАN(XH`ВQQ PЙАN)XIS<(- ЙGN*XOVeAe ЙАN+XPVeAZ ЙАN,8ЙXN6.XpN0p`}3H|TN {h}4|TN М{p}5hp{x}7АZЦАА  N 8АRАААА ╝ЙАN9АH`ВQQ xЙАN:АIS<(- ЙGN;АOVeAe ЙАN<АPVeAZ ЙАN=╨ЙАN6?АxNAxИ}EG|NИNt╦(╧АNo  oИg>vаFрР}GР|TN {{@Р}HР|TN {0{@Р}IGPЙ╦(╧АG┼╧РР╦а╧░NО$Jtд¤KN ИNvpИg>vДOlШ}PШ╦А(TTN╓цРа╦ац░─Ш}QG─Й╦(╧АG┼╧РШ╦а╧░NО$RtЎ№SX X0НДh X0Нрh@┼/8ь@№╦(H┼└P √  ┼шюkv<Y|M╨└─NВ╦(╨╙Z№а}[tD[ X0НДh X0Нрh@┼/8ь@╦(H┼└P √  ┼шюkv<\|M╨└─NВ╦(╨╙]а}^tж^/ь ╦(H┼└P √  ┼шkv<_|M╨└─NВ╦(╨╙` а}at2a/ь╦(H┼└P √  ┼шАTM└Nu╓8╦Рчюkv<b|M╨└─NВ╦(╨╙cа}dtЬd/ь(╦(H┼└P √  ┼шkv<e|M╨└─NВ╦(╨╙f(а}gt(hG0Й╦(╧АNП$it(jnИgv*nlИ{t{и}nt nи}o{4Gj{4Hj@{8Gj{8Hj@>vZp/@ФH┼x X0Н{М{{<hН{@8t{╪и{р╦(qu{4Gj{4Hj@{8Gj{8Hj@>vPvд{ {м{@{@иН{╪8t{р{DXН{ш░}wx{H┼╨рчkvbyд{ {t{@{HBIBITEM.BIN            ■                                       HН{╪8t{р{L╕Н{ш@┤{Ё╕}zt {╕}|}{P┼╨ЁчkvX~д{ {м{@{T╚Н{╪8t{р{PИН{ш└}t А└}БВ X(НlhvГ╝╚}Дt>Д X(НhvЕ└╚}Жt З╚}ИЙ{8GovЙ{8Ю╦(╙К{4GovК{4Ю╨}Л/╨ФH┼─╦А(T▀N╓цР╨╦ац░а╦ц 8╪╦0ц@PT▀N╓ц`@▄╦pцА╨╨цРH╪╦ац░└T▀N╓ц╨Pф╦рцЁ{XxН╦ц T▀N╓ц0@ь╦HцX░╦hцxИ╪╦Рца░T▀N╓ц└╨ь╦╪цш╕╦°ц╪╦ ц0@T▀N╓цP`ь╦hцx└╦ИцШи╪╦░ц└╨T▀N╓црЁЇ╦°ц X(Н╦ц(8╪╦@цP`T▀N╓цpА№╦ИцШ`╦иц╕╚╪╦╨црЁT▀N╓ц╦ц({\ШН╦8цHX╪╦`цpАT▀N╓цРа ╦иц╕╨ц╚╪╪╦рцЁT▀N╓ц ╦(ц8╨╦HцXhT▀N╓цxИ╦Рца╚╦░ц└Н/$ПtТВХz