1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454 |
- � 裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹�ACCTSTATBAS���/�����������FINSTATEBAS���
-
�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"
- REM
- REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM 091782 DCF DELETED PROMPT FOR CLIENT DISK AND INSERTED A CLEAR SCREEN
- 1 REM *** DISPLAYS AN ACCOUNT STATUS INCLUDING TRANSACTIONS (ACCTSTAT)
- REM *** COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS INC.
- REM *** 648 SOUTH RIVER DRIVE 602-968-7101
- %INC9998 : PRINT: M$=UCASE$(LEFT$(REPLY$,1))
- IF M$="M" THEN 800
- 70 GOSUB 9005 :PRINT : PRINT
- PRINT "ENTER THE CLIENT NUMBER >";:FLD.LEN%=-6 :GOSUB 9998: PRINT : R=VAL(REPLY$)
- 99 REM READING CLNRNM
- 110 GOSUB 5000
- 120 IF R=CLIENT.NO THEN 170
- PRINT " THE NUMBER OF THE DISK IN DRIVE "; FIL$(2);
- PRINT " IS ";CLIENT.NO
- PRINT " Please Change the Disk or Enter the Correct Number!"
- PRINT " Then Press RETURN ";:FLD.LEN%=1 :GOSUB 9998 : L$=LEFT$(REPLY PRINT "SET THE PRINTER AND PAPER" : GOSUB 6000
- 230 PRINT"ENTER THE ACCOUNT NUMBER (OR -1 TO END) >";:FLD.LEN%=-10 : GOSUB 9998: PRINT : Z=VAL(REPLY$)
- 235 IF Z=-1 THEN 800
- X=O
- 245 REM READING COANS FILE
- 246 GOSUB 8001
- 250 IF ACCT.NUM = -1 THEN 340
- X=X+1
- 270 IF ACCT.NUM<>Z THEN 245
- 282 IF F<>1 THEN GOTO 285 ELSE GOTO 286
- 283 PRINT "WORKING . . ."
- 284 PRINT : PRINT : PRINT
- 285 CONSOLE : GOSUB 9005 :GOTO 288
- 286 LPRINTER
- 288 PRINT CLIENT.NAME$;
- PRINT "CLIENT #裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹LUDE COMMON.BAS
- 3 REM OPENING ALL THE FILES(CLNRNM,COANS,TRINFO)
- GOSUB 7000
- GOSUB 8000
- GOSUB 9000
- 5 GOSUB 9005
- PRINT
- PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
- PRINT
- PRINT TAB(29);"MENU OPTION #5"
- PRINT " PRINTS OR DISPLAYS A CURRENT ACCOUNT STATUS INCLUDING TRANSACTIONS" : PRINT
- PRINT TAB(5);"Press RETURN Key to Continue or 'M' to Return to Utilities Menu";
- FLD.LEN%=1 : GOSUB $,1)
- 150 GOTO 70
- 170 CUR.PER.BAL=0 : CUR.BAL.ACUM=0 : YR.TO.DT.ACUM=0
- PRINT "Enter 'P' to have the Account Status PRINTED "
- 180 PRINT " 'D' to have it DISPLAYED or"
- PRINT " 'M' to return to UTILITIES MENU ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : F$=UCASE$(LEFT$(REPLY$,1))
- IF F$="M" THEN 800
- 190 IF F$<>"P" THEN 210
- 200 F=1 : P=56 : GOTO 225
- 210 IF F$<>"D" THEN 222
- 220 F=0 : P=21 : GOTO 230
- 222 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!" : GOTO 170
- 225 ";
- PRINT USING "######";CLIENT.NO
- 290 PRINT "CURRENT STATUS OF ACCOUNT NUMBER > ";
- PRINT USING "######.##";ACCT.NUM;
- PRINT " ";
- PRINT ACCT.DESCRIP$ : PRINT
- 300 PRINT " DATE J# REF. ACCOUNT # ----DESCRIPTION-----";
- PRINT TAB(57);
- 310 PRINT "CURRENT";
- PRINT TAB(68);
- PRINT "YEAR-TO-DATE"
- 320 PRINT USING "&&";MID$(GL.END.DATE$,1,2);
- PRINT "/";
- PRINT USING "&&";MID$(GL.END.DATE$,3,2);
- PRINT "/";
- PRINT USING "&&";MID$(GL.END.DATE$,5,2);
- PRINT " BF ";
- PRINT USING "######.##";ACCT.NUM;
- PRINT " ";
- 330 PRINT "BALANCES";
- PRINT TAB(48);
- PRINT USING "$$###,###,###.##";CUR.PER.BAL/100;YR.TO.DATE.BAL/100
- 333 P1=5
- 335 GOTO 400
- 340 CONSOLE : PRINT CHR$(7);"THAT ACCOUNT NUMBER DOES NOT EXIST"
- 350 GOTO 230
- 400 REM READING TRINFO FILE
- X=0
- 415 GOSUB 9001
- 420 IF TRAN.ACT.NO = 9999999.99 THEN 580
- X=X+1
- 440 IF TRAN.ACT.NO<>Z THEN 415
- 460 PRINT USING "&&";MID$(TRANS.DT.REF.DESCRIP$,1,2);
- OTO 478
- 476 PRINT TAB(48);
- PRINT USING "$$###,###,###.##";TRANS.AMT/100 : GOTO 480
- 478 PRINT TAB(64);
- PRINT USING "$$###,###,###.##";TRANS.AMT/100
- 480 YR.TO.DT.ACUM=YR.TO.DT.ACUM+TRANS.AMT
- IF MID$(TRANS.DT.REF.DESCRIP$,9,1)<>"7" THEN CUR.BAL.ACUM=CUR.BAL.ACUM+TRANS.AMT
- 490 P1=P1+1
- 500 IF P1<P THEN 415
- 510 IF F=1 THEN 545
- 520 CONSOLE
- 540 INPUT"PRESS RETURN TO CONTINUE ";X$
- 545 IF F=0 THEN GOSUB 9005 ELSE PRINT CHR$(12);
- 550 IF F=0 THEN 560
- 555 PRINT : PRINT : PRINT
- 56
- 6000 PRINT" THEN PRESS RETURN ";:FLD.LEN%=2 : GOSUB 9998 : PRINT : X$=LEFT$(REPLY$,1) : RETURN
- 6100 PRINT"PLEASE CORRECT - THEN PRESS RETURN ";:FLD.LEN%=2 : GOSUB 9998 : PRINT : X$=LEFT$(REPLY$,1) : RETURN
- 6999 REM OPENING CLNRNM , TRINFO AND COANS FILES
- 7000 OPEN FIL$(2) +":"+ CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL = 1
- RETURN
- 8000 OPEN FIL$(4) +":"+ CLIENT$ + "COA.FIL" RECL 65 AS 2 : COANS.FILE = 2
- RETURN
- 8001 READ #COANS.FILE,X+1;\
- ACCT.NUM,\
- CUR.PER.BAREM 101485 - RML - CORRECTED LINES 700, 720, 740, 1087, AND 1500 TO CORRECT
- REM MISS ALIGNED DECIMALS WHEN NET PROFIT IS LESS THAN 0.
- REM
- REM 112184 - SRS - ADDED ROUTINE TO LINES 580,590 WHICH SAVES H$ (CURRENT
- REM HEADER LINE) IN L1$, TESTS FOR CHARACTERS PRESENT AFTER
- REM XX/XX/XX IN HEADER LINE AND IF ANY, STORES THEM IN L$
- REM AND ADDS L$ TO END OF PRINT LINE
- REM
- REM 112184 - SRS - CORRECTED ALIGNMENT OF DECIMALS IN BOTH COLUMNS IN LIN83 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
- REM
- REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM 020183 - DCF CHANGED PRINT CLR$ TO GOSUB 9005
- REM
- REM 020183 - DCF CHANGED LINE 1630 MOVED GOTO 1640 ON NEXT LINE
- REM FIXED SINGLE UNDERLINE PROBLEM AT THE END OF REPORT
- REM
- REM 111182 - (RCB) ADDED LINE AT 630 TO SKIP FRONT AND TAIL SPACE EATING
- REM PRINT "/";
- PRINT USING "&&";MID$(TRANS.DT.REF.DESCRIP$,3,2);
- PRINT "/";
- PRINT USING "&&";MID$(TRANS.DT.REF.DESCRIP$,5,2);
- PRINT " ";
- PRINT USING "&";MID$(TRANS.DT.REF.DESCRIP$,9,1);
- PRINT " ";
- PRINT USING "&&";MID$(TRANS.DT.REF.DESCRIP$,10,5);
- PRINT " ";
- 470 PRINT USING "######.##";TRAN.ACT.NO;
- PRINT " ";
- PRINT USING "&&";MID$(TRANS.DT.REF.DESCRIP$,16,19);
- 475 IF MID$(TRANS.DT.REF.DESCRIP$,9,1) <> "7" THEN GOTO 476 ELSE G0 P1=0
- 570 GOTO 415
- 580 PRINT
- 640 PRINT " TOTALS";
- PRINT TAB(48);
- PRINT USING "$$###,###,###.##";(CUR.PER.BAL+CUR.BAL.ACUM)/100;
- PRINT USING "$$###,###,###.##";(YR.TO.DATE.BAL+YR.TO.DT.ACUM)/100
- 652 IF F=1 THEN PRINT CHR$(12)
- CONSOLE
- 653 PRINT"PRESS RETURN TO START ANOTHER LIST ";:FLD.LEN%=2 : GOSUB 9998: PRINT : X$=LEFT$(REPLY$,1)
- 655 GOSUB 9005 : GOTO 170
- 775 CLOSE CLNRNM.FIL
- CLOSE COANS.FILE
- CLOSE TRINFO.FILE
- 778 CONSOLE
- 800 CHAIN PGM$(4) + ":" + "UMENU"
L,\
- YR.TO.DATE.BAL,\
- ACCT.DESCRIP$
- CUR.PER.BAL=0
- RETURN
- 9000 OPEN FIL$(5) +":"+ CLIENT$ + "TRI.FIL" RECL 68 AS 3 : TRINFO.FILE = 3
- RETURN
- 9001 READ #TRINFO.FILE,X+1;\
- TRAN.ACT.NO,\
- TRANS.AMT,\
- TRANS.DT.REF.DESCRIP$
- RETURN
- %INCLUDE NFLANKS.BAS
- %INCLUDE 5000
- + "COA.FIL" RECL 65 AS 2 : COANS.FILE = 2
- RETURN
- 8001 READ #COANS.FILE,X+1;\
- ACCT.NUM,\
- CUR.PER.BAES
- REM 639,660,740,1300,1302,1307,1643
- REM
- REM 102883 - (RCB) ADDED CODE AT 575 TO CHANGE GL ENDING DATE TO 010183
- REM IF CURRENT GL ENDING DATE IS 0
- REM
- REM 070583 - DCF CHANGED ALL T1= TO T1.XE= FOR CB80 COMPILE
- REM
- REM 062783 - (RCB) CHANGED 84 TO 70 IN LINE AFTER 634.2 TO MOVE CENTERED
- REM HEADINGS OVER 8 SPACES
- REM
- REM 062483 - (RCB) ADDED XE.X9 AT 634.2 AND LINE AFTER TO PREVENT VALUE FROM
- REM CHANGING AS THE STRING GETS LONGER - TO FIX CENTERING
- REM
- REM 0620 IF LENGTH IS LESS THAN 2 TO PREVENT SS ERROR
- REM
- REM 092382 - (RCB) CHECKED AND FIXED ALL INPUTS FOR UPPER AND LOWER CASE
- REM
- REM 092382 - (RCB) CHANGE LINES AFTER 51 FROM THEN 1400 TO THEN 1410 TO
- REM PREVENT ERROR NF IF M TO RETURN TO MENU IS SELECTED
- REM
- REM 092282 - (RCB) TOOK .2 OFF OF 634 IN LINE 630 SO EAT OFF BACK ROUTINE
- REM WILL BE ACCESSED
- REM
- REM 092282 - (RCB) CHANGED 78 TO 84 IN LINE 634.2 TO CALM STEVE DOWN ABOUT
- REM CENTERING
- REM
- REM 092282 - (RCB) DECREMENTED MENU OPTION NUMBER BY 1
- REM
- REM 092082 - (RCB) CHANGED M TO FISCAL.END.MO IN LINES 625 AND 626
- REM
- REM 091782 - (RCB) ADDED PRESS RETURN TO CUNTINUE AFTER LINE 135 TO ALLOW
- REM THE USER TO READ THE MESSAGE (I FOUND THIS ONE)
- REM
- REM 091682 - (RCB) LINES IN * ADDED AT 634 TO FIX CENTERING 634 IS NOW 634.2
- REM
- REM 091682 - (RCB) ADDED + 1 TO P IN LINE AFTER 1150 TO TRY TO GET SKIP
- REM LINE FUNCTION TO WORK
- REM
- REM 091682 - (RCB) PUT ABS FUNCTION IN P BY - R & B COMPUTER SYSTEMS INC.
- REM *** 648 SOUTH RIVER DR. 602-968-7101
- REM *** TEMPE, AZ. 85281
- %INCLUDE COMMON.BAS
- 41 DIM C(9),T(9),T1(9),T2(9)
- 42 A$=" "
- 51 GOSUB 9005
- PRINT
- 52 PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
- PRINT
- PRINT TAB(20);"** ACCOUNTING MENU OPTION #6 **"
- PRINT TAB(22);"PRINTS FINANCIAL STATEMENTS" : PRINT
- PRINT TAB(9);"Press RETURN R FIVE SIX " + \
- "SEVEN EIGHT NINE TEN ELEVENTWELVE"
- M3$="JANUARY FEBRUARY MARCH APRIL MAY JUNE " + \
- "JULY AUGUST SEPTEMBEROCTOBER NOVEMBER DECEMBER "
- 89 IF MULT.FIN.STATE.FLAG THEN 115
- 90 GOSUB 9005 : PRINT
- 91 PRINT"ENTER THE CLIENT NUMBER FROM THE CONTROL SHEET >";:FLD.LEN%=-7 : GOSUB 9998 : PRINT : CS.CLIENT=VAL(REPLY$)
- 115 REM ************************** READING CLNRNM FIL
- GOSUB 5000
- 118 IF MULT.FIN.STATE.FLAG THEN 170
- 120 IF CS.CLIENT<>"M" THEN GOTO 156 ELSE GOTO 151
- 150 GOSUB 7000 : GOTO 144
- 151 PRINT"ENTER THE NUMBER OF COMBINED FINANCIAL STATEMENTS YOU WANT PRINTED >";:FLD.LEN%=-3 : GOSUB 9998 : PRINT : A9=VAL(REPLY$)
- 153 REM *************************** WRITING THE # OF COMBINED FINANCIAL STATEMENTS TO PRINT
- GOSUB 5000
- A9.III = A9
- GOSUB 5010
- 155 CHAIN PGM$(1)+":" + "COMBFS"
- 156 PRINT"ENTER THE NUMBER OF FINANCIAL STATEMENT REPORTS YOU WANT PRINTED >";: FLD.LEN%=-3 : GOSUB 9998 : PRINT : A9=VAL(FILE
- IF END #COANS.FIL THEN 3200
- READ #COANS.FIL,R;\
- ACCT.NO,\
- CUR.PER.BAL,\
- YTD.BAL,\
- ACCT.DESC$
- 210 IF ACCT.NO=-1 THEN 3200
- 235 R=R+1
- 270 REM *************************** READING HEADER FILE
- REM IF END #FSHEADS.FIL THEN 3300
- 280 READ #FSHEADS.FIL,R1;\
- HEADER.NO,\
- HEAD.DESC$,\
- HEAD.CTRL.CHAR$
- IF HEADER.NO = -1 THEN 3300
- 285 R1=R1+1
- 290 REM ************************ CHECRINT LINE FOR PERCENTAGES (%)
- REM
- REM 091082 - PUT IN <IF P < 1 THEN 1180> AT 1150 TO GET IT TO SKIP LINES
- REM
- REM 090982 - MOVED OPEN STATEMENTS ABOVE LINE NUMBER 58 TO AVOID DOUBLE OPENING
- REM (ERROR DF) IF PRINTING MORE THAN ONE STATEMENT - 58 IS LOOP RETURN
- REM
- REM 090982 - ADDED ELSE GOTO 1410 ABOVE 1400 AND 1410 IN FRONT OF CHAIN "AMENU"
- REM TO PREVENT FILES FROM BEING CLOSED TWICE
- REM
- REM ***FINANCIAL STATEMENTS*** (FINSTATE) (10D)(VERSION 4.0)
- REM ***COPYRIGHT 1982Key to Continue or 'M' to Return to Menu ";
- FLD.LEN%=1 : GOSUB 9998 : PRINT : M$=UCASE$(LEFT$(REPLY$,1))
- IF M$="M" THEN 1410
- MULT.FIN.STATE.FLAG=0
- 88 REM *************************** OPENING FILES
- OPEN FIL$(2) +":" + CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL=1
- OPEN FIL$(7) +":" + CLIENT$ + "FSH.FIL" RECL 94 AS 4 : FSHEADS.FIL=4
- OPEN FIL$(4) +":" + CLIENT$ + "COA.FIL" RECL 65 AS 2 : COANS.FIL=2
- 58 IF A9 THEN GOSUB 6000
- 85 R1=1 : R=1
- M2$="ONE TWO THREE FOU=CLIENT.NO THEN 142
- 130 PRINT "THE ACTIVE CLIENT NUMBER IS #";CLIENT.NO
- 135 PRINT " PLEASE ENTER THE CORRECT NUMBER!"
- PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 : GOSUB 9998
- 140 GOTO 90
- 142 GOSUB 9005 : PRINT : PRINT
- 143 IF MULT.FIN.STATE.FLAG THEN 157
- 144 PRINT "WOULD YOU LIKE TO PRINT COMBINED FINANCIAL STATEMENTS ONLY? ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : A7$=UCASE$(LEFT$(REPLY$,1))
- 145 IF A7$="N" THEN 156
- 146 IF A7$="Y" THEN GOSUB 8000 ELSE GOTO 150
- 147 IF M$REPLY$)
- 157 PRINT "SET THE PRINTER AND PAPER"
- 159 PRINT " PRESS RETURN TO CONTINUE ";:FLD.LEN%=1 : GOSUB 9998 : PRINT
- 160 GOSUB 9005
- 165 IF A9 > 1 THEN GOTO 167 ELSE GOTO 168
- 167 PRINT : PRINT : PRINT " NOW PRINTING THE FINANCIAL STATEMENTS" : GOTO 170
- 168 PRINT : PRINT : PRINT " NOW PRINTING THE FINANCIAL STATEMENT"
- 170 LPRINTER
-
- 200 REM *************************** READING ACCOUNTS KING IF HEADER CAN PRINT
- IF MID$(HEAD.CTRL.CHAR$,6,1)="N" THEN 270
- IF MID$(HEAD.CTRL.CHAR$,6,1) = "U" THEN 270
- 300 IF HEADER.NO<=ACCT.NO THEN 350
- 310 GOSUB 800
- 330 REM READING ACCOUNTS
- IF END #COANS.FIL THEN 3200
- READ #COANS.FIL,R;\
- ACCT.NO,\
- CUR.PER.BAL,\
- YTD.BAL,\
- ACCT.DESC$
- IF ACCT.NO = -1 THEN 3200
- 340 R=R+1 : GOTO 300
- 350 GOSUB 360 : GOTO 270
- 360 REM *************************** CHECKING HEADER CONTROL CHARACTERS
- IF F$="S" THEN G4$="S" ELSE G4$=" "
- IF I$<>"C" THEN 392
- REM *************************** CHECK FOR CURRENT % AND BALANCES NOT TO PRINT
- IF MID$(HEAD.CTRL.CHAR$,6,1)="S" THEN F$="S"
- REM *************************** CHECK TO RESUME PRINTING CURRENT % AND BALANCES
- IF MID$(HEAD.CTRL.CHAR$,6,1)="C" THEN F$="C"
- 392 REM *************************** CHECK FOR INCOME STATEMENT FORMAT
- IF MID$(HEAD.CTRL.CHAR$,3,1)="C" THEN I$="C"
- IF G$="A" THEN G3$=******** CHECK TO END % CALCULATIONS
- IF MID$(HEAD.CTRL.CHAR$,3,1)="=" THEN J$=" "
- 396 REM *************************** CHECK FOR ACCOUNTS W/ZERO BALANCES NOT TO PRINT
- IF MID$(HEAD.CTRL.CHAR$,3,1)="Z" THEN Z$="Z"
- REM *************************** CHECK TO RESUME PRINTING ACCOUNTS W/ZERO BALANCES
- IF MID$(HEAD.CTRL.CHAR$,3,1)="R" THEN Z$=" "
- 397 REM *************************** CHECK IF ACCOUNTS ARE DEBITS
- IF MID$(HEAD.CTRL.CHAR$,4,1)="+" THEN S=1
- REM * IF MID$(HEAD.CTRL.CHAR$,6,1)="M" THEN M$="M"
- IF G1$="H" THEN G2$="H"
- 400 IF MID$(HEAD.CTRL.CHAR$,1,1)="0" THEN 440
- 410 IF I$<>"C" THEN 440
- 420 IF MID$(HEAD.CTRL.CHAR$,3,1)<>"%" THEN 430
- 422 J=C(VAL(MID$(HEAD.CTRL.CHAR$,1,1)))/100
- 425 J1=T(VAL(MID$(HEAD.CTRL.CHAR$,1,1)))/100
- 430 K$=HEAD.DESC$ : HEAD.DESC$=" " : HEAD.DESC$=K$
- 440 IF MID$(HEAD.CTRL.CHAR$,5,1)<>"$" THEN 455
- 450 A$="$" + RIGHT$(A$,LEN(A$)-1)
- A$=LEFT$(A$,3) + "$" + RIGHT$(A$,LEN(A$)-4)
- 455 REM *************** L$="" : GOTO 590
- 580 L1$=HEAD.DESC$ : Q1=LEN(MID$(L1$,1,X-1))
- IF LEN(L1$)-(Q1+8)<1 THEN L$="" ELSE L$=MID$(L1$,Q1+9,LEN(L1$)-(Q1+8))
- HEAD.DESC$=MID$(HEAD.DESC$,1,X-1)
- 590 M1=VAL(MID$(GL.END.DATE$,1,2))
- REM ****
- M4$=MID$(M3$,M1*9-8,9)
- FOR Y=9 TO 4.0 STEP -1.0
- IF MID$(M4$,Y,1)=" " THEN M4$=LEFT$(M4$,Y-1)
- NEXT Y
- HEAD.DESC$=HEAD.DESC$+M4$+" "+MID$(GL.END.DATE$,3,2)+", 19"+MID$(GL.END.DATE$,5,2)+L$
- 615 GOTO 621
- 620 NEXT X
- LEN(HEAD.DESC$);"X=";X;"W=";W
- 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))
- 628 NEXT W : GOTO 630
- 629 NEXT X
- 630 IF LEN(HEAD.DESC$) < 2 THEN 634.2
- IF MID$(HEAD.DESC$,1,1)<>" " THEN 634
- HEAD.DESC$=RIGHT$(HEAD.DESC$,LEN(HEAD.DESC$)-1)
- GOTO 630
- REM *********************************************************************
- REM EAT SPACES OFF OF HEADER DESCRIPTION'S BUTT FOR CENTERING
- 634 IF MID$(HEAD.DESC$,LE"A" ELSE G3$=" "
- 393 REM *************************** CHECK FOR YEAR-TO-DATE ONLY FORMAT
- IF MID$(HEAD.CTRL.CHAR$,3,1)="S" THEN I$=" "
- REM *************************** CHECK TO PRINT TOTAL IN LEFT-MOST COL. IN YEAR-TO-DATE FORMAT
- IF MID$(HEAD.CTRL.CHAR$,3,1)="A"THEN G$="A" ELSE G$=" "
- 394 REM *************************** CHECK TO BEGIN % CALCULATIONS
- IF MID$(HEAD.CTRL.CHAR$,3,1)="%" THEN J$="%"
- IF G1$<>"H" THEN G2$=" " ELSE G2$="H"
- 395 REM ********************************************* CHECK IF ACCOUNT BALANCES ARE TO PRINT IN RIGHT-MOST COL.
- IF MID$(HEAD.CTRL.CHAR$,6,1)="H" THEN G1$="H"
- 398 REM *************************** CHECK IF ACCOUNTS ARE CREDITS
- IF MID$(HEAD.CTRL.CHAR$,4,1)="-" THEN S=-1
- REM *************************** CHECK TO RESUME PRINTING ACCOUNTS IN LEFT-MOST COL.
- IF MID$(HEAD.CTRL.CHAR$,6,1)="A" THEN G1$="A"
- 399 REM *************************** CHECK TO PRINT COMBINED BALANCE SHEET AND INCOME STATEMENT
- ************ CHECK FOR THE PROFIT YEAR-TO-DATE
- IF MID$(HEAD.CTRL.CHAR$,3,1)="P" THEN 700
- 460 REM *************************** BEG. OF GROUP OF ACCTS. WHICH % ARE TO BE CALCULATED AND PRINTED
- 465 IF MID$(HEAD.CTRL.CHAR$,3,1)="B" THEN GOSUB 3000
- 570 IF MID$(HEAD.CTRL.CHAR$,3,1)<>"D" THEN 660
- 575 IF VAL(GL.END.DATE$)=0 THEN GL.END.DATE$ = "010183"
- FOR X=1 TO LEN(HEAD.DESC$)-7
- IF MID$(HEAD.DESC$,X,8)<>"XX/XX/XX" THEN 620
- IF X <> 1 THEN 580
- HEAD.DESC$=" "
- 621 FOR X=1 TO LEN(HEAD.DESC$)-5
- 622 IF MID$(HEAD.DESC$,X,6)<>"XXXXXX" THEN 629
- 623 HEAD.DESC$=LEFT$(HEAD.DESC$,X-1) + " " + RIGHT$(HEAD.DESC$,LEN(HEAD.DESC$)-(X+5))
- 624 M1=VAL(MID$(GL.END.DATE$,1,2))
- 625 IF FISCAL.END.MO>=M1 THEN M2=12-FISCAL.END.MO+M1
- 626 IF FISCAL.END.MO<M1 THEN M2=M1-FISCAL.END.MO
- HEAD.DESC$=LEFT$(HEAD.DESC$,X-1)+MID$(M2$,M2*6-5,6)+ RIGHT$(HEAD.DESC$,LEN(HEAD.DESC$)-(X+5))
- 627 FOR W=5 TO 2.0 STEP -1.0
- REM PRINT "LEN(HEAD.DESC$) =";N(HEAD.DESC$),1) <> " " THEN 634.2
- HEAD.DESC$ = LEFT$(HEAD.DESC$,LEN(HEAD.DESC$)-1)
- GOTO 634
- REM *********************************************************************
- 634.2 XE.X9 = LEN(HEAD.DESC$)
- FOR X=0 TO (70-XE.X9)/2
- HEAD.DESC$=" "+HEAD.DESC$
- NEXT X
- 639 GOSUB 1490 : PRINT TAB(8);HEAD.DESC$ : T1.XE=66
- GOTO 680
- 660 GOSUB 1490 : PRINT TAB(8);HEAD.DESC$; : T1.XE=66
- 670 GOSUB 1190
- 680 GOSUB 1120
- 690 GOTO 790
- 700 PRINT TAB(8);HEAD.DESC$; : T1.XE=50
- U1=I : GOSUB 4000
- IF G1$="H" THEN U=U+16
- 710 IF I>0 THEN 740
- 720 PRINT TAB(50+U);
- PRINT USING FORM.DFLT$;ABS(I/100)
- IF G1$="H" THEN U=U-16
- 730 GOTO 750
- 740 PRINT TAB(49+U);
- PRINT "(";
- PRINT USING FORM.DFLT$;ABS(I/100);
- PRINT ")"
- IF G1$="H" THEN U=U-16
- 750 FOR X=0 TO 9
- 760 T(X)=T(X)+I
- 770 C(X)=0
- 780 NEXT X
- 785 I=0
- 790 RETURN
- 800 IF END #COANS.FIL THEN 880
- 810 READ #COANS.FIL,R;\
- ACCT.NO.HOLD,\
- CUR.PER.BAL.HOLD,\
- YTD.BAL.HOLD,\30 IF Z$<>"Z" THEN 970
- 935 IF I$<>"C" THEN 950
- 940 IF CUR.PER.BAL<>0 THEN 970
- 950 IF YTD.BAL<>0 THEN 970
- 960 GOTO 1110
- 970 PRINT TAB(10);ACCT.DESC$; : T1.XE=50
- 980 IF I$<>"C" THEN 1080
- 985 GOSUB 3080
- IF F$="S" THEN 1020
- 990 IF CUR.PER.BAL*S<0 THEN A$=LEFT$(A$,1) + "()" + RIGHT$(A$,LEN(A$)-3)
- 993 U1=CUR.PER.BAL : GOSUB 4000
- 1000 PRINT TAB(30+U);MID$(A$,1,2);
- PRINT USING FORM.DFLT$;(ABS(CUR.PER.BAL/100));
- PRINT MID$(A$,3,1);
- 1005 IF ABS(CUR.PER.BAL/J)>999.99 THEN 1020
- 1010 IF J$<0 THEN A$=LEFT$(A$,1) + "()" + RIGHT$(A$,LEN(A$)-3)
- 1085 U1=YTD.BAL : GOSUB 4000
- 1086 IF G1$<>"H" THEN 1090
- 1087 PRINT TAB(64+U);
- PRINT MID$(A$,1,2);
- PRINT USING FORM.DFLT$;ABS(YTD.BAL/100);
- PRINT MID$(A$,3,1) : GOTO 1100
- 1090 PRINT TAB(48+U);
- PRINT MID$(A$,1,2);
- PRINT USING FORM.DFLT$;ABS(YTD.BAL/100);
- PRINT MID$(A$,3,1)
- 1100 A$=" "
- 1110 RETURN
- 1120 IF MID$(HEAD.CTRL.CHAR$,2,1)<>"P" THEN 1140
- 1125 PRINT CHR$(12);
- 1130 GOTO 1180
- 1140 P=VAL(00);
- PRINT MID$(A$,3,1);
- 1235 IF ABS(C(Q)/J)>999.99 THEN 1250
- 1240 IF J$="%" THEN GOTO 1241 ELSE GOTO 1250
- 1241 PRINT TAB(45+U);
- PRINT USING "###.##";ABS(C(Q)/J);
- PRINT "%";
- 1250 IF T(Q)*S<0 THEN A$=LEFT$(A$,4) + "()" + RIGHT$(A$,LEN(A$)-6)
- 1255 U1=T(Q) : GOSUB 4000
- 1260 PRINT TAB(54+U);MID$(A$,4,2);
- PRINT USING FORM.DFLT$;ABS(T(Q)/100);
- PRINT MID$(A$,6,1);
- 1265 IF ABS(T(Q)/J1)>999.99 THEN 1280
- 1270 IF J$="%" THEN GOTO 1275 ELSE GOTO 1280
- 1275 PRINT USING FORM.DFLT$;ABS(T(Q)/100);
- PRINT MID$(A$,6,1)
- 1298 GOTO 1302
- 1299 GOTO 1310
- 1300 PRINT TAB(64+U);MID$(A$,4,2);
- PRINT USING FORM.DFLT$;ABS(T(Q)/100);
- PRINT MID$(A$,6,1)
- 1302 IF G3$=" " THEN Z8=66 ELSE Z8=50
- 1303 IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN Z8=50
- IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN Z8=50
- 1304 IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN 1306
- IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1306
- 1305 IF MID$(HEAD.CTRL.CHAR$,7,1)<>"D" THEN 1310
- 1306 PRINT TAB(
- ACCT.DESC.HOLD$
- IF ACCT.NO.HOLD = -1 THEN 880
- R=R+1
- 820 IF INT(ACCT.NO)<>INT(ACCT.NO.HOLD) THEN 870
- 830 CUR.PER.BAL=CUR.PER.BAL+CUR.PER.BAL.HOLD : YTD.BAL=YTD.BAL+YTD.BAL.HOLD
- 840 GOTO 810
- 870 R=R-2
- READ #COANS.FIL,R;\
- ACCT.NO.HOLD,\
- CUR.PER.BAL.HOLD,\
- YTD.BAL.HOLD,\
- ACCT.DESC.HOLD$ : R=R+1
- 880 I=I-YTD.BAL : I2=I2+YTD.BAL
- 890 FOR X=0 TO 9
- 900 T(X)=T(X)+YTD.BAL
- 910 C(X)=C(X)+CUR.PER.BAL
- 920 NEXT X
- 9="%" THEN GOTO 1012 ELSE GOTO 1020
- 1012 PRINT USING "###.##";ABS(CUR.PER.BAL/J);
- PRINT "%";
- 1020 IF YTD.BAL*S<0 THEN A$=LEFT$(A$,4) + "()" + RIGHT$(A$,LEN(A$)-6)
- 1025 U1=YTD.BAL : GOSUB 4000
- 1030 PRINT TAB(54+U);MID$(A$,4,2);
- PRINT USING FORM.DFLT$;(ABS(YTD.BAL/100));
- PRINT MID$(A$,6,1);
- 1035 IF ABS(YTD.BAL/J1)>999.99 THEN 1045
- 1040 IF J$="%" THEN GOTO 1041 ELSE GOTO 1045
- 1041 PRINT USING "###.##";ABS(YTD.BAL/J1);
- PRINT "%";
- 1045 PRINT : GOTO 1100
- 1080 IF YTD.BAL*SMID$(HEAD.CTRL.CHAR$,2,1))
- REM *****************************************************************
- 1150 IF P < 1 THEN 1180
- FOR X=1 TO P
- 1160 PRINT
- 1170 NEXT X
- 1180 RETURN
- 1190 Q=VAL(MID$(HEAD.CTRL.CHAR$,1,1))
- 1200 IF Q<>0 THEN 1210
- 1201 PRINT : GOTO 1370
- 1210 IF I$<>"C" THEN 1290
- 1215 GOSUB 3080
- IF F$="S" THEN 1250
- 1220 IF C(Q)*S<0 THEN A$=LEFT$(A$,1) + "()" + RIGHT$(A$,LEN(A$)-3)
- 1225 U1=C(Q) : GOSUB 4000
- 1230 PRINT TAB(30+U);MID$(A$,1,2);
- PRINT USING FORM.DFLT$;ABS(C(Q)/1TAB(69+U);
- PRINT USING "###.##";ABS(T(Q)/J1);
- PRINT "%";
- 1280 PRINT
- IF MID$(HEAD.CTRL.CHAR$,7,1)="D" THEN GOSUB 1600
- IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN GOSUB 1600
- 1285 IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN GOSUB 1600
- GOTO 1310
- REM ******** N.S. ON THEN SAME LINE AS AN IF GOTO BF *********
- 1290 IF T(Q)*S<0 THEN A$=LEFT$(A$,4) + "()" + RIGHT$(A$,LEN(A$)-6)
- 1295 U1=T(Q) : GOSUB 4000
- 1296 IF G$<>"A" THEN 1300
- 1297 PRINT TAB(48+U);MID$(A$,4,2);
- PRINTZ8);"==============";
- 1307 IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN PRINT TAB(66);"--------------"; : PRINT
- 1310 A$=" "
- 1320 FOR X=0 TO Q
- 1330 T(X)=0
- 1340 C(X)=0
- 1350 NEXT X
- 1360 IF Q<>9 THEN 1370
- 1365 J$=" " : I=0
- 1370 RETURN
- 1379 REM *************************** CHECKING FOR MULTIPLE STATEMENTS OR COMBINED FINANCIAL STATEMENTS
- 1380 PRINT CHR$(12);
- 1381 IF I2=0 THEN 1383
- 1382 PRINT "FINANCIAL STATEMENT IS OUT OF BALANCE BY ";I2/100;CHR$(12);
- 1383 IF MULT.FIN.STATE.FLAG REM 101485 - RML - CORRECTED LINES 700, 720, 740, 1080, AND 1490 TO CORRECT
- REM FOR MISS-ALIGNED DECIMALS WHEN NET PROFIT IS LESS THAN 0
- REM
- REM 112184 - SRS - ADDED ROUTINE TO LINES 465,580 WHICH SAVES H$ (CURRENT
- REM HEADER LINE) IN L1$, TESTS FOR CHARACTERS PRESENT AFTER
- REM XX/XX/XX IN HEADER LINE AND IF ANY, STORES THEM IN L$ THEN
- REM ADDS L$ TO END OF PRINT LINE
- REM
- REM 112184 - SRS - CORRCTED ALIGNMENT OF DECIMALS IN BOTH COLUMNS IN AT 634.2 AND LINE AFTER TO PREVENT VALUE FROM
- REM CHANGING AS THE STRING GETS LONGER - TO FIX CENTERING
- REM
- REM 051683 - (RCB) CHANGED M TO FISCAL.END.MO IN LINES BETWEEN 621 AND 629
- REM TO CORRECT WRONG NUMBER OF MONTHS PROBLEM - ALSO CHANGED
- REM A LEFT$(A$,2) TO A LEFT$(A$,1) IN LINE 5 LINES AFTER 970
- REM TO PREVENT THE NEGATIVE BRACKET FROM GOING AROUND THE
- REM PERCENT AND MAKE IT GO AROUND THE DOLLAR FIGURE IF IT
- REM IS NEGATIVE
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% =COMMAS TO PRINT USINGS IN 4011
- REM ***
- REM ***10/22/82 DTK - INCORRECT MONTH NAME PRINTING (OFF BY ONE)
- REM ***
- REM ***10/22/82 DTK - FIXED INCORRECT ACCT ORDER ON INCOME STATEMENT SEE 7210
- REM ***
- REM *** 9/10/82 DTK FIXED DEPARTMENTAL REPORTS BY CHANGING H TO HEADER.NO
- REM *** AT 6230 - ALSO FIXED ERROR DF ON MULTIPLE STMTS
- REM ***
- REM ***COMBINED FINANCIAL STATEMENTS (COMBFS) (10D)(VERSION 4.0)
- REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC.
- REM *** NE JULY AUGUST SEPTEMBEROCTOBER NOVEMBER DECEMBER "
- OPEN FIL$(2) + ":" + CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL=1
- OPEN FIL$(7) + ":" + CLIENT$ + "FSH.FIL" RECL 94 AS 4 : FSHEADS.FIL=4
- OPEN FIL$(4) + ":" + CLIENT$ + "COA.FIL" RECL 65 AS 2 : COANS.FIL=2
-
- CREATE FIL$(7) + ":" + CLIENT$ + "SRT.TMP" RECL 94 AS 5 : SORT.TMP=5
-
- 85 GOSUB 9005
- PRINT "NOW COMPILING AND SORTING DATA FOR COMBINED FINANCIAL STATEMENTS"
- PRINT "ESTIMATED TIME IS 5-10 MINUTES . . ."
- GO
- 125 IF X=-1 THEN 2195
- GOSUB 7000
- IF X=-1 THEN 2195
- LPRINTER
- PRINT : PRINT
- R1=0 : R=0 : W=0
- GOSUB 5900
- 270 IF END #SORT.TMP THEN 3300
- GOSUB 5100
- R1=R1+1
- IF MID$(HEAD.CTRL.CHAR$,6,1) = "U" THEN GOTO 270
- 300 IF HEADER.NO<=ACCT.NO THEN GOTO 360
- GOSUB 800
- IF R>A5 THEN 3200
- GOSUB 5900
- GOTO 300
- 360 GOSUB 370
- GOTO 270
- 370 IF F$="S" THEN G4$="S" ELSE G4$=" "
- IF I$<>"C" THEN 392
- IF MID$(HEAD.CTRL.CHAR$,6,1)="S" THEN F$="S"
- IF MID$(HELINES
- REM 639,660,740,1300,1302,1306,1490,1642
- REM
- REM 110383 - (RCB) ADDED LINES AFTER 1399 TO CHECK FOR AMENU BEFORE PROMPTING
- REM TO INSERT THE PROGRAM DISK IN TO THE DRIVE
- REM
- REM 070583 - DCF CHANGED VARIABLE T1 TO T1.XE
- REM CHANGED VARIABLE A9 TO A9.X9
- REM CHANGED VARIABLE C TO C.XE FOR CB80 COMPILE
- REM
- REM 062783 - (RCB) CHANGED 84 TO 70 IN LINE AFTER 634 TO MOVE CENTERED
- REM HEADINGS OVER 8 SPACES
- REM
- REM 062483 - (RCB) ADDED XE.X9 TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM 032483 - (RCB) SET DIM USING DIMFIL = HOLE(4)/2 - THE PROGRAM USES 1
- REM STRING FOR EVERY 3 NUMBERS BUT STRING ARE 3 TIMES AS BIG
- REM
- REM 031783 - (RCB) SET DIM USING HOLE(4)
- REM
- REM ***02/10/83 DCF - CHANGED PRINT CLR$ TO GOSUB 9005
- REM
- REM ***11/11/82 DTK - IDIOTS LIKE TO TYPE IN DATE WITH NO PRECEEDING SPACES
- REM ***
- REM ***10/22/82 DTK - FIXED % ON INCOME STMT - READ FROM SORT.TMP!
- REM ***
- REM ***10/22/82 DTK - ADDED 648 SOUTH RIVER DR. 602-968-7101
- REM *** TEMPE, AZ. 85281
- %INCLUDE COMMON.BAS
- FILDIM = (HOLE(3)-8)
- DIM C(9),T(9),A9(FILDIM*3),T1(9),T2(9),ACCT.ARRAY$(FILDIM)
- BLANK$=" "
- L=260 : A8=0 : L1=FILDIM : P4=1
- A$ = " " : REM SET TO 4 SPACES
- IF A8<>0 THEN GOSUB 8000
- M2$="ONE TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE TEN ELEVENTWELVE"
- M3$="JANUARY FEBRUARY MARCH APRIL MAY JUSUB 5000 : REM READ CLNRMN.FIL
- C.XE = CLIENT.NO
- C$ = CLIENT.NAME$
- C1$ = GL.END.DATE$
- C2$ = PAY.END.DATE$
- A9.X9 = A9.III
- R1=0 : A5=0
- IF END #FSHEADS.FIL THEN 122
- READ #FSHEADS.FIL,R1+1;\
- HEADER.NO,\
- HEAD.DESC$,\
- HEAD.CTRL.CHAR$
- GOSUB 6080
- GOTO 125
-
- 122 PRINT CHR$(7);"THERE ARE NO HEADERS FOR THIS CLIENT"
- PRINT " YOU CANNOT PRINT COMBINED FINANCIAL STATEMENTS"
- X=-1 AD.CTRL.CHAR$,6,1)="C" THEN F$="C"
- 392 IF MID$(HEAD.CTRL.CHAR$,3,1)="C" THEN I$="C"
- IF G$="A" THEN G3$= "A" ELSE G3$=" "
- IF MID$(HEAD.CTRL.CHAR$,3,1)="S" THEN I$=" "
- IF MID$(HEAD.CTRL.CHAR$,3,1)="A" THEN G$="A" ELSE G$=" "
- IF MID$(HEAD.CTRL.CHAR$,3,1)="%" THEN J$="%"
- IF G1$<>"H" THEN G2$=" " ELSE G2$= "H"
- IF MID$(HEAD.CTRL.CHAR$,3,1)="=" THEN J$=" "
- IF MID$(HEAD.CTRL.CHAR$,3,1)="Z" THEN Z$="Z"
- IF MID$(HEAD.CTRL.CHAR$,3,1)="R" THEN Z$=" "
- IF MID$(HEAD.CTRL.CHAR$,4,1)="+" THEN S=1
- IF MID$(HEAD.CTRL.CHAR$,6,1)="H" THEN G1$="H"
- IF MID$(HEAD.CTRL.CHAR$,4,1)="-" THEN S=-1
- IF MID$(HEAD.CTRL.CHAR$,6,1)="A" THEN G1$="A"
- IF G1$="H" THEN G2$="H"
- IF MID$(HEAD.CTRL.CHAR$,1,1)="0" THEN 440
- IF I$<>"C" THEN 440
- IF MID$(HEAD.CTRL.CHAR$,3,1)<>"%" THEN 430
- J=C(VAL(MID$(HEAD.CTRL.CHAR$,1,1)))/100
- J1=T(VAL(MID$(HEAD.CTRL.CHAR$,1,1)))/100
- 430 K$=HEAD.DESC$ : HEAD.DESC$=" " : HEAD.DESC$=K$
- 440 IF MID$(HEAD.CTRL.CHAR$,5,1)<>"$" THEN 455
- 450 A$="$" +8)<1 THEN L$="" ELSE L$=MID$(L1$,Q1+9,LEN(L1$)-(Q1+8))
- HEAD.DESC$=MID$(HEAD.DESC$,1,X-1)
- 590 M1=VAL(MID$(C1$,1,2))
- M4$=MID$(M3$,M1*9-8,9)
- FOR Y=9 TO 4.0 STEP -1.0
- IF MID$(M4$,Y,1)= " " THEN M4$=LEFT$(M4$,Y-1)
- NEXT Y
- HEAD.DESC$=HEAD.DESC$+M4$+" "+MID$(C1$,3,2)+", 19"+MID$(C1$,5,2)+L$
- GOTO 621
- 620 NEXT X
- 621 FOR X=1 TO LEN(HEAD.DESC$)-5
- IF MID$(HEAD.DESC$,X,6)<>"XXXXXX" THEN 629
- HEAD.DESC$=LEFT$(HEAD.DE 630
- 629 NEXT X
- 630 IF MID$(HEAD.DESC$,1,1)<>" " THEN 634
- IF LEN(HEAD.DESC$) < 2 THEN GOTO 634
- HEAD.DESC$=RIGHT$(HEAD.DESC$,LEN(HEAD.DESC$)-1)
- GOTO 630
- 634 XE.X9 = LEN(HEAD.DESC$)
- FOR X=0 TO (70-XE.X9)/2
- HEAD.DESC$=" "+HEAD.DESC$
- NEXT X
- 639 GOSUB 1490
- PRINT TAB(8);HEAD.DESC$
- T1.XE=66
- GOTO 680
- 660 GOSUB 1490
- PRINT TAB(8);HEAD.DESC$;
- T1.XE=66
- GOSUB 1190
- 680 GOSUB 1120
- GOTO 790
- 700 PRINT TAB(8);HEAD.DESC$;
- T1.XE=50
- U1=I
- GOSUB 40 R=R+3
- GOTO 800
- 880 I=I-YTD.BAL : I2=I2+YTD.BAL
- FOR X=0 TO 9
- T(X)=T(X)+YTD.BAL
- C(X)=C(X)+CUR.PER.BAL
- NEXT X
- IF Z$<>"Z" THEN 970
- IF I$<>"C" THEN 950
- IF CUR.PER.BAL<>0 THEN 970
- 950 IF YTD.BAL<>0 THEN 970
- GOTO 1110
- 970 PRINT TAB(10);ACCT.DESC$;
- T1.XE=50
- IF I$<>"C" THEN 1080
- GOSUB 3080
- IF F$="S" THEN 1020
- IF CUR.PER.BAL*S<0 THEN A$=LEFT$(A$,1)+ "()"+RIGHT$(A$,LEN(A$)-3)
- U1=CUR.PER.BAL
- GOSUB 4000
- PRINT TAB(30+U);MID$(A$,1,29 THEN 1045
- IF J$="%" THEN GOTO 1021 ELSE GOTO 1045
- 1021 PRINT TAB(71);
- PRINT USING "###.##";ABS(YTD.BAL/J1);
- PRINT "%";
- 1045 PRINT : GOTO 1100
- 1080 IF YTD.BAL*S<0 THEN A$=LEFT$(A$,1)+"()"+RIGHT$(A$,LEN(A$)-3)
- U1=YTD.BAL
- GOSUB 4000
- IF G1$<>"H"THEN 1090
- PRINT TAB(64+U);MID$(A$,1,2);
- PRINT USING DEFAULT.FORM$;ABS(YTD.BAL/100);
- PRINT MID$(A$,3,1)
- GOTO 1100
- 1090 PRINT TAB(48+U);MID$(A$,1,2);
- PRINT USING DEFAULT.FORM$;ABS(YTD.BAL/100);
- + RIGHT$(A$,LEN(A$)-1)
- A$=LEFT$(A$,3) + "$" + RIGHT$(A$,LEN(A$)-4)
- 455 IF MID$(HEAD.CTRL.CHAR$,3,1)="P" THEN 700
- 465 IF MID$(HEAD.CTRL.CHAR$,3,1)="B" THEN GOSUB 3000
- IF MID$(HEAD.CTRL.CHAR$,3,1)<>"D" THEN 660
- IF VAL(C1$)=0 THEN 639
- FOR X=1 TO LEN(HEAD.DESC$)-7
- IF MID$(HEAD.DESC$,X,8)<>"XX/XX/XX" THEN 620
- IF X <> 1 THEN 580
- HEAD.DESC$=" "
- L$="" : GOTO 590
- 580 L1$=HEAD.DESC$
- Q1=LEN(MID$(L1$,1,X-1))
- IF LEN(L1$)-(Q1SC$,X-1) + " "+ \
- RIGHT$(HEAD.DESC$,LEN(HEAD.DESC$)-(X+5))
- M1=VAL(MID$(C1$,1,2))
- IF FISCAL.END.MO>=M1 THEN M2=12-FISCAL.END.MO+M1
- IF FISCAL.END.MO<M1 THEN M2=M1-FISCAL.END.MO
- HEAD.DESC$=LEFT$(HEAD.DESC$,X-1) + MID$(M2$,M2*6-5,6)+ \
- RIGHT$(HEAD.DESC$,LEN(HEAD.DESC$)-(X+5))
- FOR W=5 TO 2.0 STEP -1.0
- 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))
- NEXT W
- GOTO00
- IF G1$="H" THEN U=U+16
- 710 IF I>0 THEN 740
- 720 PRINT TAB(50+U);
- PRINT USING DEFAULT.FORM$;ABS(I/100)
- IF G1$="H" THEN U=U-16
- 730 GOTO 750
- 740 PRINT TAB(49+U);"(";
- PRINT USING DEFAULT.FORM$;ABS(I/100);
- PRINT ")"
- IF G1$="H" THEN U=U-16
- 750 FOR X=0 TO 9
- T(X)=T(X)+I
- C(X)=0
- NEXT X
- I=0
- 790 RETURN
- 800 IF R>A5 THEN 880
- 820 IF INT(ACCT.NO)<>INT(A9(R)) THEN 880
- CUR.PER.BAL=CUR.PER.BAL+A9(R+1)
- YTD.BAL=YTD.BAL+A9(R+2)
- );
- PRINT USING DEFAULT.FORM$;ABS(CUR.PER.BAL/100);
- PRINT MID$(A$,3,1);
- IF ABS(CUR.PER.BAL/J)>999.99 THEN 1020
- IF J$="%" THEN GOTO 1019 ELSE GOTO 1020
- 1019 PRINT TAB(47);
- PRINT USING "###.##";ABS(CUR.PER.BAL/J);
- PRINT "%";
- 1020 IF YTD.BAL*S<0 THEN A$=LEFT$(A$,4)+"()"+RIGHT$(A$,LEN(A$)-6)
- U1=YTD.BAL
- GOSUB 4000
- PRINT TAB(54+U);
- PRINT MID$(A$,4,2);
- PRINT USING DEFAULT.FORM$;ABS(YTD.BAL/100);
- PRINT MID$(A$,6,1);
- IF ABS(YTD.BAL/J1)>999.9 PRINT MID$(A$,3,1)
- 1100 A$=" "
- 1110 RETURN
- 1120 IF MID$(HEAD.CTRL.CHAR$,2,1)<>"P" THEN 1140
- PRINT CHR$(12);
- GOTO 1180
- 1140 P=VAL(MID$(HEAD.CTRL.CHAR$,2,1))
- IF P < 1 THEN GOTO 1180
- FOR X=1 TO P
- PRINT
- NEXT X
- 1180 RETURN
- 1190 Q=VAL(MID$(HEAD.CTRL.CHAR$,1,1))
- IF Q<>0 THEN 1210
- PRINT
- GOTO 1370
- 1210 IF I$<>"C" THEN 1290
- GOSUB 3080
- IF F$="S" THEN 1250
- IF C(Q)*S<0 THEN A$=LEFT$(A$,1)+ "()"+ RIGHT$(A$,LEN(A$)-3)
- U1=C(Q)
- GOSUB 4000
- 1230 PRINT TAB(30+U);MID$(A$,1,2);
- PRINT USING DEFAULT.FORM$;ABS(C(Q)/100);
- PRINT MID$(A$,3,1);
- IF ABS(C(Q)/J)>999.99 THEN 1250
- 1240 IF J$="%" THEN GOTO 1241 ELSE GOTO 1250
- 1241 PRINT TAB(47);
- PRINT USING "###.##";ABS(C(Q)/J);
- PRINT "%";
- 1250 IF T(Q)*S<0 THEN A$=LEFT$(A$,4)+"()"+RIGHT$(A$,LEN(A$)-6)
- U1=T(Q)
- GOSUB 4000
- PRINT TAB(54+U);MID$(A$,4,2);
- PRINT USING DEFAULT.FORM$;ABS(T(Q)/100);
- PRINT MID$(A$,6,1);
- IF ABS(T(Q)/J1)>999.99 THEN 1280
- ;ABS(T(Q)/100);
- PRINT MID$(A$,6,1)
- GOTO 1302
- 1300 PRINT TAB(64+U);MID$(A$,4,2);
- PRINT USING DEFAULT.FORM$;ABS(T(Q)/100);
- PRINT MID$(A$,6,1)
- 1302 IF G3$=" " THEN Z8=66 ELSE Z8= 50
- IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN Z8=50
- IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN Z8=50
- IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN 1306
- IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1306
- IF MID$(HEAD.CTRL.CHAR$,7,1)<>"D" THEN 1310
- 1306 PRINT TAB(Z8);"==============";
- IF MID$(HEAD.CTE
- GOTO 85
- 1398 IF A8 <> A9.X9 THEN CONSOLE : GOTO 85
- 1399 CONSOLE
- IF NUM.BITS% = 8 THEN EXT$ = ".OVL" ELSE EXT$ = ".OVR"
- IF SIZE(PGM$(1)+":AMENU"+EXT$) = 0 THEN \
- PRINT "INSERT THE PROGRAM DISK IN DRIVE ";PGM$(1) : \
- GOSUB 3100 : INITIALIZE
- GOTO 1420
- 1420 CONSOLE
- DELETE 5
- CHAIN PGM$(1) + ":" + "AMENU"
- 1490 IF I$="C" THEN 1507
- IF G2$="H" THEN T1.XE=66
- IF G3$="A" THEN T1.XE=50
- IF MID$(HEAD.CTRL.CHAR$,7,1)="D" THEN 1505
- IF MID$(HEAD.CTRL.CHAR$,7,1)=" THEN 1540
- PRINT TAB(56);"--------------";
- IF J$="%" THEN PRINT TAB(71);"-------";
- 1540 PRINT
- 1550 RETURN
- 1600 IF F$="S" THEN 1620
- PRINT TAB(32);"==============";
- IF J$="%" THEN PRINT TAB(47);"=======";
- IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN 1640
- IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1635
- 1620 PRINT TAB(56);"==============";
- IF J$="%" THEN PRINT TAB(71);"=======";
- GOTO 1640
- 1635 PRINT TAB(56);"--------------";
- IF J$="%" THEN PRINT TAB(71);"-------";
- 1640 GOTOEND #FSHEADS.FIL THEN 3075
- GOSUB 5510
- R1=R1+1
- IF MID$(HEAD.CTRL.CHAR.HOLD$,6,1)="U" THEN 3005
- 3020 IF ACCT.NO.HOLD<=HEADER.NO.HOLD THEN 3040
- IF MID$(HEAD.CTRL.CHAR.HOLD$,3,1)="%" THEN GOTO 3072 ELSE GOTO 3005
- 3040 FOR X = 1 TO 9
- T1(X) = T1(X) + CUR.PER.BAL.HOLD/100
- T2(X) = T2(X) + YTD.BAL.HOLD/100
- NEXT X
- IF R > A5 THEN GOTO 3075
- ACCT.NO.HOLD = A9(R) : CUR.PER.BAL.HOLD = A9(R+1) : YTD.BAL.HOLD = A9(R+2)
- R = R + 3
- GOTO 3020
- 3072 J = T1(VAIF J$="%" THEN GOTO 1270 ELSE GOTO 1280
- 1270 PRINT TAB(71);
- PRINT USING "###.##";ABS(T(Q)/J1);
- PRINT "%";
- 1280 PRINT
- IF MID$(HEAD.CTRL.CHAR$,7,1)="D" THEN GOSUB 1600
- IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN GOSUB 1600
- IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN GOSUB 1600
- GOTO 1310
- 1290 IF T(Q)*S<0 THEN A$=LEFT$(A$,4) + "()"+RIGHT$(A$,LEN(A$)-6)
- U1=T(Q)
- GOSUB 4000
- IF G$<>"A" THEN 1300
- PRINT TAB(48+U);MID$(A$,4,2);
- PRINT USING DEFAULT.FORM$RL.CHAR$,7,1)="T" THEN PRINT TAB(66);"--------------"; : PRINT
- 1310 A$=" "
- FOR X=0 TO Q
- T(X)=0
- C(X)=0
- NEXT X
- IF Q<>9 THEN 1370
- J$=" " : I=0
- 1370 RETURN
- 1380 PRINT CHR$(12);
- IF I2=0 THEN 1390
- PRINT "FINANCIAL STATEMENT IS OUT OF BALANCE BY ";I2/100;CHR$(12);
- 1390 IF A8 THEN 1394
- IF A9.X9 > 1 THEN GOTO 1392 ELSE GOTO 1399
- 1392 A8=A8+2
- GOSUB 8000
- CONSOLE
- GOTO 85
- 1394 IF A8 < A9.X9 THEN GOTO 1395 ELSE GOTO 1398
- 1395 A8=A8+1
- GOSUB 8000
- CONSOLE" THEN 1642
- IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1642
- IF MID$(HEAD.CTRL.CHAR$,7,1)<>"S" THEN 1550
- 1505 PRINT TAB(T1.XE);"--------------"
- GOTO 1550
- 1507 IF MID$(HEAD.CTRL.CHAR$,7,1)="S" THEN 1509
- IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1509
- IF MID$(HEAD.CTRL.CHAR$,7,1)="D" THEN 1509
- IF MID$(HEAD.CTRL.CHAR$,7,1)<>"E" THEN 1550
- 1509 IF G4$="S" THEN 1515
- PRINT TAB(32);"--------------";
- IF J$="%" THEN PRINT TAB(47);"-------";
- 1515 IF MID$(HEAD.CTRL.CHAR$,7,1)="T" 1650
- 1642 PRINT TAB(50);"--------------";
- IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1650
- PRINT TAB(66);"--------------";
- 1650 PRINT
- RETURN
- PRINT CHR$(7)
- 2195 CONSOLE
- PRINT "PRESS RETURN TO GO TO ACCOUNTING MENU ";:FLD.LEN%=1 : GOSUB 9998 : PRINT
- GOTO 1390
- 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
- FOR X = 1 TO 9
- T1(X) = C(X)
- T2(X) = T(X)
- NEXT X
- 3005 REM IF L(MID$(HEAD.CTRL.CHAR.HOLD$,1,1)))
- J1 = T2(VAL(MID$(HEAD.CTRL.CHAR.HOLD$,1,1)))
- 3075 R=R5 : R1=R6
- 3080 IF J=0 THEN J=9999999999
- IF J1=0 THEN J1=9999999999
- RETURN
- 3100 PRINT" THEN PRESS RETURN ";:FLD.LEN%=1 : GOSUB 9998 : PRINT
- RETURN
- 3200 GOSUB 370
- IF END #SORT.TMP THEN 1380
- GOSUB 5100
- IF HEADER.NO < 1 THEN GOTO 1380
- R1=R1+1
- GOTO 3200
- 3300 GOSUB 820
- IF R>A5 THEN 1380
- GOSUB 5900
- GOTO 3300
- PRINT "INSERT A CLIENT DATA DISK IN DRIVE 2"
- RETURN
- 4000 IF ABS(U1/100)<10000000 THEN U=2 ELSE U=0
- IF U=2 THEN GOTO 4011 ELSE GOTO 4012
- 4011 DEFAULT.FORM$ = "#,###,###.##"
- GOTO 4020
- 4012 DEFAULT.FORM$ = "###,###,###.##"
- 4020 RETURN
- 5100 READ #SORT.TMP,R1+1;\
- HEADER.NO,\
- HEAD.DESC$,\
- HEAD.CTRL.CHAR$
- RETURN
- 5200 PRINT #SORT.TMP,W+1;\
- HEADER.NO,\
- HEAD.DESC$,\
- HEAD.CTRL.CHAR$
- RETURN
- 5500 READ #FSHEADS.FIL,R1+1;\
- HEADER.NO,\
- HEAD.DESC5+1)=R1
- R1=R1+1
- REM IF END #FSHEADS.FIL THEN 6190
- 6110 GOSUB 5500
- IF HEADER.NO < 0 THEN GOTO 6190
- HEADER.NO=HEADER.NO-10000*(INT(INT(HEADER.NO)/10000))
- FOR X=0 TO A5 STEP 2
- IF HEADER.NO=A9(X) THEN 6175
- NEXT X
- IF A5>=L1*2-2 THEN 6190
- A5=A5+2
- A9(A5)=HEADER.NO : A9(A5+1)=R1
- 6175 R1=R1+1
- GOTO 6110
- 6190 F=0
- FOR X=0 TO A5-2 STEP 2
- IF A9(X)<=A9(X+2) THEN 6230
- H2=A9(X+1) : A9(X+1)=A9(X+3) : A9(X+3)=H2
- H1=A9(X) : A9(X)=A9(X+2) : A9(X+2)=H1
- F=1
- 6230 NOTO 7310
- 7070 R=R+1
- ACCT.NO=INT(ACCT.NO)-10000*(INT(INT(ACCT.NO)/10000))
- A9(A5)=ACCT.NO : A9(A5+1)=CUR.PER.BAL : A9(A5+2)=YTD.BAL
- ACCT.ARRAY$(A5/3) = LEFT$(ACCT.DESC$,20)
- 7100 IF END #COANS.FIL THEN 7210
- READ #COANS.FIL,R+1;\
- ACCT.NO,\
- CUR.PER.BAL,\
- YTD.BAL,\
- ACCT.DESC$
- IF ACCT.NO < 0 THEN GOTO 7210
- R=R+1
- ACCT.NO=INT(ACCT.NO)-10000*(INT(INT(ACCT.NO)/10000))
- FOR X=0 TO A5 STEP 3
- IF ACCT.NO<>A9(X) THEN 7170
- A9(X+1)=A9OR X=0 TO A5-3 STEP 3
- IF A9(X)<A9(X+3) THEN 7290
- ACCT.NO=A9(X+3) : CUR.PER.BAL=A9(X+4)
- YTD.BAL=A9(X+5) : ACCT.DESC$=ACCT.ARRAY$(X/3+1)
- A9(X+3)=A9(X) : A9(X+4)=A9(X+1) : A9(X+5)=A9(X+2)
- ACCT.ARRAY$(X/3+1) = ACCT.ARRAY$(X/3)
- A9(X)=ACCT.NO : A9(X+1)=CUR.PER.BAL : A9(X+2)=YTD.BAL
- ACCT.ARRAY$(X/3) = LEFT$(ACCT.DESC$ +BLANK$,20)
- F=1
- 7290 NEXT X
- IF F=1 THEN 7215
- 7310 RETURN
- 8000 G4$=" " : F$=" " : I$=" " : G3$=" " : G$=" " : J$=" "
- G2$=" " : Z$REM 102485 - RML - ADDED STATEMENTS ACCT.NUM = X AND X = ACCT.NUM TO LINES
- REM 670 AND 820 TO CORRECT FOR AMOUNTS BEING POSTED TO THE
- REM WRONG ACCOUNT.
- REM
- REM 113084 - SRS - DEMICAL ENTRY TRAP ADDED LINE 672 AND
- REM SUBROUTINE 900
- REM
- REM 072583 - DCF ADDED CHECK FOR NUM.BITS CHANGED .INT TO .OVL (8 BIT)
- REM OR .OVR (16 BIT)
- REM
- REM 071483 - DCF REMOVED LINE NUMBERS FROM REM STATEMENTS AT THE BEGINNING
- REM OF THE C$,\
- HEAD.CTRL.CHAR$
- RETURN
- 5510 READ #SORT.TMP,R1+1;\
- HEADER.NO.HOLD,\
- HEAD.DESC.HOLD$,\
- HEAD.CTRL.CHAR.HOLD$
- RETURN
- 5900 ACCT.NO=A9(R) : CUR.PER.BAL=A9(R+1) : YTD.BAL=A9(R+2)
- ACCT.DESC$=ACCT.ARRAY$(R/3)
- R=R+3
- RETURN
- REM BELOW IS WHAT 6080 WAS BEFORE IT WAS FIXED(?) - NOTICE THE ")"
- REM HEADER.NO=HEADER.NO-10000*(INT(INT(HEADER.NO))/10000)
- 6080 HEADER.NO=HEADER.NO-10000*(INT(INT(HEADER.NO)/10000))
- A9(A5)=HEADER.NO : A9(AEXT X
- IF F=1 THEN 6190
- W=0
- FOR X=0 TO A5 STEP 2
- R1=A9(X+1)
- GOSUB 5500
- HEADER.NO = A9(X)
- GOSUB 5200
- W=W+1
- NEXT X
- 6310 RETURN
- 7000 R=0 : A5=0
- IF END #COANS.FIL THEN 7030
- READ #COANS.FIL,R+1;\
- ACCT.NO,\
- CUR.PER.BAL,\
- YTD.BAL,\
- ACCT.DESC$
- GOTO 7070
- 7030 PRINT CHR$(7);"THERE ARE NO ACCOUNTS FOR THIS CLIENT"
- PRINT " YOU CANNOT PRINT COMBINED FINANCIAL STATEMENTS!"
- X=-1 : G(X+1)+CUR.PER.BAL : A9(X+2)=A9(X+2)+YTD.BAL
- GOTO 7100
- 7170 NEXT X
- IF A5>=L1*3-3 THEN \
- LPRINTER : \
- PRINT "INSUFFICIENT MEMORY TO PROCESS COMBINED STATEMENT" : \
- PRINT "STOPPED AT SEQUENCE ";A5;" CORE ACCOUNT ";ACCT.NO : \
- CONSOLE : \
- GOTO 7210
- A5=A5+3
- ACCT.DESC$=LEFT$(ACCT.DESC$,20)
- A9(A5)=ACCT.NO : A9(A5+1)=CUR.PER.BAL : A9(A5+2)=YTD.BAL
- ACCT.ARRAY$(A5/3) = LEFT$(ACCT.DESC$,20)
- GOTO 7100
- 7210 REM FIXES ACCTS OUT OF ORDER BUG - RETURN
- 7215 F=0
- F=" "
- S=0 : G1$=" " : M$=" " : J=0 : J1=0 : K$=" "
- M1=0 : M4$=" " : HEAD.DESC$=" " : CUR.PER.BAL=0
- YTD.BAL=0: CUR.PER.BAL.HOLD=0 : I=0 : I2=0 : U1=0
- Q=0 : T1.XE=0 : Z8=0
- RETURN
- %INCLUDE 5000
- %INCLUDE NFLANKS.BAS
- X
- IF F=1 THEN 7215
- 7310 RETURN
- 8000 G4$=" " : F$=" " : I$=" " : G3$=" " : G$=" " : J$=" "
- G2$=" " : Z$ODE FOR CB80 COMPILE.
- REM
- REM 062383 - (RCB) ADDED IF A4 = -1 THEN 9740 AFTER READ IN 9722 TO PREVENT
- REM ERRONIOUS NUMBERS FROM BEING ADDED INTO THE TOTAL FROM
- REM FILLER NUMBERS IN THE END OF FILE RECORDS
- REM (ACCOUNT NUMBER = -1)
- REM
- REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
- REM
- REM 061483 - (RCB) REMED OUT LINE 1110 TO PREVENT TWO FORM FEEDS ON EXIT
- REM USING OPTION -1 - BUG CODE 124-061383
- REM
- REM 060983 - (RCB) PUT +1 BACK IN 9800
- REM
- REM 060983 - (RCB) CHANGED X.FNM>11 TO X.FNM>12 IN LINE 9960 TO PREVENT
- REM THE POINTER FROM JUMPING OVER 12 AND REPLACED (11+1)
- REM WITH (12+1) SO POINTER WILL GO FROM 12 TO 0
- REM
- REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
- REM
- REM 041183 - (RCB) REMOVED +1 FROM LINE 9800
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM 021683 - (RCB) ADDED HOLE(4) TO DEMENSIONING
- REM
- REM 020483 - (DCF) CHANGED LINES 9630 AND 9960 SO THE PERIORCB) ADDED FEEL BEFORE CHAINING MENU.INT
- REM
- REM 101382 - (RCB) ADDED SIZE FEEL BEFOR OPENING OF CON FILE - CHANGED ACC.FIL
- REM FROM 10 TO 8
- REM
- REM 093082 - (RCB) CHANGED LINE9140 FROM LENGTH 7 TO 6 AND CHANGED LINE 9600
- REM FROM LEN 1 TO LEN LEN(D3$)-6
- REM
- REM 092982 - (RCB) MOVED 1840 FROM AFTER 1835 TO AFTER 1800 TO PREVENT ERROR DF
- REM WHEN LOOPING BACK TO PRINT HEADING ON SECOND PAGE
- REM
- REM 092982 - (RCB) ADDED A READ BEFOR THE WRITE IN 9720 TO SIMULATE NORTH STAR
- REM ABSO GOSUB 9005
- PRINT
- 51 PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
- PRINT
- PRINT TAB(21);"** AUXILIARY MENU OPTION #3 **"
- PRINT TAB(15);"ENTERS OR CHANGES PERIOD ACCOUNT BALANCES" : PRINT
- PRINT TAB(5);"Press RETURN Key to Continue or 'M' to Return to Auxiliary Menu";
- FLD.LEN% = 1 : GOSUB 9998
- M$ = UCASE$(LEFT$(REPLY$,1))
- IF M$="M" THEN 1635
- 85 B$=" "
- 100 PRINT : PRINT : PRINT "SET PRINTER AND PA98 : \
- INITIALIZE : \
- GOTO 115
- OPEN FIL$(10) + ":" + CLIENT$ + "CON.FIL" RECL 142 AS 10 : CON.FIL = 10
- 130 READ #CON.FIL;C,C$,O1,O,D3$
- CLOSE CON.FIL
- 150 IF B=C THEN 185
- 160 PRINT "THE CLIENT NUMBER OF THE DISK IN DRIVE ";FIL$(10);" IS #";C
- 165 PRINT " PLEASE ENTER THE CORRECT NUMBER!"
- 170 PRINT CHR$(7) : PRINT " PRESS RETURN TO CONTINUE ";
- FLD.LEN% = 1 : GOSUB 9998
- M$ = REPLY$
- GOTO 108
- 185 PRINT : PRINT "WORKING . . ."
- 190 OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 ENTER JOURNAL DATE (MMDDYY) > <";
- 305 Y=6 : GOSUB 8000 : PRINT">";
- FLD.LEN% = -6 : GOSUB 9998
- D1$ = REPLY$ : PRINT
- 306 D1$=D1$+B$ : D$=D1$ : GOSUB 4300 :
- IF D$="INVALI" THEN 304
- 307 GOSUB 1220
- 450 PRINT "IN PLACE OF THE ACCOUNT NUMBER OF A TRANSACTION ENTER:"
- 460 PRINT " -1 (MINUS ONE) TO END THIS PERIOD AND START A NEW PERIOD"
- 470 PRINT " -2 (MINUS TWO) TO END THIS JOURNAL AND RETURN TO THE AUXILIARY MENU"
- 480 PRINT "ENTER A ZERO '0' IN ANY FIELD TO VOID & RE-ENTER A TRANSACTIOND POINTER ONLY
- REM MOVES THROUGH PERIODS 0 - 11
- REM
- REM 102382 - (RCB) MOVED A3=0 FROM AFTER 1835 TO AFTER 1840 (BEFORE 1805)
- REM TO KEEP IT OF OF THE LOOP AND BEING RESET EVERY PAGE
- REM
- REM 101582 - (RCB) CHANGED LINE 890 FROM GOTO 450 TO GOTO 590 SO IT WILL NOT
- REM PRINT OUT THE -1 FOR ... -2 FOR ... STUFF EACH TIME
- REM
- REM 101582 - (RCB) CHANGED 9740 TO CLOSE ACC.FIL FROM GOSUB 5200
- REM
- REM 101582 - (RCB) FIXED COLON IN WRONG PLACE IN SIZE STATEMENTS
- REM
- REM 101482 - (ULTE BYTE WRITES
- REM
- REM 092282 - (RCB) REMOVED FNM REPLACED WITH A GOSUB LINES AFFECTED 9640,9800,
- REM AND 9960 THE FUNCTION ITS SELF
- REM
- REM ***RECEIVES NEW BALANCES TO BE PLACES IN PERIOD ACCOUNTS FOR
- REM STMNT. OF CHNGS (CJOURNAL)
- REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC.
- REM *** 648 SOUTH RIVER DR. 602-968-7101
- REM *** TEMPE, AZ. 85281
- %INCLUDE COMMON.BAS
- 44 M=HOLE(4)
- 45 S8=112
- 47 DIM N5(M),A(12)
- PER"
- 101 GOSUB 3100
- 102 LPRINTER : PRINT : CONSOLE
- PRINT REVLF$; : PRINT REVLF$; : PRINT B$;B$ : PRINT B$;B$
- 108 GOSUB 9005 : PRINT
- 110 PRINT "ENTER THE CLIENT NUMBER FROM THE CONTROL SHEET >";
- FLD.LEN% = -9 : GOSUB 9998 : PRINT
- B = VAL(REPLY$) : PRINT
- REM 101282 - (RCB) ROUTINE TO FEEL FOR THE CON.FIL
- REM
- 115 IF SIZE(FIL$(10) + ":" + CLIENT$ + "CON.FIL") = 0 THEN \
- PRINT "Insert Auxiliary Data Disk in Drive ";FIL$(10) : \
- PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 99AS 8 : ACC.FIL = 8
- IF END #ACC.FIL THEN 233
- 200 FOR X=0 TO M
- 210 REM IF TYP(0)=0 THEN 235
- 215 REM X1=X*112 : X2=(X+1)*112-6
- 220 REM READ #ACC.FIL,X+1;N5(X)
- READ #ACC.FIL,X+1;N5(X),Y$,B,A(0),A(1),A(2),A(3),A(4), \
- A(5),A(6),A(7),A(8),A(9),A(10),A(11),A(12)
- IF N5(X) = -1 THEN 235
- 230 NEXT X
- 233 PRINT #ACC.FIL,X+1;-1,"EOF CJOURNAL",B,A(0),A(1),A(2),A(3),A(4), \
- A(5),A(6),A(7),A(8),A(9),A(10),A(11),A(12)
- 235 N1=X
- 240 CLOSE ACC.FIL
- 290 GOSUB 9005 : A3 = 0
- 300 GOSUB 9000
- 304 PRINT ""
- 590 PRINT "ENTER ACCOUNT NUMBER > <";
- 591 Y=9 : GOSUB 8000 : PRINT ">";
- FLD.LEN% = -10 : GOSUB 9998
- A5 = VAL(REPLY$) : PRINT
- IF REPLY$ = DUPE.KEY$ THEN PRINT CHR$(7);REVLF$; : GOTO 590
- 593 IF A5=0 THEN 721
- 600 IF A5=-1 THEN 1060
- 610 IF A5=-2 THEN 1370
- 620 IF A5=-3 THEN 1060
- 622 IF INT(A5*100)-(A5*100)<>0 THEN 628
- 623 IF A5<0 THEN 628
- 624 IF A5>9999999.99 THEN GOTO 628 ELSE GOTO 630
- 628 PRINT CHR$(7);"INVALID ACCOUNT NUMBER - TRY AGAIN!"
- 629 GOTO 590
- 630 FOR X = 0 TO N1
- 650 IF A5 = N5(X) THEN 670
- 660 NEXT X
- PRINT CHR$(7);"THAT ACCOUNT DOES NOT EXIST - TRY AGAIN !"
- 665 PRINT " PRESS RETURN TO CONTINUE ";
- FLD.LEN% = 1 : GOSUB 9998
- X$ = REPLY$ : PRINT
- GOTO 590
- 670 ACCT.NUM = X
- PRINT "ENTER AMOUNT > <";
- 671 Y=10 : GOSUB 8000
- PRINT ">";
- FLD.LEN% = -12 : GOSUB 9998
- A1 = VAL(REPLY$) : PRINT
- PRINT
- IF A1=0 THEN 715
- 672 B1=0
- GOSUB 900
- IF B1=1 THEN 690
- IF A1>9999999999 THEN 675
- IF AIS VOID SINCE ENTRY WAS ZERO!"
- 722 GOTO 450
- 800 OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 8 : ACC.FIL = 8
- 820 X = ACCT.NUM
- READ #ACC.FIL,X+1;A4,T$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7), \
- A(8),A(9),A(10),A(11),A(12)
- REM HEY WALLY GET A LOAD OF THIS
- 825 IF A4 <> A5 THEN PRINT CHR$(7);"THE MEMORY OF THIS MACHINE IS SUSPECT!"
- REM YEA PRETTY DOPEY BEAV
- 830 A3 = A3 - A(J1) : A(J1) = A1
- 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),\
- A(8),A(9),A#####.##";TAB(8);X6;
- PRINT USING "#########.##";TAB(54);A3/100;
- PRINT "^"
- REM 1110 PRINT CHR$(12);
- 1115 IF A5 = -3 THEN 1630
- 1120 GOSUB 1800
- CONSOLE
- GOTO 290
- 1130 PRINT CHR$(7);"THIS PERIOD IS NOT IN BALANCE !"
- 1140 PRINT "FIND THE ERROR THEN CORRECT IT !"
- 1150 GOTO 450
- 1220 LPRINTER
- PRINT
- 1230 IF T2$="R" THEN 1250
- IF T2$="N" THEN 1260
- 1240 PRINT TAB(17);"ADJUSTING "; : GOTO 1300
- 1250 PRINT TAB(18);"RE-ENTERED "; : GOTO 1300
- 1260 PRINT TAB(16);"NEW PERIOD "; : GOTO 1300
- ".OVL" ELSE EXT$=".OVR"
- IF SIZE(PGM$(3) + ":" + "MENU"+EXT$) = 0 THEN \
- PRINT "Insert Program Disk in Drive ";PGM$(3) : \
- PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
- INITIALIZE : \
- GOTO 1635.2
- CHAIN PGM$(3) + ":MENU"
- 1700 IF P<65 THEN 1730
- 1710 LPRINTER : PRINT CHR$(12); : CONSOLE
- 1720 GOSUB 1220
- 1730 RETURN
- 1800 LPRINTER
- X = 0
- 1840 OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 8 : ACC.FIL = 8
- A3 = 0
- 1805 PRINT CHR$(12);
- X1 = 6 : PRIN 1900
- X = X + 1 : X1 = X1 + 1
- 1870 PRINT USING "#######.##";TAB(8);A4;
- PRINT TAB(24);T$;
- PRINT USING "###,,,########.##";TAB(49);A(J1)/100
- 1880 A3 = A3 + A(J1)
- IF X1 < 60 THEN 1850
- 1890 GOTO 1805
- 1900 PRINT TAB(40);"PERIOD BALANCE";
- PRINT USING "#########.##";TAB(54);A3/100
- PRINT CHR$(12);
- 1910 CLOSE ACC.FIL
- CONSOLE
- RETURN
- 3100 PRINT " THEN PRESS RETURN ";
- FLD.LEN% = 1 : GOSUB 9998
- M$ = REPLY$ : PRINT
- 3110 RETURN
- 3200 PRINT CHR$(7);"INVALID I1-INT(A1)<>0 THEN 690
- 673 IF A1>=-9999999999 THEN 800
- 675 PRINT CHR$(7);"INVALID AMOUNT -"; : GOTO 700
- 690 PRINT CHR$(7) : PRINT "DO NOT USE DECIMAL POINT-ENTER ONE DOLLAR AS 100"
- 700 PRINT "ENTER AMOUNT AGAIN!"
- 710 GOTO 670
- 715 PRINT "DO YOU WISH TO LEAVE THIS ENDING BALANCE AS 0 (Y/N) ? ";
- FLD.LEN% = 1 : GOSUB 9998
- X$ = UCASE$(LEFT$(REPLY$,1)) : PRINT
- 717 IF X$="N" THEN 721
- IF X$="Y" THEN 672
- PRINT CHR$(7);"ENTER Y OR N !" : GOTO 715
- 721 PRINT : PRINT CHR$(7);"THIS TRANSACTION (10),A(11),A(12)
- 850 CLOSE ACC.FIL
- 860 LPRINTER
- PRINT USING "#######.##";TAB(8);A5;
- PRINT TAB(24);T$;
- PRINT USING "#########.##";TAB(54);A1/100
- 870 X6=X6+A5 : A3=A3+A1
- 880 GOSUB 1700
- CONSOLE
- 890 GOTO 590
- 900 FOR X=1 TO LEN(REPLY$)
- IF MID$(REPLY$,X,1)="." THEN B1=1
- IF B1=1 THEN 910
- NEXT X
- 910 RETURN
- 1060 GOSUB 1700
- 1070 GOSUB 3300
- 1080 A2=0 : S=1
- IF A5 = -3 THEN 1100
- 1090 IF A3 <> 0 THEN 1130
- 1100 LPRINTER
- PRINT
- PRINT "TOTALS";
- PRINT USING "##1300 PRINT "YTD ACCOUNT BALANCE JOURNAL"
- 1310 PRINT TAB(21);"FOR PERIOD ENDING ";MID$(D2$,1,2);"/";\
- MID$(D2$,3,2);"/";MID$(D2$,5,2)
- 1320 PRINT
- 1340 PRINT TAB(9);"ACCT. NO.";TAB(24);"DESCRIPTION";TAB(55);"YTD BALANCE"
- 1350 PRINT TAB(8);"----------";TAB(24);"--------------------";
- 1355 PRINT TAB(54);"------------"
- 1360 P=6
- CONSOLE
- RETURN
- 1370 GOSUB 1700
- 1390 GOSUB 3300
- 1400 IF A3<>0 THEN 1130
- 1470 REM PRINT CHR$(12);
- 1630 GOSUB 1800
- 1635 CONSOLE
- 1635.2 IF NUM.BITS%=8 THEN EXT$=T : PRINT
- 1810 PRINT TAB(17);"YEAR TO DATE BALANCES AS OF ";MID$(D2$,1,2);"/";\
- MID$(D2$,3,2);"/";MID$(D2$,5,2)
- 1820 PRINT TAB(8);"ACCT. NO.";
- PRINT TAB(24);"DESCRIPTION";
- PRINT TAB(54);"YTD BALANCE"
- 1830 PRINT TAB(8);"----------";
- PRINT TAB(24);"--------------------";
- PRINT TAB(54);
- 1835 PRINT "------------"
- X1 = 4
- 1850 REM IF TYP(0) = 0 THEN 1900
- 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), \
- A(8),A(9),A(10),A(11),A(12)
- IF A4 = -1 THENNPUT - TRY AGAIN!"
- 3210 RETURN
- 3300 PRINT "JOURNAL BALANCE="; : PRINT USING "###,,,#########.##";A3/100
- 3310 RETURN
- 3400 PRINT "INSERT AN AUXILIARY STATEMENTS DATA DISK IN DRIVE ";FIL$(8);
- 3405 PRINT "(NO WRITE-PROTECT TAPE)"
- 3410 RETURN
- 4300 FOR X=1 TO 6
- 4310 IF MID$(D$,X,1)<"0" THEN 4450
- 4320 IF MID$(D$,X,1)>"9" THEN 4450
- 4330 NEXT X
- 4340 IF MID$(D$,1,1)="0" THEN 4370
- 4345 IF MID$(D$,1,1)<>"1" THEN 4450
- 4350 IF MID$(D$,2,1)>"2" THEN GOTO 4450 ELSE GOTO 4380
- 4370 IF MID$(D$,2,1)<"1" THEN 4450
- 4380 IF MID$(D$,3,1)>"3" THEN 4450
- 4390 IF MID$(D$,3,1)<>"3" THEN 4470
- 4400 IF MID$(D$,4,1)>"1" THEN GOTO 4450 ELSE GOTO 4470
- 4450 PRINT CHR$(7);"INVALID DATE - TRY AGAIN!"
- 4460 D$="INVALI"
- 4470 RETURN
- 5000 REM OPEN #0,F8$,L8
- 5010 RETURN
- 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), \
- A(8),A(9),A(10),A(11),A(12)
- 5110 RETURN
- 5200 CLOSE 10 : RETURN
- 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),\
- A(8),A(9),A(10),A(11),A(12)
- 531300
- 9060 PRINT CHR$(7);"ENTER A, R OR N PLEASE !"
- PRINT "PRESS RETURN TO CONTINUE ";
- FLD.LEN% = 1 : GOSUB 9998
- X$ = REPLY$ : PRINT
- 9070 GOTO 9000
- 9100 PRINT "ENTER THE NUMBER OF THE PERIOD TO BE ";
- 9102 IF T2$="A" THEN PRINT "ADJUSTED"; ELSE PRINT "RE-ENTERED";
- 9103 PRINT " (0-12) > ";
- FLD.LEN% = -2 : GOSUB 9998
- J1 = VAL(REPLY$) : PRINT
- 9110 IF J1<=12 AND J1>=0 AND J1=INT(J1) THEN 9140
- 9120 PRINT CHR$(7);"ENTER 0-12 PLEASE !"
- PRINT "PRESS RETURN TO CONTINUE ";
- FLD.LEN% = 1 : GOSUB 0 : GOSUB 9700
- 9210 GOTO 9900
- 9300 J1=13
- 9302 PRINT"ENTER NEW PERIOD ENDING DATE (MMDDYY) :";
- FLD.LEN% = -6 : GOSUB 9998
- D4$ = REPLY$ : PRINT
- D2$ = D4$
- 9304 D4$=D4$+B$ : D$=D4$ : GOSUB 4300
- 9306 IF D$="INVALI" THEN 9302
- 9310 GOSUB 9800 : GOSUB 9700
- 9320 GOSUB 9600 : GOTO 9900
- 9600 D3$ = MID$(D3$,7,LEN(D3$)-6) + LEFT$(D4$,6)
- REM D3$ = D3$(7) + D4$
- REM 101282 - (RCB) ROUTINE TO FEEL FOR THE CON.FIL
- REM
- 9610 IF SIZE(FIL$(10) + ":" + CLIENT$ + "CON.FIL") = 0 THEN \
- PRINT "Insert RETURN
- 9700 OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 8 : ACC.FIL = 8
- 9705 X=0
- 9710 REM IF TYP(0)=0 THEN 9740
- IF END #ACC.FIL THEN 9740
- IF T2$="A" THEN 9722
- 9720 REM WRITE #0%S8*X+J1*6+34,0,NOENDMARK ONE OF THOSE GUYS SHOULD BE A 0
- READ #ACC.FIL,X+1;A4,T$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7),\
- A(8),A(9),A(10),A(11),A(12)
- IF A4 = -1 THEN 9740
- A(J1) = 0
- PRINT #ACC.FIL,X+1;A4,T$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7),\
- A(8),A(9),A(10),A(11),A(12)
- GOTO : X.FNM = J1 : GOSUB 9960 : J1 = X.FNM
- X.FNM = J1 : GOSUB 9960 : J1 = X.FNM
- 9810 RETURN
- 9900 RETURN
- 9950 REM DEF FNM(X,Y)
- 9960 IF X.FNM>12 THEN X.FNM = X.FNM-(12+1)
- 9970 RETURN
- REM FEND
- %INCLUDE NFLANKS.BAS
- 1
- REM READ #0%S8*X-6,X1 IS HE READING THE PREVIOUS RECORD????????????
- 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), \
- A(8),A(9),A(10),A(11),A(12)
- X1 = A(12)
- 9730 GOTO 9710
- 9740 CLOSE ACC.FIL
- 9750 RETURN
- 9800 J1=J1+O+10 RETURN
- 8000 FOR J=1 TO Y+2
- 8010 PRINT CHR$(8);
- 8015 NEXT J
- 8020 RETURN
- 9000 GOSUB 9005 : PRINT : PRINT : PRINT "IS THIS JOURNAL RUN :"
- 9010 PRINT " A : Adjusting Year to Date Balances of an Existing Period"
- 9020 PRINT " R : Re-enter a Past Period Entirely"
- 9030 PRINT " N : Enter a New Period"
- 9040 PRINT "ENTER YOUR SELECTION :";
- FLD.LEN% = 1 : GOSUB 9998
- T2$ = UCASE$(LEFT$(REPLY$,1)) : PRINT
- 9050 IF T2$="A" THEN 9100
- IF T2$="R" THEN 9100
- IF T2$="N" THEN 99998
- X$ = REPLY$ : PRINT
- 9130 GOTO 9100
- 9140 D2$=MID$(D3$,J1*6+1,6)
- 9150 PRINT "PERIOD #";J1;" ENDED ON ";MID$(D2$,1,2);"/";MID$(D2$,3,2);"/";\
- MID$(D2$,5,2)
- 9160 PRINT "IS THIS THE CORRECT PERIOD (Y OR N) :";
- FLD.LEN% = 1 : GOSUB 9998
- X$ = UCASE$(LEFT$(REPLY$,1)) : PRINT
- 9170 IF X$="Y" THEN 9200
- IF X$="N" THEN 9100
- 9180 PRINT CHR$(7);"Y OR N PLEASE !"
- PRINT "PRESS RETURN TO CONTINUE ";
- FLD.LEN% = 1 : GOSUB 9998
- X$ = UCASE$(LEFT$(REPLY$,1)) : PRINT
- 9190 GOTO 9150
- 9200 GOSUB 980Auxiliary Data Disk in Drive ";FIL$(10) : \
- PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
- INITIALIZE : \
- GOTO 9610
- OPEN FIL$(10) + ":" + CLIENT$ + "CON.FIL" RECL 142 AS 10 : CON.FIL = 10
- 9620 READ #CON.FIL,1;DUMMY,DUMMY$,X,X1,DUMMY.D3$
- REM CON.FIL %48;X;X1
- 9630 X = X - 1
- IF X < 0 THEN X = 11
- 9640 X1 = X1 + 1 : X.FNM = X1 : GOSUB 9960 : X1 = X.FNM
- 9650 REM WRITE #0%48,X,X1,D3$
- PRINT #CON.FIL,1;DUMMY,DUMMY$,X,X1,D3$
- O1 = X : O = X1
- 9660 CLOSE CON.FIL
- 9670 9725
- 9722 REM READ #0%S8*X+J1*6+34,Z ONE OF THOSE GUYS DOWN THERE SHOULD BE Z
- READ #ACC.FIL,X+1;A4,T$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7), \
- A(8),A(9),A(10),A(11),A(12)
- IF A4 = -1 THEN 9740
- Z = A(J1)
- 9723 A3 = A3 + Z
- 9725 X=X+1
- REM READ #0%S8*X-6,X1 IS HE READING THE PREVIOUS RECORD????????????
- 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), \
- A(8),A(9),A(10),A(11),A(12)
- X1 = A(12)
- 9730 GOTO 9710
- 9740 CLOSE ACC.FIL
- 9750 RETURN
- 9800 J1=J1+O+10
- 1507 IF MID$(HEAD.CTRL.CHAR$,7,1)="S" THEN 1509
- IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1509
- IF MID$(HEAD.CTRL.CHAR$,7,1)="D" THEN 1509
- IF MID$(HEAD.CTRL.CHAR$,7,1)<>"E" THEN 1550
- 1509 IF G4$="S" THEN 1515
- PRINT TAB(32);"--------------";
- IF J$="%" THEN PRINT TAB(47);"-------";
- 1515 IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1540
- PRINT TAB(56);"--------------";
- IF J$="%" THEN PRINT TAB(71);"-------";
- 1540 PRINT
- 1550 RETURN
- 1600 IF F$="S" THEN 1620
- PRIREM 110185 - RML - RESET EMPLOYER FICA RATE (XE.L4) TO BE EQUAL TO THE
- REM EMPLOYEE FICA RATE (L(4))
- REM
- REM 112184 - SRS - REWROTE COMPUTATION OF INSURANCE CONTINUATION SHEET TO
- REM CORRECT FICA FIGURES AND ALLOW THIS PORTION OF THE CODE
- REM TO BE MORE EASILY CORRECTED. LINES AFFECTED 3220-3560,
- REM AND 16000-16300
- REM
- REM 112084 - SRS - CORRECTED 1985 EMPLOYER'S FICA RATE TO BE 7.05%
- REM
- REM 010984 - (RCB) MADE CHANGES FOR SPLIT FICA IN "84" TO ILL BE ADDED
- REM INTO TAXABLE WAGES. SET A=G AFTER ADDING MEALS & LODGING
- REM
- REM 040683 - DCF REMOVED GOSUB 1160 BEFORE PRINTING FEDERAL UNEMPLOYMENT.
- REM TOOK CARE OF PROBLEM WITH FEDERAL UNEMPLOYMENT WAGES
- REM BEING DOUBLED
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM ***11/11/82 DTK - NEGATIVE NUMBERS FIX AL LA DENISE
- REM ***
- REM *** 9/23/82 DTK - NEW FILE SIZE - CHAIN PGM$
- REM ** FIL$(3)+":"+CLIENT$+"EAR.FIL" RECL 525 AS 3 : EARNREC.FIL = 3
- FORM.12F2$ = "#,###,###.##"
- FORM.6F2$ = "###.##"
- SEQ.FAKE = 1
- GOSUB 2200
- FOR X=1 TO 85
- L1$ = L1$ + CHR$(95)
- NEXT X
- GOSUB 1160
- READ #CLNRNM.FIL,2;NEW.QTR.FLG,PRT.EER.FLG,PRT.941.FLG
- PRT.941.FLG = 0
- PRINT #CLNRNM.FIL,2;NEW.QTR.FLG, PRT.EER.FLG, PRT.941.FLG
- GOSUB 9005 : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
- PRINT TAB(18);"****************************************"
- PRINT TAB(18);"* NOW PEMP. ON MARCH 12";LEFT$(L1$,8)
- PRINT " 2 TOTAL WAGES, TIPS & OTHER COMP.",
- PRINT USING FORM.12F2$;TAB(62);(G5+T5)/100 : PRINT
- PRINT " 3,5 FEDERAL TAX WITHHELD";TAB(62);
- PRINT USING FORM.12F2$;I5/100
- PRINT " 6 TAXABLE FICA WAGES";TAB(35);
- PRINT USING FORM.12F2$;G6(1)/100;
- PRINT " X";
- REM RESET XE.L4 TO BE EQUAL TO L(4) (RML 110185)
- REM IF MID$(C3$,5,2) = "84" THEN XE.L4 = .07 ELSE XE.L4 = .0705
-
- 100 XE.L4 = L(4)
- PRINT USING FORM.6F2$;(XE.L4 + L(4))*100; 9 ADJUSTMENTS OF FICA TAXES";
- PRINT TAB(62);
- PRINT USING FORM.12F2$;INT((G6(1)-G6(2))*L(4)+.5)/(-100);
- PRINT " ";X9$
- PRINT " 10 ADJUSTED TOTAL FICA TAXES";
- X1=INT(T8*L(4)+.5)
- PRINT USING FORM.12F2$;TAB(62);INT(((XE.L4+L(4))*G6(1))-((G6(1)-G6(2))*L(4))+.5+X1)/100
- PRINT TAB(62);LEFT$(L1$,12)
- PRINT " 11 TOTAL TAXES";
- PRINT USING FORM.12F2$;TAB(62);INT(((XE.L4+L(4))*G6(1))-((G6(1)-G6(2))*L(4))+.5+X1+I5)/100
- PRINT " 12 ADVANCED EARNED INCOME CREDIT";
- LINES 15000
- REM THROUGH 15040 AND LINES NEAR THE TOP
- REM
- REM 111583 - (RCB) TOOK MEALS AND LODGING OUT OF CALCULATION AFTER
- REM LINE 1180 CREATING THE LINE AFTER IT
- REM
- REM 100683 - (RCB) ADDED LINE 100 AND CHANGED 2*L(4) TO (XE.L4 + L(4)) IN TWO
- REM INSTANCES AFTER LINE 100 TO FORCE EMPLOYERS FICA RATE
- REM TO .07 (7%) IN 1984
- REM
- REM 050483 - DCF FIXED STATE UNEMPLOYMENT CONTINUATION SHEET SO IF MEALS & LODGING
- REM IS CHOSEN TO BE SUBJECT TO STATE UNEMPLOYMENT IT W*
- REM *** 9/21/82 DTK - FIXED PRINTING FORMATS
- REM ***
- REM *** 9/21/82 DTK - FIXED ZERO AMTS IN DEDUCTION SUMMARY
- REM ***
- REM ***CONTINUATION OF THE EARNINGS PROGRAM (WRKSHEET)(10D)(VER 4.0)
- REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC.
- REM *** 648 SOUTH RIVER DR. 602-968-7101
- REM *** TEMPE, AZ. 85281
- %INCLUDE COMMON
- V=0 : Z4=0 : P7=0
- DIM L(8),G6(2),P(4,14),H(10)
- OPEN FIL$(2)+":"+CLIENT$+"CLN.FIL" RECL 255 AS 2 : CLNRNM.FIL = 2
- OPENRINTING TAX WORKSHEET *"
- PRINT TAB(18);"****************************************"
- LPRINTER
- PRINT CHR$(12);
- PRINT TAB(10);"QUARTERLY PAYROLL TAX WORKSHEET"
- PRINT TAB(10);C9$;TAB(60);"CLIENT NUMBER ";C
- PRINT TAB(10);"QUARTER ENDING ";MID$(C3$,1,2);"/";MID$(C3$,3,2);"/";MID$(C3$,5,2)
- PRINT : PRINT " ****************************************";
- PRINT "***********************************"
- PRINT " FORM 941"
- PRINT " LINE #"
- PRINT " 1 FIRST QTR ONLY - # OF
- PRINT "% =";TAB(62);
- PRINT USING FORM.12F2$;INT((XE.L4 + L(4))*G6(1)+.5)/100
- X9$=" "
- IF INT((G6(1)-G6(2))*L(4)+.5)/100>0 THEN X9$="*"
- PRINT " 7 TAXABLE TIPS REPORTED";TAB(35);
- PRINT USING FORM.12F2$;T8/100;
- PRINT " X";
- PRINT USING FORM.6F2$;L(4)*100;
- PRINT "% =";TAB(62);
- PRINT USING FORM.12F2$;INT(T8*L(4)+.5)/100
- PRINT " 8 TOTAL FICA TAXES",
- X=(INT((XE.L4+L(4))*G6(1)+.5)/100+(INT(T8*L(4)+.5)/100))
- XE.XSAVE=X
- PRINT USING FORM.12F2$;TAB(62);X
- PRINT " GOSUB 15000
- PRINT TAB(5);"DEPOSITS: TAX LIABILITY DATE PAID AMT. PAID"
- PRINT
- PRINT TAB(5);"OVERPAYMENT PREV. QTR.";TAB(45);LEFT$(L1$,12)
- PRINT
- GOSUB 420
- GOTO 470
- 420 PRINT TAB(5);"1ST-3RD ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT TAB(5);"4TH-7TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT TAB(5);"8TH-11TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT TAB(5);"12TH-15TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT TAB(5);"16TH-19TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT TAB(5);"20TH-22ND ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT TAB(5);"23RD-25TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT TAB(5);"26TH-LAST ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT
- RETURN
- 470 PRINT TAB(5);"1ST MONTH ============";TAB(36);"/ /";TAB(45);"============"
- PRINT
- GOSUB 420
- PRINT TAB(5);"2ND MONTH ============";TAB( TOTAL DEPOSITS";TAB(62);"============" : PRINT
- PRINT " 15 BALANCE DUE";TAB(62);"============" : PRINT
- PRINT " 16 OVERPAYMENT";TAB(45);"============" : PRINT
- PRINT " ",LEFT$(L1$,4);"APPLY TO NEXT QTR OR ",LEFT$(L1$,4);"REFUND" : PRINT
- IF X9$=" " THEN 670
- PRINT : PRINT : PRINT
- PRINT TAB(5);"* CREDIT FOR FICA TAX ON EMPLOYEES NOT SUBJECT"
- PRINT TAB(5);" TO TAX DUE TO TAX PREVIOUSLY PAID ON TIPS."
- 670 PRINT CHR$(12);
- PRINT " ****************JECT TO STATE UNEMP.";TAB(40);
- PRINT USING FORM.12F2$;K8/100;
- PRINT " X ";
- PRINT USING "##.##";L(5)*100;
- PRINT " %=";TAB(68);
- PRINT USING FORM.12F2$;(L(5)*K8)/100
- PRINT : PRINT
- PRINT TAB(10);"WAGES SUBJECT TO STATE DIS. INS.";TAB(40);
- PRINT USING FORM.12F2$;D8/100;
- PRINT " X ";
- PRINT USING "##.##";L(7)*100;
- PRINT " %=";TAB(68);
- PRINT USING FORM.12F2$;(D8*L(7))/100
- PRINT : PRINT
- PRINT TAB(10);"SUMMARY OF DEDUCTIONS :"
- PRINT TAB(10);LEFT$(L1$,65)
- PRINT : PRINT "***********************************"
- PRINT TAB(5);"WORKMENS COMPENSATION INSURANCE-RECAP HERE & FILL IN FORM"
- FOR X=1 TO 16
- PRINT
- NEXT X
- PRINT " ****************************************";
- PRINT "***********************************"
- PRINT TAB(5);"FEDERAL UNEMPLOYMENT INSURANCE"
- PRINT TAB(5);"LIABILITY THIS QUARTER ";
- PRINT USING FORM.12F2$;K9/100;
- PRINT TAB(36);" X ";
- PRINT USING "$#.##";L(6)*100;
- PRINT "%";
- PRINT USING FORM.12F2$;INT(K9*L(6)+.5)/100
- PRINT TAB(43);"========= ========= ========="
- PRINT TAB(5);"AMOUNT OF DEPOSIT REQUIRED NOW IS";TAB(65);"$============"
- PRINT TAB(5);" (CUMULATIVE LIABILITY OF $100.00 OR MORE)"
- IF H(6)<>7 THEN GOSUB 3200
- PRINT CHR$(12);
- CLOSE 2,3
- CONSOLE
- CHAIN PGM$(2)+":PMENU"
- 1160 G5=0 : I5=0 : T5=0 : S5=0
- SEQ.FAKE = 1
- 1180 GOSUB 1890
- IF N = -1 THEN 1540
- I2=P(2,6) : S2=P(2,7) : T2=P(2,4)
- G2=P(2,1)+P(2,2) : Z7=P(2,1)+P(2,2)+P(2,3)
- G3=P(3,1)+P(3,2) : T3=P(3,4)
- I5=I5+I2 : S5=S5+S2 : T5=T36);"/ /";TAB(45);"============"
- PRINT
- GOSUB 420
- PRINT TAB(5);"3RD MONTH ============";TAB(36);"/ /";TAB(45);"============"
- PRINT
- PRINT TAB(5);"TOTALS ============";TAB(45);"============"
- PRINT TAB(5);"FINAL DEPOSIT";TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT
- PRINT TAB(5);"TOTAL DEPOSIT";TAB(36);"/ /";TAB(45);"============"
-
- PRINT CHR$(12);
- PRINT : PRINT : PRINT
- PRINT " 13 NET TAXES ";TAB(62);
- PRINT USING FORM.12F2$;X2
- PRINT
- PRINT " 14 ************************";
- PRINT "***********************************"
- PRINT
- PRINT TAB(10);"SUMMARY OF QUARTERLY TAX LIABILITIES";TAB(77);"TAX"
- PRINT TAB(68);"------------" : PRINT
- PRINT TAB(10);"STATE INCOME TAX WITHHELD";TAB(68);
- PRINT USING FORM.12F2$;S5/100
- PRINT : PRINT
- PRINT TAB(10);"TOTAL WAGES";TAB(40);
- PRINT USING FORM.12F2$;K1/100
- PRINT TAB(10);"EXCESS WAGES";TAB(40);
- PRINT USING FORM.12F2$;(K1-K8)/100
- PRINT TAB(40);"------------"
- PRINT TAB(10);"WAGES SUB
- PRINT TAB(10);LEFT$(E9$,3);TAB(15);
- PRINT USING FORM.12F2$;P(4,9)/100;
- PRINT TAB(50);MID$(E9$,4,3);TAB(55);
- PRINT USING FORM.12F2$;P(4,10)/100
- PRINT : PRINT
- PRINT TAB(10);MID$(E9$,7,3);TAB(15);
- PRINT USING FORM.12F2$;P(4,11)/100;
- PRINT TAB(50);MID$(E9$,10,3);TAB(55);
- PRINT USING FORM.12F2$;P(4,12)/100
- PRINT : PRINT
- PRINT TAB(20);"OTHER :";TAB(30);
- PRINT USING FORM.12F2$;P(4,13)/100
- PRINT : PRINT
- PRINT " ****************************************";
- PRINT8);"============"
- PRINT " LIABILITY & PAYMENT LOG: LIABILITY PAYMENT BAL. DUE"
- PRINT
- PRINT TAB(10);"FIRST QUARTER ";LEFT$(L1$,9);" ";LEFT$(L1$,9);" ";LEFT$(L1$,9)
- PRINT TAB(10);"SECOND QUARTER ";LEFT$(L1$,9);" ";LEFT$(L1$,9);" ";LEFT$(L1$,9)
- PRINT TAB(10);"THIRD QUARTER ";LEFT$(L1$,9);" ";LEFT$(L1$,9);" ";LEFT$(L1$,9)
- PRINT TAB(10);"FOURTH QUARTER ";LEFT$(L1$,9);" ";LEFT$(L1$,9);" ";LEFT$(L1$,9)
- PRINT
- PRINT TAB(15);"TOTALS";TAB(35+T2 : G5=G5+Z7
- IF INT(N/1000)=97 THEN 1180
- IF INT(N/1000)=99 THEN 1180
- GOSUB 1790
- IF G3-G2-L(0)>=0 THEN 1260
- G7=ABS(G3-G2-L(0))
- IF G2<G7 THEN G7=G2
- GOTO 1270
- 1260 G7=0
- 1270 G8=G8+G7
- IF G3-G2+T3-T2-L(0)>=0 THEN 1320
- T7=ABS(G3-G2+T3-T2-L(0))
- IF G2+T2<=T7 THEN T7=T2 ELSE GOTO 1330
- GOTO 1340
- 1320 T7=0
- GOTO 1340
- 1330 IF G2>=T7 THEN T7=0 ELSE T7=T7-G2
- 1340 T8=T8+T7
- G3=P(3,1)+P(3,2) : G2=P(2,1)+P(2,2)
- IF H(1)=7 THEN 1346
- G3=G3+P(3,3) : G2=G2+P(2,3)
- 1346 IF H(2)=7 THEN 1350
- G3=G3+P(3,4) : G2=G2+P(2,4)
- 1350 K1=K1+G2
- IF G3-G2-L(1)>=0 THEN 1390
- K7=ABS(G3-G2-L(1))
- IF G2<K7 THEN K7=G2
- GOTO 1400
- 1390 K7=0
- 1400 K8=K8+K7
- G3=P(3,1)+P(3,2) : G2=P(2,1)+P(2,2)
- IF H(0)<>5 THEN 1410
- G3=G3+P(3,4) : G2=G2+P(2,4)
- 1410 IF G3-G2-L(2)>=0 THEN 1450
- K3=ABS(G3-G2-L(2))
- IF G2<K3 THEN K3=G2
- GOTO 1460
- 1450 K3=0
- 1460 K9=K9+K3
- G3=P(3,1)+P(3,2) : G2=P(2,1)+P(2,2)
- IF H(3)=7 THEN 1505
- IF H(4)=7 THEN 1466
- G3=G3+P(3,3) : G2=G2+P(2,3)
- IN DRIVE ";FIL$(2);" DOES NOT HAVE ON IT THE FILE 'CLNRNM' - SEE MANUAL!"
- GOTO 1700
- 1616 CONSOLE : CLOSE 2,3
- PRINT "THE DISK IN DRIVE ";FIL$(3);" DOES NOT HAVE ON IT THE FILE 'EARNREC'-SEE MANUAL!"
- 1700 PRINT " PLEASE CORRECT - THEN PRESS RETURN ";
- FLD.LEN% = 1 : GOSUB 9998
- INITIALIZE
- CHAIN PGM$(2)+":PMENU"
- 1790 IF G3-G2>L(0) THEN 1830
- IF G3>L(0) THEN 1820
- G6(1)=G6(1)+G2
- GOTO 1830
- 1820 G6(1) = G6(1) + INT(L(0) - G3 + G2 + .5)
- 1830 IF G3 - G2 + T3 -T2 > L(0) THEN 187010) = LOCAL.DED.2
- P(1,11) = LOCAL.WITH.1
- P(1,12) = LOCAL.WITH.2
- P(1,13) = OTHER.DED
- P(1,14) = NET.WAGES
- P(2,1) = REG.WAGES.QTR
- P(2,2) = OVERTIME.QTR
- P(2,3) = MEALS.LDG.QTR
- P(2,4) = TIPS.QTR
- P(2,5) = FICA.QTR
- P(2,6) = FED.INC.TAX.QTR
- P(2,7) = ST.INC.TAX.QTR
- P(2,8) = ST.DIS.INS.QTR
- P(2,9) = LOCAL.DED.1.QTR
- P(2,10) = LOCAL.DED.2.QTR
- P(2,11) = LOCAL.WITH.1.QTR
- P(2,12) = LOCAL.WITH.2.QTR
- P(2,13) = OTHER.DED.QTR
- P(2,14) = NET.WAGES.QTR
-
- P(3,1) = REG.WAGES.YR
- P(3,2) = OV>=16 THEN 1960
- PRINT TAB(3), : GOTO 1940
- 1960 RETURN
- 2200 GOSUB 5000
- C = CLIENT.NO
- C9$ = CLIENT.NAME$
- C2$ = GL.END.DATE$
- C3$ = PAY.END.DATE$
- X=0 : L9=0
- L(0) = MAX.FICA.WAGES
- L(1) = MAX.ST.UNEMP
- L(2) = MAX.FED.UNEMP
- L(3) = MAX.ST.DIS.WAGES
- L(4) = EMP.FICA.RATE
- L(5) = ST.UNEMP.RATE
- L(6) = FED.UNEMP.RATE
- L(7) = ST.DIS.RATE
- H(0) = TIPS.F.U.I
- H(1) = MEALS.LDG.TO.ST.UNEMP
- H(2) = TIPS.TO.ST.UNEMP
- H(3) = ST.DIS.FLG
- H(4) = MEALS.LDG.TO.SDI
- H(5) = TIPS.TO.SDI
- H(50);"EXCESS WAGES";
- IF H(7)=3 THEN PRINT TAB(50);"GROSS WAGES";
- IF H(7)=1 THEN PRINT TAB(50);"FICA WAGES";
- IF H(8)=3 THEN PRINT TAB(70);"GROSS WAGES";
- IF H(8)=5 THEN PRINT TAB(70);"TAXABLE WAGES";
- IF H(8)=7 THEN PRINT TAB(70);"EXCESS WAGES";
- IF H(8)=1 THEN PRINT TAB(70);"FICA WAGES";
- PRINT
- PRINT LEFT$(L1$,80)
- PRINT : P1=9
- RETURN
- 3200 GOSUB 3000
- X=0 : A1=0 : G3=0
- 3220 GOSUB 6000
- IF EMP.NO = -1 THEN 3500
- IF INT(N/1000)=97 OR INT(N/1000)=99 THEN 3220
- IF G1466 IF H(5)=7 THEN 1470
- G3=G3+P(3,4) : G2=G2+P(2,4)
- 1470 IF (G3-G2)-L(3)>=0 THEN 1510
- D7=ABS((G3)-(G2)-L(3))
- IF (G2)<D7 THEN D7=(G2)
- GOTO 1520
- 1505 D8=0
- 1510 D7=0
- 1520 D8=D8+D7
- N7=N7+P(3,7) : N9=N9+P(3,9)
- GOTO 1180
- 1540 RETURN
- 1560 CLOSE 2,3
- CONSOLE
- CHAIN PGM$(2)+":PMENU"
- 1590 CONSOLE : CLOSE 2,3
- PRINT CHR$(7)
- PRINT "THE PROGRAM DISK IS NOT IN DRIVE ";PGM$(2);"!"
- GOTO 1700
- 1612 CONSOLE : CLOSE 2,3
- REM IF NOT FILE("CLNRNM,2) THEN 1616
- PRINT "THE DISK
- IF G3 + T3 - T2 > L(0) THEN 1860
- G6(2) = G6(2) + G2
- GOTO 1870
- 1860 G6(2)=G6(2)+INT(L(0)-G3+G2-T3+T2+.5)
- 1870 RETURN
- 1890 SAVE.X = X
- X = SEQ.FAKE-1
- GOSUB 10000
- SEQ.FAKE = SEQ.FAKE + 1
- X = SAVE.X
- N = EMP.NO
- N$ = EMP.NAME$
- S$ = STR.ADDR$
- C$ = CITY.ST.ZIP$
- Z$ = SSN$
- P(1,1) = REG.WAGES
- P(1,2) = OVERTIME.WAGES
- P(1,3) = MEALS.AND.LODGING
- P(1,4) = TIPS
- P(1,5) = FICA
- P(1,6) = FED.INC.TAX
- P(1,7) = STATE.INC.TAX
- P(1,8) = ST.DIS.INS
- P(1,9) = LOCAL.DED.1
- P(1,ERTIME.YR
- P(3,3) = MEALS.LDG.YR
- P(3,4) = TIPS.YR
- P(3,5) = FICA.YR
- P(3,6) = FED.INC.TAX.YR
- P(3,7) = ST.INC.TAX.YR
- P(3,8) = ST.DIS.INS.YR
- P(3,9) = LOCAL.DED.1.YR
- P(3,10) = LOCAL.DED.2.YR
- P(3,11) = LOCAL.WITH.1.YR
- P(3,12) = LOCAL.WITH.2.YR
- P(3,13) = OTHER.DED.YR
- P(3,14) = NET.WAGES.YR
- L1 = L1.XE
- FOR XE = 9 TO 13
- P(4,XE) = P(4,XE) + P(2,XE)
- NEXT XE
- RETURN
- 1940 FOR X=A TO B STEP 2.0
- PRINT USING "$#,###,####.##";P(X1,X)/100;
- NEXT X
- A=2 : B=14
- PRINT
- IF X6) = ST.UNEMP.CONT.FLG
- H(7) = FORMAT.1
- H(8) = FORMAT.2
- H(9) = TIP.CONT.SHEET
- E9$ = LOCAL.DESC$
- RETURN
- 3000 PRINT CHR$(12); : PG.NO=PG.NO+1
- PRINT : PRINT TAB(69);"PAGE NO. ";
- PRINT USING "###";PG.NO
- PRINT
- PRINT TAB(19);"INSURANCE CONTINUATION SHEET"
- PRINT
- PRINT TAB(5);"CLIENT NO. ";
- PRINT USING "######";C,
- PRINT TAB(30);C9$
- PRINT
- PRINT TAB(5);"SOC. SEC. NO. ";TAB(20);"NAME";
- IF H(7)=5 THEN PRINT TAB(50);"TAXABLE WAGES";
- IF H(7)=7 THEN PRINT TAB(+O+T+M<=0 THEN GOTO 3220
- IF (G1-G)>L(0) THEN 3220
- PRINT TAB(5);LEFT$(Z$,3);"/";MID$(Z$,4,2);"/";MID$(Z$,6,4);
- PRINT TAB(20);N$; : Z4=Z4+1
- 3320 IF H(7)=5 THEN GOSUB 3330 : A=TAX : GOTO 3390
- 3322 IF H(7)=7 THEN GOSUB 3350 : A=EX : GOTO 3390
- 3324 IF H(7)=3 THEN GOSUB 3370 : A=GROSS : GOTO 3390
- 3326 IF H(7)=1 THEN GOSUB 3380 : A=FICA : GOTO 3390
- 3328 GOTO 3400
- 3330 TAX=G+O : YTDTAX=G1+O1
- 3332 IF H(2)=5 THEN TAX=TAX+T : YTDTAX=YTDTAX+T1
- 3334 IF H(1)=5 THEN TAX=TAX+M : YTDTAX=YTDTAX +M1
- 3336 IF YTDTAX-TAX>=L(1) THEN TAX=0 : GOTO 3340
- 3338 IF YTDTAX>=L(1) THEN TAX=L(1)-(YTDTAX-TAX)
- 3340 RETURN
- 3350 EX=G+O : YTDEX=G1+O1
- 3352 IF H(2)=5 THEN EX=EX+T : YTDEX=YTDEX+T1
- 3354 IF H(1)=5 THEN EX=EX+M : YTDEX=YTDEX+M1
- 3356 IF YTDEX-EX <L(1) THEN EX=EX-(L(1)-(YTDEX-EX))
- 3358 IF EX<0 THEN EX=0
- 3360 RETURN
- 3370 GROSS=G+O+T+M
- 3372 RETURN
- 3380 FICA=G+O : YTDFICA=G1+O1
- 3382 IF H(2)=5 THEN FICA=FICA+T : YTDFICA=YTDFICA+T1
- 3384 IF YTDFI A1=0 : G3=0
- 3560 PRINT : PRINT TAB(5);"TOTAL # OF EMPLOYEES = ";Z4
- IF H(9)=9 THEN GOTO 3570 ELSE GOSUB 4100
- 3570 RETURN
- 4000 PRINT CHR$(12);
- P7=P7+1 : PRINT TAB(70);"PAGE NO. ";P7 : PRINT
- PRINT TAB(22);"TIP CONTINUATION SHEET"
- PRINT
- PRINT TAB(5);"CLIENT NO. ";
- PRINT USING "######";C;
- PRINT TAB(40);C9$
- PRINT
- PRINT TAB(5);"SOC. SEC. NO.";TAB(20);"NAME",
- IF H(9)=5 THEN PRINT TAB(65);"TAXABLE TIPS" ELSE \
- PRINT TAB(65);"TOTAL TIPS"
- PRINT LEFT$(L1$,80) :9<0 THEN T9=0
- 4220 T8=T8+T9 : GOTO 4233
- 4230 T8=T8+T : T9=T
- 4233 IF T9=0 THEN 4250
- PRINT TAB(5);LEFT$(Z$,3);"/";MID$(Z$,4,2);"/";MID$(Z$,6,4);
- PRINT TAB(20);N$;
- PRINT USING FORM.12F2$;TAB(65);T9/100
- PG.NO = PG.NO + 1 : V = V + 1
- 4250 IF PG.NO > 60 THEN GOSUB 4000
- 4260 GOTO 4120
- 4270 PRINT LEFT$(L1$,80)
- PRINT TAB(5);"TOTAL";TAB(65);
- PRINT USING FORM.12F2$;T8/100
- PRINT : PRINT TAB(5);"TOTAL # OF EMPLOYEES = ";V
- PRINT CHR$(12);
- RETURN
- 6000 GOSUB 10000 : REM RE;X2
- PRINT TAB(62);LEFT$(L1$,12)
- PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
- GOTO 15050
- 15010 IF MID$(E9$,54,3)="EIC" THEN PRINT TAB(62); :\
- PRINT USING FORM.12F2$;P(4,10)/100 :\
- ELSE GOTO 15020
- PRINT " 13 NET TAXES";
- X2=XE.XSAVE+INT(I5+.5+P(4,10))/100
- PRINT USING FORM.12F2$;TAB(62);X2 : PRINT TAB(62);LEFT$(L1$,12)
- PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
- GOTO 15050
- 15020 IF MID$(E9$,7,3)="EIC" THEN PRINT TAB(62); :\
- TAB(62);X2 : PRINT TAB(62);LEFT$(L1$,12)
- PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
- GOTO 15050
- 15038 PRINT USING FORM.12F2$;TAB(62);0/100
- PRINT " 13 NET TAXES";
- X2=XE.XSAVE+INT(I5+.5)/100
- PRINT USING FORM.12F2$;TAB(62);X2
- PRINT TAB(62);LEFT$(L1$,12)
- 15040 PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
- 15050 RETURN
- 16000 IF H(8)=5 THEN GOSUB 3330 : A=TAX : GOTO 16200
- IF H(8)=7 THEN GOSUB 3350 : A=EX : GOTO 16200
- IF H(8)=3 TCA-FICA>=L(0) THEN FICA=0 : GOTO 3388
- 3386 IF YTDFICA>=L(0) THEN FICA=L(0)-(YTDFICA-FICA)
- 3388 RETURN
- 3390 A1=A1+A
- PRINT USING FORM.12F2$;TAB(50);A/100;
- A=0
- 3400 GOSUB 16000
- 3480 PRINT : P1=P1+2
- IF P1>60 THEN GOSUB 3000
- GOTO 3220
- 3500 PRINT LEFT$(L1$,80)
- PRINT TAB(5);"TOTAL";
- IF H(7)<>9 AND H(8)<>9 THEN PRINT "S";
- PRINT " :";
- IF H(7)=9 THEN 3540
- PRINT USING FORM.12F2$;TAB(50);A1/100;
- 3540 IF H(8)=9 THEN 3560
- PRINT USING FORM.12F2$;TAB(68);G3/100
- PG.NO=9
- PRINT
- RETURN
- 4100 GOSUB 4000 : T8=0 : X=0
- IF END #EARNREC.FIL THEN 4270
- 4120 GOSUB 6000
- IF EMP.NO = -1 THEN 4270
- G=G+O : G1=G1+O1
- IF T=0 THEN 4260
- IF H(1)<>5 THEN 4133
- G=G+M : G1=G1+M1
- 4133 IF H(2)<>5 THEN 4195
- IF INT(N/1000)=99 THEN 4260
- IF INT(N/1000)=97 THEN 4260
- IF H(9)=7 THEN 4230
- IF H(9)<>5 THEN 4270
- IF G1-G>L(1) THEN 4195
- IF G1>L(1) THEN 4200
- T9=T
- GOTO 4220
- 4195 T9=0
- GOTO 4220
- 4200 T9=L(1)-G-G1-T1
- IF T9>T THEN T9=T
- IF TAD EARNREC.FIL
- N = EMP.NO
- N$ = EMP.NAME$
- S$ = STR.ADDR$
- C$ = CITY.ST.ZIP$
- Z$ = SSN$
- G = REG.WAGES.QTR
- O = OVERTIME.QTR
- M = MEALS.LDG.QTR
- T = TIPS.QTR
- G1 = REG.WAGES.YR
- O1 = OVERTIME.YR
- M1 = MEALS.LDG.YR
- T1 = TIPS.YR
- X=X+1
- RETURN
- 15000 IF LEFT$(E9$,3)="EIC" THEN PRINT TAB(62); :\
- PRINT USING FORM.12F2$;P(4,9)/100 :\
- ELSE\
- GOTO 15010
- PRINT " 13 NET TAXES";
- X2=XE.XSAVE+INT(I5+.5+P(4,9))/100
- PRINT USING FORM.12F2$;TAB(62) PRINT USING FORM.12F2$;P(4,11)/100 :\
- ELSE \
- GOTO 15030
- PRINT " 13 NET TAXES";
- X2=XE.XSAVE+INT(I5+.5+P(4,11))/100
- PRINT USING FORM.12F2$;TAB(62);X2 : PRINT TAB(62);LEFT$(L1$,12)
- PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
- GOTO 15050
- 15030 IF MID$(E9$,10,3)="EIC" THEN PRINT TAB(62); :\
- PRINT USING FORM.12F2$;P(4,12)/100 :\
- ELSE \
- GOTO 15038
- PRINT " 13 NET TAXES"
- X2=XE.XSAVE+INT(I5+.5+P(4,12))/100
- PRINT USING FORM.12F2$;HEN GOSUB 3370 : A=GROSS : GOTO 16200
- IF H(8)=1 THEN GOSUB 3380 : A=FICA : GOTO 16200
- GOTO 16300
- 16200 G3=G3+A
- PRINT USING FORM.12F2$;TAB(68);A/100
- A=0
- 16300 RETURN
- %INCLUDE 5000
- 10000 IF END #EARNREC.FIL THEN 10000.1
- READ #EARNREC.FIL,X+1; \
- EMP.NO,\
- EMP.NAME$,\
- STR.ADDR$,\
- CITY.ST.ZIP$,\
- SSN$,\
- REG.WAGES ,\
- OVERTIME.WAGES ,\
- MEALS.AND.LODGING ,\
- TIPS ,\
- FICA ,\
- FED.INC.TAX ,\
- STATE.INC.TAX ,\
- ST.DIS.INS ,\
- LOCAL.DED.1,\
- LOCAL.DED.2, \
- LOCAL.WITH.1,\
- LOCAL.WITH.2,\
- OTHER.DED,\
- NET.WAGES,\
- REG.WAGES.QTR,\
- OVERTIME.QTR,\
- MEALS.LDG.QTR,\
- TIPS.QTR,\
- FICA.QTR,\
- FED.INC.TAX.QTR,\
- ST.INC.TAX.QTR,\
- ST.DIS.INS.QTR,\
- LOCAL.DED.1.QTR,\
- LOCAL.DED.2.QTR,\
- LOCAL.WITH.1.QTR,\
- LOCAL.WITH.2.QTR,\
- OTHER.DED.QTR,\
- NET.WAGES.QTR,\
- REG.WAGES.YR,\
- OVERTIME.YR,\
- MEALS.LDG.YR,\
- TIPS.YR,\
- FICA.YR,\
- FED.INC.TAX.YR,\
- ST.INC.TAX.YR,\
- ST.DIS.INS.YR,\
- LOCAL.DED.1.YTHEN 1387
- 1385 IF A9>1 THEN GOTO 1386 ELSE GOTO 1390
- 1386 MULT.FIN.STATE.FLAG=MULT.FIN.STATE.FLAG+2 : GOSUB 6000 : GOTO 85
- 1387 IF MULT.FIN.STATE.FLAG<A9 THEN GOTO 1388 ELSE GOTO 1389
- 1388 MULT.FIN.STATE.FLAG=MULT.FIN.STATE.FLAG+1 : GOSUB 6000 : GOTO 85
- 1389 IF MULT.FIN.STATE.FLAG<>A9 THEN GOSUB 6000
- 1390 IF M$<>"M" THEN 1400
- 1392 GOSUB 5000
- 1393 A9.III = A9
- GOSUB 5010
- 1398 REM ***************************** CHAINING TO MENUS
- 1399 CONSOLE
- CLOSE CLNRNM.FIL
- CLOSE COANS.FI1.XE);"--------------"
- 1506 GOTO 1550
- 1507 IF MID$(HEAD.CTRL.CHAR$,7,1)="S" THEN 1509
- IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1509
- 1508 IF MID$(HEAD.CTRL.CHAR$,7,1)="D" THEN 1509
- IF MID$(HEAD.CTRL.CHAR$,7,1)<>"E" THEN 1550
- 1509 IF G4$="S" THEN 1515
- PRINT TAB(32);"--------------";
- 1510 IF J$="%" THEN PRINT TAB(47);"-------";
- 1515 IF MID$(HEAD.CTRL.CHAR$,7,1) = "T" THEN 1540
- 1520 PRINT TAB(56);"--------------";
- 1530 IF J$="%" THEN PRINT TAB(71);"-------";
- 1540 PRINT
- 1550 RETURN
- B(66);"--------------";
- 1650 PRINT : RETURN
- 2000.1 PRINT CHR$(7)
- 2195 PRINT"PRESS RETURN TO GO TO ACCOUNTING MENU ";:FLD.LEN%=1 : GOSUB 9998 :PRINT
- 2197 GOTO 1400
- 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
- 3002 FOR X = 1 TO 9
- T1(X) = C(X)
- T2(X) = T(X)
- NEXT X
- 3010 READ #FSHEADS.FIL,R1;\
- HEADER.NO.HOLD,\
- HEAD.DESC.HOLD$,\
- HEAD.CTRL.CHAR.HOLD$
- I YTD.BAL.HOLD,\
- ACCT.DESC.HOLD$
- IF ACCT.NO.HOLD = -1 THEN 3075
- 3065 R=R+1
- 3070 GOTO 3020
- 3072 J = T1(VAL(MID$(HEAD.CTRL.CHAR.HOLD$,1,1)))
- 3074 J1 = T2(VAL(MID$(HEAD.CTRL.CHAR.HOLD$,1,1)))
- 3075 R=R5 : R1=R6
- READ #COANS.FIL,R;\
- ACCT.NO.HOLD,\
- CUR.PER.BAL.HOLD,\
- YTD.BAL.HOLD,\
- ACCT.DESC.HOLD$
- 3080 IF J=0 THEN J=9999999999
- 3085 IF J1=0 THEN J1=9999999999
- 3090 RETURN
- 3200 GOSUB 360
- 3210 IF END #FSHEADS.FIL THENR,\
- LOCAL.DED.2.YR,\
- LOCAL.WITH.1.YR,\
- LOCAL.WITH.2.YR,\
- OTHER.DED.YR,\
- NET.WAGES.YR,\
- L1.XE
- RETURN
- 10000.1 EMP.NO = -1
- REM FORMERLY KA BOOOOOOOOOOOOOOOOOOOOOOOOOOM
- PRINT "EOF HIT - INCORRECT EOF MARK"
- RETURN
- 9005 PRINT CLR$;:FOR DELAY=0 TO CLR.DLY% : NEXT DELAY
- RETURN
- 9998 REM --- TRAP SPECIAL CHARACTERS ---
- REPLY$="" : CHAR%=0 : ACT.LEN%=0
- REM FLD.LEN% < 0 THEN LIMIT TO 0-9 AND "-" IN FIRST CHARACTOR
- IF FLD.LEN% < 0 THEN FLD.LEN% = ABS(FLD.LEN%) L
- CLOSE FSHEADS.FIL
- IF M$="M" THEN CHAIN PGM$(1)+":" + "COMBFS" ELSE GOTO 1410
- 1400 CONSOLE
- CLOSE CLNRNM.FIL
- CLOSE COANS.FIL
- CLOSE FSHEADS.FIL
- 1410 CHAIN PGM$(1)+":" + "AMENU"
- 1490 IF I$="C" THEN 1507
- 1500 IF G2$="H" THEN T1.XE=66
- IF G3$="A" THEN T1.XE=50
- 1501 IF MID$(HEAD.CTRL.CHAR$,7,1)="D" THEN 1505
- IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN 1642
- 1502 IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1642
- 1503 IF MID$(HEAD.CTRL.CHAR$,7,1)<>"S" THEN 1550
- 1505 PRINT TAB(T1600 IF F$="S" THEN 1620
- PRINT TAB(32);"==============";
- 1610 IF J$="%" THEN PRINT TAB(47);"=======";
- 1615 IF MID$(HEAD.CTRL.CHAR$,7,1)="E" THEN 1640
- 1617 IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1635
- 1620 PRINT TAB(56);"==============";
- 1630 IF J$="%" THEN PRINT TAB(71);"=======";
- GOTO 1640
- 1635 PRINT TAB(56);"--------------";
- 1636 IF J$="%" THEN PRINT TAB(71);"-------";
- 1640 GOTO 1650
- 1642 PRINT TAB(50);"--------------";
- IF MID$(HEAD.CTRL.CHAR$,7,1)="T" THEN 1650
- 1643 PRINT TAF HEADER.NO.HOLD = -1 THEN 3075
- 3015 R1=R1+1
- 3017 IF MID$(HEADER.CTRL.CHAR.HOLD$,6,1)="N" THEN 3010
- IF MID$(HEAD.CTRL.CHAR.HOLD$,6,1)="U" THEN 3010
- 3020 IF ACCT.NO.HOLD<=HEADER.NO.HOLD THEN 3040
- 3030 IF MID$(HEAD.CTRL.CHAR.HOLD$,3,1)="%" THEN GOTO 3072 ELSE GOTO 3010
- 3040 FOR X = 1 TO 9
- T1(X) = T1(X) + CUR.PER.BAL.HOLD/100
- T2(X) = T2(X) + YTD.BAL.HOLD/100
- NEXT X
- 3060 READ #COANS.FIL,R;\
- ACCT.NO.HOLD,\
- CUR.PER.BAL.HOLD,\
- 1380
- 3215 READ #FSHEADS.FIL,R1;\
- HEADER.NO,\
- HEAD.DESC$,\
- HEAD.CTRL.CHAR$
- IF HEADER.NO = -1 THEN 1380
- 3230 R1=R1+1
- 3235 IF MID$(HEAD.CTRL.CHAR$,6,1)="N" THEN 3215
- IF MID$(HEAD.CTRL.CHAR$,6,1)="U" THEN 3215
- 3240 GOTO 3200
- 3300 GOSUB 810
- 3310 IF END #COANS.FIL THEN 1380
- 3320 READ #COANS.FIL,R;\
- ACCT.NO,\
- CUR.PER.BAL,\
- YTD.BAL,\
- ACCT.DESC$
- IF ACCT.NO = -1 THEN 1380
- 3330 R=R+1
- 3340 GOTO 3300
- 4000 IF ABS(U1/100)<10000000 THEN U=2 : FORM.DFLT$="#,###,###.##"\
- ELSE U=0 : FORM.DFLT$="###,###,###.##"
-
- 4020 RETURN
- 6000 G4$=" " : F$=" " : I$=" " : G3$=" " : G$=" " : J$=" " : G2$=" " : Z$=" "
- 6200 S=0 : G1$=" " : M$=" " : J=0 : J1=0 : K$=" " : M1=0 : M4$=" " : HEAD.DESC$=" "
- 6400 CUR.PER.BAL=0 : YTD.BAL=0 : CUR.PER.BAL.HOLD=0 : I=0 : I2=0 : U1=0 : Q=0 : T1.XE=0
- 6410 RETURN
- 7000 PRINT"INVALID INPUT - TRY AGAIN"
- 7010 RET: NUM.ONLY = -1 \
- ELSE NUM.ONLY = 0
- WHILE CHAR%<>13
- 9998.2 CHAR%=CONCHAR%
- REM ************* MODIFIED FOR AUTO DUPE KEY **************
- IF CHAR% = ASC(DUPE.KEY$) AND ACT.LEN% = 0 THEN \
- REPLY$ = DUPE.KEY$ : CHAR% = 13 : GOTO 9998.7
- IF CHAR%=127 AND ACT.LEN% = 0 THEN \
- PRINT CHR$(8); : PRINT " "; : GOTO 9998.2
- IF CHAR% = 8 AND ACT.LEN% = 0 THEN \
- PRINT " "; : GOTO 9998.REM 112184 - SRS - REWROTE COMPUTATION OF INSURANCE CONTINUATION SHEET TO
- REM CORRECT FICA FIGURES AND ALLOW THIS PORTION OF THE CODE
- REM TO BE MORE EASILY CORRECTED. LINES AFFECTED 3220-3560,
- REM AND 16000-16300
- REM
- REM 112084 - SRS - CORRECTED 1985 EMPLOYER'S FICA RATE TO BE 7.05%
- REM
- REM 010984 - (RCB) MADE CHANGES FOR SPLIT FICA IN "84" TO LINES 15000
- REM THROUGH 15040 AND LINES NEAR THE TOP
- REM
- REM 111583 - (RCB) TOOK MEALS AND LODGING OUT OF F REMOVED GOSUB 1160 BEFORE PRINTING FEDERAL UNEMPLOYMENT.
- REM TOOK CARE OF PROBLEM WITH FEDERAL UNEMPLOYMENT WAGES
- REM BEING DOUBLED
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM ***11/11/82 DTK - NEGATIVE NUMBERS FIX AL LA DENISE
- REM ***
- REM *** 9/23/82 DTK - NEW FILE SIZE - CHAIN PGM$
- REM ***
- REM *** 9/21/82 DTK - FIXED PRINTING FORMATS
- REM ***
- REM *** 9/21/82 DTK - FIXED ZERO AMTS IN DEDUCTION SUMM#"
- SEQ.FAKE = 1
- GOSUB 2200
- FOR X=1 TO 85
- L1$ = L1$ + CHR$(95)
- NEXT X
- GOSUB 1160
- READ #CLNRNM.FIL,2;NEW.QTR.FLG,PRT.EER.FLG,PRT.941.FLG
- PRT.941.FLG = 0
- PRINT #CLNRNM.FIL,2;NEW.QTR.FLG, PRT.EER.FLG, PRT.941.FLG
- GOSUB 9005 : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
- PRINT TAB(18);"****************************************"
- PRINT TAB(18);"* NOW PRINTING TAX WORKSHEET *"
- PRINT TAB(18);"****************************************"
- LPRINTER
- PRINT CURN
- 8000 R4=1
- 8010 IF END #FSHEADS.FIL THEN 8040
- 8020 READ #FSHEADS.FIL,R4;\
- HEADER.NO,\
- HEAD.DESC$,\
- HEAD.CTRL.CHAR$
- IF HEADER.NO = -1 THEN 8040
- 8025 IF MID$(HEAD.CTRL.CHAR$,6,1) = "M" THEN M$="M"
- 8030 R4=R4+1 : GOTO 8020
- 8040 RETURN
- %INCLUDE NFLANKS.BAS
- %INCLUDE 5000
- %INCLUDE 5010
- 0 : CUR.PER.BAL.HOLD=0 : I=0 : I2=0 : U1=0 : Q=0 : T1.XE=0
- 6410 RETURN
- 7000 PRINT"INVALID INPUT - TRY AGAIN"
- 7010 RET2
- IF CHAR% = 127 THEN \
- PRINT CHR$(8);" ";CHR$(8);
- IF CHAR% = 8 THEN \
- PRINT " ";CHR$(8);
- IF CHAR% = 127 OR CHAR% = 8 THEN \
- ACT.LEN%=ACT.LEN%-1 : \
- REPLY$=LEFT$(REPLY$,LEN(REPLY$)-1) : \
- GOTO 9998.7
- IF CHAR%<32 OR CHAR%>125 THEN 9998.7
- IF CHAR%=34 THEN CHAR%=39
- REM **** FILTER OUT NON-NUMERICS IF NUM.ONLY% WAS SET TO -1 (FLD.LEN% < 0) ****
- IFCALCULATION AFTER
- REM LINE 1180 CREATING THE LINE AFTER IT
- REM
- REM 100683 - (RCB) ADDED LINE 100 AND CHANGED 2*L(4) TO (XE.L4 + L(4)) IN TWO
- REM INSTANCES AFTER LINE 100 TO FORCE EMPLOYERS FICA RATE
- REM TO .07 (7%) IN 1984
- REM
- REM 050483 - DCF FIXED STATE UNEMPLOYMENT CONTINUATION SHEET SO IF MEALS & LODGING
- REM IS CHOSEN TO BE SUBJECT TO STATE UNEMPLOYMENT IT WILL BE ADDED
- REM INTO TAXABLE WAGES. SET A=G AFTER ADDING MEALS & LODGING
- REM
- REM 040683 - DCARY
- REM ***
- REM ***CONTINUATION OF THE EARNINGS PROGRAM (WRKSHEET)(10D)(VER 4.0)
- REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC.
- REM *** 648 SOUTH RIVER DR. 602-968-7101
- REM *** TEMPE, AZ. 85281
- %INCLUDE COMMON
- V=0 : Z4=0 : P7=0
- DIM L(8),G6(2),P(4,14),H(10)
- OPEN FIL$(2)+":"+CLIENT$+"CLN.FIL" RECL 255 AS 2 : CLNRNM.FIL = 2
- OPEN FIL$(3)+":"+CLIENT$+"EAR.FIL" RECL 525 AS 3 : EARNREC.FIL = 3
- FORM.12F2$ = "#,###,###.##"
- FORM.6F2$ = "###.#HR$(12);
- PRINT TAB(10);"QUARTERLY PAYROLL TAX WORKSHEET"
- PRINT TAB(10);C9$;TAB(60);"CLIENT NUMBER ";C
- PRINT TAB(10);"QUARTER ENDING ";MID$(C3$,1,2);"/";MID$(C3$,3,2);"/";MID$(C3$,5,2)
- PRINT : PRINT " ****************************************";
- PRINT "***********************************"
- PRINT " FORM 941"
- PRINT " LINE #"
- PRINT " 1 FIRST QTR ONLY - # OF EMP. ON MARCH 12";LEFT$(L1$,8)
- PRINT " 2 TOTAL WAGES, TIPS & OTHER COMP.",
- PRINT USING FORM.12F2$;TAB(62);(G5+T5)/100 : PRINT
- PRINT " 3,5 FEDERAL TAX WITHHELD";TAB(62);
- PRINT USING FORM.12F2$;I5/100
- PRINT " 6 TAXABLE FICA WAGES";TAB(35);
- PRINT USING FORM.12F2$;G6(1)/100;
- PRINT " X";
- 100 IF MID$(C3$,5,2) = "84" THEN XE.L4 = .07 ELSE XE.L4 = .0705
- PRINT USING FORM.6F2$;(XE.L4 + L(4))*100;
- PRINT "% =";TAB(62);
- PRINT USING FORM.12F2$;INT((XE.L4 + L(4))*G6(1)+.5)/100
- X9$=" "
- IF INT((G6(1)-G6(2))*L(4)+.5)/100>0 THEN X9$="*"
- PRINT " 7 TAXABLE TIPS REPORT1=INT(T8*L(4)+.5)
- PRINT USING FORM.12F2$;TAB(62);INT(((XE.L4+L(4))*G6(1))-((G6(1)-G6(2))*L(4))+.5+X1)/100
- PRINT TAB(62);LEFT$(L1$,12)
- PRINT " 11 TOTAL TAXES";
- PRINT USING FORM.12F2$;TAB(62);INT(((XE.L4+L(4))*G6(1))-((G6(1)-G6(2))*L(4))+.5+X1+I5)/100
- PRINT " 12 ADVANCED EARNED INCOME CREDIT";
- GOSUB 15000
- PRINT TAB(5);"DEPOSITS: TAX LIABILITY DATE PAID AMT. PAID"
- PRINT
- PRINT TAB(5);"OVERPAYMENT PREV. QTR.";TAB(45);LEFT$(L1$,12)
- PRINT
- GOSUB 420
- GOTO 4B(5);"23RD-25TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT TAB(5);"26TH-LAST ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT
- RETURN
- 470 PRINT TAB(5);"1ST MONTH ============";TAB(36);"/ /";TAB(45);"============"
- PRINT
- GOSUB 420
- PRINT TAB(5);"2ND MONTH ============";TAB(36);"/ /";TAB(45);"============"
- PRINT
- GOSUB 420
- PRINT TAB(5);"3RD MONTH ============";TAB(36);"/ /";TAB(45);"============"
- PRINT
- PRINT TAB(5);"TOTALS ===========
- PRINT " ",LEFT$(L1$,4);"APPLY TO NEXT QTR OR ",LEFT$(L1$,4);"REFUND" : PRINT
- IF X9$=" " THEN 670
- PRINT : PRINT : PRINT
- PRINT TAB(5);"* CREDIT FOR FICA TAX ON EMPLOYEES NOT SUBJECT"
- PRINT TAB(5);" TO TAX DUE TO TAX PREVIOUSLY PAID ON TIPS."
- 670 PRINT CHR$(12);
- PRINT " ****************************************";
- PRINT "***********************************"
- PRINT
- PRINT TAB(10);"SUMMARY OF QUARTERLY TAX LIABILITIES";TAB(77);"TAX"
- PRINT TAB(68);"------------" PRINT
- PRINT TAB(10);"WAGES SUBJECT TO STATE DIS. INS.";TAB(40);
- PRINT USING FORM.12F2$;D8/100;
- PRINT " X ";
- PRINT USING "##.##";L(7)*100;
- PRINT " %=";TAB(68);
- PRINT USING FORM.12F2$;(D8*L(7))/100
- PRINT : PRINT
- PRINT TAB(10);"SUMMARY OF DEDUCTIONS :"
- PRINT TAB(10);LEFT$(L1$,65)
- PRINT : PRINT
- PRINT TAB(10);LEFT$(E9$,3);TAB(15);
- PRINT USING FORM.12F2$;P(4,9)/100;
- PRINT TAB(50);MID$(E9$,4,3);TAB(55);
- PRINT USING FORM.12F2$;P(4,10)/100
- PRINT : PRINT
- PRINT ED";TAB(35);
- PRINT USING FORM.12F2$;T8/100;
- PRINT " X";
- PRINT USING FORM.6F2$;L(4)*100;
- PRINT "% =";TAB(62);
- PRINT USING FORM.12F2$;INT(T8*L(4)+.5)/100
- PRINT " 8 TOTAL FICA TAXES",
- X=(INT((XE.L4+L(4))*G6(1)+.5)/100+(INT(T8*L(4)+.5)/100))
- XE.XSAVE=X
- PRINT USING FORM.12F2$;TAB(62);X
- PRINT " 9 ADJUSTMENTS OF FICA TAXES";
- PRINT TAB(62);
- PRINT USING FORM.12F2$;INT((G6(1)-G6(2))*L(4)+.5)/(-100);
- PRINT " ";X9$
- PRINT " 10 ADJUSTED TOTAL FICA TAXES";
- X70
- 420 PRINT TAB(5);"1ST-3RD ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT TAB(5);"4TH-7TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT TAB(5);"8TH-11TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT TAB(5);"12TH-15TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT TAB(5);"16TH-19TH ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT TAB(5);"20TH-22ND ";LEFT$(L1$,12);TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT TA=";TAB(45);"============"
- PRINT TAB(5);"FINAL DEPOSIT";TAB(36);"/ /";TAB(45);LEFT$(L1$,12)
- PRINT
- PRINT TAB(5);"TOTAL DEPOSIT";TAB(36);"/ /";TAB(45);"============"
-
- PRINT CHR$(12);
- PRINT : PRINT : PRINT
- PRINT " 13 NET TAXES ";TAB(62);
- PRINT USING FORM.12F2$;X2
- PRINT
- PRINT " 14 TOTAL DEPOSITS";TAB(62);"============" : PRINT
- PRINT " 15 BALANCE DUE";TAB(62);"============" : PRINT
- PRINT " 16 OVERPAYMENT";TAB(45);"============" : PRINT : PRINT
- PRINT TAB(10);"STATE INCOME TAX WITHHELD";TAB(68);
- PRINT USING FORM.12F2$;S5/100
- PRINT : PRINT
- PRINT TAB(10);"TOTAL WAGES";TAB(40);
- PRINT USING FORM.12F2$;K1/100
- PRINT TAB(10);"EXCESS WAGES";TAB(40);
- PRINT USING FORM.12F2$;(K1-K8)/100
- PRINT TAB(40);"------------"
- PRINT TAB(10);"WAGES SUBJECT TO STATE UNEMP.";TAB(40);
- PRINT USING FORM.12F2$;K8/100;
- PRINT " X ";
- PRINT USING "##.##";L(5)*100;
- PRINT " %=";TAB(68);
- PRINT USING FORM.12F2$;(L(5)*K8)/100
- PRINT :TAB(10);MID$(E9$,7,3);TAB(15);
- PRINT USING FORM.12F2$;P(4,11)/100;
- PRINT TAB(50);MID$(E9$,10,3);TAB(55);
- PRINT USING FORM.12F2$;P(4,12)/100
- PRINT : PRINT
- PRINT TAB(20);"OTHER :";TAB(30);
- PRINT USING FORM.12F2$;P(4,13)/100
- PRINT : PRINT
- PRINT " ****************************************";
- PRINT "***********************************"
- PRINT TAB(5);"WORKMENS COMPENSATION INSURANCE-RECAP HERE & FILL IN FORM"
- FOR X=1 TO 16
- PRINT
- NEXT X
- PRINT " ****************************************";
- PRINT "***********************************"
- PRINT TAB(5);"FEDERAL UNEMPLOYMENT INSURANCE"
- PRINT TAB(5);"LIABILITY THIS QUARTER ";
- PRINT USING FORM.12F2$;K9/100;
- PRINT TAB(36);" X ";
- PRINT USING "$#.##";L(6)*100;
- PRINT "%";
- PRINT USING FORM.12F2$;INT(K9*L(6)+.5)/100
- PRINT TAB(48);"============"
- PRINT " LIABILITY & PAYMENT LOG: LIABILITY PAYMENT BAL. DUE"
- PRINT
- PRINT TAB(10);"FIRST QUARTER ";LEFT$(L1$,9);" ";LEFT$(L1$,9);" ";LEFT>7 THEN GOSUB 3200
- PRINT CHR$(12);
- CLOSE 2,3
- CONSOLE
- CHAIN PGM$(2)+":PMENU"
- 1160 G5=0 : I5=0 : T5=0 : S5=0
- SEQ.FAKE = 1
- 1180 GOSUB 1890
- IF N = -1 THEN 1540
- I2=P(2,6) : S2=P(2,7) : T2=P(2,4)
- G2=P(2,1)+P(2,2) : Z7=P(2,1)+P(2,2)+P(2,3)
- G3=P(3,1)+P(3,2) : T3=P(3,4)
- I5=I5+I2 : S5=S5+S2 : T5=T5+T2 : G5=G5+Z7
- IF INT(N/1000)=97 THEN 1180
- IF INT(N/1000)=99 THEN 1180
- GOSUB 1790
- IF G3-G2-L(0)>=0 THEN 1260
- G7=ABS(G3-G2-L(0))
- IF G2<G7 THEN G7=G2
- GOTO 1270
- 12603=P(3,1)+P(3,2) : G2=P(2,1)+P(2,2)
- IF H(0)<>5 THEN 1410
- G3=G3+P(3,4) : G2=G2+P(2,4)
- 1410 IF G3-G2-L(2)>=0 THEN 1450
- K3=ABS(G3-G2-L(2))
- IF G2<K3 THEN K3=G2
- GOTO 1460
- 1450 K3=0
- 1460 K9=K9+K3
- G3=P(3,1)+P(3,2) : G2=P(2,1)+P(2,2)
- IF H(3)=7 THEN 1505
- IF H(4)=7 THEN 1466
- G3=G3+P(3,3) : G2=G2+P(2,3)
- 1466 IF H(5)=7 THEN 1470
- G3=G3+P(3,4) : G2=G2+P(2,4)
- 1470 IF (G3-G2)-L(3)>=0 THEN 1510
- D7=ABS((G3)-(G2)-L(3))
- IF (G2)<D7 THEN D7=(G2)
- GOTO 1520
- 1505 D8=0
- 1510 D7=0
- 15EARNREC'-SEE MANUAL!"
- 1700 PRINT " PLEASE CORRECT - THEN PRESS RETURN ";
- FLD.LEN% = 1 : GOSUB 9998
- INITIALIZE
- CHAIN PGM$(2)+":PMENU"
- 1790 IF G3-G2>L(0) THEN 1830
- IF G3>L(0) THEN 1820
- G6(1)=G6(1)+G2
- GOTO 1830
- 1820 G6(1) = G6(1) + INT(L(0) - G3 + G2 + .5)
- 1830 IF G3 - G2 + T3 -T2 > L(0) THEN 1870
- IF G3 + T3 - T2 > L(0) THEN 1860
- G6(2) = G6(2) + G2
- GOTO 1870
- 1860 G6(2)=G6(2)+INT(L(0)-G3+G2-T3+T2+.5)
- 1870 RETURN
- 1890 SAVE.X = X
- X = SEQ.FAKE-1
- GOSUB 10000
- SR
- P(2,4) = TIPS.QTR
- P(2,5) = FICA.QTR
- P(2,6) = FED.INC.TAX.QTR
- P(2,7) = ST.INC.TAX.QTR
- P(2,8) = ST.DIS.INS.QTR
- P(2,9) = LOCAL.DED.1.QTR
- P(2,10) = LOCAL.DED.2.QTR
- P(2,11) = LOCAL.WITH.1.QTR
- P(2,12) = LOCAL.WITH.2.QTR
- P(2,13) = OTHER.DED.QTR
- P(2,14) = NET.WAGES.QTR
-
- P(3,1) = REG.WAGES.YR
- P(3,2) = OVERTIME.YR
- P(3,3) = MEALS.LDG.YR
- P(3,4) = TIPS.YR
- P(3,5) = FICA.YR
- P(3,6) = FED.INC.TAX.YR
- P(3,7) = ST.INC.TAX.YR
- P(3,8) = ST.DIS.INS.YR
- P(3,9) = LOCAL.DED.1.YR
- P(3,10) = $(L1$,9)
- PRINT TAB(10);"SECOND QUARTER ";LEFT$(L1$,9);" ";LEFT$(L1$,9);" ";LEFT$(L1$,9)
- PRINT TAB(10);"THIRD QUARTER ";LEFT$(L1$,9);" ";LEFT$(L1$,9);" ";LEFT$(L1$,9)
- PRINT TAB(10);"FOURTH QUARTER ";LEFT$(L1$,9);" ";LEFT$(L1$,9);" ";LEFT$(L1$,9)
- PRINT
- PRINT TAB(15);"TOTALS";TAB(33);"========= ========= ========="
- PRINT TAB(5);"AMOUNT OF DEPOSIT REQUIRED NOW IS";TAB(65);"$============"
- PRINT TAB(5);" (CUMULATIVE LIABILITY OF $100.00 OR MORE)"
- IF H(6)< G7=0
- 1270 G8=G8+G7
- IF G3-G2+T3-T2-L(0)>=0 THEN 1320
- T7=ABS(G3-G2+T3-T2-L(0))
- IF G2+T2<=T7 THEN T7=T2 ELSE GOTO 1330
- GOTO 1340
- 1320 T7=0
- GOTO 1340
- 1330 IF G2>=T7 THEN T7=0 ELSE T7=T7-G2
- 1340 T8=T8+T7
- G3=P(3,1)+P(3,2) : G2=P(2,1)+P(2,2)
- IF H(1)=7 THEN 1346
- G3=G3+P(3,3) : G2=G2+P(2,3)
- 1346 IF H(2)=7 THEN 1350
- G3=G3+P(3,4) : G2=G2+P(2,4)
- 1350 K1=K1+G2
- IF G3-G2-L(1)>=0 THEN 1390
- K7=ABS(G3-G2-L(1))
- IF G2<K7 THEN K7=G2
- GOTO 1400
- 1390 K7=0
- 1400 K8=K8+K7
- G20 D8=D8+D7
- N7=N7+P(3,7) : N9=N9+P(3,9)
- GOTO 1180
- 1540 RETURN
- 1560 CLOSE 2,3
- CONSOLE
- CHAIN PGM$(2)+":PMENU"
- 1590 CONSOLE : CLOSE 2,3
- PRINT CHR$(7)
- PRINT "THE PROGRAM DISK IS NOT IN DRIVE ";PGM$(2);"!"
- GOTO 1700
- 1612 CONSOLE : CLOSE 2,3
- REM IF NOT FILE("CLNRNM,2) THEN 1616
- PRINT "THE DISK IN DRIVE ";FIL$(2);" DOES NOT HAVE ON IT THE FILE 'CLNRNM' - SEE MANUAL!"
- GOTO 1700
- 1616 CONSOLE : CLOSE 2,3
- PRINT "THE DISK IN DRIVE ";FIL$(3);" DOES NOT HAVE ON IT THE FILE 'EQ.FAKE = SEQ.FAKE + 1
- X = SAVE.X
- N = EMP.NO
- N$ = EMP.NAME$
- S$ = STR.ADDR$
- C$ = CITY.ST.ZIP$
- Z$ = SSN$
- P(1,1) = REG.WAGES
- P(1,2) = OVERTIME.WAGES
- P(1,3) = MEALS.AND.LODGING
- P(1,4) = TIPS
- P(1,5) = FICA
- P(1,6) = FED.INC.TAX
- P(1,7) = STATE.INC.TAX
- P(1,8) = ST.DIS.INS
- P(1,9) = LOCAL.DED.1
- P(1,10) = LOCAL.DED.2
- P(1,11) = LOCAL.WITH.1
- P(1,12) = LOCAL.WITH.2
- P(1,13) = OTHER.DED
- P(1,14) = NET.WAGES
- P(2,1) = REG.WAGES.QTR
- P(2,2) = OVERTIME.QTR
- P(2,3) = MEALS.LDG.QTLOCAL.DED.2.YR
- P(3,11) = LOCAL.WITH.1.YR
- P(3,12) = LOCAL.WITH.2.YR
- P(3,13) = OTHER.DED.YR
- P(3,14) = NET.WAGES.YR
- L1 = L1.XE
- FOR XE = 9 TO 13
- P(4,XE) = P(4,XE) + P(2,XE)
- NEXT XE
- RETURN
- 1940 FOR X=A TO B STEP 2.0
- PRINT USING "$#,###,####.##";P(X1,X)/100;
- NEXT X
- A=2 : B=14
- PRINT
- IF X>=16 THEN 1960
- PRINT TAB(3), : GOTO 1940
- 1960 RETURN
- 2200 GOSUB 5000
- C = CLIENT.NO
- C9$ = CLIENT.NAME$
- C2$ = GL.END.DATE$
- C3$ = PAY.END.DATE$
- X=0 : L9=0
- L(0) = MAX.FICA.WAGES
- L(1) = MAX.ST.UNEMP
- L(2) = MAX.FED.UNEMP
- L(3) = MAX.ST.DIS.WAGES
- L(4) = EMP.FICA.RATE
- L(5) = ST.UNEMP.RATE
- L(6) = FED.UNEMP.RATE
- L(7) = ST.DIS.RATE
- H(0) = TIPS.F.U.I
- H(1) = MEALS.LDG.TO.ST.UNEMP
- H(2) = TIPS.TO.ST.UNEMP
- H(3) = ST.DIS.FLG
- H(4) = MEALS.LDG.TO.SDI
- H(5) = TIPS.TO.SDI
- H(6) = ST.UNEMP.CONT.FLG
- H(7) = FORMAT.1
- H(8) = FORMAT.2
- H(9) = TIP.CONT.SHEET
- E9$ = LOCAL.DESC$
- RETURN
- 3000 PRINT CHR$(12); : PG.NO=PG.NO+1
- PRINT : PRINT TAB(69);"PAGEB(70);"TAXABLE WAGES";
- IF H(8)=7 THEN PRINT TAB(70);"EXCESS WAGES";
- IF H(8)=1 THEN PRINT TAB(70);"FICA WAGES";
- PRINT
- PRINT LEFT$(L1$,80)
- PRINT : P1=9
- RETURN
- 3200 GOSUB 3000
- X=0 : A1=0 : G3=0
- 3220 GOSUB 6000
- IF EMP.NO = -1 THEN 3500
- IF INT(N/1000)=97 OR INT(N/1000)=99 THEN 3220
- IF G+O+T+M<=0 THEN GOTO 3220
- IF (G1-G)>L(0) THEN 3220
- PRINT TAB(5);LEFT$(Z$,3);"/";MID$(Z$,4,2);"/";MID$(Z$,6,4);
- PRINT TAB(20);N$; : Z4=Z4+1
- 3320 IF H(7)=5 THEN GOSUB 3330 : THEN EX=EX+T : YTDEX=YTDEX+T1
- 3354 IF H(1)=5 THEN EX=EX+M : YTDEX=YTDEX+M1
- 3356 IF YTDEX-EX <L(1) THEN EX=EX-(L(1)-(YTDEX-EX))
- 3358 IF EX<0 THEN EX=0
- 3360 RETURN
- 3370 GROSS=G+O+T+M
- 3372 RETURN
- 3380 FICA=G+O : YTDFICA=G1+O1
- 3382 IF H(2)=5 THEN FICA=FICA+T : YTDFICA=YTDFICA+T1
- 3384 IF YTDFICA-FICA>=L(0) THEN FICA=0 : GOTO 3388
- 3386 IF YTDFICA>=L(0) THEN FICA=L(0)-(YTDFICA-FICA)
- 3388 RETURN
- 3390 A1=A1+A
- PRINT USING FORM.12F2$;TAB(50);A/100;
- A=0
- 3400 ;"PAGE NO. ";P7 : PRINT
- PRINT TAB(22);"TIP CONTINUATION SHEET"
- PRINT
- PRINT TAB(5);"CLIENT NO. ";
- PRINT USING "######";C;
- PRINT TAB(40);C9$
- PRINT
- PRINT TAB(5);"SOC. SEC. NO.";TAB(20);"NAME",
- IF H(9)=5 THEN PRINT TAB(65);"TAXABLE TIPS" ELSE \
- PRINT TAB(65);"TOTAL TIPS"
- PRINT LEFT$(L1$,80) : PG.NO=9
- PRINT
- RETURN
- 4100 GOSUB 4000 : T8=0 : X=0
- IF END #EARNREC.FIL THEN 4270
- 4120 GOSUB 6000
- IF EMP.NO = -1 THEN 4270
- G=G+O : G1=G1+O1
- IF T=0 THEN 4260
- IF SING FORM.12F2$;TAB(65);T9/100
- PG.NO = PG.NO + 1 : V = V + 1
- 4250 IF PG.NO > 60 THEN GOSUB 4000
- 4260 GOTO 4120
- 4270 PRINT LEFT$(L1$,80)
- PRINT TAB(5);"TOTAL";TAB(65);
- PRINT USING FORM.12F2$;T8/100
- PRINT : PRINT TAB(5);"TOTAL # OF EMPLOYEES = ";V
- PRINT CHR$(12);
- RETURN
- 6000 GOSUB 10000 : REM READ EARNREC.FIL
- N = EMP.NO
- N$ = EMP.NAME$
- S$ = STR.ADDR$
- C$ = CITY.ST.ZIP$
- Z$ = SSN$
- G = REG.WAGES.QTR
- O = OVERTIME.QTR
- M = MEALS.LDG.QTR
- T = TIPS NO. ";
- PRINT USING "###";PG.NO
- PRINT
- PRINT TAB(19);"INSURANCE CONTINUATION SHEET"
- PRINT
- PRINT TAB(5);"CLIENT NO. ";
- PRINT USING "######";C,
- PRINT TAB(30);C9$
- PRINT
- PRINT TAB(5);"SOC. SEC. NO. ";TAB(20);"NAME";
- IF H(7)=5 THEN PRINT TAB(50);"TAXABLE WAGES";
- IF H(7)=7 THEN PRINT TAB(50);"EXCESS WAGES";
- IF H(7)=3 THEN PRINT TAB(50);"GROSS WAGES";
- IF H(7)=1 THEN PRINT TAB(50);"FICA WAGES";
- IF H(8)=3 THEN PRINT TAB(70);"GROSS WAGES";
- IF H(8)=5 THEN PRINT TA A=TAX : GOTO 3390
- 3322 IF H(7)=7 THEN GOSUB 3350 : A=EX : GOTO 3390
- 3324 IF H(7)=3 THEN GOSUB 3370 : A=GROSS : GOTO 3390
- 3326 IF H(7)=1 THEN GOSUB 3380 : A=FICA : GOTO 3390
- 3328 GOTO 3400
- 3330 TAX=G+O : YTDTAX=G1+O1
- 3332 IF H(2)=5 THEN TAX=TAX+T : YTDTAX=YTDTAX+T1
- 3334 IF H(1)=5 THEN TAX=TAX+M : YTDTAX=YTDTAX +M1
- 3336 IF YTDTAX-TAX>=L(1) THEN TAX=0 : GOTO 3340
- 3338 IF YTDTAX>=L(1) THEN TAX=L(1)-(YTDTAX-TAX)
- 3340 RETURN
- 3350 EX=G+O : YTDEX=G1+O1
- 3352 IF H(2)=5 GOSUB 16000
- 3480 PRINT : P1=P1+2
- IF P1>60 THEN GOSUB 3000
- GOTO 3220
- 3500 PRINT LEFT$(L1$,80)
- PRINT TAB(5);"TOTAL";
- IF H(7)<>9 AND H(8)<>9 THEN PRINT "S";
- PRINT " :";
- IF H(7)=9 THEN 3540
- PRINT USING FORM.12F2$;TAB(50);A1/100;
- 3540 IF H(8)=9 THEN 3560
- PRINT USING FORM.12F2$;TAB(68);G3/100
- A1=0 : G3=0
- 3560 PRINT : PRINT TAB(5);"TOTAL # OF EMPLOYEES = ";Z4
- IF H(9)=9 THEN GOTO 3570 ELSE GOSUB 4100
- 3570 RETURN
- 4000 PRINT CHR$(12);
- P7=P7+1 : PRINT TAB(70)H(1)<>5 THEN 4133
- G=G+M : G1=G1+M1
- 4133 IF H(2)<>5 THEN 4195
- IF INT(N/1000)=99 THEN 4260
- IF INT(N/1000)=97 THEN 4260
- IF H(9)=7 THEN 4230
- IF H(9)<>5 THEN 4270
- IF G1-G>L(1) THEN 4195
- IF G1>L(1) THEN 4200
- T9=T
- GOTO 4220
- 4195 T9=0
- GOTO 4220
- 4200 T9=L(1)-G-G1-T1
- IF T9>T THEN T9=T
- IF T9<0 THEN T9=0
- 4220 T8=T8+T9 : GOTO 4233
- 4230 T8=T8+T : T9=T
- 4233 IF T9=0 THEN 4250
- PRINT TAB(5);LEFT$(Z$,3);"/";MID$(Z$,4,2);"/";MID$(Z$,6,4);
- PRINT TAB(20);N$;
- PRINT U.QTR
- G1 = REG.WAGES.YR
- O1 = OVERTIME.YR
- M1 = MEALS.LDG.YR
- T1 = TIPS.YR
- X=X+1
- RETURN
- 15000 IF LEFT$(E9$,3)="EIC" THEN PRINT TAB(62); :\
- PRINT USING FORM.12F2$;P(4,9)/100 :\
- ELSE\
- GOTO 15010
- PRINT " 13 NET TAXES";
- X2=XE.XSAVE+INT(I5+.5+P(4,9))/100
- PRINT USING FORM.12F2$;TAB(62);X2
- PRINT TAB(62);LEFT$(L1$,12)
- PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
- GOTO 15050
- 15010 IF MID$(E9$,54,3)="EIC" THEN PRINT TAB(62); :\
- PRINT USING FORM.12F2$;P(4,10)/100 :\
- ELSE GOTO 15020
- PRINT " 13 NET TAXES";
- X2=XE.XSAVE+INT(I5+.5+P(4,10))/100
- PRINT USING FORM.12F2$;TAB(62);X2 : PRINT TAB(62);LEFT$(L1$,12)
- PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
- GOTO 15050
- 15020 IF MID$(E9$,7,3)="EIC" THEN PRINT TAB(62); :\
- PRINT USING FORM.12F2$;P(4,11)/100 :\
- ELSE \
- GOTO 15030
- PRINT " 13 NET TAXES";
- X2=XE.XSAVE+INT(I5+.5+P(4,11))/100
- PRINT USING FORM.12F2$;TAB(62);X2 : PRINT NET TAXES";
- X2=XE.XSAVE+INT(I5+.5)/100
- PRINT USING FORM.12F2$;TAB(62);X2
- PRINT TAB(62);LEFT$(L1$,12)
- 15040 PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
- 15050 RETURN
- 16000 IF H(8)=5 THEN GOSUB 3330 : A=TAX : GOTO 16200
- IF H(8)=7 THEN GOSUB 3350 : A=EX : GOTO 16200
- IF H(8)=3 THEN GOSUB 3370 : A=GROSS : GOTO 16200
- IF H(8)=1 THEN GOSUB 3380 : A=FICA : GOTO 16200
- GOTO 16300
- 16200 G3=G3+A
- PRINT USING FORM.12F2$;TAB(68);A/100
- A=0
- 16300 RAX.QTR,\
- ST.INC.TAX.QTR,\
- ST.DIS.INS.QTR,\
- LOCAL.DED.1.QTR,\
- LOCAL.DED.2.QTR,\
- LOCAL.WITH.1.QTR,\
- LOCAL.WITH.2.QTR,\
- OTHER.DED.QTR,\
- NET.WAGES.QTR,\
- REG.WAGES.YR,\
- OVERTIME.YR,\
- MEALS.LDG.YR,\
- TIPS.YR,\
- FICA.YR,\
- FED.INC.TAX.YR,\
- ST.INC.TAX.YR,\
- ST.DIS.INS.YR,\
- LOCAL.DED.1.YR,\
- LOCAL.DED.2.YR,\
- LOCAL.WITH.1.YR,\
- LOCAL.WITH.2.YR,\
- OTHER.DED.YR,\
- NET.WAGES.YR,\
- L1.XE
- RETURN
- 10000.1 EMP.NO = -1
- REM FORMERLY KA BOOOOOOOOOOOOOOOOOOOOOOOOOO) AND ACT.LEN% = 0 THEN \
- REPLY$ = DUPE.KEY$ : CHAR% = 13 : GOTO 9998.7
- IF CHAR%=127 AND ACT.LEN% = 0 THEN \
- PRINT CHR$(8); : PRINT " "; : GOTO 9998.2
- IF CHAR% = 8 AND ACT.LEN% = 0 THEN \
- PRINT " "; : GOTO 9998.2
- IF CHAR% = 127 THEN \
- PRINT CHR$(8);" ";CHR$(8);
- IF CHAR% = 8 THEN \
- PRINT " ";CHR$(8);
- IF CHAR% = 127 ***********************************************************
- 9998.6 ACT.LEN%=ACT.LEN% + 1
- IF ACT.LEN%>FLD.LEN% AND FLD.LEN% <> 0 THEN \
- PRINT CHR$(7);CHR$(8);" ";CHR$(8); : ACT.LEN% = ACT.LEN% -1 : \
- GOTO 9998.7
- REPLY$=REPLY$+CHR$(CHAR%)
- IF ACT.LEN%>FLD.LEN% THEN \
- CHAR%=13
- 9998.7 WEND
- RETURN
- TAB(62);LEFT$(L1$,12)
- PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
- GOTO 15050
- 15030 IF MID$(E9$,10,3)="EIC" THEN PRINT TAB(62); :\
- PRINT USING FORM.12F2$;P(4,12)/100 :\
- ELSE \
- GOTO 15038
- PRINT " 13 NET TAXES"
- X2=XE.XSAVE+INT(I5+.5+P(4,12))/100
- PRINT USING FORM.12F2$;TAB(62);X2 : PRINT TAB(62);LEFT$(L1$,12)
- PRINT : PRINT " 1ST TIME 3 DAY DEPOSITS? ----------"
- GOTO 15050
- 15038 PRINT USING FORM.12F2$;TAB(62);0/100
- PRINT " 13 ETURN
- %INCLUDE 5000
- 10000 IF END #EARNREC.FIL THEN 10000.1
- READ #EARNREC.FIL,X+1; \
- EMP.NO,\
- EMP.NAME$,\
- STR.ADDR$,\
- CITY.ST.ZIP$,\
- SSN$,\
- REG.WAGES ,\
- OVERTIME.WAGES ,\
- MEALS.AND.LODGING ,\
- TIPS ,\
- FICA ,\
- FED.INC.TAX ,\
- STATE.INC.TAX ,\
- ST.DIS.INS ,\
- LOCAL.DED.1,\
- LOCAL.DED.2, \
- LOCAL.WITH.1,\
- LOCAL.WITH.2,\
- OTHER.DED,\
- NET.WAGES,\
- REG.WAGES.QTR,\
- OVERTIME.QTR,\
- MEALS.LDG.QTR,\
- TIPS.QTR,\
- FICA.QTR,\
- FED.INC.TM
- PRINT "EOF HIT - INCORRECT EOF MARK"
- RETURN
- 9005 PRINT CLR$;:FOR DELAY=0 TO CLR.DLY% : NEXT DELAY
- RETURN
- 9998 REM --- TRAP SPECIAL CHARACTERS ---
- REPLY$="" : CHAR%=0 : ACT.LEN%=0
- REM FLD.LEN% < 0 THEN LIMIT TO 0-9 AND "-" IN FIRST CHARACTOR
- IF FLD.LEN% < 0 THEN FLD.LEN% = ABS(FLD.LEN%) : NUM.ONLY = -1 \
- ELSE NUM.ONLY = 0
- WHILE CHAR%<>13
- 9998.2 CHAR%=CONCHAR%
- REM ************* MODIFIED FOR AUTO DUPE KEY **************
- IF CHAR% = ASC(DUPE.KEY$OR CHAR% = 8 THEN \
- ACT.LEN%=ACT.LEN%-1 : \
- REPLY$=LEFT$(REPLY$,LEN(REPLY$)-1) : \
- GOTO 9998.7
- IF CHAR%<32 OR CHAR%>125 THEN 9998.7
- IF CHAR%=34 THEN CHAR%=39
- REM **** FILTER OUT NON-NUMERICS IF NUM.ONLY% WAS SET TO -1 (FLD.LEN% < 0) ****
- IF NUM.ONLY = 0 OR CHAR% = 13 THEN 9998.6
- IF CHAR% = 45 AND ACT.LEN% = 0 THEN 9998.6
- IF CHAR% < 48 OR CHAR% > 57 THEN \
- PRINT CHR$(8);" ";CHR$(8);CHR$(7); : \
- GOTO 9998.7
- REM **裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 NUM.ONLY = 0 OR CHAR% = 13 THEN 9998.6
- IF CHAR% = 45 AND ACT.LEN% = 0 THEN 9998.6
- IF CHAR% < 48 OR CHAR% > 57 THEN \
- PRINT CHR$(8);" ";CHR$(8);CHR$(7); : \
- GOTO 9998.7
- REM *************************************************************
- 9998.6 ACT.LEN%=ACT.LEN% + 1
- IF ACT.LEN%>FLD.LEN% AND FLD.LEN% <> 0 THEN \
- PRINT CHR$(7);CHR$(8);" ";CHR$(8); : ACT.LEN% = ACT.LEN% -1 : \
- GOTO 9998.7
- REPLY$=REPLY$+CHR$(CHAR%)
- IF ACT.LEN%>FLD.LEN% THEN \
- 裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 CHAR%=13
- 9998.7 WEND
- RETURN
- NT CHR$(8);" ";CHR$(8);CHR$(7); : \
- GOTO 9998.7
- REM *************************************************************
- 9998.6 ACT.LEN%=ACT.LEN% + 1
- IF ACT.LEN%>FLD.LEN% AND FLD.LEN% <> 0 THEN \
- PRINT CHR$(7);CHR$(8);" ";CHR$(8); : ACT.LEN% = ACT.LEN% -1 : \
- GOTO 9998.7
- REPLY$=REPLY$+CHR$(CHAR%)
- IF ACT.LEN%>FLD.LEN% THEN \
- 裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������
|