123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638463946404641464246434644464546464647464846494650465146524653465446554656465746584659466046614662466346644665466646674668466946704671467246734674467546764677467846794680468146824683468446854686468746884689469046914692469346944695469646974698469947004701470247034704470547064707470847094710471147124713471447154716471747184719472047214722472347244725472647274728472947304731473247334734473547364737473847394740474147424743474447454746474747484749475047514752475347544755475647574758475947604761476247634764476547664767476847694770477147724773477447754776477747784779478047814782478347844785478647874788478947904791479247934794479547964797479847994800480148024803480448054806480748084809481048114812481348144815481648174818481948204821482248234824482548264827482848294830483148324833483448354836483748384839484048414842484348444845484648474848484948504851485248534854485548564857485848594860486148624863486448654866486748684869487048714872487348744875487648774878487948804881488248834884488548864887488848894890489148924893489448954896489748984899490049014902490349044905490649074908490949104911491249134914491549164917491849194920492149224923492449254926492749284929493049314932493349344935493649374938493949404941494249434944494549464947494849494950495149524953495449554956495749584959496049614962496349644965496649674968496949704971497249734974497549764977497849794980498149824983498449854986498749884989499049914992499349944995499649974998499950005001500250035004500550065007500850095010501150125013501450155016501750185019502050215022502350245025502650275028502950305031503250335034503550365037503850395040504150425043504450455046504750485049505050515052505350545055505650575058505950605061506250635064506550665067506850695070507150725073507450755076507750785079508050815082 |
- � 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞�WORKS BAS���d
-
����PAYROLL BAS�����PAYROLL BAS�� !"�������������YTDTRANSBAS���+#$%&'(�����������CONTPAY BAS���5)*+,-./����������LABELS BAS���0123�������������NOTEPAY BAS���G456789:;<��������CONTEDITBAS���9=>?@ABCD���������COMPARE BAS����EFGHIJKLMNOPQRST�COMPARE BAS��6UVWXYZ[����������SOCUP BAS���2\]^_`ab����������COMMON BAS���c����������������NFLANKS BAS���defg�������������SUMMARY BAS���Chijklmnop��������PAYROLL2BAS����qrstuvwxyz{|}~��PAYROLL2BAS��e����������������繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞REM 072583 - DCF ADDED CHECK FOR NUM.BITS = 8 OR 16
- REM
- REM 072183 - DCF CHANGED H TO H.XE AND A TO A.XE IN LINE 3220
- REM
- REM 071783 - DCF TOOK OUT LINE #'S IN REM STATEMENTS
- REM CHANGED ALL H'S TO H.XE
- REM CHANGED ALL A'S TO A.XE
- REM CHANGED ALL R'S TO R.XE FOR CB80 COMPILE
- REM CHANGED LINE # 2100 TO 2100.1
- REM
- REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
- REM
- REM 061783 - DCF THE FOR-NEXT LOOP WHICH WHEN DISK SWAPPING (AUX. ON SEPERATE DISK)
- REM
- REM *** PROGRAM TO PRINT A STATEMENT OF CHANGES WORKSHEET (VER. 4.0)
- REM *** COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS INC.
- REM *** 648 SOUTH RIVER DR.
- REM *** TEMPE, ARIZ. 85281 (602)968-7101
- %INCLUDE COMMON.BAS
- 56 X = HOLE(3) : X1 = HOLE(3) : S=0
- 60 DIM A(12),R(3,10),H(1,X),R1(3,X1)
- 70 GOSUB 9005
- PRINT
- 75 PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB Data Disk in Drive ";FIL$(2) : \
- PRINT "Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
- PRINT :\
- INITIALIZE : \
- GOTO 140
-
- OPEN FIL$(2) + ":" + CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL = 1
- GOSUB 5000
- CLOSE CLNRNM.FIL
- 170 PRINT" ENTER THE CLIENT NUMBER FROM WORKSHEET >";:
- FLD.LEN%=-6 : GOSUB 9998 : PRINT :
- CLIENT=VAL(REPLY$)
- IF CLIENT.NO = CLIENT THEN 235
- PRINT CHR$(7);"THE C�SUBSCHEDBAS���M�����������������MENU BAS��������������������UMENU BAS��������������������AMENU BAS��������������������PMENU BAS���
、���������������PAYROLL2$$$��������������������繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞 ZEROED THE ACCUMULATOR WAS CHANGED
- REM FROM R(0,X) TO R(0,I)
- REM
- REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
- REM
- REM 041183 - DCF FIXED BUG CODE #041183-1-ISS
- REM ADDED HOLE(3) TO DIMENSION X1 GETS RID OF OM ERROR
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM 021683 - (RCB) ADDED HOLE(3) TO DEMENSIONING
- REM
- REM 013183 (DCF) CHANGED PRINT CLR$ TO GOSUB 9005
- REM
- REM 013183 (DCF) FIXED OE ERROR(15);"Client Programmed Accounting Ver. ";VERSION$
- PRINT
- 80 PRINT TAB(21);"** AUXILIARY MENU OPTION #6 **"
- 90 PRINT TAB(17);"PRINTS STATEMENT OF CHANGES WORKSHEET" : PRINT
- 100 PRINT TAB(5);" Press RETURN Key To Continue Or 'M' To Return To Auxiliary Menu";
- 110 FLD.LEN%=1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$,1))
- IF M$ = "M" THEN CHAIN PGM$(3) + ":" + "MENU"
- 120 GOSUB 9005
- 140 IF SIZE(FIL$(2) + ":" + CLIENT$ + "CLN.FIL") = 0 THEN \
- PRINT : \
- PRINT "Insert the ClientLIENT IN DRIVE ";FIL$(2);" IS ";CLIENT.NO;"!"
- PRINT" Please Correct then Press RETURN ";: FLD.LEN%= 1 : GOSUB 9998 : PRINT : X$=LEFT$(REPLY$,1)
- 210 GOTO 170
- 220 GOSUB 9005 : PRINT : INITIALIZE
- 230 PRINT "Insert Auxiliary Data Disk in Drive ";FIL$(10);
- 231 PRINT " Then Press RETURN";:FLD.LEN%=1 : GOSUB 9998 : PRINT : X$ =LEFT$(REPLY$,1)
- 235 IF SIZE(FIL$(10) + ":" + CLIENT$ + "CON.FIL")=0 THEN 220
- 240 OPEN FIL$(10) + ":" + CLIENT$ + "CON.FIL" RECL 142 AS 2 : CONTROL.FIL=2
- OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 5 : ACCTS.FIL = 5
- READ #CONTROL.FIL;\
- X1,\
- N$,\
- O,\
- O1,\
- D$
- CLOSE CONTROL.FIL
- 270 IF CLIENT.NO = CLIENT THEN 300
- 280 PRINT CHR$(7);"THE CLIENT NUMBER OF THE DISK IN DRIVE ";FIL$(10); " DOES NOT MATCH !"
- PRINT" PLEASE CORRECT THEN PRESS RETURN ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : X$=LEFT$(REPLY$,1)
- GOTO 220
- 300 GOSUB 9005 : PRINT
- 310 PRINT "NOW COMPILING HEADXE = -1 THEN 450
- 390 GOSUB 7100 : X2 = H.XE - INT( H.XE / 10000 ) * 10000
- 400 FOR X1 = 0 TO H1
- 410 IF H( 0, X1 ) = X2 THEN 440
- 420 NEXT X1
- H1 = H1 + 1
- 430 H( 0, H1 ) = X2 : H( 1, X1 ) = X
- 440 X = X + 1 : GOTO 380
- 450 R.XE = -1 : X9 = -1
- 460 IF A9 = -1 THEN 550
- 470 GOSUB 7200 : X2 = A.XE - INT( A.XE / 10000 ) * 10000
- 480 FOR X1 = 0 TO R.XE
- 490 IF R1( 0, X1 ) = X2 THEN 530
- 500 NEXT X1
- R.XE = R.XE + 1
- 510 R1( 0, R.XE ) = X2
- R1( 1, R.XE ) = A5
- R1( 2,610 NEXT X1
- 620 IF X THEN 551
- 630 GOSUB 9005
- PRINT
- PRINT "NOW SORTING ACCOUNTS . . . "
- X6 = R.XE
- 631 X = 0 : X6 = X6 - 1
- 640 FOR X1 = 0 TO X6
- 650 IF R1( 0, X1 ) <= R1( 0, X1 + 1 ) THEN 690
- 660 X = 1
- X2 = R1(0,X1)
- X3 = R1(1,X1)
- X4 = R1(2,X1)
- X5 = R1(3,X1)
- 670 R1(0,X1)=R1(0,X1+1)
- R1(1,X1)=R1(1,X1+1)
- R1(2,X1)=R1(2,X1+1)
- 675 R1(3,X1)=R1(3,X1+1)
- 680 R1(0,X1+1)=X2
- R1(1,X1+1)=X3
- R1(2,X1+1)=X4
- ON WORKSHEET"
- PRINT TAB(30);"AS OF ";MID$(D$,73,2);"/";MID$(D$,75,2);"/";MID$(D$,77,2)
- PRINT
- PRINT TAB(33);"YEAR TO DATE BALANCES";TAB(66);"CHANGES"
- PRINT TAB(33);MID$(D$,O*6+1,2);"/";MID$(D$,O*6+3,2);"/";MID$(D$,O*6+5,2);
- PRINT TAB(46);MID$(D$,73,2);"/";MID$(D$,75,2);"/";MID$(D$,77,2);
- PRINT TAB(59);"CURRENT";
- PRINT TAB(70);"NON-CURRENT"
- 2180 PRINT TAB(31);"-----------";
- PRINT TAB(44);"-----------";
- PRINT TAB(57);"-----------";
- 210 GOSUB 6500
- 3170 IF E0 THEN 5000.1
- 3180 GOSUB 6100
- 3190 GOTO 3120
- 3200 C = 1 : GOTO 3220
- 3205 IF E1 THEN 5000.1
- 3210 GOSUB 6200
- 3220 IF H.XE < A.XE THEN 3250
- 3230 GOSUB 6000
- 3240 GOTO 3205
- 3250 IF MID$(C$,8,1) = "L" THEN 3300
- 3251 IF MID$(C$,8,1) = "*" THEN 3270
- 3260 GOSUB 6500
- 3270 IF E0 THEN 5000.1
- 3280 GOSUB 6100
- 3290 GOTO 3220
- 3300 C = 2 : GOTO 3320
- 3305 IF E1 THEN 5000.1
- 3310 GOSUB 6200
- 3320 IF H.XE < A.XE THEN 3350
- 3330 GOSUB 6000
- 3340 GOTO 3305
- 3350 IF MID$(C$,8,1) = "E" THERS AND ACCOUNTS . . . "
- 350 FIL2$=FIL$(7)
- 351 IF SIZE(FIL2$ + ":" + CLIENT$ + "FSH.FIL")=0 THEN \
- PRINT "Insert Client Data Disk Containing FSH.FIL in Drive ";PGM$(3):\
- PRINT " Then Press RETURN "; : FLD.LEN%=1 : GOSUB 9998 : \
- PRINT : \
- INITIALIZE : \
- FIL2$ = PGM$(3) : \
- GOTO 351
- REM ELSE \
- REM FIL2$=FIL$(7)
- 360 OPEN FIL2$ + ":" + CLIENT$ + "FSH.FIL" RECL 94 AS 4 : FSHEADS.FIL=4
-
- 370 H1 = -1 : X = 0
- 380 IF H. R.XE ) = A1
- R1( 3, R.XE ) = A2
- 520 GOTO 460
- 530 R1( 2, X1 ) = R1( 2, X1 ) + A1
- R1( 3, X1 ) = R1( 3, X1 ) + A2
- 540 GOTO 460
- 550 GOSUB 9005 : PRINT : PRINT "NOW SORTING HEADERS . . . " : X6 = H1
- 551 X = 0 : X6 = X6 - 1
- 560 FOR X1 = 0 TO X6
- 570 IF H( 0, X1 ) <= H( 0, X1 + 1 ) THEN 610
- 580 X = 1
- X2 = H( 0, X1 )
- X3 = H( 1, X1 )
- 590 H( 0, X1 ) = H( 0, X1 + 1 )
- H( 1, X1 ) = H( 1, X1 + 1 )
- 600 H( 0, X1 + 1 ) = X2
- H( 1, X1 + 1 ) = X3
- R1(3,X1+1)=X5
- 690 NEXT X1
- 700 IF X THEN 631
- 720 H2 = 0 : R2 = 0
- 730 GOSUB 9005 : PRINT
- 740 PRINT "NOW PRINTING SCHEDULE . . . "
- 1030 IF E0 THEN 5000.1
- 1040 GOSUB 6100
- 1050 IF MID$(C$,8,1) <> "C" THEN 1030
- 2000.1 NAME.LENGTH = LEN(N$)
- FOR X = NAME.LENGTH TO 1.0 STEP -1.0
- 2001 IF MID$(N$,X,1) <> " " THEN 2004
- 2002 NEXT X
- 2004 X1 = INT( ( 75 - X ) / 2 )
- 2005 LPRINTER
- PRINT : PRINT : PRINT TAB(X1);N$
- PRINT TAB(10);"STATEMENT OF CHANGES IN FINANCIAL POSITI90 PRINT TAB(70);"-----------"
- 3000 C = 1
- 3005 IF E1 THEN 5000.1
- 3010 GOSUB 6200
- 3020 IF H.XE < A.XE THEN 3050
- 3030 GOSUB 6000
- 3040 GOTO 3005
- 3050 IF MID$(C$,8,1) = "N" THEN 3100
- 3051 IF MID$(C$,8,1) = "*" THEN 3070
- 3060 GOSUB 6500
- 3070 IF E0 THEN 5000.1
- 3080 GOSUB 6100
- 3090 GOTO 3020
- 3100 C = 2 : GOTO 3120
- 3105 IF E1 THEN 5000.1
- 3110 GOSUB 6200
- 3120 IF H.XE < A.XE THEN 3150
- 3130 GOSUB 6000
- 3140 GOTO 3105
- 3150 IF MID$(C$,8,1) = "S" THEN 3200
- 3151 IF MID$(C$,8,1) = "*" THEN 3170
- 316EN 4000
- 3351 IF MID$(C$,8,1) = "*" THEN 3370
- 3355 IF MID$(C$,3,1) <> "P" THEN 3360
- 3356 GOSUB 9000
- GOTO 3370
- 3360 GOSUB 6500
- 3370 IF E0 THEN 5000.1
- 3380 GOSUB 6100
- 3390 GOTO 3320
- 4000 LPRINTER
- 4010 H$ = "NET "
- 4020 IF R(3,9) < 0 THEN H$ = H$ + "INCREASE " ELSE H$ = H$ + "DECREASE "
- 4030 H$ = H$ + "IN WORKING CAPITAL"
- 4040 PRINT H$;
- PRINT TAB(56);
- PRINT USING "#########.##";R(2,10)/100;
- 4050 PRINT TAB(69);
- PRINT USING "#########.##";R(3,10)/100
- 4060 W1 = R(3,10)
- 4820 GOSUB 8000
- 5000.1 CONSOLE : GOSUB 9005 : PRINT : PRINT : CLOSE FSHEADS.FIL : CLOSE ACCTS.FIL
- 5010 REM
- 5020 IF NUM.BITS%=8 THEN EXT$ = ".OVL" ELSE EXT$ = ".OVR"
- IF SIZE(PGM$(3) + ":" + "SOCUP"+EXT$)<> 0 THEN CHAIN PGM$(3) + ":" + "SOCUP"
- INITIALIZE
- PRINT "Insert Program Disk in Drive ";PGM$(3)
- PRINT " Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : R$=LEFT$(REPLY$,1)
- GOTO 5020
- 6000 REM **** PRINTING ACCOUNTS
- LSE R(3,X) = R(3,X) + (A2-A1)
- 6065 NEXT X
- 6066 P = P - A1 : P1 = P1 - A2
- 6070 RETURN
- 6100 IF H2 > H1 THEN 6130
- 6110 X = H(1,H2) : GOSUB 7100 : H.XE = H( 0, H2 ) : H2 = H2 + 1
- 6120 GOTO 6140
- 6130 E0 = 1
- 6140 RETURN
- 6200 IF R2 > R.XE THEN 6240
- 6210 X9 = R1(1,R2) -1 : GOSUB 7200
- 6220 A.XE = R1(0,R2) : A1 = R1(2,R2) : A2 = R1(3,R2)
- 6230 R2 = R2 + 1 : GOTO 6250
- 6240 E1 = 1
- 6250 RETURN
- 6500 H$ = H$ + B$
- IF MID$(C$,7,1) = "S" THEN 6510
- 6505 IF MID$(C$,7,1) = "D" THEN C = 2 THEN 6590
- 6580 PRINT TAB(56);
- PRINT USING "#########.##";R(2,X)/100 : GOTO 6600
- 6590 PRINT TAB(69);
- PRINT USING "#########.##";R(3,X)/100
- 6600 FOR I = 1 TO X
- 6610 R(0,I) = 0
- R(1,I) = 0
- 6620 IF C = 1 THEN R(2,I) = 0 ELSE R(3,I) = 0
- 6630 NEXT I
- 6640 IF MID$(C$,7,1) <> "D" THEN 6680
- 6650 PRINT TAB(31);"===========";TAB(44);"===========";
- 6660 IF C = 1 THEN PRINT TAB(57); ELSE PRINT TAB(70);
- 6670 PRINT "==========="
- 6680 IF MID$(C$,2,1) = "P" THEN GOTO 6690 EL : X9 = X9 + 1
- 7225 IF END #ACCTS.FIL THEN 7260
- 7230 READ #ACCTS.FIL,X9+1;\
- A9,\
- A9$,\
- B9,\
- 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)
- 7250 IF INT(A9) = A.XE THEN 7220
- 7255 IF X9 = 0 THEN 7200
- 7260 RETURN
- 8000 N1=0-N1
- 8028 W1=0-W1
- 8030 HOLE(8) = N1
- HOLE(9) = W1
- 1,X) + P1
- R(3,X) = R(3,X) +(P1-P)
- 9040 NEXT X
- 9042 N1 = P1
- 9045 IF MID$(C$,7,1) <> "D" THEN 9050
- 9046 PRINT TAB(31);"===========";TAB(44);"===========";TAB(70);"==========="
- 9050 IF MID$(C$,2,1) = "P" THEN PRINT CHR$(12); ELSE GOTO 9055
- GOTO 9060
- 9055 IF VAL(MID$(C$,2,1)) = 0 THEN 9060
- FOR X = 1 TO VAL(MID$(C$,2,1))
- PRINT
- NEXT X
- 9060 RETURN
- %INCLUDE NFLANKS.BAS
- %INCLUDE 5000
- LPRINTER
- PRINT TAB(3);A$;
- 6010 PRINT TAB(30);
- PRINT USING "#########.##";A1/100;
- PRINT TAB(43);
- PRINT USING "#########.##";A2/100;
- 6020 IF C=1 THEN GOTO 6025 ELSE GOTO 6030
- 6025 PRINT TAB(56);
- PRINT USING "#########.##";(A2-A1)/100
- GOTO 6040
- 6030 PRINT TAB(69);
- PRINT USING "#########.##";(A2-A1)/100
- 6040 FOR X = 1 TO 10
- 6050 R(0,X) = R(0,X) + A1
- R(1,X) = R(1,X) + A2
- 6060 IF C = 1 THEN R(2,X) = R(2,X) + (A2-A1) EGOTO 6510 ELSE GOTO 6540
- 6510 LPRINTER
- PRINT TAB(31);"-----------";TAB(44);"-----------";
- 6520 IF C = 1 THEN PRINT TAB(57); ELSE PRINT TAB(70);
- 6530 PRINT "-----------"
- 6540 IF MID$(C$,1,1) = "0" THEN GOTO 6541 ELSE GOTO 6542
- 6541 PRINT H$ : GOTO 6550
- 6542 PRINT MID$(H$,1,29);
- 6550 IF MID$(C$,1,1) = "0" THEN 6640
- X = VAL(MID$(C$,1,1))
- 6560 PRINT TAB(30);
- PRINT USING "#########.##";R(0,X)/100;
- PRINT TAB(43);
- PRINT USING "#########.##";R(1,X)/100;
- 6570 IF SE GOTO 6700
- 6690 PRINT CHR$(12); : GOTO 6710
- 6700 X = VAL(MID$(C$,2,1))
- IF X=0 THEN 6710
- FOR I = 1 TO X
- PRINT
- NEXT I
- 6710 IF MID$(C$,3,1) = "P" THEN N = A2 - A1
- RETURN
- 7100 READ #FSHEADS.FIL,X+1;\
- H.XE,\
- H$,\
- C$
- 7110 RETURN
- 7200 IF O = 12 THEN O = 0
- 7210 X = O1 + O + 1
- IF X > 12 THEN X = X - 13
- A.XE = A9
- A$ = A9$
- A1 = 0
- 7215 A2 = 0 : A5 = X9
- 7220 A1 = A1 + A(X) : A2 = A2 + A(O1)8040 RETURN
- 9000 H$ = H$ + B$
- 9004 PRINT MID$(H$,1,30);
- 9005.1 IF MID$(C$,7,1) = "S" THEN 9006.1
- IF MID$(C$,7,1) = "D" THEN 9006.1
- GOTO 9010
- 9006.1 PRINT TAB(31);"-----------";TAB(44);"-----------";TAB(70);"-----------"
- 9010 PRINT TAB(30);
- PRINT USING "#########.##";P/100;
- PRINT TAB(43);
- PRINT USING "#########.##";P1/100;
- PRINT TAB(69);
- PRINT USING "#########.##";(P1-P)/100
- 9020 FOR X = 1 TO 10
- 9030 R(0,X) = R(0,X) + P
- R(1,X) = R(繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞REM 070883 - DCF CHANGED L TO L1.XE WHEN READING EARNREC FILE FOR CB80 COMPILE
- REM
- REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
- REM
- REM 062083 - (RCB) CHANGED "R & B" TO "D M S"
- REM
- REM 061783 - DCF FIXED BUG#120-060683 ST.INC.TAX.ATR WAS BEING WRITTEN TO
- REM EARNREC FILE INSTEAD OF VARIABLE ST.INC.TAX.QTR
- REM
- REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
- REM
- REM 042283 - DCF FIXED BUG #39-042183-2-CSS BY CHANGING LOCAL.DED.1 AND 2 TO
- REM O CHECK FOR LOWER CASE M FOR RETURN TO MENU
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM *** 11/11/82 DTK - WRONG CLIENT # GIVES ERROR DF
- REM ***
- REM *** 10/2/82 DTK - ADDED CHECK FOR CLN.FIL BEFORE ASKING
- REM ***
- REM **** CHANGES PAYROLL TAX MAX. % RATES & STARTS NEW P/R'S (PAYROLL)
- REM ****COPYRIGHT 1982 BY- R & B COMPUTER SYSTEMS INC. (VERSION 3.6)
- REM 648 SOUTH RIVER DR. 602-968-7101
- REM
- PRINT TAB(22);"** PAYROLL MENU OPTION #2 **"
- PRINT TAB(26);"ENTER PAYROLL CHECKS" : PRINT
- PRINT " Press RETURN Key to Continue or 'M' to Return to Payroll Menu ";
- FLD.LEN% = 1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$+" ",1))
-
- IF M$="M" THEN 9194
- 99.99 GOSUB 9005 : PRINT
- IF SIZE(FIL$(2)+":"+CLIENT$+"CLN.FIL") <> 0 THEN GOTO 100
- INITIALIZE
- PRINT "INSERT A CLIENT DATA FILE DISK IN DRIVE ";FIL$(2);" (NO WRITE PROTECT TAPE)"
- PRINT " THEN PRESS RETURN "; : GOSUB 9998 : PRINT
- .FLG,PRT.941.FLG :\
- NEW.QTR.FLG = FALSE
- GOSUB 5000 : REM READ CLNRNM.FIL
- 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
- F(0) = TIPS.F.U.I
- F(1) = MEALS.LDG.TO.ST.UNEMP
- F(2) = TIPS.TO.ST.UNEMP
- F(3) = ST.DIS.FLG
- F(4) = MEALS.LDG.TO.SDI
- F(5) = TIPS.TO.SDI
- F(6) = ST.UNEMP.CONT.FLG
- F(7) = FORMAT.1
- F(8) = FORMAT.2
- F(9) = TIP.CONT.SHEET
- XE.riod ended ";
- PRINT MID$(PAY.END.DATE$,1,2);"/";MID$(PAY.END.DATE$,3,2);"/";MID$(PAY.END.DATE$,5,2)
- PRINT
- PRINT TAB(10);"WHICH FUNCTION WOULD YOU LIKE TO PERFORM?"
- PRINT TAB(10);"ENTER 1. If these are Additional Entries to the Above Month,"
- PRINT TAB(10);" 2. If this is a New Month,"
- PRINT TAB(10);" 3. If this is a New Quarter or,"
- PRINT TAB(10);" 4. If this is a New Year,"
- PRINT TAB(10);" 5. If this is a Adjusting Run."
- PRINT " ENTER THE NUMBER LOCAL.WITH.1 AND 2 = 0
- REM
- REM 042183 - DCF CHANGED FLD.LEN%=1 FOR PRESS RETURN TO CONT OR M TO RETURN
- REM TO MENU AND FLD.LEN%=-6 FOR CLIENT NUMBER
- REM
- REM 041983 - DCF FIXED BUG #24-041983-2-IMP THE PROGRAM NOW ALLOWS YOU
- REM TO START A NEW YEAR
- REM
- REM 040883 - DCF ADDED A CHECK FOR VALID NUMBER ENTERED IN MENU OPTION FOR PERIOD
- REM TO ADJUST AND ADDED UCASE$ FOR ENTER DESCIP FOR AN ITEM CHANGE.
- REM
- REM 040783 - DCF ADDED UCASE$ T TEMPE, ARIZ. 85281
- %INCLUDE COMMON.BAS
- J1=0
-
- DIM L(7),F(9)
- FALSE = 0 : TRUE = NOT FALSE
- REM L(1) = MAX FICA WAGES
- REM L(2) = MAX STATE UNEMP
- REM L(3) = MAX FEDERAL UNEMP
- REM L(4) = MAX STATE DISABILITY WAGES
- REM L(5) = EMPLOYEE FICA RATE
- REM L(6) = STATE UNEMP RATE
- REM L(7) = STATE DISABILITY RATE
- L$=""
- FOR X=1 TO 75
- L$= L$ + CHR$(95)
- NEXT X
- PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB(15);" Client Programmed Accounting Ver. ";VERSION$
- PRINT GOTO 99.99
- 100 PRINT "ENTER THE CLIENT NUMBER FROM THE CONTROL SHEET >";
- FLD.LEN% = -6 : GOSUB 9998 : PRINT : R = VAL(REPLY$)
- 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
- READ #CLNRNM.FIL,2;NEW.QTR.FLG,PRT.ERR.FLG,PRT.941.FLG
- IF PRT.ERR.FLG = 0 AND PRT.941.FLG = 0 THEN \
- PRINT #CLNRNM.FIL,2;0,PRT.ERR.FLG,PRT.941.FLG :\
- NEW.QTR.FLG = TRUE :\
- ELSE \
- PRINT #CLNRNM.FIL,2;1,PRT.ERRLOCAL.DESC$ = LOCAL.DESC$
- 150 IF R<>CLIENT.NO THEN \
- PRINT "THE CLIENT NUMBER OF THE DISK IN DRIVE ";FIL$(2);" IS #";CLIENT.NO:\
- PRINT " PLEASE ENTER THE CORRECT NUMBER!":\
- PRINT CHR$(7) :\
- PRINT " PRESS RETURN TO CONTINUE ";:\
- FLD.LEN% = 1 : GOSUB 9998 : PRINT : \
- GOSUB 9005 : CLOSE 2,3 : GOTO 100
- 200 GOSUB 9005 : PRINT : PRINT : PRINT
- PRINT TAB(17);"D M S Client Programmed Accounting"
- PRINT
- PRINT " The previous payroll checks posted were for the peOF THE FUNCTION TO PERFORM >";
- FLD.LEN% = -1 : GOSUB 9998 : PRINT : T = VAL(REPLY$)
- IF T=5 THEN 3000
- IF T=1 THEN 3240
- IF T=2 THEN 270
- IF T=3 THEN 261
- IF T<>4 THEN 259
- GOSUB 5000 : REM READ CLNRNM.FIL INTO VARS
- RUN.NUMBER = 0
- GOSUB 5010 : REM WRITE CLNRNM.FIL
- GOTO 261
- 259 GOSUB 5110
- FOR XE = 1 TO 250 : NEXT XE : GOTO 200
- IF T<3 THEN 270
- 261 IF NEW.QTR.FLG THEN GOTO 269
- GOSUB 9005
- PRINT CHR$(7);"YOU CAN NOT START A NEW QUARTER UNTIL"
- PRINT " THE 941 AND EARNINGS RECORD REPORT HAVE BEEN PRINTED!"
- PRINT "PRESS RETURN TO GOTO PAYROLL MENU";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT
- GOTO 9193
- 269 IF T=4 THEN 370
- 270 X=0
- PRINT : PRINT "WORKING ...."
- 290 IF END #3 THEN 350
- GOSUB 10000
- IF T>=2 THEN \
- REG.WAGES =0 :\
- OVERTIME.WAGES = 0 :\
- MEALS.AND.LODGING = 0:\
- TIPS =0 :\
- FICA =0 :\
- FED.INC.TAX =0 :\
- STATE.INC.TAX =0 :\
- ST.DIS.INS =0 :\
- LOCAL.DED.1 =0 :\
- LOCAL.DED.2 =0 :\
- LOCAL.WITH.1 =0 :\
- LOCAL.WITH. 0 :\
- FED.INC.TAX.YR = 0 :\
- ST.INC.TAX.YR = 0 :\
- ST.DIS.INS.YR = 0 :\
- LOCAL.DED.1.YR = 0 :\
- LOCAL.DED.2.YR = 0 :\
- LOCAL.WITH.1.YR = 0 :\
- LOCAL.WITH.2.YR = 0 :\
- OTHER.DED.YR = 0 :\
- NET.WAGES.YR = 0
- GOSUB 10010
- X=X+1
- GOTO 290
- 350 REM CLOSE FILE - GOSUB 5900
- GOTO 3240
- 370 PRINT CHR$(7)
- PRINT "***WARNING-YOU ARE ABOUT TO ERASE THE EARNINGS TOTALS FOR THE ";
- PRINT "ENTIRE YEAR!"
- PRINT "IS THIS CORRECT? (Y OR N) :"; : FLD.LEN% = 1 : GOSUB 9998 : PRINT
- M$= ;
- FLD.LEN% = -1 : GOSUB 9998 : PRINT : J1 = VAL(LEFT$(REPLY$,1))
- IF J1 < 1 OR J1 > 6 THEN ERR$= "INVALID INPUT - TRY AGAIN!" :\
- GOSUB 2000 : FOR XE.X1 = 1 TO 250 : NEXT XE.X1 : GOSUB 9005 : GOTO 3000
- GOSUB 5000 : REM READ CLNRNM.FIL
- PERIOD.TO.ADJ = J1
- TYPE.OF.RUN = T
- GOSUB 5010 : REM WRITE OUT CLNRNM.FIL
- 3175 CLOSE 2,3
- CHAIN PGM$(2)+":PAYROLL2"
- 3240 GOSUB 9005
- PRINT "THE PAYROLL TAX MAXIMUM WAGES, RATES AND DESCRIPTIONS FOR THIS CLIENT ";
- PRINT "ARE:"
- (40);
- PRINT USING "#,###,###.## \%";L(5)*100
- PRINT " # 7 FEDERAL UNEMP. RATE =";TAB(40);
- PRINT USING "#,###,###.## \%";L(6)*100
- PRINT " # 8 STATE DISAB. INS. RATE =";TAB(40);
- PRINT USING "#,###,###.## \%";L(7)*100
- PRINT " # 9 LOCAL WITHHOLDING #1 : ";TAB(50);LEFT$(LOCAL.DESC$,3)
- PRINT " # 10 LOCAL WITHHOLDING #2 : ";TAB(50);MID$(LOCAL.DESC$,4,3)
- PRINT " # 11 DEDUCTION #1 : ";TAB(50);MID$(LOCAL.DESC$,7,3)
- PRINT " # 12 DEDUCTION #2 : ";TAB(50);MID$(LOCAL.DESC$,10,3)
- 3330 PRINT "DOINT : M$=UCASE$(LEFT$(REPLY$+" ",3))
- LOCAL.DESC$ = LEFT$(LOCAL.DESC$,(L9-9)*3) + M$ \
- + RIGHT$(LOCAL.DESC$,12-3*(L9-8))
- XE.LOCAL.DESC$ = LEFT$(LOCAL.DESC$+" ",12)
- GOSUB 9005 : GOTO 3240
- 3400 GOSUB 5110 : GOTO 3370
- 3410 PRINT "ENTER NEW MAXIMUM OR RATE - DO NOT ENTER COMMAS OR DECIMAL"
- PRINT "FOR MAXIMUMS, BUT DO ENTER DECIMAL FOR RATES >";
- FLD.LEN% = - 9 : GOSUB 9998 : PRINT
- L(L9-1) = VAL(REPLY$)
- IF L9>=5 THEN L(L9-1)=L(L9-1)/100
- GOTO 3240
- 3460 GOSUB 5000 :2 =0 :\
- OTHER.DED =0 :\
- NET.WAGES =0
- IF T>=3 THEN \
- REG.WAGES.QTR = 0 :\
- OVERTIME.QTR = 0 :\
- MEALS.LDG.QTR = 0 :\
- TIPS.QTR = 0 :\
- FICA.QTR = 0 :\
- FED.INC.TAX.QTR = 0 :\
- ST.INC.TAX.QTR = 0 :\
- ST.DIS.INS.QTR = 0 :\
- LOCAL.DED.1.QTR = 0 :\
- LOCAL.DED.2.QTR = 0 :\
- LOCAL.WITH.1.QTR = 0 :\
- LOCAL.WITH.2.QTR = 0 :\
- OTHER.DED.QTR = 0 :\
- NET.WAGES.QTR = 0
- IF T=4 THEN \
- REG.WAGES.YR = 0 :\
- OVERTIME.YR = 0 :\
- MEALS.LDG.YR = 0 :\
- TIPS.YR = 0 :\
- FICA.YR =UCASE$(LEFT$(REPLY$,1))
- IF M$="Y" THEN 270
- IF M$="N" THEN 200
- PRINT CHR$(7);"ENTER Y OR N PLEASE!"
- GOTO 370
- 3000 GOSUB 9005
- PRINT : PRINT
- PRINT " WHICH PERIOD DO YOU WANT TO MAKE ADJUSTMENTS TO:"
- PRINT " 1. Current Period "
- PRINT " 2. Quarter Period"
- PRINT " 3. Year-to-Date Period"
- PRINT " 4. Current\Quarter Periods"
- PRINT " 5. Quarter\Year-to-Date Periods"
- PRINT " ENTER THE NUMBER YOU WOULD LIKE TO ADJUST > "PRINT "ITEM"
- PRINT " # 1 MAXIMUM FICA WAGES =";TAB(40);
- PRINT USING "#,###,###.##";L(0)/100
- PRINT " # 2 MAXIMUM STATE UNEMP. WAGES =";TAB(40);
- PRINT USING "#,###,###.##";L(1)/100
- PRINT " # 3 MAXIMUM FEDERAL UNEMP. WAGES =";TAB(40);
- PRINT USING "#,###,###.##";L(2)/100
- PRINT " # 4 MAXIMUM STATE DISAB. INS. WAGES =";TAB(40);
- PRINT USING "#,###,###.##";L(3)/100
- PRINT " # 5 EMPLOYEE FICA RATE =";TAB(40);
- PRINT USING "#,###,###.## \%";L(4)*100
- PRINT " # 6 STATE UNEMP. RATE =";TAB YOU WANT TO CHANGE A MAXIMUM, RATE OR DESCRIPTION?"
- PRINT " ENTER Y FOR YES OR N FOR NO :";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT : M$=UCASE$(LEFT$(REPLY$,1))
-
- IF M$="Y" THEN 3370
- IF M$="N" THEN 3460
- GOSUB 5110 : GOTO 3330
- 3370 PRINT "ENTER THE NUMBER OF THE ITEM YOU WANT TO CHANGE >";
- FLD.LEN% = -3
- GOSUB 9998 : PRINT : L9=VAL(LEFT$(REPLY$,3))
- IF L9<1 OR L9>12 OR INT(L9)-L9<>0 THEN 3400
- IF L9<9 THEN 3410
- PRINT "ENTER NEW DESCRIPTION (XXX) :";
- FLD.LEN%=4 : GOSUB 9998 : PR REM READ CLNRNM.FIL
- MAX.FICA.WAGES = L(0)
- MAX.ST.UNEMP = L(1)
- MAX.FED.UNEMP = L(2)
- MAX.ST.DIS.WAGES = L(3)
- EMP.FICA.RATE = L(4)
- ST.UNEMP.RATE = L(5)
- FED.UNEMP.RATE = L(6)
- ST.DIS.RATE = L(7)
- LOCAL.DESC$ = XE.LOCAL.DESC$
- TYPE.OF.RUN = T
- GOSUB 5010 :REM WRITE CLNRNM.FIL
- GOSUB 2050
- GOTO 3175
- PRINT " PLEASE CORRECT!"
- PRINT " THEN PRESS RETURN ";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT
- RETURN
- 5110 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
- RETURN
- 5400 PRINT " INSERT A CLIENT DATA DISK IN DRIVE 2 (NO WRITE PROTECT TAPE)"
- RETURN
- 2000.10 IF LEN(X$)=0 THEN 2010
- X=0
- IF LEFT$(X$,1)="Y" THEN 2040
- IF LEFT$(X$,1)="N" THEN 2040
- 2010 PRINT REVLF$;
- PRINT " ";
- PRINT " " : PRINT REVLF$;
- X=-1
- 2040 RETURN
- 2050 GOSUB 9005
- PRINT : PRINT : PRINT
- PRINT "DO YOU WANT TO CHANGE THE EARNINGS CATEGORIES SUBJECT TO STATE AND "
- 2070 PRINT "FEDERAL UNEMPLOLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
- GOSUB 2000.10
- IF X=-1 THEN 2170
- IF X$="Y" THEN F(1)=5 \
- ELSE F(1)=7
- 2200 PRINT "DO YOU WANT TIPS SUBJECT TO STATE UNEMPLOYMENT :";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
- GOSUB 2000.10
- IF X=-1 THEN 2200
- IF X$="Y" THEN F(2)=5 \
- ELSE F(2)=7
- 2230 PRINT "DO YOU HAVE STATE DISABILITY INSURANCE FOR THIS CLIENT:";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
- GOSUB 2=7
- 2320 GOSUB 9005
- GOSUB 2330 : GOTO 2499
- 2330 REM
- PRINT " THESE WAGE CATEGORIES ARE SUBJECT TO STATE UNEMPLOYMENT :"
- PRINT MID$(L$,1,67)
- PRINT "REGULAR WAGES OVERTIME & BONUSES";
- IF F(1)=5 THEN PRINT " MEALS AND LODGING";
- IF F(2)=7 THEN 2390
- PRINT " TIPS";
- 2390 PRINT : PRINT
- IF F(3)=7 THEN 2480
- PRINT " THESE WAGE CATEGORIES ARE SUBJECT TO STATE DISABILITY :"
- PRINT MID$(L$,1,67)
- PRINT "REGULAR WAGES OVERTIME & BONUSES";
- IF F(4)=5 THEN PRI IF X$="Y" THEN 2520
- GOSUB 9005 : PRINT : PRINT
- GOTO 2110
- 2520 GOSUB 9005 : PRINT : PRINT : PRINT
- PRINT "DO YOU WANT TO CUSTOMIZE THE STATE UNEMPLOYMENT CONTINUATION SHEET"
- 2523 PRINT "FOR THIS CLIENT'S STATE :";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
- GOSUB 2000.10
- IF X=-1 THEN 2523
- IF X$="N" THEN 2830
- 2530 PRINT"DO YOU WANT AN UNEMP. TAX CONTINUATION SHEET FOR THIS CLIENT: ";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
- );G$
- PRINT : PRINT : PRINT
- RETURN
- 2655 D$="*********" : E$=D$ : F$="FIELD #1" : G$="FIELD #2" : H$=" "
- GOSUB 2560
- 2660 PRINT " (A): ";
- PRINT "FIELD #1 SHOULD BE:"
- PRINT "(1:TAXABLE WAGES 2:EXCESS WAGES ";
- PRINT "3:GROSS WAGES 4:UNUSED 5:FICA WAGES) >";
- FLD.LEN%= -1 : GOSUB 9998 : PRINT : X = VAL(REPLY$)
- IF X=1 OR X=2 OR X=3 OR X=4 OR X=5 THEN 2690
- GOSUB 2010
- GOTO 2660
- 2690 IF X=1 THEN F(7)=5
- IF X=2 THEN F(7)=7
- IF X=3 THEN F(7)=3
- IF X=4 THEN F(7)=9
- IYMENT AND STATE DISABILITY INSURANCE? (Y OR N) :";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
- GOSUB 2000.10
- IF X=-1 THEN 2070
- IF X$="N" THEN 2520
- GOSUB 9005
- 2110 GOSUB 2330
- 2152 PRINT "DO YOU WANT TIPS SUBJECT TO FEDERAL UNEMPLOYMENT :";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
- GOSUB 2000.10
- IF X=-1 THEN 2152
- IF X$="Y" THEN F(0)=5 \
- ELSE F(0)=7
- 2170 PRINT"DO YOU WANT MEALS AND LODGING SUBJECT TO STATE UNEMPLOYMENT :";
- F000.10
- IF X=-1 THEN 2230
- IF X$="Y" THEN F(3)=5 \
- ELSE F(3)=7
- IF X$="N" THEN 2320
- 2270 PRINT "DO YOU WANT MEALS AND LODGING SUBJECT TO SDI :";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
- GOSUB 2000.10
- IF X=-1 THEN 2270
- IF X$="Y" THEN F(4)=5 \
- ELSE F(4)=7
- 2300 PRINT "DO YOU WANT TIPS SUBJECT TO SDI :";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
- GOSUB 2000.10
- IF X=-1 THEN 2300
- IF X$="Y" THEN F(5)=5 \
- ELSE F(5)NT " MEALS AND LODGING";
- IF F(5)=5 THEN PRINT " TIPS";
- PRINT : PRINT
- GOTO 2490
- 2480 PRINT " ***** STATE DIS. INS. IS NOT BEING USED *****"
- PRINT
- 2490 IF F(0)=5 THEN PRINT " ***** TIPS ARE SUBJECT TO FEDERAL UNEMPLOYMENT *****"
- IF F(0) <> 5 THEN PRINT " ***** TIPS ARE NOT SUBJECT TO FED. UNEMP. *****"
- PRINT : PRINT
- RETURN
- 2499 PRINT "IS THIS CORRECT :"; : FLD.LEN% = 1 : GOSUB 9998 : PRINT
- X$=UCASE$(LEFT$(REPLY$,1))
- GOSUB 2000.10
- IF X=-1 THEN 2499
- GOSUB 2000.10
- IF X=-1 THEN 2530
- IF X$="N" THEN F(6)=7 \
- ELSE F(6)=5
- IF X$="N" THEN 2830
- GOTO 2655
- 2560 GOSUB 9005 : PRINT : PRINT
- PRINT TAB(10);C9$;TAB(60);
- PRINT USING "#######";CLIENT.NO
- PRINT TAB(20);"SAMPLE";H$,"UNEMPLOYMENT CONTINUATION SHEET" : PRINT
- PRINT TAB(2);"SOC. SEC. NUMBER";TAB(22);"NAME";TAB(48);D$;
- PRINT TAB(64);E$
- PRINT LEFT$(L$,75);LEFT$(L$,5)
- PRINT : PRINT
- PRINT TAB(2);"XXX-XX-XXXX";TAB(22);"LAST NAME, FIRST NAME";TAB(48);F$;
- PRINT TAB(64F X=5 THEN F(7)=1
- PRINT
- 2710 PRINT " (B): ";
- PRINT "FIELD #2 SHOULD BE:" : PRINT "(1:TAXABLE WAGES 2:EXCESS WAGES ";
- PRINT "3:GROSS WAGES 4:UNUSED 5:FICA WAGES) >";
- FLD.LEN%= -1 : GOSUB 9998 : PRINT : X = VAL(REPLY$)
- IF X=1 OR X=2 OR X=3 OR X=4 OR X=5 THEN 2740
- GOSUB 2010
- GOTO 2710
- 2740 IF X=1 THEN F(8)=5
- IF X=2 THEN F(8)=7
- IF X=3 THEN F(8)=3
- IF X=4 THEN F(8)=9
- IF X=5 THEN F(8)=1
- IF F(7)=5 THEN D$="TAXABLE WAGES"
- IF F(7)=7 THEN D$="EXCESS WAGES"
- IF F(7)=9 THEN D$=" "
- IF F(7)=9 THEN F$=" "
- IF F(7)=3 THEN D$="GROSS WAGES"
- IF F(7)=1 THEN D$="FICA WAGES"
- IF F(8)=5 THEN E$="TAXABLE WAGES"
- IF F(8)=7 THEN E$="EXCESS WAGES"
- IF F(8)=9 THEN E$=" "
- IF F(8)=9 THEN G$=" "
- IF F(8)=3 THEN E$="GROSS WAGES"
- IF F(8)=1 THEN E$="FICA WAGES"
- GOSUB 2560
- 2750 PRINT "IS THIS CORRECT :";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
- GOSUB 2000.10
- IF X=-1 THEN 2750
- IF X$="N" THEN 2655
- 2760 PRINT "DO YOU WANT A SEPA E$="TOTAL TIPS"
- IF X=1 THEN F(9)=5 ELSE F(9)=7
- GOSUB 2560
- 2808 PRINT "IS THIS CORRECT :";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
- GOSUB 2000.10
- IF X=-1 THEN 2808
- IF X$="N" THEN 2775
- GOTO 2830
- 2820 F(9)=9
- 2830 GOSUB 5000 : REM READ CLNRNM.FIL
- TIPS.F.U.I = F(0)
- MEALS.LDG.TO.ST.UNEMP = F(1)
- TIPS.TO.ST.UNEMP = F(2)
- ST.DIS.FLG = F(3)
- MEALS.LDG.TO.SDI = F(4)
- TIPS.TO.SDI = F(5)
- ST.UNEMP.CONT.FLG = F(6)
- FORMAT.1 = F(7)
- FORMAT.2 = F(8)
- TIP.EMP.RATE,\
- FED.UNEMP.RATE,\
- ST.DIS.RATE,\
- LOCAL.DESC$,\
- TYPE.OF.RUN,\
- TIPS.F.U.I,\
- MEALS.LDG.TO.ST.UNEMP,\
- TIPS.TO.ST.UNEMP,\
- ST.DIS.FLG,\
- MEALS.LDG.TO.SDI,\
- TIPS.TO.SDI,\
- ST.UNEMP.CONT.FLG,\
- FORMAT.1,\
- FORMAT.2,\
- TIP.CONT.SHEET,\
- RESERVED,\
- SERIAL.NUMBER
- RETURN
- 5010 REM ************************** ROUTINE TO WRITE CLNRNM.FIL
- PRINT #CLNRNM.FIL,1; \
- CLIENT.NO,\
- CLIENT.NAME$,\
- GL.END.DATE$,\
- PAY.END.DATE$,\
- FISCAL.END.MO,\
- A9.III,\AME$,\
- 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, 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,\
- RATE CONTINUATION SHEET FOR TIPS :";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
- GOSUB 2000.10
- IF X=-1 THEN 2760
- IF X$="N" THEN 2820
- 2775 D$=" " : E$="*********" : H$=" TIP " : F$=" " : G$="FIELD #1"
- GOSUB 2560
- 2790 PRINT "SHOULD TIPS ON CONT. SHEET BE (1:TAXABLE TIPS 2:TOTAL TIPS) >";
- FLD.LEN% = -1 : GOSUB 9998 : PRINT : X = VAL(LEFT$(REPLY$,1))
- IF X=1 OR X=2 THEN 2802
- GOSUB 2010
- GOTO 2790
- 2802 D$=" " : E$="TAXABLE TIPS" : F$=" "
- IF X=2 THENCONT.SHEET = F(9)
- GOSUB 5010 : REM WRITE CLNRNM.FIL
- RETURN
- 9193 REM ************************** ERRORED OUT SO BACK TO PMENU
-
- CLOSE 2,3
- 9194 CHAIN PGM$(2)+":PMENU"
- 5000 REM ************************** ROUTINE TO READ CLNRNM.FIL
- READ #CLNRNM.FIL,1; \
- CLIENT.NO,\
- CLIENT.NAME$,\
- GL.END.DATE$,\
- PAY.END.DATE$,\
- FISCAL.END.MO,\
- A9.III,\
- PERIOD.TO.ADJ,\
- RUN.NUMBER,\
- MAX.FICA.WAGES,\
- MAX.ST.UNEMP,\
- MAX.FED.UNEMP,\
- MAX.ST.DIS.WAGES,\
- EMP.FICA.RATE,\
- ST.UN
- PERIOD.TO.ADJ,\
- RUN.NUMBER,\
- MAX.FICA.WAGES,\
- MAX.ST.UNEMP,\
- MAX.FED.UNEMP,\
- MAX.ST.DIS.WAGES,\
- EMP.FICA.RATE,\
- ST.UNEMP.RATE,\
- FED.UNEMP.RATE,\
- ST.DIS.RATE,\
- LOCAL.DESC$,\
- TYPE.OF.RUN,\
- TIPS.F.U.I,\
- MEALS.LDG.TO.ST.UNEMP,\
- TIPS.TO.ST.UNEMP,\
- ST.DIS.FLG,\
- MEALS.LDG.TO.SDI,\
- TIPS.TO.SDI,\
- ST.UNEMP.CONT.FLG,\
- FORMAT.1,\
- FORMAT.2,\
- TIP.CONT.SHEET,\
- RESERVED,\
- SERIAL.NUMBER
- RETURN
- 10000 READ #EARNREC.FIL,X+1; \
- EMP.NO,\
- EMP.N\
- 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
- 10010 PRINT #EARNREC.FIL,X+1; \
- EMP.NO,\
- EMP.NAME$,\
- STR.ADDR$,\
- CITY.ST.ZIP$,\
- SSN$,\
- REG.WAGES ,\
- OVERTIME.WAGES ,\
- MEALS.AND.LODGING ,\
- 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,\
- 0
-
- RETURN
- %INCLUDE NFLANKS.BAS
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞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 020883 DCF - CHANGED PROMPT FROM INSERT CPA PROGRAM TO INSERT PROGRAM
- REM WITH UTILITIES MENU
- REM
- REM 020883 DCF - CHANGED ALL PRINT CLR$ TO GOSUB 9005 AND 3.6 TO VERSION$
- REM
- REM 092382 DCF - FUDGED BACK WITH @ ,ENTERED PROMPT FOR WHERE Y-T-D FILES Aro Systems, Inc. "
- PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
- PRINT
- PRINT TAB(29);"MENU OPTION #4"
- PRINT TAB(11);"TRANSFER CURRENT TRANSACTIONS TO YEAR-TO-DATE FILE" : PRINT
- PRINT TAB(5);"Press RETURN Key to Continue or 'M' to Return to Utilities Menu";
- FLD.LEN%=1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$,1))
- IF M$="M" THEN 5230
- GOSUB 9005
-
- 1400 PRINT " This program can copy the current transactions from a current"
- PRINT " cLEFT$(REPLY$,1))
- IF X$="M" THEN 5230
- 3200 GOSUB 9005
- PRINT "ENTER THE YEAR-TO-DATE CLIENT ID >";:FLD.LEN%=5 : GOSUB 9998 : PRINT : NID$=LEFT$(REPLY$,5)
- NID$=LEFT$(NID$ + "@@@@@",5)
- PRINT "ENTER THE YEAR-TO-DATE CLIENT NUMBER >";:FLD.LEN%=-6 : GOSUB 9998 : PRINT : X1=VAL(REPLY$)
- OPEN FIL$(2) +":"+ CLIENT$ + "CLN.FIL" RECL 255 AS 1 :CLNRNM.FIL=1
- GOSUB 5000
-
- REM READ SECOND RECORD
- READ #CLNRNM.FIL,2;\
- NEW.QTR.FLG,\
- PRT.ERR)
- CLOSE 1
- GOSUB 9005
- GOTO 3200
- 3201 CLOSE 1
- INITIALIZE
- PRINT
- PRINT "NORMALLY THE PROCEDURE IS TO REMOVE THE PROGRAM DISK FROM DRIVE ";PGM$(4)
- PRINT "AND REPLACE IT WITH THE YEAR-TO-DATE CLIENT DISK."
- PRINT "IF THE DISK IS NOT IN THE DRIVE - PLEASE INSERT THE DISK AT THIS TIME!"
- PRINT "THEN ENTER THE DRIVE WHERE THE YEAR-TO-DATE FILES ARE > ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : DESTINATION$=LEFT$(REPLY$,1)
- INITIALIZE
- 3500 IF END # TRANSACTIONS
- 4700 YTD.PTR=1
-
- IF END #4 THEN 5002
- 4705 READ #4,YTD.PTR;\
- TRAN.ACT.NO.YTD,\
- TRAN.AMT.YTD,\
- TRANS.DT.REF.DESCRIP.YTD$
- YTD.PTR=YTD.PTR+1
- IF TRAN.ACT.NO.YTD = 9999999.99 THEN 5001
- GOTO 4705
- 5001 YTD.PTR=YTD.PTR-1
- 5002 IF TRAN.ACT.NO = 9999999.99 THEN 5200
- READ #TRINFO.FIL;\
- TRAN.ACT.NO,\
- TRAN.AMT,\
- TRANS.DT.REF.DESCRIP$
- TRAN.ACT.NO.YTD=TRAN.ACT.NO
- RE
- REM
- REM 091882 DCF - REMOVED YTD FILES, CREATE A NEW CLIENT ID TO IDENTIFY YTD FILES
- REM
- REM 091582 DCF - TOOK OUT PROMPTS WHICH DID NOT APPLY
- REM REPLACED DISK #'S WITH FIL$(1)
- REM
- REM *** TRANSFERS CURRENT TRANSACTIONS TO A YTD FILE (YTDTRANS)
- REM *** COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS INC.
- REM *** 648 SOUTH RIVER DRIVE 602-968-7101
- REM *** TEMPE, AZ 85281
- %INCLUDE COMMON.BAS
- 500 GOSUB 9005
- PRINT
- PRINT TAB(23);"Dimis Miclient data file to a special year-to-date client data file."
- PRINT " This year-to-date client data file can then be used to produce"
- PRINT " a year-to-date general ledger and print year-to-date transaction lists"
- PRINT " by journal number and,/or be used by other utility disk operations, "
- PRINT " such as display a year-to-date account status." : PRINT
- 3170 PRINT" Press Any Key To Continue Or 'M' To Return To Utilities Menu ";:FLD.LEN%=0 : GOSUB 9998 : X$=UCASE$(.FLG,\
- PRT.941.FLG
- REM READ THIRD RECORD
- READ #CLNRNM.FIL,3;\
- CLIENT.NAME$,\
- CLIENT.ADDR.1$,\
- CLIENT.ADDR.2$,\
- CLIENT.CITY.STATE$,\
- CLIENT.ZIP$
- REM READ FOURTH RECORD
- READ #CLNRNM.FIL,4;\
- CLIENT.TAX.NUMBER$
-
- IF X1=CLIENT.NO THEN 3201
- PRINT "THE INCORRECT CLIENT YEAR-TO-DATE NUMBER WAS ENTER - PRESS RETURN " ;:FLD.LEN%=1 : GOSUB 9998 : PRINT : RE$=LEFT$(REPLY$,14 THEN 4420
- OPEN DESTINATION$ + ":" + NID$ + "TRI.FIL" RECL 68 AS 4 : TRINFO.YTD=4
-
- 4415 OPEN FIL$(5) +":"+ CLIENT$ + "TRI.FIL" RECL 68 AS 3 : TRINFO.FIL=3
- GOTO 4430
- 4420 PRINT " INSERT THE YEAR-TO-DATE CLIENT DISK IN DRIVE ";DESTINATION$
- PRINT " THEN PRESS RETURN ";:FLD.LEN%=1 : GOSUB 9998 : R$=LEFT$(REPLY$,1)
- GOTO 3201
- 4430 GOSUB 9005
- X%=32 : Y%=32 : GOSUB 9006
- PRINT " WORKING . . . "
-
- 4510 REM READING CURRENT YEAR-TO-DATE TRAN.AMT.YTD=TRAN.AMT
- TRANS.DT.REF.DESCRIP.YTD$=TRANS.DT.REF.DESCRIP$
-
- GOSUB 5120
- GOTO 5002
-
- 5120 PRINT #4,YTD.PTR;\
- TRAN.ACT.NO.YTD,\
- TRAN.AMT.YTD,\
- TRANS.DT.REF.DESCRIP.YTD$
- YTD.PTR = YTD.PTR + 1
- RETURN
-
- 5200 CLOSE TRINFO.FIL
- CLOSE 4
- 5205 GOSUB 9005 : PRINT : PRINT : PRINT : INITIALIZE
- PRINT " THE TRANSACTIONS ARE ALL TRANSFERRED"
- 5210 PRINT " REMOVE THE YEAR-TO-DATE DISK FROM DRIVE "; DESTINATION$
- PRINT " AND INSERT THE PROGRAM DISK WITH UTILITES MENU IN DRIVE "; PGM$(4)
- PRINT " THEN PRESS RETURN ";:FLD.LEN%=2 : GOSUB 9998 : X=VAL(REPLY$)
- 5230 INITIALIZE
- CONSOLE
- CHAIN PGM$(4) + ":" + "UMENU"
-
- %INCLUDE NFLANKS.BAS
- %INCLUDE 5000
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞REM 101983 - (RCB) FIXED TO WORK ON 80 COLLUME PRINTER - CB0003JNY
- REM
- REM 071783 - DCF TOOK LINE NUMBERS OFF REM STATEMENTS FOR CB80 COMPILE
- REM
- 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 *** CONTRACT PAYABLE SCHEDULE (CONTPAY)
- REM *** COPYRIGHT 1982 BY - Dimis Micro Systems, Inc.
- REM ***40 PRINT " THE RULE OF 78'S FOR INTEREST" : PRINT
- 150 PRINT"ENTER THE PAYEE (40X) : ";: FLD.LEN%=40 : GOSUB 9998 : PRINT : B$=LEFT$(REPLY$,40)
- 160 PRINT"ENTER THE PAYOR (40X) : ";: FLD.LEN%=40 : GOSUB 9998 : PRINT : Q$=LEFT$(REPLY$,40)
- 170 PRINT"ENTER THE TOTAL NUMBER OF PAYMENTS > ";: FLD.LEN%=-8 : GOSUB 9998 : PRINT : N=VAL(REPLY$)
- 175 IF N>=1 AND N-INT(N)=0 THEN 180
- 176 GOSUB 1900 : GOTO 170
- 180 PRINT "ENTER: 1 For Annual Payments"
- 181 PRINT " 2 For Semiannual Payments"
- 182 PRINT " SE$(LEFT$(REPLY$,1))
- 220 IF R$="Y" THEN 240
- IF R$="N" THEN 350
- 230 GOSUB 1900 : GOTO 210
- 240 PRINT"ENTER MONTH NUMBER (1-12) TO PRINT TOTALS AFTER > ";:FLD.LEN%=-2 : GOSUB 9998 : PRINT :X1=VAL(REPLY$)
- 250 IF X1<=12 AND X1>=1 AND X1-INT(X1)=0 THEN 350
- 255 GOSUB 1900 : GOTO 240
- 350 PRINT "DO NOT ENTER DECIMAL POINT BETWEEN DOLLARS & CENTS!"
- 360 INPUT "ENTER THE PRINCIPAL AMOUNT > ";X$
- BE%=0 : GOSUB 3000 : IF BE%=1 THEN 350
- PRINT : T=VAL(X$)
- 365 IF T-INT(T)=0 AND T>0 AND T<10000000INT USING "$$###,###,###.##";T/100
- 440 PRINT "TOTAL INTEREST CHARGES";TAB(25);
- PRINT USING "#####.##";I/100
- 450 PRINT "PAYMENT AMOUNT";TAB(25);
- PRINT USING "$$###,###,###.##";A/100
- 455 PRINT "PAYMENTS PER YEAR";TAB(25);
- PRINT USING "#####";F
- 457 PRINT "SUBTOTALS AFTER MONTH #";
- PRINT TAB(25);
- PRINT USING "#####";X1
- 460 PRINT "NUMBER OF PAYMENTS";
- PRINT TAB(25);
- PRINT USING "#####";N : P=P+11
- 470 PRINT : PRINT
- 480 PRINT "PAYMENT DUE DATE";TAB(32);"TOTAL";
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞
- %INCLUDE COMMON.BAS
- 70 GOSUB 9005
- PRINT
- 72 PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
- PRINT
- 75 PRINT TAB(29);"MENU OPTION #1"
- 80 PRINT TAB(23);"CONTRACT PAYABLE SCHEDULES" : PRINT
- 100 PRINT TAB(5);"Press RETURN Key to Continue or 'M' to Return to Utilities Menu";
- FLD.LEN%=1 : GOSUB 9998 : X$=UCASE$(LEFT$(REPLY$,1))
- IF X$="M" THEN 890
- GOSUB 9005
- 130 PRINT "THIS PROGRAM CAN PRINT A PAYMENT SCHEDULE USING"
- 1 4 For Quarterly Payments"
- 183 PRINT" 12 For Monthly Payments > ";: FLD.LEN%=-2 : GOSUB 9998 : PRINT : F=VAL(REPLY$)
- 190 IF F=1 OR F=2 OR F=4 OR F=12 THEN 200
- 191 GOSUB 1900 : GOTO 180
- 200 PRINT"ENTER THE DUE DATE OF THE FIRST PAYMENT MMDDYEAR > ";:FLD.LEN%=-8 : GOSUB 9998 : PRINT :M=VAL(LEFT$(REPLY$,2)):
- D=VAL(MID$(REPLY$,3,2)) : Y=VAL(MID$(REPLY$,5,4))
- 205 GOSUB 2000.1
- IF E=1 THEN 200
- 210 PRINT"DO YOU WANT ANNUAL SUBTOTALS (Y OR N) : ";: FLD.LEN%=1 :GOSUB 9998 : PRINT :R$=UCA000 THEN 370
- 366 GOSUB 1900 : GOTO 360
- X$=""
- 370 INPUT "ENTER THE PAYMENT AMOUNT > ";X$
- BE%=0 : GOSUB 3000
- IF BE%=1 THEN PRINT "DO NOT ENTER DECIMAL POINTS BETWEEN DOLLARS $ CENTS" : GOTO 370
- PRINT : A=VAL(X$)
- 375 IF A-INT(A)=0 AND A>0 AND A<10000000000 THEN 390
- 376 GOSUB 1900 : GOTO 370
- 390 I=(N*A)-T : GOTO 560
- 400 LPRINTER
- 401 PRINT "CONTRACT PAYABLE SCHEDULE" : PRINT
- 410 PRINT "PAYEE:";
- PRINT TAB(28);B$
- 420 PRINT "PAYOR:";TAB(28);Q$
- 430 PRINT "BEGINNING BALANCE";TAB(25);
- PR PRINT TAB(43);"INTEREST";
- 490 PRINT TAB(56);"PRINCIPAL";
- PRINT TAB(72);"BALANCE"
- 500 PRINT "NUMBER DATE PAID";
- PRINT TAB(30);
- PRINT "PAYMENT";
- PRINT TAB(44);"PAYMENT";
- 510 PRINT TAB(58);"PAYMENT";
- PRINT TAB(76);"DUE"
- 520 PRINT "--------------------------------------------";
- 530 PRINT "----------------------------------"
- 540 PRINT "BEGINNING BALANCE";
- PRINT TAB(63);
- PRINT USING "$$###,###,###.##";T/100 : P=P+6 : RETURN
- 560 GOSUB 400
- 570 Z1=N*(N+1)/2
- 590 F=12/F : X1=Y+.01*X1
- IF Y+.01*M>X1 THEN X1=X1+1
- 620 FOR K=1 TO N
- 630 IF K=N THEN I3=A-T ELSE I3=INT(((N-K+1)/Z1)*I+.5)
- 695 P1=A-I3 : T=T-P1
- 700 PRINT "#";
- PRINT USING "###";K;
- PRINT " ";
- PRINT USING "##";M;
- PRINT "/";
- 710 IF M=4 OR M=6 OR M=9 OR M=11 THEN GOTO 715 ELSE GOTO 730
- 715 IF D<=30 THEN 730
- 720 PRINT USING "##";30; : GOTO 770
- 730 IF M<>2 THEN 760
- 740 IF((Y-1904)/4)-(INT((Y-1904)/4))=0 THEN GOTO 745 ELSE GOTO 755
- 745 IF D>28 THEN PRINT USING "##";29; ELSE GOTO 760
- 7E.M=M : XE.F=F : XE.Y=Y
- XE.M=XE.M+XE.F
- IF XE.M<=12 THEN 813
- XE.M=XE.M-12 : XE.Y=XE.Y+1
- 813 Z5=XE.Y+.01*XE.M
- 814 IF Z5<=X1 THEN 820
- 815 PRINT TAB(25);"------------ ------------ ------------"
- 817 PRINT"ANNUAL SUBTOTALS";TAB(23);
- PRINT USING "###,###,###.##";Q3/100;
- PRINT USING "###,###,###.##";Q1/100;
- PRINT USING "###,###,###.##";Q2/100
- 818 Q1=0 : Q2=0 : Q3=0 : PRINT : P=P+3 : X1=X1+1
- 820 IF P<60 THEN 840
- 830 P=0 : PRINT CHR$(12); : GOSUB 470
- 840 M=M+F
- IF M<=12 T : RETURN
- 2000.1 E=0
- 2005 IF M-INT(M)<>0 OR M<1 OR M>12 THEN 2400
- IF D-INT(D)<>0 OR D<1 OR D>31 THEN 2400
- IF Y-INT(Y)<>0 THEN 2400
- IF Y<1901 OR Y>2099 THEN 2400
- IF (Y-1904)/4-INT((Y-1904)/4)=0 THEN 2020
- IF M=2 AND D>28 THEN GOTO 2400 ELSE GOTO 2030
- 2020 IF M=2 AND D>29 THEN 2400
- 2030 IF M<>4 AND M<>6 AND M<>9 AND M<>11 THEN 2420
- 2040 IF D<=30 THEN 2420
- 2400 PRINT "INVALID DATE - TRY AGAIN!"
- 2410 E=1
- 2420 RETURN
- REM*** DECIMAL ENTRY TRAP added 2/6/84 JB ***
- 3000 FOR IREM 101983 - (RCB) CHANGED CONTINOUS TO CONTINUOUS - CB0001JNY
- REM
- REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
- REM
- REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
- REM
- REM 042183 - DCF CHANGED FLD.LEN%=1 FOR M TO RETURN TO MENU
- REM
- REM 042183 - DCF FIXED BUG #37-041983-3-CJM BY TAKING OFF THE +1 IN THE
- REM FOR NEXT LOOP FOR PRINTING OF THE LABELS
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- RE6"
- PRINT TAB(26);"PRINTS ADDRESS LABELS"
- PRINT
- 120 PRINT TAB(5);"Press RETURN Key to Continue or 'M' to Return to Utilities Menu";
- FLD.LEN%=1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$,1))
- IF M$="M" THEN 850
- GOSUB 9005
- PRINT
- PRINT "THIS PROGRAM REQUIRES THE USE OF CONTINUOUS FORM ADDRESS LABELS"
- 150 PRINT"ENTER THE NUMBER OF LABELS ACROSS A SHEET >";
- FLD.LEN%= -1 : GOSUB 9998 : PRINT : P1=VAL(REPLY$)
- IF P1-INT(P1)=0 AND P1>0 AND P1<8 THEN 180
- GOSUB 860
- GOTO 150
- 50 GOTO 770
- 755 IF D>27 THEN PRINT USING "##";28; ELSE GOTO 760
- 757 GOTO 770
- 760 PRINT USING "##";D;
- 770 PRINT "/";
- PRINT USING "####";Y;
- PRINT " -------";
- 780 PRINT TAB(24);
- PRINT USING "##,###,###.##";A/100;
- PRINT USING "###,###,###.##";I3/100;
- PRINT USING "###,###,###.##";P1/100;
- PRINT USING "###,###,###.##";T/100 : P=P+1
- 800 I4=I4+I3 : P2=P2+P1 : A2=A2+A
- 810 Q1=Q1+I3 : Q2=Q2+P1 : Q3=Q3+A
- 811 IF X$="N" THEN 820
- IF F=12 THEN 820
- 812 IF K=N THEN 815
- XTHEN 845
- 841 M=M-12 : Y=Y+1
- 845 NEXT K
- 850 PRINT "=============================================";
- 860 PRINT "================================="
- 870 PRINT "TOTALS";TAB(23);
- PRINT USING "###,###,###.##";A2/100;
- PRINT USING "###,###,###.##";I4/100;
- PRINT USING "###,###,###.##";P2/100
- 880 PRINT CHR$(12);
- CONSOLE
- 890 CHAIN PGM$(4) + ":" + "UMENU"
- 1900 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!" : RETURN
- 1910 PRINT"PLEASE CORRECT - THEN PRESS RETURN!";: FLD.LEN%=2 : GOSUB 9998 : PRIN = 1 TO LEN(X$)
- IF MID$(X$,I,1) = "." THEN PRINT CHR$(7) : BE%=1
- NEXT I
- RETURN
- %INCLUDE NFLANKS.BAS
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞M *** ADDRESS LABELS PROGRAM (LABELS)
- REM *** COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS INC.
- REM *** 648 SOUTH RIVER DR. 602-968-7101
- REM *** TEMPE, AZ. 85281
- %INCLUDE COMMON.BAS
- DIM LABEL$(20)
- BLANK$=" "
- GOSUB 9005
- PRINT
- PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
- PRINT
- PRINT TAB(29);"MENU OPTION #
- 180 PRINT "ENTER THE NUMBER OF CHARACTERS IN ONE LINE OF A LABEL;"
- PRINT" (10 CHARACTERS PER INCH) >";:FLD.LEN%=-3 : GOSUB 9998 : PRINT :P2=VAL(REPLY$)
- IF P2-INT(P2)=0 AND P2>0 AND P2<133 THEN 220
- GOSUB 860
- GOTO 180
- 220 PRINT"ENTER THE NUMBER OF LINES PER LABEL (6 LINES PER INCH) >";
- FLD.LEN%=-2 : GOSUB 9998 : PRINT :P3=VAL(REPLY$)
- IF P3-INT(P3)=0 AND P3>0 AND P3<66 THEN 240
- 240 PRINT
- PRINT "ENTER Y FOR YES OR N FOR NO:"
- PRINT "YOU ARE SET UP FOR";P1;" LABELS ACROSS A PAGE;";P2;" CHARACTERS PER LINE,"
- PRINT " AND";P3;" LINES PER LABEL."
- PRINT"IS THIS CORRECT? :";
- FLD.LEN%=1 : GOSUB 9998 : PRINT : X$=UCASE$(LEFT$(REPLY$,1))
- IF X$="Y" THEN 300
- IF X$="N" THEN 120
- GOSUB 860
- GOTO 240
- 300 FOR X=1 TO P3
- PRINT USING "ENTER LINE \### LABEL";X
- 315 PRINT":";
- FLD.LEN%=132 : GOSUB 9998 : M$=LEFT$(REPLY$+BLANK$,P2)
- IF LEN(M$)<=P2 THEN 320
- PRINT CHR$(7);"THE LAST LINE WAS";LEN(M$)-P2," CHARACTER TOO LONG - TRY AGAIN!"
- GOTO 310 PRINT
- PRINT"MAKE ALIGNMENT ADJUSTMENTS, THEN PRESS RETURN ";
- FLD.LEN%=2:GOSUB 9998:PRINT
- GOTO 360
- 440 PRINT"ENTER THE NUMBER OF LABELS YOU WANT PRINTED >";
- FLD.LEN%=-4 : GOSUB 9998 : PRINT : P4=VAL(REPLY$)
- IF P4-INT(P4)=0 AND P4>0 AND P4<1000 THEN 470
- GOSUB 860
- GOTO 440
- 470 LPRINTER
- FOR Y=1 TO (P4/P1)
- FOR X=1 TO P3
- FOR X1=1 TO P1
- PRINT LABEL$(X);
- NEXT X1
- PRINT
- NEXT X
- NEXT Y
- 850 CONSOLE
- CHAIN PGM$(4) + ":" + "UMENU"REM 071783 - DCF TOOK LINE NUMBERS OFF REM STATEMENTS
- REM CHANGED PRINT ; TO PRINT; FOR CB80 COMPILE
- REM
- REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
- REM
- REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
- REM
- REM 041283 DCF CHANGED FLD.LEN= -2 TO FLD.LEN%=-2 IN LINE 354
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM *** NOTE PAYABLE SCHEDULE (NOTEPAY)
- REM *** COPYRIGHLY$,1))
- IF M$="M" THEN 780
- 106 PRINT "SET THE PRINTER AND PAPER" :
- PRINT" THEN PRESS RETURN "; : FLD.LEN%=1 : GOSUB 9998 : PRINT
- GOSUB 9005
- 108 PRINT "THIS PROGRAM CAN CALCULATE PAYMENT AMOUNT AND PRINT A PAYMENT"
- PRINT " SCHEDULE USING SIMPLE INTEREST" : PRINT
- 110 PRINT"ENTER THE PAYEE (40X) > "; : FLD.LEN%=40 : GOSUB 9998 : PRINT
- PAYEE.NAME$=LEFT$(REPLY$,40)
- PRINT"ENTER THE PAYOR (40X) > "; : FLD.LEN%=40 : GOSUB 9998 : PRINT
- PAYINT(NUM.PAY)=0 AND NUM.PAY>0 THEN 190
- 182 GOSUB 1900 : GOTO 180
- 190 PRINT "ENTER: 1 For Annual Payments"
- PRINT " 2 For Semiannual Payments"
- PRINT " 4 For Quarterly Payments"
- PRINT" 12 For Monthly Payments > "; : FLD.LEN%=-3 : GOSUB 9998 : PRINT :
- TYP.PAY=VAL(REPLY$)
- 200 IF TYP.PAY=1 OR TYP.PAY=2 OR TYP.PAY=4 OR TYP.PAY=12 THEN 230
- 205 GOSUB 1900 : GOTO 190
- 230 PRINT"ENTER THE DUE DATE OF THE FIRST PAYMENT MMDDYEAR > "; : FLD.LEN%=-9 :
- GOSU5
- 320 LABEL$(X)=M$
- PRINT
- NEXT X
- PRINT "PUT THE LABEL FORMS IN THE PRINTER AND SET THE PRINTER"
- GOSUB 870
- PRINT
- 360 PRINT "NOW PRINTING A TEST ROW OF LABELS . . ."
- LPRINTER
- FOR X=1 TO P3
- FOR X1=1 TO P1
- PRINT LABEL$(X);
- NEXT X1
- PRINT
- NEXT X
- 400 CONSOLE
- PRINT"ARE THE LABELS ALIGNED PROPERLY? :";
- FLD.LEN%=1: GOSUB 9998 : PRINT : X$=UCASE$(LEFT$(REPLY$,1))
- IF X$="Y" THEN 440
- IF X$="N" THEN 420
- GOSUB 860
- GOTO 400
- 42
- 860 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
- RETURN
- 870 PRINT" THEN PRESS RETURN ";
- FLD.LEN%=2 : GOSUB 9998 : PRINT
- RETURN
- %INCLUDE NFLANKS.BAS
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞T 1982 BY - Dimis Micro Systems, Inc.
- REM ***
- %INCLUDE COMMON.BAS
- GOSUB 9005
- PRINT
- 50 PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
- PRINT
- PRINT TAB(29);"MENU OPTION #2"
- PRINT TAB(25);"NOTE PAYABLE SCHEDULES" : PRINT TAB(29);"(Amortization)"
- PRINT
- PRINT TAB(5);
- PRINT "Press RETURN Key to Continue or 'M' to Return to Utilities Menu";
- FLD.LEN%=1 : GOSUB 9998 : PRINT : M$=UCASE$(LEFT$(REPOR.NAME$=LEFT$(REPLY$,40)
- PRINT "Enter Y For YES Or N For NO:"
- 140 PRINT"DO YOU KNOW THE NUMBER OF PAYMENTS? > "; : FLD.LEN%=1 : GOSUB 9998 : PRINT
- Y$=UCASE$(LEFT$(REPLY$,1))
- IF Y$="Y" THEN 180
- IF Y$="N" THEN 173
- GOSUB 1900 : GOTO 140
- 173 PRINT "THE SCHEDULE WILL END WHEN THE PRINCIPAL IS REDUCED TO ZERO."
- 175 NUM.PAY=1000000 : GOTO 190
- 180 PRINT"ENTER THE NUMBER OF PAYMENTS > "; : FLD.LEN%=-8 : GOSUB 9998 : PRINT :
- NUM.PAY=VAL(REPLY$)
- 181 IF NUM.PAY-B 9998 : PRINT : MM=VAL(LEFT$(REPLY$,2)): DD=VAL(MID$(REPLY$,3,2)) : YY=VAL(MID$(REPLY$,5,4))
- 260 GOSUB 2000.1
- IF E=1 THEN 230
- 290 PRINT "DO NOT ENTER DECIMAL POINT BETWEEN DOLLARS & CENTS! "
- 300 INPUT "ENTER THE BEGINNING BALANCE OF THE NOTE > "; X$
- BE%=0: GOSUB 3000 : IF BE%=1 THEN 290
- PRINT : BEG.BAL=VAL(X$)
- 303 IF BEG.BAL>0 AND BEG.BAL-INT(BEG.BAL)=0 AND BEG.BAL<10000000000 THEN 310
- 305 GOSUB 1900 : GOTO 300
- 310 PRINT"ENTER ANNUAL INTEREST RATE (IN %) > ";: FLD.LEN%=-8 : GOSUB 9998 : PRINT : INT.RT=VAL(REPLY$)
- 320 PRINT"DO YOU KNOW THE PAYMENT AMOUNT? > ";: FLD.LEN%=1 : GOSUB 9998 : PRINT : Z$=UCASE$(LEFT$(REPLY$,1))
- 330 IF Z$="Y" THEN 345
- 335 IF Y$="Y" THEN 830
- 336 PRINT CHR$(7);"I CANNOT CALCULATE THE PAYMENT IF THE"
- 337 PRINT " NUMBER OF PAYMENTS IS NOT KNOWN!"
- 338 GOTO 140
- 345 INPUT "ENTER PAYMENT AMOUNT >";X$
- BE%=0 : GOSUB 3000
- IF BE%=1 THEN PRINT "DO NOT ENTER DECIMAL POINTS BETWEEN DOLLARS & CENTS" :GOTO 345
- PRINT : PAYMENT.AMT=B 1900 : GOTO 354
- 359 GOTO 540
- 360 LPRINTER
- 360.1 PRINT "NOTE PAYABLE SCHEDULE" : PRINT
- PRINT "PAYEE:";TAB(25);PAYEE.NAME$
- PRINT "PAYOR:";TAB(25);PAYOR.NAME$
- PRINT "BEGINNING BALANCE";TAB(25);
- PRINT USING "$$###,###,###.##";BEG.BAL/100
- PRINT "ANNUAL INTEREST RATE";TAB(25);
- PRINT USING "##.##";INT.RT;
- PRINT "%"
- PRINT "PAYMENT AMOUNT";TAB(25);
- PRINT USING "$$###,###,###.##";PAYMENT.AMT/100
- PRINT "PAYMENTS PER YEAR";TAB(2B(58);"PAYMENT";TAB(77);"DUE"
- PRINT "----------------------------------------------------------";
- PRINT "----------------------"
- PRINT "BEGINNING BALANCE";TAB(65);
- PRINT USING "$$###,###,###.##"; BEG.BAL/100 : I9=I9+6 : RETURN
- 540 GOSUB 360 : F1=12/TYP.PAY : M9=YY+.01*M9
- IF YY+.01*MM>M9 THEN M9=M9+1
- 550 FOR K=1 TO NUM.PAY
- I=INT(((INT.RT*.01)*BEG.BAL)/TYP.PAY+.5)
- 565 IF BEG.BAL+I<PAYMENT.AMT THEN PAYMENT.AMT=BEG.BAL+I
- IF K=NUM.PAY THEN PAYMENT.AMT=BEING"##";29;
- 631 GOTO 645
- 637 IF DD>27 THEN GOTO 638 ELSE GOTO 640
- 638 PRINT USING "##";28;
- 639 GOTO 645
- 640 PRINT USING "##";DD;
- 645 PRINT "/";
- PRINT USING"####";YY;
- PRINT " -------";
- 650 PRINT USING "##,###,###.##";PAYMENT.AMT/100;
- PRINT USING "###,###,###.##";I/100;
- PRINT USING "###,###,###.##";P/100;
- PRINT USING " ###,###,###.##";BEG.BAL/100 : I9=I9+1
- 690 M1=M1+PAYMENT.AMT : T=T+P : Q=Q+I
- 700 S9=S9+PAYMENT.AMT : S7=S7+P : S8=S8+18 S9=0 : S8=0 : S7=0 : PRINT : I9=I9+3 : M9=M9+1
- 720 IF I9<60 THEN 725
- 722 I9=0 : PRINT CHR$(12); : GOSUB 440
- 725 MM=MM+F1
- IF MM<=12 THEN 729
- 726 MM=MM-12 :
- YY=YY+1
- 729 IF BEG.BAL=0 THEN 730
- NEXT K
- 730 PRINT "=======================================================";
- 740 PRINT "========================="
- 760 PRINT "TOTALS";
- PRINT TAB(22);" ";
- PRINT USING "###,###,###.##";M1/100;
- PRINT USING "###,###,###.##";Q/100;
- PRINT USING "###,###,###.#VAL(X$)
- 346 IF PAYMENT.AMT>0 AND PAYMENT.AMT-INT(PAYMENT.AMT)=0 AND PAYMENT.AMT<10000000000 THEN 351
- 347 GOSUB 1900 : GOTO 345
- 351 PRINT"DO YOU WANT ANNUAL SUBTOTALS : ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : X1$=UCASE$(LEFT$(REPLY$,1))
- 352 IF X1$="Y" THEN 354
- IF X1$="N" THEN 359
- 353 GOSUB 1900 : GOTO 351
- 354 PRINT"ENTER MONTH NUMBER (1-12) TO PRINT TOTALS AFTER > "; : FLD.LEN%= -2 : GOSUB 9998 : PRINT : M9=VAL(REPLY$)
- 355 IF M9>=1 AND M9<=12 AND M9-INT(M9)=0 THEN 359
- 357 GOSU5);
- PRINT USING "#####";TYP.PAY
- PRINT "SUBTOTALS AFTER MONTH #";TAB(25);
- PRINT USING "#####";M9
- PRINT "NUMBER OF PAYMENTS";TAB(25);
- IF NUM.PAY=1000000 THEN PRINT "UNKNOWN" ELSE PRINT
- PRINT USING "#####";NUM.PAY : I9=I9+11
- 440 PRINT : PRINT
- PRINT "PAYMENT DUE DATE";TAB(32);"TOTAL";TAB(43);"INTEREST";
- PRINT TAB(56);"PRINCIPAL";TAB(73);"BALANCE"
- PRINT "NUMBER DATE PAID";TAB(30);"PAYMENT";TAB(44);"PAYMENT";
- PRINT TAG.BAL+I
- 570 P=PAYMENT.AMT-I
- 580 BEG.BAL=BEG.BAL-P
- 620 PRINT "#";
- PRINT USING "###";K;
- PRINT " ";
- PRINT USING "##";MM;
- PRINT "/";
- 622 IF MM=4 THEN 623
- IF MM=6 THEN 623
- IF MM=9 THEN 623
- IF MM=11 THEN GOTO 623 ELSE GOTO 626
- 623 IF DD<=30 THEN 626
- 624 PRINT USING "##";30; : GOTO 645
- 626 IF MM<>2 THEN 640
- 628 IF((YY-1904)/4)-(INT((YY-1904)/4))=0 THEN GOTO 629 ELSE GOTO 637
- 629 IF DD>28 THEN GOTO 630 ELSE GOTO 640
- 630 PRINT USI
- 702 IF X1$="N" THEN 720
- IF TYP.PAY=1 THEN 720
- 704 IF BEG.BAL=0 THEN 715
- 705 XE.MM=MM : XE.YY=YY : XE.MM=XE.MM+F1
- 706 IF XE.MM<=12 THEN 708
- 707 XE.MM=XE.MM-12 : XE.YY=XE.YY+1
- 708 Z9=XE.YY+.01*XE.MM
- 710 IF Z9<=M9 THEN 720
- 715 PRINT TAB(25);"------------ ------------ ------------"
- 717 PRINT "ANNUAL SUBTOTALS";
- PRINT " ";
- PRINT USING"###,###,###.##";S9/100;
- PRINT USING"###,###,###.##";S8/100;
- PRINT USING"###,###,###.##";S7/100
- 7#";T/100
- 770 PRINT CHR$(12);
- CONSOLE
- 780 CHAIN PGM$(4) + ":" + "UMENU"
- 830 I1=.01*INT.RT/TYP.PAY
- 840 V=(I1+1)
- FOR A9 = 2 TO NUM.PAY
- V = V * (I1+1)
- NEXT A9
- 850 M1=(I1*V*BEG.BAL)
- 860 M2=V-1
- 870 PAYMENT.AMT=INT(M1/M2+.5)
- 880 PRINT
- 885 CONSOLE
- 890 PRINT TAB(10);"THE PAYMENT AMOUNT IS ";
- PRINT USING"###,###,###.##";PAYMENT.AMT/100
- 900 M1=0 : M2=0
- 910 GOTO 351
- 1893 PRINT" PRESS RETURN TO GO TO UTILITIES MENU ";:FLD.LEN%=1 : GOSUB 9998 : PRINT
- 1895 GOTO 780
- 1900 PRINT "INVALID INPUT - TRY AGAIN!" : RETURN
- 1910 PRINT"PLEASE CORRECT - THEN PRESS RETURN!";: FLD.LEN%=1 : GOSUB 9998 : PRINT : RETURN
- 1925 REM THIS ROUTINE CHECKS THE DATE ENTERED
- 2000.1 E=0
- 2005 IF MM-INT(MM)<>0 OR MM<1 OR MM>12 THEN 2400
- IF DD-INT(DD)<>0 OR DD<1 OR DD>31 THEN 2400
- IF YY-INT(YY)<>0 THEN 2400
- IF YY<1901 OR YY>2099 THEN 2400
- IF (YY-1904)/4-INT((YY-1904)/4)=0 THEN 2020
- IF MM=2 AND DD>28 THEN GOTO 2400 ELSE GOTO 2030
- 2020 IF MM=2 AND DD>REM 072583 - DCF CHECK FOR NUM.BITS CHANGE .INT TO .OVL (8 BIT)
- REM OR .OVR (16 BIT)
- REM
- REM 071783 - DCF TOOK LINE NUMBERS OFF REM STATEMENTS
- REM CHANGED LINE #2100 TO 2100.1 FOR CB80 COMPILE
- REM
- 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 DCF CHANGED LINE 450 NUMBER 99 Micro Systems, Inc. "
- PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
- PRINT
- PRINT TAB(20);"** AUXILIARY MENU OPTION #2 **"
- PRINT TAB(23);"EDITS CLIENT CONTROL FILE" : 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 1310
- GOTO 115
- 110 INITIALIZE
- PRINT TAB(4);"Insert The Auxiliary Data Disk in Drive "; FIL$(10)
- PRINT" Then Press RETURN ";:FIENT.NO
- 190 PRINT "CLIENT NAME" ;
- PRINT TAB(32);CLIENT.NAM$
- 205 FOR X1=0 TO 12
- PRINT "PERIOD #";
- PRINT USING "##";X1;
- PRINT " ENDING DATE";
- PRINT TAB(32);
- 215 PRINT USING "&&";MID$(PER.END.DT$,X1*6+1,2);
- PRINT "/";
- PRINT USING "&&";MID$(PER.END.DT$,X1*6+3,2);
- PRINT "/";
- PRINT USING "&&";MID$(PER.END.DT$,X1*6+5,2);
- IF P = X1 THEN PRINT " F" ELSE PRINT
- 220 NEXT X1
- 240 PRINT "WHICH FUNCTION WOULD YOU LIKE TO PERFORM:"
- PRIN40 IF X=1 THEN 420
- 350 IF X=2 THEN 490
- 360 IF X=3 THEN 560
- 390 IF X=4 THEN 620
- 395 IF X=6 THEN 1310
- 400 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
- 410 PRINT" Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 :PRINT :X$=LEFT$(REPLY$,1) : GOTO 160
- 420 REM *************** CHANGING A CLIENT NUMBER
- PRINT"ENTER NEW CLIENT NUMBER >";:FLD.LEN%=-5 : GOSUB 9998 : PRINT : CLIENT.NO=VAL(REPLY$)
- 430 IF CLIENT.NO<>INT(CLIENT.NO) THEN 460
- 440 IF CLIENT.NO<1 THEN 460
- 450 IF CLIENT.NO<=99999 THEN 1120
- 4629 THEN 2400
- 2030 IF MM<>4 AND MM<>6 AND MM<>9 AND MM<>11 THEN 2420
- IF DD<=30 THEN 2420
- 2400 PRINT "INVALID DATE - TRY AGAIN!"
- 2410 E=1
- 2420 RETURN
- 3000 REM *** DECIMAL ENTRY TRAP added 2-6-84 jb ***
- 3001 FOR I = 1 TO LEN(X$)
- IF MID$(X$,I,1) = "." THEN PRINT CHR$(7) : BE%=1
- NEXT I
- RETURN
- %INCLUDE NFLANKS.BAS
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞8 TO 99999(INCREASED CLIENT NO. SIZE)
- REM ***EDITS CLIENT CONTROL FILE*** (CONTEDIT) (VERSION 4.0)
- REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC.
- REM *** 648 SOUTH RIVER DR.
- REM *** TEMPE, ARIZ. 85281 (602)968-7101
- %INCLUDE COMMON.BAS
- 50 REM *** CONTROL FILE INFO.
- REM B1=CLIENT.NO
- REM B1$=CLIENT.NAM$
- REM P=FISCAL.YR.END.PER.NO
- REM P1=
- REM P$=PER.END.DT$
- 67 GOSUB 9005
- PRINT
- PRINT TAB(23);"Dimis LD.LEN%=1 : GOSUB 9998 : M$=LEFT$(REPLY$,1)
- INITIALIZE
- 115 GOSUB 9005 : PRINT : PRINT : PRINT
- 120 IF SIZE(FIL$(10) + ":" + CLIENT$ + "CON.FIL")=0 THEN 110
- 125 OPEN FIL$(10) + ":" + CLIENT$ + "CON.FIL" RECL 142 AS 1 : CONTROL.FIL=1
- 128 IF END #1 THEN 160
- 130 READ #CONTROL.FIL,1;\
- CLIENT.NO,\
- CLIENT.NAM$,\
- P,\
- P1,\
- PER.END.DT$
- 160 CONSOLE
- GOSUB 9005
- 180 PRINT "CLIENT NUMBER";
- PRINT TAB(31);
- PRINT USING "######";CLT " 1. Change Client Number"
- PRINT " 2. Change Client Name"
- PRINT " 3. Change an End of Period Date"
- PRINT " 4. Change Fiscal Year End Period"
- PRINT " 5. Print Control File Information"
- PRINT " 6. Return to Main Menu"
- 320 PRINT"ENTER THE NUMBER OF THE FUNCTION TO PERFORM >";:FLD.LEN%=-1 : GOSUB 9998 :PRINT : X=VAL(REPLY$)
- 325 IF X=5 THEN 2000.1
- 330 FOR X1=1 TO 8
- PRINT REVLF$,
- PRINT TAB(70)
- PRINT REVLF$,
- NEXT X1 : PRINT
- 30 PRINT REVLF$, : PRINT TAB(70) : PRINT REVLF$; : PRINT REVLF$;
- 465 PRINT CHR$(7);"INVALID CLIENT NUMBER - MUST BE 1 TO 99999! - TRY AGAIN!"
- 470 GOTO 420
- 490 REM *************** CHANGING A CLIENT NAME
- PRINT"ENTER NEW CLIENT NAME (40X) :";:FLD.LEN%=40 : GOSUB 9998 : PRINT :B4$=LEFT$(REPLY$,40)
- 500 IF LEN(B4$)<=40 THEN 530
- 505 PRINT CHR$(7)
- 510 PRINT "CLIENT NAME IS ";LEN(B4$)-40;" CHARACTERS TOO LONG - TRY AGAIN!"
- 520 GOTO 490
- 530 B4$=B4$+" "
- 540 CLIENT.NAM$=LEFT$(B4$,40)+RIGHT$(CLIENT.NAM$,LEN(CLIENT.NAM$)-40)
- 550 GOTO 1120
- 555 REM ***************** CHANGING PERIOD ENDING DATE
- 560 PRINT"ENTER NUMBER OF PERIOD DATE TO BE CHANGED (0-12)>";:FLD.LEN%=-2 : GOSUB 9998 : PRINT : P3=VAL(REPLY$)
- 565 IF P3<0 OR P3>12 OR P3<>INT(P3) THEN GOTO 566 ELSE GOTO 570
- 566 PRINT CHR$(7);"ENTER A NUMBER BETWEEN 0 TO 12 PLEASE !"
- 567 PRINT" Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
- GOTO 160
- 570 PRINT"ENTER NEW DATE (MMDDYY) :";AND 12 PLEASE !"
- 650 PRINT" Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
- 660 GOTO 160
- 670 P = X
- 690 GOTO 1120
- 720 PRINT CHR$(7)
- 1120 PRINT #CONTROL.FIL,1;\
- CLIENT.NO,\
- CLIENT.NAM$,\
- P,\
- P1,\
- PER.END.DT$
- 1140 GOTO 130
- 1150 FOR X1=1 TO 6
- IF MID$(B$,X1,1)<"0" THEN 1270
- IF MID$(B$,X1,1)>"9" THEN 1270
- NEXT X1
- IF MID$(B$,1,1)="0" THEN 1190
- IF MID$(B$,1,1)<>"1" THEN 1270
- IF MID$(ss RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
- INITIALIZE : \
- GOTO 1311
- CHAIN PGM$(3) + ":" + "MENU"
- 1999 REM ****************** PRINTING CONTROL FILE ON PRINTER
- 2000.1 GOSUB 9005 : PRINT : PRINT
- 2010 PRINT"SET PRINTER AND PAPER THEN PRESS RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
- 2020 GOSUB 9005 : PRINT "NOW PRINTING CONTROL FILE . . . ."
- 2030 LPRINTER
- PRINT : PRINT
- PRINT "CLIENT NUMBER";
- PRINT TAB(31);
- PRINT USING 2110 GOTO 160
- %INCLUDE NFLANKS.BAS
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞REM 072583 - DCF ADDED CHECK FOR NUM.BITS = 8 OR 16
- REM
- REM 072183 - DCF CHANGED A TO A.XE IN LINE 5402
- REM
- REM 071783 - DCF CHANGED ALL A'S TO A.XE
- REM CHANGED ALL BUDGET.ACCT.NO TO BUDGET.ACCT.NUM
- REM CHANGED ALL HEADER.NO TO HEADER.NUM
- REM CHANGED C TO C.XE FOR CB80 COMPILE
- REM
- REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
- REM
- REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
- REM
- REM 050383 - DCF FIXED DF ERROR :FLD.LEN%=-6 : GOSUB 9998 : PRINT : B2$=LEFT$(REPLY$,6)
- 575 B$=B2$+" "
- 580 GOSUB 1150
- 590 IF B$="INVALI" THEN 560
- 600 PER.END.DT$=LEFT$(PER.END.DT$,P3*6)+LEFT$(B2$,6)+RIGHT$(PER.END.DT$,LEN(PER.END.DT$)-(P3*6+6))
- 610 GOTO 1120
- 620 REM ****************** ENTERING FISCAL YEAR END
- PRINT"ENTER THE NUMBER OF THE PERIOD TO BECOME FISCAL YEAR END (1-12)>";:FLD.LEN%=-2 : GOSUB 9998 : PRINT : X=VAL(REPLY$)
- 630 IF X>=1 AND X<=12 AND X = INT(X) THEN 670
- 640 PRINT CHR$(7);"ENTER A NUMBER BETWEEN 1 B$,2,1)>"2" THEN GOTO 1270 ELSE GOTO 1200
- 1190 IF MID$(B$,2,1)<"1" THEN 1270
- 1200 IF MID$(B$,3,1)>"3" THEN 1270
- IF MID$(B$,3,1)<>"3" THEN 1290
- 1220 IF MID$(B$,4,1)>"1" THEN GOTO 1270 ELSE GOTO 1290
- 1270 PRINT CHR$(7);"INVALID DATE - TRY AGAIN!"
- 1280 B$="INVALI"
- 1290 RETURN
- 1310 CONSOLE
- 1311 IF NUM.BITS%=8 THEN EXT$=".OVL" ELSE EXT$=".OVR"
- IF SIZE (PGM$(3) + ":" + "MENU"+EXT$)= 0 THEN \
- PRINT "Insert Program Disk in Drive ";PGM$(3) : \
- PRINT " Then Pre"######";CLIENT.NO
- PRINT "CLIENT NAME";
- PRINT TAB(32);CLIENT.NAM$
- 2050 FOR X1 = 0 TO 12
- 2060 PRINT "PERIOD #";
- PRINT USING "##";X1;
- PRINT " ENDING DATE";
- PRINT TAB(32);
- 2070 PRINT USING "&&";MID$(PER.END.DT$,X1*6+1,2);
- PRINT "/";
- PRINT USING "&&";MID$(PER.END.DT$,X1*6+3,2);
- PRINT "/";
- PRINT USING "&&";MID$(PER.END.DT$,X1*6+5,2);
- PRINT " ";
- 2080 IF P = X1 THEN PRINT "F" ELSE PRINT
- 2090 NEXT X1
- 2100.1 PRINT CHR$(12);
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞WHEN PROCESSING DEPT CLIENTS
- REM 050383 - DCF FIXED PROBLEM WITH THE END OF FILE MARKER PRINTING
- REM AT THE END OF THE STATEMENTS
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM 021683 - (RCB) ADDED HOLE(3) TO DEMENSIONING
- REM
- REM 013183 (DCF) CHANGED PRINT CLR$ TO GOSUB 9005
- REM
- REM 013183 (DCF) FIXED OE ERROR WHEN DISK SWAPPING (AUX. ON SEPERATE DISK)
- REM
- REM 102682 (DCF) ADDED CHECK FOR HEADER #=999999999 AND P2<>1
- REM
- REM 101582 (DCF) CHANGE FOR SPECIAL CASE
- REM
- REM 101482 (DCF) MODIFIED DATE ROUTINE AND ADDED COMMAS TO PRINT USINGS
- REM
- REM 101382 (DCF) CHANGED THE FUNCTION ROUTINE THAT USE TO BE
- REM
- REM 101282 (DCF) ADDED THE CHECK FOR THE CORRECT DISK
- REM
- REM 101182 (DCF) ADDED GOTO 3030 IN LINE 3010 (FIXED WHAT IT WAS PRINTING IN THE COLUMNS)
- REM
- REM 101182 (DCF) CHANGED DATE ROUTINE PRIOR TO PRINTING
- REM
- REM 100782 (DCF) CHANGED THE USE OF TWO READS ON ONE RECORD
- REM
- REM 1001823 GOSUB 9005 : PRINT
- PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
- PRINT
- PRINT TAB(20);"** AUXILIARY MENU OPTION #5 **"
- PRINT TAB(16);"PRINTS A COMPARATIVE FINANCIAL STATEMENT" :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 3710
- 150 GOSUB 9005
- 170 IF SIZE(FIL$(2) + ":" + CLIENT$ + "CLN.FIL") = =1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
- INITIALIZE
- 210 GOSUB 9005
- 215 IF SIZE(FIL$(10)+":" + CLIENT$ + "CON.FIL")=0 THEN 198
- 290 OPEN FIL$(10) + ":" +CLIENT$ + "CON.FIL" RECL 142 AS 2 : CONTROL.FIL=2
- 320 READ #CONTROL.FIL;\
- CLIENT.NO,\
- CLIENT.NAM$,\
- C1,\
- C2,\
- PER.END.DT$
- CLOSE CONTROL.FIL
- 330 PRINT "ENTER CLIENT NUMBER FROM CONTROL SHEET >";:FLD.LEN%=-6 : GOSUB 9998 : PRINT : X1=VAL(REPLY$)
- IF CLIENT.NO = X1 THEN 370
- PRINNT : \
- INITIALIZE : \
- GOTO 371
- REM ELSE \
- REM FIL2$ = FIL$(4)
-
- 372 OPEN FIL2$ + ":" + CLIENT$ + "COA.FIL" RECL 65 AS 3 : COANS.FIL=3
-
- 375 FIL2$=FIL$(7)
- 376 IF SIZE(FIL2$ + ":" + CLIENT$ + "FSH.FIL") = 0 THEN \
- PRINT " Insert the Client Data Disk Containing FSH.FIL in Drive "; PGM$(3):\
- PRINT " Then Press RETURN "; : FLD.LEN%=1 : GOSUB 9998 :\
- PRINT : \
- INITIALIZE : \
- FIL2$=PGM$(3) : \
- GOTO 376
-
- OPEN FIL2$ + ":" + CLIENT$ + " PRINT "WOULD YOU LIKE COLUMN #2 TO CONTAIN :"
- 470 PRINT" ( 0:BUDGETARY AMOUNT 1:CURRENT 2:YEAR TO DATE ) >";:FLD.LEN%=-1 : GOSUB 9998 : PRINT :X=VAL(REPLY$)
- 480 IF X=0 OR X=1 OR X=2 THEN 520
- 490 PRINT CHR$(7);"ENTER 0, 1 OR 2 PLEASE !"
- 500 PRINT " ",
- PRINT" Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
- 510 GOTO 460
- 520 IF X<>0 THEN 540
- 522 PRINT"ENTER NUMBER OF 12THS OF BUDGETARY TO CONSIDER (1-12)>";:FLD.LEN%=-2 : GOSUB 9998 : PRINT : X=VAL(REPLY$)
- 524 IF X>=1 AN (DCF) READY FOR WORM TESTING
- REM
- REM 092982 (DCF) SECOND PASS
- REM
- REM 091682 (DCF) FIRST PASS
- REM
- REM *** PROGRAM TO PRINT A THE COMPARATIVE FINANCIAL STATEMENT (COMPARE)
- REM *** COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS (VERSION 3.6)
- REM *** 648 SOUTH RIVER DR.
- REM *** TEMPE, AZ. 85281 (602-968-7101)
- %INCLUDE COMMON.BAS
- 52 X = HOLE(3) : P4=1
- 60 DIM A(12),BUDGET.ACCT.NO(12),F(3),R(9,1),C(X,3),HEADER.NO(X,1)
- 80 THEN \
- PRINT "Insert Client Data Disk in Drive "; FIL$(2) : \
- PRINT "Then Press RETURN "; : FLD.LEN%=1 : GOSUB 9998 : \
- PRINT : \
- INITIALIZE : \
- GOTO 170
- OPEN FIL$(2) + ":" + CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL=1
- GOSUB 5000
- CLOSE CLNRNM.FIL
- 175 GOTO 210
- 198 INITIALIZE
- 199 PRINT "Insert The Auxiliary Data Disk In Drive "; FIL$(10)
- 200 PRINT " Then "; :
- PRINT"Press RETURN ";:FLD.LEN%T "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 : X$=LEFT$(REPLY$,1)
- GOTO 330
- 370 FIL2$=FIL$(4)
- 371 IF SIZE(FIL2$ + ":" + CLIENT$ + "COA.FIL")<> 0 THEN 372
- PRINT "Insert Client Data Disk Containing COA.FIL in Drive ";PGM$(3): \
- PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
- FIL2$ = PGM$(3) : \
- PRIFSH.FIL" RECL 94 AS 4 : FSHEADS.FIL =4
-
- GOSUB 9005
- PRINT : PRINT : PRINT
- 380 PRINT TAB(20);"COMPARATIVE FINANCIAL STATEMENTS OPTIONS :"
- 390 PRINT "WOULD YOU LIKE COLUMN #1 TO CONTAIN :"
- 400 PRINT" ( 1:CURRENT 2:YEAR TO DATE ) >";:FLD.LEN%=-1 : GOSUB 9998 : PRINT : X=VAL(REPLY$)
- 410 IF X=1 OR X=2 THEN 450
- 420 PRINT CHR$(7);"ENTER 1 OR 2 PLEASE !"
- 430 PRINT " ",
- PRINT" Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
- 440 GOTO 390
- 450 F(0)=X-1
- 460D X<=12 AND X=INT(X) THEN 529
- 526 PRINT CHR$(7);"ENTER AN INTEGER NUMBER BETWEEN 1 AND 12 PLEASE!"
- 528 PRINT " ",
- PRINT" Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
- GOTO 522
- 529 T = X
- 530 F(1)=0 : GOTO 640
- 540 IF X<>1 THEN 560
- 550 X1 = 0 : GOTO 570
- 560 X1 = 20
- 570 PRINT "WHAT PERIOD WOULD YOU LIKE IN COLUMN #2 :"
- 580 PRINT" ( 1 - 12 ) >";:FLD.LEN%=-2 : GOSUB 9998 : PRINT : X=VAL(REPLY$)
- 581 IF X=C1 + 1 THEN XE.X=1 ELSE XE.X=0
- 590 IF X>=1 AND X<=12 AND X=INT(X) THEN 630
- 600 PRINT CHR$(7);"ENTER AN INTEGER NUMBER BETWEEN 1 AND 12 PLEASE!"
- 610 PRINT " ",
- PRINT"PRESS RETURN TO CONTINUE ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
- 620 GOTO 570
- 630 F(1)=X+X1
- 640 PRINT "WOULD YOU LIKE THE VARIANCE TO BE :"
- 650 PRINT " 1 : EXPRESSED AS A DOLLAR DIFFERENCE"
- 660 PRINT " 2 : EXPRESSED AS PERCENTAGE OF CHANGE FROM THE "
- 670 PRINT " BASE AMOUNT IN COL.#2"
- 690 PRINT"YOUR CHOICE ( 1 OR 2 ) >";:FLD.LEN%=-1 : GOSUB 9998 : PRI0
- P=0
- P1=0
- D3=0
- D4=0
- H2=0
- H4=0
- BUDGET.ACCT.NUM=0
- P9=0
-
- 1100 REM *** FIND BEGINNING OF INCOME STATEMENT
- IF HEADER.NUM = 9999999999 AND P2 THEN 3510
- IF HEADER.NUM = 9999999999 AND P2<>1 THEN 3510
- 1110 REM *** READ HEADER FILE
- GOSUB 5100
- IF P2 <> 1 AND HEADER.NUM = 9999999999 THEN 3510
- 1120 IF MID$(HEAD.CTRL.CHAR$,3,1)<>"I" THEN 1100
- 1130 IF D4=1 THEN 1170
- 1140 IF BUDGET.ACCT.NUM >= HEADER.NUM THEN 1160
- 1150 GOSUB 520301 ELSE GOTO 1302
- 1301 IF MID$(HEAD.CTRL.CHAR$,6,1)="N" THEN 1440
- 1302 IF MID$(HEAD.CTRL.CHAR$,8,1) = "*" THEN 1440
- 1306 IF MID$(HEAD.CTRL.CHAR$,2,1)<>"P" THEN S1 = VAL(MID$(HEAD.CTRL.CHAR$,2,1)) ELSE S1 = -1
- 1310 IF MID$(HEAD.CTRL.CHAR$,3,1)="Z" THEN Z = 1
- 1320 IF MID$(HEAD.CTRL.CHAR$,3,1)="R" THEN Z = 0
- 1325 IF MID$(HEAD.CTRL.CHAR$,3,1) = "B" THEN GOSUB 6000
- 1326 IF MID$(HEAD.CTRL.CHAR$,3,1) <> "D" THEN 1327
- GOSUB 4000
- 1327 IF MID$(HEAD.CTRL.CHAR$,3,1) <> "H" THEN 1330
- GOSUB 45
- N1 = R(X,0) : N2 = R(X,1)
- 1410 FOR I = 1 TO X
- R(I,0) = 0
- R(I,1) = 0
- NEXT I
- 1420 REM *** ITS A HEADER
- P$ = HEAD.DESCR$
- IF MID$(HEAD.CTRL.CHAR$,3,1) <> "%" THEN 1430
- T1 = N1
- T2 = N2
- P9 = 1
- 1430 IF LEN(P$) < 22 THEN 1435
- IF MID$(HEAD.CTRL.CHAR$,1,1) <> "0" THEN P$ = MID$(P$,1,21)
- 1435 H9 = 1 : GOSUB 2500 : H9 = 0
- 1440 IF HEADER.NUM <> -1 THEN 1460
- 1450 HEAD.DESCR$ = " " : HEADER.NUM = 99999999 = N4 :N2 = N5
- 1610 FOR X = 1 TO 9
- R(X,0) = R(X,0) + N1
- NEXT X
- 1620 FOR X = 1 TO 9
- R(X,1) = R(X,1) + N2
- NEXT X
- 1630 IF Z<>0 AND N1 = 0 AND N2 = 0 THEN 1650
- IF N1=0 AND N2=0 AND A5=9999999999 AND BUDGET.ACCT.NUM=9999999999 THEN 1650
- S1 = 0
- 1640 C1$=HEAD.CTRL.CHAR$
- HEAD.CTRL.CHAR$= "1"+ RIGHT$(HEAD.CTRL.CHAR$,LEN(HEAD.CTRL.CHAR$)-1)
- U = 0
- GOSUB 2500
- HEAD.CTRL.CHAR$ = C1$
- IF P2 THEN 1700
- 1645 GOSUB 5600
- 165NT : X=VAL(REPLY$)
- 700 IF X=1 OR X=2 THEN 740
- 710 PRINT CHR$(7);"ENTER 1 OR 2 PLEASE!"
- 720 PRINT " ",
- PRINT" Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
- 730 GOTO 640
- 740 F(3) = X
- 750 P2 = 0 : D2 = 1 : H1 = 0
- 960 OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 5 : ACCTS.FIL=5
- 961 GOSUB 9005 : PRINT : PRINT
- PRINT "WORKING . . . . "
- 1000 REM SETTING VARIABLES TO ZERO
- C.XE=0
- Z=0
- U=0
- LAST.HEADER=0
- D=0
- S=0
- D7 = D1
- 1155 IF BUDGET.ACCT.NUM < HEADER.NUM THEN 1150
- 1160 GOTO 1650
- 1170 A.XE = 9999999999
- 1200 IF LAST.HEADER <>1 THEN 1205
- LAST.HEADER = 0
- GOTO 1100
- 1205 IF MID$(HEAD.CTRL.CHAR$,3,1)="E" THEN LAST.HEADER = 1
- IF A.XE = 9999999999 AND HEADER.NUM = 9999999999 THEN 3510
- IF A.XE =-1 AND BUDGET.ACCT.NUM =-1 AND LAST.HEADER=0 THEN 1299
- 1210 IF A.XE < HEADER.NUM THEN 1500
- GOTO 1300
- 1299 D4=1
- 1300 REM *** PROCESS A HEADER
- IF P2 <>1 THEN GOTO 100
- GOTO 1430
- 1330 IF MID$(HEAD.CTRL.CHAR$,4,1)="-" THEN S = 1
- 1340 IF MID$(HEAD.CTRL.CHAR$,4,1)="+" THEN S = 0
- 1350 IF MID$(HEAD.CTRL.CHAR$,5,1)="$" THEN D = 1
- 1360 IF MID$(HEAD.CTRL.CHAR$,5,1)="0" THEN D = 0
- 1370 IF MID$(HEAD.CTRL.CHAR$,6,1)="M" THEN C.XE = 1
- 1372 IF MID$(HEAD.CTRL.CHAR$,7,1) = "S" THEN U = 1 ELSE U = 0
- 1374 IF MID$(HEAD.CTRL.CHAR$,7,1) = "D" THEN U = 2
- 1380 X = VAL(MID$(HEAD.CTRL.CHAR$,1,1))
- 1390 IF X = 0 THEN 1420
- 1400 REM *** ITS AN ACCOUNT PUT INTO ACCOUNT REGISTER 99 : GOTO 1470
- 1460 GOSUB 5100
- 1470 GOTO 1200
- 1500 REM *** PROCESS AN ACCOUNT
- IF D4 <> 1 THEN 1530
- 1510 A.XE = 9999999999
- 1520 GOTO 1680
- 1530 IF P2 =1 THEN 1600
- GOSUB 5200
- D7=D1
- 1540 IF A.XE <> INT(BUDGET.ACCT.NUM) THEN 1600
-
- 1550 FOR X = 0 TO 12
- A(X) = A(X) + BUDGET.ACCT.NO(X)
- NEXT X
- A2 = A2 + A6
- A3 = A3 + A7
- 1555 B = B + B1
- 1560 GOTO 1500
- 1600 P$ = " " + A$
- IF P2 <> 1 THEN GOSUB 3000
- IF P2 <> 1 THEN 1610
- 1605 N10 A.XE = BUDGET.ACCT.NUM : A$ = LEFT$(BUDGET.ACCT.DESCR$,21) : B = B1 : D6 = D7
- 1660 FOR X = 0 TO 12
- A(X) = BUDGET.ACCT.NO(X)
- NEXT X
- 1670 A2 = A6 : A3 = A7
- 1680 GOTO 1200
- 1700 GOSUB 5200
- 1710 GOTO 1200
- 2500 REM *** PRINTING STATEMENT ROUTINE
- LPRINTER
- 2520 IF U < 1 THEN 2555
- 2530 PRINT TAB(24);"------------";
- 2532 IF P9 THEN PRINT " ------- "; ELSE PRINT " ";
- 2534 PRINT "------------";
- 2536 IF P9 THEN PRINT " -------"; ELSE PRINT " ";
- 2539 IF F(3) > 2 THEN PRINT " --------" ELSE PRINT " ------------"
- 2555 PRINT TAB(1);P$;
- 2560 IF MID$(HEAD.CTRL.CHAR$,1,1) ="0" THEN 2720
- 2565 IF MID$(HEAD.CTRL.CHAR$,3,1) = "%" THEN P9=1
- 2570 GOSUB 9000
- 2580 PRINT TAB(23);MID$(X$,1,1);
- 2590 IF ABS(N1) > 9999999999 THEN N1=9999999999
- 2600 PRINT USING"#,###,###.##";ABS(N1/100);
- PRINT MID$(X$,3,1);
- 2610 IF P9<>1 THEN 2630
- 2620 IF T1=0 THEN 2622
- IF ABS(N1/T1*100) > 999.99 THEN 2622
- GOTO 2625
- 2622 PRINT "***.**%"; : GOTO 2630
- 2625
- IF F(3)<>1 THEN GOTO 2672 ELSE GOTO 2680
- 2672 IF N2<>0 THEN N3=N3/N2*100 ELSE N3=1000000
- 2680 GOSUB 12000
- 2720 PRINT
- IF U <> 2 THEN 2800
- 2730 PRINT TAB(24);"============";
- 2732 IF P9 THEN PRINT " ======= "; ELSE PRINT " ";
- 2734 PRINT "============";
- 2736 IF P9 THEN PRINT " ======="; ELSE PRINT " ";
- 2739 IF F(3) > 2 THEN PRINT " ========" ELSE PRINT " ============"
- 2800 IF S1 = -1 THEN GOTO 2805 ELSE GOTO 2820
- 2805 PRINT CHR$(12);
- 2810 GOTO 2850
- 2820 IF S1<1 T - A(X-1)
- 3092 GOTO 3098
- 3095 N2 = A(X)
- 3098 GOTO 3300
- 3100 X = F(1) - 20
- 3110 X = X + C2 + 1
- 3120 IF X>12 THEN X=X-(12+1)
- 3140 N2 = A(X)
- 3150 GOTO 3300
- 3300 RETURN
- 3510 REM *** END OF PROCESSING PASS 1
- IF P2 OR C.XE<>1 THEN 3690
- 3512 REM *** SORTING HEADERS AND ACCOUNTS
- GOSUB 9005 : PRINT : PRINT
- 3514 CONSOLE
- PRINT "NOW PROCESSING COMBINED HEADERS AND ACCOUNTS . . ."
- 3520 X = 0 : X1 = 0
- 3530 IF C(X,0) <= C(X+1,0) THEN 3570
- 3540 X1 = 1
- FOR X2 = 0 TO= 1 : BUDGET.ACCT.NUM = 0 : HEADER.NUM = 0 : GOTO 961
- 3690 PRINT CHR$(12)
- 3700 REM *** CLOSING FILES AND CHAINING TO AUX. MENU
- CLOSE COANS.FIL
- CLOSE FSHEADS.FIL
- CLOSE ACCTS.FIL
- CONSOLE : GOSUB 9005
- 3710 IF NUM.BITS%=8 THEN EXT$=".OVL" ELSE EXT$=".OVR"
- IF SIZE(PGM$(3) + ":" + "MENU"+EXT$)<>0 THEN CHAIN PGM$(3) + ":" + "MENU"
- INITIALIZE
- PRINT "Insert Program Disk in Drive ";PGM$(3)
- PRINT " Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REP$ + MID$(PER.END.DT$,X1*6+3,2) + "/"
- 4080 P$ = P$ + MID$(PER.END.DT$,X1*6+5,2)
- 4090 GOTO 4260
- 4100 FOR X = 1 TO LEN(HEAD.DESCR$) - 5
- 4110 IF MID$(HEAD.DESCR$,X,6) = "XX/XX/" THEN 4005
- 4120 IF MID$(HEAD.DESCR$,X,6) = "XXXXXX" THEN 4005
- 4130 NEXT X
- P$ = HEAD.DESCR$
- 4140 FOR X = 1 TO LEN(P$)
- 4150 IF MID$(P$,X,1) <> " " THEN 4170
- 4160 NEXT X
- 4170 IF LEN(P$) = 1 THEN 4260
- 4180 FOR X = LEN(P$) TO 2.0 STEP -1.0
- 4190 IF MID$(P$,X,1) <> " " THEN 4210
- 4200 NEXT X
- 4210 IF LEN(P$PRINT USING "###.##";ABS(N1/T1*100);
- PRINT "%";
- 2630 PRINT TAB(45);MID$(X$,4,1);
- IF ABS(N2) > 9999999999 THEN N2=9999999999
- 2640 PRINT USING "#,###,###.##";ABS(N2/100);
- PRINT MID$(X$,6,1);
- 2650 IF P9<>1 THEN GOTO 2655 ELSE GOTO 2660
- 2655 PRINT " ";
- GOTO 2670
- 2660 IF T2=0 THEN 2662
- IF ABS(N2/T2*100) > 999.99 THEN 2662
- GOTO 2665
- 2662 PRINT "***.**%"; : GOTO 2670
- 2665 PRINT USING "###.##";ABS(N2/T2*100);
- PRINT "%";
- 2670 N3 = N1-N2
HEN 2850
- FOR X = 1 TO S1
- PRINT
- NEXT X
- 2850 CONSOLE
- RETURN
- 3000 REM *** ROUTINE CALCULATES THE NUMBERS TO BE PRINTED
- IF F(0) = 1 THEN 3020
- 3010 N1 = A2 : GOTO 3030
- 3020 N1 = A3
- 3030 IF F(1) <> 0 THEN 3050
- 3035 IF T = 0 THEN 3050
- 3040 N2=B
- GOTO 3300
- 3050 IF F(1) > 12 THEN 3100
- 3070 X = C2 + F(1) + 1
- 3080 IF X>12 THEN X=X-(12+1)
- 3085 IF C1 = 12 AND F(1) = 1 THEN 3095
- IF XE.X = 1 THEN 3095
- 3090 IF X = 0 THEN N2 = A(0) - A(12) ELSE N2 = A(X) 3
- 3550 X3 = C(X,X2)
- C(X,X2) = C(X+1,X2)
- C(X+1,X2) = X3
- 3560 NEXT X2
- 3570 X = X + 1
- IF X < D2 THEN 3530
- 3580 IF X1 THEN 3520
- 3600 X = 0 : X1 = 0
- 3610 IF HEADER.NO(X,0) <= HEADER.NO(X+1,0) THEN 3650
- 3620 X1 = 1
- 3630 X2 = HEADER.NO(X,0) : HEADER.NO(X,0) = HEADER.NO(X+1,0) : HEADER.NO(X+1,0) = X2
- 3640 X2 = HEADER.NO(X,1) : HEADER.NO(X,1) = HEADER.NO(X+1,1) : HEADER.NO(X+1,1) = X2
- 3650 X = X +1
- IF X < H1 THEN 3610
- 3660 IF X1 THEN 3600
- 3680 C.XE = 0 : P2 LY$,1)
- INITIALIZE
- GOTO 3710
- 4000 REM *** ROUTINE TO MODIFY DATE PRIOR TO PRINTING
- GOTO 4100
- 4005 P$=" "
- 4010 P$ = P$ + LEFT$(GL.END.DATE$,2) + "/" + MID$(GL.END.DATE$,3,2) + "/" + MID$(GL.END.DATE$,5,2)
- 4020 P$ = P$ + " "
- 4030 IF F(1) <> 0 THEN 4050
- IF T = 0 THEN 4050
- 4040 P$ = P$ + " BUDGETARY" : GOTO 4090
- 4050 IF F(1) > 12 THEN X1 = F(1) - 20 ELSE X1 = F(1)
- 4060 P$ = P$ + " " + MID$(PER.END.DT$,X1*6+1,2) + "/"
- 4070 P$ = P) = 1 THEN 4260
- P$ = MID$(P$,1,X)
- 4220 X1 = LEN(P$)
- 4230 FOR X = 1 TO ( 85 - X1) / 2
- 4240 P$ = " " + P$
- 4250 NEXT X
- 4260 HEAD.DESCR$ = P$ : RETURN
- 4500 REM *** PRINT A HEADING
- P$ = " "
- 4510 IF F(0) <> 1 THEN 4530
- 4520 P$ = P$ + "YEAR TO DATE" : GOTO 4540
- 4530 P$ = P$ + " CURRENT"
- 4540 IF MID$(HEAD.CTRL.CHAR$,8,1) = "%" THEN P$ = P$ + " % " ELSE P$ = P$ + " "
- 4560 IF F(1) <> 0 THEN 4580
- IF T = 12 THEN 4600
- IF T = 1 THEN 4575
- 4565 IF T = 10 THEN 4576
- IF T = 11 THEN 4577
- IF T = 0 THEN 4580
- 4570 P$ = P$ + " " + CHR$(48+T) + "/12THS YTD" : GOTO 4610
- 4575 P$ = P$ + " 1/12TH YTD" : GOTO 4610
- 4576 P$ = P$ + "10/12THS YTD" : GOTO 4610
- 4577 P$ = P$ + "11/12THS YTD" : GOTO 4610
- 4580 IF F(1) > 12 THEN 4600
- 4590 P$ = P$ + " CURRENT" : GOTO 4610
- 4600 IF T = 0 THEN P$ = P$ + "YEAR TO DATE" ELSE P$ = P$ + " YEARLY"
- 4610 IF MID$(HEAD.CTRL.CHAR$,8,1)="%" THEN P$=P$+" % " ELSE P$=> H1 THEN HEADER.NUM = 9999999999 ELSE GOTO 5180
- REM HEAD.CTRL.CHAR$=LEFT$(HEAD.CTRL.CHAR$,2) +"E" + RIGHT$(HEAD.CTRL.CHAR$,LEN(HEAD.CTRL.CHAR$)-3)
- GOTO 5190
- 5180 READ #FSHEADS.FIL,HEADER.NO(H4,1)+1;\
- HEADER.NUM,\
- HEAD.DESCR$,\
- HEAD.CTRL.CHAR$
- HEADER.NUM = HEADER.NO(H4,0)
- IF HEADER.NUM = -1 THEN HEADER.NUM = 9999999999
- H4 = H4 + 1
- 5190 RETURN
- 5200 REM *** READ AN ACCOUNT
- IF P2 THEN 5400
- 5205 IF END #ACCTS.FIL THEN 523.NO(11),\
- BUDGET.ACCT.NO(12)
- 5218 B1 = B1 * ( T / 12 )
- 5220 GOTO 5240
- 5230 IF BUDGET.ACCT.NUM = -1 THEN BUDGET.ACCT.NUM = 9999999999
- 5240 IF END #COANS.FIL THEN 5270
- 5250 REM *** READING NORMAL ACCOUNTS
- READ #COANS.FIL,P1+1;\
- A5,\
- A6,\
- A7,\
- A5$
- 5260 GOTO 5280
- 5270 IF A5 = -1 THEN A5 = 9999999999
- 5280 D1 = P
- IF BUDGET.ACCT.NUM = 9999999999 AND A5=9999999999 THEN D4=1 :GOTO 5500
- IF BUDGET.ACCT.NUM = A5 THEN 5330
- 5290 : N4 = C(D3,1) : N5 = C(D3,2)
- 5410 IF C(D3,3)>=10000 THEN 5440
- 5420 READ #ACCTS.FIL,C(D3,3)+1;\
- X,\
- A$
- 5425 BUDGET.ACCT.DESCR$=A$
- 5430 GOTO 5450
- 5440 READ #COANS.FIL,(C(D3,3)-10000)+1;\
- X,\
- X,\
- X,\
- A$
- 5450 D3 = D3 + 1 : BUDGET.ACCT.NUM = A.XE
- 5500 RETURN
- 5600 REM *** PLACE ACCTS IN ARRAY FOR COMBINED STATEMENT PROCESSING
- X = A.XE - INT(A.XE/10000)*10000 : I = 0
- 5610 FOR I = 0 TO D2
- 5620 IF X = C(I,0) THEN 5670
- 5630 N1
- T2 = T2 + N2
- 6080 A.XE = BUDGET.ACCT.NUM
- A$ = BUDGET.ACCT.DESCR$
- B = B1
- 6090 FOR X = 0 TO 12
- A(X) = BUDGET.ACCT.NO(X)
- NEXT X
- 6100 A2 = A6 : A3 = A7
- 6110 GOSUB 5200 : GOTO 6050
- 6120 P = 0
- P1 = 0
- A.XE = 0
- BUDGET.ACCT.NUM = 0
- 6130 IF T4 = A.XE THEN 6200
- 6140 GOSUB 5200
- 6150 A.XE = BUDGET.ACCT.NUM : A$ = BUDGET.ACCT.DESCR$ : B = B1
- FOR X = 0 TO 12
- A(X) = BUDGET.ACCT.NO(X)
- NEXT X
- 6170 A2 = A6 : A3 =P$+" "
- 4620 P$ = P$ + "VARIANCE"
- 4630 RETURN
- 5100 REM *** READ A HEADER
- IF P2=1 THEN 5170
- 5110 READ #FSHEADS.FIL,H2+1;\
- HEADER.NUM,\
- HEAD.DESCR$,\
- HEAD.CTRL.CHAR$
- 5115 IF HEADER.NUM = -1 THEN HEADER.NUM=9999999999
- 5120 X1 = HEADER.NUM - INT(HEADER.NUM/10000)*10000
- 5130 FOR X = 0 TO H1
- IF X1 = HEADER.NO(X,0) THEN 5160
- NEXT X
- 5140 HEADER.NO(X,0) = X1 : HEADER.NO(X,1) = H2 : H1 = H1 + 1
- 5160 H2 = H2 + 1 : GOTO 5190
- 5170 IF H4 0
- 5210 REM *** READING BUDGETARY ACCOUNTS
- READ #ACCTS.FIL,P+1;\
- BUDGET.ACCT.NUM,\
- BUDGET.ACCT.DESCR$,\
- B1,\
- BUDGET.ACCT.NO(0),\
- BUDGET.ACCT.NO(1),\
- BUDGET.ACCT.NO(2),\
- BUDGET.ACCT.NO(3),\
- BUDGET.ACCT.NO(4),\
- BUDGET.ACCT.NO(5),\
- BUDGET.ACCT.NO(6),\
- BUDGET.ACCT.NO(7),\
- BUDGET.ACCT.NO(8),\
- BUDGET.ACCT.NO(9),\
- BUDGET.ACCT.NO(10),\
- BUDGET.ACCTIF BUDGET.ACCT.NUM < A5 THEN 5320
- 5300 BUDGET.ACCT.NUM=A5 : BUDGET.ACCT.DESCR$=A5$ : B1=0 : D1=P1+10000
- FOR X=0 TO 12
- BUDGET.ACCT.NO(X)=0
- NEXT X
- 5310 P1 = P1 + 1 : GOTO 5340
- 5320 A5 = BUDGET.ACCT.NUM : A6 = 0 : A7 = 0 : P = P + 1
- 5325 IF BUDGET.ACCT.NUM = 9999999999 AND A5=9999999999 THEN D4 = 1 : GOTO 5340
- 5330 P = P + 1 : P1 = P1 + 1
- 5340 GOTO 5500
- 5400 IF D3 <= D2 THEN 5405
- 5402 A.XE = 9999999999 : D4 = 1 : BUDGET.ACCT.NUM = A.XE : GOTO 5500
- 5405 A.XE = C(D3,0)EXT I
- 5640 D2 = D2 + 1
- C(I,0) = X
- C(I,1) = N1
- C(I,2) = N2
- C(I,3) = D6
- 5650 GOTO 5680
- 5670 C(I,1) = C(I,1) + N1 : C(I,2) = C(I,2) + N2
- 5680 RETURN
- 6000 REM *** ROUTINE TO CALCULATE % OF SALES
- IF P2 THEN 6500
- T3 = HEADER.NUM : T1 = 0 : T2 = 0 : P9 = 1
- 6010 IF HEADER.NUM =-1 THEN 6200
- 6020 GOSUB 5100
- 6030 IF MID$(HEAD.CTRL.CHAR$,3,1) <> "%" THEN 6010
- 6040 T4 = A.XE : GOSUB 5200
- 6050 IF A.XE >=HEADER.NUM THEN 6120
- 6060 GOSUB 3000
- 6070 T1 = T1 + N A7
- 6180 GOTO 6130
- 6200 H2 = 0
- 6210 IF HEADER.NUM = T3 THEN 6800
- IF HEADER.NUM = -1 THEN 6230
- 6220 GOSUB 5100 : GOTO 6210
- 6230 HEADER.NUM = 9999999999 : GOTO 6800
- 6500 T3 = HEADER.NUM : T1 = 0 : T2 = 0
- 6505 IF HEADER.NUM = 9999999999 THEN 6570
- 6510 GOSUB 5100
- 6520 IF MID$(HEAD.CTRL.CHAR$,3,1) <> "%" THEN 6505
- 6530 T4 = A.XE
- 6540 IF A.XE > HEADER.NUM OR A.XE = 9999999999 THEN 6570
- 6550 T1 = T1 + N4 : T2 = T2 + N5
- 6560 GOSUB 5200 : GOTO 6540
- 6570 H4 = 0
- 6580 IF T3 = HEADER.NUM THEN 6600
- 6590 GOSUB 5100 : GOTO 6580
- 6600 D3 = 0
- 6610 IF A.XE = T4 THEN 6630
- 6620 GOSUB 5200 : GOTO 6610
- 6630 GOTO 6800
- 6800 RETURN
- 9000 REM *** PUTTING STUFF INTO STRING FOR PRINTING
- X$=" "
- IF S THEN 9060
- 9010 IF N1>=0 THEN 9030
- X$="("+ RIGHT$(X$,LEN(X$)-1)
- X$=LEFT$(X$,2) + ")" + RIGHT$(X$,LEN(X$)-3)
-
- 9030 IF N2 >=0 THEN 9050
- X$=LEFT$(X$,3) + "(" + RIGHT$(X$,LEN(X$)-4)
- X$=LEFT$(X$,5) + ")" + RIGHT$(X$,LEN(X$)-6)
- 9050 GOTO 9100
- 9060
- 12000 IF F(3) = 2 THEN 12100
- 12010 IF S THEN 12015
- IF N3 < 0 THEN GOTO 12020 ELSE GOTO 12050
- 12015 IF N3 > 0 THEN GOTO 12020 ELSE GOTO 12050
- 12020 X$= "("+RIGHT$(X$,LEN(X$)-1)
- X$=LEFT$(X$,2) + ")" + RIGHT$(X$,LEN(X$)-3)
- 12050 IF H9 AND D THEN X$=LEFT$(X$,1) + "$" + RIGHT$(X$,LEN(X$)-2)
- 12060 LPRINTER
- PRINT MID$(X$,1,2);
- PRINT USING "#########.##";ABS(N3/100);
- PRINT MID$(X$,3,1);
- 12070 GOTO 12130
- 12100 IF N3 > 99999.99 THEN GOTO 12110 ELSE GOTO 12120
- 12105 IREM 072583 - DCF ADDED CHECK FOR NUM.BITS = 8 OR 16
- REM
- REM 071783 - DCF CHANGED A TO A.XE FOR CB80 COMPILE
- REM
- REM 051983 - BTC FIX TO CHECK FOR EMPTY FORMAT FILE BEFORE ATTEMPTING
- REM TO READ THE FORMAT FILE. READING EMPTY FORMAT FILE CAUSES
- REM ERROR IR.
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM 020883 - (DCF) REPORT IS NOW PRINTING FIRST COLUMN IN ALIGNMENT
- REM AND THE UNDERLINES ARE ALSO ALL LINEEM
- REM
- REM 102582 - (RCB) REVERSED HOLE(8) AND HOLE(9) AND ADDED /100 IN LINE 110
- REM AND ONE AFTER IT SO HOLES ARE IN DOLLARS AND CENTS
- REM
- REM 102382 - (RCB) REMOVED ALL /100 SO DECIMAL POINT WILL BE IN THE RIGHT
- REM PLACE AND REMOVED RIGHT$ IN LINE AFTER 16100 SO LINE
- REM WILL PRINT WITH CONTROLL CHARACTOR AT THE FIRST OF IT
- REM
- REM 101882 - (RCB) FIXED COLON IN WRONG PLACE IN 8000, FIXED X TO N2 AND W2
- REM FOR RECORD POINTERS AND ARRAY POINTERS IN 8200 AND 8210
- REM
- REM ***
- 8040 FOR X = 1 TO 100
- 8050 READ #FMT.FIL,X;ASCII$(X),NUM(X)
- IF ASCII$(X) = "-1" THEN EOF = X-1 : GOTO 8110
- 8100 NEXT X
- 8108
- PRINT #FMT.FIL,X;"-1",0.0
- EOF = X -1
- 8110 X1 = 0 : W2 = -1 : N2 = -1
- REM EAT UP FROM BOTTOM LOOKING FOR FIRST NUMBER RECORD FROM BOTTOM
- REM STICK IT IN W2
- X = EOF
- 8120 IF LEFT$(ASCII$(X),1) <> "D" AND LEFT$(ASCII$(X),1) <> "S" \
- AND NUM(X) <> .05 THEN W2 = X : NUM(X) = N1 : GOTO 8130
- X = X -1
- IF X > 1 THEN GOTO 8120
- REM EAT DOWN FROM TOP TO FIND THE FIIF N1 <= 0 THEN 9080
- X$= "(" +RIGHT$(X$,LEN(X$)-1)
- X$=LEFT$(X$,2) + ")" + RIGHT$(X$,LEN(X$)-3)
- 9080 IF N2 <=0 THEN 9100
- X$=LEFT$(X$,3) + "(" + RIGHT$(X$,LEN(X$)-4)
- X$=LEFT$(X$,5) + ")" + RIGHT$(X$,LEN(X$)-6)
- 9100 IF D<>1 THEN 9120
- X$=LEFT$(X$,1) + "$" + RIGHT$(X$,LEN(X$)-2)
- X$=LEFT$(X$,4)+ "$" + RIGHT$(X$,LEN(X$)-5) : D = 0
- 9120 IF P9 THEN X$=LEFT$(X$,6) + "%" + RIGHT$(X$,LEN(X$)-7)
- 9130 IF F(3)=3 THEN X$=LEFT$(X$,6) + "%" + RIGHT$(X$,LEN(X$)-7)
- 9140 RETURNF N3 < -9999.99 THEN GOTO 12110 ELSE GOTO 12120
- 12110 LPRINTER
- PRINT" *****.**%"; : GOTO 12130
- 12120 LPRINTER
- PRINT" ";
- PRINT USING "#####.##";N3;
- PRINT "%";
- 12130 RETURN
- %INCLUDE NFLANKS.BAS
- %INCLUDE 5000
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞D UP
- REM
- REM 020883 - (DCF) CHANGED PRINT CLR$ TO GOSUB 9005
- REM
- REM 111182 - (RCB) DELETED GOTO 8320 AT END OF LINE 8310 SO FEEL FOR
- REM MENU.INT WILL HAPPEN - ALSO REMOVED INT FUNCTION
- REM FROM LINE 16300 SO CENTS WILL PRINT OUT
- REM
- REM 102682 - (RCB) ADDED LINE AFTER 16100 TO ADD AN EXTRA SPACE ON TEXT LINES
- REM TO CONFORM WITH WHAT THE EDITOR SHOWS ON THE SCREEN
- REM
- REM 102682 - (RCB) ADDED = 1 TO IF STATEMENTS IN LINES 16200, 16280, 16310
- REM FOR THE FIX THE <BRACKET> PROLB PROGRAM TO UPDATE THE STATEMENT OF CHANGES SOCUP (VER 4.0)
- REM *** COPYRIGHT 1982 BY Dimis Micro Systems
- %INCLUDE COMMON.BAS
- 60 DIM ASCII$(100),NUM(100),A(6)
- 80 GOSUB 9005
- PRINT "NOW UPDATING THE STATEMENT OF CHANGES . . . "
- REM NET PROFIT
- 110 N1 = HOLE(9)/100
- REM VAL(W2$)
- REM NET INCREASE OR DECREASE IN WORKING CAPITAL
- W1 = HOLE(8)/100
- REM VAL(W3$)
- 8000 OPEN FIL$(10) + ":" + CLIENT$ + "FMT.FIL" RECL 100 AS 1 : FMT.FIL = 1
- 8010
- 8020
- 8030 IF END #1 THEN 8108
-
RST NUMBER RECORD - MUST BE LESS THAN
- REM THEN W2 FROM ABOVE - STICK IT IN N2
- 8130 X = 1
- 8140 IF LEFT$(ASCII$(X),1) <> "D" AND LEFT$(ASCII$(X),1) <> "S" \
- AND NUM(X) <> .05 THEN N2 = X : NUM(X) = W1 : GOTO 8200
- 8150 X = X + 1
- 8160 IF X < EOF AND X < W2 THEN 8140
- 8200 REM CHECK FOR N2=0, WHICH HAPPENS IF FORMAT FILE IS EMPTY
- IF N2=0 THEN \
- PRINT CHR$(7); : PRINT "WARNING - A STATEMENT OF CHANGES CANNOT BE PRINTED" : \
- PRINT "UNTIL THE FORMAT FILE HAS BEEN SETUP. USE MENU OPTION 7 TO SETUP" : \
- PRINT "THE FORMAT FILE. SEE YOUR MANUAL FOR MORE INFORMATION" : \
- PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 : GOSUB 9998 : \
- CLOSE 1 : GOTO 8310
- IF N2 <> -1 THEN \
- PRINT #FMT.FIL,N2;ASCII$(N2),NUM(N2)
- 8210 REM CHECK FOR W2=0, WHICH HAPPENS IF FORMAT FILE IS EMPTY
- IF W2=0 THEN \
- PRINT CHR$(7); : PRINT "WARNING - A STATEMENT OF CHANGES CANNOT BE PRINTED" : \
- PRINT "UNTIL THE FORMAT FILE HAS BEEN SETUP. USE MENU OPTION 7 TO SETUP" : \
- CONTINUE "; : FLD.LEN% = 1 : GOSUB 9998
- 8340 CHAIN PGM$(3) + ":MENU"
- 10190 GOTO 8315
- 16000 PRINT CHR$(12); : A.XE = 1 : X9 = 3
- 16005 PRINT TAB(13);"STATEMENT OF CHANGES IN FINANCIAL POSITION WORKSHEET" : PRINT
- P = 1
- 16020 IF P > EOF THEN 16150
- 16030 H$ = ASCII$(P) : XE.NUM = NUM(P)
- 16040 P = P + 1
- 16050 IF LEFT$(H$,1) = "-" THEN B = 1
- 16060 IF LEFT$(H$,1)="+" THEN B=0
- IF LEFT$(H$,1)<>"P" THEN 16070
- PRINT CHR$(12);
- 16065 GOTO 16140
- 16070 IF LEFT$(H$,1)="$" THEN D2=1 ELSE D2=0
- IF LEFT$(HEN 16130
- 16120 GOSUB 16330 : GOSUB 16200
- IF D3 OR S THEN PRINT " TL:";RIGHT$(STR$(XE.NUM),1);
- 16130 PRINT
- 16140 GOTO 16020
- 16150 GOSUB 16170 : PRINT CHR$(12);
- 16160 RETURN
- 16170 IF A(6) = 0 THEN 16190
- 16180 PRINT " THIS STATEMENT IS OUT OF BALANCE BY ";
- PRINT USING "#########.##";A(6)
- 16190 RETURN
- 16200 IF B = 1 AND N2 > 0 THEN X = 1 ELSE X = 0
- 16270 IF B = 0 AND N2 < 0 THEN X = 1
- 16280 IF X = 1 THEN PRINT "<";ELSE PRINT " ";
- 16290 IF D2 THEN PRINT "$"; ELSE PRINT " ";
- 16300 PRINT U
- 16500 FOR X = 1 TO 5
- 16510 PRINT "-- -------------------------------------";
- 16515 PRINT " -------------- -------------"
- 16520 NEXT X : RETURN
- %INCLUDE NFLANKS.BAS
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞REM **********************************************************************
- REM ****** 8 BIT Z80 - 8080 VERSION
- COMMON XY%,CLR$,CLR.DLY%,CUR$,CUR.DLY%,X.OFF%,Y.OFF%,EOS$,EOL$,HOME$,REVLF$, \
- DUPE.KEY$,FIL$(1),PGM$(1),CLIENT$,HOLE(1),LOC,SERIAL$,VERSION$, \
- OPTION$
- NUM.BITS% = 8
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞 PRINT "THE FORMAT FILE. SEE YOUR MANUAL FOR MORE INFORMATION" : \
- PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 : GOSUB 9998 : \
- CLOSE 1 : GOTO 8310
- IF W2 <> -1 THEN \
- PRINT #FMT.FIL,W2;ASCII$(W2),NUM(W2)
- 8300 LPRINTER : GOSUB 16000 : CONSOLE
- 8310 GOSUB 9005 : PRINT
- 8315 IF NUM.BITS% = 8 THEN EXT$ = ".OVL" ELSE EXT$ = ".OVR"
- IF SIZE(PGM$(3) + ":MENU"+EXT$) <> 0 THEN 8340
- 8320 PRINT "PLEASE INSERT THE PROGRAM DISK IN DRIVE ";PGM$(3)
- 8330 PRINT " PRESS RETURN TO $,1)="C" THEN C1=1 ELSE C1=0
- 16080 IF LEFT$(H$,1)="D" THEN D3=1 ELSE D3=0
- IF LEFT$(H$,1)="S" THEN S=1 ELSE S=0
- 16090 IF LEFT$(H$,1)="W" THEN W=1 ELSE W=0
- 16100 IF D3 OR S THEN GOSUB 16500
- IF LEN(H$) < 9 THEN 16103
- IF MID$(H$,LEN(H$),1) = MID$(H$,LEN(H$)-1,1) THEN \
- H$ = LEFT$(H$,LEN(H$)-2)
- 16103 IF XE.NUM = .05 THEN PRINT LEFT$(H$,1)+" "+RIGHT$(H$,LEN(H$)-1); ELSE PRINT H$;
- X9 = X9 + 1
- 16105 IF X9 < 55 THEN 16110
- PRINT CHR$(12); : PRINT : PRINT : X9 = 3
- 16110 IF XE.NUM = .05 THSING "##,###,###.##";ABS(N2);
- 16310 IF X = 1 THEN PRINT ">";
- 16320 RETURN
- 16330 IF D3 THEN 16380
- IF S THEN 16390
- 16340 IF C1 THEN 16430
- IF W THEN 16440
- 16350 N2 = XE.NUM
- 16360 FOR X = 1 TO 6 : A(X) = A(X) + N2 : NEXT X
- 16370 GOTO 16470
- 16380 D2 = 1
- 16390 IF XE.NUM > 5 OR XE.NUM < 1 THEN XE.NUM = 1
- 16400 N2 = A(XE.NUM)
- 16410 FOR X = 1 TO XE.NUM : A(X) = 0 : NEXT X
- 16420 GOTO 16470
- 16430 D2 = 1
- 16440 N2 = XE.NUM
- 16450 FOR X =1 TO 5 : A(X) = 0 : NEXT X
- 16460 A(6) = A(6) - N2
- 16470 RETURN
繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞REM 031783 - (RCB) MODIFIED TO ALLOW HOT KEYBOARD ON 1 CHARACTOR
- REM INPUT ONLY (FLD.LEN% = 0) - OTHER LENTH WILL
- REM FREEZE AND BEEP AT FIELD LIMIT - ADDED DESTRUCTIVE BACKUP
- REM
- REM 021783 - (RCB) ADDED ; AFTER ERR$ TO TRY TO FIX SCROLLING
- REM
- REM 112282 - (RCB) CHANGED 9009.1 FROM EOS$ TO USING EOL$ FOR IBM PC ONLY
- REM
- REM - 090882 FIX FOR ONLY THE FIRST KEY OF ANY INPUT CAN BE DUPE KEY
- REM
- 2000 GOSUB 9009
- X%= INT(40 - (LEN(ERR$)+12)/2)
- Y% = 19 : GOSUB 9006
-
- PRINT CUR$;CHR$(X.POS%);CHR$(Y.POS%); \
- ELSE \
- PRINT CUR$;CHR$(Y.POS%);CHR$(X.POS%);
- FOR DELAY=0 TO CUR.DLY% : NEXT DELAY
- RETURN
- 9009 REM CLEAR TO END OF SCREEN
- X%=0 : Y% = 19 : GOSUB 9006
- 9009.1 FOR XE.EOS = Y% TO 22
- PRINT EOL$
- NEXT XE.EOS
- PRINT EOL$;
- GOSUB 9006
- RETURN
- 9998 REM --- TRAP SPECIAL CHARACTERS ---
- REPLY$="" : CHAR%=0 : ACT.LEN%=0 : DOT.OVER% = 0
- REM FLD.LEN% < 0 GOTO 9998.2
- IF CHAR% = 8 AND ACT.LEN% = 0 THEN \
- GOTO 9998.2
- IF CHAR% = 127 OR CHAR% = 8 THEN \
- PRINT CHR$(8);" ";CHR$(8);
- IF CHAR% = 127 OR CHAR% = 8 THEN \
- ACT.LEN%=ACT.LEN%-1 : \
- REPLY$=LEFT$(REPLY$,LEN(REPLY$)-1) ELSE GOTO 9998.4
- IF DOT.OVER% THEN DOT.OVER% = DOT.OVER% - 1
- GOTO 9998.7
- 9998.4 IF CAR% = 46 THEN DOT.OVER% = DOT.OVER% + 1
- 9998.6 ACT.LEN%=ACT.LEN% + 1
- IF ACT.LEN%>FLD.LEN% AND DOT.OVER% THEN DOT.OVER% = DOT.OVER% - 1
- IF ACT.LEN%>FLD.LEN% AND FLD.LEN% <> 0 THEN \
- PRINT CHR$(7); : ACT.LEN% = ACT.LEN% -1 : \
- GOTO 9998.7
- PRINT CHR$(CHAR%);
- REPLY$=REPLY$+CHR$(CHAR%)
- IF ACT.LEN%>FLD.LEN% THEN \
- CHAR%=13
- 9998.7 WEND
- REM "PRINT CHR$(CHAR%); INSERTED FOR CB80/86 TO CAUSE CURSOR
- REM TO LINREM 110185 - RML - RESET THE EMPLOYER FICA RATE (XE.L4) TO BE EQUAL TO THE
- REM EMPLOYEE FICA RATE (L(4))
- REM
- REM 112084 - SRS CORRECTED 1985 EMPLOYER'S FICA RATE TO BE 7.05%
- REM
- REM 100683 - (RCB) ADDED LINE 1000 AND CHANGED L(4) TO XE.L4 IN TWO INSTANCES
- REM AFTER LINE 1000 TO FORCE EMPLOYERS FICA RATE TO .07 (7%)
- REM IN 1984
- REM
- REM 071283 - DCF CHANGED VARIABLE H TO H.XE FOR CB80 COMPILE
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS T PRINT "***** ";ERR$;" *****";
- RETURN
- 2100 X%=0 : Y% = 21 : GOSUB 9006 : GOSUB 9009.1
- X%=INT(40-(LEN(MSSG$)/2)) : GOSUB 9006
- PRINT MSSG$;
- RETURN
- 9005 PRINT CLR$;:FOR DELAY=0 TO CLR.DLY% : NEXT DELAY
- RETURN
- 9006 REM CURSOR POSITIONING ROUTINE
- PRINT HOME$
- X.POS%=X% + X.OFF% : Y.POS% = Y% + Y.OFF%
- IF XY%=2 AND X.POS%<31 THEN \
- X.POS% = X.POS% + 96
- IF XY% = 1 OR XY% = 2 THEN \
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%=INKEY
- REM ************* MODIFIED FOR AUTO DUPE KEY **************
- IF CHAR% = ASC(DUPE.KEY$) AND ACT.LEN% = 0 THEN \
- REPLY$ = DUPE.KEY$ : CHAR% = 13 : GOTO 9998.7
- REM IF CHAR% = 46 AND DOT.OVER% THEN PRINT CHR$(8);" ";CHR$(8);CHR$(7); : \
- REM GOTO 9998.7
-
- IF CHAR%=127 AND ACT.LEN% = 0 THEN \
- HAR%<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% = 46 AND DOT.OVER% = 0 THEN DOT.OVER% = 1 : GOTO 9998.6
- IF CHAR% < 48 OR CHAR% > 57 THEN \
- PRINT CHR$(7); : \
- GOTO 9998.7
- REM *************************************************************
- IF DOT.OVER% THEN DOT.OVER% = DOT.OVER% + 1
- REM IF CHE FEED AN RETURN WHEN RETURN IS PRESSED
- IF FLD.LEN% <> 0 THEN PRINT CHR$(CHAR%);
- RETURN
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞O NFLANKS
- REM
- REM *** 9/23/82 DTK - NEW FILE SIZE AND CHAIN PGM$
- REM ***
- REM *** 9/14/82 DTK - FIXED .01 AMOUNT IN EMPLOYER FICA
- REM ***
- REM *** 9/14/82 DTK - FIXED DEDUCTION PRINTING TO PRINT USING TO GET ZEROS
- REM ***
- REM ***PAYROLL SUMMARY (SUMMARY) (10D)
- REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC. (VERSION 4.0)
- REM 648 SOUTH RIVER DR. 602-968-7101
- REM TEMPE, AZ. 85281
- %INCLUDE COMMON
- M=500
- DIM A(10),H(M),L(10)
- B$=" "
- L$="----------------------------------------------------------------"
- FORM.12F2$ = "#,###,###.##"
- OPEN FIL$(2)+":"+CLIENT$+"CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL = 1
- OPEN FIL$(3)+":"+CLIENT$+"EAR.FIL" RECL 525 AS 2 : EARNREC.FIL = 2
- OPEN FIL$(6)+":"+CLIENT$+"PAS.FIL" RECL 175 AS 3 : PASSVAR.FIL = 3
- GOSUB 10000.1
-
- GOSUB 9005
- PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
- PRINT " +++++ NOW PRINTING PAYROLL JOURNAL SUMMARY ++PLOYER FICA";TAB(29);
- PRINT USING FORM.12F2$;K2/100;
- PRINT TAB(41);
- REM IF MID$(D9$,5,2) = "84" THEN XE.L4 = .07 ELSE XE.L4 = .0705
- REM RESET EMPLOYER FICA RATE TO BE EQUAL TO THE EMPLOYEE FICA RATE
- 1000 XE.L4 = L(4)
- PRINT USING FORM.12F2$;(XE.L4*100);
- PRINT "%";
- PRINT TAB(54);
- PRINT USING FORM.12F2$;INT(K2*(XE.L4)+.5)/100
- PRINT
- PRINT TAB(5);"EMPLOYEE FICA";TAB(29);
- PRINT USING FORM.12F2$;K1/100;
- PRINT TAB(41);
- PRINT USING FORM.12F2$;L(4)*100;
- PRINT "%";
- PRINT TAB(54);
- P);
- PRINT USING FORM.12F2$;T6/100;
- PRINT TAB(41);
- PRINT USING FORM.12F2$;L(4)*100;
- PRINT "%";
- PRINT TAB(54);
- PRINT USING FORM.12F2$;INT(T6*L(4)+.5)/100
- PRINT
- 2841 PRINT TAB(5);"TAXABLE SDI";TAB(29);
- PRINT USING FORM.12F2$;D6/100;
- PRINT TAB(41);
- PRINT USING FORM.12F2$;L(7)*100;
- PRINT "%";
- PRINT TAB(54);
- PRINT USING FORM.12F2$;INT(D6*L(7)+.5)/100
- PRINT : PRINT : PRINT
- 2860 J=1 : K=3
- 2870 PRINT TAB(5);"SUMMARY OF OTHER DEDUCTIONS"
- PRINT TAB(5);LEFT$(L$,27)
- 289,2);"/";MID$(D9$,3,2);"/";MID$(D9$,5,2)
- 2990 PRINT TAB(5);LEFT$(L$,37)
- 3000 PRINT TAB(5);"1ST-3TH DAY = ";TAB(30);
- PRINT USING FORM.12F2$;M1/100
- 3005 PRINT TAB(5);"4TH-7TH DAY = ";TAB(30);
- PRINT USING FORM.12F2$;M7/100
- 3010 PRINT TAB(5);"8TH-11TH DAY = ";TAB(30);
- PRINT USING FORM.12F2$;M2/100
- 3015 PRINT TAB(5);"12TH-15TH DAY = ";TAB(30);
- PRINT USING FORM.12F2$;M6/100
- 3020 PRINT TAB(5);"16TH-19ND DAY = ";TAB(30);
- PRINT USING FORM.12F2$;M3/100
- 3025 PRINT TAB(5);"20TH-22TH DAY = ";TAB(3
- 3085 PRINT TAB(5);"DEPT.";TAB(15);"REG. WAGES";TAB(32);"OVT. & BONUS";
- 3086 PRINT TAB(50);"MEALS & LODGING";TAB(75);"TIPS"
- 3090 PRINT L$;LEFT$(L$,16)
- RETURN
- 3095 GOSUB 3070
- T=0 : B=99999
- 3100 C=0
- 3110 IF END #EARNREC.FIL THEN 3170
- X = C : GOSUB 10000 : REM READ EARNREC.FIL
- N = EMP.NO
- IF N = -1 THEN 3170
- IF T<N THEN T=N
- IF B>N THEN B=N
- H(C)=N
- C=C+1
- 3150 GOTO 3110
- 3170 FOR X= INT(B/1000) TO INT(T/1000)+1
- D=99
- 3180 FOR Y=0 TO C-1
- 3190 IF INT(H(Y+++"
- GOSUB 4040
- LPRINTER
- PRINT CHR$(12),
- PRINT : PRINT
- PRINT TAB(5);C1$;TAB(60);"CLIENT NUMBER ";
- PRINT USING "#######";C9
- PRINT TAB(5);"PAYROLL SUMMARY";
- PRINT TAB(60);"RUN NUMBER ";R8
- PRINT TAB(5);"FOR PERIOD ENDING ";MID$(D9$,1,2);"/";MID$(D9$,3,2);"/";MID$(D9$,5,2)
- PRINT : PRINT
- PRINT TAB(32);"CURRENT";TAB(57);"CURRENT"
- PRINT TAB(32);"PERIOD";TAB(58);"PERIOD"
- PRINT TAB(32);"TAXABLE";TAB(48);"RATE";TAB(61);"TAX"
- PRINT TAB(5);LEFT$(L$,61)
- PRINT
- PRINT TAB(5);"EMRINT USING FORM.12F2$;INT(K1*L(4)+.5)/100
- PRINT
- PRINT TAB(5);"STATE UNEMP.";TAB(29);
- PRINT USING FORM.12F2$;G8/100;
- PRINT TAB(41);
- PRINT USING FORM.12F2$;L(5)*100;
- PRINT "%";
- PRINT TAB(54);
- PRINT USING FORM.12F2$;INT(G8*L(5)+.5)/100
- PRINT
- PRINT TAB(5);"FEDERAL UNEMP.";TAB(29);
- PRINT USING FORM.12F2$;K8/100;
- PRINT TAB(41);
- PRINT USING FORM.12F2$;L(6)*100;
- PRINT "%";
- PRINT TAB(54);
- PRINT USING FORM.12F2$;INT(K8*L(6)+.5)/100
- PRINT
- PRINT TAB(5);"TAXABLE TIPS";TAB(290 FOR H.XE=1.0 TO FLOAT(LEN(A$)) STEP 3.0
- IF MID$(A$,H.XE,3)=" "THEN GOTO 2910
- PRINT TAB(5);MID$(A$,H.XE,3);TAB(20);
- PRINT USING "###,###.##";A((H.XE-1)/3)/100
- 2910 NEXT H.XE
- 2920 PRINT TAB(20);"------------"
- 2930 PRINT TAB(5);"TOTAL OTHER ";
- 2940 PRINT USING "###,###.##";A(10)/100
- PRINT : PRINT : PRINT : PRINT
- 2960 PRINT TAB(5);"BREAKDOWN OF FICA & FWH TAX LIABILITY BY ";
- 2970 PRINT "EIGHT SEGMENTS/MONTH"
- 2980 PRINT TAB(5);"FOR CURRENT PERIOD ENDING ";MID$(D9$,10);
- PRINT USING FORM.12F2$;M5/100
- 3030 PRINT TAB(5);"23RD-25TH DAY = ";TAB(30);
- PRINT USING FORM.12F2$;M0/100
- 3035 PRINT TAB(5);"26TH-E.O.M. = ";TAB(30);
- PRINT USING FORM.12F2$;M4/100
- 3040 PRINT TAB(5);LEFT$(L$,37)
- 3050 PRINT TAB(5);"TOTAL LIABILITY";TAB(30);
- PRINT USING FORM.12F2$;(M7+M6+M5+M4+M0+M1+M2+M3)/100
- 3060 PRINT CHR$(12);
- 3065 GOTO 3095
- 3070 PRINT : PRINT : PRINT
- P=8
- 3080 PRINT TAB(10);"RECAP OF WAGES BY DEPARTMENT NUMBER USED FOR CURRENT MONTH"
- 3082 PRINT
)/1000)<>X THEN 3220
- 3200 SAVE.X = X : X = Y : GOSUB 10000
- N = REG.WAGES
- O = OVERTIME.WAGES
- M = MEALS.AND.LODGING
- T9= TIPS
- X = SAVE.X
- 3210 N1=N1+N : O1=O1+O : O8=O8+M : T1=T1+T9
- 3215 N2=N2+N : O2=O2+O : O6=O6+M : T2=T2+T9
- 3220 IF INT(H(Y)/1000)-X<D AND INT(H(Y)/1000)-X>0 THEN \
- D=INT(H(Y)/1000)-X
- 3225 NEXT Y
- 3230 IF N1+O1+O8+T1=0 THEN 3300
- 3250 PRINT TAB(8);
- PRINT USING "##";X;
- PRINT TAB(12);
- PRINT USING FORM.12F2$;N1/100;
- PRINT USING FORM.12F2$;TAB(32);O1/100;
- 3260 PRINT TAB(53);
- PRINT USING FORM.12F2$;O8/100;
- PRINT TAB(67);
- PRINT USING FORM.12F2$;T1/100
- 3270 PRINT
- P=P+3
- 3280 IF P>60 THEN GOSUB 3070
- 3290 N1=0 : O8=0 : O1=0 : T1=0
- 3295 IF D<>0 THEN X=X+D-1
- 3300 NEXT X
- 3310 PRINT L$;LEFT$(L$,16)
- 3320 PRINT TAB(5);"TOTAL:";
- 3330 PRINT TAB(12);
- PRINT USING FORM.12F2$;N2/100;
- PRINT TAB(32);
- PRINT USING FORM.12F2$;O2/100;
- 3340 PRINT TAB(53);
- PRINT USING FORA(10) =TOT.OTHER.DED
- M7 =TAX.LIAB.1ST
- M6 =TAX.LIAB.2ND
- M5 =TAX.LIAB.3RD
- M4 =TAX.LIAB.4TH
- M1 =TAX.LIAB.1.3
- M2 =TAX.LIAB.8.11
- M3 =TAX.LIAB.16.19
- M0 =TAX.LIAB.23.25
- EMPLOYER.FICA = 1
- GOSUB 10030.1
- 4110 X1=0
- 4116 GOSUB 5000 : REM READ CLNRNM.FIL
- C9 = CLIENT.NO
- C1$ = CLIENT.NAME$
- C2$ = GL.END.DATE$
- D9$ = PAY.END.DATE$
- R8 = RUN.NUMBER
- 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.UNEAFTER"
- PRINT TAB(10),"THE PROGRAMS 'PAYROLL' AND 'PAYROLL2' HAVE BEEN RUN IN THEIR"
- PRINT TAB(10),"PROPER SEQUENCE !"
- PRINT : PRINT : PRINT
- PRINT " PRESS RETURN TO GO TO PAYROLL MENU ";
- FLD.LEN%= 1 : GOSUB 9998 : PRINT
- GOTO 3350
- %INCLUDE 5000
- %INCLUDE 10000
- %INCLUDE 10020
- %INCLUDE 10030
- %INCLUDE NFLANKS
- N MADE. THE INFORMATION NEEDED TO PREPARE THE REPORTS"
- PRINT TAB(10),"THAT THIS PROGRAM GENERATES IS ONLY AVAILABLE DIRECTLY REM 110185 - RML - RESET EMPLOYER FICA RATE TO BE EQUAL TO THE EMPLOYEE RATE
- REM
- REM 112084 - SRS - CORRECTED 1985 EMPLOYER'S FICA RATE TO BE 7.05%
- REM
- REM 010384 - (RCB) PUT IN LINE A FEW LINES AFTER 180 TO SET XE.L4 TO
- REM .07 IF THE YEAR IS "84" OR L(4) IF NOT - AND CHANGED
- REM LINES FORM AROUND 1040 THROUGH 1100 TO MULTIPLY
- REM J6 BY XE.L4 ( + INT((XE.L4 * J6) +.5))
- REM
- REM 102783 - (RCB) ADD CHANGES FOR NEGATIVE CHECK BACKING OUT DURRING
- REM FICA CUT OFF CROSS OVER AROUND 88CSS BY CHANGING VARIABLE LOCAL.WTIH.1
- REM TO THE CORRECT VARIABLE USED LOCAL.WITH.1
- REM
- REM *** 042283 DCF - FIXED BUG #29041983-3-IMP BY CHECKING FOR A <CR> WHEN ENTERING
- REM AN EMPLOYEE NUMBER
- REM
- REM *** 041983 DCF - FIXED BUG #1-041483-3-IJH BY CHANGING FORMATTED PRINTING
- REM TO ALLOW FOR A LARGER # IN CHECK BALANCE AND OUT OF BALANCE
- REM CONDITION.
- REM
- REM *** 040883 DCF - FIXED BUG CODE #040883-3-IMP, CHANGED LINEM.12F2$;O6/100;
- PRINT TAB(67);
- PRINT USING FORM.12F2$;T2/100
- 3345 PRINT CHR$(12);
- 3350 CONSOLE
- CHAIN PGM$(2)+":PMENU"
- 4040 F8$="PASSVAR,1"
- GOSUB 10020.1
- K2 =EMPLOYER.FICA
- K1 =EMPLOYEE.FICA
- G8 =STATE.UNEMP
- K8 =FED.UNEMP
- T6 =TAX.TIPS
- D6 =TAX.ST.DIS
- A$ =DED.DESC$
- A(0)=OTHER.DED.1
- A(1)=OTHER.DED.2
- A(2)=OTHER.DED.3
- A(3)=OTHER.DED.4
- A(4)=OTHER.DED.5
- A(5) =OTHER.DED.6
- A(6) =OTHER.DED.7
- A(7) =OTHER.DED.8
- A(8) =OTHER.DED.9
- A(9) =OTHER.DED.10
- MP.RATE
- L(6) = FED.UNEMP.RATE
- L(7) = ST.DIS.RATE
- RETURN
- 10000.1 GOSUB 9005
- PRINT : PRINT : PRINT : PRINT : PRINT
- PRINT TAB(20),"***** CHECK PRINTER STATUS *****"
- PRINT : GOSUB 9005
- RETURN
- 12000 CONSOLE
- GOSUB 9005
- PRINT : PRINT : PRINT : PRINT
- PRINT TAB(14),"AN ATTEMPT TO RUN SUMMARY OUT OF ITS PROPER SEQUENCE"
- PRINT TAB(10),"HAS BEEN MADE. THE INFORMATION NEEDED TO PREPARE THE REPORTS"
- PRINT TAB(10),"THAT THIS PROGRAM GENERATES IS ONLY AVAILABLE DIRECTLY 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞4
- REM
- REM 092683 - (RCB) CHANGED E TO E.NO, F TO F4, P TO PG.NO, L TO L1.XE
- REM PER DCF FOR CB80
- REM
- REM *** 080383 DCF - ADDED UCASE$ WHEN CHECKING FOR VALID 4 CHAR. OF LAST NAME
- REM AND ADDED CHECK OF DUPE KEY FOR THE CHECK AMOUNT FIELD
- REM
- REM 062083 - (RCB) CHANGED "R & B" TO "D M S"
- REM
- REM *** 051883 DCF - FIXED BUG #68-013683-IRML BY CHANGING VARIABLE TOTAL
- REM WHICH WAS BEING DIVIDED BY 10 TO 100
- REM
- REM *** 042283 DCF - FIXED BUG #40042183- 680' FLD.LEN%
- REM FROM 12 TO 10
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM *** 02/01/83 DCF - ADDED THE TYPE OF RUN TO PRINT OUT ON PAYROL JOURNAL HEADING
- REM ***
- REM *** 02/01/83 DCF - CHANGED PRINT CLR$ TO GOSUB 9005
- REM *** CHANGED 3.6 TO VERSION$
- REM ***
- REM *** 11/15/82 DTK - MORE WORK ON DEDUCTIONS PROBLEM - TRY MATCH(A$)
- REM ***
- REM *** 9/24/82 DTK - FIXED 10 DEDUCTION PROBLEM
- REM ***
- REM *** 09/23/82 DTK - NEW FILE SIZE AND CHAIN PGM$'S
- REM ***
- REM ***PAYROLL JOURNAL AND SUMMARY (PAYROLL2) (10D)
- REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC. (VERSION 4.0)
- REM 648 SOUTH RIVER DR. 602-968-7101
- REM TEMPE, AZ. 85281
- %INCLUDE COMMON.BAS
- M=HOLE(4) : P4=1
- DIM A(10),P(6,14),F(9),E(M),L(7),A2(10),P9(3,14),V$(15)
- OPEN FIL$(2)+":"+CLIENT$+"CLN.FIL" RECL 255 AS 2 : CLNRNM.FIL = 2
- OPEN FIL$(3)+":"+CLIENT$+"EAR.FIL"OSUB 9005 : PRINT : PRINT
- 180 PRINT "ENTER THE PAYROLL JOURNAL DATE (MMDDYY) > <";
- Y=6 : GOSUB 8000 : PRINT ">";
- FLD.LEN% = -6 : GOSUB 9998 : PRINT : D$=LEFT$(REPLY$+B$,6)
- GOSUB 7300
- IF D$="INVALI" THEN GOTO 180 ELSE D9$=D$
- REM PUT IN FOR SPLIT FICA IN 1984 MOD
- REM RESET XE.L4 TO BE EQUAL TO L(4) RML-110185.
- REM IF MID$(D9$,5,2) = "84" THEN XE.L4 = .07 ELSE XE.L4 = .0705
-
- U9=200
- GOSUB 5000 : REM READ CLNRNM.FIL
- C = CLIENT.NO : C1$ = CLIENT.NAME$ : C2$ = GL.END.DATE$ : C34) = MEALS.LDG.TO.SDI
- F(5) = TIPS.TO.SDI
- F(6) = ST.UNEMP.CONT.FLG
- F(7) = FORMAT.1
- F(8) = FORMAT.2
- F(9) = TIP.CONT.SHEET
- GOSUB 9950
- R8=R8+1
- RUN.NUMBER = R8
- GOSUB 5010 : REM WRITE CLNRNM.FIL
- U9=0
- GOSUB 3600
- PRINT "SET THE PRINTER AND PAPER ";
- GOSUB 5100
- GOSUB 12000
- PRINT TAB(11);" D M S Client Programmed Accounting Ver ";VERSION$ : PRINT
- PRINT " ***** PAYROLL OPTION #2 *****"
- PRINT L$
- GOSUB 1720
- Q7$ = " "
- FOR X=2 TO EPLY$,1)) : PRINT
- PRINT
- IF X$="Y" THEN S=0 : GOTO 400
- IF X$="N" THEN S=1 : GOTO 400
- GOSUB 5110
- GOTO 390
- 400 FOR X=1 TO 14
- P(6,X)=0
- NEXT X
- GOSUB 9005
- GOSUB 11000
- 410 PRINT : PRINT "ENTER ALL AMOUNTS WITHOUT DECIMAL POINTS!" : PRINT
- 416 PRINT "TO END THIS PAYROLL JOURNAL ENTER -1 (MINUS ONE)"
- PRINT " IN THE EMPLOYEE NUMBER FIELD"
- PRINT : PRINT L$ : PRINT
- 416.1 PRINT : PRINT "ENTER EMPLOYEE NUMBER > <";
- Y=5 : GOSUB 8000 : PRINT ">";
- FLD.LEER XXXXXX : :";
- Y=6 : GOSUB 8000 : PRINT":";
- FLD.LEN% = 6 : GOSUB 9998 : PRINT : V1$ = LEFT$(REPLY$+B$,6)
- 500 PRINT "ENTER CHECK DATE (MMDDYY) > <";
- Y = 6 : GOSUB 8000 : PRINT ">";
- FLD.LEN% = -6 : GOSUB 9998 : PRINT : D$=LEFT$(REPLY$+B$,6)
- IF LEFT$(D$,1)<>DUPE.KEY$ THEN GOTO 520
- 515 D$=D1$ : PRINT TAB(34);">"; : PRINT REVLF$; : PRINT D$
- 520 GOSUB 7300
- IF D$="INVALI" THEN 500
- D1$=D$
- X2=0
- E1=100-INT(E.NO/1000)
- IF E1>4 THEN E1=4
- FOR X=1 TO 14
- RECL 525 AS 3 : EARNREC.FIL = 3
- B$=" "
- V$(1)="REGULAR WAGES"
- V$(2)="OVERTIME"
- V$(3)="MEALS & LODGING"
- V$(4)="TAXABLE TIPS"
- V$(5)="FICA WITHHELD"
- V$(6)="FED INC TAX WH"
- V$(7)="STATE INC TAX WH"
- V$(8)="STATE DISAB INS"
- V$(9)="LOCAL WH #1"
- V$(10)="LOCAL WH #2"
- V$(11)="DEDUCTION #1"
- V$(12)="DEDUCTION #2"
- V$(13)="OTHER DEDUCTIONS"
- V$(14)="NET CHECK"
- L$="---------------------------------------------------------------------------"
- A$=""
- G$ = PAY.END.DATE$
- CLIENT.NO =C : CLIENT.NAME$ =C1$ : GL.END.DATE$ =C2$ : PAY.END.DATE$=D$
- GOSUB 5010 : REM WRITE CLNRMN.FIL
- GOSUB 5000 : REM READ CLNRNM.FIL
- 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
- E9$ = LOCAL.DESC$
- XE.L4 = L(4)
-
- T = TYPE.OF.RUN
- F(0) = TIPS.F.U.I
- F(1) = MEALS.LDG.TO.ST.UNEMP
- F(2) = TIPS.TO.ST.UNEMP
- F(3) = ST.DIS.FLG
- F(12
- IF X=5 OR X=6 THEN 381
- H$=V$(X)
- 373 PRINT "DO YOU WANT TO ENTER ";H$;" FOR THIS PERIOD?"
- PRINT " ENTER Y FOR YES OR N FOR NO :";
- FLD.LEN% = 1 : GOSUB 9998 : M$ = UCASE$(LEFT$(REPLY$,1))
- PRINT
- IF M$<>"Y" AND M$<>"N" THEN \
- GOSUB 5110 : GOTO 373
- 380 Q7$ = LEFT$(Q7$,X-1) + M$ + RIGHT$(Q7$,14-X)
- 381 NEXT X
- S=1
- IF F(3)=7 THEN 400
- 390 PRINT "DO YOU WANT SDI OVER/UNDER MESSAGES ON PAYROLL JOURNAL? :";
- FLD.LEN% = 1 : GOSUB 9998 : X$ = UCASE$(LEFT$(RN% = -6 : GOSUB 9998 : PRINT
- IF LEN(REPLY$) = 0 THEN 420
- E.NO = VAL(REPLY$)
- IF E.NO=-1 THEN 2570
- GOSUB 4100
- IF F4=1 THEN 430
- PRINT CHR$(7);"THERE IS NO EMPLOYEE WITH THAT NUMBER!"
- GOTO 1890
- 420 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
- FOR XE= 1 TO 250 : NEXT XE : GOTO 416.1
- 430 PRINT "ENTER FIRST 4 CHAR. OF LAST NAME : :";
- Y=4 : GOSUB 8000 : PRINT":";
- FLD.LEN% = 4 : GOSUB 9998 : PRINT : N1$ = UCASE$(LEFT$(REPLY$+B$,4))
- PRINT "ENTER CHECK NUMB P(5,X)=0
- ON E1 GOTO 672,673,674,675
- 672 IF X>4 AND X<9 THEN 730
- GOTO 675
- 673 IF X>5 AND X<8 THEN 730
- GOTO 675
- 674 IF X=5 OR X=8 THEN 730
- 675 IF MID$(Q7$,X,1)="N" THEN 730
- 680 PRINT "ENTER ";V$(X);TAB(34);" <";
- Y=10 : GOSUB 8000 : PRINT ">";
- FLD.LEN% = -10 : GOSUB 9998 : P(5,X)=VAL(REPLY$): PRINT
- IF REPLY$=DUPE.KEY$ THEN PRINT CHR$(7);REVLF$; : GOTO 680
- IF P(5,X)-INT(P(5,X))=0 THEN GOTO 710
- 700 PRINT
- PRINT CHR$(7);"DO NOT USE DECIMAL POINT-ENTER ONE DOLLAR AS 100!"
- 705 GOTO 680
- 710 IF X<5 THEN \
- X2=X2+P(5,X) \
- ELSE \
- X2=X2-P(5,X)
- PRINT TAB(47);"<";" CHECK BALANCE=";
- PRINT USING "###,###,###.##";X2/100
- PRINT REVLF$;
- 730 NEXT X
- PRINT
- IF X2=0 THEN 830
- PRINT CHR$(7);"THAT LAST CHECK DOES NOT BALANCE, ENTER AGAIN!"
- PRINT "IT IS OUT OF BALANCE BY ";
- PRINT USING "###,###,###.##";X2/100
- GOTO 410
- 830 GOSUB 4100
- GOSUB 5800
- IF MID$(N1$,LEN(N1$),1) = "," THEN N1$=MID$(N1$,1,LESUB 2030
- GOSUB 2230 : GOSUB 10000.1
- IF E1=1 THEN 895
- IF E1=3 THEN 895
- REM IF TYPED IN WAGES+O.T. IS NEGATIVE AND YTD WAGES UNDER FICA CUT OFF
- REM THEN ADD NEGITIVE TYPED IN NUMBER
- REM
- IF G5<0 AND G3<L(0) THEN 883
- REM IF TYPED IN WAGES+O.T. IS NEGATIVE AND YTD IS OVER FICA CUT OFF BUT
- REM TYPED IN NEGATIVE NUMBER BRINGS IT BELOW FICA CUT OFF THEN SUBTRACT
- REM OUT THE AMOUNT FROM FICA WAGES WHICH WAS NOT EXCESS OF FICA WAGES
- REM (PUT IT BACK THE WAY IT WAS)
- REM
- IF G5<0 AND G3+G5<L(0)CH WAS NOT EXCESS OF FICA WAGES
- REM (PUT IT BACK THE WAY IT WAS)
- REM
- IF G5<0 AND G3+P(3,4)+G5<L(0) THEN J6=INT(G3-L(0)+G5+.5) : GOTO 891
- IF G3+P(3,4)>L(0) THEN 890
- IF G3+P(3,4)+G5>L(0) THEN 889
- 887 J6=G5
- GOTO 891
- 889 J6=INT(L(0)-G3-P(3,4)+.5)
- GOTO 891
- 890 J6=0
- 891 K1=K1+J8 : K2=K2+J6
- 895 LPRINTER
- PRINT TAB(5);N;TAB(12);N$;TAB(40);MID$(D$,1,2);"/";MID$(D$,3,2);"/";MID$(D$,5,2);
- PRINT TAB(51);V1$
- PRINT TAB(3);
- FOR X=1.0 TO 13.0 STEP 2.0
- PRINT USING "########.
- 958 IF J1<>3 THEN 961
- X=3
- FOR X1=1. TO 14
- P(X,X1)=P(X,X1)+P(5,X1)
- NEXT X1
- GOTO 974
- 961 IF J1<>4 THEN 964
- FOR X=1. TO 2.
- FOR X1=1. TO 14.
- P(X,X1)=P(X,X1)+P(5,X1)
- NEXT X1
- NEXT X
- GOTO 974
- 964 IF J1<>5 THEN 970
- X=2
- 966 FOR X=2. TO 3.
- FOR X1=1. TO 14.
- P(X,X1)=P(X,X1)+P(5,X1)
- NEXT X1
- NEXT X
- GOTO 974
- 970 FOR X=1. TO 4.
- FOR X1=1. TO 14.
- P(X,X1)=P(X,X1)+P(5,X1)
- NEXT X1
- NEXT X
- 974 IF E1=1 THEN 1320
- IF E1=3 TH,3,2))>7 THEN 1050
- M7=M7+INT(L(4)*(J8)+.5)+P(5,6)+INT(L(4)*T5+.5) + INT((XE.L4 * J6) +.5)
- GOTO 1101
- 1050 IF VAL(MID$(D$,3,2))>11 THEN 1060
- M2=M2+INT(L(4)*(J8)+.5)+P(5,6)+INT(L(4)*T5+.5) + INT((XE.L4 * J6) +.5)
- GOTO 1101
-
- 1060 IF VAL(MID$(D$,3,2))>15 THEN 1075
- M6=M6+INT(L(4)*(J8)+.5)+P(5,6)+INT(L(4)*T5+.5) + INT((XE.L4 * J6) +.5)
- GOTO 1101
- 1075 IF VAL(MID$(D$,3,2))>19 THEN 1080
- M3=M3+INT(L(4)*(J8)+.5)+P(5,6)+INT(L(4)*T5+.5) + INT((XE.L4 * J6) +.5)
- GOTO 1101
- 1080 IF VAL(MID$N(N1$)-1)
- IF UCASE$(N1$)=UCASE$(MID$(N$,1,LEN(N1$))) THEN 880
- 850 PRINT CHR$(7);"EMPLOYEE NAME AND NUMBER DO NOT MATCH!"
- PRINT "EMPLOYEE NUMBER";
- PRINT USING "#######";N;
- PRINT " IS ";N$
- PRINT "IS THIS THE CORRECT EMPLOYEE? ENTER Y FOR YES OR N FOR NO :";
- FLD.LEN%=1 : GOSUB 9998 : PRINT : X$=UCASE$(LEFT$(REPLY$,1))
- IF X$="Y" THEN 880
- IF X$="N" THEN 878
- GOSUB 5110
- GOTO 850
- 878 PRINT CHR$(7);"YOU MUST RE-ENTER THAT LAST CHECK!"
- GOTO 1380
- 880 IF P(5,13)<>0 THEN A2$="" : GO THEN J8=INT(G3-L(0)+G5+.5) : GOTO 886
- IF G3>L(0) THEN 885
- IF G3+G5>L(0) THEN 884
- 883 J8=G5
- GOTO 886
- 884 J8=INT(L(0)-G3+.5)
- GOTO 886
- 885 J8=0
- REM IF TYPED IN WAGES+O.T. IS NEGATIVE AND YTD WAGES UNDER FICA CUT OFF
- REM THEN ADD NEGITIVE TYPED IN NUMBER
- REM
- 886 IF G5<0 AND G3+P(3,4)<L(0) THEN 887
- REM IF TYPED IN WAGES+O.T. IS NEGATIVE AND YTD IS OVER FICA CUT OFF BUT
- REM TYPED IN NEGATIVE NUMBER BRINGS IT BELOW FICA CUT OFF THEN SUBTRACT
- REM OUT THE AMOUNT FROM FICA WAGES WHI##";P(5,X)/100;
- P(6,X)=P(6,X)+P(5,X)
- NEXT X
- PRINT
- PRINT TAB(3);
- FOR X=2.0 TO 14.0 STEP 2.0
- PRINT USING "########.##";P(5,X)/100,
- P(6,X)=P(6,X)+P(5,X)
- NEXT X
- PRINT
- PG.NO=PG.NO+5
- PRINT
- CONSOLE
- IF PG.NO>63 THEN GOSUB 1720
- IF T <=4 THEN 970
- J1 = PERIOD.TO.ADJ
- IF J1<>1 THEN 955
- X=1
- FOR X1=1. TO 14.
- P(X,X1)=P(X,X1)+P(5,X1)
- NEXT X1
- GOTO 974
- 955 IF J1<>2 THEN 958
- X=2
- FOR X1=1. TO 14.
- P(X,X1)=P(X,X1)+P(5,X1)
- NEXT X1
- GOTO 974
- EN 1034
- G9=P(5,1)+P(5,2) : G3=P(3,1)+P(3,2)
- T3=P(3,4) : T9=P(5,4)
- IF G3-G9<L(0) THEN 1000
- G5=0
- GOTO 1030
- 1000 IF G3>L(0) THEN G5=G9-(G3-L(0)) ELSE G5=G9
- G6=G6+G5
- 1030 IF J7=0 THEN GOTO 1031 ELSE GOTO 1032
- 1031 T5=0
- GOTO 1040
- 1032 IF G9>=J7 THEN GOTO 1031 ELSE T5=J7-G9
- T6=T6+T5
- GOTO 1040
- 1034 J6=0 : J8=0 : T5=0
- 1040 IF VAL(MID$(D$,3,2))>3 THEN GOTO 1045
- M1=M1+INT(L(4)*(J8)+.5)+P(5,6)+INT(L(4)*T5+.5) + INT((XE.L4 * J6) +.5)
- GOTO 1101
- 1045 IF VAL(MID$(D$(D$,3,2))>22 THEN 1095
- M5=M5+INT(L(4)*(J8)+.5)+P(5,6)+INT(L(4)*T5+.5) + INT((XE.L4 * J6) +.5)
- GOTO 1101
- 1095 IF VAL(MID$(D$,3,2))>25 THEN 1100
- M0=M0+INT(L(4)*(J8)+.5)+P(5,6)+INT(L(4)*T5+.5) + INT((XE.L4 * J6) +.5)
- GOTO 1101
- 1100 M4=M4+INT(L(4)*(J8)+.5)+P(5,6)+INT(L(4)*T5+.5) + INT((XE.L4 * J6) +.5)
- 1101 IF E1=3 THEN 1320
- G3=P(3,1)+P(3,2) : G9=P(5,1)+P(5,2)
- IF F(1)=7 THEN 1110
- G3=G3+P(3,3) : G9=G9+P(5,3)
- 1110 IF F(2)=7 THEN 1120
- G3=G3+P(3,4) : G9=G9+P(5,4)
- 1120 IF G3-G9-L(1)>=0 THEN 1220
- G7=ABS(G3-G9-L(1))
- IF G9<G7 THEN G7=G9
- GOTO 1230
- 1220 G7=0
- 1230 G8=G8+G7
- G3=P(3,1)+P(3,2) : G9=P(5,1)+P(5,2)
- IF F(0)<>5 THEN 1240
- G3=G3 + P(3,4) : G9=G9 + P(5,4)
- 1240 IF G3-G9-L(2)>0 THEN 1280
- K7=ABS(G3-G9-L(2))
- IF G9<K7 THEN K7=G9
- GOTO 1290
- 1280 K7=0
- 1290 K8=K8+K7
- G3=P(3,1)+P(3,2) : G9=P(5,1)+P(5,2)
- IF F(3)=7 THEN 1308
- IF F(4)=7 THEN 1298
- G3=G3+P(3,3) : G9=G9+P(5,3)
- 1298 IF F(5)=7 THEN 1300
- G3=G3+P(3,4) : G9=G9+P(5,4)
- 1300 IF (G3-GPRINT TAB(10);
- IF T=2 THEN PRINT "NEW MONTH"
- IF T=3 THEN PRINT "NEW QUARTER"
- IF T=4 THEN PRINT "NEW YEAR"
- IF T=5 THEN PRINT "ADJUSTING RUN"
- PRINT TAB(10);"PERIOD ENDING ";MID$(D9$,1,2);"/";MID$(D9$,3,2);"/";MID$(D9$,5,2)
- PRINT : PRINT
- PRINT TAB(5);"EMP # NAME";TAB(40);"DATE";TAB(51);"CK. #"
- PRINT TAB(10);"REG.";TAB(22);"M&L";TAB(32);"FICA";TAB(44);"SIT";
- PRINT TAB(55);MID$(E9$,1,3);TAB(66);MID$(E9$,7,3);TAB(75);"OTHER"
- PRINT TAB(10);"OVT.";TAB(21);"TIPS";TAB(33);"FIT"; PRINT "SEE CPA MAIN MENU OPTION #5 TO CHANGE THE SIZE OF THE FILE 'EARNREC'"
- REM GOTO 416
- 1990 PRINT : PRINT "ENTER THE NAME OF THE EMPLOYEE TO BE ADDED."
- PRINT "(LAST NAME, FIRST NAME MI.) :";
- FLD.LEN%=25 : GOSUB 9998 : PRINT : N$=UCASE$(LEFT$(REPLY$,25))
- FOR X=1. TO LEN(N$)
- IF MID$(N$,X,1)="," THEN GOTO 1998
- NEXT X
- PRINT
- PRINT CHR$(7);"THE LAST NAME MUST BE FOLLOWED BY A COMMA!" : PRINT
- GOTO 1990
- 1998 REM ZERO EER FOR NEW EMPLOYEE
- N=E.NO : S$=B$ : C$=B$ : Z$=B$
- PRINT : A5 = VAL(REPLY$)
- IF MATCH(A1$,A$,1) <> 0 THEN X = (MATCH(A1$,A$,1)-1)/3 \
- ELSE \
- X = LEN(A$)/3 : A$ = A$ + A1$
- IF MATCH(A1$,A2$,1) = 0 THEN A2$ = A2$ + A1$
- IF X = 10 THEN GOTO 2170
- 2140 A2(X)=A2(X)+A5
- A7=A7-A5 : A2(10)=A2(10)+A5
- IF A7=0 THEN GOTO 2212 ELSE GOTO 2040
- 2170 PRINT CHR$(7);"YOU HAVE EXCEEDED THE MAXIMUM OF 10 BREAKDOWNS!"
- PRINT "YOU MUST USE ONLY THE FOLLOWING DESCRIPTIONS:"
- FOR Y=1. TO 10.
- PRINT MID$(A$,Y*3-2,3);" ";
- NEXT Y
- A$ = LEFT$(A$,LPLY$)=0 THEN 2226
- IF X$="Y" THEN 2227
- IF X$="N" THEN 2205
- 2226 GOSUB 5110
- GOTO 2224
- 2227 FOR X=0. TO 10.
- A(X)=A(X)+A2(X)
- A2(X)=0
- NEXT X
- A2$=""
- RETURN
- 2230 IF E1=1 OR E1=3 THEN 2399
- J7=P(5,1)+P(5,2)+P(5,4)
- J8=J7+P(3,1)+P(3,2)+P(3,4)
- D7=P(5,1)+P(5,2)
- D0=P(3,1)+P(3,2)+P(5,1)+P(5,2)
- IF F(4)=7 THEN 2240
- D7=D7+P(5,3)
- D0=D0+P(3,3)+P(5,3)
- 2240 IF F(5)=7 THEN 2250
- D7=D7+P(5,4)
- D0=D0+P(3,4)+P(5,4)
- 2250 IF J8-J7>L(0) THEN 2270
- IF J8<L(0) T9)-L(3)>0 THEN 1308
- D5=ABS((G3-G9)-L(3))
- IF G9<D5 THEN D5=G9
- GOTO 1310
- 1308 D5=0
- 1310 D6=D6+D5
- 1320 X=X9
- GOSUB 9900
- 1380 GOTO 416
- REM **************** PRINT HDG ROUTINE
- 1720 LPRINTER
- IF PG.NO<>0 THEN PRINT CHR$(12);
- PRINT TAB(70);"PAGE ";
- PRINT USING "####";P4
- P4=P4+1
- PRINT : PRINT TAB(10);C1$,TAB(60);"CLIENT NUMBER ";
- PRINT USING "#######";C
- PRINT TAB(10);"PAYROLL JOURNAL"
- PRINT TAB(10);"RUN NUMBER ";R8
- IF T=1 THEN PRINT TAB(10);"ADDITIONAL ENTRIES"
- TAB(44);"SDI";
- PRINT TAB(55);MID$(E9$,4,3);TAB(66);MID$(E9$,10,3);TAB(71);"NET WAGES"
- PRINT TAB(5);L$
- PG.NO=10
- CONSOLE
- RETURN
- 1890 PRINT "DO YOU WANT TO SET UP AN EER FOR THAT NUMBER?"
- PRINT "ENTER Y FOR YES OR N FOR NO :";
- FLD.LEN%=1 : GOSUB 9998 : PRINT : M$=UCASE$(LEFT$(REPLY$,1))
- IF M$="Y" THEN 1950
- IF M$="N" THEN 416
- GOSUB 5110
- GOTO 1890
- 1950 GOTO 1990
- REM IF NO.EMP<INT(V1*256/356) THEN 1990
- REM PRINT CHR$(7);"THE FILE IS FULL - CANNOT ADD THIS EMPLOYEE!"
- REM FOR X=1. TO 3.
- FOR X1=1. TO 14.
- P(X,X1)=0
- NEXT X1
- NEXT X
- GOSUB 6190
- GOTO 430
- 2030 PRINT "START ENTERING BREAKDOWN OF TOTAL OTHER DEDUCTIONS"
- A7=P(5,13)
- 2040 PRINT "ENTER DESCRIPTION XXX : :";
- Y=3 : GOSUB 8000 : PRINT ":";
- FLD.LEN%= 3 : GOSUB 9998 : A1$=UCASE$(LEFT$(REPLY$+B$,3))
- PRINT
- PRINT TAB(45);"OTHER DED. BALANCE=";
- PRINT USING "##########.##";A7/100
- PRINT "ENTER AMOUNT > <";
- Y=10 : GOSUB 8000 : PRINT ">";
- FLD.LEN% = - 10 : GOSUB 9998 : EN(A$)-3)
- PRINT
- 2205 A2$=""
- FOR X=0. TO 10.
- A2(X)=0
- NEXT X
- GOTO 2030
- 2212 PRINT "SUMMARY OF 'OTHER' DEDUCTIONS FOR THIS 'EER' :"
- PRINT "DESCRIPTION:"
- FOR X=0.0 TO 9.0
- IF A2(X) <> 0 THEN PRINT " ";MID$(A$,X*3+1,3);
- 2220 NEXT X
- PRINT
- FOR X=0. TO 9.
- IF A2(X)=0 THEN 2223
- PRINT USING "#####.##";A2(X)/100,
- 2223 NEXT X
- PRINT
- 2224 PRINT
- PRINT "ARE THESE CORRECT (Y OR N) : ";
- FLD.LEN%=1 : GOSUB 9998 : PRINT : X$=UCASE$(LEFT$(REPLY$,1))
- IF LEN(REHEN 2280
- J7=INT(L(0)-J8+J7+.5)
- GOTO 2280
- 2270 J7=0
- 2280 J9=INT(J7*L(4)+.5)-P(5,5)
- IF ABS(J9)<10 THEN 2320
- PRINT "FICA WITHHELD ON LAST CHECK IS ";
- GOSUB 4000
- LPRINTER
- PRINT TAB(5);"***";"FICA WITHHELD ON CHECK #";V1$;" BELOW IS ";
- PG.NO=PG.NO+1
- GOSUB 5000.1
- 2320 CONSOLE
- IF J8>L(0) THEN J8=L(0)
- J9=INT(J8*L(4)+.5)-P(5,5)-P(3,5)
- IF ABS(J9)<100 THEN 2390
- PRINT "YTD FICA WITHHELD ON LAST EMPLOYEE IS ";
- GOSUB 4000
- LPRINTER
- PRINT TAB(5);"***";"YTD FICA WITHHELD ON EMPLOYEE";E.NO;" BELOW IS "; : PG.NO=PG.NO+1
- GOSUB 5000.1
- CONSOLE
- IF S=1 THEN 2399
- IF D0-D7<L(3) THEN 2378
- D7=0
- GOTO 2381
- 2378 IF D0>L(3) THEN D7=D7-(D0-L(3))
- 2381 D8=INT(D7*L(7)+.5)-P(5,8)
- IF ABS(D8)<10 THEN 2390
- PRINT "SDI WITHHELD ON LAST CHECK IS ";
- GOSUB 6000
- LPRINTER
- PRINT TAB(5);"*** SDI WITHHELD ON CHECK #";V1$," BELOW IS ";
- GOSUB 7000
- 2390 CONSOLE
- IF S=1 THEN 2399
- IF D0>L(3) THEN D0=L(3)
- D8=INT(D0*L(7)+.5)-P(3,8)-P(5,8)
- IF ABS(D8)<100 THEN 2INT
- GOTO 2640
- 2630 FOR X=1.0 TO 13.0 STEP 2.0
- PRINT USING "########.##";P(6,X)/100;
- NEXT X
- PRINT
- PRINT TAB(3);
- FOR X=2.0 TO 14.0 STEP 2.0
- PRINT USING "########.##";P(6,X)/100;
- NEXT X
- PRINT
- 2640 CONSOLE
- EMPLOYER.FICA = K2
- EMPLOYEE.FICA = K1
- STATE.UNEMP = G8
- FED.UNEMP = K8
- TAX.TIPS = T6
- TAX.ST.DIS = D6
- DED.DESC$ = A$
- OTHER.DED.1 = K2
- EMPLOYEE.FICA = K1
- STATE.UNEMP = G8
- FED.UNEMP = K8
- TAX.TIPS = T6
- TAX.ST.DIS = D6
- DED.DESC$ = A$
- OTHER.DE CHAIN PGM$(2)+":SUMMARY"
- 2713 LPRINTER
- PRINT CHR$(12);
- CONSOLE
- CHAIN PGM$(2)+":PMENU"
- 3600 PRINT : PRINT " WORKING . . ." : PRINT
- IF END #EARNREC.FIL THEN 3690
- FOR X=0. TO M-1
- GOSUB 5600
- IF EMP.NO = -1 THEN 3690
- E(X)=N : NO.EMP=NO.EMP+1
- NEXT X
- 3690 PRINT "THERE ARE ";NO.EMP;" EMPLOYEES ON THE DISK IN DRIVE ";FIL$(2)
- RETURN
- 4000 IF J9<0 THEN PRINT "OVER";
- IF J9>0 THEN PRINT "UNDER";
- PRINT " BY ";
- PRINT USING "#######.##";ABS(JOSUB 10000
- 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.QTR
- P(2,4) = TIPS.QTR
- P(2LOCAL.WITH.1.YR
- P(3,12) = LOCAL.WITH.2.YR
- P(3,13) = OTHER.DED.YR
- P(3,14) = NET.WAGES.YR
- RETURN
- 6000 IF D8<0 THEN PRINT "OVER";
- IF D8>0 THEN PRINT "UNDER";
- PRINT " BY ";
- PRINT USING "#######.##";ABS(D8/100)
- RETURN
- 6100 GOSUB 10000
- N9 = EMP.NO
- N9$ = EMP.NAME$
- S9$ = STR.ADDR$
- C9$ = CITY.ST.ZIP$
- Z9$ = SSN$
- P9(1,1) = REG.WAGES
- P9(1,2) = OVERTIME.WAGES
- P9(1,3) = MEALS.AND.LODGING
- P9(1,4) = TIPS
- P9(1,5) = FICA
- P9(1,6) = FED.INC.TAX
- P9(1,7) = STATE.INC.TAX
- P9399
- PRINT "YTD SDI WITHHELD ON LAST EMPLOYEE IS ";
- GOSUB 6000
- LPRINTER
- PRINT TAB(5);"*** YTD SDI WITHHELD ON EMPLOYEE";
- PRINT USING "#####";E.NO;
- PRINT " BELOW IS ";
- GOSUB 7000
- 2399 CONSOLE
- RETURN
- 2570 LPRINTER
- PRINT TAB(5);L$
- PRINT TAB(5);"TOTALS"
- PRINT TAB(3);
- IF T=5 THEN 2630
- FOR X=1.0 TO 13.0 STEP 2.0
- PRINT USING "########.##";P(4,X)/100;
- NEXT X
- PRINT
- PRINT TAB(3);
- FOR X=2.0 TO 14.0 STEP 2.0
- PRINT USING "########.##";P(4,X)/100;
- NEXT X
- PRD.1 = A(0)
- OTHER.DED.2 = A(1)
- OTHER.DED.3 = A(2)
- OTHER.DED.4 = A(3)
- OTHER.DED.5 = A(4)
- OTHER.DED.6 = A(5)
- OTHER.DED.7 = A(6)
- OTHER.DED.8 = A(7)
- OTHER.DED.9 = A(8)
- OTHER.DED.10 = A(9)
- TOT.OTHER.DED = A(10)
- TAX.LIAB.1ST = M7
- TAX.LIAB.2ND = M6
- TAX.LIAB.3RD = M5
- TAX.LIAB.4TH = M4
- TAX.LIAB.1.3 = M1
- TAX.LIAB.8.11 = M2
- TAX.LIAB.16.19 = M3
- TAX.LIAB.23.25 = M0
- OPEN FIL$(6)+":"+CLIENT$+"PAS.FIL" RECL 175 AS 4 : PASSVAR.FIL = 4
- GOSUB 10030.1
- CLOSE 4
- IF T=5 THEN 2713
- 9/100)
- RETURN
- 4100 F4=0
- FOR X=0. TO NO.EMP-1
- IF E(X)=E.NO THEN GOTO 4150
- NEXT X
- GOTO 4190
- 4150 F4=1 : X9=X
- 4190 X9=X
- RETURN
- 5000.1 LPRINTER
- IF J9<0 THEN PRINT "OVER";
- IF J9>0 THEN PRINT "UNDER";
- PRINT " BY ";
- PRINT USING "#######.##";ABS(J9/100)
- CONSOLE
- RETURN
- 5100 PRINT "THEN PRESS RETURN ";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT
- RETURN
- 5110 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
- RETURN
- 5600 GOSUB 10000
- N = EMP.NO
- RETURN
- 5800 G,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) = LOCAL.DED.2.YR
- P(3,11) = (1,8) = ST.DIS.INS
- P9(1,9) = LOCAL.DED.1
- P9(1,10) = LOCAL.DED.2
- P9(1,11) = LOCAL.WITH.1
- P9(1,12) = LOCAL.WITH.2
- P9(1,13) = OTHER.DED
- P9(1,14) = NET.WAGES
- P9(2,1) = REG.WAGES.QTR
- P9(2,2) = OVERTIME.QTR
- P9(2,3) = MEALS.LDG.QTR
- P9(2,4) = TIPS.QTR
- P9(2,5) = FICA.QTR
- P9(2,6) = FED.INC.TAX.QTR
- P9(2,7) = ST.INC.TAX.QTR
- P9(2,8) = ST.DIS.INS.QTR
- P9(2,9) = LOCAL.DED.1.QTR
- P9(2,10) = LOCAL.DED.2.QTR
- P9(2,11) = LOCAL.WITH.1.QTR
- P9(2,12) = LOCAL.WITH.2.QTR
- P9(2,13) = OTHER.DED.QTR
- P9(2,14) = NET.WAGES.QTR
-
- P9(3,1) = REG.WAGES.YR
- P9(3,2) = OVERTIME.YR
- P9(3,3) = MEALS.LDG.YR
- P9(3,4) = TIPS.YR
- P9(3,5) = FICA.YR
- P9(3,6) = FED.INC.TAX.YR
- P9(3,7) = ST.INC.TAX.YR
- P9(3,8) = ST.DIS.INS.YR
- P9(3,9) = LOCAL.DED.1.YR
- P9(3,10) = LOCAL.DED.2.YR
- P9(3,11) = LOCAL.WITH.1.YR
- P9(3,12) = LOCAL.WITH.2.YR
- P9(3,13) = OTHER.DED.YR
- P9(3,14) = NET.WAGES.YR
- RETURN
- 6190 PRINT : PRINT "WORKING . . ."
- FOR X=0 TO NO.EMP-1
- GOSUB 6100
- IF N9$>N$ THEN GOTO 6250
- NT USING "#######.##";ABS(D8/100)
- CONSOLE
- PG.NO = PG.NO + 1
- RETURN
- 7300 FOR X=1 TO 6
- IF MID$(D$,X,1)<"0" THEN GOTO 7450
- IF MID$(D$,X,1)>"9" THEN GOTO 7450
- NEXT X
- IF LEFT$(D$,1) = "0" THEN 7370
- IF LEFT$(D$,1) <> "1" THEN 7450
- IF MID$(D$,2,1) > "2" THEN GOTO 7450 ELSE GOTO 7380
- 7370 IF MID$(D$,2,1) < "1" THEN 7450
- 7380 IF MID$(D$,3,1) > "3" THEN 7450
- IF MID$(D$,3,1) <> "3" THEN 7470
- IF MID$(D$,4,1) > "1" THEN GOTO 7450 ELSE GOTO 7470
- 7450 PRINT CHR$(7);"INVALID DATE14)
- REG.WAGES.QTR = P(2,1)
- OVERTIME.QTR = P(2,2)
- MEALS.LDG.QTR = P(2,3)
- TIPS.QTR = P(2,4)
- FICA.QTR = P(2,5)
- FED.INC.TAX.QTR = P(2,6)
- ST.INC.TAX.QTR = P(2,7)
- ST.DIS.INS.QTR = P(2,8)
- LOCAL.DED.1.QTR = P(2,9)
- LOCAL.DED.2.QTR = P(2,10)
- LOCAL.WITH.1.QTR = P(2,11)
- LOCAL.WITH.2.QTR = P(2,12)
- OTHER.DED.QTR = P(2,13)
- NET.WAGES.QTR = P(2,14)
-
- REG.WAGES.YR = P(3,1)
- OVERTIME.YR = P(3,2)
- MEALS.LDG.YR = P(3,3)
- TIPS.YR = P(3,4)
- FICA.YR = P(3,5)
- FED.INC.TAX.YR = P(3,6)
- ST.INC.TCLNRNM.FIL,2; 1,1,1
- RETURN
- 12000 GOSUB 9005 : PRINT : PRINT : PRINT : PRINT : PRINT
- PRINT TAB(19);"*** CHECK PRINTER STATUS ***"
- LPRINTER
- PRINT
- CONSOLE
- GOSUB 9005
- RETURN
- %INCLUDE 5000
- %INCLUDE 5010
- %INCLUDE 10000
- %INCLUDE 10010
- REM ************************** WRITE PASSVAR
- 10030.1 PRINT #PASSVAR.FIL,1; \
- EMPLOYER.FICA,\
- EMPLOYEE.FICA,\
- STATE.UNEMP,\
- FED.UNEMP,\
- TAX.TIPS,\
- TAX.ST.DIS,\
- DED.DESC$,\
- OTHER.DED.1,\
- OTHER.DED.2,\
- OTHER.DED.3,$;:FOR DELAY=0 TO CLR.DLY% : NEXT DELAY
- RETURN
- REM 9006 REM CURSOR POSITIONING ROUTINE
- REM PRINT HOME$
- REM X.POS%=X% + X.OFF% Y.POS% = Y% + Y.OFF%
- REM IF XY%=2 AND X.POS%<31 THEN \
- REM X.POS% = X.POS% + 96
- REM IF XY% = 1 OR XY% = 2 THEN \
- REM PRINT CUR$;CHR$(X.POS%);CHR$(Y.POS%); \
- REM ELSE \
- REM PRINT CUR$;CHR$(Y.POS%);CHR$(X.POS%);
- REM FOR DELAY=0 TO CUR.DLY% NEXT DELAY
- REM NEXT X
- 6250 NO.EMP=NO.EMP+1
- FOR X=X TO NO.EMP-1
- GOSUB 9900
- E(X)=N
- GOSUB 6380
- IF X>=NO.EMP-2 THEN 6340
- X=X+1
- GOSUB 6100
- X=X-1
- 6340 NEXT X
- EMP.NO = -1
- EMP.NAME$ = LEFT$("END OF FILE INDICATOR"+B$,25)
- GOSUB 10010
- RETURN
- 6380 N=N9 : N$=N9$ : S$=S9$ : C$=C9$ : Z$=Z9$
- FOR Y=1 TO 3
- FOR Y1=1 TO 14
- P(Y,Y1)=P9(Y,Y1)
- NEXT Y1
- NEXT Y
- RETURN
- 7000 LPRINTER
- IF D8<0 THEN PRINT "OVER";
- IF D8>0 THEN PRINT "UNDER";
- PRINT " BY ";
- PRI - TRY AGAIN!"
- D$="INVALI"
- 7470 RETURN
- 8000 FOR J=1 TO Y+2
- PRINT CHR$(8);
- NEXT J
- RETURN
- 9900 EMP.NO = N
- EMP.NAME$ = N$
- STR.ADDR$ = S$
- CITY.ST.ZIP$ = C$
- SSN$ = Z$
- REG.WAGES = P(1,1)
- OVERTIME.WAGES = P(1,2)
- MEALS.AND.LODGING = P(1,3)
- TIPS = P(1,4)
- FICA = P(1,5)
- FED.INC.TAX = P(1,6)
- STATE.INC.TAX = P(1,7)
- ST.DIS.INS = P(1,8)
- LOCAL.DED.1 = P(1,9)
- LOCAL.DED.2 = P(1,10)
- LOCAL.WITH.1 = P(1,11)
- LOCAL.WITH.2 = P(1,12)
- OTHER.DED = P(1,13)
- NET.WAGES = P(1,AX.YR = P(3,7)
- ST.DIS.INS.YR = P(3,8)
- LOCAL.DED.1.YR = P(3,9)
- LOCAL.DED.2.YR = P(3,10)
- LOCAL.WITH.1.YR = P(3,11)
- LOCAL.WITH.2.YR = P(3,12)
- OTHER.DED.YR = P(3,13)
- NET.WAGES.YR = P(3,14)
- L1.XE = 0
- GOSUB 10010 : REM WRITE EARNREC.FIL
- RETURN
- 9950 GOSUB 5000
- R8 = RUN.NUMBER
- IF INT(R8) <> R8 THEN 9975
- IF INT(R8) < 999 THEN 9980
- 9975 RUN.NUMBER = 0
- GOSUB 5010
- GOSUB 5000
- R8 = RUN.NUMBER
- 9980 RETURN
- 10000.1 G3=P(3,1)+P(3,2)
- G5=P(5,1)+P(5,2)
- RETURN
- 11000 PRINT #\
- OTHER.DED.4,\
- OTHER.DED.5,\
- OTHER.DED.6,\
- OTHER.DED.7,\
- OTHER.DED.8,\
- OTHER.DED.9,\
- OTHER.DED.10,\
- TOT.OTHER.DED,\
- TAX.LIAB.1ST,\
- TAX.LIAB.2ND,\
- TAX.LIAB.3RD,\
- TAX.LIAB.4TH,\
- TAX.LIAB.1.3,\
- TAX.LIAB.8.11,\
- TAX.LIAB.16.19,\
- TAX.LIAB.23.25
- RETURN
- REM 031783 - (RCB) MODIFIED TO ALLOW HOT KEYBOARD ON 1 CHARACTOR
- REM INPUT ONLY (FLD.LEN% = 0) - OTHER LENTH WILL
- REM FREEZE AND BEEP AT FIELD LIMIT - ADDED DESTRUCTIVE BACKUP
- REM
- 9005 PRINT CLR RETURN
- 9998 REM --- TRAP SPECIAL CHARACTERS ---
- REPLY$="" : CHAR%=0 : ACT.LEN%=0 : DOT.OVER% = 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%=INKEY
- REM ************* MODIFIED FOR AUTO DUPE KEY **************
- IF CHAR% = ASC(DUPE.KEY$) AND ACT.LEN% = 0 THEN \
- REPLY$ = DUPE.KEY$ : CHAR% = 13 : GOTO 9998.7
- REM IF CHAR% = 46 AND DOT.OVER% THEN PRINT CHR$(8);" ";CHR$(8);CHR$(7); : \
- REM GOTO 9998.7
-
- IF CHAR%=127 AND ACT.LEN% = 0 THEN \
- GOTO 9998.2
- IF CHAR% = 8 AND ACT.LEN% = 0 THEN \
- GOTO 9998.2
- IF CHAR% = 127 OR CHAR% = 8 THEN \
- PRINT CHR$(8);" ";CHR$(8);
- IF CHAR% = 127 OR CHAR% = 8 THEN \
- ACT.LEN%=ACT.LEN%-1 : \
- REPLY$=LEFT$(REPLY$,LGOTO 9998.7
- REM *************************************************************
- IF DOT.OVER% THEN DOT.OVER% = DOT.OVER% + 1
- REM IF CHAR% = 46 THEN DOT.OVER% = DOT.OVER% + 1
- 9998.6 ACT.LEN%=ACT.LEN% + 1
- IF ACT.LEN%>FLD.LEN% AND DOT.OVER% THEN DOT.OVER% = DOT.OVER% - 1
- IF ACT.LEN%>FLD.LEN% AND FLD.LEN% <> 0 THEN \
- PRINT CHR$(7); : ACT.LEN% = ACT.LEN% -1 : \
- GOTO 9998.7
- PRINT CHR$(CHAR%);
- REPLY$=REPLY$+CHR$(CHAR%)
- IF ACTREM 112084 - SRS - CHANGED LINES 602,606,611,784,786,830
- REM PROGRAM WAS NOT ABLE TO PRINT A SUBSCHEDULE OF THE LAST
- REM ACCOUNT IF THE LAST ACCOUNT HAD SUBACCOUNTS
- REM
- REM 071783 - DCF TOOK LINE #'S OFF REM STATEMENTS FOR CB80 COMPILE
- REM
- 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
500
- GOSUB 9005
- PRINT
- 160 PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
- PRINT
- PRINT TAB(29);"MENU OPTION #3"
- PRINT TAB(26);"ACCOUNT SUBSCHEDULES" : PRINT
- PRINT TAB(5);"Press RETURN Key to Continue or 'M' to Return to Utilities Menu";
- FLD.LEN%=1 : GOSUB 9998 : X$=UCASE$(LEFT$(REPLY$,1))
- IF X$="M" THEN 750
- 220 GOSUB 9005
- PRINT "SET THE PRINTER AND PAPER"
- 315 PRINT : PRINT "Please Enter Y f A SUBSCHEDULE OF A SUBACCOUNT;"
- 327 PRINT "ENTER THE FOUR DIGIT CORE ACCOUNT NUMBER ONLY!"
- 328 GOTO 320
- 329 X4=0 : A9=-1 : X1=0 :H9=0
- 330 PRINT TAB(5);"DO YOU WANT CURRENT PERIOD BALANCES TO PRINT? ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : X$=UCASE$(LEFT$(REPLY$,1))
- IF X$ = "Y" THEN 338
- IF X$ = "N" THEN H=0 : GOTO 340
- 336 PRINT "PLEASE ENTER ONLY Y OR N!" : GOTO 330
- 338 H=1
- 340 PRINT TAB(5);"DO YOU WANT ZERO BALANCE SUBACCOUNTS TO PRINT? ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : W$=UCAEN(REPLY$)-1) ELSE GOTO 9998.4
- IF DOT.OVER% THEN DOT.OVER% = DOT.OVER% - 1
- GOTO 9998.7
- 9998.4 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% = 46 AND DOT.OVER% = 0 THEN DOT.OVER% = 1 : GOTO 9998.6
- IF CHAR% < 48 OR CHAR% > 57 THEN \
- PRINT CHR$(7); : \
- .LEN%>FLD.LEN% THEN \
- CHAR%=13
- 9998.7 WEND
- RETURN
- REM IF CHAR% = 46 THEN DOT.OVER% = DOT.OVER% + 1
- 9998.6 ACT.LEN%=ACT.LEN% + 1
- IF ACT.LEN%>FLD.LEN% AND DOT.OVER% THEN DOT.OVER% = DOT.OVER% - 1
- IF ACT.LEN%>FLD.LEN% AND FLD.LEN% <> 0 THEN \
- PRINT CHR$(7); : ACT.LEN% = ACT.LEN% -1 : \
- GOTO 9998.7
- PRINT CHR$(CHAR%);
- REPLY$=REPLY$+CHR$(CHAR%)
- IF ACT
- REM 111782 - DCF CHANGED TO SIMULATE DOS VERSION (NON-ZERO FIX)
- REM 091782 - DCF DELETED PROMPT FOR CLIENT DISK AND FIXED FORMAT ERRORS
- REM 091382 - DCF CHAINED COANS FILE LEN FROM 43 TO 65 (FIXED RE ERROR)
- REM *** SUBSCHEDULE PROGRAM (SUBSCHED)
- REM *** COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS INC.
- REM *** 648 SOUTH RIVER DR. 602-968-7101
- REM *** TEMPE, AZ 85281
- %INCLUDE COMMON.BAS
- 150 REM OPENING ALL THE FILES
- GOSUB 4000
- GOSUB 4or YES or N for NO: " : PRINT
- 316 PRINT"WOULD YOU LIKE TO PRINT SUBSCHEDULES FOR ALL THE ACCOUNTS? ";:FLD.LEN%=1 :GOSUB 9998: B$=UCASE$(LEFT$(REPLY$,1)) : PRINT
- IF B$ = "N" THEN 320
- IF B$ = "Y" THEN 329
- PRINT "PLEASE ENTER ONLY Y OR N!" : GOTO 316
- 320 CONSOLE : GOSUB 9005 : PRINT : F=0
- PRINT"ENTER THE NUMBER OF THE ACCOUNT THAT YOU WANT A SUBSCHEDULE OF >";:FLD.LEN%=10 : GOSUB 9998 : PRINT : X=VAL(REPLY$)
- 325 IF X-INT(X)=0 THEN 330
- 326 PRINT CHR$(7);"YOU CAN NOT PRINTSE$(LEFT$(REPLY$,1))
- IF W$ = "Y" THEN 346
- IF W$ = "N" THEN 346
- 345 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!" : GOTO 340
- 346 PRINT TAB(5);"DO YOU WANT THE ACCOUNT NUMBERS PRINTED ON THE SCHEDULE? ";: FLD.LEN%=1 : GOSUB 9998 : PRINT : Z$=UCASE$(LEFT$(REPLY$,1))
- IF Z$ = "Y" THEN 501
- IF Z$ = "N" THEN 501
- 350 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!" : GOTO 346
- 360 LPRINTER
- IF F2=1 THEN GOTO 390 ELSE GOTO 389
- 389 P1=P1+1 : PRINT TAB(67);"PAGE";
- PRINT USING "##";P1 : PRINT
- 390 IF H=1 THEN GOTO 395 ELSE GOTO 450
- 395 IF Z$ = "N" THEN 410
- PRINT TAB(5);"ACCT. NUMBER";
- 410 PRINT TAB(20);"ACCOUNT NAME";
- PRINT TAB(43);"CURR. BALANCE";
- PRINT TAB(67);"Y.T.D. BALANCE"
- 420 IF Z$ = "N" THEN 440
- PRINT TAB(5);"------------";
- 440 PRINT TAB(20);"------------";
- PRINT TAB(43);"-------------";
- PRINT TAB(67);"--------------" : P=P+2
- 441 IF H9=1 THEN GOTO 668
- N9=0 : N8=0 : GOTO 520
- 450 TO 1.0 STEP -1.0
- 507 IF MID$(CLIENT.NAME$,J,1) <> " " THEN 509
- 508 NEXT J
- 509 J1 = INT((75-J)/2)
- 510 LPRINTER : PRINT : PRINT TAB(J1);CLIENT.NAME$
- 511 PRINT TAB(26);" ACCOUNT SUBSCHEDULES " : PRINT
- 512 PRINT : PRINT TAB(5);"GENERAL LEDGER RUN DATE: ";
- 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) : F2=1
- PRINT : PRINT
- 515 GOTO 360
- 520 REM READING COANS );
- PRINT USING"#########.##";CUR.PER.BAL/100;
- PRINT TAB(66);
- PRINT USING "############.##";YR.TO.DATE.BAL/100 : GOTO 585
- 583 PRINT TAB(20);ACCT.DESCRIP$;
- PRINT TAB(66);
- PRINT USING "############.##";YR.TO.DATE.BAL/100
- 585 IF ACCT.NUM=X THEN 596
- 590 IF H<>1 THEN 592
- 591 PRINT TAB(22);ACCT.DESCRIP$;
- PRINT TAB(44);
- PRINT USING "#########.##";CUR.PER.BAL/100;
- PRINT TAB(66);
- PRINT USING "############.##";YR.TO.DATHEN 750
- X4=X4+1
- 611 IF ACCT.NUM<A9 AND SUBACCT.FLG=1 THEN SUBACCT.FLG=0 : GOTO 630
- IF ACCT.NUM=-1 AND (SUBACCT.FLG=0 AND (CORE.XE=0 AND SUB.XE=0)) THEN 750
- 612 IF SUBACCT.FLG=1 THEN 625
- 615 IF INT(ACCT.NUM)=ACCT.NUM THEN 670
- 618 SUBACCT.FLG=1 : SUBACCT.PRT.FLG=1 : N8=N8+C2 : N9=N9+C3
- 620 IF INT(A9) < INT(ACCT.NUM) THEN 630
- 625 IF INT(ACCT.NUM) <> INT(A9) THEN 627
- 626 IF ACCT.NUM>A9 THEN 630
- 627 SUBACCT.FLG=0 : GOTO 630.1
- 630 N8=N8+CUR.PER.BAL : N9=N9+YR.TO.DATE.BAL
- 630.1 IF W$< CORE.XE=1
- GOTO 665
- 660 IF H<>1 THEN 661
- PRINT TAB(22);C9$;
- PRINT TAB(44);
- PRINT USING "#########.##";C2/100;
- PRINT TAB(66);
- PRINT USING "############.##";C3/100 : GOTO 665
- 661 PRINT TAB(22);C9$;
- PRINT TAB(66);
- PRINT USING "############.##";C3/100 : GOTO 665
- 664 SUB.XE=1
- 665 P=P+1
- 666 IF P<60 THEN 669
- 667 H9=1 : GOTO 788
- 668 H9=0
- 669 IF SUBACCT.FLG=0 THEN 755
- 670 A9=ACCT.NUM : C2=CUR.PER.BAL : C3=YR.TO.DATE.BAL : C9$=IF Z$ = "N" THEN 460
- PRINT TAB(5);"ACCT. NUMBER";
- 460 PRINT TAB(20);"ACCOUNT NAME";
- PRINT TAB(67);"Y.T.D. BALANCE"
- 470 IF Z$ = "N" THEN 490
- PRINT TAB(5);"------------";
- 490 PRINT TAB(20);"------------";
- PRINT TAB(67);"--------------" : P=P+2
- 500 IF H9=1 THEN GOTO 668
- N9=0 : GOTO 520
- 501 REM READING CLNRNM FILE
- 502 GOSUB 5000
- IF F2<>0 THEN 520
- 505 P=10 : P1=1 :
- LPRINTER : PRINT TAB(67);"PAGE"; P1
- 506 FOR J=LEN(CLIENT.NAME$) FILE
- 522 IF B$="Y" THEN 606
- 525 X4=0
- 526 GOSUB 4600
- IF ACCT.NUM = -1 THEN 690
- X4=X4+1
- 535 C1=INT(ACCT.NUM)
- 540 IF C1<>X THEN 526
- 541 N8=N8+CUR.PER.BAL : N9=N9+YR.TO.DATE.BAL : F=1
- 560 IF W$ <> "N" THEN 565
- IF YR.TO.DATE.BAL=0 AND ACCT.NUM <> INT(ACCT.NUM) THEN 526
- 565 LPRINTER
- IF Z$ = "N" THEN 575
- 570 PRINT TAB(5);
- PRINT USING "#########.##";ACCT.NUM;
- 575 IF ACCT.NUM <> X THEN 585
- 580 IF H<>1 THEN 583
- PRINT TAB(20);ACCT.DESCRIP$;
- PRINT TAB(44TE.BAL/100 : GOTO 596
- 592 PRINT TAB(22);ACCT.DESCRIP$;
- PRINT TAB(66);
- PRINT USING "############.##";YR.TO.DATE.BAL/100
- 596 P=P+1
- IF P<60 THEN 526
- 597 PRINT CHR$(12); : PRINT : P=3 : P1=P1+1
- PRINT TAB(67);"PAGE ";P1
- PRINT
- GOTO 526
- 602 IF SUBACCT.FLG=0 AND (CORE.XE=1 AND SUB.XE=1) THEN 755
- 605 A9=ACCT.NUM : C2=CUR.PER.BAL : C3=YR.TO.DATE.BAL : C9$=ACCT.DESCRIP$
- 606 GOSUB 4600
- IF ACCT.NUM = -1 AND (SUBACCT.FLG=0 AND (CORE.XE=1 AND SUB.XE=1)) >"N" THEN 632
- IF C3=0 AND A9<>INT(A9) THEN 602
- 632 IF Z$="N" THEN 650
- 635 PRINT TAB(5);
- PRINT USING "#########.##";A9;
- 650 IF SUBACCT.PRT.FLG=1 THEN GOTO 655 ELSE GOTO 660
- 655 IF H<>1 THEN 656
- PRINT TAB(20);C9$;
- PRINT TAB(44);
- PRINT USING"#########.##";C2/100;
- PRINT TAB(66);
- PRINT USING "############.##";C3/100 : GOTO 658
- 656 PRINT TAB(20);C9$;
- PRINT TAB(66);
- PRINT USING "############.##";C3/100
- 658 P=P+1 : SUBACCT.PRT.FLG=0
- ACCT.DESCRIP$
- 680 GOTO 606
- 690 IF F=1 THEN 755
- 700 CONSOLE
- PRINT CHR$(7);"ACCOUNT NUMBER ";
- PRINT USING "######";X;
- PRINT" DOES NOT EXIST; PLEASE CHECK!"
- 720 PRINT " PRESS RETURN TO CONTINUE ";:FLD.LEN%=2:GOSUB 9998: PRINT: G$=LEFT$(REPLY$,1)
- 725 PRINT CHR$(12);
- 740 GOSUB 9005 : GOTO 320
- 750 CONSOLE
- CLOSE CLNRNM.FIL
- CLOSE COANS.FILE
- CHAIN PGM$(4) + ":" + "UMENU"
- 755 SUB.XE=0 : CORE.XE=0
- IF H<>1 THEN 756
- PRINT TAB(43);"-------------";
- 756 PRINT TAB(67);"--------------" : GOTO 780
- PRINT TAB(67);"--------------"
- 780 IF H<>1 THEN 781
- PRINT TAB(25);"TOTAL";
- PRINT TAB(41);
- PRINT USING "############.##";N8/100;
- PRINT TAB(66);
- PRINT USING "############.##";N9/100 : GOTO 782
- 781 PRINT TAB(25);"TOTAL";
- PRINT TAB(66);
- PRINT USING "############.##";N9/100
- 782 IF H<>1 THEN 783
- PRINT TAB(43);"=============";
- PRINT TAB(67);"==============": GOTO 784
- 783 PRINT TAB(67);"? ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : Y$=UCASE$(LEFT$(REPLY$,1))
- IF Y$ = "Y" THEN 835
- 830 GOTO 750
- GOTO 755
- 835 N8=0 : N9=0
- 840 LPRINTER
- PRINT : PRINT : P=P+3 : GOTO 320
- 4000 OPEN FIL$(2) + ":" + CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL=1
- RETURN
- 4500 OPEN FIL$(4) + ":" + CLIENT$ + "COA.FIL" RECL 65 AS 2 : COANS.FILE =2
- RETURN
- 4600 READ #COANS.FILE,X4+1;\
- ACCT.NUM,\
- CUR.PER.BAL,\
- YR.TO.DATE.BAL,\
- ACCT.DESCRIP$
- RREM 071783 - DCF TOOK LINE NUMBERS OFF REM STATEMENTS
- REM CHANGED .INT TO .OVL FOR 8(BIT) OR .OVR FOR 16(BIT)
- REM FOR CB80 COMPILE
- REM
- 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 *** STATEMENT OF CHANGES MENU ( MENU ) ( VERSION 4.0 )
- REM *** COPYRIGHT 1982 BY Dimis Micro SystemsPRINT TAB(15);"4. UPDATE ACCOUNT BALANCES AUTOMATICALLY"
- 150 PRINT TAB(15);"5. PRINT COMPARATIVE FINANCIAL STATEMENTS"
- 160 PRINT TAB(15);"6. PRINT A STATEMENT OF CHANGES WORKSHEET"
- 170 PRINT TAB(15);"7. EDIT OR PRINT THE STATEMENT OF CHANGES"
- 171 PRINT TAB(15);" IN FINANCIAL POSITION"
- 175 PRINT TAB(15);"8. PRINT A SCHEDULE OF CHANGES IN WORKING CAPITAL"
- 180 PRINT TAB(15);"9. RETURN TO CPA MENU"
- 190 PRINT TAB(10);
- 200 INPUT " ENTER THE NUMBER OF THE FUNCTION TO PERFORM >";X$
- 205 P$="MMENU"
+ FIL$(2) + " and Press RETURN "
- GOSUB 2000 : GOSUB 2100 : FLD.LEN% = 1 : GOSUB 9998
- GOTO 350
- 352 GOTO 710
- 355 REM ********************************* CHECK FOR MMENU
- GOSUB 9005
- INITIALIZE
- IF NUM.BITS%=8 THEN EXT$=".OVL" ELSE EXT$ = ".OVR"
- IF SIZE(PGM$(1)+":MMENU"+EXT$) <> 0 THEN CHAIN PGM$(1)+":MMENU"
- ERR$ = "Correct disk is not in drive " + PGM$(1)
- MSSG$ = "Place the Accounting Program disk in drive " + PGM$(1) + " and Press RETURN "
- GOSUB 2000 : GOSUB 2100 : FLD.LEN% = 1 : G=============="
- 784 IF B$="N" THEN 787
- IF ACCT.NUM = -1 THEN 750
- A9=ACCT.NUM : C2=CUR.PER.BAL : C3=YR.TO.DATE.BAL : C9$=ACCT.DESCRIP$
- PRINT : PRINT : P=P+5
- 786 IF P<60 THEN GOTO 805 ELSE GOTO 788
- 787 P=P+3
- IF P<60 THEN 812
- 788 PRINT CHR$(12); : PRINT : P=5
- 800 IF B$="Y" THEN GOTO 389 ELSE GOTO 811
- 805 N8=0 : N9=0 : GOTO 606
- 811 P1=P1+1 : PRINT : PRINT TAB(67),"PAGE ";P1
- PRINT
- 812 CONSOLE
- PRINT : PRINT "WOULD YOU LIKE TO PRINT ANOTHER SUBSCHEDULEETURN
- %INCLUDE NFLANKS.BAS
- %INCLUDE 5000
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞, Inc.
- REM
- %INCLUDE COMMON.BAS
- 70 GOSUB 9005 : PRINT : PRINT
- 72 PRINT TAB(20);" Dimis Micro Systems, Inc. "
- PRINT TAB(12);" Client Programmed Accounting Ver. ";VERSION$
- 80 PRINT TAB(15);" AUXILIARY STATEMENTS MENU " : PRINT
- 90 PRINT TAB(10);" WHICH FUNCTION WOULD YOU LIKE TO PERFORM?"
- 100 PRINT TAB(15);"1. EDIT OR LIST AUXILIARY ACCOUNTS"
- 120 PRINT TAB(15);"2. EDIT PERIOD ENDING DATES OR FISCAL YEAR END"
- 130 PRINT TAB(15);"3. UPDATE OR MODIFY ACCOUNT BALANCES MANUALLY"
- 140
- 210 IF X$="1" THEN P$="CACCTS"
- 230 IF X$="2" THEN P$="CONTEDIT"
- 240 IF X$="3" THEN P$="CJOURNAL"
- 250 IF X$="4" THEN P$="UPDATE"
- 260 IF X$="5" THEN P$="COMPARE"
- 270 IF X$="6" THEN P$="WORKS"
- 280 IF X$="7" THEN P$="STATE"
- 290 IF X$="8" THEN P$="SCHED"
- 295 IF X$="9" THEN P$="MMENU"
- 300 IF P$ = "MMENU" THEN 355
- 350 GOSUB 9005
- INITIALIZE
- IF SIZE(FIL$(2)+":"+CLIENT$+"CLN.FIL") <> 0 THEN GOTO 710
- ERR$ = "Correct disk is not in drive " + FIL$(2)
- MSSG$ = "Place the Client Data disk in drive "OSUB 9998
- GOTO 355
- 710 CHAIN PGM$(1) + ":" + P$
- %INCLUDE NFLANKS.BAS
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞REM 071783 - DCF CHANGED .INT TO .OVL FOR 8(BIT) OR .OVR FOR 16(BIT)
- REM FOR CB80 COMPILE
- REM
- REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
- REM
- REM 052283 - BTC ADDED Dimis MICRO SYSTEMS HEADING
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM *** UTILITIES MENU PROGRAM (MENU)
- REM *** COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS INC.
- REM *** 648 SOUTH RIVER DINT AN ACCOUNT SUBSCHEDULE"
- PRINT TAB(20);"4. TRANSFER CURRENT TRANSACTIONS TO YEAR-TO-DATE FILE"
- PRINT TAB(20);"5. DISPLAY CURRENT STATUS OF AN ACCOUNT"
- PRINT TAB(20);"6. PRINT ADDRESS LABELS"
- PRINT TAB(20);"7. GENERATE RANDOM NUMBERS"
- PRINT TAB(20);"8. RETURN TO CPA MENU"
- PRINT TAB(15);
-
- INPUT "ENTER THE NUMBER OR THE FUNCTION TO PERFORM >";X$
- 200 P$="MMENU"
- IF X$="1" THEN P$="CONTPAY"
- IF X$="2" THEN P$="NOTEPAY"
- IF Xthe Accounting Program disk in drive " + PGM$(1) + " and Press RETURN "
- GOSUB 2000 : GOSUB 2100 : FLD.LEN% = 1 : GOSUB 9998
- GOTO 250
- 700 CHAIN PGM$(4)+":"+P$
- %INCLUDE NFLANKS.BAS
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞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 092282 - (RCB) TOOK INITFILE OFF AMENU
- REM
- REM 092182 - (RCB) ADDED AN INITIALIZE AT LINES 190 AND 710 SO THEY CAN CHANGE
- REM THE DISKETTE AT MENU PROMPT
- REM
- REM 082682 - ADDED PRINT STATEMENTS AFTER 9998 CALLS
- REM
- REM *** ACCOUNTING MENU (AMENU) (VERSION 4.0)URNAL TRANSACTIONS"
- PRINT TAB(15);"3. PRINT WORKING TRIAL BALANCE"
- PRINT TAB(15);"4. PREPARE GENERAL LEDGER"
- PRINT TAB(15);"5. EDIT OR LIST FINANCIAL STATEMENT HEADERS"
- PRINT TAB(15);"6. PRINT FINANCIAL STATEMENTS"
- PRINT TAB(15);"7. CLOSE INCOME AND EXPENSE ACCOUNTS"
- PRINT TAB(15);"8. RETURN TO CPA MENU"
- PRINT
- PRINT
- 190 INITIALIZE
- PRINT TAB(10);
- INPUT "ENTER THE NUMBER OF THE FUNCTION TO PERFORM >";X$
- P$="MMENU"
- IF X$="1" THEN P$="ACCOUNTS"
- IF X$="2" THEN P$="JOURRIVE 602-968-7101
- REM *** TEMPE, AZ. 85281
- %INCLUDE COMMON.BAS
- 50 GOSUB 9005 : PRINT : PRINT : PRINT
- 100 PRINT TAB(22);" Dimis Micro Systems, Inc. "
- PRINT TAB(15);" Client Programmed Accounting Ver. ";VERSION$
- PRINT TAB(27);"UTILITIES MENU" : PRINT
- PRINT TAB(15);"WHICH FUNCTION WOULD YOU LIKE TO PERFORM?"
- PRINT TAB(20);"1. PRINT A CONTRACT PAYABLE SCHEDULE"
- PRINT TAB(20);"2. PRINT A NOTE PAYABLE SCHEDULE"
- PRINT TAB(20);"3. PR$="3" THEN P$="SUBSCHED"
- IF X$="4" THEN P$="YTDTRANS"
- IF X$="5" THEN P$="ACCTSTAT"
- IF X$="6" THEN P$="LABELS"
- IF X$="7" THEN P$="RANDOM"
- IF X$="8" THEN P$="MMENU"
- IF P$="MMENU" THEN 250 ELSE GOTO 700
- 250 REM ********************************* CHECK FOR MMENU
- INITIALIZE
- IF NUM.BITS%=8 THEN EXT$= ".OVL" ELSE EXT$= ".OVR"
- IF SIZE(PGM$(1)+":MMENU"+EXT$) <> 0 THEN CHAIN PGM$(1)+":MMENU"
- ERR$ = "Correct disk is not in drive " + PGM$(1)
- MSSG$ = "Place 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞(10D)
- REM *** COPYRIGHT 1982 BY Dimis Micro Systems, Inc.
- REM ****************************************** STICK COMMON HERE PLEASE
- %INCLUDE COMMON.BAS
- 70 GOSUB 9005
- PRINT
- PRINT
- 75 PRINT TAB(19);" Dimis Micro Systems, Inc. "
- PRINT TAB(12);" Client Programmed Accounting Ver. ";VERSION$
- PRINT
- 80 PRINT TAB(25);"ACCOUNTING MENU"
- PRINT
- 90 PRINT TAB(10);"WHICH FUNCTION WOULD YOU LIKE TO PERFORM?"
- PRINT TAB(15);"1. EDIT OR LIST CHART OF ACCOUNTS"
- PRINT TAB(15);"2. ENTER OR LIST JONALS"
- IF X$="3" THEN P$="ETRIAL"
- IF X$="4" THEN P$="GENLED"
- IF X$="5" THEN P$="HEADERS"
- IF X$="6" THEN P$="FINSTATE"
- IF X$="7" THEN P$="CLOSING"
- IF X$="8" THEN P$="MMENU"
- 710 INITIALIZE
- REM *** IF END #1 THEN 800
- REM OPEN FIL$(1)+":"+P$ AS 1
- REM CLOSE 1
- CHAIN PGM$(1)+":"+P$
- 800 ERR$ = "INCORRECT DISK IN DRIVE "+FIL$(1)
- MSSG$ = "PLEASE INSERT THE CORRECT DISK - THEN PRESS RETURN "
- GOSUB 2000
- GOSUB 2100
- FLD.LEN% = 1 : GOSUB 9998 : PRINT
- INITIALIZE
- GOTO 710
- %INCLUDE NFLANKS.BAS
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞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 *** CPA ON CP/M PMENU
- REM *** COPYRIGHT 1982 BY - Dimis Micro Systems, Inc.
- %INCLUDE COMMON.BAS
- 49 GOSUB 9005 : PRINT
- PRINT TAB(18);" Dimis Micro Systems, Inc. "
- PRINT TAB(10);" Client Programmed Accounting Ver. ";VERSION$
- PRINT TAB(20);"POST PAYROLLN P$="W2"
- IF X$="5" THEN P$="MMENU"
- IF P$="MMENU" THEN 710
- 700 GOSUB 9005
- CHAIN PGM$(2)+":"+P$
- 710 REM ********************************* CHECK FOR MMENU
- INITIALIZE
- IF NUM.BITS%=8 THEN EXT$= ".OVL" ELSE EXT$= ".OVR"
- IF SIZE(PGM$(1)+":MMENU"+EXT$) <> 0 THEN CHAIN PGM$(1)+":MMENU"
- ERR$ = "Correct disk is not in drive " + PGM$(1)
- MSSG$ = "Place the Accounting Program disk in drive " + PGM$(1) + " and Press RETURN "
- GOSUB 2000 : GOSUB 2100 : FLD.LEN% = 1 : GOSUB 9998REM 110185 - RML - RESET EMPLOYER FICA RATE TO BE EQUAL TO THE EMPLOYEE RATE
- REM
- REM 112084 - SRS - CORRECTED 1985 EMPLOYER'S FICA RATE TO BE 7.05%
- REM
- REM 010384 - (RCB) PUT IN LINE A FEW LINES AFTER 180 TO SET XE.L4 TO
- REM .07 IF THE YEAR IS "84" OR L(4) IF NOT - AND CHANGED
- REM LINES FORM AROUND 1040 THROUGH 1100 TO MULTIPLY
- REM J6 BY XE.L4 ( + INT((XE.L4 * J6) +.5))
- REM
- REM 102783 - (RCB) ADD CHANGES FOR NEGATIVE CHECK BACKING OUT DURRING
- REM FICA CUT OFF CROSS OVER AROUND 88CSS BY CHANGING VARIABLE LOCAL.WTIH.1
- REM TO THE CORRECT VARIABLE USED LOCAL.WITH.1
- REM
- REM *** 042283 DCF - FIXED BUG #29041983-3-IMP BY CHECKING FOR A <CR> WHEN ENTERING
- REM AN EMPLOYEE NUMBER
- REM
- REM *** 041983 DCF - FIXED BUG #1-041483-3-IJH BY CHANGING FORMATTED PRINTING
- REM TO ALLOW FOR A LARGER # IN CHECK BALANCE AND OUT OF BALANCE
- REM CONDITION.
- REM
- REM *** 040883 DCF - FIXED BUG CODE #040883-3-IMP, CHANGED LINE繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞 MENU" : PRINT
- PRINT TAB(10);"WHICH FUNCTION WOULD YOU LIKE TO PERFORM?"
- PRINT TAB(15);"1. EDIT OR LIST EMPLOYEE INFORMATION"
- PRINT TAB(15);"2. ENTER PAYROLL CHECKS"
- PRINT TAB(15);"3. PRINT PAYROLL REPORTS"
- PRINT TAB(15);"4. PRINT W-2 FORMS"
- PRINT TAB(15);"5. RETURN TO CPA MENU"
- PRINT TAB(10);
- INPUT "ENTER THE NUMBER OF THE FUNCTION TO PERFORM >";X$
- P$="MMENU"
- IF X$="1" THEN P$="EERCHGS"
- IF X$="2" THEN P$="PAYROLL"
- IF X$="3" THEN P$="EARNINGS"
- IF X$="4" THE
- GOTO 710
- %INCLUDE NFLANKS.BAS
- 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞4
- REM
- REM 092683 - (RCB) CHANGED E TO E.NO, F TO F4, P TO PG.NO, L TO L1.XE
- REM PER DCF FOR CB80
- REM
- REM *** 080383 DCF - ADDED UCASE$ WHEN CHECKING FOR VALID 4 CHAR. OF LAST NAME
- REM AND ADDED CHECK OF DUPE KEY FOR THE CHECK AMOUNT FIELD
- REM
- REM 062083 - (RCB) CHANGED "R & B" TO "D M S"
- REM
- REM *** 051883 DCF - FIXED BUG #68-013683-IRML BY CHANGING VARIABLE TOTAL
- REM WHICH WAS BEING DIVIDED BY 10 TO 100
- REM
- REM *** 042283 DCF - FIXED BUG #40042183- 680' FLD.LEN%
- REM FROM 12 TO 10
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM *** 02/01/83 DCF - ADDED THE TYPE OF RUN TO PRINT OUT ON PAYROL JOURNAL HEADING
- REM ***
- REM *** 02/01/83 DCF - CHANGED PRINT CLR$ TO GOSUB 9005
- REM *** CHANGED 3.6 TO VERSION$
- REM ***
- REM *** 11/15/82 DTK - MORE WORK ON DEDUCTIONS PROBLEM - TRY MATCH(A$)
- REM ***
- REM *** 9/24/82 DTK - FIXED 10 DEDUCTION PROBLEM
- REM ***
- RE����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������-=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=--=[BAD SECTOR]=-����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������
|