DMS_client_programmed_source_code_v3.84_4_of_4.nsi 350 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454
  1. � 裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹�ACCTSTATBAS���/�����������FINSTATEBAS���€
  2. �COMBFS BAS���€ !"#$%&'(�COMBFS BAS��)*+��������������CJOURNALBAS���z,-./0123456789:;�WRKSHEETBAS���€<=>?@ABCDEFGHIJK�WRKSHEETBAS��5LMNOPVn����������FINSTATEBAS��/QRSTU����������藐RKSHEETBAS���€WXYZ[\]^_`abcdef藐RKSHEETBAS��4ghijklm���������裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  3. REM
  4. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  5. REM
  6. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  7. REM FLANKS TO NFLANKS
  8. REM
  9. REM 091782 DCF DELETED PROMPT FOR CLIENT DISK AND INSERTED A CLEAR SCREEN
  10. 1 REM *** DISPLAYS AN ACCOUNT STATUS INCLUDING TRANSACTIONS (ACCTSTAT)
  11. REM *** COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS INC.
  12. REM *** 648 SOUTH RIVER DRIVE 602-968-7101
  13. %INC9998 : PRINT: M$=UCASE$(LEFT$(REPLY$,1))
  14. IF M$="M" THEN 800
  15. 70 GOSUB 9005 :PRINT : PRINT
  16. PRINT "ENTER THE CLIENT NUMBER >";:FLD.LEN%=-6 :GOSUB 9998: PRINT : R=VAL(REPLY$)
  17. 99 REM READING CLNRNM
  18. 110 GOSUB 5000
  19. 120 IF R=CLIENT.NO THEN 170
  20. PRINT " THE NUMBER OF THE DISK IN DRIVE "; FIL$(2);
  21. PRINT " IS ";CLIENT.NO
  22. PRINT " Please Change the Disk or Enter the Correct Number!"
  23. PRINT " Then Press RETURN ";:FLD.LEN%=1 :GOSUB 9998 : L$=LEFT$(REPLY PRINT "SET THE PRINTER AND PAPER" : GOSUB 6000
  24. 230 PRINT"ENTER THE ACCOUNT NUMBER (OR -1 TO END) >";:FLD.LEN%=-10 : GOSUB 9998: PRINT : Z=VAL(REPLY$)
  25. 235 IF Z=-1 THEN 800
  26. X=O
  27. 245 REM READING COANS FILE
  28. 246 GOSUB 8001
  29. 250 IF ACCT.NUM = -1 THEN 340
  30. X=X+1
  31. 270 IF ACCT.NUM<>Z THEN 245
  32. 282 IF F<>1 THEN GOTO 285 ELSE GOTO 286
  33. 283 PRINT "WORKING . . ."
  34. 284 PRINT : PRINT : PRINT
  35. 285 CONSOLE : GOSUB 9005 :GOTO 288
  36. 286 LPRINTER
  37. 288 PRINT CLIENT.NAME$;
  38. PRINT "CLIENT #裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹LUDE COMMON.BAS
  39. 3 REM OPENING ALL THE FILES(CLNRNM,COANS,TRINFO)
  40. GOSUB 7000
  41. GOSUB 8000
  42. GOSUB 9000
  43. 5 GOSUB 9005
  44. PRINT
  45. PRINT TAB(23);"Dimis Micro Systems, Inc. "
  46. PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
  47. PRINT
  48. PRINT TAB(29);"MENU OPTION #5"
  49. PRINT " PRINTS OR DISPLAYS A CURRENT ACCOUNT STATUS INCLUDING TRANSACTIONS" : PRINT
  50. PRINT TAB(5);"Press RETURN Key to Continue or 'M' to Return to Utilities Menu";
  51. FLD.LEN%=1 : GOSUB $,1)
  52. 150 GOTO 70
  53. 170 CUR.PER.BAL=0 : CUR.BAL.ACUM=0 : YR.TO.DT.ACUM=0
  54. PRINT "Enter 'P' to have the Account Status PRINTED "
  55. 180 PRINT " 'D' to have it DISPLAYED or"
  56. PRINT " 'M' to return to UTILITIES MENU ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : F$=UCASE$(LEFT$(REPLY$,1))
  57. IF F$="M" THEN 800
  58. 190 IF F$<>"P" THEN 210
  59. 200 F=1 : P=56 : GOTO 225
  60. 210 IF F$<>"D" THEN 222
  61. 220 F=0 : P=21 : GOTO 230
  62. 222 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!" : GOTO 170
  63. 225 ";
  64. PRINT USING "######";CLIENT.NO
  65. 290 PRINT "CURRENT STATUS OF ACCOUNT NUMBER > ";
  66. PRINT USING "######.##";ACCT.NUM;
  67. PRINT " ";
  68. PRINT ACCT.DESCRIP$ : PRINT
  69. 300 PRINT " DATE J# REF. ACCOUNT # ----DESCRIPTION-----";
  70. PRINT TAB(57);
  71. 310 PRINT "CURRENT";
  72. PRINT TAB(68);
  73. PRINT "YEAR-TO-DATE"
  74. 320 PRINT USING "&&";MID$(GL.END.DATE$,1,2);
  75. PRINT "/";
  76. PRINT USING "&&";MID$(GL.END.DATE$,3,2);
  77. PRINT "/";
  78. PRINT USING "&&";MID$(GL.END.DATE$,5,2);
  79. PRINT " BF ";
  80. PRINT USING "######.##";ACCT.NUM;
  81. PRINT " ";
  82. 330 PRINT "BALANCES";
  83. PRINT TAB(48);
  84. PRINT USING "$$###,###,###.##";CUR.PER.BAL/100;YR.TO.DATE.BAL/100
  85. 333 P1=5
  86. 335 GOTO 400
  87. 340 CONSOLE : PRINT CHR$(7);"THAT ACCOUNT NUMBER DOES NOT EXIST"
  88. 350 GOTO 230
  89. 400 REM READING TRINFO FILE
  90. X=0
  91. 415 GOSUB 9001
  92. 420 IF TRAN.ACT.NO = 9999999.99 THEN 580
  93. X=X+1
  94. 440 IF TRAN.ACT.NO<>Z THEN 415
  95. 460 PRINT USING "&&";MID$(TRANS.DT.REF.DESCRIP$,1,2);
  96. OTO 478
  97. 476 PRINT TAB(48);
  98. PRINT USING "$$###,###,###.##";TRANS.AMT/100 : GOTO 480
  99. 478 PRINT TAB(64);
  100. PRINT USING "$$###,###,###.##";TRANS.AMT/100
  101. 480 YR.TO.DT.ACUM=YR.TO.DT.ACUM+TRANS.AMT
  102. IF MID$(TRANS.DT.REF.DESCRIP$,9,1)<>"7" THEN CUR.BAL.ACUM=CUR.BAL.ACUM+TRANS.AMT
  103. 490 P1=P1+1
  104. 500 IF P1<P THEN 415
  105. 510 IF F=1 THEN 545
  106. 520 CONSOLE
  107. 540 INPUT"PRESS RETURN TO CONTINUE ";X$
  108. 545 IF F=0 THEN GOSUB 9005 ELSE PRINT CHR$(12);
  109. 550 IF F=0 THEN 560
  110. 555 PRINT : PRINT : PRINT
  111. 56
  112. 6000 PRINT" THEN PRESS RETURN ";:FLD.LEN%=2 : GOSUB 9998 : PRINT : X$=LEFT$(REPLY$,1) : RETURN
  113. 6100 PRINT"PLEASE CORRECT - THEN PRESS RETURN ";:FLD.LEN%=2 : GOSUB 9998 : PRINT : X$=LEFT$(REPLY$,1) : RETURN
  114. 6999 REM OPENING CLNRNM , TRINFO AND COANS FILES
  115. 7000 OPEN FIL$(2) +":"+ CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL = 1
  116. RETURN
  117. 8000 OPEN FIL$(4) +":"+ CLIENT$ + "COA.FIL" RECL 65 AS 2 : COANS.FILE = 2
  118. RETURN
  119. 8001 READ #COANS.FILE,X+1;\
  120. ACCT.NUM,\
  121. CUR.PER.BAREM 101485 - RML - CORRECTED LINES 700, 720, 740, 1087, AND 1500 TO CORRECT
  122. REM MISS ALIGNED DECIMALS WHEN NET PROFIT IS LESS THAN 0.
  123. REM
  124. REM 112184 - SRS - ADDED ROUTINE TO LINES 580,590 WHICH SAVES H$ (CURRENT
  125. REM HEADER LINE) IN L1$, TESTS FOR CHARACTERS PRESENT AFTER
  126. REM XX/XX/XX IN HEADER LINE AND IF ANY, STORES THEM IN L$
  127. REM AND ADDS L$ TO END OF PRINT LINE
  128. REM
  129. REM 112184 - SRS - CORRECTED ALIGNMENT OF DECIMALS IN BOTH COLUMNS IN LIN83 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  130. REM
  131. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  132. REM
  133. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  134. REM FLANKS TO NFLANKS
  135. REM
  136. REM 020183 - DCF CHANGED PRINT CLR$ TO GOSUB 9005
  137. REM
  138. REM 020183 - DCF CHANGED LINE 1630 MOVED GOTO 1640 ON NEXT LINE
  139. REM FIXED SINGLE UNDERLINE PROBLEM AT THE END OF REPORT
  140. REM
  141. REM 111182 - (RCB) ADDED LINE AT 630 TO SKIP FRONT AND TAIL SPACE EATING
  142. REM PRINT "/";
  143. PRINT USING "&&";MID$(TRANS.DT.REF.DESCRIP$,3,2);
  144. PRINT "/";
  145. PRINT USING "&&";MID$(TRANS.DT.REF.DESCRIP$,5,2);
  146. PRINT " ";
  147. PRINT USING "&";MID$(TRANS.DT.REF.DESCRIP$,9,1);
  148. PRINT " ";
  149. PRINT USING "&&";MID$(TRANS.DT.REF.DESCRIP$,10,5);
  150. PRINT " ";
  151. 470 PRINT USING "######.##";TRAN.ACT.NO;
  152. PRINT " ";
  153. PRINT USING "&&";MID$(TRANS.DT.REF.DESCRIP$,16,19);
  154. 475 IF MID$(TRANS.DT.REF.DESCRIP$,9,1) <> "7" THEN GOTO 476 ELSE G0 P1=0
  155. 570 GOTO 415
  156. 580 PRINT
  157. 640 PRINT " TOTALS";
  158. PRINT TAB(48);
  159. PRINT USING "$$###,###,###.##";(CUR.PER.BAL+CUR.BAL.ACUM)/100;
  160. PRINT USING "$$###,###,###.##";(YR.TO.DATE.BAL+YR.TO.DT.ACUM)/100
  161. 652 IF F=1 THEN PRINT CHR$(12)
  162. CONSOLE
  163. 653 PRINT"PRESS RETURN TO START ANOTHER LIST ";:FLD.LEN%=2 : GOSUB 9998: PRINT : X$=LEFT$(REPLY$,1)
  164. 655 GOSUB 9005 : GOTO 170
  165. 775 CLOSE CLNRNM.FIL
  166. CLOSE COANS.FILE
  167. CLOSE TRINFO.FILE
  168. 778 CONSOLE
  169. 800 CHAIN PGM$(4) + ":" + "UMENU" L,\
  170. YR.TO.DATE.BAL,\
  171. ACCT.DESCRIP$
  172. CUR.PER.BAL=0
  173. RETURN
  174. 9000 OPEN FIL$(5) +":"+ CLIENT$ + "TRI.FIL" RECL 68 AS 3 : TRINFO.FILE = 3
  175. RETURN
  176. 9001 READ #TRINFO.FILE,X+1;\
  177. TRAN.ACT.NO,\
  178. TRANS.AMT,\
  179. TRANS.DT.REF.DESCRIP$
  180. RETURN
  181. %INCLUDE NFLANKS.BAS
  182. %INCLUDE 5000
  183.  + "COA.FIL" RECL 65 AS 2 : COANS.FILE = 2
  184. RETURN
  185. 8001 READ #COANS.FILE,X+1;\
  186. ACCT.NUM,\
  187. CUR.PER.BAES
  188. REM 639,660,740,1300,1302,1307,1643
  189. REM
  190. REM 102883 - (RCB) ADDED CODE AT 575 TO CHANGE GL ENDING DATE TO 010183
  191. REM IF CURRENT GL ENDING DATE IS 0
  192. REM
  193. REM 070583 - DCF CHANGED ALL T1= TO T1.XE= FOR CB80 COMPILE
  194. REM
  195. REM 062783 - (RCB) CHANGED 84 TO 70 IN LINE AFTER 634.2 TO MOVE CENTERED
  196. REM HEADINGS OVER 8 SPACES
  197. REM
  198. REM 062483 - (RCB) ADDED XE.X9 AT 634.2 AND LINE AFTER TO PREVENT VALUE FROM
  199. REM CHANGING AS THE STRING GETS LONGER - TO FIX CENTERING
  200. REM
  201. REM 0620 IF LENGTH IS LESS THAN 2 TO PREVENT SS ERROR
  202. REM
  203. REM 092382 - (RCB) CHECKED AND FIXED ALL INPUTS FOR UPPER AND LOWER CASE
  204. REM
  205. REM 092382 - (RCB) CHANGE LINES AFTER 51 FROM THEN 1400 TO THEN 1410 TO
  206. REM PREVENT ERROR NF IF M TO RETURN TO MENU IS SELECTED
  207. REM
  208. REM 092282 - (RCB) TOOK .2 OFF OF 634 IN LINE 630 SO EAT OFF BACK ROUTINE
  209. REM WILL BE ACCESSED
  210. REM
  211. REM 092282 - (RCB) CHANGED 78 TO 84 IN LINE 634.2 TO CALM STEVE DOWN ABOUT
  212. REM CENTERING
  213. REM
  214. REM 092282 - (RCB) DECREMENTED MENU OPTION NUMBER BY 1
  215. REM
  216. REM 092082 - (RCB) CHANGED M TO FISCAL.END.MO IN LINES 625 AND 626
  217. REM
  218. REM 091782 - (RCB) ADDED PRESS RETURN TO CUNTINUE AFTER LINE 135 TO ALLOW
  219. REM THE USER TO READ THE MESSAGE (I FOUND THIS ONE)
  220. REM
  221. REM 091682 - (RCB) LINES IN * ADDED AT 634 TO FIX CENTERING 634 IS NOW 634.2
  222. REM
  223. REM 091682 - (RCB) ADDED + 1 TO P IN LINE AFTER 1150 TO TRY TO GET SKIP
  224. REM LINE FUNCTION TO WORK
  225. REM
  226. REM 091682 - (RCB) PUT ABS FUNCTION IN P BY - R & B COMPUTER SYSTEMS INC.
  227. REM *** 648 SOUTH RIVER DR. 602-968-7101
  228. REM *** TEMPE, AZ. 85281
  229. %INCLUDE COMMON.BAS
  230. 41 DIM C(9),T(9),T1(9),T2(9)
  231. 42 A$=" "
  232. 51 GOSUB 9005
  233. PRINT
  234. 52 PRINT TAB(23);"Dimis Micro Systems, Inc. "
  235. PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
  236. PRINT
  237. PRINT TAB(20);"** ACCOUNTING MENU OPTION #6 **"
  238. PRINT TAB(22);"PRINTS FINANCIAL STATEMENTS" : PRINT
  239. PRINT TAB(9);"Press RETURN R FIVE SIX " + \
  240. "SEVEN EIGHT NINE TEN ELEVENTWELVE"
  241. M3$="JANUARY FEBRUARY MARCH APRIL MAY JUNE " + \
  242. "JULY AUGUST SEPTEMBEROCTOBER NOVEMBER DECEMBER "
  243. 89 IF MULT.FIN.STATE.FLAG THEN 115
  244. 90 GOSUB 9005 : PRINT
  245. 91 PRINT"ENTER THE CLIENT NUMBER FROM THE CONTROL SHEET >";:FLD.LEN%=-7 : GOSUB 9998 : PRINT : CS.CLIENT=VAL(REPLY$)
  246. 115 REM ************************** READING CLNRNM FIL
  247. GOSUB 5000
  248. 118 IF MULT.FIN.STATE.FLAG THEN 170
  249. 120 IF CS.CLIENT<>"M" THEN GOTO 156 ELSE GOTO 151
  250. 150 GOSUB 7000 : GOTO 144
  251. 151 PRINT"ENTER THE NUMBER OF COMBINED FINANCIAL STATEMENTS YOU WANT PRINTED >";:FLD.LEN%=-3 : GOSUB 9998 : PRINT : A9=VAL(REPLY$)
  252. 153 REM *************************** WRITING THE # OF COMBINED FINANCIAL STATEMENTS TO PRINT
  253. GOSUB 5000
  254. A9.III = A9
  255. GOSUB 5010
  256. 155 CHAIN PGM$(1)+":" + "COMBFS"
  257. 156 PRINT"ENTER THE NUMBER OF FINANCIAL STATEMENT REPORTS YOU WANT PRINTED >";: FLD.LEN%=-3 : GOSUB 9998 : PRINT : A9=VAL(FILE
  258. IF END #COANS.FIL THEN 3200
  259. READ #COANS.FIL,R;\
  260. ACCT.NO,\
  261. CUR.PER.BAL,\
  262. YTD.BAL,\
  263. ACCT.DESC$
  264. 210 IF ACCT.NO=-1 THEN 3200
  265. 235 R=R+1
  266. 270 REM *************************** READING HEADER FILE
  267. REM IF END #FSHEADS.FIL THEN 3300
  268. 280 READ #FSHEADS.FIL,R1;\
  269. HEADER.NO,\
  270. HEAD.DESC$,\
  271. HEAD.CTRL.CHAR$
  272. IF HEADER.NO = -1 THEN 3300
  273. 285 R1=R1+1
  274. 290 REM ************************ CHECRINT LINE FOR PERCENTAGES (%)
  275. REM
  276. REM 091082 - PUT IN <IF P < 1 THEN 1180> AT 1150 TO GET IT TO SKIP LINES
  277. REM
  278. REM 090982 - MOVED OPEN STATEMENTS ABOVE LINE NUMBER 58 TO AVOID DOUBLE OPENING
  279. REM (ERROR DF) IF PRINTING MORE THAN ONE STATEMENT - 58 IS LOOP RETURN
  280. REM
  281. REM 090982 - ADDED ELSE GOTO 1410 ABOVE 1400 AND 1410 IN FRONT OF CHAIN "AMENU"
  282. REM TO PREVENT FILES FROM BEING CLOSED TWICE
  283. REM
  284. REM ***FINANCIAL STATEMENTS*** (FINSTATE) (10D)(VERSION 4.0)
  285. REM ***COPYRIGHT 1982Key to Continue or 'M' to Return to Menu ";
  286. FLD.LEN%=1 : GOSUB 9998 : PRINT : M$=UCASE$(LEFT$(REPLY$,1))
  287. IF M$="M" THEN 1410
  288. MULT.FIN.STATE.FLAG=0
  289. 88 REM *************************** OPENING FILES
  290. OPEN FIL$(2) +":" + CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL=1
  291. OPEN FIL$(7) +":" + CLIENT$ + "FSH.FIL" RECL 94 AS 4 : FSHEADS.FIL=4
  292. OPEN FIL$(4) +":" + CLIENT$ + "COA.FIL" RECL 65 AS 2 : COANS.FIL=2
  293. 58 IF A9 THEN GOSUB 6000
  294. 85 R1=1 : R=1
  295. M2$="ONE TWO THREE FOU=CLIENT.NO THEN 142
  296. 130 PRINT "THE ACTIVE CLIENT NUMBER IS #";CLIENT.NO
  297. 135 PRINT " PLEASE ENTER THE CORRECT NUMBER!"
  298. PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 : GOSUB 9998
  299. 140 GOTO 90
  300. 142 GOSUB 9005 : PRINT : PRINT
  301. 143 IF MULT.FIN.STATE.FLAG THEN 157
  302. 144 PRINT "WOULD YOU LIKE TO PRINT COMBINED FINANCIAL STATEMENTS ONLY? ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : A7$=UCASE$(LEFT$(REPLY$,1))
  303. 145 IF A7$="N" THEN 156
  304. 146 IF A7$="Y" THEN GOSUB 8000 ELSE GOTO 150
  305. 147 IF M$REPLY$)
  306. 157 PRINT "SET THE PRINTER AND PAPER"
  307. 159 PRINT " PRESS RETURN TO CONTINUE ";:FLD.LEN%=1 : GOSUB 9998 : PRINT
  308. 160 GOSUB 9005
  309. 165 IF A9 > 1 THEN GOTO 167 ELSE GOTO 168
  310. 167 PRINT : PRINT : PRINT " NOW PRINTING THE FINANCIAL STATEMENTS" : GOTO 170
  311. 168 PRINT : PRINT : PRINT " NOW PRINTING THE FINANCIAL STATEMENT"
  312. 170 LPRINTER
  313. 200 REM *************************** READING ACCOUNTS KING IF HEADER CAN PRINT
  314. IF MID$(HEAD.CTRL.CHAR$,6,1)="N" THEN 270
  315. IF MID$(HEAD.CTRL.CHAR$,6,1) = "U" THEN 270
  316. 300 IF HEADER.NO<=ACCT.NO THEN 350
  317. 310 GOSUB 800
  318. 330 REM READING ACCOUNTS
  319. IF END #COANS.FIL THEN 3200
  320. READ #COANS.FIL,R;\
  321. ACCT.NO,\
  322. CUR.PER.BAL,\
  323. YTD.BAL,\
  324. ACCT.DESC$
  325. IF ACCT.NO = -1 THEN 3200
  326. 340 R=R+1 : GOTO 300
  327. 350 GOSUB 360 : GOTO 270
  328. 360 REM *************************** CHECKING HEADER CONTROL CHARACTERS
  329. IF F$="S" THEN G4$="S" ELSE G4$=" "
  330. IF I$<>"C" THEN 392
  331. REM *************************** CHECK FOR CURRENT % AND BALANCES NOT TO PRINT
  332. IF MID$(HEAD.CTRL.CHAR$,6,1)="S" THEN F$="S"
  333. REM *************************** CHECK TO RESUME PRINTING CURRENT % AND BALANCES
  334. IF MID$(HEAD.CTRL.CHAR$,6,1)="C" THEN F$="C"
  335. 392 REM *************************** CHECK FOR INCOME STATEMENT FORMAT
  336. IF MID$(HEAD.CTRL.CHAR$,3,1)="C" THEN I$="C"
  337. IF G$="A" THEN G3$=******** CHECK TO END % CALCULATIONS
  338. IF MID$(HEAD.CTRL.CHAR$,3,1)="=" THEN J$=" "
  339. 396 REM *************************** CHECK FOR ACCOUNTS W/ZERO BALANCES NOT TO PRINT
  340. IF MID$(HEAD.CTRL.CHAR$,3,1)="Z" THEN Z$="Z"
  341. REM *************************** CHECK TO RESUME PRINTING ACCOUNTS W/ZERO BALANCES
  342. IF MID$(HEAD.CTRL.CHAR$,3,1)="R" THEN Z$=" "
  343. 397 REM *************************** CHECK IF ACCOUNTS ARE DEBITS
  344. IF MID$(HEAD.CTRL.CHAR$,4,1)="+" THEN S=1
  345. REM * IF MID$(HEAD.CTRL.CHAR$,6,1)="M" THEN M$="M"
  346. IF G1$="H" THEN G2$="H"
  347. 400 IF MID$(HEAD.CTRL.CHAR$,1,1)="0" THEN 440
  348. 410 IF I$<>"C" THEN 440
  349. 420 IF MID$(HEAD.CTRL.CHAR$,3,1)<>"%" THEN 430
  350. 422 J=C(VAL(MID$(HEAD.CTRL.CHAR$,1,1)))/100
  351. 425 J1=T(VAL(MID$(HEAD.CTRL.CHAR$,1,1)))/100
  352. 430 K$=HEAD.DESC$ : HEAD.DESC$=" " : HEAD.DESC$=K$
  353. 440 IF MID$(HEAD.CTRL.CHAR$,5,1)<>"$" THEN 455
  354. 450 A$="$" + RIGHT$(A$,LEN(A$)-1)
  355. A$=LEFT$(A$,3) + "$" + RIGHT$(A$,LEN(A$)-4)
  356. 455 REM *************** L$="" : GOTO 590
  357. 580 L1$=HEAD.DESC$ : Q1=LEN(MID$(L1$,1,X-1))
  358. IF LEN(L1$)-(Q1+8)<1 THEN L$="" ELSE L$=MID$(L1$,Q1+9,LEN(L1$)-(Q1+8))
  359. HEAD.DESC$=MID$(HEAD.DESC$,1,X-1)
  360. 590 M1=VAL(MID$(GL.END.DATE$,1,2))
  361. REM ****
  362. M4$=MID$(M3$,M1*9-8,9)
  363. FOR Y=9 TO 4.0 STEP -1.0
  364. IF MID$(M4$,Y,1)=" " THEN M4$=LEFT$(M4$,Y-1)
  365. NEXT Y
  366. HEAD.DESC$=HEAD.DESC$+M4$+" "+MID$(GL.END.DATE$,3,2)+", 19"+MID$(GL.END.DATE$,5,2)+L$
  367. 615 GOTO 621
  368. 620 NEXT X
  369. LEN(HEAD.DESC$);"X=";X;"W=";W
  370. IF MID$(HEAD.DESC$,X+W,1)=" " THEN HEAD.DESC$=MID$(HEAD.DESC$,1,X+W-1)+MID$(HEAD.DESC$,X+W+1,LEN(HEAD.DESC$)-(X+W-2))
  371. 628 NEXT W : GOTO 630
  372. 629 NEXT X
  373. 630 IF LEN(HEAD.DESC$) < 2 THEN 634.2
  374. IF MID$(HEAD.DESC$,1,1)<>" " THEN 634
  375. HEAD.DESC$=RIGHT$(HEAD.DESC$,LEN(HEAD.DESC$)-1)
  376. GOTO 630
  377. REM *********************************************************************
  378. REM EAT SPACES OFF OF HEADER DESCRIPTION'S BUTT FOR CENTERING
  379. 634 IF MID$(HEAD.DESC$,LE"A" ELSE G3$=" "
  380. 393 REM *************************** CHECK FOR YEAR-TO-DATE ONLY FORMAT
  381. IF MID$(HEAD.CTRL.CHAR$,3,1)="S" THEN I$=" "
  382. REM *************************** CHECK TO PRINT TOTAL IN LEFT-MOST COL. IN YEAR-TO-DATE FORMAT
  383. IF MID$(HEAD.CTRL.CHAR$,3,1)="A"THEN G$="A" ELSE G$=" "
  384. 394 REM *************************** CHECK TO BEGIN % CALCULATIONS
  385. IF MID$(HEAD.CTRL.CHAR$,3,1)="%" THEN J$="%"
  386. IF G1$<>"H" THEN G2$=" " ELSE G2$="H"
  387. 395 REM ********************************************* CHECK IF ACCOUNT BALANCES ARE TO PRINT IN RIGHT-MOST COL.
  388. IF MID$(HEAD.CTRL.CHAR$,6,1)="H" THEN G1$="H"
  389. 398 REM *************************** CHECK IF ACCOUNTS ARE CREDITS
  390. IF MID$(HEAD.CTRL.CHAR$,4,1)="-" THEN S=-1
  391. REM *************************** CHECK TO RESUME PRINTING ACCOUNTS IN LEFT-MOST COL.
  392. IF MID$(HEAD.CTRL.CHAR$,6,1)="A" THEN G1$="A"
  393. 399 REM *************************** CHECK TO PRINT COMBINED BALANCE SHEET AND INCOME STATEMENT
  394. ************ CHECK FOR THE PROFIT YEAR-TO-DATE
  395. IF MID$(HEAD.CTRL.CHAR$,3,1)="P" THEN 700
  396. 460 REM *************************** BEG. OF GROUP OF ACCTS. WHICH % ARE TO BE CALCULATED AND PRINTED
  397. 465 IF MID$(HEAD.CTRL.CHAR$,3,1)="B" THEN GOSUB 3000
  398. 570 IF MID$(HEAD.CTRL.CHAR$,3,1)<>"D" THEN 660
  399. 575 IF VAL(GL.END.DATE$)=0 THEN GL.END.DATE$ = "010183"
  400. FOR X=1 TO LEN(HEAD.DESC$)-7
  401. IF MID$(HEAD.DESC$,X,8)<>"XX/XX/XX" THEN 620
  402. IF X <> 1 THEN 580
  403. HEAD.DESC$=" "
  404. 621 FOR X=1 TO LEN(HEAD.DESC$)-5
  405. 622 IF MID$(HEAD.DESC$,X,6)<>"XXXXXX" THEN 629
  406. 623 HEAD.DESC$=LEFT$(HEAD.DESC$,X-1) + " " + RIGHT$(HEAD.DESC$,LEN(HEAD.DESC$)-(X+5))
  407. 624 M1=VAL(MID$(GL.END.DATE$,1,2))
  408. 625 IF FISCAL.END.MO>=M1 THEN M2=12-FISCAL.END.MO+M1
  409. 626 IF FISCAL.END.MO<M1 THEN M2=M1-FISCAL.END.MO
  410. HEAD.DESC$=LEFT$(HEAD.DESC$,X-1)+MID$(M2$,M2*6-5,6)+ RIGHT$(HEAD.DESC$,LEN(HEAD.DESC$)-(X+5))
  411. 627 FOR W=5 TO 2.0 STEP -1.0
  412. REM PRINT "LEN(HEAD.DESC$) =";N(HEAD.DESC$),1) <> " " THEN 634.2
  413. HEAD.DESC$ = LEFT$(HEAD.DESC$,LEN(HEAD.DESC$)-1)
  414. GOTO 634
  415. REM *********************************************************************
  416. 634.2 XE.X9 = LEN(HEAD.DESC$)
  417. FOR X=0 TO (70-XE.X9)/2
  418. HEAD.DESC$=" "+HEAD.DESC$
  419. NEXT X
  420. 639 GOSUB 1490 : PRINT TAB(8);HEAD.DESC$ : T1.XE=66
  421. GOTO 680
  422. 660 GOSUB 1490 : PRINT TAB(8);HEAD.DESC$; : T1.XE=66
  423. 670 GOSUB 1190
  424. 680 GOSUB 1120
  425. 690 GOTO 790
  426. 700 PRINT TAB(8);HEAD.DESC$; : T1.XE=50
  427. U1=I : GOSUB 4000
  428. IF G1$="H" THEN U=U+16
  429. 710 IF I>0 THEN 740
  430. 720 PRINT TAB(50+U);
  431. PRINT USING FORM.DFLT$;ABS(I/100)
  432. IF G1$="H" THEN U=U-16
  433. 730 GOTO 750
  434. 740 PRINT TAB(49+U);
  435. PRINT "(";
  436. PRINT USING FORM.DFLT$;ABS(I/100);
  437. PRINT ")"
  438. IF G1$="H" THEN U=U-16
  439. 750 FOR X=0 TO 9
  440. 760 T(X)=T(X)+I
  441. 770 C(X)=0
  442. 780 NEXT X
  443. 785 I=0
  444. 790 RETURN
  445. 800 IF END #COANS.FIL THEN 880
  446. 810 READ #COANS.FIL,R;\
  447. ACCT.NO.HOLD,\
  448. CUR.PER.BAL.HOLD,\
  449. YTD.BAL.HOLD,\30 IF Z$<>"Z" THEN 970
  450. 935 IF I$<>"C" THEN 950
  451. 940 IF CUR.PER.BAL<>0 THEN 970
  452. 950 IF YTD.BAL<>0 THEN 970
  453. 960 GOTO 1110
  454. 970 PRINT TAB(10);ACCT.DESC$; : T1.XE=50
  455. 980 IF I$<>"C" THEN 1080
  456. 985 GOSUB 3080
  457. IF F$="S" THEN 1020
  458. 990 IF CUR.PER.BAL*S<0 THEN A$=LEFT$(A$,1) + "()" + RIGHT$(A$,LEN(A$)-3)
  459. 993 U1=CUR.PER.BAL : GOSUB 4000
  460. 1000 PRINT TAB(30+U);MID$(A$,1,2);
  461. PRINT USING FORM.DFLT$;(ABS(CUR.PER.BAL/100));
  462. PRINT MID$(A$,3,1);
  463. 1005 IF ABS(CUR.PER.BAL/J)>999.99 THEN 1020
  464. 1010 IF J$<0 THEN A$=LEFT$(A$,1) + "()" + RIGHT$(A$,LEN(A$)-3)
  465. 1085 U1=YTD.BAL : GOSUB 4000
  466. 1086 IF G1$<>"H" THEN 1090
  467. 1087 PRINT TAB(64+U);
  468. PRINT MID$(A$,1,2);
  469. PRINT USING FORM.DFLT$;ABS(YTD.BAL/100);
  470. PRINT MID$(A$,3,1) : GOTO 1100
  471. 1090 PRINT TAB(48+U);
  472. PRINT MID$(A$,1,2);
  473. PRINT USING FORM.DFLT$;ABS(YTD.BAL/100);
  474. PRINT MID$(A$,3,1)
  475. 1100 A$=" "
  476. 1110 RETURN
  477. 1120 IF MID$(HEAD.CTRL.CHAR$,2,1)<>"P" THEN 1140
  478. 1125 PRINT CHR$(12);
  479. 1130 GOTO 1180
  480. 1140 P=VAL(00);
  481. PRINT MID$(A$,3,1);
  482. 1235 IF ABS(C(Q)/J)>999.99 THEN 1250
  483. 1240 IF J$="%" THEN GOTO 1241 ELSE GOTO 1250
  484. 1241 PRINT TAB(45+U);
  485. PRINT USING "###.##";ABS(C(Q)/J);
  486. PRINT "%";
  487. 1250 IF T(Q)*S<0 THEN A$=LEFT$(A$,4) + "()" + RIGHT$(A$,LEN(A$)-6)
  488. 1255 U1=T(Q) : GOSUB 4000
  489. 1260 PRINT TAB(54+U);MID$(A$,4,2);
  490. PRINT USING FORM.DFLT$;ABS(T(Q)/100);
  491. PRINT MID$(A$,6,1);
  492. 1265 IF ABS(T(Q)/J1)>999.99 THEN 1280
  493. 1270 IF J$="%" THEN GOTO 1275 ELSE GOTO 1280
  494. 1275 PRINT USING FORM.DFLT$;ABS(T(Q)/100);
  495. PRINT MID$(A$,6,1)
  496. 1298 GOTO 1302
  497. 1299 GOTO 1310
  498. 1300 PRINT TAB(64+U);MID$(A$,4,2);
  499. PRINT USING FORM.DFLT$;ABS(T(Q)/100);
  500. PRINT MID$(A$,6,1)
  501. 1302 IF G3$=" " THEN Z8=66 ELSE Z8=50
  502. 1303 IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN Z8=50
  503. IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN Z8=50
  504. 1304 IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN 1306
  505. IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1306
  506. 1305 IF MID$(HEAD.CTRL.CHAR$,7,1)<>"D" THEN 1310
  507. 1306 PRINT TAB(
  508. ACCT.DESC.HOLD$
  509. IF ACCT.NO.HOLD = -1 THEN 880
  510. R=R+1
  511. 820 IF INT(ACCT.NO)<>INT(ACCT.NO.HOLD) THEN 870
  512. 830 CUR.PER.BAL=CUR.PER.BAL+CUR.PER.BAL.HOLD : YTD.BAL=YTD.BAL+YTD.BAL.HOLD
  513. 840 GOTO 810
  514. 870 R=R-2
  515. READ #COANS.FIL,R;\
  516. ACCT.NO.HOLD,\
  517. CUR.PER.BAL.HOLD,\
  518. YTD.BAL.HOLD,\
  519. ACCT.DESC.HOLD$ : R=R+1
  520. 880 I=I-YTD.BAL : I2=I2+YTD.BAL
  521. 890 FOR X=0 TO 9
  522. 900 T(X)=T(X)+YTD.BAL
  523. 910 C(X)=C(X)+CUR.PER.BAL
  524. 920 NEXT X
  525. 9="%" THEN GOTO 1012 ELSE GOTO 1020
  526. 1012 PRINT USING "###.##";ABS(CUR.PER.BAL/J);
  527. PRINT "%";
  528. 1020 IF YTD.BAL*S<0 THEN A$=LEFT$(A$,4) + "()" + RIGHT$(A$,LEN(A$)-6)
  529. 1025 U1=YTD.BAL : GOSUB 4000
  530. 1030 PRINT TAB(54+U);MID$(A$,4,2);
  531. PRINT USING FORM.DFLT$;(ABS(YTD.BAL/100));
  532. PRINT MID$(A$,6,1);
  533. 1035 IF ABS(YTD.BAL/J1)>999.99 THEN 1045
  534. 1040 IF J$="%" THEN GOTO 1041 ELSE GOTO 1045
  535. 1041 PRINT USING "###.##";ABS(YTD.BAL/J1);
  536. PRINT "%";
  537. 1045 PRINT : GOTO 1100
  538. 1080 IF YTD.BAL*SMID$(HEAD.CTRL.CHAR$,2,1))
  539. REM *****************************************************************
  540. 1150 IF P < 1 THEN 1180
  541. FOR X=1 TO P
  542. 1160 PRINT
  543. 1170 NEXT X
  544. 1180 RETURN
  545. 1190 Q=VAL(MID$(HEAD.CTRL.CHAR$,1,1))
  546. 1200 IF Q<>0 THEN 1210
  547. 1201 PRINT : GOTO 1370
  548. 1210 IF I$<>"C" THEN 1290
  549. 1215 GOSUB 3080
  550. IF F$="S" THEN 1250
  551. 1220 IF C(Q)*S<0 THEN A$=LEFT$(A$,1) + "()" + RIGHT$(A$,LEN(A$)-3)
  552. 1225 U1=C(Q) : GOSUB 4000
  553. 1230 PRINT TAB(30+U);MID$(A$,1,2);
  554. PRINT USING FORM.DFLT$;ABS(C(Q)/1TAB(69+U);
  555. PRINT USING "###.##";ABS(T(Q)/J1);
  556. PRINT "%";
  557. 1280 PRINT
  558. IF MID$(HEAD.CTRL.CHAR$,7,1)="D" THEN GOSUB 1600
  559. IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN GOSUB 1600
  560. 1285 IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN GOSUB 1600
  561. GOTO 1310
  562. REM ******** N.S. ON THEN SAME LINE AS AN IF GOTO BF *********
  563. 1290 IF T(Q)*S<0 THEN A$=LEFT$(A$,4) + "()" + RIGHT$(A$,LEN(A$)-6)
  564. 1295 U1=T(Q) : GOSUB 4000
  565. 1296 IF G$<>"A" THEN 1300
  566. 1297 PRINT TAB(48+U);MID$(A$,4,2);
  567. PRINTZ8);"==============";
  568. 1307 IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN PRINT TAB(66);"--------------"; : PRINT
  569. 1310 A$=" "
  570. 1320 FOR X=0 TO Q
  571. 1330 T(X)=0
  572. 1340 C(X)=0
  573. 1350 NEXT X
  574. 1360 IF Q<>9 THEN 1370
  575. 1365 J$=" " : I=0
  576. 1370 RETURN
  577. 1379 REM *************************** CHECKING FOR MULTIPLE STATEMENTS OR COMBINED FINANCIAL STATEMENTS
  578. 1380 PRINT CHR$(12);
  579. 1381 IF I2=0 THEN 1383
  580. 1382 PRINT "FINANCIAL STATEMENT IS OUT OF BALANCE BY ";I2/100;CHR$(12);
  581. 1383 IF MULT.FIN.STATE.FLAG REM 101485 - RML - CORRECTED LINES 700, 720, 740, 1080, AND 1490 TO CORRECT
  582. REM FOR MISS-ALIGNED DECIMALS WHEN NET PROFIT IS LESS THAN 0
  583. REM
  584. REM 112184 - SRS - ADDED ROUTINE TO LINES 465,580 WHICH SAVES H$ (CURRENT
  585. REM HEADER LINE) IN L1$, TESTS FOR CHARACTERS PRESENT AFTER
  586. REM XX/XX/XX IN HEADER LINE AND IF ANY, STORES THEM IN L$ THEN
  587. REM ADDS L$ TO END OF PRINT LINE
  588. REM
  589. REM 112184 - SRS - CORRCTED ALIGNMENT OF DECIMALS IN BOTH COLUMNS IN AT 634.2 AND LINE AFTER TO PREVENT VALUE FROM
  590. REM CHANGING AS THE STRING GETS LONGER - TO FIX CENTERING
  591. REM
  592. REM 051683 - (RCB) CHANGED M TO FISCAL.END.MO IN LINES BETWEEN 621 AND 629
  593. REM TO CORRECT WRONG NUMBER OF MONTHS PROBLEM - ALSO CHANGED
  594. REM A LEFT$(A$,2) TO A LEFT$(A$,1) IN LINE 5 LINES AFTER 970
  595. REM TO PREVENT THE NEGATIVE BRACKET FROM GOING AROUND THE
  596. REM PERCENT AND MAKE IT GO AROUND THE DOLLAR FIGURE IF IT
  597. REM IS NEGATIVE
  598. REM
  599. REM 040183 - (RCB) CHANGE FLD.LEN% =COMMAS TO PRINT USINGS IN 4011
  600. REM ***
  601. REM ***10/22/82 DTK - INCORRECT MONTH NAME PRINTING (OFF BY ONE)
  602. REM ***
  603. REM ***10/22/82 DTK - FIXED INCORRECT ACCT ORDER ON INCOME STATEMENT SEE 7210
  604. REM ***
  605. REM *** 9/10/82 DTK FIXED DEPARTMENTAL REPORTS BY CHANGING H TO HEADER.NO
  606. REM *** AT 6230 - ALSO FIXED ERROR DF ON MULTIPLE STMTS
  607. REM ***
  608. REM ***COMBINED FINANCIAL STATEMENTS (COMBFS) (10D)(VERSION 4.0)
  609. REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC.
  610. REM *** NE JULY AUGUST SEPTEMBEROCTOBER NOVEMBER DECEMBER "
  611. OPEN FIL$(2) + ":" + CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL=1
  612. OPEN FIL$(7) + ":" + CLIENT$ + "FSH.FIL" RECL 94 AS 4 : FSHEADS.FIL=4
  613. OPEN FIL$(4) + ":" + CLIENT$ + "COA.FIL" RECL 65 AS 2 : COANS.FIL=2
  614. CREATE FIL$(7) + ":" + CLIENT$ + "SRT.TMP" RECL 94 AS 5 : SORT.TMP=5
  615. 85 GOSUB 9005
  616. PRINT "NOW COMPILING AND SORTING DATA FOR COMBINED FINANCIAL STATEMENTS"
  617. PRINT "ESTIMATED TIME IS 5-10 MINUTES . . ."
  618. GO
  619. 125 IF X=-1 THEN 2195
  620. GOSUB 7000
  621. IF X=-1 THEN 2195
  622. LPRINTER
  623. PRINT : PRINT
  624. R1=0 : R=0 : W=0
  625. GOSUB 5900
  626. 270 IF END #SORT.TMP THEN 3300
  627. GOSUB 5100
  628. R1=R1+1
  629. IF MID$(HEAD.CTRL.CHAR$,6,1) = "U" THEN GOTO 270
  630. 300 IF HEADER.NO<=ACCT.NO THEN GOTO 360
  631. GOSUB 800
  632. IF R>A5 THEN 3200
  633. GOSUB 5900
  634. GOTO 300
  635. 360 GOSUB 370
  636. GOTO 270
  637. 370 IF F$="S" THEN G4$="S" ELSE G4$=" "
  638. IF I$<>"C" THEN 392
  639. IF MID$(HEAD.CTRL.CHAR$,6,1)="S" THEN F$="S"
  640. IF MID$(HELINES
  641. REM 639,660,740,1300,1302,1306,1490,1642
  642. REM
  643. REM 110383 - (RCB) ADDED LINES AFTER 1399 TO CHECK FOR AMENU BEFORE PROMPTING
  644. REM TO INSERT THE PROGRAM DISK IN TO THE DRIVE
  645. REM
  646. REM 070583 - DCF CHANGED VARIABLE T1 TO T1.XE
  647. REM CHANGED VARIABLE A9 TO A9.X9
  648. REM CHANGED VARIABLE C TO C.XE FOR CB80 COMPILE
  649. REM
  650. REM 062783 - (RCB) CHANGED 84 TO 70 IN LINE AFTER 634 TO MOVE CENTERED
  651. REM HEADINGS OVER 8 SPACES
  652. REM
  653. REM 062483 - (RCB) ADDED XE.X9 TO NEGATIVE IF NUMERIC ONLY AND
  654. REM FLANKS TO NFLANKS
  655. REM
  656. REM 032483 - (RCB) SET DIM USING DIMFIL = HOLE(4)/2 - THE PROGRAM USES 1
  657. REM STRING FOR EVERY 3 NUMBERS BUT STRING ARE 3 TIMES AS BIG
  658. REM
  659. REM 031783 - (RCB) SET DIM USING HOLE(4)
  660. REM
  661. REM ***02/10/83 DCF - CHANGED PRINT CLR$ TO GOSUB 9005
  662. REM
  663. REM ***11/11/82 DTK - IDIOTS LIKE TO TYPE IN DATE WITH NO PRECEEDING SPACES
  664. REM ***
  665. REM ***10/22/82 DTK - FIXED % ON INCOME STMT - READ FROM SORT.TMP!
  666. REM ***
  667. REM ***10/22/82 DTK - ADDED 648 SOUTH RIVER DR. 602-968-7101
  668. REM *** TEMPE, AZ. 85281
  669. %INCLUDE COMMON.BAS
  670. FILDIM = (HOLE(3)-8)
  671. DIM C(9),T(9),A9(FILDIM*3),T1(9),T2(9),ACCT.ARRAY$(FILDIM)
  672. BLANK$=" "
  673. L=260 : A8=0 : L1=FILDIM : P4=1
  674. A$ = " " : REM SET TO 4 SPACES
  675. IF A8<>0 THEN GOSUB 8000
  676. M2$="ONE TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE TEN ELEVENTWELVE"
  677. M3$="JANUARY FEBRUARY MARCH APRIL MAY JUSUB 5000 : REM READ CLNRMN.FIL
  678. C.XE = CLIENT.NO
  679. C$ = CLIENT.NAME$
  680. C1$ = GL.END.DATE$
  681. C2$ = PAY.END.DATE$
  682. A9.X9 = A9.III
  683. R1=0 : A5=0
  684. IF END #FSHEADS.FIL THEN 122
  685. READ #FSHEADS.FIL,R1+1;\
  686. HEADER.NO,\
  687. HEAD.DESC$,\
  688. HEAD.CTRL.CHAR$
  689. GOSUB 6080
  690. GOTO 125
  691. 122 PRINT CHR$(7);"THERE ARE NO HEADERS FOR THIS CLIENT"
  692. PRINT " YOU CANNOT PRINT COMBINED FINANCIAL STATEMENTS"
  693. X=-1 AD.CTRL.CHAR$,6,1)="C" THEN F$="C"
  694. 392 IF MID$(HEAD.CTRL.CHAR$,3,1)="C" THEN I$="C"
  695. IF G$="A" THEN G3$= "A" ELSE G3$=" "
  696. IF MID$(HEAD.CTRL.CHAR$,3,1)="S" THEN I$=" "
  697. IF MID$(HEAD.CTRL.CHAR$,3,1)="A" THEN G$="A" ELSE G$=" "
  698. IF MID$(HEAD.CTRL.CHAR$,3,1)="%" THEN J$="%"
  699. IF G1$<>"H" THEN G2$=" " ELSE G2$= "H"
  700. IF MID$(HEAD.CTRL.CHAR$,3,1)="=" THEN J$=" "
  701. IF MID$(HEAD.CTRL.CHAR$,3,1)="Z" THEN Z$="Z"
  702. IF MID$(HEAD.CTRL.CHAR$,3,1)="R" THEN Z$=" "
  703. IF MID$(HEAD.CTRL.CHAR$,4,1)="+" THEN S=1
  704. IF MID$(HEAD.CTRL.CHAR$,6,1)="H" THEN G1$="H"
  705. IF MID$(HEAD.CTRL.CHAR$,4,1)="-" THEN S=-1
  706. IF MID$(HEAD.CTRL.CHAR$,6,1)="A" THEN G1$="A"
  707. IF G1$="H" THEN G2$="H"
  708. IF MID$(HEAD.CTRL.CHAR$,1,1)="0" THEN 440
  709. IF I$<>"C" THEN 440
  710. IF MID$(HEAD.CTRL.CHAR$,3,1)<>"%" THEN 430
  711. J=C(VAL(MID$(HEAD.CTRL.CHAR$,1,1)))/100
  712. J1=T(VAL(MID$(HEAD.CTRL.CHAR$,1,1)))/100
  713. 430 K$=HEAD.DESC$ : HEAD.DESC$=" " : HEAD.DESC$=K$
  714. 440 IF MID$(HEAD.CTRL.CHAR$,5,1)<>"$" THEN 455
  715. 450 A$="$" +8)<1 THEN L$="" ELSE L$=MID$(L1$,Q1+9,LEN(L1$)-(Q1+8))
  716. HEAD.DESC$=MID$(HEAD.DESC$,1,X-1)
  717. 590 M1=VAL(MID$(C1$,1,2))
  718. M4$=MID$(M3$,M1*9-8,9)
  719. FOR Y=9 TO 4.0 STEP -1.0
  720. IF MID$(M4$,Y,1)= " " THEN M4$=LEFT$(M4$,Y-1)
  721. NEXT Y
  722. HEAD.DESC$=HEAD.DESC$+M4$+" "+MID$(C1$,3,2)+", 19"+MID$(C1$,5,2)+L$
  723. GOTO 621
  724. 620 NEXT X
  725. 621 FOR X=1 TO LEN(HEAD.DESC$)-5
  726. IF MID$(HEAD.DESC$,X,6)<>"XXXXXX" THEN 629
  727. HEAD.DESC$=LEFT$(HEAD.DE 630
  728. 629 NEXT X
  729. 630 IF MID$(HEAD.DESC$,1,1)<>" " THEN 634
  730. IF LEN(HEAD.DESC$) < 2 THEN GOTO 634
  731. HEAD.DESC$=RIGHT$(HEAD.DESC$,LEN(HEAD.DESC$)-1)
  732. GOTO 630
  733. 634 XE.X9 = LEN(HEAD.DESC$)
  734. FOR X=0 TO (70-XE.X9)/2
  735. HEAD.DESC$=" "+HEAD.DESC$
  736. NEXT X
  737. 639 GOSUB 1490
  738. PRINT TAB(8);HEAD.DESC$
  739. T1.XE=66
  740. GOTO 680
  741. 660 GOSUB 1490
  742. PRINT TAB(8);HEAD.DESC$;
  743. T1.XE=66
  744. GOSUB 1190
  745. 680 GOSUB 1120
  746. GOTO 790
  747. 700 PRINT TAB(8);HEAD.DESC$;
  748. T1.XE=50
  749. U1=I
  750. GOSUB 40 R=R+3
  751. GOTO 800
  752. 880 I=I-YTD.BAL : I2=I2+YTD.BAL
  753. FOR X=0 TO 9
  754. T(X)=T(X)+YTD.BAL
  755. C(X)=C(X)+CUR.PER.BAL
  756. NEXT X
  757. IF Z$<>"Z" THEN 970
  758. IF I$<>"C" THEN 950
  759. IF CUR.PER.BAL<>0 THEN 970
  760. 950 IF YTD.BAL<>0 THEN 970
  761. GOTO 1110
  762. 970 PRINT TAB(10);ACCT.DESC$;
  763. T1.XE=50
  764. IF I$<>"C" THEN 1080
  765. GOSUB 3080
  766. IF F$="S" THEN 1020
  767. IF CUR.PER.BAL*S<0 THEN A$=LEFT$(A$,1)+ "()"+RIGHT$(A$,LEN(A$)-3)
  768. U1=CUR.PER.BAL
  769. GOSUB 4000
  770. PRINT TAB(30+U);MID$(A$,1,29 THEN 1045
  771. IF J$="%" THEN GOTO 1021 ELSE GOTO 1045
  772. 1021 PRINT TAB(71);
  773. PRINT USING "###.##";ABS(YTD.BAL/J1);
  774. PRINT "%";
  775. 1045 PRINT : GOTO 1100
  776. 1080 IF YTD.BAL*S<0 THEN A$=LEFT$(A$,1)+"()"+RIGHT$(A$,LEN(A$)-3)
  777. U1=YTD.BAL
  778. GOSUB 4000
  779. IF G1$<>"H"THEN 1090
  780. PRINT TAB(64+U);MID$(A$,1,2);
  781. PRINT USING DEFAULT.FORM$;ABS(YTD.BAL/100);
  782. PRINT MID$(A$,3,1)
  783. GOTO 1100
  784. 1090 PRINT TAB(48+U);MID$(A$,1,2);
  785. PRINT USING DEFAULT.FORM$;ABS(YTD.BAL/100);
  786. + RIGHT$(A$,LEN(A$)-1)
  787. A$=LEFT$(A$,3) + "$" + RIGHT$(A$,LEN(A$)-4)
  788. 455 IF MID$(HEAD.CTRL.CHAR$,3,1)="P" THEN 700
  789. 465 IF MID$(HEAD.CTRL.CHAR$,3,1)="B" THEN GOSUB 3000
  790. IF MID$(HEAD.CTRL.CHAR$,3,1)<>"D" THEN 660
  791. IF VAL(C1$)=0 THEN 639
  792. FOR X=1 TO LEN(HEAD.DESC$)-7
  793. IF MID$(HEAD.DESC$,X,8)<>"XX/XX/XX" THEN 620
  794. IF X <> 1 THEN 580
  795. HEAD.DESC$=" "
  796. L$="" : GOTO 590
  797. 580 L1$=HEAD.DESC$
  798. Q1=LEN(MID$(L1$,1,X-1))
  799. IF LEN(L1$)-(Q1SC$,X-1) + " "+ \
  800. RIGHT$(HEAD.DESC$,LEN(HEAD.DESC$)-(X+5))
  801. M1=VAL(MID$(C1$,1,2))
  802. IF FISCAL.END.MO>=M1 THEN M2=12-FISCAL.END.MO+M1
  803. IF FISCAL.END.MO<M1 THEN M2=M1-FISCAL.END.MO
  804. HEAD.DESC$=LEFT$(HEAD.DESC$,X-1) + MID$(M2$,M2*6-5,6)+ \
  805. RIGHT$(HEAD.DESC$,LEN(HEAD.DESC$)-(X+5))
  806. FOR W=5 TO 2.0 STEP -1.0
  807. IF MID$(HEAD.DESC$,X+W,1)=" " THEN HEAD.DESC$=MID$(HEAD.DESC$,1,X+W-1)+MID$(HEAD.DESC$,X+W+1,LEN(HEAD.DESC$)-(X+W-1))
  808. NEXT W
  809. GOTO00
  810. IF G1$="H" THEN U=U+16
  811. 710 IF I>0 THEN 740
  812. 720 PRINT TAB(50+U);
  813. PRINT USING DEFAULT.FORM$;ABS(I/100)
  814. IF G1$="H" THEN U=U-16
  815. 730 GOTO 750
  816. 740 PRINT TAB(49+U);"(";
  817. PRINT USING DEFAULT.FORM$;ABS(I/100);
  818. PRINT ")"
  819. IF G1$="H" THEN U=U-16
  820. 750 FOR X=0 TO 9
  821. T(X)=T(X)+I
  822. C(X)=0
  823. NEXT X
  824. I=0
  825. 790 RETURN
  826. 800 IF R>A5 THEN 880
  827. 820 IF INT(ACCT.NO)<>INT(A9(R)) THEN 880
  828. CUR.PER.BAL=CUR.PER.BAL+A9(R+1)
  829. YTD.BAL=YTD.BAL+A9(R+2)
  830. );
  831. PRINT USING DEFAULT.FORM$;ABS(CUR.PER.BAL/100);
  832. PRINT MID$(A$,3,1);
  833. IF ABS(CUR.PER.BAL/J)>999.99 THEN 1020
  834. IF J$="%" THEN GOTO 1019 ELSE GOTO 1020
  835. 1019 PRINT TAB(47);
  836. PRINT USING "###.##";ABS(CUR.PER.BAL/J);
  837. PRINT "%";
  838. 1020 IF YTD.BAL*S<0 THEN A$=LEFT$(A$,4)+"()"+RIGHT$(A$,LEN(A$)-6)
  839. U1=YTD.BAL
  840. GOSUB 4000
  841. PRINT TAB(54+U);
  842. PRINT MID$(A$,4,2);
  843. PRINT USING DEFAULT.FORM$;ABS(YTD.BAL/100);
  844. PRINT MID$(A$,6,1);
  845. IF ABS(YTD.BAL/J1)>999.9 PRINT MID$(A$,3,1)
  846. 1100 A$=" "
  847. 1110 RETURN
  848. 1120 IF MID$(HEAD.CTRL.CHAR$,2,1)<>"P" THEN 1140
  849. PRINT CHR$(12);
  850. GOTO 1180
  851. 1140 P=VAL(MID$(HEAD.CTRL.CHAR$,2,1))
  852. IF P < 1 THEN GOTO 1180
  853. FOR X=1 TO P
  854. PRINT
  855. NEXT X
  856. 1180 RETURN
  857. 1190 Q=VAL(MID$(HEAD.CTRL.CHAR$,1,1))
  858. IF Q<>0 THEN 1210
  859. PRINT
  860. GOTO 1370
  861. 1210 IF I$<>"C" THEN 1290
  862. GOSUB 3080
  863. IF F$="S" THEN 1250
  864. IF C(Q)*S<0 THEN A$=LEFT$(A$,1)+ "()"+ RIGHT$(A$,LEN(A$)-3)
  865. U1=C(Q)
  866. GOSUB 4000
  867. 1230 PRINT TAB(30+U);MID$(A$,1,2);
  868. PRINT USING DEFAULT.FORM$;ABS(C(Q)/100);
  869. PRINT MID$(A$,3,1);
  870. IF ABS(C(Q)/J)>999.99 THEN 1250
  871. 1240 IF J$="%" THEN GOTO 1241 ELSE GOTO 1250
  872. 1241 PRINT TAB(47);
  873. PRINT USING "###.##";ABS(C(Q)/J);
  874. PRINT "%";
  875. 1250 IF T(Q)*S<0 THEN A$=LEFT$(A$,4)+"()"+RIGHT$(A$,LEN(A$)-6)
  876. U1=T(Q)
  877. GOSUB 4000
  878. PRINT TAB(54+U);MID$(A$,4,2);
  879. PRINT USING DEFAULT.FORM$;ABS(T(Q)/100);
  880. PRINT MID$(A$,6,1);
  881. IF ABS(T(Q)/J1)>999.99 THEN 1280
  882. ;ABS(T(Q)/100);
  883. PRINT MID$(A$,6,1)
  884. GOTO 1302
  885. 1300 PRINT TAB(64+U);MID$(A$,4,2);
  886. PRINT USING DEFAULT.FORM$;ABS(T(Q)/100);
  887. PRINT MID$(A$,6,1)
  888. 1302 IF G3$=" " THEN Z8=66 ELSE Z8= 50
  889. IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN Z8=50
  890. IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN Z8=50
  891. IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN 1306
  892. IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1306
  893. IF MID$(HEAD.CTRL.CHAR$,7,1)<>"D" THEN 1310
  894. 1306 PRINT TAB(Z8);"==============";
  895. IF MID$(HEAD.CTE
  896. GOTO 85
  897. 1398 IF A8 <> A9.X9 THEN CONSOLE : GOTO 85
  898. 1399 CONSOLE
  899. IF NUM.BITS% = 8 THEN EXT$ = ".OVL" ELSE EXT$ = ".OVR"
  900. IF SIZE(PGM$(1)+":AMENU"+EXT$) = 0 THEN \
  901. PRINT "INSERT THE PROGRAM DISK IN DRIVE ";PGM$(1) : \
  902. GOSUB 3100 : INITIALIZE
  903. GOTO 1420
  904. 1420 CONSOLE
  905. DELETE 5
  906. CHAIN PGM$(1) + ":" + "AMENU"
  907. 1490 IF I$="C" THEN 1507
  908. IF G2$="H" THEN T1.XE=66
  909. IF G3$="A" THEN T1.XE=50
  910. IF MID$(HEAD.CTRL.CHAR$,7,1)="D" THEN 1505
  911. IF MID$(HEAD.CTRL.CHAR$,7,1)=" THEN 1540
  912. PRINT TAB(56);"--------------";
  913. IF J$="%" THEN PRINT TAB(71);"-------";
  914. 1540 PRINT
  915. 1550 RETURN
  916. 1600 IF F$="S" THEN 1620
  917. PRINT TAB(32);"==============";
  918. IF J$="%" THEN PRINT TAB(47);"=======";
  919. IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN 1640
  920. IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1635
  921. 1620 PRINT TAB(56);"==============";
  922. IF J$="%" THEN PRINT TAB(71);"=======";
  923. GOTO 1640
  924. 1635 PRINT TAB(56);"--------------";
  925. IF J$="%" THEN PRINT TAB(71);"-------";
  926. 1640 GOTOEND #FSHEADS.FIL THEN 3075
  927. GOSUB 5510
  928. R1=R1+1
  929. IF MID$(HEAD.CTRL.CHAR.HOLD$,6,1)="U" THEN 3005
  930. 3020 IF ACCT.NO.HOLD<=HEADER.NO.HOLD THEN 3040
  931. IF MID$(HEAD.CTRL.CHAR.HOLD$,3,1)="%" THEN GOTO 3072 ELSE GOTO 3005
  932. 3040 FOR X = 1 TO 9
  933. T1(X) = T1(X) + CUR.PER.BAL.HOLD/100
  934. T2(X) = T2(X) + YTD.BAL.HOLD/100
  935. NEXT X
  936. IF R > A5 THEN GOTO 3075
  937. ACCT.NO.HOLD = A9(R) : CUR.PER.BAL.HOLD = A9(R+1) : YTD.BAL.HOLD = A9(R+2)
  938. R = R + 3
  939. GOTO 3020
  940. 3072 J = T1(VAIF J$="%" THEN GOTO 1270 ELSE GOTO 1280
  941. 1270 PRINT TAB(71);
  942. PRINT USING "###.##";ABS(T(Q)/J1);
  943. PRINT "%";
  944. 1280 PRINT
  945. IF MID$(HEAD.CTRL.CHAR$,7,1)="D" THEN GOSUB 1600
  946. IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN GOSUB 1600
  947. IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN GOSUB 1600
  948. GOTO 1310
  949. 1290 IF T(Q)*S<0 THEN A$=LEFT$(A$,4) + "()"+RIGHT$(A$,LEN(A$)-6)
  950. U1=T(Q)
  951. GOSUB 4000
  952. IF G$<>"A" THEN 1300
  953. PRINT TAB(48+U);MID$(A$,4,2);
  954. PRINT USING DEFAULT.FORM$RL.CHAR$,7,1)="T" THEN PRINT TAB(66);"--------------"; : PRINT
  955. 1310 A$=" "
  956. FOR X=0 TO Q
  957. T(X)=0
  958. C(X)=0
  959. NEXT X
  960. IF Q<>9 THEN 1370
  961. J$=" " : I=0
  962. 1370 RETURN
  963. 1380 PRINT CHR$(12);
  964. IF I2=0 THEN 1390
  965. PRINT "FINANCIAL STATEMENT IS OUT OF BALANCE BY ";I2/100;CHR$(12);
  966. 1390 IF A8 THEN 1394
  967. IF A9.X9 > 1 THEN GOTO 1392 ELSE GOTO 1399
  968. 1392 A8=A8+2
  969. GOSUB 8000
  970. CONSOLE
  971. GOTO 85
  972. 1394 IF A8 < A9.X9 THEN GOTO 1395 ELSE GOTO 1398
  973. 1395 A8=A8+1
  974. GOSUB 8000
  975. CONSOLE" THEN 1642
  976. IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1642
  977. IF MID$(HEAD.CTRL.CHAR$,7,1)<>"S" THEN 1550
  978. 1505 PRINT TAB(T1.XE);"--------------"
  979. GOTO 1550
  980. 1507 IF MID$(HEAD.CTRL.CHAR$,7,1)="S" THEN 1509
  981. IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1509
  982. IF MID$(HEAD.CTRL.CHAR$,7,1)="D" THEN 1509
  983. IF MID$(HEAD.CTRL.CHAR$,7,1)<>"E" THEN 1550
  984. 1509 IF G4$="S" THEN 1515
  985. PRINT TAB(32);"--------------";
  986. IF J$="%" THEN PRINT TAB(47);"-------";
  987. 1515 IF MID$(HEAD.CTRL.CHAR$,7,1)="T" 1650
  988. 1642 PRINT TAB(50);"--------------";
  989. IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1650
  990. PRINT TAB(66);"--------------";
  991. 1650 PRINT
  992. RETURN
  993. PRINT CHR$(7)
  994. 2195 CONSOLE
  995. PRINT "PRESS RETURN TO GO TO ACCOUNTING MENU ";:FLD.LEN%=1 : GOSUB 9998 : PRINT
  996. GOTO 1390
  997. 3000 J$="%" : J=0 : J1=0
  998. ACCT.NO.HOLD=ACCT.NO : CUR.PER.BAL.HOLD=CUR.PER.BAL
  999. YTD.BAL.HOLD=YTD.BAL : R6=R1 : R5=R
  1000. FOR X = 1 TO 9
  1001. T1(X) = C(X)
  1002. T2(X) = T(X)
  1003. NEXT X
  1004. 3005 REM IF L(MID$(HEAD.CTRL.CHAR.HOLD$,1,1)))
  1005. J1 = T2(VAL(MID$(HEAD.CTRL.CHAR.HOLD$,1,1)))
  1006. 3075 R=R5 : R1=R6
  1007. 3080 IF J=0 THEN J=9999999999
  1008. IF J1=0 THEN J1=9999999999
  1009. RETURN
  1010. 3100 PRINT" THEN PRESS RETURN ";:FLD.LEN%=1 : GOSUB 9998 : PRINT
  1011. RETURN
  1012. 3200 GOSUB 370
  1013. IF END #SORT.TMP THEN 1380
  1014. GOSUB 5100
  1015. IF HEADER.NO < 1 THEN GOTO 1380
  1016. R1=R1+1
  1017. GOTO 3200
  1018. 3300 GOSUB 820
  1019. IF R>A5 THEN 1380
  1020. GOSUB 5900
  1021. GOTO 3300
  1022. PRINT "INSERT A CLIENT DATA DISK IN DRIVE 2"
  1023. RETURN
  1024. 4000 IF ABS(U1/100)<10000000 THEN U=2 ELSE U=0
  1025. IF U=2 THEN GOTO 4011 ELSE GOTO 4012
  1026. 4011 DEFAULT.FORM$ = "#,###,###.##"
  1027. GOTO 4020
  1028. 4012 DEFAULT.FORM$ = "###,###,###.##"
  1029. 4020 RETURN
  1030. 5100 READ #SORT.TMP,R1+1;\
  1031. HEADER.NO,\
  1032. HEAD.DESC$,\
  1033. HEAD.CTRL.CHAR$
  1034. RETURN
  1035. 5200 PRINT #SORT.TMP,W+1;\
  1036. HEADER.NO,\
  1037. HEAD.DESC$,\
  1038. HEAD.CTRL.CHAR$
  1039. RETURN
  1040. 5500 READ #FSHEADS.FIL,R1+1;\
  1041. HEADER.NO,\
  1042. HEAD.DESC5+1)=R1
  1043. R1=R1+1
  1044. REM IF END #FSHEADS.FIL THEN 6190
  1045. 6110 GOSUB 5500
  1046. IF HEADER.NO < 0 THEN GOTO 6190
  1047. HEADER.NO=HEADER.NO-10000*(INT(INT(HEADER.NO)/10000))
  1048. FOR X=0 TO A5 STEP 2
  1049. IF HEADER.NO=A9(X) THEN 6175
  1050. NEXT X
  1051. IF A5>=L1*2-2 THEN 6190
  1052. A5=A5+2
  1053. A9(A5)=HEADER.NO : A9(A5+1)=R1
  1054. 6175 R1=R1+1
  1055. GOTO 6110
  1056. 6190 F=0
  1057. FOR X=0 TO A5-2 STEP 2
  1058. IF A9(X)<=A9(X+2) THEN 6230
  1059. H2=A9(X+1) : A9(X+1)=A9(X+3) : A9(X+3)=H2
  1060. H1=A9(X) : A9(X)=A9(X+2) : A9(X+2)=H1
  1061. F=1
  1062. 6230 NOTO 7310
  1063. 7070 R=R+1
  1064. ACCT.NO=INT(ACCT.NO)-10000*(INT(INT(ACCT.NO)/10000))
  1065. A9(A5)=ACCT.NO : A9(A5+1)=CUR.PER.BAL : A9(A5+2)=YTD.BAL
  1066. ACCT.ARRAY$(A5/3) = LEFT$(ACCT.DESC$,20)
  1067. 7100 IF END #COANS.FIL THEN 7210
  1068. READ #COANS.FIL,R+1;\
  1069. ACCT.NO,\
  1070. CUR.PER.BAL,\
  1071. YTD.BAL,\
  1072. ACCT.DESC$
  1073. IF ACCT.NO < 0 THEN GOTO 7210
  1074. R=R+1
  1075. ACCT.NO=INT(ACCT.NO)-10000*(INT(INT(ACCT.NO)/10000))
  1076. FOR X=0 TO A5 STEP 3
  1077. IF ACCT.NO<>A9(X) THEN 7170
  1078. A9(X+1)=A9OR X=0 TO A5-3 STEP 3
  1079. IF A9(X)<A9(X+3) THEN 7290
  1080. ACCT.NO=A9(X+3) : CUR.PER.BAL=A9(X+4)
  1081. YTD.BAL=A9(X+5) : ACCT.DESC$=ACCT.ARRAY$(X/3+1)
  1082. A9(X+3)=A9(X) : A9(X+4)=A9(X+1) : A9(X+5)=A9(X+2)
  1083. ACCT.ARRAY$(X/3+1) = ACCT.ARRAY$(X/3)
  1084. A9(X)=ACCT.NO : A9(X+1)=CUR.PER.BAL : A9(X+2)=YTD.BAL
  1085. ACCT.ARRAY$(X/3) = LEFT$(ACCT.DESC$ +BLANK$,20)
  1086. F=1
  1087. 7290 NEXT X
  1088. IF F=1 THEN 7215
  1089. 7310 RETURN
  1090. 8000 G4$=" " : F$=" " : I$=" " : G3$=" " : G$=" " : J$=" "
  1091. G2$=" " : Z$REM 102485 - RML - ADDED STATEMENTS ACCT.NUM = X AND X = ACCT.NUM TO LINES
  1092. REM 670 AND 820 TO CORRECT FOR AMOUNTS BEING POSTED TO THE
  1093. REM WRONG ACCOUNT.
  1094. REM
  1095. REM 113084 - SRS - DEMICAL ENTRY TRAP ADDED LINE 672 AND
  1096. REM SUBROUTINE 900
  1097. REM
  1098. REM 072583 - DCF ADDED CHECK FOR NUM.BITS CHANGED .INT TO .OVL (8 BIT)
  1099. REM OR .OVR (16 BIT)
  1100. REM
  1101. REM 071483 - DCF REMOVED LINE NUMBERS FROM REM STATEMENTS AT THE BEGINNING
  1102. REM OF THE C$,\
  1103. HEAD.CTRL.CHAR$
  1104. RETURN
  1105. 5510 READ #SORT.TMP,R1+1;\
  1106. HEADER.NO.HOLD,\
  1107. HEAD.DESC.HOLD$,\
  1108. HEAD.CTRL.CHAR.HOLD$
  1109. RETURN
  1110. 5900 ACCT.NO=A9(R) : CUR.PER.BAL=A9(R+1) : YTD.BAL=A9(R+2)
  1111. ACCT.DESC$=ACCT.ARRAY$(R/3)
  1112. R=R+3
  1113. RETURN
  1114. REM BELOW IS WHAT 6080 WAS BEFORE IT WAS FIXED(?) - NOTICE THE ")"
  1115. REM HEADER.NO=HEADER.NO-10000*(INT(INT(HEADER.NO))/10000)
  1116. 6080 HEADER.NO=HEADER.NO-10000*(INT(INT(HEADER.NO)/10000))
  1117. A9(A5)=HEADER.NO : A9(AEXT X
  1118. IF F=1 THEN 6190
  1119. W=0
  1120. FOR X=0 TO A5 STEP 2
  1121. R1=A9(X+1)
  1122. GOSUB 5500
  1123. HEADER.NO = A9(X)
  1124. GOSUB 5200
  1125. W=W+1
  1126. NEXT X
  1127. 6310 RETURN
  1128. 7000 R=0 : A5=0
  1129. IF END #COANS.FIL THEN 7030
  1130. READ #COANS.FIL,R+1;\
  1131. ACCT.NO,\
  1132. CUR.PER.BAL,\
  1133. YTD.BAL,\
  1134. ACCT.DESC$
  1135. GOTO 7070
  1136. 7030 PRINT CHR$(7);"THERE ARE NO ACCOUNTS FOR THIS CLIENT"
  1137. PRINT " YOU CANNOT PRINT COMBINED FINANCIAL STATEMENTS!"
  1138. X=-1 : G(X+1)+CUR.PER.BAL : A9(X+2)=A9(X+2)+YTD.BAL
  1139. GOTO 7100
  1140. 7170 NEXT X
  1141. IF A5>=L1*3-3 THEN \
  1142. LPRINTER : \
  1143. PRINT "INSUFFICIENT MEMORY TO PROCESS COMBINED STATEMENT" : \
  1144. PRINT "STOPPED AT SEQUENCE ";A5;" CORE ACCOUNT ";ACCT.NO : \
  1145. CONSOLE : \
  1146. GOTO 7210
  1147. A5=A5+3
  1148. ACCT.DESC$=LEFT$(ACCT.DESC$,20)
  1149. A9(A5)=ACCT.NO : A9(A5+1)=CUR.PER.BAL : A9(A5+2)=YTD.BAL
  1150. ACCT.ARRAY$(A5/3) = LEFT$(ACCT.DESC$,20)
  1151. GOTO 7100
  1152. 7210 REM FIXES ACCTS OUT OF ORDER BUG - RETURN
  1153. 7215 F=0
  1154. F=" "
  1155. S=0 : G1$=" " : M$=" " : J=0 : J1=0 : K$=" "
  1156. M1=0 : M4$=" " : HEAD.DESC$=" " : CUR.PER.BAL=0
  1157. YTD.BAL=0: CUR.PER.BAL.HOLD=0 : I=0 : I2=0 : U1=0
  1158. Q=0 : T1.XE=0 : Z8=0
  1159. RETURN
  1160. %INCLUDE 5000
  1161. %INCLUDE NFLANKS.BAS
  1162.  X
  1163. IF F=1 THEN 7215
  1164. 7310 RETURN
  1165. 8000 G4$=" " : F$=" " : I$=" " : G3$=" " : G$=" " : J$=" "
  1166. G2$=" " : Z$ODE FOR CB80 COMPILE.
  1167. REM
  1168. REM 062383 - (RCB) ADDED IF A4 = -1 THEN 9740 AFTER READ IN 9722 TO PREVENT
  1169. REM ERRONIOUS NUMBERS FROM BEING ADDED INTO THE TOTAL FROM
  1170. REM FILLER NUMBERS IN THE END OF FILE RECORDS
  1171. REM (ACCOUNT NUMBER = -1)
  1172. REM
  1173. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  1174. REM
  1175. REM 061483 - (RCB) REMED OUT LINE 1110 TO PREVENT TWO FORM FEEDS ON EXIT
  1176. REM USING OPTION -1 - BUG CODE 124-061383
  1177. REM
  1178. REM 060983 - (RCB) PUT +1 BACK IN 9800
  1179. REM
  1180. REM 060983 - (RCB) CHANGED X.FNM>11 TO X.FNM>12 IN LINE 9960 TO PREVENT
  1181. REM THE POINTER FROM JUMPING OVER 12 AND REPLACED (11+1)
  1182. REM WITH (12+1) SO POINTER WILL GO FROM 12 TO 0
  1183. REM
  1184. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  1185. REM
  1186. REM 041183 - (RCB) REMOVED +1 FROM LINE 9800
  1187. REM
  1188. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  1189. REM FLANKS TO NFLANKS
  1190. REM
  1191. REM 021683 - (RCB) ADDED HOLE(4) TO DEMENSIONING
  1192. REM
  1193. REM 020483 - (DCF) CHANGED LINES 9630 AND 9960 SO THE PERIORCB) ADDED FEEL BEFORE CHAINING MENU.INT
  1194. REM
  1195. REM 101382 - (RCB) ADDED SIZE FEEL BEFOR OPENING OF CON FILE - CHANGED ACC.FIL
  1196. REM FROM 10 TO 8
  1197. REM
  1198. REM 093082 - (RCB) CHANGED LINE9140 FROM LENGTH 7 TO 6 AND CHANGED LINE 9600
  1199. REM FROM LEN 1 TO LEN LEN(D3$)-6
  1200. REM
  1201. REM 092982 - (RCB) MOVED 1840 FROM AFTER 1835 TO AFTER 1800 TO PREVENT ERROR DF
  1202. REM WHEN LOOPING BACK TO PRINT HEADING ON SECOND PAGE
  1203. REM
  1204. REM 092982 - (RCB) ADDED A READ BEFOR THE WRITE IN 9720 TO SIMULATE NORTH STAR
  1205. REM ABSO GOSUB 9005
  1206. PRINT
  1207. 51 PRINT TAB(23);"Dimis Micro Systems, Inc. "
  1208. PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
  1209. PRINT
  1210. PRINT TAB(21);"** AUXILIARY MENU OPTION #3 **"
  1211. PRINT TAB(15);"ENTERS OR CHANGES PERIOD ACCOUNT BALANCES" : PRINT
  1212. PRINT TAB(5);"Press RETURN Key to Continue or 'M' to Return to Auxiliary Menu";
  1213. FLD.LEN% = 1 : GOSUB 9998
  1214. M$ = UCASE$(LEFT$(REPLY$,1))
  1215. IF M$="M" THEN 1635
  1216. 85 B$=" "
  1217. 100 PRINT : PRINT : PRINT "SET PRINTER AND PA98 : \
  1218. INITIALIZE : \
  1219. GOTO 115
  1220. OPEN FIL$(10) + ":" + CLIENT$ + "CON.FIL" RECL 142 AS 10 : CON.FIL = 10
  1221. 130 READ #CON.FIL;C,C$,O1,O,D3$
  1222. CLOSE CON.FIL
  1223. 150 IF B=C THEN 185
  1224. 160 PRINT "THE CLIENT NUMBER OF THE DISK IN DRIVE ";FIL$(10);" IS #";C
  1225. 165 PRINT " PLEASE ENTER THE CORRECT NUMBER!"
  1226. 170 PRINT CHR$(7) : PRINT " PRESS RETURN TO CONTINUE ";
  1227. FLD.LEN% = 1 : GOSUB 9998
  1228. M$ = REPLY$
  1229. GOTO 108
  1230. 185 PRINT : PRINT "WORKING . . ."
  1231. 190 OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 ENTER JOURNAL DATE (MMDDYY) > <";
  1232. 305 Y=6 : GOSUB 8000 : PRINT">";
  1233. FLD.LEN% = -6 : GOSUB 9998
  1234. D1$ = REPLY$ : PRINT
  1235. 306 D1$=D1$+B$ : D$=D1$ : GOSUB 4300 :
  1236. IF D$="INVALI" THEN 304
  1237. 307 GOSUB 1220
  1238. 450 PRINT "IN PLACE OF THE ACCOUNT NUMBER OF A TRANSACTION ENTER:"
  1239. 460 PRINT " -1 (MINUS ONE) TO END THIS PERIOD AND START A NEW PERIOD"
  1240. 470 PRINT " -2 (MINUS TWO) TO END THIS JOURNAL AND RETURN TO THE AUXILIARY MENU"
  1241. 480 PRINT "ENTER A ZERO '0' IN ANY FIELD TO VOID & RE-ENTER A TRANSACTIOND POINTER ONLY
  1242. REM MOVES THROUGH PERIODS 0 - 11
  1243. REM
  1244. REM 102382 - (RCB) MOVED A3=0 FROM AFTER 1835 TO AFTER 1840 (BEFORE 1805)
  1245. REM TO KEEP IT OF OF THE LOOP AND BEING RESET EVERY PAGE
  1246. REM
  1247. REM 101582 - (RCB) CHANGED LINE 890 FROM GOTO 450 TO GOTO 590 SO IT WILL NOT
  1248. REM PRINT OUT THE -1 FOR ... -2 FOR ... STUFF EACH TIME
  1249. REM
  1250. REM 101582 - (RCB) CHANGED 9740 TO CLOSE ACC.FIL FROM GOSUB 5200
  1251. REM
  1252. REM 101582 - (RCB) FIXED COLON IN WRONG PLACE IN SIZE STATEMENTS
  1253. REM
  1254. REM 101482 - (ULTE BYTE WRITES
  1255. REM
  1256. REM 092282 - (RCB) REMOVED FNM REPLACED WITH A GOSUB LINES AFFECTED 9640,9800,
  1257. REM AND 9960 THE FUNCTION ITS SELF
  1258. REM
  1259. REM ***RECEIVES NEW BALANCES TO BE PLACES IN PERIOD ACCOUNTS FOR
  1260. REM STMNT. OF CHNGS (CJOURNAL)
  1261. REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC.
  1262. REM *** 648 SOUTH RIVER DR. 602-968-7101
  1263. REM *** TEMPE, AZ. 85281
  1264. %INCLUDE COMMON.BAS
  1265. 44 M=HOLE(4)
  1266. 45 S8=112
  1267. 47 DIM N5(M),A(12)
  1268. PER"
  1269. 101 GOSUB 3100
  1270. 102 LPRINTER : PRINT : CONSOLE
  1271. PRINT REVLF$; : PRINT REVLF$; : PRINT B$;B$ : PRINT B$;B$
  1272. 108 GOSUB 9005 : PRINT
  1273. 110 PRINT "ENTER THE CLIENT NUMBER FROM THE CONTROL SHEET >";
  1274. FLD.LEN% = -9 : GOSUB 9998 : PRINT
  1275. B = VAL(REPLY$) : PRINT
  1276. REM 101282 - (RCB) ROUTINE TO FEEL FOR THE CON.FIL
  1277. REM
  1278. 115 IF SIZE(FIL$(10) + ":" + CLIENT$ + "CON.FIL") = 0 THEN \
  1279. PRINT "Insert Auxiliary Data Disk in Drive ";FIL$(10) : \
  1280. PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 99AS 8 : ACC.FIL = 8
  1281. IF END #ACC.FIL THEN 233
  1282. 200 FOR X=0 TO M
  1283. 210 REM IF TYP(0)=0 THEN 235
  1284. 215 REM X1=X*112 : X2=(X+1)*112-6
  1285. 220 REM READ #ACC.FIL,X+1;N5(X)
  1286. READ #ACC.FIL,X+1;N5(X),Y$,B,A(0),A(1),A(2),A(3),A(4), \
  1287. A(5),A(6),A(7),A(8),A(9),A(10),A(11),A(12)
  1288. IF N5(X) = -1 THEN 235
  1289. 230 NEXT X
  1290. 233 PRINT #ACC.FIL,X+1;-1,"EOF CJOURNAL",B,A(0),A(1),A(2),A(3),A(4), \
  1291. A(5),A(6),A(7),A(8),A(9),A(10),A(11),A(12)
  1292. 235 N1=X
  1293. 240 CLOSE ACC.FIL
  1294. 290 GOSUB 9005 : A3 = 0
  1295. 300 GOSUB 9000
  1296. 304 PRINT ""
  1297. 590 PRINT "ENTER ACCOUNT NUMBER > <";
  1298. 591 Y=9 : GOSUB 8000 : PRINT ">";
  1299. FLD.LEN% = -10 : GOSUB 9998
  1300. A5 = VAL(REPLY$) : PRINT
  1301. IF REPLY$ = DUPE.KEY$ THEN PRINT CHR$(7);REVLF$; : GOTO 590
  1302. 593 IF A5=0 THEN 721
  1303. 600 IF A5=-1 THEN 1060
  1304. 610 IF A5=-2 THEN 1370
  1305. 620 IF A5=-3 THEN 1060
  1306. 622 IF INT(A5*100)-(A5*100)<>0 THEN 628
  1307. 623 IF A5<0 THEN 628
  1308. 624 IF A5>9999999.99 THEN GOTO 628 ELSE GOTO 630
  1309. 628 PRINT CHR$(7);"INVALID ACCOUNT NUMBER - TRY AGAIN!"
  1310. 629 GOTO 590
  1311. 630 FOR X = 0 TO N1
  1312. 650 IF A5 = N5(X) THEN 670
  1313. 660 NEXT X
  1314. PRINT CHR$(7);"THAT ACCOUNT DOES NOT EXIST - TRY AGAIN !"
  1315. 665 PRINT " PRESS RETURN TO CONTINUE ";
  1316. FLD.LEN% = 1 : GOSUB 9998
  1317. X$ = REPLY$ : PRINT
  1318. GOTO 590
  1319. 670 ACCT.NUM = X
  1320. PRINT "ENTER AMOUNT > <";
  1321. 671 Y=10 : GOSUB 8000
  1322. PRINT ">";
  1323. FLD.LEN% = -12 : GOSUB 9998
  1324. A1 = VAL(REPLY$) : PRINT
  1325. PRINT
  1326. IF A1=0 THEN 715
  1327. 672 B1=0
  1328. GOSUB 900
  1329. IF B1=1 THEN 690
  1330. IF A1>9999999999 THEN 675
  1331. IF AIS VOID SINCE ENTRY WAS ZERO!"
  1332. 722 GOTO 450
  1333. 800 OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 8 : ACC.FIL = 8
  1334. 820 X = ACCT.NUM
  1335. READ #ACC.FIL,X+1;A4,T$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7), \
  1336. A(8),A(9),A(10),A(11),A(12)
  1337. REM HEY WALLY GET A LOAD OF THIS
  1338. 825 IF A4 <> A5 THEN PRINT CHR$(7);"THE MEMORY OF THIS MACHINE IS SUSPECT!"
  1339. REM YEA PRETTY DOPEY BEAV
  1340. 830 A3 = A3 - A(J1) : A(J1) = A1
  1341. 840 PRINT #ACC.FIL,X+1;A4,T$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7),\
  1342. A(8),A(9),A#####.##";TAB(8);X6;
  1343. PRINT USING "#########.##";TAB(54);A3/100;
  1344. PRINT "^"
  1345. REM 1110 PRINT CHR$(12);
  1346. 1115 IF A5 = -3 THEN 1630
  1347. 1120 GOSUB 1800
  1348. CONSOLE
  1349. GOTO 290
  1350. 1130 PRINT CHR$(7);"THIS PERIOD IS NOT IN BALANCE !"
  1351. 1140 PRINT "FIND THE ERROR THEN CORRECT IT !"
  1352. 1150 GOTO 450
  1353. 1220 LPRINTER
  1354. PRINT
  1355. 1230 IF T2$="R" THEN 1250
  1356. IF T2$="N" THEN 1260
  1357. 1240 PRINT TAB(17);"ADJUSTING "; : GOTO 1300
  1358. 1250 PRINT TAB(18);"RE-ENTERED "; : GOTO 1300
  1359. 1260 PRINT TAB(16);"NEW PERIOD "; : GOTO 1300
  1360. ".OVL" ELSE EXT$=".OVR"
  1361. IF SIZE(PGM$(3) + ":" + "MENU"+EXT$) = 0 THEN \
  1362. PRINT "Insert Program Disk in Drive ";PGM$(3) : \
  1363. PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
  1364. INITIALIZE : \
  1365. GOTO 1635.2
  1366. CHAIN PGM$(3) + ":MENU"
  1367. 1700 IF P<65 THEN 1730
  1368. 1710 LPRINTER : PRINT CHR$(12); : CONSOLE
  1369. 1720 GOSUB 1220
  1370. 1730 RETURN
  1371. 1800 LPRINTER
  1372. X = 0
  1373. 1840 OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 8 : ACC.FIL = 8
  1374. A3 = 0
  1375. 1805 PRINT CHR$(12);
  1376. X1 = 6 : PRIN 1900
  1377. X = X + 1 : X1 = X1 + 1
  1378. 1870 PRINT USING "#######.##";TAB(8);A4;
  1379. PRINT TAB(24);T$;
  1380. PRINT USING "###,,,########.##";TAB(49);A(J1)/100
  1381. 1880 A3 = A3 + A(J1)
  1382. IF X1 < 60 THEN 1850
  1383. 1890 GOTO 1805
  1384. 1900 PRINT TAB(40);"PERIOD BALANCE";
  1385. PRINT USING "#########.##";TAB(54);A3/100
  1386. PRINT CHR$(12);
  1387. 1910 CLOSE ACC.FIL
  1388. CONSOLE
  1389. RETURN
  1390. 3100 PRINT " THEN PRESS RETURN ";
  1391. FLD.LEN% = 1 : GOSUB 9998
  1392. M$ = REPLY$ : PRINT
  1393. 3110 RETURN
  1394. 3200 PRINT CHR$(7);"INVALID I1-INT(A1)<>0 THEN 690
  1395. 673 IF A1>=-9999999999 THEN 800
  1396. 675 PRINT CHR$(7);"INVALID AMOUNT -"; : GOTO 700
  1397. 690 PRINT CHR$(7) : PRINT "DO NOT USE DECIMAL POINT-ENTER ONE DOLLAR AS 100"
  1398. 700 PRINT "ENTER AMOUNT AGAIN!"
  1399. 710 GOTO 670
  1400. 715 PRINT "DO YOU WISH TO LEAVE THIS ENDING BALANCE AS 0 (Y/N) ? ";
  1401. FLD.LEN% = 1 : GOSUB 9998
  1402. X$ = UCASE$(LEFT$(REPLY$,1)) : PRINT
  1403. 717 IF X$="N" THEN 721
  1404. IF X$="Y" THEN 672
  1405. PRINT CHR$(7);"ENTER Y OR N !" : GOTO 715
  1406. 721 PRINT : PRINT CHR$(7);"THIS TRANSACTION (10),A(11),A(12)
  1407. 850 CLOSE ACC.FIL
  1408. 860 LPRINTER
  1409. PRINT USING "#######.##";TAB(8);A5;
  1410. PRINT TAB(24);T$;
  1411. PRINT USING "#########.##";TAB(54);A1/100
  1412. 870 X6=X6+A5 : A3=A3+A1
  1413. 880 GOSUB 1700
  1414. CONSOLE
  1415. 890 GOTO 590
  1416. 900 FOR X=1 TO LEN(REPLY$)
  1417. IF MID$(REPLY$,X,1)="." THEN B1=1
  1418. IF B1=1 THEN 910
  1419. NEXT X
  1420. 910 RETURN
  1421. 1060 GOSUB 1700
  1422. 1070 GOSUB 3300
  1423. 1080 A2=0 : S=1
  1424. IF A5 = -3 THEN 1100
  1425. 1090 IF A3 <> 0 THEN 1130
  1426. 1100 LPRINTER
  1427. PRINT
  1428. PRINT "TOTALS";
  1429. PRINT USING "##1300 PRINT "YTD ACCOUNT BALANCE JOURNAL"
  1430. 1310 PRINT TAB(21);"FOR PERIOD ENDING ";MID$(D2$,1,2);"/";\
  1431. MID$(D2$,3,2);"/";MID$(D2$,5,2)
  1432. 1320 PRINT
  1433. 1340 PRINT TAB(9);"ACCT. NO.";TAB(24);"DESCRIPTION";TAB(55);"YTD BALANCE"
  1434. 1350 PRINT TAB(8);"----------";TAB(24);"--------------------";
  1435. 1355 PRINT TAB(54);"------------"
  1436. 1360 P=6
  1437. CONSOLE
  1438. RETURN
  1439. 1370 GOSUB 1700
  1440. 1390 GOSUB 3300
  1441. 1400 IF A3<>0 THEN 1130
  1442. 1470 REM PRINT CHR$(12);
  1443. 1630 GOSUB 1800
  1444. 1635 CONSOLE
  1445. 1635.2 IF NUM.BITS%=8 THEN EXT$=T : PRINT
  1446. 1810 PRINT TAB(17);"YEAR TO DATE BALANCES AS OF ";MID$(D2$,1,2);"/";\
  1447. MID$(D2$,3,2);"/";MID$(D2$,5,2)
  1448. 1820 PRINT TAB(8);"ACCT. NO.";
  1449. PRINT TAB(24);"DESCRIPTION";
  1450. PRINT TAB(54);"YTD BALANCE"
  1451. 1830 PRINT TAB(8);"----------";
  1452. PRINT TAB(24);"--------------------";
  1453. PRINT TAB(54);
  1454. 1835 PRINT "------------"
  1455. X1 = 4
  1456. 1850 REM IF TYP(0) = 0 THEN 1900
  1457. 1860 READ #ACC.FIL,X+1;A4,T$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7), \
  1458. A(8),A(9),A(10),A(11),A(12)
  1459. IF A4 = -1 THENNPUT - TRY AGAIN!"
  1460. 3210 RETURN
  1461. 3300 PRINT "JOURNAL BALANCE="; : PRINT USING "###,,,#########.##";A3/100
  1462. 3310 RETURN
  1463. 3400 PRINT "INSERT AN AUXILIARY STATEMENTS DATA DISK IN DRIVE ";FIL$(8);
  1464. 3405 PRINT "(NO WRITE-PROTECT TAPE)"
  1465. 3410 RETURN
  1466. 4300 FOR X=1 TO 6
  1467. 4310 IF MID$(D$,X,1)<"0" THEN 4450
  1468. 4320 IF MID$(D$,X,1)>"9" THEN 4450
  1469. 4330 NEXT X
  1470. 4340 IF MID$(D$,1,1)="0" THEN 4370
  1471. 4345 IF MID$(D$,1,1)<>"1" THEN 4450
  1472. 4350 IF MID$(D$,2,1)>"2" THEN GOTO 4450 ELSE GOTO 4380
  1473. 4370 IF MID$(D$,2,1)<"1" THEN 4450
  1474. 4380 IF MID$(D$,3,1)>"3" THEN 4450
  1475. 4390 IF MID$(D$,3,1)<>"3" THEN 4470
  1476. 4400 IF MID$(D$,4,1)>"1" THEN GOTO 4450 ELSE GOTO 4470
  1477. 4450 PRINT CHR$(7);"INVALID DATE - TRY AGAIN!"
  1478. 4460 D$="INVALI"
  1479. 4470 RETURN
  1480. 5000 REM OPEN #0,F8$,L8
  1481. 5010 RETURN
  1482. 5100 READ #ACC.FIL,X+1;A4,T$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7), \
  1483. A(8),A(9),A(10),A(11),A(12)
  1484. 5110 RETURN
  1485. 5200 CLOSE 10 : RETURN
  1486. 5300 PRINT #ACC.FIL,X+1;A4,T$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7),\
  1487. A(8),A(9),A(10),A(11),A(12)
  1488. 531300
  1489. 9060 PRINT CHR$(7);"ENTER A, R OR N PLEASE !"
  1490. PRINT "PRESS RETURN TO CONTINUE ";
  1491. FLD.LEN% = 1 : GOSUB 9998
  1492. X$ = REPLY$ : PRINT
  1493. 9070 GOTO 9000
  1494. 9100 PRINT "ENTER THE NUMBER OF THE PERIOD TO BE ";
  1495. 9102 IF T2$="A" THEN PRINT "ADJUSTED"; ELSE PRINT "RE-ENTERED";
  1496. 9103 PRINT " (0-12) > ";
  1497. FLD.LEN% = -2 : GOSUB 9998
  1498. J1 = VAL(REPLY$) : PRINT
  1499. 9110 IF J1<=12 AND J1>=0 AND J1=INT(J1) THEN 9140
  1500. 9120 PRINT CHR$(7);"ENTER 0-12 PLEASE !"
  1501. PRINT "PRESS RETURN TO CONTINUE ";
  1502. FLD.LEN% = 1 : GOSUB 0 : GOSUB 9700
  1503. 9210 GOTO 9900
  1504. 9300 J1=13
  1505. 9302 PRINT"ENTER NEW PERIOD ENDING DATE (MMDDYY) :";
  1506. FLD.LEN% = -6 : GOSUB 9998
  1507. D4$ = REPLY$ : PRINT
  1508. D2$ = D4$
  1509. 9304 D4$=D4$+B$ : D$=D4$ : GOSUB 4300
  1510. 9306 IF D$="INVALI" THEN 9302
  1511. 9310 GOSUB 9800 : GOSUB 9700
  1512. 9320 GOSUB 9600 : GOTO 9900
  1513. 9600 D3$ = MID$(D3$,7,LEN(D3$)-6) + LEFT$(D4$,6)
  1514. REM D3$ = D3$(7) + D4$
  1515. REM 101282 - (RCB) ROUTINE TO FEEL FOR THE CON.FIL
  1516. REM
  1517. 9610 IF SIZE(FIL$(10) + ":" + CLIENT$ + "CON.FIL") = 0 THEN \
  1518. PRINT "Insert RETURN
  1519. 9700 OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 8 : ACC.FIL = 8
  1520. 9705 X=0
  1521. 9710 REM IF TYP(0)=0 THEN 9740
  1522. IF END #ACC.FIL THEN 9740
  1523. IF T2$="A" THEN 9722
  1524. 9720 REM WRITE #0%S8*X+J1*6+34,0,NOENDMARK ONE OF THOSE GUYS SHOULD BE A 0
  1525. READ #ACC.FIL,X+1;A4,T$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7),\
  1526. A(8),A(9),A(10),A(11),A(12)
  1527. IF A4 = -1 THEN 9740
  1528. A(J1) = 0
  1529. PRINT #ACC.FIL,X+1;A4,T$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7),\
  1530. A(8),A(9),A(10),A(11),A(12)
  1531. GOTO : X.FNM = J1 : GOSUB 9960 : J1 = X.FNM
  1532. X.FNM = J1 : GOSUB 9960 : J1 = X.FNM
  1533. 9810 RETURN
  1534. 9900 RETURN
  1535. 9950 REM DEF FNM(X,Y)
  1536. 9960 IF X.FNM>12 THEN X.FNM = X.FNM-(12+1)
  1537. 9970 RETURN
  1538. REM FEND
  1539. %INCLUDE NFLANKS.BAS
  1540. 1
  1541. REM READ #0%S8*X-6,X1 IS HE READING THE PREVIOUS RECORD????????????
  1542. READ #ACC.FIL,X+1-1;A4,T$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7), \
  1543. A(8),A(9),A(10),A(11),A(12)
  1544. X1 = A(12)
  1545. 9730 GOTO 9710
  1546. 9740 CLOSE ACC.FIL
  1547. 9750 RETURN
  1548. 9800 J1=J1+O+10 RETURN
  1549. 8000 FOR J=1 TO Y+2
  1550. 8010 PRINT CHR$(8);
  1551. 8015 NEXT J
  1552. 8020 RETURN
  1553. 9000 GOSUB 9005 : PRINT : PRINT : PRINT "IS THIS JOURNAL RUN :"
  1554. 9010 PRINT " A : Adjusting Year to Date Balances of an Existing Period"
  1555. 9020 PRINT " R : Re-enter a Past Period Entirely"
  1556. 9030 PRINT " N : Enter a New Period"
  1557. 9040 PRINT "ENTER YOUR SELECTION :";
  1558. FLD.LEN% = 1 : GOSUB 9998
  1559. T2$ = UCASE$(LEFT$(REPLY$,1)) : PRINT
  1560. 9050 IF T2$="A" THEN 9100
  1561. IF T2$="R" THEN 9100
  1562. IF T2$="N" THEN 99998
  1563. X$ = REPLY$ : PRINT
  1564. 9130 GOTO 9100
  1565. 9140 D2$=MID$(D3$,J1*6+1,6)
  1566. 9150 PRINT "PERIOD #";J1;" ENDED ON ";MID$(D2$,1,2);"/";MID$(D2$,3,2);"/";\
  1567. MID$(D2$,5,2)
  1568. 9160 PRINT "IS THIS THE CORRECT PERIOD (Y OR N) :";
  1569. FLD.LEN% = 1 : GOSUB 9998
  1570. X$ = UCASE$(LEFT$(REPLY$,1)) : PRINT
  1571. 9170 IF X$="Y" THEN 9200
  1572. IF X$="N" THEN 9100
  1573. 9180 PRINT CHR$(7);"Y OR N PLEASE !"
  1574. PRINT "PRESS RETURN TO CONTINUE ";
  1575. FLD.LEN% = 1 : GOSUB 9998
  1576. X$ = UCASE$(LEFT$(REPLY$,1)) : PRINT
  1577. 9190 GOTO 9150
  1578. 9200 GOSUB 980Auxiliary Data Disk in Drive ";FIL$(10) : \
  1579. PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
  1580. INITIALIZE : \
  1581. GOTO 9610
  1582. OPEN FIL$(10) + ":" + CLIENT$ + "CON.FIL" RECL 142 AS 10 : CON.FIL = 10
  1583. 9620 READ #CON.FIL,1;DUMMY,DUMMY$,X,X1,DUMMY.D3$
  1584. REM CON.FIL %48;X;X1
  1585. 9630 X = X - 1
  1586. IF X < 0 THEN X = 11
  1587. 9640 X1 = X1 + 1 : X.FNM = X1 : GOSUB 9960 : X1 = X.FNM
  1588. 9650 REM WRITE #0%48,X,X1,D3$
  1589. PRINT #CON.FIL,1;DUMMY,DUMMY$,X,X1,D3$
  1590. O1 = X : O = X1
  1591. 9660 CLOSE CON.FIL
  1592. 9670 9725
  1593. 9722 REM READ #0%S8*X+J1*6+34,Z ONE OF THOSE GUYS DOWN THERE SHOULD BE Z
  1594. READ #ACC.FIL,X+1;A4,T$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7), \
  1595. A(8),A(9),A(10),A(11),A(12)
  1596. IF A4 = -1 THEN 9740
  1597. Z = A(J1)
  1598. 9723 A3 = A3 + Z
  1599. 9725 X=X+1
  1600. REM READ #0%S8*X-6,X1 IS HE READING THE PREVIOUS RECORD????????????
  1601. READ #ACC.FIL,X+1-1;A4,T$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7), \
  1602. A(8),A(9),A(10),A(11),A(12)
  1603. X1 = A(12)
  1604. 9730 GOTO 9710
  1605. 9740 CLOSE ACC.FIL
  1606. 9750 RETURN
  1607. 9800 J1=J1+O+10
  1608. 1507 IF MID$(HEAD.CTRL.CHAR$,7,1)="S" THEN 1509
  1609. IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1509
  1610. IF MID$(HEAD.CTRL.CHAR$,7,1)="D" THEN 1509
  1611. IF MID$(HEAD.CTRL.CHAR$,7,1)<>"E" THEN 1550
  1612. 1509 IF G4$="S" THEN 1515
  1613. PRINT TAB(32);"--------------";
  1614. IF J$="%" THEN PRINT TAB(47);"-------";
  1615. 1515 IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1540
  1616. PRINT TAB(56);"--------------";
  1617. IF J$="%" THEN PRINT TAB(71);"-------";
  1618. 1540 PRINT
  1619. 1550 RETURN
  1620. 1600 IF F$="S" THEN 1620
  1621. PRIREM 110185 - RML - RESET EMPLOYER FICA RATE (XE.L4) TO BE EQUAL TO THE
  1622. REM EMPLOYEE FICA RATE (L(4))
  1623. REM
  1624. REM 112184 - SRS - REWROTE COMPUTATION OF INSURANCE CONTINUATION SHEET TO
  1625. REM CORRECT FICA FIGURES AND ALLOW THIS PORTION OF THE CODE
  1626. REM TO BE MORE EASILY CORRECTED. LINES AFFECTED 3220-3560,
  1627. REM AND 16000-16300
  1628. REM
  1629. REM 112084 - SRS - CORRECTED 1985 EMPLOYER'S FICA RATE TO BE 7.05%
  1630. REM
  1631. REM 010984 - (RCB) MADE CHANGES FOR SPLIT FICA IN "84" TO ILL BE ADDED
  1632. REM INTO TAXABLE WAGES. SET A=G AFTER ADDING MEALS & LODGING
  1633. REM
  1634. REM 040683 - DCF REMOVED GOSUB 1160 BEFORE PRINTING FEDERAL UNEMPLOYMENT.
  1635. REM TOOK CARE OF PROBLEM WITH FEDERAL UNEMPLOYMENT WAGES
  1636. REM BEING DOUBLED
  1637. REM
  1638. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  1639. REM FLANKS TO NFLANKS
  1640. REM
  1641. REM ***11/11/82 DTK - NEGATIVE NUMBERS FIX AL LA DENISE
  1642. REM ***
  1643. REM *** 9/23/82 DTK - NEW FILE SIZE - CHAIN PGM$
  1644. REM ** FIL$(3)+":"+CLIENT$+"EAR.FIL" RECL 525 AS 3 : EARNREC.FIL = 3
  1645. FORM.12F2$ = "#,###,###.##"
  1646. FORM.6F2$ = "###.##"
  1647. SEQ.FAKE = 1
  1648. GOSUB 2200
  1649. FOR X=1 TO 85
  1650. L1$ = L1$ + CHR$(95)
  1651. NEXT X
  1652. GOSUB 1160
  1653. READ #CLNRNM.FIL,2;NEW.QTR.FLG,PRT.EER.FLG,PRT.941.FLG
  1654. PRT.941.FLG = 0
  1655. PRINT #CLNRNM.FIL,2;NEW.QTR.FLG, PRT.EER.FLG, PRT.941.FLG
  1656. GOSUB 9005 : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
  1657. PRINT TAB(18);"****************************************"
  1658. PRINT TAB(18);"* NOW PEMP. ON MARCH 12";LEFT$(L1$,8)
  1659. PRINT " 2 TOTAL WAGES, TIPS & OTHER COMP.",
  1660. PRINT USING FORM.12F2$;TAB(62);(G5+T5)/100 : PRINT
  1661. PRINT " 3,5 FEDERAL TAX WITHHELD";TAB(62);
  1662. PRINT USING FORM.12F2$;I5/100
  1663. PRINT " 6 TAXABLE FICA WAGES";TAB(35);
  1664. PRINT USING FORM.12F2$;G6(1)/100;
  1665. PRINT " X";
  1666. REM RESET XE.L4 TO BE EQUAL TO L(4) (RML 110185)
  1667. REM IF MID$(C3$,5,2) = "84" THEN XE.L4 = .07 ELSE XE.L4 = .0705
  1668. 100 XE.L4 = L(4)
  1669. PRINT USING FORM.6F2$;(XE.L4 + L(4))*100; 9 ADJUSTMENTS OF FICA TAXES";
  1670. PRINT TAB(62);
  1671. PRINT USING FORM.12F2$;INT((G6(1)-G6(2))*L(4)+.5)/(-100);
  1672. PRINT " ";X9$
  1673. PRINT " 10 ADJUSTED TOTAL FICA TAXES";
  1674. X1=INT(T8*L(4)+.5)
  1675. PRINT USING FORM.12F2$;TAB(62);INT(((XE.L4+L(4))*G6(1))-((G6(1)-G6(2))*L(4))+.5+X1)/100
  1676. PRINT TAB(62);LEFT$(L1$,12)
  1677. PRINT " 11 TOTAL TAXES";
  1678. PRINT USING FORM.12F2$;TAB(62);INT(((XE.L4+L(4))*G6(1))-((G6(1)-G6(2))*L(4))+.5+X1+I5)/100
  1679. PRINT " 12 ADVANCED EARNED INCOME CREDIT";
  1680. LINES 15000
  1681. REM THROUGH 15040 AND LINES NEAR THE TOP
  1682. REM
  1683. REM 111583 - (RCB) TOOK MEALS AND LODGING OUT OF CALCULATION AFTER
  1684. REM LINE 1180 CREATING THE LINE AFTER IT
  1685. REM
  1686. REM 100683 - (RCB) ADDED LINE 100 AND CHANGED 2*L(4) TO (XE.L4 + L(4)) IN TWO
  1687. REM INSTANCES AFTER LINE 100 TO FORCE EMPLOYERS FICA RATE
  1688. REM TO .07 (7%) IN 1984
  1689. REM
  1690. REM 050483 - DCF FIXED STATE UNEMPLOYMENT CONTINUATION SHEET SO IF MEALS & LODGING
  1691. REM IS CHOSEN TO BE SUBJECT TO STATE UNEMPLOYMENT IT W*
  1692. REM *** 9/21/82 DTK - FIXED PRINTING FORMATS
  1693. REM ***
  1694. REM *** 9/21/82 DTK - FIXED ZERO AMTS IN DEDUCTION SUMMARY
  1695. REM ***
  1696. REM ***CONTINUATION OF THE EARNINGS PROGRAM (WRKSHEET)(10D)(VER 4.0)
  1697. REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC.
  1698. REM *** 648 SOUTH RIVER DR. 602-968-7101
  1699. REM *** TEMPE, AZ. 85281
  1700. %INCLUDE COMMON
  1701. V=0 : Z4=0 : P7=0
  1702. DIM L(8),G6(2),P(4,14),H(10)
  1703. OPEN FIL$(2)+":"+CLIENT$+"CLN.FIL" RECL 255 AS 2 : CLNRNM.FIL = 2
  1704. OPENRINTING TAX WORKSHEET *"
  1705. PRINT TAB(18);"****************************************"
  1706. LPRINTER
  1707. PRINT CHR$(12);
  1708. PRINT TAB(10);"QUARTERLY PAYROLL TAX WORKSHEET"
  1709. PRINT TAB(10);C9$;TAB(60);"CLIENT NUMBER ";C
  1710. PRINT TAB(10);"QUARTER ENDING ";MID$(C3$,1,2);"/";MID$(C3$,3,2);"/";MID$(C3$,5,2)
  1711. PRINT : PRINT " ****************************************";
  1712. PRINT "***********************************"
  1713. PRINT " FORM 941"
  1714. PRINT " LINE #"
  1715. PRINT " 1 FIRST QTR ONLY - # OF
  1716. PRINT "% =";TAB(62);
  1717. PRINT USING FORM.12F2$;INT((XE.L4 + L(4))*G6(1)+.5)/100
  1718. X9$=" "
  1719. IF INT((G6(1)-G6(2))*L(4)+.5)/100>0 THEN X9$="*"
  1720. PRINT " 7 TAXABLE TIPS REPORTED";TAB(35);
  1721. PRINT USING FORM.12F2$;T8/100;
  1722. PRINT " X";
  1723. PRINT USING FORM.6F2$;L(4)*100;
  1724. PRINT "% =";TAB(62);
  1725. PRINT USING FORM.12F2$;INT(T8*L(4)+.5)/100
  1726. PRINT " 8 TOTAL FICA TAXES",
  1727. X=(INT((XE.L4+L(4))*G6(1)+.5)/100+(INT(T8*L(4)+.5)/100))
  1728. XE.XSAVE=X
  1729. PRINT USING FORM.12F2$;TAB(62);X
  1730. PRINT " GOSUB 15000
  1731. PRINT TAB(5);"DEPOSITS: TAX LIABILITY DATE PAID AMT. PAID"
  1732. PRINT
  1733. PRINT TAB(5);"OVERPAYMENT PREV. QTR.";TAB(45);LEFT$(L1$,12)
  1734. PRINT
  1735. GOSUB 420
  1736. GOTO 470
  1737. 420 PRINT TAB(5);"1ST-3RD ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  1738. PRINT TAB(5);"4TH-7TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  1739. PRINT TAB(5);"8TH-11TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  1740. PRINT TAB(5);"12TH-15TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  1741. PRINT TAB(5);"16TH-19TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  1742. PRINT TAB(5);"20TH-22ND ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  1743. PRINT TAB(5);"23RD-25TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  1744. PRINT TAB(5);"26TH-LAST ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  1745. PRINT
  1746. RETURN
  1747. 470 PRINT TAB(5);"1ST MONTH ============";TAB(36);"/ /";TAB(45);"============"
  1748. PRINT
  1749. GOSUB 420
  1750. PRINT TAB(5);"2ND MONTH ============";TAB( TOTAL DEPOSITS";TAB(62);"============" : PRINT
  1751. PRINT " 15 BALANCE DUE";TAB(62);"============" : PRINT
  1752. PRINT " 16 OVERPAYMENT";TAB(45);"============" : PRINT
  1753. PRINT " ",LEFT$(L1$,4);"APPLY TO NEXT QTR OR ",LEFT$(L1$,4);"REFUND" : PRINT
  1754. IF X9$=" " THEN 670
  1755. PRINT : PRINT : PRINT
  1756. PRINT TAB(5);"* CREDIT FOR FICA TAX ON EMPLOYEES NOT SUBJECT"
  1757. PRINT TAB(5);" TO TAX DUE TO TAX PREVIOUSLY PAID ON TIPS."
  1758. 670 PRINT CHR$(12);
  1759. PRINT " ****************JECT TO STATE UNEMP.";TAB(40);
  1760. PRINT USING FORM.12F2$;K8/100;
  1761. PRINT " X ";
  1762. PRINT USING "##.##";L(5)*100;
  1763. PRINT " %=";TAB(68);
  1764. PRINT USING FORM.12F2$;(L(5)*K8)/100
  1765. PRINT : PRINT
  1766. PRINT TAB(10);"WAGES SUBJECT TO STATE DIS. INS.";TAB(40);
  1767. PRINT USING FORM.12F2$;D8/100;
  1768. PRINT " X ";
  1769. PRINT USING "##.##";L(7)*100;
  1770. PRINT " %=";TAB(68);
  1771. PRINT USING FORM.12F2$;(D8*L(7))/100
  1772. PRINT : PRINT
  1773. PRINT TAB(10);"SUMMARY OF DEDUCTIONS :"
  1774. PRINT TAB(10);LEFT$(L1$,65)
  1775. PRINT : PRINT "***********************************"
  1776. PRINT TAB(5);"WORKMENS COMPENSATION INSURANCE-RECAP HERE & FILL IN FORM"
  1777. FOR X=1 TO 16
  1778. PRINT
  1779. NEXT X
  1780. PRINT " ****************************************";
  1781. PRINT "***********************************"
  1782. PRINT TAB(5);"FEDERAL UNEMPLOYMENT INSURANCE"
  1783. PRINT TAB(5);"LIABILITY THIS QUARTER ";
  1784. PRINT USING FORM.12F2$;K9/100;
  1785. PRINT TAB(36);" X ";
  1786. PRINT USING "$#.##";L(6)*100;
  1787. PRINT "%";
  1788. PRINT USING FORM.12F2$;INT(K9*L(6)+.5)/100
  1789. PRINT TAB(43);"========= ========= ========="
  1790. PRINT TAB(5);"AMOUNT OF DEPOSIT REQUIRED NOW IS";TAB(65);"$============"
  1791. PRINT TAB(5);" (CUMULATIVE LIABILITY OF $100.00 OR MORE)"
  1792. IF H(6)<>7 THEN GOSUB 3200
  1793. PRINT CHR$(12);
  1794. CLOSE 2,3
  1795. CONSOLE
  1796. CHAIN PGM$(2)+":PMENU"
  1797. 1160 G5=0 : I5=0 : T5=0 : S5=0
  1798. SEQ.FAKE = 1
  1799. 1180 GOSUB 1890
  1800. IF N = -1 THEN 1540
  1801. I2=P(2,6) : S2=P(2,7) : T2=P(2,4)
  1802. G2=P(2,1)+P(2,2) : Z7=P(2,1)+P(2,2)+P(2,3)
  1803. G3=P(3,1)+P(3,2) : T3=P(3,4)
  1804. I5=I5+I2 : S5=S5+S2 : T5=T36);"/ /";TAB(45);"============"
  1805. PRINT
  1806. GOSUB 420
  1807. PRINT TAB(5);"3RD MONTH ============";TAB(36);"/ /";TAB(45);"============"
  1808. PRINT
  1809. PRINT TAB(5);"TOTALS ============";TAB(45);"============"
  1810. PRINT TAB(5);"FINAL DEPOSIT";TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  1811. PRINT
  1812. PRINT TAB(5);"TOTAL DEPOSIT";TAB(36);"/ /";TAB(45);"============"
  1813. PRINT CHR$(12);
  1814. PRINT : PRINT : PRINT
  1815. PRINT " 13 NET TAXES ";TAB(62);
  1816. PRINT USING FORM.12F2$;X2
  1817. PRINT
  1818. PRINT " 14 ************************";
  1819. PRINT "***********************************"
  1820. PRINT
  1821. PRINT TAB(10);"SUMMARY OF QUARTERLY TAX LIABILITIES";TAB(77);"TAX"
  1822. PRINT TAB(68);"------------" : PRINT
  1823. PRINT TAB(10);"STATE INCOME TAX WITHHELD";TAB(68);
  1824. PRINT USING FORM.12F2$;S5/100
  1825. PRINT : PRINT
  1826. PRINT TAB(10);"TOTAL WAGES";TAB(40);
  1827. PRINT USING FORM.12F2$;K1/100
  1828. PRINT TAB(10);"EXCESS WAGES";TAB(40);
  1829. PRINT USING FORM.12F2$;(K1-K8)/100
  1830. PRINT TAB(40);"------------"
  1831. PRINT TAB(10);"WAGES SUB
  1832. PRINT TAB(10);LEFT$(E9$,3);TAB(15);
  1833. PRINT USING FORM.12F2$;P(4,9)/100;
  1834. PRINT TAB(50);MID$(E9$,4,3);TAB(55);
  1835. PRINT USING FORM.12F2$;P(4,10)/100
  1836. PRINT : PRINT
  1837. PRINT TAB(10);MID$(E9$,7,3);TAB(15);
  1838. PRINT USING FORM.12F2$;P(4,11)/100;
  1839. PRINT TAB(50);MID$(E9$,10,3);TAB(55);
  1840. PRINT USING FORM.12F2$;P(4,12)/100
  1841. PRINT : PRINT
  1842. PRINT TAB(20);"OTHER :";TAB(30);
  1843. PRINT USING FORM.12F2$;P(4,13)/100
  1844. PRINT : PRINT
  1845. PRINT " ****************************************";
  1846. PRINT8);"============"
  1847. PRINT " LIABILITY & PAYMENT LOG: LIABILITY PAYMENT BAL. DUE"
  1848. PRINT
  1849. PRINT TAB(10);"FIRST QUARTER ";LEFT$(L1$,9);" ";LEFT$(L1$,9);" ";LEFT$(L1$,9)
  1850. PRINT TAB(10);"SECOND QUARTER ";LEFT$(L1$,9);" ";LEFT$(L1$,9);" ";LEFT$(L1$,9)
  1851. PRINT TAB(10);"THIRD QUARTER ";LEFT$(L1$,9);" ";LEFT$(L1$,9);" ";LEFT$(L1$,9)
  1852. PRINT TAB(10);"FOURTH QUARTER ";LEFT$(L1$,9);" ";LEFT$(L1$,9);" ";LEFT$(L1$,9)
  1853. PRINT
  1854. PRINT TAB(15);"TOTALS";TAB(35+T2 : G5=G5+Z7
  1855. IF INT(N/1000)=97 THEN 1180
  1856. IF INT(N/1000)=99 THEN 1180
  1857. GOSUB 1790
  1858. IF G3-G2-L(0)>=0 THEN 1260
  1859. G7=ABS(G3-G2-L(0))
  1860. IF G2<G7 THEN G7=G2
  1861. GOTO 1270
  1862. 1260 G7=0
  1863. 1270 G8=G8+G7
  1864. IF G3-G2+T3-T2-L(0)>=0 THEN 1320
  1865. T7=ABS(G3-G2+T3-T2-L(0))
  1866. IF G2+T2<=T7 THEN T7=T2 ELSE GOTO 1330
  1867. GOTO 1340
  1868. 1320 T7=0
  1869. GOTO 1340
  1870. 1330 IF G2>=T7 THEN T7=0 ELSE T7=T7-G2
  1871. 1340 T8=T8+T7
  1872. G3=P(3,1)+P(3,2) : G2=P(2,1)+P(2,2)
  1873. IF H(1)=7 THEN 1346
  1874. G3=G3+P(3,3) : G2=G2+P(2,3)
  1875. 1346 IF H(2)=7 THEN 1350
  1876. G3=G3+P(3,4) : G2=G2+P(2,4)
  1877. 1350 K1=K1+G2
  1878. IF G3-G2-L(1)>=0 THEN 1390
  1879. K7=ABS(G3-G2-L(1))
  1880. IF G2<K7 THEN K7=G2
  1881. GOTO 1400
  1882. 1390 K7=0
  1883. 1400 K8=K8+K7
  1884. G3=P(3,1)+P(3,2) : G2=P(2,1)+P(2,2)
  1885. IF H(0)<>5 THEN 1410
  1886. G3=G3+P(3,4) : G2=G2+P(2,4)
  1887. 1410 IF G3-G2-L(2)>=0 THEN 1450
  1888. K3=ABS(G3-G2-L(2))
  1889. IF G2<K3 THEN K3=G2
  1890. GOTO 1460
  1891. 1450 K3=0
  1892. 1460 K9=K9+K3
  1893. G3=P(3,1)+P(3,2) : G2=P(2,1)+P(2,2)
  1894. IF H(3)=7 THEN 1505
  1895. IF H(4)=7 THEN 1466
  1896. G3=G3+P(3,3) : G2=G2+P(2,3)
  1897. IN DRIVE ";FIL$(2);" DOES NOT HAVE ON IT THE FILE 'CLNRNM' - SEE MANUAL!"
  1898. GOTO 1700
  1899. 1616 CONSOLE : CLOSE 2,3
  1900. PRINT "THE DISK IN DRIVE ";FIL$(3);" DOES NOT HAVE ON IT THE FILE 'EARNREC'-SEE MANUAL!"
  1901. 1700 PRINT " PLEASE CORRECT - THEN PRESS RETURN ";
  1902. FLD.LEN% = 1 : GOSUB 9998
  1903. INITIALIZE
  1904. CHAIN PGM$(2)+":PMENU"
  1905. 1790 IF G3-G2>L(0) THEN 1830
  1906. IF G3>L(0) THEN 1820
  1907. G6(1)=G6(1)+G2
  1908. GOTO 1830
  1909. 1820 G6(1) = G6(1) + INT(L(0) - G3 + G2 + .5)
  1910. 1830 IF G3 - G2 + T3 -T2 > L(0) THEN 187010) = LOCAL.DED.2
  1911. P(1,11) = LOCAL.WITH.1
  1912. P(1,12) = LOCAL.WITH.2
  1913. P(1,13) = OTHER.DED
  1914. P(1,14) = NET.WAGES
  1915. P(2,1) = REG.WAGES.QTR
  1916. P(2,2) = OVERTIME.QTR
  1917. P(2,3) = MEALS.LDG.QTR
  1918. P(2,4) = TIPS.QTR
  1919. P(2,5) = FICA.QTR
  1920. P(2,6) = FED.INC.TAX.QTR
  1921. P(2,7) = ST.INC.TAX.QTR
  1922. P(2,8) = ST.DIS.INS.QTR
  1923. P(2,9) = LOCAL.DED.1.QTR
  1924. P(2,10) = LOCAL.DED.2.QTR
  1925. P(2,11) = LOCAL.WITH.1.QTR
  1926. P(2,12) = LOCAL.WITH.2.QTR
  1927. P(2,13) = OTHER.DED.QTR
  1928. P(2,14) = NET.WAGES.QTR
  1929. P(3,1) = REG.WAGES.YR
  1930. P(3,2) = OV>=16 THEN 1960
  1931. PRINT TAB(3), : GOTO 1940
  1932. 1960 RETURN
  1933. 2200 GOSUB 5000
  1934. C = CLIENT.NO
  1935. C9$ = CLIENT.NAME$
  1936. C2$ = GL.END.DATE$
  1937. C3$ = PAY.END.DATE$
  1938. X=0 : L9=0
  1939. L(0) = MAX.FICA.WAGES
  1940. L(1) = MAX.ST.UNEMP
  1941. L(2) = MAX.FED.UNEMP
  1942. L(3) = MAX.ST.DIS.WAGES
  1943. L(4) = EMP.FICA.RATE
  1944. L(5) = ST.UNEMP.RATE
  1945. L(6) = FED.UNEMP.RATE
  1946. L(7) = ST.DIS.RATE
  1947. H(0) = TIPS.F.U.I
  1948. H(1) = MEALS.LDG.TO.ST.UNEMP
  1949. H(2) = TIPS.TO.ST.UNEMP
  1950. H(3) = ST.DIS.FLG
  1951. H(4) = MEALS.LDG.TO.SDI
  1952. H(5) = TIPS.TO.SDI
  1953. H(50);"EXCESS WAGES";
  1954. IF H(7)=3 THEN PRINT TAB(50);"GROSS WAGES";
  1955. IF H(7)=1 THEN PRINT TAB(50);"FICA WAGES";
  1956. IF H(8)=3 THEN PRINT TAB(70);"GROSS WAGES";
  1957. IF H(8)=5 THEN PRINT TAB(70);"TAXABLE WAGES";
  1958. IF H(8)=7 THEN PRINT TAB(70);"EXCESS WAGES";
  1959. IF H(8)=1 THEN PRINT TAB(70);"FICA WAGES";
  1960. PRINT
  1961. PRINT LEFT$(L1$,80)
  1962. PRINT : P1=9
  1963. RETURN
  1964. 3200 GOSUB 3000
  1965. X=0 : A1=0 : G3=0
  1966. 3220 GOSUB 6000
  1967. IF EMP.NO = -1 THEN 3500
  1968. IF INT(N/1000)=97 OR INT(N/1000)=99 THEN 3220
  1969. IF G1466 IF H(5)=7 THEN 1470
  1970. G3=G3+P(3,4) : G2=G2+P(2,4)
  1971. 1470 IF (G3-G2)-L(3)>=0 THEN 1510
  1972. D7=ABS((G3)-(G2)-L(3))
  1973. IF (G2)<D7 THEN D7=(G2)
  1974. GOTO 1520
  1975. 1505 D8=0
  1976. 1510 D7=0
  1977. 1520 D8=D8+D7
  1978. N7=N7+P(3,7) : N9=N9+P(3,9)
  1979. GOTO 1180
  1980. 1540 RETURN
  1981. 1560 CLOSE 2,3
  1982. CONSOLE
  1983. CHAIN PGM$(2)+":PMENU"
  1984. 1590 CONSOLE : CLOSE 2,3
  1985. PRINT CHR$(7)
  1986. PRINT "THE PROGRAM DISK IS NOT IN DRIVE ";PGM$(2);"!"
  1987. GOTO 1700
  1988. 1612 CONSOLE : CLOSE 2,3
  1989. REM IF NOT FILE("CLNRNM,2) THEN 1616
  1990. PRINT "THE DISK
  1991. IF G3 + T3 - T2 > L(0) THEN 1860
  1992. G6(2) = G6(2) + G2
  1993. GOTO 1870
  1994. 1860 G6(2)=G6(2)+INT(L(0)-G3+G2-T3+T2+.5)
  1995. 1870 RETURN
  1996. 1890 SAVE.X = X
  1997. X = SEQ.FAKE-1
  1998. GOSUB 10000
  1999. SEQ.FAKE = SEQ.FAKE + 1
  2000. X = SAVE.X
  2001. N = EMP.NO
  2002. N$ = EMP.NAME$
  2003. S$ = STR.ADDR$
  2004. C$ = CITY.ST.ZIP$
  2005. Z$ = SSN$
  2006. P(1,1) = REG.WAGES
  2007. P(1,2) = OVERTIME.WAGES
  2008. P(1,3) = MEALS.AND.LODGING
  2009. P(1,4) = TIPS
  2010. P(1,5) = FICA
  2011. P(1,6) = FED.INC.TAX
  2012. P(1,7) = STATE.INC.TAX
  2013. P(1,8) = ST.DIS.INS
  2014. P(1,9) = LOCAL.DED.1
  2015. P(1,ERTIME.YR
  2016. P(3,3) = MEALS.LDG.YR
  2017. P(3,4) = TIPS.YR
  2018. P(3,5) = FICA.YR
  2019. P(3,6) = FED.INC.TAX.YR
  2020. P(3,7) = ST.INC.TAX.YR
  2021. P(3,8) = ST.DIS.INS.YR
  2022. P(3,9) = LOCAL.DED.1.YR
  2023. P(3,10) = LOCAL.DED.2.YR
  2024. P(3,11) = LOCAL.WITH.1.YR
  2025. P(3,12) = LOCAL.WITH.2.YR
  2026. P(3,13) = OTHER.DED.YR
  2027. P(3,14) = NET.WAGES.YR
  2028. L1 = L1.XE
  2029. FOR XE = 9 TO 13
  2030. P(4,XE) = P(4,XE) + P(2,XE)
  2031. NEXT XE
  2032. RETURN
  2033. 1940 FOR X=A TO B STEP 2.0
  2034. PRINT USING "$#,###,####.##";P(X1,X)/100;
  2035. NEXT X
  2036. A=2 : B=14
  2037. PRINT
  2038. IF X6) = ST.UNEMP.CONT.FLG
  2039. H(7) = FORMAT.1
  2040. H(8) = FORMAT.2
  2041. H(9) = TIP.CONT.SHEET
  2042. E9$ = LOCAL.DESC$
  2043. RETURN
  2044. 3000 PRINT CHR$(12); : PG.NO=PG.NO+1
  2045. PRINT : PRINT TAB(69);"PAGE NO. ";
  2046. PRINT USING "###";PG.NO
  2047. PRINT
  2048. PRINT TAB(19);"INSURANCE CONTINUATION SHEET"
  2049. PRINT
  2050. PRINT TAB(5);"CLIENT NO. ";
  2051. PRINT USING "######";C,
  2052. PRINT TAB(30);C9$
  2053. PRINT
  2054. PRINT TAB(5);"SOC. SEC. NO. ";TAB(20);"NAME";
  2055. IF H(7)=5 THEN PRINT TAB(50);"TAXABLE WAGES";
  2056. IF H(7)=7 THEN PRINT TAB(+O+T+M<=0 THEN GOTO 3220
  2057. IF (G1-G)>L(0) THEN 3220
  2058. PRINT TAB(5);LEFT$(Z$,3);"/";MID$(Z$,4,2);"/";MID$(Z$,6,4);
  2059. PRINT TAB(20);N$; : Z4=Z4+1
  2060. 3320 IF H(7)=5 THEN GOSUB 3330 : A=TAX : GOTO 3390
  2061. 3322 IF H(7)=7 THEN GOSUB 3350 : A=EX : GOTO 3390
  2062. 3324 IF H(7)=3 THEN GOSUB 3370 : A=GROSS : GOTO 3390
  2063. 3326 IF H(7)=1 THEN GOSUB 3380 : A=FICA : GOTO 3390
  2064. 3328 GOTO 3400
  2065. 3330 TAX=G+O : YTDTAX=G1+O1
  2066. 3332 IF H(2)=5 THEN TAX=TAX+T : YTDTAX=YTDTAX+T1
  2067. 3334 IF H(1)=5 THEN TAX=TAX+M : YTDTAX=YTDTAX +M1
  2068. 3336 IF YTDTAX-TAX>=L(1) THEN TAX=0 : GOTO 3340
  2069. 3338 IF YTDTAX>=L(1) THEN TAX=L(1)-(YTDTAX-TAX)
  2070. 3340 RETURN
  2071. 3350 EX=G+O : YTDEX=G1+O1
  2072. 3352 IF H(2)=5 THEN EX=EX+T : YTDEX=YTDEX+T1
  2073. 3354 IF H(1)=5 THEN EX=EX+M : YTDEX=YTDEX+M1
  2074. 3356 IF YTDEX-EX <L(1) THEN EX=EX-(L(1)-(YTDEX-EX))
  2075. 3358 IF EX<0 THEN EX=0
  2076. 3360 RETURN
  2077. 3370 GROSS=G+O+T+M
  2078. 3372 RETURN
  2079. 3380 FICA=G+O : YTDFICA=G1+O1
  2080. 3382 IF H(2)=5 THEN FICA=FICA+T : YTDFICA=YTDFICA+T1
  2081. 3384 IF YTDFI A1=0 : G3=0
  2082. 3560 PRINT : PRINT TAB(5);"TOTAL # OF EMPLOYEES = ";Z4
  2083. IF H(9)=9 THEN GOTO 3570 ELSE GOSUB 4100
  2084. 3570 RETURN
  2085. 4000 PRINT CHR$(12);
  2086. P7=P7+1 : PRINT TAB(70);"PAGE NO. ";P7 : PRINT
  2087. PRINT TAB(22);"TIP CONTINUATION SHEET"
  2088. PRINT
  2089. PRINT TAB(5);"CLIENT NO. ";
  2090. PRINT USING "######";C;
  2091. PRINT TAB(40);C9$
  2092. PRINT
  2093. PRINT TAB(5);"SOC. SEC. NO.";TAB(20);"NAME",
  2094. IF H(9)=5 THEN PRINT TAB(65);"TAXABLE TIPS" ELSE \
  2095. PRINT TAB(65);"TOTAL TIPS"
  2096. PRINT LEFT$(L1$,80) :9<0 THEN T9=0
  2097. 4220 T8=T8+T9 : GOTO 4233
  2098. 4230 T8=T8+T : T9=T
  2099. 4233 IF T9=0 THEN 4250
  2100. PRINT TAB(5);LEFT$(Z$,3);"/";MID$(Z$,4,2);"/";MID$(Z$,6,4);
  2101. PRINT TAB(20);N$;
  2102. PRINT USING FORM.12F2$;TAB(65);T9/100
  2103. PG.NO = PG.NO + 1 : V = V + 1
  2104. 4250 IF PG.NO > 60 THEN GOSUB 4000
  2105. 4260 GOTO 4120
  2106. 4270 PRINT LEFT$(L1$,80)
  2107. PRINT TAB(5);"TOTAL";TAB(65);
  2108. PRINT USING FORM.12F2$;T8/100
  2109. PRINT : PRINT TAB(5);"TOTAL # OF EMPLOYEES = ";V
  2110. PRINT CHR$(12);
  2111. RETURN
  2112. 6000 GOSUB 10000 : REM RE;X2
  2113. PRINT TAB(62);LEFT$(L1$,12)
  2114. PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
  2115. GOTO 15050
  2116. 15010 IF MID$(E9$,54,3)="EIC" THEN PRINT TAB(62); :\
  2117. PRINT USING FORM.12F2$;P(4,10)/100 :\
  2118. ELSE GOTO 15020
  2119. PRINT " 13 NET TAXES";
  2120. X2=XE.XSAVE+INT(I5+.5+P(4,10))/100
  2121. PRINT USING FORM.12F2$;TAB(62);X2 : PRINT TAB(62);LEFT$(L1$,12)
  2122. PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
  2123. GOTO 15050
  2124. 15020 IF MID$(E9$,7,3)="EIC" THEN PRINT TAB(62); :\
  2125. TAB(62);X2 : PRINT TAB(62);LEFT$(L1$,12)
  2126. PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
  2127. GOTO 15050
  2128. 15038 PRINT USING FORM.12F2$;TAB(62);0/100
  2129. PRINT " 13 NET TAXES";
  2130. X2=XE.XSAVE+INT(I5+.5)/100
  2131. PRINT USING FORM.12F2$;TAB(62);X2
  2132. PRINT TAB(62);LEFT$(L1$,12)
  2133. 15040 PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
  2134. 15050 RETURN
  2135. 16000 IF H(8)=5 THEN GOSUB 3330 : A=TAX : GOTO 16200
  2136. IF H(8)=7 THEN GOSUB 3350 : A=EX : GOTO 16200
  2137. IF H(8)=3 TCA-FICA>=L(0) THEN FICA=0 : GOTO 3388
  2138. 3386 IF YTDFICA>=L(0) THEN FICA=L(0)-(YTDFICA-FICA)
  2139. 3388 RETURN
  2140. 3390 A1=A1+A
  2141. PRINT USING FORM.12F2$;TAB(50);A/100;
  2142. A=0
  2143. 3400 GOSUB 16000
  2144. 3480 PRINT : P1=P1+2
  2145. IF P1>60 THEN GOSUB 3000
  2146. GOTO 3220
  2147. 3500 PRINT LEFT$(L1$,80)
  2148. PRINT TAB(5);"TOTAL";
  2149. IF H(7)<>9 AND H(8)<>9 THEN PRINT "S";
  2150. PRINT " :";
  2151. IF H(7)=9 THEN 3540
  2152. PRINT USING FORM.12F2$;TAB(50);A1/100;
  2153. 3540 IF H(8)=9 THEN 3560
  2154. PRINT USING FORM.12F2$;TAB(68);G3/100
  2155. PG.NO=9
  2156. PRINT
  2157. RETURN
  2158. 4100 GOSUB 4000 : T8=0 : X=0
  2159. IF END #EARNREC.FIL THEN 4270
  2160. 4120 GOSUB 6000
  2161. IF EMP.NO = -1 THEN 4270
  2162. G=G+O : G1=G1+O1
  2163. IF T=0 THEN 4260
  2164. IF H(1)<>5 THEN 4133
  2165. G=G+M : G1=G1+M1
  2166. 4133 IF H(2)<>5 THEN 4195
  2167. IF INT(N/1000)=99 THEN 4260
  2168. IF INT(N/1000)=97 THEN 4260
  2169. IF H(9)=7 THEN 4230
  2170. IF H(9)<>5 THEN 4270
  2171. IF G1-G>L(1) THEN 4195
  2172. IF G1>L(1) THEN 4200
  2173. T9=T
  2174. GOTO 4220
  2175. 4195 T9=0
  2176. GOTO 4220
  2177. 4200 T9=L(1)-G-G1-T1
  2178. IF T9>T THEN T9=T
  2179. IF TAD EARNREC.FIL
  2180. N = EMP.NO
  2181. N$ = EMP.NAME$
  2182. S$ = STR.ADDR$
  2183. C$ = CITY.ST.ZIP$
  2184. Z$ = SSN$
  2185. G = REG.WAGES.QTR
  2186. O = OVERTIME.QTR
  2187. M = MEALS.LDG.QTR
  2188. T = TIPS.QTR
  2189. G1 = REG.WAGES.YR
  2190. O1 = OVERTIME.YR
  2191. M1 = MEALS.LDG.YR
  2192. T1 = TIPS.YR
  2193. X=X+1
  2194. RETURN
  2195. 15000 IF LEFT$(E9$,3)="EIC" THEN PRINT TAB(62); :\
  2196. PRINT USING FORM.12F2$;P(4,9)/100 :\
  2197. ELSE\
  2198. GOTO 15010
  2199. PRINT " 13 NET TAXES";
  2200. X2=XE.XSAVE+INT(I5+.5+P(4,9))/100
  2201. PRINT USING FORM.12F2$;TAB(62) PRINT USING FORM.12F2$;P(4,11)/100 :\
  2202. ELSE \
  2203. GOTO 15030
  2204. PRINT " 13 NET TAXES";
  2205. X2=XE.XSAVE+INT(I5+.5+P(4,11))/100
  2206. PRINT USING FORM.12F2$;TAB(62);X2 : PRINT TAB(62);LEFT$(L1$,12)
  2207. PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
  2208. GOTO 15050
  2209. 15030 IF MID$(E9$,10,3)="EIC" THEN PRINT TAB(62); :\
  2210. PRINT USING FORM.12F2$;P(4,12)/100 :\
  2211. ELSE \
  2212. GOTO 15038
  2213. PRINT " 13 NET TAXES"
  2214. X2=XE.XSAVE+INT(I5+.5+P(4,12))/100
  2215. PRINT USING FORM.12F2$;HEN GOSUB 3370 : A=GROSS : GOTO 16200
  2216. IF H(8)=1 THEN GOSUB 3380 : A=FICA : GOTO 16200
  2217. GOTO 16300
  2218. 16200 G3=G3+A
  2219. PRINT USING FORM.12F2$;TAB(68);A/100
  2220. A=0
  2221. 16300 RETURN
  2222. %INCLUDE 5000
  2223. 10000 IF END #EARNREC.FIL THEN 10000.1
  2224. READ #EARNREC.FIL,X+1; \
  2225. EMP.NO,\
  2226. EMP.NAME$,\
  2227. STR.ADDR$,\
  2228. CITY.ST.ZIP$,\
  2229. SSN$,\
  2230. REG.WAGES ,\
  2231. OVERTIME.WAGES ,\
  2232. MEALS.AND.LODGING ,\
  2233. TIPS ,\
  2234. FICA ,\
  2235. FED.INC.TAX ,\
  2236. STATE.INC.TAX ,\
  2237. ST.DIS.INS ,\
  2238. LOCAL.DED.1,\
  2239. LOCAL.DED.2, \
  2240. LOCAL.WITH.1,\
  2241. LOCAL.WITH.2,\
  2242. OTHER.DED,\
  2243. NET.WAGES,\
  2244. REG.WAGES.QTR,\
  2245. OVERTIME.QTR,\
  2246. MEALS.LDG.QTR,\
  2247. TIPS.QTR,\
  2248. FICA.QTR,\
  2249. FED.INC.TAX.QTR,\
  2250. ST.INC.TAX.QTR,\
  2251. ST.DIS.INS.QTR,\
  2252. LOCAL.DED.1.QTR,\
  2253. LOCAL.DED.2.QTR,\
  2254. LOCAL.WITH.1.QTR,\
  2255. LOCAL.WITH.2.QTR,\
  2256. OTHER.DED.QTR,\
  2257. NET.WAGES.QTR,\
  2258. REG.WAGES.YR,\
  2259. OVERTIME.YR,\
  2260. MEALS.LDG.YR,\
  2261. TIPS.YR,\
  2262. FICA.YR,\
  2263. FED.INC.TAX.YR,\
  2264. ST.INC.TAX.YR,\
  2265. ST.DIS.INS.YR,\
  2266. LOCAL.DED.1.YTHEN 1387
  2267. 1385 IF A9>1 THEN GOTO 1386 ELSE GOTO 1390
  2268. 1386 MULT.FIN.STATE.FLAG=MULT.FIN.STATE.FLAG+2 : GOSUB 6000 : GOTO 85
  2269. 1387 IF MULT.FIN.STATE.FLAG<A9 THEN GOTO 1388 ELSE GOTO 1389
  2270. 1388 MULT.FIN.STATE.FLAG=MULT.FIN.STATE.FLAG+1 : GOSUB 6000 : GOTO 85
  2271. 1389 IF MULT.FIN.STATE.FLAG<>A9 THEN GOSUB 6000
  2272. 1390 IF M$<>"M" THEN 1400
  2273. 1392 GOSUB 5000
  2274. 1393 A9.III = A9
  2275. GOSUB 5010
  2276. 1398 REM ***************************** CHAINING TO MENUS
  2277. 1399 CONSOLE
  2278. CLOSE CLNRNM.FIL
  2279. CLOSE COANS.FI1.XE);"--------------"
  2280. 1506 GOTO 1550
  2281. 1507 IF MID$(HEAD.CTRL.CHAR$,7,1)="S" THEN 1509
  2282. IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1509
  2283. 1508 IF MID$(HEAD.CTRL.CHAR$,7,1)="D" THEN 1509
  2284. IF MID$(HEAD.CTRL.CHAR$,7,1)<>"E" THEN 1550
  2285. 1509 IF G4$="S" THEN 1515
  2286. PRINT TAB(32);"--------------";
  2287. 1510 IF J$="%" THEN PRINT TAB(47);"-------";
  2288. 1515 IF MID$(HEAD.CTRL.CHAR$,7,1) = "T" THEN 1540
  2289. 1520 PRINT TAB(56);"--------------";
  2290. 1530 IF J$="%" THEN PRINT TAB(71);"-------";
  2291. 1540 PRINT
  2292. 1550 RETURN
  2293. B(66);"--------------";
  2294. 1650 PRINT : RETURN
  2295. 2000.1 PRINT CHR$(7)
  2296. 2195 PRINT"PRESS RETURN TO GO TO ACCOUNTING MENU ";:FLD.LEN%=1 : GOSUB 9998 :PRINT
  2297. 2197 GOTO 1400
  2298. 3000 J$="%" : J=0 : J1=0 : ACCT.NO.HOLD=ACCT.NO : CUR.PER.BAL.HOLD=CUR.PER.BAL : YTD.BAL.HOLD=YTD.BAL : R6=R1 : R5=R
  2299. 3002 FOR X = 1 TO 9
  2300. T1(X) = C(X)
  2301. T2(X) = T(X)
  2302. NEXT X
  2303. 3010 READ #FSHEADS.FIL,R1;\
  2304. HEADER.NO.HOLD,\
  2305. HEAD.DESC.HOLD$,\
  2306. HEAD.CTRL.CHAR.HOLD$
  2307. I YTD.BAL.HOLD,\
  2308. ACCT.DESC.HOLD$
  2309. IF ACCT.NO.HOLD = -1 THEN 3075
  2310. 3065 R=R+1
  2311. 3070 GOTO 3020
  2312. 3072 J = T1(VAL(MID$(HEAD.CTRL.CHAR.HOLD$,1,1)))
  2313. 3074 J1 = T2(VAL(MID$(HEAD.CTRL.CHAR.HOLD$,1,1)))
  2314. 3075 R=R5 : R1=R6
  2315. READ #COANS.FIL,R;\
  2316. ACCT.NO.HOLD,\
  2317. CUR.PER.BAL.HOLD,\
  2318. YTD.BAL.HOLD,\
  2319. ACCT.DESC.HOLD$
  2320. 3080 IF J=0 THEN J=9999999999
  2321. 3085 IF J1=0 THEN J1=9999999999
  2322. 3090 RETURN
  2323. 3200 GOSUB 360
  2324. 3210 IF END #FSHEADS.FIL THENR,\
  2325. LOCAL.DED.2.YR,\
  2326. LOCAL.WITH.1.YR,\
  2327. LOCAL.WITH.2.YR,\
  2328. OTHER.DED.YR,\
  2329. NET.WAGES.YR,\
  2330. L1.XE
  2331. RETURN
  2332. 10000.1 EMP.NO = -1
  2333. REM FORMERLY KA BOOOOOOOOOOOOOOOOOOOOOOOOOOM
  2334. PRINT "EOF HIT - INCORRECT EOF MARK"
  2335. RETURN
  2336. 9005 PRINT CLR$;:FOR DELAY=0 TO CLR.DLY% : NEXT DELAY
  2337. RETURN
  2338. 9998 REM --- TRAP SPECIAL CHARACTERS ---
  2339. REPLY$="" : CHAR%=0 : ACT.LEN%=0
  2340. REM FLD.LEN% < 0 THEN LIMIT TO 0-9 AND "-" IN FIRST CHARACTOR
  2341. IF FLD.LEN% < 0 THEN FLD.LEN% = ABS(FLD.LEN%) L
  2342. CLOSE FSHEADS.FIL
  2343. IF M$="M" THEN CHAIN PGM$(1)+":" + "COMBFS" ELSE GOTO 1410
  2344. 1400 CONSOLE
  2345. CLOSE CLNRNM.FIL
  2346. CLOSE COANS.FIL
  2347. CLOSE FSHEADS.FIL
  2348. 1410 CHAIN PGM$(1)+":" + "AMENU"
  2349. 1490 IF I$="C" THEN 1507
  2350. 1500 IF G2$="H" THEN T1.XE=66
  2351. IF G3$="A" THEN T1.XE=50
  2352. 1501 IF MID$(HEAD.CTRL.CHAR$,7,1)="D" THEN 1505
  2353. IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN 1642
  2354. 1502 IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1642
  2355. 1503 IF MID$(HEAD.CTRL.CHAR$,7,1)<>"S" THEN 1550
  2356. 1505 PRINT TAB(T1600 IF F$="S" THEN 1620
  2357. PRINT TAB(32);"==============";
  2358. 1610 IF J$="%" THEN PRINT TAB(47);"=======";
  2359. 1615 IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN 1640
  2360. 1617 IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1635
  2361. 1620 PRINT TAB(56);"==============";
  2362. 1630 IF J$="%" THEN PRINT TAB(71);"=======";
  2363. GOTO 1640
  2364. 1635 PRINT TAB(56);"--------------";
  2365. 1636 IF J$="%" THEN PRINT TAB(71);"-------";
  2366. 1640 GOTO 1650
  2367. 1642 PRINT TAB(50);"--------------";
  2368. IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1650
  2369. 1643 PRINT TAF HEADER.NO.HOLD = -1 THEN 3075
  2370. 3015 R1=R1+1
  2371. 3017 IF MID$(HEADER.CTRL.CHAR.HOLD$,6,1)="N" THEN 3010
  2372. IF MID$(HEAD.CTRL.CHAR.HOLD$,6,1)="U" THEN 3010
  2373. 3020 IF ACCT.NO.HOLD<=HEADER.NO.HOLD THEN 3040
  2374. 3030 IF MID$(HEAD.CTRL.CHAR.HOLD$,3,1)="%" THEN GOTO 3072 ELSE GOTO 3010
  2375. 3040 FOR X = 1 TO 9
  2376. T1(X) = T1(X) + CUR.PER.BAL.HOLD/100
  2377. T2(X) = T2(X) + YTD.BAL.HOLD/100
  2378. NEXT X
  2379. 3060 READ #COANS.FIL,R;\
  2380. ACCT.NO.HOLD,\
  2381. CUR.PER.BAL.HOLD,\
  2382. 1380
  2383. 3215 READ #FSHEADS.FIL,R1;\
  2384. HEADER.NO,\
  2385. HEAD.DESC$,\
  2386. HEAD.CTRL.CHAR$
  2387. IF HEADER.NO = -1 THEN 1380
  2388. 3230 R1=R1+1
  2389. 3235 IF MID$(HEAD.CTRL.CHAR$,6,1)="N" THEN 3215
  2390. IF MID$(HEAD.CTRL.CHAR$,6,1)="U" THEN 3215
  2391. 3240 GOTO 3200
  2392. 3300 GOSUB 810
  2393. 3310 IF END #COANS.FIL THEN 1380
  2394. 3320 READ #COANS.FIL,R;\
  2395. ACCT.NO,\
  2396. CUR.PER.BAL,\
  2397. YTD.BAL,\
  2398. ACCT.DESC$
  2399. IF ACCT.NO = -1 THEN 1380
  2400. 3330 R=R+1
  2401. 3340 GOTO 3300
  2402. 4000 IF ABS(U1/100)<10000000 THEN U=2 : FORM.DFLT$="#,###,###.##"\
  2403. ELSE U=0 : FORM.DFLT$="###,###,###.##"
  2404. 4020 RETURN
  2405. 6000 G4$=" " : F$=" " : I$=" " : G3$=" " : G$=" " : J$=" " : G2$=" " : Z$=" "
  2406. 6200 S=0 : G1$=" " : M$=" " : J=0 : J1=0 : K$=" " : M1=0 : M4$=" " : HEAD.DESC$=" "
  2407. 6400 CUR.PER.BAL=0 : YTD.BAL=0 : CUR.PER.BAL.HOLD=0 : I=0 : I2=0 : U1=0 : Q=0 : T1.XE=0
  2408. 6410 RETURN
  2409. 7000 PRINT"INVALID INPUT - TRY AGAIN"
  2410. 7010 RET: NUM.ONLY = -1 \
  2411. ELSE NUM.ONLY = 0
  2412. WHILE CHAR%<>13
  2413. 9998.2 CHAR%=CONCHAR%
  2414. REM ************* MODIFIED FOR AUTO DUPE KEY **************
  2415. IF CHAR% = ASC(DUPE.KEY$) AND ACT.LEN% = 0 THEN \
  2416. REPLY$ = DUPE.KEY$ : CHAR% = 13 : GOTO 9998.7
  2417. IF CHAR%=127 AND ACT.LEN% = 0 THEN \
  2418. PRINT CHR$(8); : PRINT " "; : GOTO 9998.2
  2419. IF CHAR% = 8 AND ACT.LEN% = 0 THEN \
  2420. PRINT " "; : GOTO 9998.REM 112184 - SRS - REWROTE COMPUTATION OF INSURANCE CONTINUATION SHEET TO
  2421. REM CORRECT FICA FIGURES AND ALLOW THIS PORTION OF THE CODE
  2422. REM TO BE MORE EASILY CORRECTED. LINES AFFECTED 3220-3560,
  2423. REM AND 16000-16300
  2424. REM
  2425. REM 112084 - SRS - CORRECTED 1985 EMPLOYER'S FICA RATE TO BE 7.05%
  2426. REM
  2427. REM 010984 - (RCB) MADE CHANGES FOR SPLIT FICA IN "84" TO LINES 15000
  2428. REM THROUGH 15040 AND LINES NEAR THE TOP
  2429. REM
  2430. REM 111583 - (RCB) TOOK MEALS AND LODGING OUT OF F REMOVED GOSUB 1160 BEFORE PRINTING FEDERAL UNEMPLOYMENT.
  2431. REM TOOK CARE OF PROBLEM WITH FEDERAL UNEMPLOYMENT WAGES
  2432. REM BEING DOUBLED
  2433. REM
  2434. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  2435. REM FLANKS TO NFLANKS
  2436. REM
  2437. REM ***11/11/82 DTK - NEGATIVE NUMBERS FIX AL LA DENISE
  2438. REM ***
  2439. REM *** 9/23/82 DTK - NEW FILE SIZE - CHAIN PGM$
  2440. REM ***
  2441. REM *** 9/21/82 DTK - FIXED PRINTING FORMATS
  2442. REM ***
  2443. REM *** 9/21/82 DTK - FIXED ZERO AMTS IN DEDUCTION SUMM#"
  2444. SEQ.FAKE = 1
  2445. GOSUB 2200
  2446. FOR X=1 TO 85
  2447. L1$ = L1$ + CHR$(95)
  2448. NEXT X
  2449. GOSUB 1160
  2450. READ #CLNRNM.FIL,2;NEW.QTR.FLG,PRT.EER.FLG,PRT.941.FLG
  2451. PRT.941.FLG = 0
  2452. PRINT #CLNRNM.FIL,2;NEW.QTR.FLG, PRT.EER.FLG, PRT.941.FLG
  2453. GOSUB 9005 : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
  2454. PRINT TAB(18);"****************************************"
  2455. PRINT TAB(18);"* NOW PRINTING TAX WORKSHEET *"
  2456. PRINT TAB(18);"****************************************"
  2457. LPRINTER
  2458. PRINT CURN
  2459. 8000 R4=1
  2460. 8010 IF END #FSHEADS.FIL THEN 8040
  2461. 8020 READ #FSHEADS.FIL,R4;\
  2462. HEADER.NO,\
  2463. HEAD.DESC$,\
  2464. HEAD.CTRL.CHAR$
  2465. IF HEADER.NO = -1 THEN 8040
  2466. 8025 IF MID$(HEAD.CTRL.CHAR$,6,1) = "M" THEN M$="M"
  2467. 8030 R4=R4+1 : GOTO 8020
  2468. 8040 RETURN
  2469. %INCLUDE NFLANKS.BAS
  2470. %INCLUDE 5000
  2471. %INCLUDE 5010
  2472. 0 : CUR.PER.BAL.HOLD=0 : I=0 : I2=0 : U1=0 : Q=0 : T1.XE=0
  2473. 6410 RETURN
  2474. 7000 PRINT"INVALID INPUT - TRY AGAIN"
  2475. 7010 RET2
  2476. IF CHAR% = 127 THEN \
  2477. PRINT CHR$(8);" ";CHR$(8);
  2478. IF CHAR% = 8 THEN \
  2479. PRINT " ";CHR$(8);
  2480. IF CHAR% = 127 OR CHAR% = 8 THEN \
  2481. ACT.LEN%=ACT.LEN%-1 : \
  2482. REPLY$=LEFT$(REPLY$,LEN(REPLY$)-1) : \
  2483. GOTO 9998.7
  2484. IF CHAR%<32 OR CHAR%>125 THEN 9998.7
  2485. IF CHAR%=34 THEN CHAR%=39
  2486. REM **** FILTER OUT NON-NUMERICS IF NUM.ONLY% WAS SET TO -1 (FLD.LEN% < 0) ****
  2487. IFCALCULATION AFTER
  2488. REM LINE 1180 CREATING THE LINE AFTER IT
  2489. REM
  2490. REM 100683 - (RCB) ADDED LINE 100 AND CHANGED 2*L(4) TO (XE.L4 + L(4)) IN TWO
  2491. REM INSTANCES AFTER LINE 100 TO FORCE EMPLOYERS FICA RATE
  2492. REM TO .07 (7%) IN 1984
  2493. REM
  2494. REM 050483 - DCF FIXED STATE UNEMPLOYMENT CONTINUATION SHEET SO IF MEALS & LODGING
  2495. REM IS CHOSEN TO BE SUBJECT TO STATE UNEMPLOYMENT IT WILL BE ADDED
  2496. REM INTO TAXABLE WAGES. SET A=G AFTER ADDING MEALS & LODGING
  2497. REM
  2498. REM 040683 - DCARY
  2499. REM ***
  2500. REM ***CONTINUATION OF THE EARNINGS PROGRAM (WRKSHEET)(10D)(VER 4.0)
  2501. REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC.
  2502. REM *** 648 SOUTH RIVER DR. 602-968-7101
  2503. REM *** TEMPE, AZ. 85281
  2504. %INCLUDE COMMON
  2505. V=0 : Z4=0 : P7=0
  2506. DIM L(8),G6(2),P(4,14),H(10)
  2507. OPEN FIL$(2)+":"+CLIENT$+"CLN.FIL" RECL 255 AS 2 : CLNRNM.FIL = 2
  2508. OPEN FIL$(3)+":"+CLIENT$+"EAR.FIL" RECL 525 AS 3 : EARNREC.FIL = 3
  2509. FORM.12F2$ = "#,###,###.##"
  2510. FORM.6F2$ = "###.#HR$(12);
  2511. PRINT TAB(10);"QUARTERLY PAYROLL TAX WORKSHEET"
  2512. PRINT TAB(10);C9$;TAB(60);"CLIENT NUMBER ";C
  2513. PRINT TAB(10);"QUARTER ENDING ";MID$(C3$,1,2);"/";MID$(C3$,3,2);"/";MID$(C3$,5,2)
  2514. PRINT : PRINT " ****************************************";
  2515. PRINT "***********************************"
  2516. PRINT " FORM 941"
  2517. PRINT " LINE #"
  2518. PRINT " 1 FIRST QTR ONLY - # OF EMP. ON MARCH 12";LEFT$(L1$,8)
  2519. PRINT " 2 TOTAL WAGES, TIPS & OTHER COMP.",
  2520. PRINT USING FORM.12F2$;TAB(62);(G5+T5)/100 : PRINT
  2521. PRINT " 3,5 FEDERAL TAX WITHHELD";TAB(62);
  2522. PRINT USING FORM.12F2$;I5/100
  2523. PRINT " 6 TAXABLE FICA WAGES";TAB(35);
  2524. PRINT USING FORM.12F2$;G6(1)/100;
  2525. PRINT " X";
  2526. 100 IF MID$(C3$,5,2) = "84" THEN XE.L4 = .07 ELSE XE.L4 = .0705
  2527. PRINT USING FORM.6F2$;(XE.L4 + L(4))*100;
  2528. PRINT "% =";TAB(62);
  2529. PRINT USING FORM.12F2$;INT((XE.L4 + L(4))*G6(1)+.5)/100
  2530. X9$=" "
  2531. IF INT((G6(1)-G6(2))*L(4)+.5)/100>0 THEN X9$="*"
  2532. PRINT " 7 TAXABLE TIPS REPORT1=INT(T8*L(4)+.5)
  2533. PRINT USING FORM.12F2$;TAB(62);INT(((XE.L4+L(4))*G6(1))-((G6(1)-G6(2))*L(4))+.5+X1)/100
  2534. PRINT TAB(62);LEFT$(L1$,12)
  2535. PRINT " 11 TOTAL TAXES";
  2536. PRINT USING FORM.12F2$;TAB(62);INT(((XE.L4+L(4))*G6(1))-((G6(1)-G6(2))*L(4))+.5+X1+I5)/100
  2537. PRINT " 12 ADVANCED EARNED INCOME CREDIT";
  2538. GOSUB 15000
  2539. PRINT TAB(5);"DEPOSITS: TAX LIABILITY DATE PAID AMT. PAID"
  2540. PRINT
  2541. PRINT TAB(5);"OVERPAYMENT PREV. QTR.";TAB(45);LEFT$(L1$,12)
  2542. PRINT
  2543. GOSUB 420
  2544. GOTO 4B(5);"23RD-25TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  2545. PRINT TAB(5);"26TH-LAST ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  2546. PRINT
  2547. RETURN
  2548. 470 PRINT TAB(5);"1ST MONTH ============";TAB(36);"/ /";TAB(45);"============"
  2549. PRINT
  2550. GOSUB 420
  2551. PRINT TAB(5);"2ND MONTH ============";TAB(36);"/ /";TAB(45);"============"
  2552. PRINT
  2553. GOSUB 420
  2554. PRINT TAB(5);"3RD MONTH ============";TAB(36);"/ /";TAB(45);"============"
  2555. PRINT
  2556. PRINT TAB(5);"TOTALS ===========
  2557. PRINT " ",LEFT$(L1$,4);"APPLY TO NEXT QTR OR ",LEFT$(L1$,4);"REFUND" : PRINT
  2558. IF X9$=" " THEN 670
  2559. PRINT : PRINT : PRINT
  2560. PRINT TAB(5);"* CREDIT FOR FICA TAX ON EMPLOYEES NOT SUBJECT"
  2561. PRINT TAB(5);" TO TAX DUE TO TAX PREVIOUSLY PAID ON TIPS."
  2562. 670 PRINT CHR$(12);
  2563. PRINT " ****************************************";
  2564. PRINT "***********************************"
  2565. PRINT
  2566. PRINT TAB(10);"SUMMARY OF QUARTERLY TAX LIABILITIES";TAB(77);"TAX"
  2567. PRINT TAB(68);"------------" PRINT
  2568. PRINT TAB(10);"WAGES SUBJECT TO STATE DIS. INS.";TAB(40);
  2569. PRINT USING FORM.12F2$;D8/100;
  2570. PRINT " X ";
  2571. PRINT USING "##.##";L(7)*100;
  2572. PRINT " %=";TAB(68);
  2573. PRINT USING FORM.12F2$;(D8*L(7))/100
  2574. PRINT : PRINT
  2575. PRINT TAB(10);"SUMMARY OF DEDUCTIONS :"
  2576. PRINT TAB(10);LEFT$(L1$,65)
  2577. PRINT : PRINT
  2578. PRINT TAB(10);LEFT$(E9$,3);TAB(15);
  2579. PRINT USING FORM.12F2$;P(4,9)/100;
  2580. PRINT TAB(50);MID$(E9$,4,3);TAB(55);
  2581. PRINT USING FORM.12F2$;P(4,10)/100
  2582. PRINT : PRINT
  2583. PRINT ED";TAB(35);
  2584. PRINT USING FORM.12F2$;T8/100;
  2585. PRINT " X";
  2586. PRINT USING FORM.6F2$;L(4)*100;
  2587. PRINT "% =";TAB(62);
  2588. PRINT USING FORM.12F2$;INT(T8*L(4)+.5)/100
  2589. PRINT " 8 TOTAL FICA TAXES",
  2590. X=(INT((XE.L4+L(4))*G6(1)+.5)/100+(INT(T8*L(4)+.5)/100))
  2591. XE.XSAVE=X
  2592. PRINT USING FORM.12F2$;TAB(62);X
  2593. PRINT " 9 ADJUSTMENTS OF FICA TAXES";
  2594. PRINT TAB(62);
  2595. PRINT USING FORM.12F2$;INT((G6(1)-G6(2))*L(4)+.5)/(-100);
  2596. PRINT " ";X9$
  2597. PRINT " 10 ADJUSTED TOTAL FICA TAXES";
  2598. X70
  2599. 420 PRINT TAB(5);"1ST-3RD ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  2600. PRINT TAB(5);"4TH-7TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  2601. PRINT TAB(5);"8TH-11TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  2602. PRINT TAB(5);"12TH-15TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  2603. PRINT TAB(5);"16TH-19TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  2604. PRINT TAB(5);"20TH-22ND ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  2605. PRINT TA=";TAB(45);"============"
  2606. PRINT TAB(5);"FINAL DEPOSIT";TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
  2607. PRINT
  2608. PRINT TAB(5);"TOTAL DEPOSIT";TAB(36);"/ /";TAB(45);"============"
  2609. PRINT CHR$(12);
  2610. PRINT : PRINT : PRINT
  2611. PRINT " 13 NET TAXES ";TAB(62);
  2612. PRINT USING FORM.12F2$;X2
  2613. PRINT
  2614. PRINT " 14 TOTAL DEPOSITS";TAB(62);"============" : PRINT
  2615. PRINT " 15 BALANCE DUE";TAB(62);"============" : PRINT
  2616. PRINT " 16 OVERPAYMENT";TAB(45);"============" : PRINT : PRINT
  2617. PRINT TAB(10);"STATE INCOME TAX WITHHELD";TAB(68);
  2618. PRINT USING FORM.12F2$;S5/100
  2619. PRINT : PRINT
  2620. PRINT TAB(10);"TOTAL WAGES";TAB(40);
  2621. PRINT USING FORM.12F2$;K1/100
  2622. PRINT TAB(10);"EXCESS WAGES";TAB(40);
  2623. PRINT USING FORM.12F2$;(K1-K8)/100
  2624. PRINT TAB(40);"------------"
  2625. PRINT TAB(10);"WAGES SUBJECT TO STATE UNEMP.";TAB(40);
  2626. PRINT USING FORM.12F2$;K8/100;
  2627. PRINT " X ";
  2628. PRINT USING "##.##";L(5)*100;
  2629. PRINT " %=";TAB(68);
  2630. PRINT USING FORM.12F2$;(L(5)*K8)/100
  2631. PRINT :TAB(10);MID$(E9$,7,3);TAB(15);
  2632. PRINT USING FORM.12F2$;P(4,11)/100;
  2633. PRINT TAB(50);MID$(E9$,10,3);TAB(55);
  2634. PRINT USING FORM.12F2$;P(4,12)/100
  2635. PRINT : PRINT
  2636. PRINT TAB(20);"OTHER :";TAB(30);
  2637. PRINT USING FORM.12F2$;P(4,13)/100
  2638. PRINT : PRINT
  2639. PRINT " ****************************************";
  2640. PRINT "***********************************"
  2641. PRINT TAB(5);"WORKMENS COMPENSATION INSURANCE-RECAP HERE & FILL IN FORM"
  2642. FOR X=1 TO 16
  2643. PRINT
  2644. NEXT X
  2645. PRINT " ****************************************";
  2646. PRINT "***********************************"
  2647. PRINT TAB(5);"FEDERAL UNEMPLOYMENT INSURANCE"
  2648. PRINT TAB(5);"LIABILITY THIS QUARTER ";
  2649. PRINT USING FORM.12F2$;K9/100;
  2650. PRINT TAB(36);" X ";
  2651. PRINT USING "$#.##";L(6)*100;
  2652. PRINT "%";
  2653. PRINT USING FORM.12F2$;INT(K9*L(6)+.5)/100
  2654. PRINT TAB(48);"============"
  2655. PRINT " LIABILITY & PAYMENT LOG: LIABILITY PAYMENT BAL. DUE"
  2656. PRINT
  2657. PRINT TAB(10);"FIRST QUARTER ";LEFT$(L1$,9);" ";LEFT$(L1$,9);" ";LEFT>7 THEN GOSUB 3200
  2658. PRINT CHR$(12);
  2659. CLOSE 2,3
  2660. CONSOLE
  2661. CHAIN PGM$(2)+":PMENU"
  2662. 1160 G5=0 : I5=0 : T5=0 : S5=0
  2663. SEQ.FAKE = 1
  2664. 1180 GOSUB 1890
  2665. IF N = -1 THEN 1540
  2666. I2=P(2,6) : S2=P(2,7) : T2=P(2,4)
  2667. G2=P(2,1)+P(2,2) : Z7=P(2,1)+P(2,2)+P(2,3)
  2668. G3=P(3,1)+P(3,2) : T3=P(3,4)
  2669. I5=I5+I2 : S5=S5+S2 : T5=T5+T2 : G5=G5+Z7
  2670. IF INT(N/1000)=97 THEN 1180
  2671. IF INT(N/1000)=99 THEN 1180
  2672. GOSUB 1790
  2673. IF G3-G2-L(0)>=0 THEN 1260
  2674. G7=ABS(G3-G2-L(0))
  2675. IF G2<G7 THEN G7=G2
  2676. GOTO 1270
  2677. 12603=P(3,1)+P(3,2) : G2=P(2,1)+P(2,2)
  2678. IF H(0)<>5 THEN 1410
  2679. G3=G3+P(3,4) : G2=G2+P(2,4)
  2680. 1410 IF G3-G2-L(2)>=0 THEN 1450
  2681. K3=ABS(G3-G2-L(2))
  2682. IF G2<K3 THEN K3=G2
  2683. GOTO 1460
  2684. 1450 K3=0
  2685. 1460 K9=K9+K3
  2686. G3=P(3,1)+P(3,2) : G2=P(2,1)+P(2,2)
  2687. IF H(3)=7 THEN 1505
  2688. IF H(4)=7 THEN 1466
  2689. G3=G3+P(3,3) : G2=G2+P(2,3)
  2690. 1466 IF H(5)=7 THEN 1470
  2691. G3=G3+P(3,4) : G2=G2+P(2,4)
  2692. 1470 IF (G3-G2)-L(3)>=0 THEN 1510
  2693. D7=ABS((G3)-(G2)-L(3))
  2694. IF (G2)<D7 THEN D7=(G2)
  2695. GOTO 1520
  2696. 1505 D8=0
  2697. 1510 D7=0
  2698. 15EARNREC'-SEE MANUAL!"
  2699. 1700 PRINT " PLEASE CORRECT - THEN PRESS RETURN ";
  2700. FLD.LEN% = 1 : GOSUB 9998
  2701. INITIALIZE
  2702. CHAIN PGM$(2)+":PMENU"
  2703. 1790 IF G3-G2>L(0) THEN 1830
  2704. IF G3>L(0) THEN 1820
  2705. G6(1)=G6(1)+G2
  2706. GOTO 1830
  2707. 1820 G6(1) = G6(1) + INT(L(0) - G3 + G2 + .5)
  2708. 1830 IF G3 - G2 + T3 -T2 > L(0) THEN 1870
  2709. IF G3 + T3 - T2 > L(0) THEN 1860
  2710. G6(2) = G6(2) + G2
  2711. GOTO 1870
  2712. 1860 G6(2)=G6(2)+INT(L(0)-G3+G2-T3+T2+.5)
  2713. 1870 RETURN
  2714. 1890 SAVE.X = X
  2715. X = SEQ.FAKE-1
  2716. GOSUB 10000
  2717. SR
  2718. P(2,4) = TIPS.QTR
  2719. P(2,5) = FICA.QTR
  2720. P(2,6) = FED.INC.TAX.QTR
  2721. P(2,7) = ST.INC.TAX.QTR
  2722. P(2,8) = ST.DIS.INS.QTR
  2723. P(2,9) = LOCAL.DED.1.QTR
  2724. P(2,10) = LOCAL.DED.2.QTR
  2725. P(2,11) = LOCAL.WITH.1.QTR
  2726. P(2,12) = LOCAL.WITH.2.QTR
  2727. P(2,13) = OTHER.DED.QTR
  2728. P(2,14) = NET.WAGES.QTR
  2729. P(3,1) = REG.WAGES.YR
  2730. P(3,2) = OVERTIME.YR
  2731. P(3,3) = MEALS.LDG.YR
  2732. P(3,4) = TIPS.YR
  2733. P(3,5) = FICA.YR
  2734. P(3,6) = FED.INC.TAX.YR
  2735. P(3,7) = ST.INC.TAX.YR
  2736. P(3,8) = ST.DIS.INS.YR
  2737. P(3,9) = LOCAL.DED.1.YR
  2738. P(3,10) = $(L1$,9)
  2739. PRINT TAB(10);"SECOND QUARTER ";LEFT$(L1$,9);" ";LEFT$(L1$,9);" ";LEFT$(L1$,9)
  2740. PRINT TAB(10);"THIRD QUARTER ";LEFT$(L1$,9);" ";LEFT$(L1$,9);" ";LEFT$(L1$,9)
  2741. PRINT TAB(10);"FOURTH QUARTER ";LEFT$(L1$,9);" ";LEFT$(L1$,9);" ";LEFT$(L1$,9)
  2742. PRINT
  2743. PRINT TAB(15);"TOTALS";TAB(33);"========= ========= ========="
  2744. PRINT TAB(5);"AMOUNT OF DEPOSIT REQUIRED NOW IS";TAB(65);"$============"
  2745. PRINT TAB(5);" (CUMULATIVE LIABILITY OF $100.00 OR MORE)"
  2746. IF H(6)< G7=0
  2747. 1270 G8=G8+G7
  2748. IF G3-G2+T3-T2-L(0)>=0 THEN 1320
  2749. T7=ABS(G3-G2+T3-T2-L(0))
  2750. IF G2+T2<=T7 THEN T7=T2 ELSE GOTO 1330
  2751. GOTO 1340
  2752. 1320 T7=0
  2753. GOTO 1340
  2754. 1330 IF G2>=T7 THEN T7=0 ELSE T7=T7-G2
  2755. 1340 T8=T8+T7
  2756. G3=P(3,1)+P(3,2) : G2=P(2,1)+P(2,2)
  2757. IF H(1)=7 THEN 1346
  2758. G3=G3+P(3,3) : G2=G2+P(2,3)
  2759. 1346 IF H(2)=7 THEN 1350
  2760. G3=G3+P(3,4) : G2=G2+P(2,4)
  2761. 1350 K1=K1+G2
  2762. IF G3-G2-L(1)>=0 THEN 1390
  2763. K7=ABS(G3-G2-L(1))
  2764. IF G2<K7 THEN K7=G2
  2765. GOTO 1400
  2766. 1390 K7=0
  2767. 1400 K8=K8+K7
  2768. G20 D8=D8+D7
  2769. N7=N7+P(3,7) : N9=N9+P(3,9)
  2770. GOTO 1180
  2771. 1540 RETURN
  2772. 1560 CLOSE 2,3
  2773. CONSOLE
  2774. CHAIN PGM$(2)+":PMENU"
  2775. 1590 CONSOLE : CLOSE 2,3
  2776. PRINT CHR$(7)
  2777. PRINT "THE PROGRAM DISK IS NOT IN DRIVE ";PGM$(2);"!"
  2778. GOTO 1700
  2779. 1612 CONSOLE : CLOSE 2,3
  2780. REM IF NOT FILE("CLNRNM,2) THEN 1616
  2781. PRINT "THE DISK IN DRIVE ";FIL$(2);" DOES NOT HAVE ON IT THE FILE 'CLNRNM' - SEE MANUAL!"
  2782. GOTO 1700
  2783. 1616 CONSOLE : CLOSE 2,3
  2784. PRINT "THE DISK IN DRIVE ";FIL$(3);" DOES NOT HAVE ON IT THE FILE 'EQ.FAKE = SEQ.FAKE + 1
  2785. X = SAVE.X
  2786. N = EMP.NO
  2787. N$ = EMP.NAME$
  2788. S$ = STR.ADDR$
  2789. C$ = CITY.ST.ZIP$
  2790. Z$ = SSN$
  2791. P(1,1) = REG.WAGES
  2792. P(1,2) = OVERTIME.WAGES
  2793. P(1,3) = MEALS.AND.LODGING
  2794. P(1,4) = TIPS
  2795. P(1,5) = FICA
  2796. P(1,6) = FED.INC.TAX
  2797. P(1,7) = STATE.INC.TAX
  2798. P(1,8) = ST.DIS.INS
  2799. P(1,9) = LOCAL.DED.1
  2800. P(1,10) = LOCAL.DED.2
  2801. P(1,11) = LOCAL.WITH.1
  2802. P(1,12) = LOCAL.WITH.2
  2803. P(1,13) = OTHER.DED
  2804. P(1,14) = NET.WAGES
  2805. P(2,1) = REG.WAGES.QTR
  2806. P(2,2) = OVERTIME.QTR
  2807. P(2,3) = MEALS.LDG.QTLOCAL.DED.2.YR
  2808. P(3,11) = LOCAL.WITH.1.YR
  2809. P(3,12) = LOCAL.WITH.2.YR
  2810. P(3,13) = OTHER.DED.YR
  2811. P(3,14) = NET.WAGES.YR
  2812. L1 = L1.XE
  2813. FOR XE = 9 TO 13
  2814. P(4,XE) = P(4,XE) + P(2,XE)
  2815. NEXT XE
  2816. RETURN
  2817. 1940 FOR X=A TO B STEP 2.0
  2818. PRINT USING "$#,###,####.##";P(X1,X)/100;
  2819. NEXT X
  2820. A=2 : B=14
  2821. PRINT
  2822. IF X>=16 THEN 1960
  2823. PRINT TAB(3), : GOTO 1940
  2824. 1960 RETURN
  2825. 2200 GOSUB 5000
  2826. C = CLIENT.NO
  2827. C9$ = CLIENT.NAME$
  2828. C2$ = GL.END.DATE$
  2829. C3$ = PAY.END.DATE$
  2830. X=0 : L9=0
  2831. L(0) = MAX.FICA.WAGES
  2832. L(1) = MAX.ST.UNEMP
  2833. L(2) = MAX.FED.UNEMP
  2834. L(3) = MAX.ST.DIS.WAGES
  2835. L(4) = EMP.FICA.RATE
  2836. L(5) = ST.UNEMP.RATE
  2837. L(6) = FED.UNEMP.RATE
  2838. L(7) = ST.DIS.RATE
  2839. H(0) = TIPS.F.U.I
  2840. H(1) = MEALS.LDG.TO.ST.UNEMP
  2841. H(2) = TIPS.TO.ST.UNEMP
  2842. H(3) = ST.DIS.FLG
  2843. H(4) = MEALS.LDG.TO.SDI
  2844. H(5) = TIPS.TO.SDI
  2845. H(6) = ST.UNEMP.CONT.FLG
  2846. H(7) = FORMAT.1
  2847. H(8) = FORMAT.2
  2848. H(9) = TIP.CONT.SHEET
  2849. E9$ = LOCAL.DESC$
  2850. RETURN
  2851. 3000 PRINT CHR$(12); : PG.NO=PG.NO+1
  2852. PRINT : PRINT TAB(69);"PAGEB(70);"TAXABLE WAGES";
  2853. IF H(8)=7 THEN PRINT TAB(70);"EXCESS WAGES";
  2854. IF H(8)=1 THEN PRINT TAB(70);"FICA WAGES";
  2855. PRINT
  2856. PRINT LEFT$(L1$,80)
  2857. PRINT : P1=9
  2858. RETURN
  2859. 3200 GOSUB 3000
  2860. X=0 : A1=0 : G3=0
  2861. 3220 GOSUB 6000
  2862. IF EMP.NO = -1 THEN 3500
  2863. IF INT(N/1000)=97 OR INT(N/1000)=99 THEN 3220
  2864. IF G+O+T+M<=0 THEN GOTO 3220
  2865. IF (G1-G)>L(0) THEN 3220
  2866. PRINT TAB(5);LEFT$(Z$,3);"/";MID$(Z$,4,2);"/";MID$(Z$,6,4);
  2867. PRINT TAB(20);N$; : Z4=Z4+1
  2868. 3320 IF H(7)=5 THEN GOSUB 3330 : THEN EX=EX+T : YTDEX=YTDEX+T1
  2869. 3354 IF H(1)=5 THEN EX=EX+M : YTDEX=YTDEX+M1
  2870. 3356 IF YTDEX-EX <L(1) THEN EX=EX-(L(1)-(YTDEX-EX))
  2871. 3358 IF EX<0 THEN EX=0
  2872. 3360 RETURN
  2873. 3370 GROSS=G+O+T+M
  2874. 3372 RETURN
  2875. 3380 FICA=G+O : YTDFICA=G1+O1
  2876. 3382 IF H(2)=5 THEN FICA=FICA+T : YTDFICA=YTDFICA+T1
  2877. 3384 IF YTDFICA-FICA>=L(0) THEN FICA=0 : GOTO 3388
  2878. 3386 IF YTDFICA>=L(0) THEN FICA=L(0)-(YTDFICA-FICA)
  2879. 3388 RETURN
  2880. 3390 A1=A1+A
  2881. PRINT USING FORM.12F2$;TAB(50);A/100;
  2882. A=0
  2883. 3400 ;"PAGE NO. ";P7 : PRINT
  2884. PRINT TAB(22);"TIP CONTINUATION SHEET"
  2885. PRINT
  2886. PRINT TAB(5);"CLIENT NO. ";
  2887. PRINT USING "######";C;
  2888. PRINT TAB(40);C9$
  2889. PRINT
  2890. PRINT TAB(5);"SOC. SEC. NO.";TAB(20);"NAME",
  2891. IF H(9)=5 THEN PRINT TAB(65);"TAXABLE TIPS" ELSE \
  2892. PRINT TAB(65);"TOTAL TIPS"
  2893. PRINT LEFT$(L1$,80) : PG.NO=9
  2894. PRINT
  2895. RETURN
  2896. 4100 GOSUB 4000 : T8=0 : X=0
  2897. IF END #EARNREC.FIL THEN 4270
  2898. 4120 GOSUB 6000
  2899. IF EMP.NO = -1 THEN 4270
  2900. G=G+O : G1=G1+O1
  2901. IF T=0 THEN 4260
  2902. IF SING FORM.12F2$;TAB(65);T9/100
  2903. PG.NO = PG.NO + 1 : V = V + 1
  2904. 4250 IF PG.NO > 60 THEN GOSUB 4000
  2905. 4260 GOTO 4120
  2906. 4270 PRINT LEFT$(L1$,80)
  2907. PRINT TAB(5);"TOTAL";TAB(65);
  2908. PRINT USING FORM.12F2$;T8/100
  2909. PRINT : PRINT TAB(5);"TOTAL # OF EMPLOYEES = ";V
  2910. PRINT CHR$(12);
  2911. RETURN
  2912. 6000 GOSUB 10000 : REM READ EARNREC.FIL
  2913. N = EMP.NO
  2914. N$ = EMP.NAME$
  2915. S$ = STR.ADDR$
  2916. C$ = CITY.ST.ZIP$
  2917. Z$ = SSN$
  2918. G = REG.WAGES.QTR
  2919. O = OVERTIME.QTR
  2920. M = MEALS.LDG.QTR
  2921. T = TIPS NO. ";
  2922. PRINT USING "###";PG.NO
  2923. PRINT
  2924. PRINT TAB(19);"INSURANCE CONTINUATION SHEET"
  2925. PRINT
  2926. PRINT TAB(5);"CLIENT NO. ";
  2927. PRINT USING "######";C,
  2928. PRINT TAB(30);C9$
  2929. PRINT
  2930. PRINT TAB(5);"SOC. SEC. NO. ";TAB(20);"NAME";
  2931. IF H(7)=5 THEN PRINT TAB(50);"TAXABLE WAGES";
  2932. IF H(7)=7 THEN PRINT TAB(50);"EXCESS WAGES";
  2933. IF H(7)=3 THEN PRINT TAB(50);"GROSS WAGES";
  2934. IF H(7)=1 THEN PRINT TAB(50);"FICA WAGES";
  2935. IF H(8)=3 THEN PRINT TAB(70);"GROSS WAGES";
  2936. IF H(8)=5 THEN PRINT TA A=TAX : GOTO 3390
  2937. 3322 IF H(7)=7 THEN GOSUB 3350 : A=EX : GOTO 3390
  2938. 3324 IF H(7)=3 THEN GOSUB 3370 : A=GROSS : GOTO 3390
  2939. 3326 IF H(7)=1 THEN GOSUB 3380 : A=FICA : GOTO 3390
  2940. 3328 GOTO 3400
  2941. 3330 TAX=G+O : YTDTAX=G1+O1
  2942. 3332 IF H(2)=5 THEN TAX=TAX+T : YTDTAX=YTDTAX+T1
  2943. 3334 IF H(1)=5 THEN TAX=TAX+M : YTDTAX=YTDTAX +M1
  2944. 3336 IF YTDTAX-TAX>=L(1) THEN TAX=0 : GOTO 3340
  2945. 3338 IF YTDTAX>=L(1) THEN TAX=L(1)-(YTDTAX-TAX)
  2946. 3340 RETURN
  2947. 3350 EX=G+O : YTDEX=G1+O1
  2948. 3352 IF H(2)=5 GOSUB 16000
  2949. 3480 PRINT : P1=P1+2
  2950. IF P1>60 THEN GOSUB 3000
  2951. GOTO 3220
  2952. 3500 PRINT LEFT$(L1$,80)
  2953. PRINT TAB(5);"TOTAL";
  2954. IF H(7)<>9 AND H(8)<>9 THEN PRINT "S";
  2955. PRINT " :";
  2956. IF H(7)=9 THEN 3540
  2957. PRINT USING FORM.12F2$;TAB(50);A1/100;
  2958. 3540 IF H(8)=9 THEN 3560
  2959. PRINT USING FORM.12F2$;TAB(68);G3/100
  2960. A1=0 : G3=0
  2961. 3560 PRINT : PRINT TAB(5);"TOTAL # OF EMPLOYEES = ";Z4
  2962. IF H(9)=9 THEN GOTO 3570 ELSE GOSUB 4100
  2963. 3570 RETURN
  2964. 4000 PRINT CHR$(12);
  2965. P7=P7+1 : PRINT TAB(70)H(1)<>5 THEN 4133
  2966. G=G+M : G1=G1+M1
  2967. 4133 IF H(2)<>5 THEN 4195
  2968. IF INT(N/1000)=99 THEN 4260
  2969. IF INT(N/1000)=97 THEN 4260
  2970. IF H(9)=7 THEN 4230
  2971. IF H(9)<>5 THEN 4270
  2972. IF G1-G>L(1) THEN 4195
  2973. IF G1>L(1) THEN 4200
  2974. T9=T
  2975. GOTO 4220
  2976. 4195 T9=0
  2977. GOTO 4220
  2978. 4200 T9=L(1)-G-G1-T1
  2979. IF T9>T THEN T9=T
  2980. IF T9<0 THEN T9=0
  2981. 4220 T8=T8+T9 : GOTO 4233
  2982. 4230 T8=T8+T : T9=T
  2983. 4233 IF T9=0 THEN 4250
  2984. PRINT TAB(5);LEFT$(Z$,3);"/";MID$(Z$,4,2);"/";MID$(Z$,6,4);
  2985. PRINT TAB(20);N$;
  2986. PRINT U.QTR
  2987. G1 = REG.WAGES.YR
  2988. O1 = OVERTIME.YR
  2989. M1 = MEALS.LDG.YR
  2990. T1 = TIPS.YR
  2991. X=X+1
  2992. RETURN
  2993. 15000 IF LEFT$(E9$,3)="EIC" THEN PRINT TAB(62); :\
  2994. PRINT USING FORM.12F2$;P(4,9)/100 :\
  2995. ELSE\
  2996. GOTO 15010
  2997. PRINT " 13 NET TAXES";
  2998. X2=XE.XSAVE+INT(I5+.5+P(4,9))/100
  2999. PRINT USING FORM.12F2$;TAB(62);X2
  3000. PRINT TAB(62);LEFT$(L1$,12)
  3001. PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
  3002. GOTO 15050
  3003. 15010 IF MID$(E9$,54,3)="EIC" THEN PRINT TAB(62); :\
  3004. PRINT USING FORM.12F2$;P(4,10)/100 :\
  3005. ELSE GOTO 15020
  3006. PRINT " 13 NET TAXES";
  3007. X2=XE.XSAVE+INT(I5+.5+P(4,10))/100
  3008. PRINT USING FORM.12F2$;TAB(62);X2 : PRINT TAB(62);LEFT$(L1$,12)
  3009. PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
  3010. GOTO 15050
  3011. 15020 IF MID$(E9$,7,3)="EIC" THEN PRINT TAB(62); :\
  3012. PRINT USING FORM.12F2$;P(4,11)/100 :\
  3013. ELSE \
  3014. GOTO 15030
  3015. PRINT " 13 NET TAXES";
  3016. X2=XE.XSAVE+INT(I5+.5+P(4,11))/100
  3017. PRINT USING FORM.12F2$;TAB(62);X2 : PRINT NET TAXES";
  3018. X2=XE.XSAVE+INT(I5+.5)/100
  3019. PRINT USING FORM.12F2$;TAB(62);X2
  3020. PRINT TAB(62);LEFT$(L1$,12)
  3021. 15040 PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
  3022. 15050 RETURN
  3023. 16000 IF H(8)=5 THEN GOSUB 3330 : A=TAX : GOTO 16200
  3024. IF H(8)=7 THEN GOSUB 3350 : A=EX : GOTO 16200
  3025. IF H(8)=3 THEN GOSUB 3370 : A=GROSS : GOTO 16200
  3026. IF H(8)=1 THEN GOSUB 3380 : A=FICA : GOTO 16200
  3027. GOTO 16300
  3028. 16200 G3=G3+A
  3029. PRINT USING FORM.12F2$;TAB(68);A/100
  3030. A=0
  3031. 16300 RAX.QTR,\
  3032. ST.INC.TAX.QTR,\
  3033. ST.DIS.INS.QTR,\
  3034. LOCAL.DED.1.QTR,\
  3035. LOCAL.DED.2.QTR,\
  3036. LOCAL.WITH.1.QTR,\
  3037. LOCAL.WITH.2.QTR,\
  3038. OTHER.DED.QTR,\
  3039. NET.WAGES.QTR,\
  3040. REG.WAGES.YR,\
  3041. OVERTIME.YR,\
  3042. MEALS.LDG.YR,\
  3043. TIPS.YR,\
  3044. FICA.YR,\
  3045. FED.INC.TAX.YR,\
  3046. ST.INC.TAX.YR,\
  3047. ST.DIS.INS.YR,\
  3048. LOCAL.DED.1.YR,\
  3049. LOCAL.DED.2.YR,\
  3050. LOCAL.WITH.1.YR,\
  3051. LOCAL.WITH.2.YR,\
  3052. OTHER.DED.YR,\
  3053. NET.WAGES.YR,\
  3054. L1.XE
  3055. RETURN
  3056. 10000.1 EMP.NO = -1
  3057. REM FORMERLY KA BOOOOOOOOOOOOOOOOOOOOOOOOOO) AND ACT.LEN% = 0 THEN \
  3058. REPLY$ = DUPE.KEY$ : CHAR% = 13 : GOTO 9998.7
  3059. IF CHAR%=127 AND ACT.LEN% = 0 THEN \
  3060. PRINT CHR$(8); : PRINT " "; : GOTO 9998.2
  3061. IF CHAR% = 8 AND ACT.LEN% = 0 THEN \
  3062. PRINT " "; : GOTO 9998.2
  3063. IF CHAR% = 127 THEN \
  3064. PRINT CHR$(8);" ";CHR$(8);
  3065. IF CHAR% = 8 THEN \
  3066. PRINT " ";CHR$(8);
  3067. IF CHAR% = 127 ***********************************************************
  3068. 9998.6 ACT.LEN%=ACT.LEN% + 1
  3069. IF ACT.LEN%>FLD.LEN% AND FLD.LEN% <> 0 THEN \
  3070. PRINT CHR$(7);CHR$(8);" ";CHR$(8); : ACT.LEN% = ACT.LEN% -1 : \
  3071. GOTO 9998.7
  3072. REPLY$=REPLY$+CHR$(CHAR%)
  3073. IF ACT.LEN%>FLD.LEN% THEN \
  3074. CHAR%=13
  3075. 9998.7 WEND
  3076. RETURN
  3077.  TAB(62);LEFT$(L1$,12)
  3078. PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
  3079. GOTO 15050
  3080. 15030 IF MID$(E9$,10,3)="EIC" THEN PRINT TAB(62); :\
  3081. PRINT USING FORM.12F2$;P(4,12)/100 :\
  3082. ELSE \
  3083. GOTO 15038
  3084. PRINT " 13 NET TAXES"
  3085. X2=XE.XSAVE+INT(I5+.5+P(4,12))/100
  3086. PRINT USING FORM.12F2$;TAB(62);X2 : PRINT TAB(62);LEFT$(L1$,12)
  3087. PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
  3088. GOTO 15050
  3089. 15038 PRINT USING FORM.12F2$;TAB(62);0/100
  3090. PRINT " 13 ETURN
  3091. %INCLUDE 5000
  3092. 10000 IF END #EARNREC.FIL THEN 10000.1
  3093. READ #EARNREC.FIL,X+1; \
  3094. EMP.NO,\
  3095. EMP.NAME$,\
  3096. STR.ADDR$,\
  3097. CITY.ST.ZIP$,\
  3098. SSN$,\
  3099. REG.WAGES ,\
  3100. OVERTIME.WAGES ,\
  3101. MEALS.AND.LODGING ,\
  3102. TIPS ,\
  3103. FICA ,\
  3104. FED.INC.TAX ,\
  3105. STATE.INC.TAX ,\
  3106. ST.DIS.INS ,\
  3107. LOCAL.DED.1,\
  3108. LOCAL.DED.2, \
  3109. LOCAL.WITH.1,\
  3110. LOCAL.WITH.2,\
  3111. OTHER.DED,\
  3112. NET.WAGES,\
  3113. REG.WAGES.QTR,\
  3114. OVERTIME.QTR,\
  3115. MEALS.LDG.QTR,\
  3116. TIPS.QTR,\
  3117. FICA.QTR,\
  3118. FED.INC.TM
  3119. PRINT "EOF HIT - INCORRECT EOF MARK"
  3120. RETURN
  3121. 9005 PRINT CLR$;:FOR DELAY=0 TO CLR.DLY% : NEXT DELAY
  3122. RETURN
  3123. 9998 REM --- TRAP SPECIAL CHARACTERS ---
  3124. REPLY$="" : CHAR%=0 : ACT.LEN%=0
  3125. REM FLD.LEN% < 0 THEN LIMIT TO 0-9 AND "-" IN FIRST CHARACTOR
  3126. IF FLD.LEN% < 0 THEN FLD.LEN% = ABS(FLD.LEN%) : NUM.ONLY = -1 \
  3127. ELSE NUM.ONLY = 0
  3128. WHILE CHAR%<>13
  3129. 9998.2 CHAR%=CONCHAR%
  3130. REM ************* MODIFIED FOR AUTO DUPE KEY **************
  3131. IF CHAR% = ASC(DUPE.KEY$OR CHAR% = 8 THEN \
  3132. ACT.LEN%=ACT.LEN%-1 : \
  3133. REPLY$=LEFT$(REPLY$,LEN(REPLY$)-1) : \
  3134. GOTO 9998.7
  3135. IF CHAR%<32 OR CHAR%>125 THEN 9998.7
  3136. IF CHAR%=34 THEN CHAR%=39
  3137. REM **** FILTER OUT NON-NUMERICS IF NUM.ONLY% WAS SET TO -1 (FLD.LEN% < 0) ****
  3138. IF NUM.ONLY = 0 OR CHAR% = 13 THEN 9998.6
  3139. IF CHAR% = 45 AND ACT.LEN% = 0 THEN 9998.6
  3140. IF CHAR% < 48 OR CHAR% > 57 THEN \
  3141. PRINT CHR$(8);" ";CHR$(8);CHR$(7); : \
  3142. GOTO 9998.7
  3143. REM **裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 NUM.ONLY = 0 OR CHAR% = 13 THEN 9998.6
  3144. IF CHAR% = 45 AND ACT.LEN% = 0 THEN 9998.6
  3145. IF CHAR% < 48 OR CHAR% > 57 THEN \
  3146. PRINT CHR$(8);" ";CHR$(8);CHR$(7); : \
  3147. GOTO 9998.7
  3148. REM *************************************************************
  3149. 9998.6 ACT.LEN%=ACT.LEN% + 1
  3150. IF ACT.LEN%>FLD.LEN% AND FLD.LEN% <> 0 THEN \
  3151. PRINT CHR$(7);CHR$(8);" ";CHR$(8); : ACT.LEN% = ACT.LEN% -1 : \
  3152. GOTO 9998.7
  3153. REPLY$=REPLY$+CHR$(CHAR%)
  3154. IF ACT.LEN%>FLD.LEN% THEN \
  3155. 裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 CHAR%=13
  3156. 9998.7 WEND
  3157. RETURN
  3158. NT CHR$(8);" ";CHR$(8);CHR$(7); : \
  3159. GOTO 9998.7
  3160. REM *************************************************************
  3161. 9998.6 ACT.LEN%=ACT.LEN% + 1
  3162. IF ACT.LEN%>FLD.LEN% AND FLD.LEN% <> 0 THEN \
  3163. PRINT CHR$(7);CHR$(8);" ";CHR$(8); : ACT.LEN% = ACT.LEN% -1 : \
  3164. GOTO 9998.7
  3165. REPLY$=REPLY$+CHR$(CHAR%)
  3166. IF ACT.LEN%>FLD.LEN% THEN \
  3167. 裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������