ࡱ> | { @ (%Jbjbj p  P)P)P)8Tfj)d*d*d*d*?+N+4+>'eeeeee$hRlj f] -?+?+ - - fd*d*jf/// -d*d*>/ ->//2K9_;d*Ö =4P)#-:.;f0f ;R k9-t k\_; km;l+>,,/G,$k,+++ f f$ / ADOPTION ASSISTANCE INTENT STATEMENT Michigan Department of Human ServicesChild s Name: FORMTEXT      Birthdate: FORMTEXT      (Last, First, Middle)Instructions: Prospective adoptive parents Sign In One Section Only. This form may not be altered.Section 1: Requesting Adoption Assistance (Adoption Support Subsidy and/or Nonrecurring Adoption Expenses)I have received the Michigans Adoption Subsidy Programs brochure (DHS-PUB-538). If I am approved for adoption of the child named on this Intent Statement, I am requesting a determination of eligibility for Adoption Support Subsidy and associated Medicaid benefits and Nonrecurring Adoption Expenses because I cannot adopt the child without Adoption Assistance. I understand that in order to be eligible for Adoption Assistance the following must be completed before the final Order of Adoption is signed by the court: The child must be determined eligible for the adoption assistance program(s) by the Department of Human Services (DHS) Adoption Subsidy office, And 2. An Adoption Assistance Agreement (DHS-4113) must be negotiated and signed by the prospective adoptive parent(s) and the Department of Human Services (DHS) designee. Signature of prospective adoptive parentPrinted NameDate FORMTEXT       FORMTEXT      Signature of prospective adoptive parent (if 2 parents)Printed NameDate FORMTEXT       FORMTEXT      Complete Mailing Address (Number/Street, City, State, Zip Code) FORMTEXT      Section 2: Not Requesting Adoption AssistanceI have received the Michigans Adoption Subsidy Programs brochure (DHS-PUB-538). Whether or not I am approved for adoption of the child named on this Intent Statement, I am not requesting a determination of eligibility for Adoption Support Subsidy and associated Medicaid benefits. I understand that if I am requesting a determination of eligibility for the Nonrecurring Adoption Expenses Program only, a Nonrecurring Adoption Expenses Application (DHS-4814) must be completed and submitted by my adoption worker.Signature of prospective adoptive parentPrinted NameDate FORMTEXT       FORMTEXT      Signature of prospective adoptive parent (if 2 parents)Printed NameDate FORMTEXT       FORMTEXT      Complete Mailing Address (Number/Street, City, State, Zip Code) FORMTEXT       AUTHORITY: 1939 PA 280 COMPLETION: Voluntary. PENALTY: Support subsidy eligibility will not be determined.Department of Human Services (     N R X r      9 z  (  ) . 8 J sokch)h)5h)h.)=h+}~h+}~5@CJRHcaJh+}~hb5@CJRHcaJh+}~hb5@h+}~hb5@RHbh+}~hb5@RHb hb5 hbCJj<hbUjhbUjh{nfUmHnHujh/Uh+}~jh+}~Uhbh~9l#L _+!oici!c-$If0$If<kdb$$If94`+++4 9af4 $If:kd$$If94+++4 9af4'$If*$If I$Ji " $ P R v!S 0$$Ifa$  =$Ifukd$$If94\M+ +4 9af4R T V X  UO1$If<kd6$$If94+++4 9af4 $Ifbkd$$If94FM++    4 9af4  { | yiV+!YV+!V+!I0$ & F$Ifa$gd.)=0$ & F$Ifa$gd.)=0$ & F$Ifa$gd.)=<kd$$If94P+++4 9af4 0$$Ifa$gd.)=<kd$$If94+++4 9af4J U a b c p    "$&0246JLNXZ\bdf"$&(<>@JLNRҿʱҦʱʜҜ֘ҍʱ҂ʱʜj4 h -$Ifgd@»·謡wljh -$Ifgd@B /$If]/akd$$If94F"+``+    4 9a-$If@BD(*,0246HIIII#J$J%JXXX&X(X~jhh"AUhh"Ajhh"AUh{nfhS1h)U h+}~h+}~h+}~jh=<;:987654i(&P/ =!"#$%`$$If!vh5+#v+:V 94+5+44 9af4d$$If!vh5+#v+:V 94`+5+44 9af4tD,Text8tD Text2$$If!vh5555 #v#v#v#v :V 94+,5555 / / / / 44 9af4$$If!vh555#v#v#v:V 94+555/ 44 9af4d$$If!vh5+#v+:V 94+5+44 9af4d$$If!vh5+#v+:V 94+5+44 9af4x$$If!vh5+#v+:V 94P+,5+/ 44 9af4x$$If !vh5+#v+:V 94+,5+/  44 9af4z$$If !vh5+#v+:V 9p+5+/  / 44 9a$$If !vh555#v#v#v:V 94+555/ /  / / / 44 9af4tDBText7tD Text3$$If !vh555#v#v#v:V 94+++555/ / / / / 44 9a$$If !vh555#v#v#v:V 94+++555/ /  / / / 44 9a$$If !vh555#v#v#v:V 94+555/ /  / / / 44 9af4tDBText7tD Text4$$If !vh555#v#v#v:V 94+++555/ / / / / 44 9a$$If !vh555#v#v#v:V 94+++555/ /  / / / 44 9a|$$If !vh5+#v+:V 94+5+/ /  44 9af4tDText6l$$If !vh5+#v+:V 9 +5+/ 44 9a$$If!vh5*5#v*#v:V 94P+,5*5/ 44 9af4$$If !vh5+#v+:V 94`+,5+/  / 44 9af4z$$If !vh5+#v+:V 9p+5+/  / 44 9a$$If !vh555#v#v#v:V 94+555/ /  / / / 44 9af4tDBText7tD Text3$$If !vh555#v#v#v:V 94+++555/ / / / / 44 9a$$If !vh555#v#v#v:V 94+++555/ /  / / / 44 9a$$If !vh555#v#v#v:V 94+555/ /  / / / 44 9af4tDBText7tD Text4$$If !vh555#v#v#v:V 94+++555/ / / / / 44 9a$$If !vh555#v#v#v:V 94+++555/ /  / / / 44 9a|$$If !vh5+#v+:V 94+5+/ /  44 9af4tDText6l$$If !vh5+#v+:V 9 +5+/ 44 9ar$$If!vh5+#v+:V 9+,5+/ 44 9a$$If!vh55#v#v:V 94+55/ 44 9af4DGranteeFirstName=Enter the Grantee's First Name (and Middle Initial, if known)GranteeLastNameTDAddress1 UppercasedEnter the Addressee:8@8 Normal_HmH sH tH B@B Heading 3 $<5CJDA@D Default Paragraph FontVi@V  Table Normal :V 44 la (k(No List POP BLANKLINEdx5CJOJQJkHTOT Captions 6ptd(CJ OJQJkHDOD Captions 6pt bold5`O"` Captions 6pt boxd<5CJ OJQJkHDO2D Captions 6pt Nbox<DOBD Captions 7pt dtCJDOARD Captions 7pt Bold5BOqbB Captions 7pt box5^Or^ Captions 7pt NBoxdt<CJOJQJkHPOP Captions 8pt d`CJOJQJkH^O^ Captions 8pt Bold d`5CJOJQJkHFOF Captions 8pt box <DOD Captions 8pt NboxPPOP Captions 9pt dLCJOJQJkHJOJ Captions 9pt BolddLCJFOF Captions 9pt Box dDOD Captions 9pt Nbox5POP Captions 10pt d`( OJQJkH^O^ Captions 10pt Bold!d`(5OJQJkHXO"X Captions 10pt box"d`P OJQJkHHO2H Captions 10pt Nbox#P5J @BJ Footer$dt !CJOJQJkHRORR Form Title 10pt%$d8a$ OJQJkH^Ob^ Form Title 10pt Bld&$d8a$5OJQJkHVOrV Form Title 11pt'$d$a$CJOJQJkHLOaL Form Title 11pt Bld(d$CJVOV Form Title 12pt)$da$CJOJQJkHbOb Form Title 12pt Bld*$da$5CJOJQJkH4@4 Header + !HOH Small Blank Line ,CJXOX User Input 10pt-d8(5OJQJkHTOT User Input 11pt.d$5CJOJQJkH\O\ User input 12pt/d((5CJOJQJkHTOT Letter Text 10pt0$d$a$ OJQJkHFOF Letter Text 11pt1dCJXO"X Letter Text 12pt2$da$CJOJQJkHLO2L Captions 10pt 2 line 3<FOBF Date 08pt45CJOJQJkH6OAR6 Date 09pt5CJ6OAb6 Date 10pt6CJ2Oar2 Date 11pt7CJ.)@. Page NumberHH X*N*NV?W*N*NV@V*N*NVAU*N*NVBT*N*NVCS*N*NVDR*N*NVEQ*N*NVFP*N*NVGO*N*NVHN*N*NVIM*N*NVJL*N*NVKK*N*NVLJ*N*NVMI*N*NVNH*N*NVOG*N*NVPF*N*NVQE*N*NVRD*N*NVSC*N*NVTB*N*NVU*N*N  Spell Check Spell CheckhQ+hQ+hQ+hQ+hQ+ 0(  Spell CheckForms Spell Check2Module1.FormsSpellCheck2g|(TemplateProject.Module1.FormsSpellCheck2%TemplateProject.SuperPhoneNumber.MAIN%TemplateProject.InsertCisAddress.MAIN%TemplateProject.GranteeFirstName.MAIN$TemplateProject.WorkerExtension.MAIN$TemplateProject.GranteeLastName.MAIN$TemplateProject.GranteeClientID.MAIN$TemplateProject.GranteeAddress1.MAIN$TemplateProject.AddChildInfoRow.MAIN#TemplateProject.WorkerAreaCode.MAIN#TemplateProject.SupervisorName.MAIN#TemplateProject.SuperExtention.MAIN#TemplateProject.AddSvcReferral.MAIN"TemplateProject.SvcRefHeading.MAIN"TemplateProject.SuperAreaCode.MAIN"TemplateProject.GranteeCareof.MAIN"TemplateProject.CoSuppaddress.MAIN"TemplateProject.CoPhoneNumber.MAIN"TemplateProject.ClearCaseInfo.MAIN!TemplateProject.NewParagraph.MAIN!TemplateProject.GranteeState.MAIN!TemplateProject.countynumber.MAIN TemplateProject.WorkerPhone.MAIN TemplateProject.GranteeCity.MAIN TemplateProject.CoExtension.MAIN TemplateProject.ClientState.MAINTemplateProject.WorkerName.MAINTemplateProject.GranteeZip.MAINTemplateProject.CountyName.MAINTemplateProject.CoAreaCode.MAINTemplateProject.ClientCity.MAINTemplateProject.CaseNumber.MAINTemplateProject.WorkerFax.MAINTemplateProject.RemoveRow.MAINTemplateProject.lastname2.MAINTemplateProject.FirstName.MAINTemplateProject.CoAddress.MAINTemplateProject.ClientZip.MAINTemplateProject.RowBreak.MAINTemplateProject.LastName.MAINTemplateProject.District.MAINTemplateProject.CaseInfo.MAINTemplateProject.Address1.MAINTemplateProject.Section.MAINTemplateProject.OtherID.MAINTemplateProject.NoReset.MAINTemplateProject.CoState.MAINTemplateProject.Correct.MAINTemplateProject.AddRows.MAINTemplateProject.Worker.MAINTemplateProject.MyInfo.MAINTemplateProject.Hidden.MAINTemplateProject.County.MAINTemplateProject.CoCity.MAINTemplateProject.CareOf.MAINTemplateProject.FaxAC.MAINTemplateProject.Date1.MAINTemplateProject.CoZip.MAINTemplateProject.Unit.MAIN;TEMPLATEPROJECT.UNIT.MAINTEMPLATEPROJECT.COZIP.MAINTEMPLATEPROJECT.DATE1.MAINTEMPLATEPROJECT.FAXAC.MAINTEMPLATEPROJECT.CAREOF.MAIN TEMPLATEPROJECT.COCITY.MAIN!TEMPLATEPROJECT.COUNTY.MAIN"TEMPLATEPROJECT.HIDDEN.MAIN#TEMPLATEPROJECT.MYINFO.MAIN$TEMPLATEPROJECT.WORKER.MAIN%TEMPLATEPROJECT.ADDROWS.MAIN&TEMPLATEPROJECT.CORRECT.MAIN'TEMPLATEPROJECT.COSTATE.MAIN(TEMPLATEPROJECT.NORESET.MAIN)TEMPLATEPROJECT.OTHERID.MAIN*TEMPLATEPROJECT.SECTION.MAIN+TEMPLATEPROJECT.ADDRESS1.MAIN,TEMPLATEPROJECT.CASEINFO.MAIN-TEMPLATEPROJECT.DISTRICT.MAIN.TEMPLATEPROJECT.LASTNAME.MAIN/TEMPLATEPROJECT.ROWBREAK.MAIN0TEMPLATEPROJECT.CLIENTZIP.MAIN1TEMPLATEPROJECT.COADDRESS.MAIN2TEMPLATEPROJECT.FIRSTNAME.MAIN3TEMPLATEPROJECT.LASTNAME2.MAIN4TEMPLATEPROJECT.REMOVEROW.MAIN5TEMPLATEPROJECT.WORKERFAX.MAIN6TEMPLATEPROJECT.CASENUMBER.MAIN7TEMPLATEPROJECT.CLIENTCITY.MAIN8TEMPLATEPROJECT.COAREACODE.MAIN9TEMPLATEPROJECT.COUNTYNAME.MAIN:TEMPLATEPROJECT.GRANTEEZIP.MAIN;TEMPLATEPROJECT.WORKERNAME.MAIN< TEMPLATEPROJECT.CLIENTSTATE.MAIN= TEMPLATEPROJECT.COEXTENSION.MAIN> TEMPLATEPROJECT.GRANTEECITY.MAIN? TEMPLATEPROJECT.WORKERPHONE.MAIN@!TEMPLATEPROJECT.COUNTYNUMBER.MAINA!TEMPLATEPROJECT.GRANTEESTATE.MAINB!TEMPLATEPROJECT.NEWPARAGRAPH.MAINC"TEMPLATEPROJECT.CLEARCASEINFO.MAIND"TEMPLATEPROJECT.COPHONENUMBER.MAINE"TEMPLATEPROJECT.COSUPPADDRESS.MAINF"TEMPLATEPROJECT.GRANTEECAREOF.MAING"TEMPLATEPROJECT.SUPERAREACODE.MAINH"TEMPLATEPROJECT.SVCREFHEADING.MAINI#TEMPLATEPROJECT.ADDSVCREFERRAL.MAINJ#TEMPLATEPROJECT.SUPEREXTENTION.MAINK#TEMPLATEPROJECT.SUPERVISORNAME.MAINL#TEMPLATEPROJECT.WORKERAREACODE.MAINM$TEMPLATEPROJECT.ADDCHILDINFOROW.MAINN$TEMPLATEPROJECT.GRANTEEADDRESS1.MAINO$TEMPLATEPROJECT.GRANTEECLIENTID.MAINP$TEMPLATEPROJECT.GRANTEELASTNAME.MAINQ$TEMPLATEPROJECT.WORKEREXTENSION.MAINR%TEMPLATEPROJECT.GRANTEEFIRSTNAME.MAINS%TEMPLATEPROJECT.INSERTCISADDRESS.MAINT%TEMPLATEPROJECT.SUPERPHONENUMBER.MAINU(TEMPLATEPROJECT.MODULE1.FORMSSPELLCHECK2@jo jjX % @ @@UnknownG: Times New Roman5Symbol3& : Arial=& z Arial (W1)?5 z Courier New5& zaTahoma"hHd&&@ G Gr cq#r4d} } i2QH??@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijlmnopqrtuvwxyz}~Root Entry F=D4Data ( <1Table5WordDocumentpSummaryInformation(kDocumentSummaryInformation8sMacrosLJo,4.4VBAo,4.4dir Unit  3CoZip BDate1  Q  !"#$%&'()*+,-./012456789:;<=>?@ACDEFGHIJKLMNOPRSTUVWXYZ[\]^_abcdefghijklmnpqrstuvwxyz{|}0* pHdTemplateProjectQH@  = | ^"9 J< 9stdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automation0MSForms>SFFrms3ED452EE1-E08F-101A-8-02608C4D0BB4EFM20.DLL#Microsoft : ^ Ob Library/;D~1u00}#0#k0 A55F5DC51-A591-4EF5-A2E0-13479ADE490E6DOCUME~1\MARTINLOCALS\VBE\T.exd <!.E .`M AOffi"cOf@ijc 12DF8D04C-5BFAAhB-BHDE5JAA4 21gram Files\C`ommonhS@hared\ 105O q 8..0Lq@%<"5BThisDocumentG TiDcuen 2 HB1B`%B,Q!5""+SuperPhoneNumberG `p@-rP o`eNbr2r H5!iInsertCisAddressc IstCU)Ad e +scmc}o@9*pGranteeFirstNaTmecGat5eiNab?cmc}**lWorkerExtens"GW@Rrbk+ExRASs,A 2?M"U"La*D"L() )a)CliY|IDc) C@i*}IDTo t41_ eK41[ _ G_ I_ PChildIn`foRowS s CSl>!3A0>e)jC d`[2r1_aMo@e3^ ^`visorsH S]vSo0 7HQ [ _rPaKQh x GGGtG V _ Q(SvcReferral $SvUR0f0r0a= (X _e0r!l@' PcHeadingG0U H a $i`gg;.2/* ݿ 1 'o1 % uG- ? e$aC`of3=Zae ;f4* /:roPE " Co7pa1C1p"das+ /% `j A- ( /! ClearCasebrAWrTaeub ) {aC`% 9 NewParaphN"wPqag@&a-h@&K? `7 @ PGranteeSt@ateGranteSa,2^H 1F(,d5! +countynumberco uyumbr //)#G:I MWorkerPhonIrkC(Phn 2FEFڠCityG0G CiyFFc#CP#CoExtensionEC#C@CExns@#omF C#  c#AQ#lienFt_Cl@ e@ tFC E#+ c#OL# ƍNamNmK 2U !M!ZipGBk@Z$pE'1a{KCb{!?%{!_'1IAreaCod2 ZAhe`2ad2Co%-WPy>Ux2CU!_'U%UaXseN$aweN஧&/+S eFaPxGeF@3xT2?!Q0RemoveRow#RAmvRw$#/ q_0lastn 2#ls`n2$#  1]FirstC:QFAr t awefGo?[P7ddress3Q9dd":s~q foY6S19R<`W9cg/0(B@JkG'B4Jk 92?%M?(eL0( L$(Z5=cDistricZtsD'/rpc`05=aCMPInfoCreIf5S=YojA/1A..1?5= m%Sect]Ni ns2__k_OthePrIDGBOhrDTS #__i_N`oRese% N0[stTS _u5w_M4QJCoS _u_PrrArD4SW_y`s_,K[C*ss`,S _ҁq\`+3ښGrW`2MyBqMy?XB'A}Hidde HPpa 1 ,{:!p+(Coun tyG ,ountyTt2:ZH 1%yoCi oCi oo#oo areOfoareOfo777FaxACG axAC6 2 44Date14D4tl14 4cPCoZipCCZlpDCcLUnitGOUAB2 @ModulAN3dlDOl2Ob@v 1\c5 :xMEH 8 " 0Unit  B@oXPiAttribute VB_Name = "Unit" Public Sub MAIN() WordBasic.WW7_EditGoTo Destinat ion:=Endv \c5:xMEH 8 " 0cozip  B@oXPoAttribute VB_Name = "CoZip" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="cDozEndx \c5:xMEH 8 " 0date1  B@oXPlAttribute VB_Name = "Date1" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="dEndx FaxAC `CareOf oCoCity~County \c5:xMEH 8 " 0FaxAC  B@oXPjAttribute VB_Name = "FaxAC" Public Sub MAIN() WordBasic.WW7_EditGoTo Destina@tion:=Endx \c5:xMEH 8 " 0careof  B@oXPqAttribute VB_Name = "CareOf" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="coEndz \c5:xMEH 8 " 0cocity  B@oXPpAttribute VB_Name = "CoCity" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="cocEndz \c5y:xMEH 8 " 0county  B@oXPnAttribute VB_Name = "County" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:=""cEndz 5{:xMEHiddenqMyInfo-3WorkerAddRowsq @p(Makes the selection hidden text (toggle)TemplateProject.Hidden.MAINh "10 0 pt0 pt0bArial B@ophxAttribute VB_Name = "Hidden" Public Sub MAIN(X) D.nDescription|Makes the selec,h text (toggle)Pro cDataWInvoke_FuncWTemplaTte"jV..JWordBasic.FormatFont Points:="10", Underline:=0, Color@:=9, SkeThrough SuperjFb<:=1mallCap1)ASpacinBg=0 pt>PosiKernMinTabd ArialBoldIIta End \c5:xME{'5}:xME @`Enter Personal InformationTemplateProject.MyInfo.MAIN@ PZ P\P&P^P`PbPdPfPhLPjPlHHPnXPpPr PtPvPxPzP|P~`* h " (08@HPX`hpx &((8*`&(&&(0&X$&$$& $H&p&(N$8$`&&*$"00XT$$0P p <468P686406h846 4H 2 2 4 2( 4` : : 2 P h & 4 6 8 6X 8 6 4 68 8p 4 6 42P24240:h: "02@4x242 0X2402(0`..0. 0P66 ":>XB>F 2h:>6 6X.2::82x62B Fh 4 2 &  (H *p .  2 4(` h x ]]]]]]]](]@]X]p]]]]]]]]0]H]`DEFINE DIALOG BOXF,MyInfo B@"BOXm ^YourName B@$m8^ YourTitle B@$mP^ YourOffice B@$mi^ YourAddress B@$lxYourCity B@$T( YourState B@$FYourZip B@$n(AreaCode B@$P YourPhone B@$<YourExt B@$r(FAXAC B@$PYourFax B@$(YourCO B@$(YourDI B@$(YourSEC B@$T(YourUN B@$(YourWKR B@$m^BossName B@$m^ BossTitle B@$k  /Enter the following information about yourself. B@d#2 Name: B@d;2 Title: B@dR< Office: B@dkU Address: B@d City-ST-Zip: B@d7 Phone: B@d>% FAX: B@dCO-DI-SEC-UN-WKR: B@dK 6Enter the following information about your supervisor. B@d2 Name: B@d 2 Title: B@d X B@&"X B@ B@(]xF !,!..*6GET USER INFO FROM INI FILE AND PUT IT INTO DIALOG BOXUserInfoName MYINFO.ini %X *(UserInfoTitle MYINFO.ini %X *(UserInfoAreaCode MYINFO.ini %X *(&UserInfoPhone MYINFO.ini %X *(UserInfoYourExt MYINFO.ini %X *(`UserInfoFaxAC MYINFO.ini %X *(bUserInfoFax MYINFO.ini %X *(dUserInfoOffice MYINFO.ini %X *(UserInfoAddress MYINFO.ini %X *(UserInfoCity MYINFO.ini %X *(UserInfoState MYINFO.ini %X *(UserInfoZip MYINFO.ini %X *(UserInfoCO MYINFO.ini %X *(UserInfoDI MYINFO.ini %X *(UserInfoSEC MYINFO.ini %X *(UserInfoUN MYINFO.ini %X *(UserInfoWKR MYINFO.ini %X *(UserInfo Boss Name MYINFO.ini %X *(zUserInfo Boss Title MYINFO.ini %X *(|,DISPLAY DIALOG BOX AND RESPOND TO USER INPUT * !B%.'  OK BUTTONWRITE NEW USER INFO IN INI FILEUserInfoName *! MYINFO.ini B@DUserInfoTitle *! MYINFO.ini B@DUserInfoAreaCode *!& MYINFO.ini B@DUserInfoPhone *! MYINFO.ini B@DUserInfoYourExt *!` MYINFO.ini B@DUserInfoFaxAC *!b MYINFO.ini B@DUserInfoFax *!d MYINFO.ini B@DUserInfoOffice *! MYINFO.ini B@DUserInfoAddress *! MYINFO.ini B@DUserInfoCity *! MYINFO.ini B@DUserInfoState *! MYINFO.ini B@DUserInfoZip *! MYINFO.ini B@DUserInfoCO *! MYINFO.ini B@DUserInfoDI *! MYINFO.ini B@DUserInfoSEC *! MYINFO.ini B@DUserInfoUN *! MYINFO.ini B@DUserInfoWKR *! MYINFO.ini B@DUserInfo Boss Name *!z MYINFO.ini B@DUserInfo Boss Title *!| MYINFO.ini B@DGet user info from INI filexUserInfoName MYINFO.ini %X' ZUserInfoTitle MYINFO.ini %X' \UserInfoAreaCode MYINFO.ini %X' &UserInfoPhone MYINFO.ini %X' ^UserInfoYourExt MYINFO.ini %X' `UserInfoFaxAC MYINFO.ini %X' bUserInfoFax MYINFO.ini %X' dUserInfoOffice MYINFO.ini %X' fUserInfoAddress MYINFO.ini %X' hUserInfoCity MYINFO.ini %X' jUserInfoState MYINFO.ini %X' lUserInfoZip MYINFO.ini %X' nUserInfoCO MYINFO.ini %X' pUserInfoDI MYINFO.ini %X' rUserInfoSEC MYINFO.ini %X' tUserInfoUN MYINFO.ini %X' vUserInfoWKR MYINFO.ini %X' xUserInfo Boss Name MYINFO.ini %X' zUserInfo Boss Title MYINFO.ini %X' | Update Form with user info WorkerName %ZG workerName Z B@\j WorkerTitle %ZG WorkerTitle \ B@\jWorkerAreaCode %ZGWorkerAreaCode & B@\j WorkerPhone %ZG WorkerPhone ^ B@\jWorkerExtension %ZGWorkerExtension ` B@\jFaxAC %ZGFaxAC b B@\j WorkerFax %ZG WorkerFax ~ B@\j Countynumber %ZG Countynumber p B@\jDistrict %ZGDIstrict r B@\jSection %ZGSECtion t B@\jUnit %ZGUNit v B@\jWorker %ZGWorker x B@\j CountyName %ZG CountyName f B@\j CoAddress %ZG CoAddress h B@\jCoCity %ZGCoCity j B@\jCoState %ZGCoState l B@\jCoZip %ZGCoZip n B@\jSupervisorName %ZGSupervisorName z B@\jSupervisorTitle %ZGSupervisorTitle | B@\j. Update other Form Fields on Form & Exit Macro- Selected$=GetFormResult$ ("CurrentDate")! TheSerialDate = Today() + 14$ TheDate$ = Date$(TheSerialDate)& SetFormResult "DueDate", TheDate$) EditGoTo "CreateDate" : UnlinkFields EditGoTo "GranteefirstName"- ToolsProtectDocument .NoReset = 1, .Type = 2/ ToolsProtectSection .Section = 2, .Protect = 0d FileClose 2 SelectName = - 1kho`X1Attribute VB_Name = "MyInfo" Public Sub MAIN(X) D.nDescription|Enter Personal rma:zProcDataIInvoke _FuncITe@mplate"ject..wJDim iRet  User$TitleAreaCod!-PhonYo urExtFaxAC  Offic $Ad dressCidtyStbZ$ipCODISEB;UN WKRBoss| |] 'DEFINE DIALOG BOX WordBasic.BeginDialog 582, 300,H G TextBox 109@ A 5@ 18@ KA#g 56 ,u 83 Cb[ 1\05k 2A33y21A5Au 3~4   ~ 9 7 1$55Ŷ [1 Pi23` n6idV3jFAXAC41e w `VV1@,C:O629 *DI7m qV? UN64!l1.{Vym23n`64`z7,4, c3zthe following info$ about yself. ",  !:w5f"bC #10@8O$31{1aA-ST- u5_ abm3r13@ gY  ;"CO-DI-aT-UN-@H47224* superv0isor!a 124f>6p6iOKButt48 8pR21 f@Cancel3GkEndn 1rdlguQ As Ob: SHet = CurValues. vGET USER INF@O FROMI FILE AND PUT I NTOzx.t[GetPrivfileSp@ng$](" "'P:qMY.ini"r hl ? a"4??>? Mpn_1r &.nAC `axU/-Y??>OMA\C$$a&gp Op | DIpp/-UN0 | {p y QaeProfileString$]("UserInfo", "Boss Name0MYINFO.ini") dl g.LTitle = WordBasic.[GetPrivat >e 'DISPLAY DIALOG BOX AND RESPOTO USER INPUT@ iRet Dialog. F(If -1 Then 'OK BUTTON ?WRIT E NEW3FO6I FILE xSx ቟Your , - -AreaCod|PhonEExtE@FaxACL+@OfficZ Ly+[Address0$ City ? : |StP  z ZNE WKR#kNamڈ OfficeAddress|Co%  ACoCity  ! CoSta>t$c b CoZip  "Supervpisor<, Boss! /Titl% b ' Upd. other ! Fields on& t Macro  Rem" Sel}ed$=G $ ("CurrpentD9'S erial = Today()` + 14$k()D|ue`"GEditGoTo "Ct : Unlink'Granteefirst3"ToolsProtDocum .Noet`1, .TypeM@2/ .= 2 `0 Else#FileClose D Gc.@- 1n@d If Sub H 8 " 0worker  B@oXPlAttribute VB_Name = "Worker" Public Sub MAIN() tdBasic.WW7_EditGoTo Destination:="wEndz {5q:xME @p+Adds row to table FOLLOWING cursor locationTemplateProject.AddRows.MAINh "0@ B@ B@oH@Attribute VB_Name = "AddRows" Public Sub MAIN() D.pDescription~s row to table FOLLOWING cursor loca\NProcDataZInvoke_FuncZTemplateA"ject..KWordBasic.LineDown 1 TInserBt Numt:D="Ends t{s5s:xMECorrectCoStateModule1NoReset'/`  @N  " V*h    ]@Q This serves as a replacement to the spell checker within a protected documentCheck spelling now? %P'N N B@j| B@R` B@Tzl B@xko0Attribute VB_Name = "Correct" Public Sub MAIN() Dim ans Rem This se@rves a replacement to the spell checker within @a proted docu3 ZWordBasic.MsgBox("C?King now ?", 3If4-1en  QATools4UnoDi %St`artOf"S7d>0Pg NoReset:=1, Type:=2 End If \c5u:xMEH 8 "(8costate  B@ast oPHqAttribute VB_Name = "CoState" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="cosEnd| \51xME(<<< <h       !"#$%&()*+,-./012345789:;<=>?@ABCDFGHIKMOPQRSTUVWXYZ[\^_`abcdefghijkmnopqrstuvwxyz|}~ Xnt%"  .@Pp &x  (((P X h]@'If document is protected, Unprotect it.e ! cladd87 B@cenkPerform Spelling/Grammar check.O (0-4  !i:U !( !B@0-  ReProtect the document. ! cladd87z l B@koAttribute VB_Name = "Module1" Sub FormsSpellCheck2() Dim x As wdNo Then  9ZPassword:="c@ladd87E nd If'P(erf ing/Gramma8r clK.Op2tBs.vWi thFalse EachIn JsZx.Range.iof>$;;5AlwaysSuggest :=Tru; Next: 'Re the=&EW, N oRese&, o:=wdAllowOnlyAbAAe\co5w:xMEH 8 " <H hx8 This saves as a form without resetting the form fields.zl B@xoAttribute VB_Name = "NoReset" Public Sub MAIN() Rem This saves a form without rztin g the4fields. WordBasic.ToolsProtectDocument ~:=1, Ty pe:=2End \c5i:OtherID'Section6__SRP_0__SRP_1E.xMEH 8 "(8otherid  B@oPHsAttribute VB_Name = "OtherID" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:=$"oidEnd| \c5k:xMEH 8 "(8Section  B@UseroPHjAttribute VB_Name = "Section" Public Sub MAIN() WordBasic.WW7_EditGoTo Desti$nar:=End| rU K*srU~~~~~~~~k e.JAwIxV  < Iy! Iq9a 1Y!Aa!Aa!9Qi !9QiA Q 1 ! 1TemplateProject ThisDocumentSuperPhoneNumberInsertCisAddressGranteeFirstNameWorkerExtensionGranteeLastNameGranteeClientIDGranteeAddress1AddChildInfoRowWorkerAreaCodeSupervisorNameSuperExtentionAddSvcReferral SvcRefHeading SuperAreaCode GranteeCareof CoSuppaddress CoPhoneNumber ClearCaseInfo NewParagraph GranteeState countynumber WorkerPhone GranteeCity CoExtension ClientState WorkerName GranteeZip CountyName CoAreaCode ClientCity CaseNumber WorkerFax RemoveRow lastname2 FirstName CoAddress ClientZipRowBreakLastNameDistrictCaseInfoAddress1SectionOtherIDNoResetCoStateCorrectAddRowsWorkerMyInfoHiddenVBACountyCoCityCareOfFaxACDate1CoZipUnitF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL  0 F5C:\Program Files\Microsoft Office\Office10\MSWORD.OLBWord  9 @0FC:\WINDOWS\system32\stdole2.tlbstdole   P.E .`M C:\WINDOWS\system32\FM20.DLLMSForms  `QUNGI 2C:\DOCUME~1\MARTIN~1\LOCALS~1\Temp\VBE\MSForms.exd y  pL-[DR?C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLLOffice i  MAIN Module1%trU~| krU $`n\c5m:__SRP_2JT__SRP_3LgAddress1NCaseInfo#!xMEH 8 "(8Address1  B@oPHnAttribute VB_Name = "Address1" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:"= End~ \c5a:xS5o:xME @`bEnter Personal InformationTemplateProject.CaseInfo.MAINx@ PPPPP P  PMPUP@ e`* Pc " (08@HPX `"& (&0(X&(&&& $H Np*,* .P*,44.P   <FHXFJF8HLLHh 2 & FHHFJ Fp H L LP H " B DX B F B0 Dx H H DP " 6 : B8>6:N8NB 4 X` p ]]]]]]]]0]H]`]xOPEN FCTPSA TOOLBAR B@ FCTPSA Tools  B@DEFINE DIALOG BOXF,CaseInfo B@"  YourFCCNo B@$8 YourFCCN B@$wP  YourFCWLNo B@$i YourFCWN B@$  YourPSCNo B@$ YourPSCN B@$fYourHAL B@$fYourHAF B@$fYourDC B@$k  0Enter the following information about this case. B@d# FC Case No.: B@dC:; FC Case Name: B@d(R FC Load No.: B@d@k FC Worker Name: B@d PS Case No.: B@d PS Case Name: B@d Household Ass'd Last: B@d Household Ass'd First: B@dH Date Completed: B@d,X B@&x B@(]F !,!..*6GET USER INFO FROM INI FILE AND PUT IT INTO DIALOG BOXUserInfoFCCaseNoC:\Windows\CaseInfo.ini %X *(0UserInfo FCCaseNameC:\Windows\CaseInfo.ini %X *(2UserInfoFCLoadNoC:\Windows\CaseInfo.ini %X *(4UserInfo FCWorkerNameC:\Windows\CaseInfo.ini %X *(6UserInfoPSCaseNoC:\Windows\CaseInfo.ini %X *(8UserInfo PSCaseNameC:\Windows\CaseInfo.ini %X *(:UserInfo HouseholdLastC:\Windows\CaseInfo.ini %X *(<g:UserInfoHouseholdFirstC:\Windows\CaseInfo.ini %X *(>GUserInfo DCompletedC:\Windows\CaseInfo.ini %X *(@,DISPLAY DIALOG BOX AND RESPOND TO USER INPUTx * !B%.'  OK BUTTONWRITE NEW USER INFO IN INI FILEUserInfoFCCaseNo *!0C:\Windows\CaseInfo.ini B@DUserInfo FCCaseName *!2C:\Windows\CaseInfo.ini B@DUserInfoFCLoadNo *!4C:\Windows\CaseInfo.ini B@DUserInfo FCWorkerName *!6C:\Windows\CaseInfo.ini B@DUserInfoPSCaseNo *!8C:\Windows\CaseInfo.ini B@DUserInfo PSCaseName *!:C:\Windows\CaseInfo.ini B@DUserInfo HouseholdLast *!<C:\Windows\CaseInfo.ini B@DUserInfoHouseholdFirst *!>C:\Windows\CaseInfo.ini B@DUserInfo DCompleted *!@C:\Windows\CaseInfo.ini B@DGet user info from INI fileUserInfoFCCaseNoC:\Windows\CaseInfo.ini %X' UserInfo FCCaseNameC:\Windows\CaseInfo.ini %X' UserInfoFCLoadNoC:\Windows\CaseInfo.ini %X' UserInfo FCWorkerNameC:\Windows\CaseInfo.ini %X' UserInfoPSCaseNoC:\Windows\CaseInfo.ini %X' UserInfo PSCaseNameC:\Windows\CaseInfo.ini %X' UserInfo HouseholdLastC:\Windows\CaseInfo.ini %X' UserInfoHouseholdFirstC:\Windows\CaseInfo.ini %X' UserInfo DCompletedC:\Windows\CaseInfo.ini %X'  Update Form with user infoFCCASENO %ZGFCCASENO  B@\j FCCASENAME %ZG FCCASENAME  B@\jFCWORKERLOADNO %ZGFCWORKERLOADNO  B@\j FCWORKERNAME %ZG FCWORKERNAME  B@\jPSCASENO %ZGPSCASENO  B@\j PSCASENAME %ZG PSCASENAME  B@\jHOUSEHOLDASSESSEDLST %ZGHOUSEHOLDASSESSEDLST  B@\jHOUSEHOLDASSESSEDFST %ZGHOUSEHOLDASSESSEDFST  B@\j DATECOMPLETED %ZG DATECOMPLETED  B@\j. Update other Form Fields on Form & Exit Macrod B@F'kxophmAttribute VB_Name = "CaseInfo" Public Sub MAI`N() D.rDescriptionEnter Personal rma:zProcDataIInvoke_FuncITemplateA"ject..yLDim iRet  UserFCCNo$ I WL WNPS HALFDCSelU 'OPEN FCTPSA TOOLBAR WordBasic.ViewToolbars ColorButtons:=1, Large0, Tipc"':=";/s", Show+'DEFINE DIALOG BOXBeginDialog 582, 30 Ʌ 1Text@Box 15 3 265, 18, "Youdka 56,  8/ wW 7@ 10ˀ& N13]\ 5A  2AY1y510QO 24 F i24 $DC@ 4 1079` 4B3;c|the following info} about this c. 19K$,1 FC | No.:w5p!YLoad #Y^k{x 1` PS} ,5,3 1 93(Household AsHs'd`st2B;FirD`eted3IOKc26% 821 EndÏdlgA Oba: SHet I= GCurValues.! GET USER INF@O FROM I FILE AND PUT I@NTO .@G[GetPrivfileSng$]("\NoaC:\Windows\!.ini" p H?u $T???C5?u?oNCp`9Q9_er"\OON OOjS##2bdaDLastooegHAF???KϒGOOHDC??>DCoKCDISPLAYAbCRESPOCPCED * HHIf(x>P?If0-1 Then 'OK BUTTONWRITE NEWXLIN6LYTQH`zHeB,G~OJo<O e4:CN;&HM_R] GW % GEo k SGO"qrA GL >FFFDCr fromr?cqfD)dC:("UserInfo", "FC CaseNXC:\Windows\P.ini"p) N$ = WordBasic.[GetPrivateProfileString$]1amev"jWLNo5lLoad(ՆWjkerNkPSC5k)ց4#'5HALsHouseholdLastdHAF<HFirfDC3DCompleted5 ' Upd Form with @Er &iIfExistBook mark(AASENO") ThDen SetR`esult ,2 yo$_ G AME CC A WORKERLOAD N'f N?!@j#/]4# ?$_ "H HOUSEHOLDASSE@DLST^B_#AnF"F?!DATECOMPLET?@ACDEFGHIJKLMNOPRSTUVWXYZ[\]^_abcdefghijklmnpqrstuvwxyz{|}     D<= !"#$%&'()*+,-./0123456789:;G>?@ABCEXFHWIJKLMNOPQRSTUVYbiZ[\]^_`acldefghjk}nopqrstuvwxyz{|~xMEH 8 "(8 clientcity  B@oPHuAttribute VB_Name = "ClientCity" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="ccEnd \c5W:xMEH 8 "(8 coareacode  B@oPHxAttribute VB_Name = "CoAreaCode" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="coa"cEnd \c5I:xCountyNameGranteeZip,.$WorkerName3ClientState+3BMEH 8 "(8 countyname  B@oPHuAttribute VB_Name = "Countyh" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:=4"cnEnd \c5K:xMEH 8 "(8 GranteeZip  B@oPHpAttribute VB_Name = "GranteeZip" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:= End \c5M:xMEH 8 "(8 workername  B@oPHtAttribute VB_Name = "Workerh" Public Sub MAIN() dBasic.WW7_EditGoTo Destination:="wnEnd \c5O:xMEH 8 "(8 clientstate  B@oPHvAttribute VB_Name = "ClientState" Public Sub MAIN() WordBasic.WW7_EditGoTo Destinati@on:="csEnd \c5A:xMEH CoExtensionQGranteeCity02`WorkerPhoneocountynumber15~8 "(8 coextension  B@oPHtAttribute VB_Name = "CoExtension" Public Sub MAIN() WordBasic.WW7_EditGoTo Destinatr@:="coeEnd \c5C:xMEH 8 "(8 GranteeCity  B@oPHqAttribute VB_Name = "GranteeCity" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:= End \c5E:xMEH 8 "(8 workerphone  B@oPHuAttribute VB_Name = "WorkerPhone" Public Sub MAIN() dBasic.WW7_EditGoTo DestinationP:="wpEnd \c5G:xMEH 8 "(8 Countynumber  B@oPHtAttribute VB_Name = "countynumber" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="C End \c55xGranteeStateNewParagraph46^ThisDocument_VBA_PROJECT/?:MEH 8 "(8 GranteeState  B@oPHrAttribute VB_Name = "GranteeState" Public Sub MAIN() WordBasic.WW7_EditGoTo Destinat ion:= End \c55xMEH 8 " (@`px B@ B@jp F $ B@tX zl B@x B@oŰAttribute VB_Name = "NewParagraph" Public Sub MAIN() WordBasic.ScreenUpdating 0 >ToolsUnprotectDo@cument Insert Chr(13[?P = NoReset:=1, Type:=2 QCharRight 1 End 55#xME (SLSS<N0{00020906-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2\c55as  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.2#0#C:\Program Files\Microsoft Office\Office10\MSWORD.OLB#Microsoft Word 10.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{55F5DC51-A591-4EF5-A2E0-13479ADE490E}#2.0#0#C:\DOCUME~1\MARTIN~1\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M &*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.2#0#C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL#Microsoft Office 8.0 Object Library<  ^"9,-./()*+456;123 89:5<ThisDocument0R4b3df9f0ThisDocument5% SuperPhoneNumber0S4b3df9f0 SuperPhoneNumber5% InsertCisAddress0T4b3df9f0" InsertCisAddress505 GranteeFirstName0U4b3df9f0^ GranteeFirstName5H%WorkerExtension0V4b3df9f0`WorkerExtension5`%GranteeLastName0W4b3df9f0bGranteeLastName5x%GranteeClientID0X4b3df9f0dGranteeClientID5%GranteeAddress10Y4b3df9f0fGranteeAddress15%AddChildInfoRow1C4b3e0027hAddChildInfoRow5|7WorkerAreaCode0[4b3df9f0|WorkerAreaCode5SupervisorName0]4b3df9f0~SupervisorName5SuperExtention0^4b3df9f0SuperExtention5AddSvcReferral0_4b3df9f0AddSvcReferral5 SvcRefHeading0`4b3df9f0SvcRefHeading58 SuperAreaCode0a4b3df9f0SuperAreaCode5PGranteeCareof0b4b3df9f0GranteeCareof5hCoSuppaddress0c4b3df9f0CoSuppaddress5CoPhoneNumber0d4b3df9f0CoPhoneNumber5ClearCaseInfo0e4b3df9f0ClearCaseInfo5 NewParagraph0f4b3df9f0NewParagraph5GranteeState0g4b3df9f0GranteeState5countynumber0h4b3df9f0LcountynumberG:WorkerPhone0i4b3df9f0WorkerPhoneE:GranteeCity0j4b3df9f0GranteeCityC:(CoExtension0k4b3df9f0CoExtensionA:@ClientState0l4b3df9f0TClientStateO:XWorkerName0m4b3df9f0$WorkerNameM:pGranteeZip0n4b3df9f0GranteeZipK:CountyName0o4b3df9f0*CountyNameI:CoAreaCode0p4b3df9f0CoAreaCodeW:ClientCity0q4b3df9f0RClientCityU:CaseNumber0r4b3df9f0JCaseNumberS:WorkerFax0s4b3df9f0WorkerFaxQ:RemoveRow0t4b3df9f0RemoveRow_:qlastname20u4b3df9f0lastname2]:0FirstName0v4b3df9f0FFirstName[:HCoAddress0w4b3df9f0CoAddressY:`ClientZip0x4b3df9f0VClientZipg:xRowBreak0y4b3df9f0RowBreake:MLastName0z4b3df9f0HLastNamec:District104b3df9f0,Districta:$CaseInfo114b3df9f0CaseInfoo:Y#Address1124b3df9f0PAddress1m:"Section134b3df9f0.Sectionk:!OtherID144b3df9f0HOtherIDi:  NoReset154b3df9f0zNoResetw:8uCoState164b3df9f0JCoStateu:PCorrect174b3df9f0LCorrects:hyAddRows184b3df9f0VAddRowsq: Worker194b3df9f02 Worker: MyInfo1:4b3df9f0X MyInfo}:' Hidden1;4b3df9f0 Hidden{: County1<4b3df9f0 Countyy: CoCity1=4b3df9f0 CoCity:' CareOf1>4b3df9f0N CareOf:& FaxAC1?4b3df9f0b FaxAC:(% Date11@4b3df9f0 Date1:@ CoZip1A4b3df9f0 CoZip:XUnit1B4b3df9f00Unit :pModule11E4b3e0055Module11b0P8``8(HXx@(@XHh0pA1K3L7$m6g,@A/t/[KToNWUIJjf_GPTMAYeK|,C$}O1K4@j[bweyROw rh`qDH_vTBIY3Lv2 c6 IM.J]0݄{j@ة0UCDCe?t[tK@*aUjAi jJޥ8߫1AA‰PEQ};TB]޷ P#vc0Mq2e6ij(c@ Zt>5cG"#|wd&K˄^u*'E!݇YYMԠ~TI#Z2O^-~uLeFO+ߴ^D?ji{w9Kn}׾\yDwAD/H*o鄜gHnZk KJ-4E9U҃Khw`IpmHZ$Bnh?m*Bճe;uN__w</t3DV5.3}л RLlM0OD #:AQmpMN*igb GqBϷ^ EyL)&tкHiv/* uwA^n\)M*!BJ[:X"ЛJC$2uxܭeD6O^5Oa}MA 3u/sKC@ؤ;F)Ip5!Y!BZKگsüo L4RmS}7|Fрj |&=G)ё|qA+L DusN%s8/tOf,f*$KX Rw$aјJ{LH= A[Ji@qQB)NKxT> NؘXIWordkVBAWin16~Win32MacVBA6#TemplateProjectEstdole`MSFormsCOfficeu ThisDocument< _EvaluateSuperPhoneNumber\MAIN, WordBasic WW7_EditGoTod DestinationлInsertCisAddress>} WorkerNameJAreaCode PhoneNumber CountyNameDistrict}-SectionGUnitWorker8 ApDistrictApUnitPApWorkerW FsDistrictaFsUnitFsWorker SvDistrict]SvUnit/SvWorker FirstNameLastName CaseNumberA countynumberyxCareOfƻAddress1O ClientCitym ClientState ClientZipGetPrivateProfileString$xExistingBookmark SetFormResultGranteeFirstNameEWorkerExtensionGranteeLastName.GranteeClientIDGranteeAddress1AddChildInfoRow^ToolsUnprotectDocument(NextCellWW7_EditAutoTextCContextXnInsertAsInsertrCharLeftToolsProtectDocument-0NoResetgWorkerAreaCodeSupervisorNameSuperExtentionAddSvcReferral} SvcRefHeadingi&TableSelectRowTableInsertRowQNumRows CenterParaLineUpK InsertPara,LineDownxTableInsertCells ShiftCells( CharRightPTableMergeCellst BorderRight_ SuperAreaCodeq GranteeCareof CoSuppaddress^  CoPhoneNumberx ClearCaseInfohFileFind SearchName֡ SearchPath.SubDir+Title~AuthorKeywordsTSubjectRPOptions MatchCase PatternMatch DateSavedFromu= DateSavedTojdSavedByDateCreatedFrom DateCreatedToViewISortByoListBy+ SelectedFile\Kill NewParagraphqScreenUpdating! ChrK~ GranteeStateM WorkerPhone GranteeCity@ CoExtensionK GranteeZip  CoAreaCode WorkerFaxv RemoveRow0^TableDeleteRowA lastname2sL CoAddressRowBreakFTableRowHeight"X RulerStyleaLineSpacingRulep LineSpacing LeftIndenti AlignmentI AllowRowSplit{CaseInfoiRet,p UserFCCNoBUserFCCN7 UserFCWLNoyUserFCWN UserPSCNoOUserPSCNqUserHALօUserHAFЅUserDC SelectNameW; ViewToolbars| ColorButtons} LargeButtonsSWToolTips5+Toolbar2Show BeginDialogFTextBoxQOKButton| EndDialogmP dlgUserInfo2" CurValuesȤ UserDialog YourFCCNo+YourFCCN. YourFCWLNoYourFCWN0 YourPSCNo9YourPSCNP<YourHALYYourHAFYYourDCDialogfSetPrivateProfileString= FileClose_OtherIDCoState1Correct'ansxtMsgBoxRStartOfDocument ToolsSpellingAddRowsMyInfo@UserName\ UserTitleV9 UserPhoneYourExthLFaxACjYourFaxrN UserOffice0 UserAddressFUserCity UserStateUserZipDUserCOUserDIUserSEC4UserUN0UserWKR,BossNamef BossTitleHFaxY CancelButtonYourName;R YourTitleA# YourPhone YourOffice YourAddressYourCity YourStateYourZipYourCOYourDIYourSECvYourUNVYourWKRnHidden] FormatFont&Points UnderlineColor2F StrikeThrough" Superscript SubscriptV SmallCaps~cAllCapss_SpacingSPositionKerningB KerningMin1FontUBoldItalic!CountyG8CoCityr7Date11CoZip0DocumentjModule1bFormsSpellCheck2gzxo FormFieldActiveDocument\ProtectionTypewdNoProtection Unprotect?PasswordCheckGrammarWithSpelling FormFields-|Range  NoProofing] CheckSpellingW AlwaysSuggestProtectfwdAllowOnlyFormFields!#% + -( /+1:31I,K.M/G#I'KMO6Q*S U!W%"W0#Y2$c7%_&a'c(e)g*i+{-,} 5 6 7 8 93:BGHIJ4K5S8T9U;wVadefgh i!j"k$m&n)o X8ClearCaseInfoVCoPhoneNumber8:CoSuppaddressGranteeCareof9=xMEH 8 "&   c:\windows\ caseinfo.inid B@ric:\windows\caseinfo.ini B@CoH@EAttribute VB_Name = "ClearCaseInfo" Public Sub MAIN() WordBasic.File@Find Slch:=" ",! Path c:\wJows\4Jceie.ini0ubDir:=0, Title6Autho" Keywysject Option=`MatchKex#ternDateSavedFrom# LToByC?@ABCDEFGIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmopqrstuvwxyz{|~H 8 " (8 Granteecareof  B@oPHvAttribute VB_Name = "GranteeCareof" Public Sub MAIN() WordBasic.WW7_EditGoTo Destina@tion:=cEnd \c55xMEH SuperAreaCodeSvcRefHeading<> AddSvcReferralHs SuperExtention;Cn8 " (8 superareacode  B@oPH}Attribute VB_Name = "SuperAreaCode" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="sacEnd \c 55xMEH ?8@ "  (@2P  2  2 P ` p2   2  0 @2P   2   2  X h2x   4  ( 84H     0 HXh4x 4( B@j B@ B@ B@vsvcrefh1prt B@nx B@I@$ B@lнsvcrefh2prt B@n B@ B@ B@lpsvcrefh3prt B@nSvcR B@p B@t B@lrsvcrefh4prt B@nt B@ B@istowr B@l%Xsvcrefh5prt B@n B@ B@ B@lsvcrefh6prt B@n B@ B@ B@lsvcrefh7prt B@n B@ B@ B@lsvcrefh8prt B@n B@ B@lsvcrefh9prt B@n B@ B@ B@l svcrefh10prt B@n B@ B@ B@l svcrefh11prt B@n B@ B@Add Instruction Row B@ B@ B@v B@ B@ B@l  B@ B@ B@ B@v SvcRefH12prt B@n B@l svcrefH13prt B@nzl B@xoAttribute VB_Name = "SvcRefHeading" Public Sub MAIN() WordBasic.ToolsUnprotectDocu@ment Ba@bleSelf2c33c34c3567CharLeft( 30RP N@oReset, Type:=2 EndA \c55xMEH 8 ""0@GranteeAddress1  B@oH@uAttribute VB_Name = "GranteeAddress1" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:=End GranteeClientID GranteeLastName DGWorkerExtension GranteeFirstName"FH\c55xMEH 8 ""0@GranteeClientID  B@oH@uAttribute VB_Name = "GranteeClientID" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:=End \c55xMEH 8 ""0@granteelastname  B@oH@~Attribute VB_Name = "GranteeLast" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="glnEnd \c55xMEH 8 ""0@workerextension  B@oH@xAttribute VB_Name = "WorkerExtension" Public Sub MAIN() dBasic.WW7_EditGoTo DestinaBtr:="weEnd \c55x      !"#$%&'()+,-./0123456789:;<=>?@ABCDEFGHIKMEH 8 ""0@granteefirstname  B@addoH@Attribute VB_Name = "GranteeFirstL" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="g5fnEnd \c55xMEInsertCisAddress"ImSuperPhoneNumber"PROJECTKPROJECTwm*DK/55xME0 @_=Retrieves CIS Client address info from c:\glwin\cistowrd.ini px%TemplateProject.InsertCisAddress.MAIN-][P$enP&atP(P*P,P.P0P2P4P6P8P:P<P>P@PBPDPFPHPJPLPNPPPRPTPV` " (08@HPX`hpx>BF`DBB8>@ FBHD FB Dh FBD@ DBDF`@B>0@p> :606h:>: :` > 2 : 2X 6 : 2 6@ :x 2 6 :( :h F F :8 6x 6 . 26P>: ]]]]]]0]H]`]x]]]]]]] ]8]P]h]]]]]]] WorkerInfoNamec:\glwin\cistowrd.ini %X' $ WorkerInfoAreaCodec:\glwin\cistowrd.ini %X' & WorkerInfo PhoneNumberc:\glwin\cistowrd.ini %X' ( WorkerInfo CountyNamec:\glwin\cistowrd.ini %X' * WorkerInfoDistrictc:\glwin\cistowrd.ini %X' , WorkerInfoSectionc:\glwin\cistowrd.ini %X' . WorkerInfoUnitc:\glwin\cistowrd.ini %X' 0 WorkerInfoWorkerc:\glwin\cistowrd.ini %X' 2ApWorkerDistrictNumberc:\glwin\cistowrd.ini %X' 4ApWorker UnitNumberc:\glwin\cistowrd.ini %X' 6ApWorker WorkerNumberc:\glwin\cistowrd.ini %X' 8FsWorkerDistrictNumberc:\glwin\cistowrd.ini %X' :FsWorker UnitNumberc:\glwin\cistowrd.ini %X' <FsWorker WorkerNumberc:\glwin\cistowrd.ini %X' >SvWorkerDistrictNumberc:\glwin\cistowrd.ini %X' @SvWorker UnitNumberc:\glwin\cistowrd.ini %X' BSvWorker WorkerNumberc:\glwin\cistowrd.ini %X' D ClientInfo FirstNamec:\glwin\cistowrd.ini %X' F ClientInfoLastNamec:\glwin\cistowrd.ini %X' H ClientInfo CaseNumberc:\glwin\cistowrd.ini %X' J ClientInfo CountyNumberc:\glwin\cistowrd.ini %X' L ClientInfoCareOfc:\glwin\cistowrd.ini %X' N ClientInfoAddress1c:\glwin\cistowrd.ini %X' P ClientInfoCityc:\glwin\cistowrd.ini %X' R ClientInfoStatec:\glwin\cistowrd.ini %X' T ClientInfoZipc:\glwin\cistowrd.ini %X' V FirstName %ZG FirstName F B@\jLastName %ZGLastName H B@\jAddress1 %ZGAddress1 P B@\j ClientCity %ZG ClientCity R B@\j ClientState %ZG ClientState T B@\j ClientZip %ZG ClientZip V B@\j CaseNumber %ZG CaseNumber J B@\j CountyNumber %ZG CountyNumber L B@\jCareOf %ZGCareOf N B@\j ApDistrict %ZG ApDistrict 4 B@\jApUnit %ZGApUnit 6 B@\jApWorker %ZGApWorker 8 B@\j FsDistrict %ZG FsDistrict : B@\jFsUnit %ZGFsUnit < B@\jFsWorker %ZGFsWorker > B@\j SvDistrict %ZG SvDistrict @ B@\jSvUnit %ZGSvUnit B B@\jSvWorker %ZGSvWorker D B@\j FirstName2 %ZG FirstName2 F B@\j LastName2 %ZG LastName2 H B@\jGranteeFirstName %ZGGranteeFirstName F B@\jGranteeLastName %ZGGranteeLastName H B@\j WorkerName %ZG WorkerName $ B@\jDistrict %ZGDistrict , B@\jSection %ZGSection . B@\jUnit %ZGUnit 0 B@\jWorker %ZGWorker 2 B@\jAreaCode %ZGAreaCode & B@\j PhoneNumber %ZG PhoneNumber ( B@\j CountyName %ZG CountyName * B@\joAttribute VB_Name = "InsertCisAddress" Public Sub MAI`N() ".DescriptionReeves CIS Client a info from c:\\glwin\\cistowrd`.ini wbProcDatanInvoke_FuncnTemplate"jec4t. .TDim Worker$ Are aCodePhoneNumberCountyDUrictS9{Uni 5 Ap Ap$Ap Fs FsIFs Sv SvSv,irsteLaCas ?c?nCarelOf5u1zCity St@gJZip&#q@dBasic.[GetPrivt fileSngP$](" I", "C "w4 HtG J i13 eg r Z ba a Q$   ʼnA 0c D A%_  & H_ D &fA &iC C?Mr &Pwa d YY%foYdjoonola_oOONoԊm Ffurul/Tz___"OH8ooo""lZ Rooo 41/:r OY "/.???"ONAw///" IfEx0QBookmark("7) ThenSetFormResult , V 6H9 "h%)",q??Q"OOnte%#ooa"OOn~t%#&"?>#SN_\, T+Basic.ExistingBookmark("CareOf") Then WordSetFormResult , ^$ 0 If^ApDrict*,  ecUni?!_&-+ke~r\-.Ffs, aF>sz FFs?<_ FSv3F , FSvF FSv d Pho@neNumb"i,  CountyQ}~0 End Sub H 8 ""0@superphonenumber  B@oH@Attribute VB_Name = "SuperPhoneNumber" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="spnEnd ID="{58FFA5FD-028A-40D0-96FD-B1C5008F4804}" Document=ThisDocument/&H00000000 Module=SuperPhoneNumber Module=InsertCisAddress Module=GranteeFirstName Module=WorkerExtension Module=GranteeLastName Module=GranteeClientID Module=GranteeAddress1 Module=AddChildInfoRow Module=WorkerAreaCode Module=SupervisorName Module=SuperExtention Module=AddSvcReferral Module=SvcRefHeading Module=SuperAreaCode Module=GranteeCareof Module=CoSuppaddress Module=CoPhoneNumber Module=ClearCaseInfo Module=NewParagraph Module=GranteeState Module=countynumber Module=WorkerPhone Module=GranteeCity Module=CoExtension Module=ClientState Module=WorkerName Module=GranteeZip Module=CountyName Module=CoAreaCode Module=ClientCity Module=CaseNumber Module=WorkerFax Module=RemoveRow Module=lastname2 Module=FirstName Module=CoAddress Module=ClientZip Module=RowBreak Module=LastName Module=District Module=CaseInfo Module=Address1 Module=Section Module=OtherID Module=NoReset Module=CoState Module=Correct Module=AddRows Module=Worker Module=MyInfo Module=Hidden Module=County Module=CoCity Module=CareOf Module=FaxAC Module=Date1 Module=CoZip Module=Unit Module=Module1 Name="TemplateProject" HelpContextID="0" VersionCompatible32="393222000" CMG="0200E8E8EEECEEECEEECEEEC" DPB="0406EEF2F2F5F3F5F3F5" GC="0604ECECECECEFEDEFED10" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 ThisDocumentThisDocumentSuperPhoneNumberSuperPhoneNumberInsertCisAddressInsertCisAddressGranteeFirstNameGranteeFirstNameWorkerExtensionWorkerExtensionGranteeLastNameGranteeLastNameGranteeClientIDGranteeClientIDGranteeAddress1GranteeAddress1AddChildInfoRowAddChildInfoRowWorkerAreaCodeWorkerAreaCodeSupervisorNameSupervisorNameSuperExtentionSuperExtentionAddSvcReferralAddSvcReferralSvcRefHeadingSvcRefHeadingSuperAreaCodeSuperAreaCodeGranteeCareofGranteeCareofCoSuppaddressCoSuppaddressCoPhoneNumberCoPhoneNumberClearCaseInfoClearCaseInfoNewParagraphNewParagraphGranteeStateGranteeStatecountynumbercountynumberWorkerPhoneWorkerPhoneGranteeCityGranteeCityCoExtensionCoExtensionClientStateClientStateWorkerNameWorkerNameGranteeZipGranteeZipCountyNameCountyNameCoAreaCodeCoAreaCodeClientCityClientCityCaseNumberCaseNumberWorkerFaxWorkerFaxRemoveRowRemoveRowlastname2lastname2FirstNameFirstNameCoAddressCoAddressClientZipClientZipRowBreakRowBreakLastNameLastNameDistrictDistrictCaseInfoCaseInfoAddress1Address1SectionSectionOtherIDOtherIDNoResetNoResetCoStateCoStateCorrectCorrectAddRowsAddRowsWorkerWorkerMyInfoMyInfoHiddenHiddenCountyCountyCoCityCoCityCareOfCareOfFaxACFaxACDate1Date1CoZipCoZipUnitUnitModule1Module1  FMicrosoft Word Document MSWordDocWord.Document.89q @ Vibjbj phkP"hkP"̍T̍JjϖR!!!!!,M|ɟ$Rנ-!!נ!!!!’5!Ö =4 0J̍̍ננ̍̍$̍̍ FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT     FORMTEXT        FORMTEXT        FORMTEXT      FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT     FORMTEXT        FORMTEXT     FORMTEXT        FORMTEXT     FORMTEXT        FORMTEXT        FORMTEXT     FORMTEXT      FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT (X*X>X@XBXLXNXPXRXfXhXjXtXvXxXzXXXXXXXXXXXXXXXXXXXXYYYYY(Y*Y8Y:YZ@ZBZDZXZZZhZjZlZZڹڮڣژڍڃ~ hh"A5jhh"A5Uj}$hh"AUj#hh"AUj#hh"AUjy"hh"AUj!hh"AUj hh"AUjo hh"AUhh"Ajhh"AUmHnHujhh"AUjhh"AU.ZZZZZZZZZZZZZZZZZZZZZZZZZ[[[[[ ["[$[8[:[<[F[H[J[L[`[b[d[n[p[r[t[[ָΪ֟Ϊ֔Ϊ։Ϊ~Ϊj)hh"AUjI(hh"AUj'hh"AUj#'hh"AUjhh"AUmHnHuji&hh"AUj%hh"AUjhh"AUhh"Ajhh"A5UmHnHujhh"A5Uj%hh"A5U/[[[[[[[[[[[[[[[[[[[[[\fffffff(f*f,f6f8f:fgBgDgFgHg\g^g`gfghgjglggggggggggggggggggggghhhjg7hh"AUj6hh"AUj5hh"AUj05hh"AUjl4hh"AUjhh"AUmHnHuj3hh"AUj73hh"AUj2hh"AUhh"Ajhh"AUj-2hh"AU3hhhh$h&h(hh@hFhHhJhLh`hbhphrhthhhhhhhhhhhhhhhhhhiiiij;hh"AUj:hh"AUj2:hh"AUj9hh"AUj19hh"AUjhh"AUmHnHuj8hh"AUj 8hh"AUhh"Ajhh"AU'ii/ =!"#$%CompObjJj's mail address (street address, PO Box, etc., where the mail will be delivered).2DCareOf UppercaseUEnter the Addressee's Supplemental Address (Example: Suite or Apartment Number, C/O)D CaseNumber Uppercase/Enter the Case Number (Example: V1234567A,B,C)D ClientCity UppercaseEnter the Addressee's City.D ClientState Uppercase1Enter the Addressee's 2 digit State Abbreviation.D ClientZip UppercaseKEnter the Addressee's Zip Code (+4 if known) (Example: 48909 or 48909-7537)D CoAddress UppercaseaEnter the County's mail address (street address, PO Box, etc., where the mail will be delivered).D CoAreaCodeEnter the County's Area CodeDCoCity UppercaseEnter the County's City.D CoExtensiond`CJOJQJ_HmH sH tH VOV CoState1?d8(OJQJ_HkHmH sH tH bOb CoSuppaddress1@d8(OJQJ_HkHmH sH tH \O\ CountyName1Ad8(OJQJ_HkHmH sH tH ^"^ CountyNumberBd8(OJQJ_HkHmH sH tH VO2V CoZip1Cdt CJOJQJ_HkHmH sH tH NOBN Date11 Dd`CJOJQJ_HmH sH tH XRX District1Ed8(OJQJ_HkHmH sH tH LObL FaxAC Fd`CJOJQJ_HmH sH tH VOrV FirstName1 Gd`CJOJQJ_HmH sH tH XOX FirstName21 Hd`CJOJQJ_HmH sH tH `O` GranteeAddress1 Id`CJOJQJ_HmH sH tH \O\ GranteeCareof Jd`CJOJQJ_HmH sH tH XOX GranteeCity Kd`CJOJQJ_HmH sH tH `O` GranteeClientID Ld`CJOJQJ_HmH sH tH hh GranteeFirstName1Md8(OJQJ_HkHmH sH tH fOf GranteeLastName1Nd8(OJQJ_HkHmH sH tH ZOZ GranteeState Od`CJOJQJ_HmH sH tH ZOZ GranteeZip Pd` CJOJQJ_HkHmH sH tH XOX LastName1Qd8(OJQJ_HkHmH sH tH ZO"Z LastName21Rd8(OJQJ_HkHmH sH tH VO2V OtherID1Sd8(OJQJ_HkHmH sH tH VBV Section1Td8(OJQJ_HkHmH sH tH ^OR^ SuperAreaCode1 Ud`CJOJQJ_HmH sH tH dObd SuperExtension1Vd8(OJQJ_HkHmH sH tH dOrd SuperPhoneNumber1 Wd`CJOJQJ_HmH sH tH dOd SupervisorName1Xd8(OJQJ_HkHmH sH tH PP Unit1Yd8(OJQJ_HkHmH sH tH TT Worker1Zd8(OJQJ_HkHmH sH tH `O` WorkerAreaCode1 [d`CJOJQJ_HmH sH tH fOf WorkerExtension1\d8(OJQJ_HkHmH sH tH XOX WorkerFax ]d` CJOJQJ_HkHmH sH tH \O\ WorkerName1^d8(OJQJ_HkHmH sH tH ZOZ WorkerPhone1 _d`CJOJQJ_HmH sH tH ^O^ WorkerTitle1 `d` CJOJQJ_HkHmH sH tH ^^ countynumber ad` CJOJQJ_HkHmH sH tH TO"T District2 bd`CJOJQJ_HmH sH tH RO2R Section2 cd`CJOJQJ_HmH sH tH LOBL Unit2 dd`CJOJQJ_HmH sH tH TORT Worker2 ed` CJOJQJ_HkHmH sH tH ^b^ Countynumber fd` CJOJQJ_HkHmH sH tH `r` Countynumber1 gd` CJOJQJ_HkHmH sH tH \O\ Countynumber2 hd`CJOJQJ_HmH sH tH POP ***** id` CJOJQJ_HkHmH sH tH dOd GranteeFirstName2 jd`CJOJQJ_HmH sH tH p@0/*****Address1CareOf CaseNumber ClientCity ClientState ClientZip CoAddress CoAreaCodeCoCity CoExtension CoPhoneNumberCoState CoSuppaddressCounty CountyName CountynumberCoZip Date1DistrictFaxAC FirstName FirstName2GranteeAddress1 GranteeCareof GranteeCityGranteeClientIDGranteeFirstNameGranteeLastName GranteeState GranteeZip LastName LastName2 OtherIDSection SuperAreaCodeSuperExtensionSuperPhoneNumberSupervisorNameUnitWorkerWorkerAreaCodeWorkerExtension WorkerFax WorkerName WorkerPhone WorkerTitle***** CaseNumber1 ClientZip1 CoAddress1CoCity1 CoExtension1CoState1CoSuppaddress1 CountyName1CoZip1GranteeLastName1 GranteeZip LastName1 LastName21OtherID1SuperExtension1SupervisorName1Worker2WorkerExtension1 WorkerFax WorkerName1 WorkerTitle1 Captions 8pt(<Pdu!5FZn 1BVj~%9MauJ R@(XPYZ[fhi ./0156 R  4dNX1nB,6$Jr[ii  !"&27i  &(4:<HNP\bdpsu!-35ADFRXZflnz} )/1=@BNTVbhjv|~#%179EKMY_amsuFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF/GranteeFirstNameAddress1CareOf CaseNumber ClientCity ClientState ClientZip CoAddress CoAreaCodeCoCity CoExtension CoPhoneNumberCoState CoSuppaddressCounty CountyName CountynumberCoZipdate1DistrictFaxAC FirstName FirstName2GranteeAddress1 GranteeCareOf GranteeCityGranteeClientIDGranteeFirstNameGranteeLastName GranteeState GranteeZipLastName LastName2OtherIDSection SuperAreaCodeSuperExtensionSuperPhoneNumberSupervisorNameUnitWorkerWorkerAreaCodeWorkerExtension WorkerFax WorkerName WorkerPhone WorkerTitle)=Qev"6G[o 2CWk&:Nbv  !"#$%&'()*+,-.';Oct 4EYm~0AUi}$8L`th"A@jo jj(XZfUnknownG: Times New Roman5Symbol3& : Arial=& z Arial (W1)?5 z Courier New5& zaTahoma"h0@?h"A