DMS_client_programmed_source_code_v3.84_3_of_4.nsi 350 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638463946404641464246434644464546464647464846494650465146524653465446554656465746584659466046614662466346644665466646674668466946704671467246734674467546764677467846794680468146824683468446854686468746884689469046914692469346944695469646974698469947004701470247034704470547064707470847094710471147124713471447154716471747184719472047214722472347244725472647274728472947304731473247334734473547364737473847394740474147424743474447454746474747484749475047514752475347544755475647574758475947604761476247634764476547664767476847694770477147724773477447754776477747784779478047814782478347844785478647874788478947904791479247934794479547964797479847994800480148024803480448054806480748084809481048114812481348144815481648174818481948204821482248234824482548264827482848294830483148324833483448354836483748384839484048414842484348444845484648474848484948504851485248534854485548564857485848594860486148624863486448654866486748684869487048714872487348744875487648774878487948804881488248834884488548864887488848894890489148924893489448954896489748984899490049014902490349044905490649074908490949104911491249134914491549164917491849194920492149224923492449254926492749284929493049314932493349344935493649374938493949404941494249434944494549464947494849494950495149524953495449554956495749584959496049614962496349644965496649674968496949704971497249734974497549764977497849794980498149824983498449854986498749884989499049914992499349944995499649974998499950005001500250035004500550065007500850095010501150125013501450155016501750185019502050215022502350245025502650275028502950305031503250335034503550365037503850395040504150425043504450455046504750485049505050515052505350545055505650575058505950605061506250635064506550665067506850695070507150725073507450755076507750785079508050815082
  1. � 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞�WORKS BAS���d
  2. ����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
  3. REM
  4. REM 072183 - DCF CHANGED H TO H.XE AND A TO A.XE IN LINE 3220
  5. REM
  6. REM 071783 - DCF TOOK OUT LINE #'S IN REM STATEMENTS
  7. REM CHANGED ALL H'S TO H.XE
  8. REM CHANGED ALL A'S TO A.XE
  9. REM CHANGED ALL R'S TO R.XE FOR CB80 COMPILE
  10. REM CHANGED LINE # 2100 TO 2100.1
  11. REM
  12. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  13. REM
  14. REM 061783 - DCF THE FOR-NEXT LOOP WHICH WHEN DISK SWAPPING (AUX. ON SEPERATE DISK)
  15. REM
  16. REM *** PROGRAM TO PRINT A STATEMENT OF CHANGES WORKSHEET (VER. 4.0)
  17. REM *** COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS INC.
  18. REM *** 648 SOUTH RIVER DR.
  19. REM *** TEMPE, ARIZ. 85281 (602)968-7101
  20. %INCLUDE COMMON.BAS
  21. 56 X = HOLE(3) : X1 = HOLE(3) : S=0
  22. 60 DIM A(12),R(3,10),H(1,X),R1(3,X1)
  23. 70 GOSUB 9005
  24. PRINT
  25. 75 PRINT TAB(23);"Dimis Micro Systems, Inc. "
  26. PRINT TAB Data Disk in Drive ";FIL$(2) : \
  27. PRINT "Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
  28. PRINT :\
  29. INITIALIZE : \
  30. GOTO 140
  31. OPEN FIL$(2) + ":" + CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL = 1
  32. GOSUB 5000
  33. CLOSE CLNRNM.FIL
  34. 170 PRINT" ENTER THE CLIENT NUMBER FROM WORKSHEET >";:
  35. FLD.LEN%=-6 : GOSUB 9998 : PRINT :
  36. CLIENT=VAL(REPLY$)
  37. IF CLIENT.NO = CLIENT THEN 235
  38. PRINT CHR$(7);"THE C�SUBSCHEDBAS���M�����������������MENU BAS��������������������UMENU BAS��������������������AMENU BAS��������������������PMENU BAS��� 、���������������PAYROLL2$$$��������������������繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞 ZEROED THE ACCUMULATOR WAS CHANGED
  39. REM FROM R(0,X) TO R(0,I)
  40. REM
  41. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  42. REM
  43. REM 041183 - DCF FIXED BUG CODE #041183-1-ISS
  44. REM ADDED HOLE(3) TO DIMENSION X1 GETS RID OF OM ERROR
  45. REM
  46. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  47. REM FLANKS TO NFLANKS
  48. REM
  49. REM 021683 - (RCB) ADDED HOLE(3) TO DEMENSIONING
  50. REM
  51. REM 013183 (DCF) CHANGED PRINT CLR$ TO GOSUB 9005
  52. REM
  53. REM 013183 (DCF) FIXED OE ERROR(15);"Client Programmed Accounting Ver. ";VERSION$
  54. PRINT
  55. 80 PRINT TAB(21);"** AUXILIARY MENU OPTION #6 **"
  56. 90 PRINT TAB(17);"PRINTS STATEMENT OF CHANGES WORKSHEET" : PRINT
  57. 100 PRINT TAB(5);" Press RETURN Key To Continue Or 'M' To Return To Auxiliary Menu";
  58. 110 FLD.LEN%=1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$,1))
  59. IF M$ = "M" THEN CHAIN PGM$(3) + ":" + "MENU"
  60. 120 GOSUB 9005
  61. 140 IF SIZE(FIL$(2) + ":" + CLIENT$ + "CLN.FIL") = 0 THEN \
  62. PRINT : \
  63. PRINT "Insert the ClientLIENT IN DRIVE ";FIL$(2);" IS ";CLIENT.NO;"!"
  64. PRINT" Please Correct then Press RETURN ";: FLD.LEN%= 1 : GOSUB 9998 : PRINT : X$=LEFT$(REPLY$,1)
  65. 210 GOTO 170
  66. 220 GOSUB 9005 : PRINT : INITIALIZE
  67. 230 PRINT "Insert Auxiliary Data Disk in Drive ";FIL$(10);
  68. 231 PRINT " Then Press RETURN";:FLD.LEN%=1 : GOSUB 9998 : PRINT : X$ =LEFT$(REPLY$,1)
  69. 235 IF SIZE(FIL$(10) + ":" + CLIENT$ + "CON.FIL")=0 THEN 220
  70. 240 OPEN FIL$(10) + ":" + CLIENT$ + "CON.FIL" RECL 142 AS 2 : CONTROL.FIL=2
  71. OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 5 : ACCTS.FIL = 5
  72. READ #CONTROL.FIL;\
  73. X1,\
  74. N$,\
  75. O,\
  76. O1,\
  77. D$
  78. CLOSE CONTROL.FIL
  79. 270 IF CLIENT.NO = CLIENT THEN 300
  80. 280 PRINT CHR$(7);"THE CLIENT NUMBER OF THE DISK IN DRIVE ";FIL$(10); " DOES NOT MATCH !"
  81. PRINT" PLEASE CORRECT THEN PRESS RETURN ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : X$=LEFT$(REPLY$,1)
  82. GOTO 220
  83. 300 GOSUB 9005 : PRINT
  84. 310 PRINT "NOW COMPILING HEADXE = -1 THEN 450
  85. 390 GOSUB 7100 : X2 = H.XE - INT( H.XE / 10000 ) * 10000
  86. 400 FOR X1 = 0 TO H1
  87. 410 IF H( 0, X1 ) = X2 THEN 440
  88. 420 NEXT X1
  89. H1 = H1 + 1
  90. 430 H( 0, H1 ) = X2 : H( 1, X1 ) = X
  91. 440 X = X + 1 : GOTO 380
  92. 450 R.XE = -1 : X9 = -1
  93. 460 IF A9 = -1 THEN 550
  94. 470 GOSUB 7200 : X2 = A.XE - INT( A.XE / 10000 ) * 10000
  95. 480 FOR X1 = 0 TO R.XE
  96. 490 IF R1( 0, X1 ) = X2 THEN 530
  97. 500 NEXT X1
  98. R.XE = R.XE + 1
  99. 510 R1( 0, R.XE ) = X2
  100. R1( 1, R.XE ) = A5
  101. R1( 2,610 NEXT X1
  102. 620 IF X THEN 551
  103. 630 GOSUB 9005
  104. PRINT
  105. PRINT "NOW SORTING ACCOUNTS . . . "
  106. X6 = R.XE
  107. 631 X = 0 : X6 = X6 - 1
  108. 640 FOR X1 = 0 TO X6
  109. 650 IF R1( 0, X1 ) <= R1( 0, X1 + 1 ) THEN 690
  110. 660 X = 1
  111. X2 = R1(0,X1)
  112. X3 = R1(1,X1)
  113. X4 = R1(2,X1)
  114. X5 = R1(3,X1)
  115. 670 R1(0,X1)=R1(0,X1+1)
  116. R1(1,X1)=R1(1,X1+1)
  117. R1(2,X1)=R1(2,X1+1)
  118. 675 R1(3,X1)=R1(3,X1+1)
  119. 680 R1(0,X1+1)=X2
  120. R1(1,X1+1)=X3
  121. R1(2,X1+1)=X4
  122. ON WORKSHEET"
  123. PRINT TAB(30);"AS OF ";MID$(D$,73,2);"/";MID$(D$,75,2);"/";MID$(D$,77,2)
  124. PRINT
  125. PRINT TAB(33);"YEAR TO DATE BALANCES";TAB(66);"CHANGES"
  126. PRINT TAB(33);MID$(D$,O*6+1,2);"/";MID$(D$,O*6+3,2);"/";MID$(D$,O*6+5,2);
  127. PRINT TAB(46);MID$(D$,73,2);"/";MID$(D$,75,2);"/";MID$(D$,77,2);
  128. PRINT TAB(59);"CURRENT";
  129. PRINT TAB(70);"NON-CURRENT"
  130. 2180 PRINT TAB(31);"-----------";
  131. PRINT TAB(44);"-----------";
  132. PRINT TAB(57);"-----------";
  133. 210 GOSUB 6500
  134. 3170 IF E0 THEN 5000.1
  135. 3180 GOSUB 6100
  136. 3190 GOTO 3120
  137. 3200 C = 1 : GOTO 3220
  138. 3205 IF E1 THEN 5000.1
  139. 3210 GOSUB 6200
  140. 3220 IF H.XE < A.XE THEN 3250
  141. 3230 GOSUB 6000
  142. 3240 GOTO 3205
  143. 3250 IF MID$(C$,8,1) = "L" THEN 3300
  144. 3251 IF MID$(C$,8,1) = "*" THEN 3270
  145. 3260 GOSUB 6500
  146. 3270 IF E0 THEN 5000.1
  147. 3280 GOSUB 6100
  148. 3290 GOTO 3220
  149. 3300 C = 2 : GOTO 3320
  150. 3305 IF E1 THEN 5000.1
  151. 3310 GOSUB 6200
  152. 3320 IF H.XE < A.XE THEN 3350
  153. 3330 GOSUB 6000
  154. 3340 GOTO 3305
  155. 3350 IF MID$(C$,8,1) = "E" THERS AND ACCOUNTS . . . "
  156. 350 FIL2$=FIL$(7)
  157. 351 IF SIZE(FIL2$ + ":" + CLIENT$ + "FSH.FIL")=0 THEN \
  158. PRINT "Insert Client Data Disk Containing FSH.FIL in Drive ";PGM$(3):\
  159. PRINT " Then Press RETURN "; : FLD.LEN%=1 : GOSUB 9998 : \
  160. PRINT : \
  161. INITIALIZE : \
  162. FIL2$ = PGM$(3) : \
  163. GOTO 351
  164. REM ELSE \
  165. REM FIL2$=FIL$(7)
  166. 360 OPEN FIL2$ + ":" + CLIENT$ + "FSH.FIL" RECL 94 AS 4 : FSHEADS.FIL=4
  167. 370 H1 = -1 : X = 0
  168. 380 IF H. R.XE ) = A1
  169. R1( 3, R.XE ) = A2
  170. 520 GOTO 460
  171. 530 R1( 2, X1 ) = R1( 2, X1 ) + A1
  172. R1( 3, X1 ) = R1( 3, X1 ) + A2
  173. 540 GOTO 460
  174. 550 GOSUB 9005 : PRINT : PRINT "NOW SORTING HEADERS . . . " : X6 = H1
  175. 551 X = 0 : X6 = X6 - 1
  176. 560 FOR X1 = 0 TO X6
  177. 570 IF H( 0, X1 ) <= H( 0, X1 + 1 ) THEN 610
  178. 580 X = 1
  179. X2 = H( 0, X1 )
  180. X3 = H( 1, X1 )
  181. 590 H( 0, X1 ) = H( 0, X1 + 1 )
  182. H( 1, X1 ) = H( 1, X1 + 1 )
  183. 600 H( 0, X1 + 1 ) = X2
  184. H( 1, X1 + 1 ) = X3
  185. R1(3,X1+1)=X5
  186. 690 NEXT X1
  187. 700 IF X THEN 631
  188. 720 H2 = 0 : R2 = 0
  189. 730 GOSUB 9005 : PRINT
  190. 740 PRINT "NOW PRINTING SCHEDULE . . . "
  191. 1030 IF E0 THEN 5000.1
  192. 1040 GOSUB 6100
  193. 1050 IF MID$(C$,8,1) <> "C" THEN 1030
  194. 2000.1 NAME.LENGTH = LEN(N$)
  195. FOR X = NAME.LENGTH TO 1.0 STEP -1.0
  196. 2001 IF MID$(N$,X,1) <> " " THEN 2004
  197. 2002 NEXT X
  198. 2004 X1 = INT( ( 75 - X ) / 2 )
  199. 2005 LPRINTER
  200. PRINT : PRINT : PRINT TAB(X1);N$
  201. PRINT TAB(10);"STATEMENT OF CHANGES IN FINANCIAL POSITI90 PRINT TAB(70);"-----------"
  202. 3000 C = 1
  203. 3005 IF E1 THEN 5000.1
  204. 3010 GOSUB 6200
  205. 3020 IF H.XE < A.XE THEN 3050
  206. 3030 GOSUB 6000
  207. 3040 GOTO 3005
  208. 3050 IF MID$(C$,8,1) = "N" THEN 3100
  209. 3051 IF MID$(C$,8,1) = "*" THEN 3070
  210. 3060 GOSUB 6500
  211. 3070 IF E0 THEN 5000.1
  212. 3080 GOSUB 6100
  213. 3090 GOTO 3020
  214. 3100 C = 2 : GOTO 3120
  215. 3105 IF E1 THEN 5000.1
  216. 3110 GOSUB 6200
  217. 3120 IF H.XE < A.XE THEN 3150
  218. 3130 GOSUB 6000
  219. 3140 GOTO 3105
  220. 3150 IF MID$(C$,8,1) = "S" THEN 3200
  221. 3151 IF MID$(C$,8,1) = "*" THEN 3170
  222. 316EN 4000
  223. 3351 IF MID$(C$,8,1) = "*" THEN 3370
  224. 3355 IF MID$(C$,3,1) <> "P" THEN 3360
  225. 3356 GOSUB 9000
  226. GOTO 3370
  227. 3360 GOSUB 6500
  228. 3370 IF E0 THEN 5000.1
  229. 3380 GOSUB 6100
  230. 3390 GOTO 3320
  231. 4000 LPRINTER
  232. 4010 H$ = "NET "
  233. 4020 IF R(3,9) < 0 THEN H$ = H$ + "INCREASE " ELSE H$ = H$ + "DECREASE "
  234. 4030 H$ = H$ + "IN WORKING CAPITAL"
  235. 4040 PRINT H$;
  236. PRINT TAB(56);
  237. PRINT USING "#########.##";R(2,10)/100;
  238. 4050 PRINT TAB(69);
  239. PRINT USING "#########.##";R(3,10)/100
  240. 4060 W1 = R(3,10)
  241. 4820 GOSUB 8000
  242. 5000.1 CONSOLE : GOSUB 9005 : PRINT : PRINT : CLOSE FSHEADS.FIL : CLOSE ACCTS.FIL
  243. 5010 REM
  244. 5020 IF NUM.BITS%=8 THEN EXT$ = ".OVL" ELSE EXT$ = ".OVR"
  245. IF SIZE(PGM$(3) + ":" + "SOCUP"+EXT$)<> 0 THEN CHAIN PGM$(3) + ":" + "SOCUP"
  246. INITIALIZE
  247. PRINT "Insert Program Disk in Drive ";PGM$(3)
  248. PRINT " Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : R$=LEFT$(REPLY$,1)
  249. GOTO 5020
  250. 6000 REM **** PRINTING ACCOUNTS
  251. LSE R(3,X) = R(3,X) + (A2-A1)
  252. 6065 NEXT X
  253. 6066 P = P - A1 : P1 = P1 - A2
  254. 6070 RETURN
  255. 6100 IF H2 > H1 THEN 6130
  256. 6110 X = H(1,H2) : GOSUB 7100 : H.XE = H( 0, H2 ) : H2 = H2 + 1
  257. 6120 GOTO 6140
  258. 6130 E0 = 1
  259. 6140 RETURN
  260. 6200 IF R2 > R.XE THEN 6240
  261. 6210 X9 = R1(1,R2) -1 : GOSUB 7200
  262. 6220 A.XE = R1(0,R2) : A1 = R1(2,R2) : A2 = R1(3,R2)
  263. 6230 R2 = R2 + 1 : GOTO 6250
  264. 6240 E1 = 1
  265. 6250 RETURN
  266. 6500 H$ = H$ + B$
  267. IF MID$(C$,7,1) = "S" THEN 6510
  268. 6505 IF MID$(C$,7,1) = "D" THEN C = 2 THEN 6590
  269. 6580 PRINT TAB(56);
  270. PRINT USING "#########.##";R(2,X)/100 : GOTO 6600
  271. 6590 PRINT TAB(69);
  272. PRINT USING "#########.##";R(3,X)/100
  273. 6600 FOR I = 1 TO X
  274. 6610 R(0,I) = 0
  275. R(1,I) = 0
  276. 6620 IF C = 1 THEN R(2,I) = 0 ELSE R(3,I) = 0
  277. 6630 NEXT I
  278. 6640 IF MID$(C$,7,1) <> "D" THEN 6680
  279. 6650 PRINT TAB(31);"===========";TAB(44);"===========";
  280. 6660 IF C = 1 THEN PRINT TAB(57); ELSE PRINT TAB(70);
  281. 6670 PRINT "==========="
  282. 6680 IF MID$(C$,2,1) = "P" THEN GOTO 6690 EL : X9 = X9 + 1
  283. 7225 IF END #ACCTS.FIL THEN 7260
  284. 7230 READ #ACCTS.FIL,X9+1;\
  285. A9,\
  286. A9$,\
  287. B9,\
  288. A(0),\
  289. A(1),\
  290. A(2),\
  291. A(3),\
  292. A(4),\
  293. A(5),\
  294. A(6),\
  295. A(7),\
  296. A(8),\
  297. A(9),\
  298. A(10),\
  299. A(11),\
  300. A(12)
  301. 7250 IF INT(A9) = A.XE THEN 7220
  302. 7255 IF X9 = 0 THEN 7200
  303. 7260 RETURN
  304. 8000 N1=0-N1
  305. 8028 W1=0-W1
  306. 8030 HOLE(8) = N1
  307. HOLE(9) = W1
  308. 1,X) + P1
  309. R(3,X) = R(3,X) +(P1-P)
  310. 9040 NEXT X
  311. 9042 N1 = P1
  312. 9045 IF MID$(C$,7,1) <> "D" THEN 9050
  313. 9046 PRINT TAB(31);"===========";TAB(44);"===========";TAB(70);"==========="
  314. 9050 IF MID$(C$,2,1) = "P" THEN PRINT CHR$(12); ELSE GOTO 9055
  315. GOTO 9060
  316. 9055 IF VAL(MID$(C$,2,1)) = 0 THEN 9060
  317. FOR X = 1 TO VAL(MID$(C$,2,1))
  318. PRINT
  319. NEXT X
  320. 9060 RETURN
  321. %INCLUDE NFLANKS.BAS
  322. %INCLUDE 5000
  323.  LPRINTER
  324. PRINT TAB(3);A$;
  325. 6010 PRINT TAB(30);
  326. PRINT USING "#########.##";A1/100;
  327. PRINT TAB(43);
  328. PRINT USING "#########.##";A2/100;
  329. 6020 IF C=1 THEN GOTO 6025 ELSE GOTO 6030
  330. 6025 PRINT TAB(56);
  331. PRINT USING "#########.##";(A2-A1)/100
  332. GOTO 6040
  333. 6030 PRINT TAB(69);
  334. PRINT USING "#########.##";(A2-A1)/100
  335. 6040 FOR X = 1 TO 10
  336. 6050 R(0,X) = R(0,X) + A1
  337. R(1,X) = R(1,X) + A2
  338. 6060 IF C = 1 THEN R(2,X) = R(2,X) + (A2-A1) EGOTO 6510 ELSE GOTO 6540
  339. 6510 LPRINTER
  340. PRINT TAB(31);"-----------";TAB(44);"-----------";
  341. 6520 IF C = 1 THEN PRINT TAB(57); ELSE PRINT TAB(70);
  342. 6530 PRINT "-----------"
  343. 6540 IF MID$(C$,1,1) = "0" THEN GOTO 6541 ELSE GOTO 6542
  344. 6541 PRINT H$ : GOTO 6550
  345. 6542 PRINT MID$(H$,1,29);
  346. 6550 IF MID$(C$,1,1) = "0" THEN 6640
  347. X = VAL(MID$(C$,1,1))
  348. 6560 PRINT TAB(30);
  349. PRINT USING "#########.##";R(0,X)/100;
  350. PRINT TAB(43);
  351. PRINT USING "#########.##";R(1,X)/100;
  352. 6570 IF SE GOTO 6700
  353. 6690 PRINT CHR$(12); : GOTO 6710
  354. 6700 X = VAL(MID$(C$,2,1))
  355. IF X=0 THEN 6710
  356. FOR I = 1 TO X
  357. PRINT
  358. NEXT I
  359. 6710 IF MID$(C$,3,1) = "P" THEN N = A2 - A1
  360. RETURN
  361. 7100 READ #FSHEADS.FIL,X+1;\
  362. H.XE,\
  363. H$,\
  364. C$
  365. 7110 RETURN
  366. 7200 IF O = 12 THEN O = 0
  367. 7210 X = O1 + O + 1
  368. IF X > 12 THEN X = X - 13
  369. A.XE = A9
  370. A$ = A9$
  371. A1 = 0
  372. 7215 A2 = 0 : A5 = X9
  373. 7220 A1 = A1 + A(X) : A2 = A2 + A(O1)8040 RETURN
  374. 9000 H$ = H$ + B$
  375. 9004 PRINT MID$(H$,1,30);
  376. 9005.1 IF MID$(C$,7,1) = "S" THEN 9006.1
  377. IF MID$(C$,7,1) = "D" THEN 9006.1
  378. GOTO 9010
  379. 9006.1 PRINT TAB(31);"-----------";TAB(44);"-----------";TAB(70);"-----------"
  380. 9010 PRINT TAB(30);
  381. PRINT USING "#########.##";P/100;
  382. PRINT TAB(43);
  383. PRINT USING "#########.##";P1/100;
  384. PRINT TAB(69);
  385. PRINT USING "#########.##";(P1-P)/100
  386. 9020 FOR X = 1 TO 10
  387. 9030 R(0,X) = R(0,X) + P
  388. R(1,X) = R(繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞REM 070883 - DCF CHANGED L TO L1.XE WHEN READING EARNREC FILE FOR CB80 COMPILE
  389. REM
  390. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  391. REM
  392. REM 062083 - (RCB) CHANGED "R & B" TO "D M S"
  393. REM
  394. REM 061783 - DCF FIXED BUG#120-060683 ST.INC.TAX.ATR WAS BEING WRITTEN TO
  395. REM EARNREC FILE INSTEAD OF VARIABLE ST.INC.TAX.QTR
  396. REM
  397. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  398. REM
  399. REM 042283 - DCF FIXED BUG #39-042183-2-CSS BY CHANGING LOCAL.DED.1 AND 2 TO
  400. REM O CHECK FOR LOWER CASE M FOR RETURN TO MENU
  401. REM
  402. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  403. REM FLANKS TO NFLANKS
  404. REM
  405. REM *** 11/11/82 DTK - WRONG CLIENT # GIVES ERROR DF
  406. REM ***
  407. REM *** 10/2/82 DTK - ADDED CHECK FOR CLN.FIL BEFORE ASKING
  408. REM ***
  409. REM **** CHANGES PAYROLL TAX MAX. % RATES & STARTS NEW P/R'S (PAYROLL)
  410. REM ****COPYRIGHT 1982 BY- R & B COMPUTER SYSTEMS INC. (VERSION 3.6)
  411. REM 648 SOUTH RIVER DR. 602-968-7101
  412. REM
  413. PRINT TAB(22);"** PAYROLL MENU OPTION #2 **"
  414. PRINT TAB(26);"ENTER PAYROLL CHECKS" : PRINT
  415. PRINT " Press RETURN Key to Continue or 'M' to Return to Payroll Menu ";
  416. FLD.LEN% = 1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$+" ",1))
  417. IF M$="M" THEN 9194
  418. 99.99 GOSUB 9005 : PRINT
  419. IF SIZE(FIL$(2)+":"+CLIENT$+"CLN.FIL") <> 0 THEN GOTO 100
  420. INITIALIZE
  421. PRINT "INSERT A CLIENT DATA FILE DISK IN DRIVE ";FIL$(2);" (NO WRITE PROTECT TAPE)"
  422. PRINT " THEN PRESS RETURN "; : GOSUB 9998 : PRINT
  423. .FLG,PRT.941.FLG :\
  424. NEW.QTR.FLG = FALSE
  425. GOSUB 5000 : REM READ CLNRNM.FIL
  426. L(0) = MAX.FICA.WAGES
  427. L(1) = MAX.ST.UNEMP
  428. L(2) = MAX.FED.UNEMP
  429. L(3) = MAX.ST.DIS.WAGES
  430. L(4) = EMP.FICA.RATE
  431. L(5) = ST.UNEMP.RATE
  432. L(6) = FED.UNEMP.RATE
  433. L(7) = ST.DIS.RATE
  434. F(0) = TIPS.F.U.I
  435. F(1) = MEALS.LDG.TO.ST.UNEMP
  436. F(2) = TIPS.TO.ST.UNEMP
  437. F(3) = ST.DIS.FLG
  438. F(4) = MEALS.LDG.TO.SDI
  439. F(5) = TIPS.TO.SDI
  440. F(6) = ST.UNEMP.CONT.FLG
  441. F(7) = FORMAT.1
  442. F(8) = FORMAT.2
  443. F(9) = TIP.CONT.SHEET
  444. XE.riod ended ";
  445. PRINT MID$(PAY.END.DATE$,1,2);"/";MID$(PAY.END.DATE$,3,2);"/";MID$(PAY.END.DATE$,5,2)
  446. PRINT
  447. PRINT TAB(10);"WHICH FUNCTION WOULD YOU LIKE TO PERFORM?"
  448. PRINT TAB(10);"ENTER 1. If these are Additional Entries to the Above Month,"
  449. PRINT TAB(10);" 2. If this is a New Month,"
  450. PRINT TAB(10);" 3. If this is a New Quarter or,"
  451. PRINT TAB(10);" 4. If this is a New Year,"
  452. PRINT TAB(10);" 5. If this is a Adjusting Run."
  453. PRINT " ENTER THE NUMBER LOCAL.WITH.1 AND 2 = 0
  454. REM
  455. REM 042183 - DCF CHANGED FLD.LEN%=1 FOR PRESS RETURN TO CONT OR M TO RETURN
  456. REM TO MENU AND FLD.LEN%=-6 FOR CLIENT NUMBER
  457. REM
  458. REM 041983 - DCF FIXED BUG #24-041983-2-IMP THE PROGRAM NOW ALLOWS YOU
  459. REM TO START A NEW YEAR
  460. REM
  461. REM 040883 - DCF ADDED A CHECK FOR VALID NUMBER ENTERED IN MENU OPTION FOR PERIOD
  462. REM TO ADJUST AND ADDED UCASE$ FOR ENTER DESCIP FOR AN ITEM CHANGE.
  463. REM
  464. REM 040783 - DCF ADDED UCASE$ T TEMPE, ARIZ. 85281
  465. %INCLUDE COMMON.BAS
  466. J1=0
  467. DIM L(7),F(9)
  468. FALSE = 0 : TRUE = NOT FALSE
  469. REM L(1) = MAX FICA WAGES
  470. REM L(2) = MAX STATE UNEMP
  471. REM L(3) = MAX FEDERAL UNEMP
  472. REM L(4) = MAX STATE DISABILITY WAGES
  473. REM L(5) = EMPLOYEE FICA RATE
  474. REM L(6) = STATE UNEMP RATE
  475. REM L(7) = STATE DISABILITY RATE
  476. L$=""
  477. FOR X=1 TO 75
  478. L$= L$ + CHR$(95)
  479. NEXT X
  480. PRINT TAB(23);"Dimis Micro Systems, Inc. "
  481. PRINT TAB(15);" Client Programmed Accounting Ver. ";VERSION$
  482. PRINT GOTO 99.99
  483. 100 PRINT "ENTER THE CLIENT NUMBER FROM THE CONTROL SHEET >";
  484. FLD.LEN% = -6 : GOSUB 9998 : PRINT : R = VAL(REPLY$)
  485. OPEN FIL$(2)+":"+CLIENT$+"CLN.FIL" RECL 255 AS 2 : CLNRNM.FIL = 2
  486. OPEN FIL$(3)+":"+CLIENT$+"EAR.FIL" RECL 525 AS 3 : EARNREC.FIL = 3
  487. READ #CLNRNM.FIL,2;NEW.QTR.FLG,PRT.ERR.FLG,PRT.941.FLG
  488. IF PRT.ERR.FLG = 0 AND PRT.941.FLG = 0 THEN \
  489. PRINT #CLNRNM.FIL,2;0,PRT.ERR.FLG,PRT.941.FLG :\
  490. NEW.QTR.FLG = TRUE :\
  491. ELSE \
  492. PRINT #CLNRNM.FIL,2;1,PRT.ERRLOCAL.DESC$ = LOCAL.DESC$
  493. 150 IF R<>CLIENT.NO THEN \
  494. PRINT "THE CLIENT NUMBER OF THE DISK IN DRIVE ";FIL$(2);" IS #";CLIENT.NO:\
  495. PRINT " PLEASE ENTER THE CORRECT NUMBER!":\
  496. PRINT CHR$(7) :\
  497. PRINT " PRESS RETURN TO CONTINUE ";:\
  498. FLD.LEN% = 1 : GOSUB 9998 : PRINT : \
  499. GOSUB 9005 : CLOSE 2,3 : GOTO 100
  500. 200 GOSUB 9005 : PRINT : PRINT : PRINT
  501. PRINT TAB(17);"D M S Client Programmed Accounting"
  502. PRINT
  503. PRINT " The previous payroll checks posted were for the peOF THE FUNCTION TO PERFORM >";
  504. FLD.LEN% = -1 : GOSUB 9998 : PRINT : T = VAL(REPLY$)
  505. IF T=5 THEN 3000
  506. IF T=1 THEN 3240
  507. IF T=2 THEN 270
  508. IF T=3 THEN 261
  509. IF T<>4 THEN 259
  510. GOSUB 5000 : REM READ CLNRNM.FIL INTO VARS
  511. RUN.NUMBER = 0
  512. GOSUB 5010 : REM WRITE CLNRNM.FIL
  513. GOTO 261
  514. 259 GOSUB 5110
  515. FOR XE = 1 TO 250 : NEXT XE : GOTO 200
  516. IF T<3 THEN 270
  517. 261 IF NEW.QTR.FLG THEN GOTO 269
  518. GOSUB 9005
  519. PRINT CHR$(7);"YOU CAN NOT START A NEW QUARTER UNTIL"
  520. PRINT " THE 941 AND EARNINGS RECORD REPORT HAVE BEEN PRINTED!"
  521. PRINT "PRESS RETURN TO GOTO PAYROLL MENU";
  522. FLD.LEN% = 1 : GOSUB 9998 : PRINT
  523. GOTO 9193
  524. 269 IF T=4 THEN 370
  525. 270 X=0
  526. PRINT : PRINT "WORKING ...."
  527. 290 IF END #3 THEN 350
  528. GOSUB 10000
  529. IF T>=2 THEN \
  530. REG.WAGES =0 :\
  531. OVERTIME.WAGES = 0 :\
  532. MEALS.AND.LODGING = 0:\
  533. TIPS =0 :\
  534. FICA =0 :\
  535. FED.INC.TAX =0 :\
  536. STATE.INC.TAX =0 :\
  537. ST.DIS.INS =0 :\
  538. LOCAL.DED.1 =0 :\
  539. LOCAL.DED.2 =0 :\
  540. LOCAL.WITH.1 =0 :\
  541. LOCAL.WITH. 0 :\
  542. FED.INC.TAX.YR = 0 :\
  543. ST.INC.TAX.YR = 0 :\
  544. ST.DIS.INS.YR = 0 :\
  545. LOCAL.DED.1.YR = 0 :\
  546. LOCAL.DED.2.YR = 0 :\
  547. LOCAL.WITH.1.YR = 0 :\
  548. LOCAL.WITH.2.YR = 0 :\
  549. OTHER.DED.YR = 0 :\
  550. NET.WAGES.YR = 0
  551. GOSUB 10010
  552. X=X+1
  553. GOTO 290
  554. 350 REM CLOSE FILE - GOSUB 5900
  555. GOTO 3240
  556. 370 PRINT CHR$(7)
  557. PRINT "***WARNING-YOU ARE ABOUT TO ERASE THE EARNINGS TOTALS FOR THE ";
  558. PRINT "ENTIRE YEAR!"
  559. PRINT "IS THIS CORRECT? (Y OR N) :"; : FLD.LEN% = 1 : GOSUB 9998 : PRINT
  560. M$= ;
  561. FLD.LEN% = -1 : GOSUB 9998 : PRINT : J1 = VAL(LEFT$(REPLY$,1))
  562. IF J1 < 1 OR J1 > 6 THEN ERR$= "INVALID INPUT - TRY AGAIN!" :\
  563. GOSUB 2000 : FOR XE.X1 = 1 TO 250 : NEXT XE.X1 : GOSUB 9005 : GOTO 3000
  564. GOSUB 5000 : REM READ CLNRNM.FIL
  565. PERIOD.TO.ADJ = J1
  566. TYPE.OF.RUN = T
  567. GOSUB 5010 : REM WRITE OUT CLNRNM.FIL
  568. 3175 CLOSE 2,3
  569. CHAIN PGM$(2)+":PAYROLL2"
  570. 3240 GOSUB 9005
  571. PRINT "THE PAYROLL TAX MAXIMUM WAGES, RATES AND DESCRIPTIONS FOR THIS CLIENT ";
  572. PRINT "ARE:"
  573. (40);
  574. PRINT USING "#,###,###.## \%";L(5)*100
  575. PRINT " # 7 FEDERAL UNEMP. RATE =";TAB(40);
  576. PRINT USING "#,###,###.## \%";L(6)*100
  577. PRINT " # 8 STATE DISAB. INS. RATE =";TAB(40);
  578. PRINT USING "#,###,###.## \%";L(7)*100
  579. PRINT " # 9 LOCAL WITHHOLDING #1 : ";TAB(50);LEFT$(LOCAL.DESC$,3)
  580. PRINT " # 10 LOCAL WITHHOLDING #2 : ";TAB(50);MID$(LOCAL.DESC$,4,3)
  581. PRINT " # 11 DEDUCTION #1 : ";TAB(50);MID$(LOCAL.DESC$,7,3)
  582. PRINT " # 12 DEDUCTION #2 : ";TAB(50);MID$(LOCAL.DESC$,10,3)
  583. 3330 PRINT "DOINT : M$=UCASE$(LEFT$(REPLY$+" ",3))
  584. LOCAL.DESC$ = LEFT$(LOCAL.DESC$,(L9-9)*3) + M$ \
  585. + RIGHT$(LOCAL.DESC$,12-3*(L9-8))
  586. XE.LOCAL.DESC$ = LEFT$(LOCAL.DESC$+" ",12)
  587. GOSUB 9005 : GOTO 3240
  588. 3400 GOSUB 5110 : GOTO 3370
  589. 3410 PRINT "ENTER NEW MAXIMUM OR RATE - DO NOT ENTER COMMAS OR DECIMAL"
  590. PRINT "FOR MAXIMUMS, BUT DO ENTER DECIMAL FOR RATES >";
  591. FLD.LEN% = - 9 : GOSUB 9998 : PRINT
  592. L(L9-1) = VAL(REPLY$)
  593. IF L9>=5 THEN L(L9-1)=L(L9-1)/100
  594. GOTO 3240
  595. 3460 GOSUB 5000 :2 =0 :\
  596. OTHER.DED =0 :\
  597. NET.WAGES =0
  598. IF T>=3 THEN \
  599. REG.WAGES.QTR = 0 :\
  600. OVERTIME.QTR = 0 :\
  601. MEALS.LDG.QTR = 0 :\
  602. TIPS.QTR = 0 :\
  603. FICA.QTR = 0 :\
  604. FED.INC.TAX.QTR = 0 :\
  605. ST.INC.TAX.QTR = 0 :\
  606. ST.DIS.INS.QTR = 0 :\
  607. LOCAL.DED.1.QTR = 0 :\
  608. LOCAL.DED.2.QTR = 0 :\
  609. LOCAL.WITH.1.QTR = 0 :\
  610. LOCAL.WITH.2.QTR = 0 :\
  611. OTHER.DED.QTR = 0 :\
  612. NET.WAGES.QTR = 0
  613. IF T=4 THEN \
  614. REG.WAGES.YR = 0 :\
  615. OVERTIME.YR = 0 :\
  616. MEALS.LDG.YR = 0 :\
  617. TIPS.YR = 0 :\
  618. FICA.YR =UCASE$(LEFT$(REPLY$,1))
  619. IF M$="Y" THEN 270
  620. IF M$="N" THEN 200
  621. PRINT CHR$(7);"ENTER Y OR N PLEASE!"
  622. GOTO 370
  623. 3000 GOSUB 9005
  624. PRINT : PRINT
  625. PRINT " WHICH PERIOD DO YOU WANT TO MAKE ADJUSTMENTS TO:"
  626. PRINT " 1. Current Period "
  627. PRINT " 2. Quarter Period"
  628. PRINT " 3. Year-to-Date Period"
  629. PRINT " 4. Current\Quarter Periods"
  630. PRINT " 5. Quarter\Year-to-Date Periods"
  631. PRINT " ENTER THE NUMBER YOU WOULD LIKE TO ADJUST > "PRINT "ITEM"
  632. PRINT " # 1 MAXIMUM FICA WAGES =";TAB(40);
  633. PRINT USING "#,###,###.##";L(0)/100
  634. PRINT " # 2 MAXIMUM STATE UNEMP. WAGES =";TAB(40);
  635. PRINT USING "#,###,###.##";L(1)/100
  636. PRINT " # 3 MAXIMUM FEDERAL UNEMP. WAGES =";TAB(40);
  637. PRINT USING "#,###,###.##";L(2)/100
  638. PRINT " # 4 MAXIMUM STATE DISAB. INS. WAGES =";TAB(40);
  639. PRINT USING "#,###,###.##";L(3)/100
  640. PRINT " # 5 EMPLOYEE FICA RATE =";TAB(40);
  641. PRINT USING "#,###,###.## \%";L(4)*100
  642. PRINT " # 6 STATE UNEMP. RATE =";TAB YOU WANT TO CHANGE A MAXIMUM, RATE OR DESCRIPTION?"
  643. PRINT " ENTER Y FOR YES OR N FOR NO :";
  644. FLD.LEN% = 1 : GOSUB 9998 : PRINT : M$=UCASE$(LEFT$(REPLY$,1))
  645. IF M$="Y" THEN 3370
  646. IF M$="N" THEN 3460
  647. GOSUB 5110 : GOTO 3330
  648. 3370 PRINT "ENTER THE NUMBER OF THE ITEM YOU WANT TO CHANGE >";
  649. FLD.LEN% = -3
  650. GOSUB 9998 : PRINT : L9=VAL(LEFT$(REPLY$,3))
  651. IF L9<1 OR L9>12 OR INT(L9)-L9<>0 THEN 3400
  652. IF L9<9 THEN 3410
  653. PRINT "ENTER NEW DESCRIPTION (XXX) :";
  654. FLD.LEN%=4 : GOSUB 9998 : PR REM READ CLNRNM.FIL
  655. MAX.FICA.WAGES = L(0)
  656. MAX.ST.UNEMP = L(1)
  657. MAX.FED.UNEMP = L(2)
  658. MAX.ST.DIS.WAGES = L(3)
  659. EMP.FICA.RATE = L(4)
  660. ST.UNEMP.RATE = L(5)
  661. FED.UNEMP.RATE = L(6)
  662. ST.DIS.RATE = L(7)
  663. LOCAL.DESC$ = XE.LOCAL.DESC$
  664. TYPE.OF.RUN = T
  665. GOSUB 5010 :REM WRITE CLNRNM.FIL
  666. GOSUB 2050
  667. GOTO 3175
  668. PRINT " PLEASE CORRECT!"
  669. PRINT " THEN PRESS RETURN ";
  670. FLD.LEN% = 1 : GOSUB 9998 : PRINT
  671. RETURN
  672. 5110 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
  673. RETURN
  674. 5400 PRINT " INSERT A CLIENT DATA DISK IN DRIVE 2 (NO WRITE PROTECT TAPE)"
  675. RETURN
  676. 2000.10 IF LEN(X$)=0 THEN 2010
  677. X=0
  678. IF LEFT$(X$,1)="Y" THEN 2040
  679. IF LEFT$(X$,1)="N" THEN 2040
  680. 2010 PRINT REVLF$;
  681. PRINT " ";
  682. PRINT " " : PRINT REVLF$;
  683. X=-1
  684. 2040 RETURN
  685. 2050 GOSUB 9005
  686. PRINT : PRINT : PRINT
  687. PRINT "DO YOU WANT TO CHANGE THE EARNINGS CATEGORIES SUBJECT TO STATE AND "
  688. 2070 PRINT "FEDERAL UNEMPLOLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
  689. GOSUB 2000.10
  690. IF X=-1 THEN 2170
  691. IF X$="Y" THEN F(1)=5 \
  692. ELSE F(1)=7
  693. 2200 PRINT "DO YOU WANT TIPS SUBJECT TO STATE UNEMPLOYMENT :";
  694. FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
  695. GOSUB 2000.10
  696. IF X=-1 THEN 2200
  697. IF X$="Y" THEN F(2)=5 \
  698. ELSE F(2)=7
  699. 2230 PRINT "DO YOU HAVE STATE DISABILITY INSURANCE FOR THIS CLIENT:";
  700. FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
  701. GOSUB 2=7
  702. 2320 GOSUB 9005
  703. GOSUB 2330 : GOTO 2499
  704. 2330 REM
  705. PRINT " THESE WAGE CATEGORIES ARE SUBJECT TO STATE UNEMPLOYMENT :"
  706. PRINT MID$(L$,1,67)
  707. PRINT "REGULAR WAGES OVERTIME & BONUSES";
  708. IF F(1)=5 THEN PRINT " MEALS AND LODGING";
  709. IF F(2)=7 THEN 2390
  710. PRINT " TIPS";
  711. 2390 PRINT : PRINT
  712. IF F(3)=7 THEN 2480
  713. PRINT " THESE WAGE CATEGORIES ARE SUBJECT TO STATE DISABILITY :"
  714. PRINT MID$(L$,1,67)
  715. PRINT "REGULAR WAGES OVERTIME & BONUSES";
  716. IF F(4)=5 THEN PRI IF X$="Y" THEN 2520
  717. GOSUB 9005 : PRINT : PRINT
  718. GOTO 2110
  719. 2520 GOSUB 9005 : PRINT : PRINT : PRINT
  720. PRINT "DO YOU WANT TO CUSTOMIZE THE STATE UNEMPLOYMENT CONTINUATION SHEET"
  721. 2523 PRINT "FOR THIS CLIENT'S STATE :";
  722. FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
  723. GOSUB 2000.10
  724. IF X=-1 THEN 2523
  725. IF X$="N" THEN 2830
  726. 2530 PRINT"DO YOU WANT AN UNEMP. TAX CONTINUATION SHEET FOR THIS CLIENT: ";
  727. FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
  728. );G$
  729. PRINT : PRINT : PRINT
  730. RETURN
  731. 2655 D$="*********" : E$=D$ : F$="FIELD #1" : G$="FIELD #2" : H$=" "
  732. GOSUB 2560
  733. 2660 PRINT " (A): ";
  734. PRINT "FIELD #1 SHOULD BE:"
  735. PRINT "(1:TAXABLE WAGES 2:EXCESS WAGES ";
  736. PRINT "3:GROSS WAGES 4:UNUSED 5:FICA WAGES) >";
  737. FLD.LEN%= -1 : GOSUB 9998 : PRINT : X = VAL(REPLY$)
  738. IF X=1 OR X=2 OR X=3 OR X=4 OR X=5 THEN 2690
  739. GOSUB 2010
  740. GOTO 2660
  741. 2690 IF X=1 THEN F(7)=5
  742. IF X=2 THEN F(7)=7
  743. IF X=3 THEN F(7)=3
  744. IF X=4 THEN F(7)=9
  745. IYMENT AND STATE DISABILITY INSURANCE? (Y OR N) :";
  746. FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
  747. GOSUB 2000.10
  748. IF X=-1 THEN 2070
  749. IF X$="N" THEN 2520
  750. GOSUB 9005
  751. 2110 GOSUB 2330
  752. 2152 PRINT "DO YOU WANT TIPS SUBJECT TO FEDERAL UNEMPLOYMENT :";
  753. FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
  754. GOSUB 2000.10
  755. IF X=-1 THEN 2152
  756. IF X$="Y" THEN F(0)=5 \
  757. ELSE F(0)=7
  758. 2170 PRINT"DO YOU WANT MEALS AND LODGING SUBJECT TO STATE UNEMPLOYMENT :";
  759. F000.10
  760. IF X=-1 THEN 2230
  761. IF X$="Y" THEN F(3)=5 \
  762. ELSE F(3)=7
  763. IF X$="N" THEN 2320
  764. 2270 PRINT "DO YOU WANT MEALS AND LODGING SUBJECT TO SDI :";
  765. FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
  766. GOSUB 2000.10
  767. IF X=-1 THEN 2270
  768. IF X$="Y" THEN F(4)=5 \
  769. ELSE F(4)=7
  770. 2300 PRINT "DO YOU WANT TIPS SUBJECT TO SDI :";
  771. FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
  772. GOSUB 2000.10
  773. IF X=-1 THEN 2300
  774. IF X$="Y" THEN F(5)=5 \
  775. ELSE F(5)NT " MEALS AND LODGING";
  776. IF F(5)=5 THEN PRINT " TIPS";
  777. PRINT : PRINT
  778. GOTO 2490
  779. 2480 PRINT " ***** STATE DIS. INS. IS NOT BEING USED *****"
  780. PRINT
  781. 2490 IF F(0)=5 THEN PRINT " ***** TIPS ARE SUBJECT TO FEDERAL UNEMPLOYMENT *****"
  782. IF F(0) <> 5 THEN PRINT " ***** TIPS ARE NOT SUBJECT TO FED. UNEMP. *****"
  783. PRINT : PRINT
  784. RETURN
  785. 2499 PRINT "IS THIS CORRECT :"; : FLD.LEN% = 1 : GOSUB 9998 : PRINT
  786. X$=UCASE$(LEFT$(REPLY$,1))
  787. GOSUB 2000.10
  788. IF X=-1 THEN 2499
  789. GOSUB 2000.10
  790. IF X=-1 THEN 2530
  791. IF X$="N" THEN F(6)=7 \
  792. ELSE F(6)=5
  793. IF X$="N" THEN 2830
  794. GOTO 2655
  795. 2560 GOSUB 9005 : PRINT : PRINT
  796. PRINT TAB(10);C9$;TAB(60);
  797. PRINT USING "#######";CLIENT.NO
  798. PRINT TAB(20);"SAMPLE";H$,"UNEMPLOYMENT CONTINUATION SHEET" : PRINT
  799. PRINT TAB(2);"SOC. SEC. NUMBER";TAB(22);"NAME";TAB(48);D$;
  800. PRINT TAB(64);E$
  801. PRINT LEFT$(L$,75);LEFT$(L$,5)
  802. PRINT : PRINT
  803. PRINT TAB(2);"XXX-XX-XXXX";TAB(22);"LAST NAME, FIRST NAME";TAB(48);F$;
  804. PRINT TAB(64F X=5 THEN F(7)=1
  805. PRINT
  806. 2710 PRINT " (B): ";
  807. PRINT "FIELD #2 SHOULD BE:" : PRINT "(1:TAXABLE WAGES 2:EXCESS WAGES ";
  808. PRINT "3:GROSS WAGES 4:UNUSED 5:FICA WAGES) >";
  809. FLD.LEN%= -1 : GOSUB 9998 : PRINT : X = VAL(REPLY$)
  810. IF X=1 OR X=2 OR X=3 OR X=4 OR X=5 THEN 2740
  811. GOSUB 2010
  812. GOTO 2710
  813. 2740 IF X=1 THEN F(8)=5
  814. IF X=2 THEN F(8)=7
  815. IF X=3 THEN F(8)=3
  816. IF X=4 THEN F(8)=9
  817. IF X=5 THEN F(8)=1
  818. IF F(7)=5 THEN D$="TAXABLE WAGES"
  819. IF F(7)=7 THEN D$="EXCESS WAGES"
  820. IF F(7)=9 THEN D$=" "
  821. IF F(7)=9 THEN F$=" "
  822. IF F(7)=3 THEN D$="GROSS WAGES"
  823. IF F(7)=1 THEN D$="FICA WAGES"
  824. IF F(8)=5 THEN E$="TAXABLE WAGES"
  825. IF F(8)=7 THEN E$="EXCESS WAGES"
  826. IF F(8)=9 THEN E$=" "
  827. IF F(8)=9 THEN G$=" "
  828. IF F(8)=3 THEN E$="GROSS WAGES"
  829. IF F(8)=1 THEN E$="FICA WAGES"
  830. GOSUB 2560
  831. 2750 PRINT "IS THIS CORRECT :";
  832. FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
  833. GOSUB 2000.10
  834. IF X=-1 THEN 2750
  835. IF X$="N" THEN 2655
  836. 2760 PRINT "DO YOU WANT A SEPA E$="TOTAL TIPS"
  837. IF X=1 THEN F(9)=5 ELSE F(9)=7
  838. GOSUB 2560
  839. 2808 PRINT "IS THIS CORRECT :";
  840. FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
  841. GOSUB 2000.10
  842. IF X=-1 THEN 2808
  843. IF X$="N" THEN 2775
  844. GOTO 2830
  845. 2820 F(9)=9
  846. 2830 GOSUB 5000 : REM READ CLNRNM.FIL
  847. TIPS.F.U.I = F(0)
  848. MEALS.LDG.TO.ST.UNEMP = F(1)
  849. TIPS.TO.ST.UNEMP = F(2)
  850. ST.DIS.FLG = F(3)
  851. MEALS.LDG.TO.SDI = F(4)
  852. TIPS.TO.SDI = F(5)
  853. ST.UNEMP.CONT.FLG = F(6)
  854. FORMAT.1 = F(7)
  855. FORMAT.2 = F(8)
  856. TIP.EMP.RATE,\
  857. FED.UNEMP.RATE,\
  858. ST.DIS.RATE,\
  859. LOCAL.DESC$,\
  860. TYPE.OF.RUN,\
  861. TIPS.F.U.I,\
  862. MEALS.LDG.TO.ST.UNEMP,\
  863. TIPS.TO.ST.UNEMP,\
  864. ST.DIS.FLG,\
  865. MEALS.LDG.TO.SDI,\
  866. TIPS.TO.SDI,\
  867. ST.UNEMP.CONT.FLG,\
  868. FORMAT.1,\
  869. FORMAT.2,\
  870. TIP.CONT.SHEET,\
  871. RESERVED,\
  872. SERIAL.NUMBER
  873. RETURN
  874. 5010 REM ************************** ROUTINE TO WRITE CLNRNM.FIL
  875. PRINT #CLNRNM.FIL,1; \
  876. CLIENT.NO,\
  877. CLIENT.NAME$,\
  878. GL.END.DATE$,\
  879. PAY.END.DATE$,\
  880. FISCAL.END.MO,\
  881. A9.III,\AME$,\
  882. STR.ADDR$,\
  883. CITY.ST.ZIP$,\
  884. SSN$,\
  885. REG.WAGES ,\
  886. OVERTIME.WAGES ,\
  887. MEALS.AND.LODGING ,\
  888. TIPS ,\
  889. FICA ,\
  890. FED.INC.TAX ,\
  891. STATE.INC.TAX ,\
  892. ST.DIS.INS ,\
  893. LOCAL.DED.1,\
  894. LOCAL.DED.2, \
  895. LOCAL.WITH.1,\
  896. LOCAL.WITH.2,\
  897. OTHER.DED,\
  898. NET.WAGES,\
  899. REG.WAGES.QTR,\
  900. OVERTIME.QTR,\
  901. MEALS.LDG.QTR,\
  902. TIPS.QTR,\
  903. FICA.QTR,\
  904. FED.INC.TAX.QTR,\
  905. ST.INC.TAX.QTR,\
  906. ST.DIS.INS.QTR,\
  907. LOCAL.DED.1.QTR,\
  908. LOCAL.DED.2.QTR,\
  909. LOCAL.WITH.1.QTR, TIPS ,\
  910. FICA ,\
  911. FED.INC.TAX ,\
  912. STATE.INC.TAX ,\
  913. ST.DIS.INS ,\
  914. LOCAL.DED.1,\
  915. LOCAL.DED.2, \
  916. LOCAL.WITH.1,\
  917. LOCAL.WITH.2,\
  918. OTHER.DED,\
  919. NET.WAGES,\
  920. REG.WAGES.QTR,\
  921. OVERTIME.QTR,\
  922. MEALS.LDG.QTR,\
  923. TIPS.QTR,\
  924. FICA.QTR,\
  925. FED.INC.TAX.QTR,\
  926. ST.INC.TAX.QTR,\
  927. ST.DIS.INS.QTR,\
  928. LOCAL.DED.1.QTR,\
  929. LOCAL.DED.2.QTR,\
  930. LOCAL.WITH.1.QTR,\
  931. LOCAL.WITH.2.QTR,\
  932. OTHER.DED.QTR,\
  933. NET.WAGES.QTR,\
  934. REG.WAGES.YR,\
  935. OVERTIME.YR,\
  936. MEALS.LDG.YR,\
  937. RATE CONTINUATION SHEET FOR TIPS :";
  938. FLD.LEN% = 1 : GOSUB 9998 : PRINT : X$ = UCASE$(LEFT$(REPLY$,1))
  939. GOSUB 2000.10
  940. IF X=-1 THEN 2760
  941. IF X$="N" THEN 2820
  942. 2775 D$=" " : E$="*********" : H$=" TIP " : F$=" " : G$="FIELD #1"
  943. GOSUB 2560
  944. 2790 PRINT "SHOULD TIPS ON CONT. SHEET BE (1:TAXABLE TIPS 2:TOTAL TIPS) >";
  945. FLD.LEN% = -1 : GOSUB 9998 : PRINT : X = VAL(LEFT$(REPLY$,1))
  946. IF X=1 OR X=2 THEN 2802
  947. GOSUB 2010
  948. GOTO 2790
  949. 2802 D$=" " : E$="TAXABLE TIPS" : F$=" "
  950. IF X=2 THENCONT.SHEET = F(9)
  951. GOSUB 5010 : REM WRITE CLNRNM.FIL
  952. RETURN
  953. 9193 REM ************************** ERRORED OUT SO BACK TO PMENU
  954. CLOSE 2,3
  955. 9194 CHAIN PGM$(2)+":PMENU"
  956. 5000 REM ************************** ROUTINE TO READ CLNRNM.FIL
  957. READ #CLNRNM.FIL,1; \
  958. CLIENT.NO,\
  959. CLIENT.NAME$,\
  960. GL.END.DATE$,\
  961. PAY.END.DATE$,\
  962. FISCAL.END.MO,\
  963. A9.III,\
  964. PERIOD.TO.ADJ,\
  965. RUN.NUMBER,\
  966. MAX.FICA.WAGES,\
  967. MAX.ST.UNEMP,\
  968. MAX.FED.UNEMP,\
  969. MAX.ST.DIS.WAGES,\
  970. EMP.FICA.RATE,\
  971. ST.UN
  972. PERIOD.TO.ADJ,\
  973. RUN.NUMBER,\
  974. MAX.FICA.WAGES,\
  975. MAX.ST.UNEMP,\
  976. MAX.FED.UNEMP,\
  977. MAX.ST.DIS.WAGES,\
  978. EMP.FICA.RATE,\
  979. ST.UNEMP.RATE,\
  980. FED.UNEMP.RATE,\
  981. ST.DIS.RATE,\
  982. LOCAL.DESC$,\
  983. TYPE.OF.RUN,\
  984. TIPS.F.U.I,\
  985. MEALS.LDG.TO.ST.UNEMP,\
  986. TIPS.TO.ST.UNEMP,\
  987. ST.DIS.FLG,\
  988. MEALS.LDG.TO.SDI,\
  989. TIPS.TO.SDI,\
  990. ST.UNEMP.CONT.FLG,\
  991. FORMAT.1,\
  992. FORMAT.2,\
  993. TIP.CONT.SHEET,\
  994. RESERVED,\
  995. SERIAL.NUMBER
  996. RETURN
  997. 10000 READ #EARNREC.FIL,X+1; \
  998. EMP.NO,\
  999. EMP.N\
  1000. LOCAL.WITH.2.QTR,\
  1001. OTHER.DED.QTR,\
  1002. NET.WAGES.QTR,\
  1003. REG.WAGES.YR,\
  1004. OVERTIME.YR,\
  1005. MEALS.LDG.YR,\
  1006. TIPS.YR,\
  1007. FICA.YR,\
  1008. FED.INC.TAX.YR,\
  1009. ST.INC.TAX.YR,\
  1010. ST.DIS.INS.YR,\
  1011. LOCAL.DED.1.YR,\
  1012. LOCAL.DED.2.YR,\
  1013. LOCAL.WITH.1.YR,\
  1014. LOCAL.WITH.2.YR,\
  1015. OTHER.DED.YR,\
  1016. NET.WAGES.YR,\
  1017. L1.XE
  1018. RETURN
  1019. 10010 PRINT #EARNREC.FIL,X+1; \
  1020. EMP.NO,\
  1021. EMP.NAME$,\
  1022. STR.ADDR$,\
  1023. CITY.ST.ZIP$,\
  1024. SSN$,\
  1025. REG.WAGES ,\
  1026. OVERTIME.WAGES ,\
  1027. MEALS.AND.LODGING ,\
  1028. TIPS.YR,\
  1029. FICA.YR,\
  1030. FED.INC.TAX.YR,\
  1031. ST.INC.TAX.YR,\
  1032. ST.DIS.INS.YR,\
  1033. LOCAL.DED.1.YR,\
  1034. LOCAL.DED.2.YR,\
  1035. LOCAL.WITH.1.YR,\
  1036. LOCAL.WITH.2.YR,\
  1037. OTHER.DED.YR,\
  1038. NET.WAGES.YR,\
  1039. 0
  1040. RETURN
  1041. %INCLUDE NFLANKS.BAS
  1042. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  1043. REM
  1044. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  1045. REM
  1046. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  1047. REM FLANKS TO NFLANKS
  1048. REM
  1049. REM 020883 DCF - CHANGED PROMPT FROM INSERT CPA PROGRAM TO INSERT PROGRAM
  1050. REM WITH UTILITIES MENU
  1051. REM
  1052. REM 020883 DCF - CHANGED ALL PRINT CLR$ TO GOSUB 9005 AND 3.6 TO VERSION$
  1053. REM
  1054. REM 092382 DCF - FUDGED BACK WITH @ ,ENTERED PROMPT FOR WHERE Y-T-D FILES Aro Systems, Inc. "
  1055. PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
  1056. PRINT
  1057. PRINT TAB(29);"MENU OPTION #4"
  1058. PRINT TAB(11);"TRANSFER CURRENT TRANSACTIONS TO YEAR-TO-DATE FILE" : PRINT
  1059. PRINT TAB(5);"Press RETURN Key to Continue or 'M' to Return to Utilities Menu";
  1060. FLD.LEN%=1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$,1))
  1061. IF M$="M" THEN 5230
  1062. GOSUB 9005
  1063. 1400 PRINT " This program can copy the current transactions from a current"
  1064. PRINT " cLEFT$(REPLY$,1))
  1065. IF X$="M" THEN 5230
  1066. 3200 GOSUB 9005
  1067. PRINT "ENTER THE YEAR-TO-DATE CLIENT ID >";:FLD.LEN%=5 : GOSUB 9998 : PRINT : NID$=LEFT$(REPLY$,5)
  1068. NID$=LEFT$(NID$ + "@@@@@",5)
  1069. PRINT "ENTER THE YEAR-TO-DATE CLIENT NUMBER >";:FLD.LEN%=-6 : GOSUB 9998 : PRINT : X1=VAL(REPLY$)
  1070. OPEN FIL$(2) +":"+ CLIENT$ + "CLN.FIL" RECL 255 AS 1 :CLNRNM.FIL=1
  1071. GOSUB 5000
  1072. REM READ SECOND RECORD
  1073. READ #CLNRNM.FIL,2;\
  1074. NEW.QTR.FLG,\
  1075. PRT.ERR)
  1076. CLOSE 1
  1077. GOSUB 9005
  1078. GOTO 3200
  1079. 3201 CLOSE 1
  1080. INITIALIZE
  1081. PRINT
  1082. PRINT "NORMALLY THE PROCEDURE IS TO REMOVE THE PROGRAM DISK FROM DRIVE ";PGM$(4)
  1083. PRINT "AND REPLACE IT WITH THE YEAR-TO-DATE CLIENT DISK."
  1084. PRINT "IF THE DISK IS NOT IN THE DRIVE - PLEASE INSERT THE DISK AT THIS TIME!"
  1085. PRINT "THEN ENTER THE DRIVE WHERE THE YEAR-TO-DATE FILES ARE > ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : DESTINATION$=LEFT$(REPLY$,1)
  1086. INITIALIZE
  1087. 3500 IF END # TRANSACTIONS
  1088. 4700 YTD.PTR=1
  1089. IF END #4 THEN 5002
  1090. 4705 READ #4,YTD.PTR;\
  1091. TRAN.ACT.NO.YTD,\
  1092. TRAN.AMT.YTD,\
  1093. TRANS.DT.REF.DESCRIP.YTD$
  1094. YTD.PTR=YTD.PTR+1
  1095. IF TRAN.ACT.NO.YTD = 9999999.99 THEN 5001
  1096. GOTO 4705
  1097. 5001 YTD.PTR=YTD.PTR-1
  1098. 5002 IF TRAN.ACT.NO = 9999999.99 THEN 5200
  1099. READ #TRINFO.FIL;\
  1100. TRAN.ACT.NO,\
  1101. TRAN.AMT,\
  1102. TRANS.DT.REF.DESCRIP$
  1103. TRAN.ACT.NO.YTD=TRAN.ACT.NO
  1104. RE
  1105. REM
  1106. REM 091882 DCF - REMOVED YTD FILES, CREATE A NEW CLIENT ID TO IDENTIFY YTD FILES
  1107. REM
  1108. REM 091582 DCF - TOOK OUT PROMPTS WHICH DID NOT APPLY
  1109. REM REPLACED DISK #'S WITH FIL$(1)
  1110. REM
  1111. REM *** TRANSFERS CURRENT TRANSACTIONS TO A YTD FILE (YTDTRANS)
  1112. REM *** COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS INC.
  1113. REM *** 648 SOUTH RIVER DRIVE 602-968-7101
  1114. REM *** TEMPE, AZ 85281
  1115. %INCLUDE COMMON.BAS
  1116. 500 GOSUB 9005
  1117. PRINT
  1118. PRINT TAB(23);"Dimis Miclient data file to a special year-to-date client data file."
  1119. PRINT " This year-to-date client data file can then be used to produce"
  1120. PRINT " a year-to-date general ledger and print year-to-date transaction lists"
  1121. PRINT " by journal number and,/or be used by other utility disk operations, "
  1122. PRINT " such as display a year-to-date account status." : PRINT
  1123. 3170 PRINT" Press Any Key To Continue Or 'M' To Return To Utilities Menu ";:FLD.LEN%=0 : GOSUB 9998 : X$=UCASE$(.FLG,\
  1124. PRT.941.FLG
  1125. REM READ THIRD RECORD
  1126. READ #CLNRNM.FIL,3;\
  1127. CLIENT.NAME$,\
  1128. CLIENT.ADDR.1$,\
  1129. CLIENT.ADDR.2$,\
  1130. CLIENT.CITY.STATE$,\
  1131. CLIENT.ZIP$
  1132. REM READ FOURTH RECORD
  1133. READ #CLNRNM.FIL,4;\
  1134. CLIENT.TAX.NUMBER$
  1135. IF X1=CLIENT.NO THEN 3201
  1136. PRINT "THE INCORRECT CLIENT YEAR-TO-DATE NUMBER WAS ENTER - PRESS RETURN " ;:FLD.LEN%=1 : GOSUB 9998 : PRINT : RE$=LEFT$(REPLY$,14 THEN 4420
  1137. OPEN DESTINATION$ + ":" + NID$ + "TRI.FIL" RECL 68 AS 4 : TRINFO.YTD=4
  1138. 4415 OPEN FIL$(5) +":"+ CLIENT$ + "TRI.FIL" RECL 68 AS 3 : TRINFO.FIL=3
  1139. GOTO 4430
  1140. 4420 PRINT " INSERT THE YEAR-TO-DATE CLIENT DISK IN DRIVE ";DESTINATION$
  1141. PRINT " THEN PRESS RETURN ";:FLD.LEN%=1 : GOSUB 9998 : R$=LEFT$(REPLY$,1)
  1142. GOTO 3201
  1143. 4430 GOSUB 9005
  1144. X%=32 : Y%=32 : GOSUB 9006
  1145. PRINT " WORKING . . . "
  1146. 4510 REM READING CURRENT YEAR-TO-DATE TRAN.AMT.YTD=TRAN.AMT
  1147. TRANS.DT.REF.DESCRIP.YTD$=TRANS.DT.REF.DESCRIP$
  1148. GOSUB 5120
  1149. GOTO 5002
  1150. 5120 PRINT #4,YTD.PTR;\
  1151. TRAN.ACT.NO.YTD,\
  1152. TRAN.AMT.YTD,\
  1153. TRANS.DT.REF.DESCRIP.YTD$
  1154. YTD.PTR = YTD.PTR + 1
  1155. RETURN
  1156. 5200 CLOSE TRINFO.FIL
  1157. CLOSE 4
  1158. 5205 GOSUB 9005 : PRINT : PRINT : PRINT : INITIALIZE
  1159. PRINT " THE TRANSACTIONS ARE ALL TRANSFERRED"
  1160. 5210 PRINT " REMOVE THE YEAR-TO-DATE DISK FROM DRIVE "; DESTINATION$
  1161. PRINT " AND INSERT THE PROGRAM DISK WITH UTILITES MENU IN DRIVE "; PGM$(4)
  1162. PRINT " THEN PRESS RETURN ";:FLD.LEN%=2 : GOSUB 9998 : X=VAL(REPLY$)
  1163. 5230 INITIALIZE
  1164. CONSOLE
  1165. CHAIN PGM$(4) + ":" + "UMENU"
  1166. %INCLUDE NFLANKS.BAS
  1167. %INCLUDE 5000
  1168. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞REM 101983 - (RCB) FIXED TO WORK ON 80 COLLUME PRINTER - CB0003JNY
  1169. REM
  1170. REM 071783 - DCF TOOK LINE NUMBERS OFF REM STATEMENTS FOR CB80 COMPILE
  1171. REM
  1172. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  1173. REM
  1174. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  1175. REM
  1176. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  1177. REM FLANKS TO NFLANKS
  1178. REM
  1179. REM *** CONTRACT PAYABLE SCHEDULE (CONTPAY)
  1180. REM *** COPYRIGHT 1982 BY - Dimis Micro Systems, Inc.
  1181. REM ***40 PRINT " THE RULE OF 78'S FOR INTEREST" : PRINT
  1182. 150 PRINT"ENTER THE PAYEE (40X) : ";: FLD.LEN%=40 : GOSUB 9998 : PRINT : B$=LEFT$(REPLY$,40)
  1183. 160 PRINT"ENTER THE PAYOR (40X) : ";: FLD.LEN%=40 : GOSUB 9998 : PRINT : Q$=LEFT$(REPLY$,40)
  1184. 170 PRINT"ENTER THE TOTAL NUMBER OF PAYMENTS > ";: FLD.LEN%=-8 : GOSUB 9998 : PRINT : N=VAL(REPLY$)
  1185. 175 IF N>=1 AND N-INT(N)=0 THEN 180
  1186. 176 GOSUB 1900 : GOTO 170
  1187. 180 PRINT "ENTER: 1 For Annual Payments"
  1188. 181 PRINT " 2 For Semiannual Payments"
  1189. 182 PRINT " SE$(LEFT$(REPLY$,1))
  1190. 220 IF R$="Y" THEN 240
  1191. IF R$="N" THEN 350
  1192. 230 GOSUB 1900 : GOTO 210
  1193. 240 PRINT"ENTER MONTH NUMBER (1-12) TO PRINT TOTALS AFTER > ";:FLD.LEN%=-2 : GOSUB 9998 : PRINT :X1=VAL(REPLY$)
  1194. 250 IF X1<=12 AND X1>=1 AND X1-INT(X1)=0 THEN 350
  1195. 255 GOSUB 1900 : GOTO 240
  1196. 350 PRINT "DO NOT ENTER DECIMAL POINT BETWEEN DOLLARS & CENTS!"
  1197. 360 INPUT "ENTER THE PRINCIPAL AMOUNT > ";X$
  1198. BE%=0 : GOSUB 3000 : IF BE%=1 THEN 350
  1199. PRINT : T=VAL(X$)
  1200. 365 IF T-INT(T)=0 AND T>0 AND T<10000000INT USING "$$###,###,###.##";T/100
  1201. 440 PRINT "TOTAL INTEREST CHARGES";TAB(25);
  1202. PRINT USING "#####.##";I/100
  1203. 450 PRINT "PAYMENT AMOUNT";TAB(25);
  1204. PRINT USING "$$###,###,###.##";A/100
  1205. 455 PRINT "PAYMENTS PER YEAR";TAB(25);
  1206. PRINT USING "#####";F
  1207. 457 PRINT "SUBTOTALS AFTER MONTH #";
  1208. PRINT TAB(25);
  1209. PRINT USING "#####";X1
  1210. 460 PRINT "NUMBER OF PAYMENTS";
  1211. PRINT TAB(25);
  1212. PRINT USING "#####";N : P=P+11
  1213. 470 PRINT : PRINT
  1214. 480 PRINT "PAYMENT DUE DATE";TAB(32);"TOTAL";
  1215. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞
  1216. %INCLUDE COMMON.BAS
  1217. 70 GOSUB 9005
  1218. PRINT
  1219. 72 PRINT TAB(23);"Dimis Micro Systems, Inc. "
  1220. PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
  1221. PRINT
  1222. 75 PRINT TAB(29);"MENU OPTION #1"
  1223. 80 PRINT TAB(23);"CONTRACT PAYABLE SCHEDULES" : PRINT
  1224. 100 PRINT TAB(5);"Press RETURN Key to Continue or 'M' to Return to Utilities Menu";
  1225. FLD.LEN%=1 : GOSUB 9998 : X$=UCASE$(LEFT$(REPLY$,1))
  1226. IF X$="M" THEN 890
  1227. GOSUB 9005
  1228. 130 PRINT "THIS PROGRAM CAN PRINT A PAYMENT SCHEDULE USING"
  1229. 1 4 For Quarterly Payments"
  1230. 183 PRINT" 12 For Monthly Payments > ";: FLD.LEN%=-2 : GOSUB 9998 : PRINT : F=VAL(REPLY$)
  1231. 190 IF F=1 OR F=2 OR F=4 OR F=12 THEN 200
  1232. 191 GOSUB 1900 : GOTO 180
  1233. 200 PRINT"ENTER THE DUE DATE OF THE FIRST PAYMENT MMDDYEAR > ";:FLD.LEN%=-8 : GOSUB 9998 : PRINT :M=VAL(LEFT$(REPLY$,2)):
  1234. D=VAL(MID$(REPLY$,3,2)) : Y=VAL(MID$(REPLY$,5,4))
  1235. 205 GOSUB 2000.1
  1236. IF E=1 THEN 200
  1237. 210 PRINT"DO YOU WANT ANNUAL SUBTOTALS (Y OR N) : ";: FLD.LEN%=1 :GOSUB 9998 : PRINT :R$=UCA000 THEN 370
  1238. 366 GOSUB 1900 : GOTO 360
  1239. X$=""
  1240. 370 INPUT "ENTER THE PAYMENT AMOUNT > ";X$
  1241. BE%=0 : GOSUB 3000
  1242. IF BE%=1 THEN PRINT "DO NOT ENTER DECIMAL POINTS BETWEEN DOLLARS $ CENTS" : GOTO 370
  1243. PRINT : A=VAL(X$)
  1244. 375 IF A-INT(A)=0 AND A>0 AND A<10000000000 THEN 390
  1245. 376 GOSUB 1900 : GOTO 370
  1246. 390 I=(N*A)-T : GOTO 560
  1247. 400 LPRINTER
  1248. 401 PRINT "CONTRACT PAYABLE SCHEDULE" : PRINT
  1249. 410 PRINT "PAYEE:";
  1250. PRINT TAB(28);B$
  1251. 420 PRINT "PAYOR:";TAB(28);Q$
  1252. 430 PRINT "BEGINNING BALANCE";TAB(25);
  1253. PR PRINT TAB(43);"INTEREST";
  1254. 490 PRINT TAB(56);"PRINCIPAL";
  1255. PRINT TAB(72);"BALANCE"
  1256. 500 PRINT "NUMBER DATE PAID";
  1257. PRINT TAB(30);
  1258. PRINT "PAYMENT";
  1259. PRINT TAB(44);"PAYMENT";
  1260. 510 PRINT TAB(58);"PAYMENT";
  1261. PRINT TAB(76);"DUE"
  1262. 520 PRINT "--------------------------------------------";
  1263. 530 PRINT "----------------------------------"
  1264. 540 PRINT "BEGINNING BALANCE";
  1265. PRINT TAB(63);
  1266. PRINT USING "$$###,###,###.##";T/100 : P=P+6 : RETURN
  1267. 560 GOSUB 400
  1268. 570 Z1=N*(N+1)/2
  1269. 590 F=12/F : X1=Y+.01*X1
  1270. IF Y+.01*M>X1 THEN X1=X1+1
  1271. 620 FOR K=1 TO N
  1272. 630 IF K=N THEN I3=A-T ELSE I3=INT(((N-K+1)/Z1)*I+.5)
  1273. 695 P1=A-I3 : T=T-P1
  1274. 700 PRINT "#";
  1275. PRINT USING "###";K;
  1276. PRINT " ";
  1277. PRINT USING "##";M;
  1278. PRINT "/";
  1279. 710 IF M=4 OR M=6 OR M=9 OR M=11 THEN GOTO 715 ELSE GOTO 730
  1280. 715 IF D<=30 THEN 730
  1281. 720 PRINT USING "##";30; : GOTO 770
  1282. 730 IF M<>2 THEN 760
  1283. 740 IF((Y-1904)/4)-(INT((Y-1904)/4))=0 THEN GOTO 745 ELSE GOTO 755
  1284. 745 IF D>28 THEN PRINT USING "##";29; ELSE GOTO 760
  1285. 7E.M=M : XE.F=F : XE.Y=Y
  1286. XE.M=XE.M+XE.F
  1287. IF XE.M<=12 THEN 813
  1288. XE.M=XE.M-12 : XE.Y=XE.Y+1
  1289. 813 Z5=XE.Y+.01*XE.M
  1290. 814 IF Z5<=X1 THEN 820
  1291. 815 PRINT TAB(25);"------------ ------------ ------------"
  1292. 817 PRINT"ANNUAL SUBTOTALS";TAB(23);
  1293. PRINT USING "###,###,###.##";Q3/100;
  1294. PRINT USING "###,###,###.##";Q1/100;
  1295. PRINT USING "###,###,###.##";Q2/100
  1296. 818 Q1=0 : Q2=0 : Q3=0 : PRINT : P=P+3 : X1=X1+1
  1297. 820 IF P<60 THEN 840
  1298. 830 P=0 : PRINT CHR$(12); : GOSUB 470
  1299. 840 M=M+F
  1300. IF M<=12 T : RETURN
  1301. 2000.1 E=0
  1302. 2005 IF M-INT(M)<>0 OR M<1 OR M>12 THEN 2400
  1303. IF D-INT(D)<>0 OR D<1 OR D>31 THEN 2400
  1304. IF Y-INT(Y)<>0 THEN 2400
  1305. IF Y<1901 OR Y>2099 THEN 2400
  1306. IF (Y-1904)/4-INT((Y-1904)/4)=0 THEN 2020
  1307. IF M=2 AND D>28 THEN GOTO 2400 ELSE GOTO 2030
  1308. 2020 IF M=2 AND D>29 THEN 2400
  1309. 2030 IF M<>4 AND M<>6 AND M<>9 AND M<>11 THEN 2420
  1310. 2040 IF D<=30 THEN 2420
  1311. 2400 PRINT "INVALID DATE - TRY AGAIN!"
  1312. 2410 E=1
  1313. 2420 RETURN
  1314. REM*** DECIMAL ENTRY TRAP added 2/6/84 JB ***
  1315. 3000 FOR IREM 101983 - (RCB) CHANGED CONTINOUS TO CONTINUOUS - CB0001JNY
  1316. REM
  1317. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  1318. REM
  1319. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  1320. REM
  1321. REM 042183 - DCF CHANGED FLD.LEN%=1 FOR M TO RETURN TO MENU
  1322. REM
  1323. REM 042183 - DCF FIXED BUG #37-041983-3-CJM BY TAKING OFF THE +1 IN THE
  1324. REM FOR NEXT LOOP FOR PRINTING OF THE LABELS
  1325. REM
  1326. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  1327. REM FLANKS TO NFLANKS
  1328. REM
  1329. RE6"
  1330. PRINT TAB(26);"PRINTS ADDRESS LABELS"
  1331. PRINT
  1332. 120 PRINT TAB(5);"Press RETURN Key to Continue or 'M' to Return to Utilities Menu";
  1333. FLD.LEN%=1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$,1))
  1334. IF M$="M" THEN 850
  1335. GOSUB 9005
  1336. PRINT
  1337. PRINT "THIS PROGRAM REQUIRES THE USE OF CONTINUOUS FORM ADDRESS LABELS"
  1338. 150 PRINT"ENTER THE NUMBER OF LABELS ACROSS A SHEET >";
  1339. FLD.LEN%= -1 : GOSUB 9998 : PRINT : P1=VAL(REPLY$)
  1340. IF P1-INT(P1)=0 AND P1>0 AND P1<8 THEN 180
  1341. GOSUB 860
  1342. GOTO 150
  1343. 50 GOTO 770
  1344. 755 IF D>27 THEN PRINT USING "##";28; ELSE GOTO 760
  1345. 757 GOTO 770
  1346. 760 PRINT USING "##";D;
  1347. 770 PRINT "/";
  1348. PRINT USING "####";Y;
  1349. PRINT " -------";
  1350. 780 PRINT TAB(24);
  1351. PRINT USING "##,###,###.##";A/100;
  1352. PRINT USING "###,###,###.##";I3/100;
  1353. PRINT USING "###,###,###.##";P1/100;
  1354. PRINT USING "###,###,###.##";T/100 : P=P+1
  1355. 800 I4=I4+I3 : P2=P2+P1 : A2=A2+A
  1356. 810 Q1=Q1+I3 : Q2=Q2+P1 : Q3=Q3+A
  1357. 811 IF X$="N" THEN 820
  1358. IF F=12 THEN 820
  1359. 812 IF K=N THEN 815
  1360. XTHEN 845
  1361. 841 M=M-12 : Y=Y+1
  1362. 845 NEXT K
  1363. 850 PRINT "=============================================";
  1364. 860 PRINT "================================="
  1365. 870 PRINT "TOTALS";TAB(23);
  1366. PRINT USING "###,###,###.##";A2/100;
  1367. PRINT USING "###,###,###.##";I4/100;
  1368. PRINT USING "###,###,###.##";P2/100
  1369. 880 PRINT CHR$(12);
  1370. CONSOLE
  1371. 890 CHAIN PGM$(4) + ":" + "UMENU"
  1372. 1900 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!" : RETURN
  1373. 1910 PRINT"PLEASE CORRECT - THEN PRESS RETURN!";: FLD.LEN%=2 : GOSUB 9998 : PRIN = 1 TO LEN(X$)
  1374. IF MID$(X$,I,1) = "." THEN PRINT CHR$(7) : BE%=1
  1375. NEXT I
  1376. RETURN
  1377. %INCLUDE NFLANKS.BAS
  1378. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞M *** ADDRESS LABELS PROGRAM (LABELS)
  1379. REM *** COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS INC.
  1380. REM *** 648 SOUTH RIVER DR. 602-968-7101
  1381. REM *** TEMPE, AZ. 85281
  1382. %INCLUDE COMMON.BAS
  1383. DIM LABEL$(20)
  1384. BLANK$=" "
  1385. GOSUB 9005
  1386. PRINT
  1387. PRINT TAB(23);"Dimis Micro Systems, Inc. "
  1388. PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
  1389. PRINT
  1390. PRINT TAB(29);"MENU OPTION #
  1391. 180 PRINT "ENTER THE NUMBER OF CHARACTERS IN ONE LINE OF A LABEL;"
  1392. PRINT" (10 CHARACTERS PER INCH) >";:FLD.LEN%=-3 : GOSUB 9998 : PRINT :P2=VAL(REPLY$)
  1393. IF P2-INT(P2)=0 AND P2>0 AND P2<133 THEN 220
  1394. GOSUB 860
  1395. GOTO 180
  1396. 220 PRINT"ENTER THE NUMBER OF LINES PER LABEL (6 LINES PER INCH) >";
  1397. FLD.LEN%=-2 : GOSUB 9998 : PRINT :P3=VAL(REPLY$)
  1398. IF P3-INT(P3)=0 AND P3>0 AND P3<66 THEN 240
  1399. 240 PRINT
  1400. PRINT "ENTER Y FOR YES OR N FOR NO:"
  1401. PRINT "YOU ARE SET UP FOR";P1;" LABELS ACROSS A PAGE;";P2;" CHARACTERS PER LINE,"
  1402. PRINT " AND";P3;" LINES PER LABEL."
  1403. PRINT"IS THIS CORRECT? :";
  1404. FLD.LEN%=1 : GOSUB 9998 : PRINT : X$=UCASE$(LEFT$(REPLY$,1))
  1405. IF X$="Y" THEN 300
  1406. IF X$="N" THEN 120
  1407. GOSUB 860
  1408. GOTO 240
  1409. 300 FOR X=1 TO P3
  1410. PRINT USING "ENTER LINE \### LABEL";X
  1411. 315 PRINT":";
  1412. FLD.LEN%=132 : GOSUB 9998 : M$=LEFT$(REPLY$+BLANK$,P2)
  1413. IF LEN(M$)<=P2 THEN 320
  1414. PRINT CHR$(7);"THE LAST LINE WAS";LEN(M$)-P2," CHARACTER TOO LONG - TRY AGAIN!"
  1415. GOTO 310 PRINT
  1416. PRINT"MAKE ALIGNMENT ADJUSTMENTS, THEN PRESS RETURN ";
  1417. FLD.LEN%=2:GOSUB 9998:PRINT
  1418. GOTO 360
  1419. 440 PRINT"ENTER THE NUMBER OF LABELS YOU WANT PRINTED >";
  1420. FLD.LEN%=-4 : GOSUB 9998 : PRINT : P4=VAL(REPLY$)
  1421. IF P4-INT(P4)=0 AND P4>0 AND P4<1000 THEN 470
  1422. GOSUB 860
  1423. GOTO 440
  1424. 470 LPRINTER
  1425. FOR Y=1 TO (P4/P1)
  1426. FOR X=1 TO P3
  1427. FOR X1=1 TO P1
  1428. PRINT LABEL$(X);
  1429. NEXT X1
  1430. PRINT
  1431. NEXT X
  1432. NEXT Y
  1433. 850 CONSOLE
  1434. CHAIN PGM$(4) + ":" + "UMENU"REM 071783 - DCF TOOK LINE NUMBERS OFF REM STATEMENTS
  1435. REM CHANGED PRINT ; TO PRINT; FOR CB80 COMPILE
  1436. REM
  1437. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  1438. REM
  1439. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  1440. REM
  1441. REM 041283 DCF CHANGED FLD.LEN= -2 TO FLD.LEN%=-2 IN LINE 354
  1442. REM
  1443. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  1444. REM FLANKS TO NFLANKS
  1445. REM
  1446. REM *** NOTE PAYABLE SCHEDULE (NOTEPAY)
  1447. REM *** COPYRIGHLY$,1))
  1448. IF M$="M" THEN 780
  1449. 106 PRINT "SET THE PRINTER AND PAPER" :
  1450. PRINT" THEN PRESS RETURN "; : FLD.LEN%=1 : GOSUB 9998 : PRINT
  1451. GOSUB 9005
  1452. 108 PRINT "THIS PROGRAM CAN CALCULATE PAYMENT AMOUNT AND PRINT A PAYMENT"
  1453. PRINT " SCHEDULE USING SIMPLE INTEREST" : PRINT
  1454. 110 PRINT"ENTER THE PAYEE (40X) > "; : FLD.LEN%=40 : GOSUB 9998 : PRINT
  1455. PAYEE.NAME$=LEFT$(REPLY$,40)
  1456. PRINT"ENTER THE PAYOR (40X) > "; : FLD.LEN%=40 : GOSUB 9998 : PRINT
  1457. PAYINT(NUM.PAY)=0 AND NUM.PAY>0 THEN 190
  1458. 182 GOSUB 1900 : GOTO 180
  1459. 190 PRINT "ENTER: 1 For Annual Payments"
  1460. PRINT " 2 For Semiannual Payments"
  1461. PRINT " 4 For Quarterly Payments"
  1462. PRINT" 12 For Monthly Payments > "; : FLD.LEN%=-3 : GOSUB 9998 : PRINT :
  1463. TYP.PAY=VAL(REPLY$)
  1464. 200 IF TYP.PAY=1 OR TYP.PAY=2 OR TYP.PAY=4 OR TYP.PAY=12 THEN 230
  1465. 205 GOSUB 1900 : GOTO 190
  1466. 230 PRINT"ENTER THE DUE DATE OF THE FIRST PAYMENT MMDDYEAR > "; : FLD.LEN%=-9 :
  1467. GOSU5
  1468. 320 LABEL$(X)=M$
  1469. PRINT
  1470. NEXT X
  1471. PRINT "PUT THE LABEL FORMS IN THE PRINTER AND SET THE PRINTER"
  1472. GOSUB 870
  1473. PRINT
  1474. 360 PRINT "NOW PRINTING A TEST ROW OF LABELS . . ."
  1475. LPRINTER
  1476. FOR X=1 TO P3
  1477. FOR X1=1 TO P1
  1478. PRINT LABEL$(X);
  1479. NEXT X1
  1480. PRINT
  1481. NEXT X
  1482. 400 CONSOLE
  1483. PRINT"ARE THE LABELS ALIGNED PROPERLY? :";
  1484. FLD.LEN%=1: GOSUB 9998 : PRINT : X$=UCASE$(LEFT$(REPLY$,1))
  1485. IF X$="Y" THEN 440
  1486. IF X$="N" THEN 420
  1487. GOSUB 860
  1488. GOTO 400
  1489. 42
  1490. 860 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
  1491. RETURN
  1492. 870 PRINT" THEN PRESS RETURN ";
  1493. FLD.LEN%=2 : GOSUB 9998 : PRINT
  1494. RETURN
  1495. %INCLUDE NFLANKS.BAS
  1496. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞T 1982 BY - Dimis Micro Systems, Inc.
  1497. REM ***
  1498. %INCLUDE COMMON.BAS
  1499. GOSUB 9005
  1500. PRINT
  1501. 50 PRINT TAB(23);"Dimis Micro Systems, Inc. "
  1502. PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
  1503. PRINT
  1504. PRINT TAB(29);"MENU OPTION #2"
  1505. PRINT TAB(25);"NOTE PAYABLE SCHEDULES" : PRINT TAB(29);"(Amortization)"
  1506. PRINT
  1507. PRINT TAB(5);
  1508. PRINT "Press RETURN Key to Continue or 'M' to Return to Utilities Menu";
  1509. FLD.LEN%=1 : GOSUB 9998 : PRINT : M$=UCASE$(LEFT$(REPOR.NAME$=LEFT$(REPLY$,40)
  1510. PRINT "Enter Y For YES Or N For NO:"
  1511. 140 PRINT"DO YOU KNOW THE NUMBER OF PAYMENTS? > "; : FLD.LEN%=1 : GOSUB 9998 : PRINT
  1512. Y$=UCASE$(LEFT$(REPLY$,1))
  1513. IF Y$="Y" THEN 180
  1514. IF Y$="N" THEN 173
  1515. GOSUB 1900 : GOTO 140
  1516. 173 PRINT "THE SCHEDULE WILL END WHEN THE PRINCIPAL IS REDUCED TO ZERO."
  1517. 175 NUM.PAY=1000000 : GOTO 190
  1518. 180 PRINT"ENTER THE NUMBER OF PAYMENTS > "; : FLD.LEN%=-8 : GOSUB 9998 : PRINT :
  1519. NUM.PAY=VAL(REPLY$)
  1520. 181 IF NUM.PAY-B 9998 : PRINT : MM=VAL(LEFT$(REPLY$,2)): DD=VAL(MID$(REPLY$,3,2)) : YY=VAL(MID$(REPLY$,5,4))
  1521. 260 GOSUB 2000.1
  1522. IF E=1 THEN 230
  1523. 290 PRINT "DO NOT ENTER DECIMAL POINT BETWEEN DOLLARS & CENTS! "
  1524. 300 INPUT "ENTER THE BEGINNING BALANCE OF THE NOTE > "; X$
  1525. BE%=0: GOSUB 3000 : IF BE%=1 THEN 290
  1526. PRINT : BEG.BAL=VAL(X$)
  1527. 303 IF BEG.BAL>0 AND BEG.BAL-INT(BEG.BAL)=0 AND BEG.BAL<10000000000 THEN 310
  1528. 305 GOSUB 1900 : GOTO 300
  1529. 310 PRINT"ENTER ANNUAL INTEREST RATE (IN %) > ";: FLD.LEN%=-8 : GOSUB 9998 : PRINT : INT.RT=VAL(REPLY$)
  1530. 320 PRINT"DO YOU KNOW THE PAYMENT AMOUNT? > ";: FLD.LEN%=1 : GOSUB 9998 : PRINT : Z$=UCASE$(LEFT$(REPLY$,1))
  1531. 330 IF Z$="Y" THEN 345
  1532. 335 IF Y$="Y" THEN 830
  1533. 336 PRINT CHR$(7);"I CANNOT CALCULATE THE PAYMENT IF THE"
  1534. 337 PRINT " NUMBER OF PAYMENTS IS NOT KNOWN!"
  1535. 338 GOTO 140
  1536. 345 INPUT "ENTER PAYMENT AMOUNT >";X$
  1537. BE%=0 : GOSUB 3000
  1538. IF BE%=1 THEN PRINT "DO NOT ENTER DECIMAL POINTS BETWEEN DOLLARS & CENTS" :GOTO 345
  1539. PRINT : PAYMENT.AMT=B 1900 : GOTO 354
  1540. 359 GOTO 540
  1541. 360 LPRINTER
  1542. 360.1 PRINT "NOTE PAYABLE SCHEDULE" : PRINT
  1543. PRINT "PAYEE:";TAB(25);PAYEE.NAME$
  1544. PRINT "PAYOR:";TAB(25);PAYOR.NAME$
  1545. PRINT "BEGINNING BALANCE";TAB(25);
  1546. PRINT USING "$$###,###,###.##";BEG.BAL/100
  1547. PRINT "ANNUAL INTEREST RATE";TAB(25);
  1548. PRINT USING "##.##";INT.RT;
  1549. PRINT "%"
  1550. PRINT "PAYMENT AMOUNT";TAB(25);
  1551. PRINT USING "$$###,###,###.##";PAYMENT.AMT/100
  1552. PRINT "PAYMENTS PER YEAR";TAB(2B(58);"PAYMENT";TAB(77);"DUE"
  1553. PRINT "----------------------------------------------------------";
  1554. PRINT "----------------------"
  1555. PRINT "BEGINNING BALANCE";TAB(65);
  1556. PRINT USING "$$###,###,###.##"; BEG.BAL/100 : I9=I9+6 : RETURN
  1557. 540 GOSUB 360 : F1=12/TYP.PAY : M9=YY+.01*M9
  1558. IF YY+.01*MM>M9 THEN M9=M9+1
  1559. 550 FOR K=1 TO NUM.PAY
  1560. I=INT(((INT.RT*.01)*BEG.BAL)/TYP.PAY+.5)
  1561. 565 IF BEG.BAL+I<PAYMENT.AMT THEN PAYMENT.AMT=BEG.BAL+I
  1562. IF K=NUM.PAY THEN PAYMENT.AMT=BEING"##";29;
  1563. 631 GOTO 645
  1564. 637 IF DD>27 THEN GOTO 638 ELSE GOTO 640
  1565. 638 PRINT USING "##";28;
  1566. 639 GOTO 645
  1567. 640 PRINT USING "##";DD;
  1568. 645 PRINT "/";
  1569. PRINT USING"####";YY;
  1570. PRINT " -------";
  1571. 650 PRINT USING "##,###,###.##";PAYMENT.AMT/100;
  1572. PRINT USING "###,###,###.##";I/100;
  1573. PRINT USING "###,###,###.##";P/100;
  1574. PRINT USING " ###,###,###.##";BEG.BAL/100 : I9=I9+1
  1575. 690 M1=M1+PAYMENT.AMT : T=T+P : Q=Q+I
  1576. 700 S9=S9+PAYMENT.AMT : S7=S7+P : S8=S8+18 S9=0 : S8=0 : S7=0 : PRINT : I9=I9+3 : M9=M9+1
  1577. 720 IF I9<60 THEN 725
  1578. 722 I9=0 : PRINT CHR$(12); : GOSUB 440
  1579. 725 MM=MM+F1
  1580. IF MM<=12 THEN 729
  1581. 726 MM=MM-12 :
  1582. YY=YY+1
  1583. 729 IF BEG.BAL=0 THEN 730
  1584. NEXT K
  1585. 730 PRINT "=======================================================";
  1586. 740 PRINT "========================="
  1587. 760 PRINT "TOTALS";
  1588. PRINT TAB(22);" ";
  1589. PRINT USING "###,###,###.##";M1/100;
  1590. PRINT USING "###,###,###.##";Q/100;
  1591. PRINT USING "###,###,###.#VAL(X$)
  1592. 346 IF PAYMENT.AMT>0 AND PAYMENT.AMT-INT(PAYMENT.AMT)=0 AND PAYMENT.AMT<10000000000 THEN 351
  1593. 347 GOSUB 1900 : GOTO 345
  1594. 351 PRINT"DO YOU WANT ANNUAL SUBTOTALS : ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : X1$=UCASE$(LEFT$(REPLY$,1))
  1595. 352 IF X1$="Y" THEN 354
  1596. IF X1$="N" THEN 359
  1597. 353 GOSUB 1900 : GOTO 351
  1598. 354 PRINT"ENTER MONTH NUMBER (1-12) TO PRINT TOTALS AFTER > "; : FLD.LEN%= -2 : GOSUB 9998 : PRINT : M9=VAL(REPLY$)
  1599. 355 IF M9>=1 AND M9<=12 AND M9-INT(M9)=0 THEN 359
  1600. 357 GOSU5);
  1601. PRINT USING "#####";TYP.PAY
  1602. PRINT "SUBTOTALS AFTER MONTH #";TAB(25);
  1603. PRINT USING "#####";M9
  1604. PRINT "NUMBER OF PAYMENTS";TAB(25);
  1605. IF NUM.PAY=1000000 THEN PRINT "UNKNOWN" ELSE PRINT
  1606. PRINT USING "#####";NUM.PAY : I9=I9+11
  1607. 440 PRINT : PRINT
  1608. PRINT "PAYMENT DUE DATE";TAB(32);"TOTAL";TAB(43);"INTEREST";
  1609. PRINT TAB(56);"PRINCIPAL";TAB(73);"BALANCE"
  1610. PRINT "NUMBER DATE PAID";TAB(30);"PAYMENT";TAB(44);"PAYMENT";
  1611. PRINT TAG.BAL+I
  1612. 570 P=PAYMENT.AMT-I
  1613. 580 BEG.BAL=BEG.BAL-P
  1614. 620 PRINT "#";
  1615. PRINT USING "###";K;
  1616. PRINT " ";
  1617. PRINT USING "##";MM;
  1618. PRINT "/";
  1619. 622 IF MM=4 THEN 623
  1620. IF MM=6 THEN 623
  1621. IF MM=9 THEN 623
  1622. IF MM=11 THEN GOTO 623 ELSE GOTO 626
  1623. 623 IF DD<=30 THEN 626
  1624. 624 PRINT USING "##";30; : GOTO 645
  1625. 626 IF MM<>2 THEN 640
  1626. 628 IF((YY-1904)/4)-(INT((YY-1904)/4))=0 THEN GOTO 629 ELSE GOTO 637
  1627. 629 IF DD>28 THEN GOTO 630 ELSE GOTO 640
  1628. 630 PRINT USI
  1629. 702 IF X1$="N" THEN 720
  1630. IF TYP.PAY=1 THEN 720
  1631. 704 IF BEG.BAL=0 THEN 715
  1632. 705 XE.MM=MM : XE.YY=YY : XE.MM=XE.MM+F1
  1633. 706 IF XE.MM<=12 THEN 708
  1634. 707 XE.MM=XE.MM-12 : XE.YY=XE.YY+1
  1635. 708 Z9=XE.YY+.01*XE.MM
  1636. 710 IF Z9<=M9 THEN 720
  1637. 715 PRINT TAB(25);"------------ ------------ ------------"
  1638. 717 PRINT "ANNUAL SUBTOTALS";
  1639. PRINT " ";
  1640. PRINT USING"###,###,###.##";S9/100;
  1641. PRINT USING"###,###,###.##";S8/100;
  1642. PRINT USING"###,###,###.##";S7/100
  1643. 7#";T/100
  1644. 770 PRINT CHR$(12);
  1645. CONSOLE
  1646. 780 CHAIN PGM$(4) + ":" + "UMENU"
  1647. 830 I1=.01*INT.RT/TYP.PAY
  1648. 840 V=(I1+1)
  1649. FOR A9 = 2 TO NUM.PAY
  1650. V = V * (I1+1)
  1651. NEXT A9
  1652. 850 M1=(I1*V*BEG.BAL)
  1653. 860 M2=V-1
  1654. 870 PAYMENT.AMT=INT(M1/M2+.5)
  1655. 880 PRINT
  1656. 885 CONSOLE
  1657. 890 PRINT TAB(10);"THE PAYMENT AMOUNT IS ";
  1658. PRINT USING"###,###,###.##";PAYMENT.AMT/100
  1659. 900 M1=0 : M2=0
  1660. 910 GOTO 351
  1661. 1893 PRINT" PRESS RETURN TO GO TO UTILITIES MENU ";:FLD.LEN%=1 : GOSUB 9998 : PRINT
  1662. 1895 GOTO 780
  1663. 1900 PRINT "INVALID INPUT - TRY AGAIN!" : RETURN
  1664. 1910 PRINT"PLEASE CORRECT - THEN PRESS RETURN!";: FLD.LEN%=1 : GOSUB 9998 : PRINT : RETURN
  1665. 1925 REM THIS ROUTINE CHECKS THE DATE ENTERED
  1666. 2000.1 E=0
  1667. 2005 IF MM-INT(MM)<>0 OR MM<1 OR MM>12 THEN 2400
  1668. IF DD-INT(DD)<>0 OR DD<1 OR DD>31 THEN 2400
  1669. IF YY-INT(YY)<>0 THEN 2400
  1670. IF YY<1901 OR YY>2099 THEN 2400
  1671. IF (YY-1904)/4-INT((YY-1904)/4)=0 THEN 2020
  1672. IF MM=2 AND DD>28 THEN GOTO 2400 ELSE GOTO 2030
  1673. 2020 IF MM=2 AND DD>REM 072583 - DCF CHECK FOR NUM.BITS CHANGE .INT TO .OVL (8 BIT)
  1674. REM OR .OVR (16 BIT)
  1675. REM
  1676. REM 071783 - DCF TOOK LINE NUMBERS OFF REM STATEMENTS
  1677. REM CHANGED LINE #2100 TO 2100.1 FOR CB80 COMPILE
  1678. REM
  1679. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  1680. REM
  1681. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  1682. REM
  1683. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  1684. REM FLANKS TO NFLANKS
  1685. REM
  1686. REM DCF CHANGED LINE 450 NUMBER 99 Micro Systems, Inc. "
  1687. PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
  1688. PRINT
  1689. PRINT TAB(20);"** AUXILIARY MENU OPTION #2 **"
  1690. PRINT TAB(23);"EDITS CLIENT CONTROL FILE" : PRINT
  1691. PRINT TAB(5);"Press RETURN Key To Continue Or 'M' To Return To Auxiliary Menu";
  1692. FLD.LEN%=1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$,1))
  1693. IF M$="M" THEN 1310
  1694. GOTO 115
  1695. 110 INITIALIZE
  1696. PRINT TAB(4);"Insert The Auxiliary Data Disk in Drive "; FIL$(10)
  1697. PRINT" Then Press RETURN ";:FIENT.NO
  1698. 190 PRINT "CLIENT NAME" ;
  1699. PRINT TAB(32);CLIENT.NAM$
  1700. 205 FOR X1=0 TO 12
  1701. PRINT "PERIOD #";
  1702. PRINT USING "##";X1;
  1703. PRINT " ENDING DATE";
  1704. PRINT TAB(32);
  1705. 215 PRINT USING "&&";MID$(PER.END.DT$,X1*6+1,2);
  1706. PRINT "/";
  1707. PRINT USING "&&";MID$(PER.END.DT$,X1*6+3,2);
  1708. PRINT "/";
  1709. PRINT USING "&&";MID$(PER.END.DT$,X1*6+5,2);
  1710. IF P = X1 THEN PRINT " F" ELSE PRINT
  1711. 220 NEXT X1
  1712. 240 PRINT "WHICH FUNCTION WOULD YOU LIKE TO PERFORM:"
  1713. PRIN40 IF X=1 THEN 420
  1714. 350 IF X=2 THEN 490
  1715. 360 IF X=3 THEN 560
  1716. 390 IF X=4 THEN 620
  1717. 395 IF X=6 THEN 1310
  1718. 400 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
  1719. 410 PRINT" Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 :PRINT :X$=LEFT$(REPLY$,1) : GOTO 160
  1720. 420 REM *************** CHANGING A CLIENT NUMBER
  1721. PRINT"ENTER NEW CLIENT NUMBER >";:FLD.LEN%=-5 : GOSUB 9998 : PRINT : CLIENT.NO=VAL(REPLY$)
  1722. 430 IF CLIENT.NO<>INT(CLIENT.NO) THEN 460
  1723. 440 IF CLIENT.NO<1 THEN 460
  1724. 450 IF CLIENT.NO<=99999 THEN 1120
  1725. 4629 THEN 2400
  1726. 2030 IF MM<>4 AND MM<>6 AND MM<>9 AND MM<>11 THEN 2420
  1727. IF DD<=30 THEN 2420
  1728. 2400 PRINT "INVALID DATE - TRY AGAIN!"
  1729. 2410 E=1
  1730. 2420 RETURN
  1731. 3000 REM *** DECIMAL ENTRY TRAP added 2-6-84 jb ***
  1732. 3001 FOR I = 1 TO LEN(X$)
  1733. IF MID$(X$,I,1) = "." THEN PRINT CHR$(7) : BE%=1
  1734. NEXT I
  1735. RETURN
  1736. %INCLUDE NFLANKS.BAS
  1737. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞8 TO 99999(INCREASED CLIENT NO. SIZE)
  1738. REM ***EDITS CLIENT CONTROL FILE*** (CONTEDIT) (VERSION 4.0)
  1739. REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC.
  1740. REM *** 648 SOUTH RIVER DR.
  1741. REM *** TEMPE, ARIZ. 85281 (602)968-7101
  1742. %INCLUDE COMMON.BAS
  1743. 50 REM *** CONTROL FILE INFO.
  1744. REM B1=CLIENT.NO
  1745. REM B1$=CLIENT.NAM$
  1746. REM P=FISCAL.YR.END.PER.NO
  1747. REM P1=
  1748. REM P$=PER.END.DT$
  1749. 67 GOSUB 9005
  1750. PRINT
  1751. PRINT TAB(23);"Dimis LD.LEN%=1 : GOSUB 9998 : M$=LEFT$(REPLY$,1)
  1752. INITIALIZE
  1753. 115 GOSUB 9005 : PRINT : PRINT : PRINT
  1754. 120 IF SIZE(FIL$(10) + ":" + CLIENT$ + "CON.FIL")=0 THEN 110
  1755. 125 OPEN FIL$(10) + ":" + CLIENT$ + "CON.FIL" RECL 142 AS 1 : CONTROL.FIL=1
  1756. 128 IF END #1 THEN 160
  1757. 130 READ #CONTROL.FIL,1;\
  1758. CLIENT.NO,\
  1759. CLIENT.NAM$,\
  1760. P,\
  1761. P1,\
  1762. PER.END.DT$
  1763. 160 CONSOLE
  1764. GOSUB 9005
  1765. 180 PRINT "CLIENT NUMBER";
  1766. PRINT TAB(31);
  1767. PRINT USING "######";CLT " 1. Change Client Number"
  1768. PRINT " 2. Change Client Name"
  1769. PRINT " 3. Change an End of Period Date"
  1770. PRINT " 4. Change Fiscal Year End Period"
  1771. PRINT " 5. Print Control File Information"
  1772. PRINT " 6. Return to Main Menu"
  1773. 320 PRINT"ENTER THE NUMBER OF THE FUNCTION TO PERFORM >";:FLD.LEN%=-1 : GOSUB 9998 :PRINT : X=VAL(REPLY$)
  1774. 325 IF X=5 THEN 2000.1
  1775. 330 FOR X1=1 TO 8
  1776. PRINT REVLF$,
  1777. PRINT TAB(70)
  1778. PRINT REVLF$,
  1779. NEXT X1 : PRINT
  1780. 30 PRINT REVLF$, : PRINT TAB(70) : PRINT REVLF$; : PRINT REVLF$;
  1781. 465 PRINT CHR$(7);"INVALID CLIENT NUMBER - MUST BE 1 TO 99999! - TRY AGAIN!"
  1782. 470 GOTO 420
  1783. 490 REM *************** CHANGING A CLIENT NAME
  1784. PRINT"ENTER NEW CLIENT NAME (40X) :";:FLD.LEN%=40 : GOSUB 9998 : PRINT :B4$=LEFT$(REPLY$,40)
  1785. 500 IF LEN(B4$)<=40 THEN 530
  1786. 505 PRINT CHR$(7)
  1787. 510 PRINT "CLIENT NAME IS ";LEN(B4$)-40;" CHARACTERS TOO LONG - TRY AGAIN!"
  1788. 520 GOTO 490
  1789. 530 B4$=B4$+" "
  1790. 540 CLIENT.NAM$=LEFT$(B4$,40)+RIGHT$(CLIENT.NAM$,LEN(CLIENT.NAM$)-40)
  1791. 550 GOTO 1120
  1792. 555 REM ***************** CHANGING PERIOD ENDING DATE
  1793. 560 PRINT"ENTER NUMBER OF PERIOD DATE TO BE CHANGED (0-12)>";:FLD.LEN%=-2 : GOSUB 9998 : PRINT : P3=VAL(REPLY$)
  1794. 565 IF P3<0 OR P3>12 OR P3<>INT(P3) THEN GOTO 566 ELSE GOTO 570
  1795. 566 PRINT CHR$(7);"ENTER A NUMBER BETWEEN 0 TO 12 PLEASE !"
  1796. 567 PRINT" Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
  1797. GOTO 160
  1798. 570 PRINT"ENTER NEW DATE (MMDDYY) :";AND 12 PLEASE !"
  1799. 650 PRINT" Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
  1800. 660 GOTO 160
  1801. 670 P = X
  1802. 690 GOTO 1120
  1803. 720 PRINT CHR$(7)
  1804. 1120 PRINT #CONTROL.FIL,1;\
  1805. CLIENT.NO,\
  1806. CLIENT.NAM$,\
  1807. P,\
  1808. P1,\
  1809. PER.END.DT$
  1810. 1140 GOTO 130
  1811. 1150 FOR X1=1 TO 6
  1812. IF MID$(B$,X1,1)<"0" THEN 1270
  1813. IF MID$(B$,X1,1)>"9" THEN 1270
  1814. NEXT X1
  1815. IF MID$(B$,1,1)="0" THEN 1190
  1816. IF MID$(B$,1,1)<>"1" THEN 1270
  1817. IF MID$(ss RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
  1818. INITIALIZE : \
  1819. GOTO 1311
  1820. CHAIN PGM$(3) + ":" + "MENU"
  1821. 1999 REM ****************** PRINTING CONTROL FILE ON PRINTER
  1822. 2000.1 GOSUB 9005 : PRINT : PRINT
  1823. 2010 PRINT"SET PRINTER AND PAPER THEN PRESS RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
  1824. 2020 GOSUB 9005 : PRINT "NOW PRINTING CONTROL FILE . . . ."
  1825. 2030 LPRINTER
  1826. PRINT : PRINT
  1827. PRINT "CLIENT NUMBER";
  1828. PRINT TAB(31);
  1829. PRINT USING 2110 GOTO 160
  1830. %INCLUDE NFLANKS.BAS
  1831. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞REM 072583 - DCF ADDED CHECK FOR NUM.BITS = 8 OR 16
  1832. REM
  1833. REM 072183 - DCF CHANGED A TO A.XE IN LINE 5402
  1834. REM
  1835. REM 071783 - DCF CHANGED ALL A'S TO A.XE
  1836. REM CHANGED ALL BUDGET.ACCT.NO TO BUDGET.ACCT.NUM
  1837. REM CHANGED ALL HEADER.NO TO HEADER.NUM
  1838. REM CHANGED C TO C.XE FOR CB80 COMPILE
  1839. REM
  1840. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  1841. REM
  1842. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  1843. REM
  1844. REM 050383 - DCF FIXED DF ERROR :FLD.LEN%=-6 : GOSUB 9998 : PRINT : B2$=LEFT$(REPLY$,6)
  1845. 575 B$=B2$+" "
  1846. 580 GOSUB 1150
  1847. 590 IF B$="INVALI" THEN 560
  1848. 600 PER.END.DT$=LEFT$(PER.END.DT$,P3*6)+LEFT$(B2$,6)+RIGHT$(PER.END.DT$,LEN(PER.END.DT$)-(P3*6+6))
  1849. 610 GOTO 1120
  1850. 620 REM ****************** ENTERING FISCAL YEAR END
  1851. PRINT"ENTER THE NUMBER OF THE PERIOD TO BECOME FISCAL YEAR END (1-12)>";:FLD.LEN%=-2 : GOSUB 9998 : PRINT : X=VAL(REPLY$)
  1852. 630 IF X>=1 AND X<=12 AND X = INT(X) THEN 670
  1853. 640 PRINT CHR$(7);"ENTER A NUMBER BETWEEN 1 B$,2,1)>"2" THEN GOTO 1270 ELSE GOTO 1200
  1854. 1190 IF MID$(B$,2,1)<"1" THEN 1270
  1855. 1200 IF MID$(B$,3,1)>"3" THEN 1270
  1856. IF MID$(B$,3,1)<>"3" THEN 1290
  1857. 1220 IF MID$(B$,4,1)>"1" THEN GOTO 1270 ELSE GOTO 1290
  1858. 1270 PRINT CHR$(7);"INVALID DATE - TRY AGAIN!"
  1859. 1280 B$="INVALI"
  1860. 1290 RETURN
  1861. 1310 CONSOLE
  1862. 1311 IF NUM.BITS%=8 THEN EXT$=".OVL" ELSE EXT$=".OVR"
  1863. IF SIZE (PGM$(3) + ":" + "MENU"+EXT$)= 0 THEN \
  1864. PRINT "Insert Program Disk in Drive ";PGM$(3) : \
  1865. PRINT " Then Pre"######";CLIENT.NO
  1866. PRINT "CLIENT NAME";
  1867. PRINT TAB(32);CLIENT.NAM$
  1868. 2050 FOR X1 = 0 TO 12
  1869. 2060 PRINT "PERIOD #";
  1870. PRINT USING "##";X1;
  1871. PRINT " ENDING DATE";
  1872. PRINT TAB(32);
  1873. 2070 PRINT USING "&&";MID$(PER.END.DT$,X1*6+1,2);
  1874. PRINT "/";
  1875. PRINT USING "&&";MID$(PER.END.DT$,X1*6+3,2);
  1876. PRINT "/";
  1877. PRINT USING "&&";MID$(PER.END.DT$,X1*6+5,2);
  1878. PRINT " ";
  1879. 2080 IF P = X1 THEN PRINT "F" ELSE PRINT
  1880. 2090 NEXT X1
  1881. 2100.1 PRINT CHR$(12);
  1882. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞WHEN PROCESSING DEPT CLIENTS
  1883. REM 050383 - DCF FIXED PROBLEM WITH THE END OF FILE MARKER PRINTING
  1884. REM AT THE END OF THE STATEMENTS
  1885. REM
  1886. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  1887. REM FLANKS TO NFLANKS
  1888. REM
  1889. REM 021683 - (RCB) ADDED HOLE(3) TO DEMENSIONING
  1890. REM
  1891. REM 013183 (DCF) CHANGED PRINT CLR$ TO GOSUB 9005
  1892. REM
  1893. REM 013183 (DCF) FIXED OE ERROR WHEN DISK SWAPPING (AUX. ON SEPERATE DISK)
  1894. REM
  1895. REM 102682 (DCF) ADDED CHECK FOR HEADER #=999999999 AND P2<>1
  1896. REM
  1897. REM 101582 (DCF) CHANGE FOR SPECIAL CASE
  1898. REM
  1899. REM 101482 (DCF) MODIFIED DATE ROUTINE AND ADDED COMMAS TO PRINT USINGS
  1900. REM
  1901. REM 101382 (DCF) CHANGED THE FUNCTION ROUTINE THAT USE TO BE
  1902. REM
  1903. REM 101282 (DCF) ADDED THE CHECK FOR THE CORRECT DISK
  1904. REM
  1905. REM 101182 (DCF) ADDED GOTO 3030 IN LINE 3010 (FIXED WHAT IT WAS PRINTING IN THE COLUMNS)
  1906. REM
  1907. REM 101182 (DCF) CHANGED DATE ROUTINE PRIOR TO PRINTING
  1908. REM
  1909. REM 100782 (DCF) CHANGED THE USE OF TWO READS ON ONE RECORD
  1910. REM
  1911. REM 1001823 GOSUB 9005 : PRINT
  1912. PRINT TAB(23);"Dimis Micro Systems, Inc. "
  1913. PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
  1914. PRINT
  1915. PRINT TAB(20);"** AUXILIARY MENU OPTION #5 **"
  1916. PRINT TAB(16);"PRINTS A COMPARATIVE FINANCIAL STATEMENT" :PRINT
  1917. PRINT TAB(5);"Press RETURN Key to Continue or 'M' to Return to Auxiliary Menu";
  1918. FLD.LEN%=1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$,1))
  1919. IF M$="M" THEN 3710
  1920. 150 GOSUB 9005
  1921. 170 IF SIZE(FIL$(2) + ":" + CLIENT$ + "CLN.FIL") = =1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
  1922. INITIALIZE
  1923. 210 GOSUB 9005
  1924. 215 IF SIZE(FIL$(10)+":" + CLIENT$ + "CON.FIL")=0 THEN 198
  1925. 290 OPEN FIL$(10) + ":" +CLIENT$ + "CON.FIL" RECL 142 AS 2 : CONTROL.FIL=2
  1926. 320 READ #CONTROL.FIL;\
  1927. CLIENT.NO,\
  1928. CLIENT.NAM$,\
  1929. C1,\
  1930. C2,\
  1931. PER.END.DT$
  1932. CLOSE CONTROL.FIL
  1933. 330 PRINT "ENTER CLIENT NUMBER FROM CONTROL SHEET >";:FLD.LEN%=-6 : GOSUB 9998 : PRINT : X1=VAL(REPLY$)
  1934. IF CLIENT.NO = X1 THEN 370
  1935. PRINNT : \
  1936. INITIALIZE : \
  1937. GOTO 371
  1938. REM ELSE \
  1939. REM FIL2$ = FIL$(4)
  1940. 372 OPEN FIL2$ + ":" + CLIENT$ + "COA.FIL" RECL 65 AS 3 : COANS.FIL=3
  1941. 375 FIL2$=FIL$(7)
  1942. 376 IF SIZE(FIL2$ + ":" + CLIENT$ + "FSH.FIL") = 0 THEN \
  1943. PRINT " Insert the Client Data Disk Containing FSH.FIL in Drive "; PGM$(3):\
  1944. PRINT " Then Press RETURN "; : FLD.LEN%=1 : GOSUB 9998 :\
  1945. PRINT : \
  1946. INITIALIZE : \
  1947. FIL2$=PGM$(3) : \
  1948. GOTO 376
  1949. OPEN FIL2$ + ":" + CLIENT$ + " PRINT "WOULD YOU LIKE COLUMN #2 TO CONTAIN :"
  1950. 470 PRINT" ( 0:BUDGETARY AMOUNT 1:CURRENT 2:YEAR TO DATE ) >";:FLD.LEN%=-1 : GOSUB 9998 : PRINT :X=VAL(REPLY$)
  1951. 480 IF X=0 OR X=1 OR X=2 THEN 520
  1952. 490 PRINT CHR$(7);"ENTER 0, 1 OR 2 PLEASE !"
  1953. 500 PRINT " ",
  1954. PRINT" Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
  1955. 510 GOTO 460
  1956. 520 IF X<>0 THEN 540
  1957. 522 PRINT"ENTER NUMBER OF 12THS OF BUDGETARY TO CONSIDER (1-12)>";:FLD.LEN%=-2 : GOSUB 9998 : PRINT : X=VAL(REPLY$)
  1958. 524 IF X>=1 AN (DCF) READY FOR WORM TESTING
  1959. REM
  1960. REM 092982 (DCF) SECOND PASS
  1961. REM
  1962. REM 091682 (DCF) FIRST PASS
  1963. REM
  1964. REM *** PROGRAM TO PRINT A THE COMPARATIVE FINANCIAL STATEMENT (COMPARE)
  1965. REM *** COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS (VERSION 3.6)
  1966. REM *** 648 SOUTH RIVER DR.
  1967. REM *** TEMPE, AZ. 85281 (602-968-7101)
  1968. %INCLUDE COMMON.BAS
  1969. 52 X = HOLE(3) : P4=1
  1970. 60 DIM A(12),BUDGET.ACCT.NO(12),F(3),R(9,1),C(X,3),HEADER.NO(X,1)
  1971. 80 THEN \
  1972. PRINT "Insert Client Data Disk in Drive "; FIL$(2) : \
  1973. PRINT "Then Press RETURN "; : FLD.LEN%=1 : GOSUB 9998 : \
  1974. PRINT : \
  1975. INITIALIZE : \
  1976. GOTO 170
  1977. OPEN FIL$(2) + ":" + CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL=1
  1978. GOSUB 5000
  1979. CLOSE CLNRNM.FIL
  1980. 175 GOTO 210
  1981. 198 INITIALIZE
  1982. 199 PRINT "Insert The Auxiliary Data Disk In Drive "; FIL$(10)
  1983. 200 PRINT " Then "; :
  1984. PRINT"Press RETURN ";:FLD.LEN%T "THE NUMBER OF THE DISK IN DRIVE "; FIL$(2);
  1985. PRINT " IS "; CLIENT.NO
  1986. PRINT " Please Change the Disk or Enter the Correct Number!"
  1987. PRINT " Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
  1988. GOTO 330
  1989. 370 FIL2$=FIL$(4)
  1990. 371 IF SIZE(FIL2$ + ":" + CLIENT$ + "COA.FIL")<> 0 THEN 372
  1991. PRINT "Insert Client Data Disk Containing COA.FIL in Drive ";PGM$(3): \
  1992. PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
  1993. FIL2$ = PGM$(3) : \
  1994. PRIFSH.FIL" RECL 94 AS 4 : FSHEADS.FIL =4
  1995. GOSUB 9005
  1996. PRINT : PRINT : PRINT
  1997. 380 PRINT TAB(20);"COMPARATIVE FINANCIAL STATEMENTS OPTIONS :"
  1998. 390 PRINT "WOULD YOU LIKE COLUMN #1 TO CONTAIN :"
  1999. 400 PRINT" ( 1:CURRENT 2:YEAR TO DATE ) >";:FLD.LEN%=-1 : GOSUB 9998 : PRINT : X=VAL(REPLY$)
  2000. 410 IF X=1 OR X=2 THEN 450
  2001. 420 PRINT CHR$(7);"ENTER 1 OR 2 PLEASE !"
  2002. 430 PRINT " ",
  2003. PRINT" Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
  2004. 440 GOTO 390
  2005. 450 F(0)=X-1
  2006. 460D X<=12 AND X=INT(X) THEN 529
  2007. 526 PRINT CHR$(7);"ENTER AN INTEGER NUMBER BETWEEN 1 AND 12 PLEASE!"
  2008. 528 PRINT " ",
  2009. PRINT" Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
  2010. GOTO 522
  2011. 529 T = X
  2012. 530 F(1)=0 : GOTO 640
  2013. 540 IF X<>1 THEN 560
  2014. 550 X1 = 0 : GOTO 570
  2015. 560 X1 = 20
  2016. 570 PRINT "WHAT PERIOD WOULD YOU LIKE IN COLUMN #2 :"
  2017. 580 PRINT" ( 1 - 12 ) >";:FLD.LEN%=-2 : GOSUB 9998 : PRINT : X=VAL(REPLY$)
  2018. 581 IF X=C1 + 1 THEN XE.X=1 ELSE XE.X=0
  2019. 590 IF X>=1 AND X<=12 AND X=INT(X) THEN 630
  2020. 600 PRINT CHR$(7);"ENTER AN INTEGER NUMBER BETWEEN 1 AND 12 PLEASE!"
  2021. 610 PRINT " ",
  2022. PRINT"PRESS RETURN TO CONTINUE ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
  2023. 620 GOTO 570
  2024. 630 F(1)=X+X1
  2025. 640 PRINT "WOULD YOU LIKE THE VARIANCE TO BE :"
  2026. 650 PRINT " 1 : EXPRESSED AS A DOLLAR DIFFERENCE"
  2027. 660 PRINT " 2 : EXPRESSED AS PERCENTAGE OF CHANGE FROM THE "
  2028. 670 PRINT " BASE AMOUNT IN COL.#2"
  2029. 690 PRINT"YOUR CHOICE ( 1 OR 2 ) >";:FLD.LEN%=-1 : GOSUB 9998 : PRI0
  2030. P=0
  2031. P1=0
  2032. D3=0
  2033. D4=0
  2034. H2=0
  2035. H4=0
  2036. BUDGET.ACCT.NUM=0
  2037. P9=0
  2038. 1100 REM *** FIND BEGINNING OF INCOME STATEMENT
  2039. IF HEADER.NUM = 9999999999 AND P2 THEN 3510
  2040. IF HEADER.NUM = 9999999999 AND P2<>1 THEN 3510
  2041. 1110 REM *** READ HEADER FILE
  2042. GOSUB 5100
  2043. IF P2 <> 1 AND HEADER.NUM = 9999999999 THEN 3510
  2044. 1120 IF MID$(HEAD.CTRL.CHAR$,3,1)<>"I" THEN 1100
  2045. 1130 IF D4=1 THEN 1170
  2046. 1140 IF BUDGET.ACCT.NUM >= HEADER.NUM THEN 1160
  2047. 1150 GOSUB 520301 ELSE GOTO 1302
  2048. 1301 IF MID$(HEAD.CTRL.CHAR$,6,1)="N" THEN 1440
  2049. 1302 IF MID$(HEAD.CTRL.CHAR$,8,1) = "*" THEN 1440
  2050. 1306 IF MID$(HEAD.CTRL.CHAR$,2,1)<>"P" THEN S1 = VAL(MID$(HEAD.CTRL.CHAR$,2,1)) ELSE S1 = -1
  2051. 1310 IF MID$(HEAD.CTRL.CHAR$,3,1)="Z" THEN Z = 1
  2052. 1320 IF MID$(HEAD.CTRL.CHAR$,3,1)="R" THEN Z = 0
  2053. 1325 IF MID$(HEAD.CTRL.CHAR$,3,1) = "B" THEN GOSUB 6000
  2054. 1326 IF MID$(HEAD.CTRL.CHAR$,3,1) <> "D" THEN 1327
  2055. GOSUB 4000
  2056. 1327 IF MID$(HEAD.CTRL.CHAR$,3,1) <> "H" THEN 1330
  2057. GOSUB 45
  2058. N1 = R(X,0) : N2 = R(X,1)
  2059. 1410 FOR I = 1 TO X
  2060. R(I,0) = 0
  2061. R(I,1) = 0
  2062. NEXT I
  2063. 1420 REM *** ITS A HEADER
  2064. P$ = HEAD.DESCR$
  2065. IF MID$(HEAD.CTRL.CHAR$,3,1) <> "%" THEN 1430
  2066. T1 = N1
  2067. T2 = N2
  2068. P9 = 1
  2069. 1430 IF LEN(P$) < 22 THEN 1435
  2070. IF MID$(HEAD.CTRL.CHAR$,1,1) <> "0" THEN P$ = MID$(P$,1,21)
  2071. 1435 H9 = 1 : GOSUB 2500 : H9 = 0
  2072. 1440 IF HEADER.NUM <> -1 THEN 1460
  2073. 1450 HEAD.DESCR$ = " " : HEADER.NUM = 99999999 = N4 :N2 = N5
  2074. 1610 FOR X = 1 TO 9
  2075. R(X,0) = R(X,0) + N1
  2076. NEXT X
  2077. 1620 FOR X = 1 TO 9
  2078. R(X,1) = R(X,1) + N2
  2079. NEXT X
  2080. 1630 IF Z<>0 AND N1 = 0 AND N2 = 0 THEN 1650
  2081. IF N1=0 AND N2=0 AND A5=9999999999 AND BUDGET.ACCT.NUM=9999999999 THEN 1650
  2082. S1 = 0
  2083. 1640 C1$=HEAD.CTRL.CHAR$
  2084. HEAD.CTRL.CHAR$= "1"+ RIGHT$(HEAD.CTRL.CHAR$,LEN(HEAD.CTRL.CHAR$)-1)
  2085. U = 0
  2086. GOSUB 2500
  2087. HEAD.CTRL.CHAR$ = C1$
  2088. IF P2 THEN 1700
  2089. 1645 GOSUB 5600
  2090. 165NT : X=VAL(REPLY$)
  2091. 700 IF X=1 OR X=2 THEN 740
  2092. 710 PRINT CHR$(7);"ENTER 1 OR 2 PLEASE!"
  2093. 720 PRINT " ",
  2094. PRINT" Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
  2095. 730 GOTO 640
  2096. 740 F(3) = X
  2097. 750 P2 = 0 : D2 = 1 : H1 = 0
  2098. 960 OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 5 : ACCTS.FIL=5
  2099. 961 GOSUB 9005 : PRINT : PRINT
  2100. PRINT "WORKING . . . . "
  2101. 1000 REM SETTING VARIABLES TO ZERO
  2102. C.XE=0
  2103. Z=0
  2104. U=0
  2105. LAST.HEADER=0
  2106. D=0
  2107. S=0
  2108. D7 = D1
  2109. 1155 IF BUDGET.ACCT.NUM < HEADER.NUM THEN 1150
  2110. 1160 GOTO 1650
  2111. 1170 A.XE = 9999999999
  2112. 1200 IF LAST.HEADER <>1 THEN 1205
  2113. LAST.HEADER = 0
  2114. GOTO 1100
  2115. 1205 IF MID$(HEAD.CTRL.CHAR$,3,1)="E" THEN LAST.HEADER = 1
  2116. IF A.XE = 9999999999 AND HEADER.NUM = 9999999999 THEN 3510
  2117. IF A.XE =-1 AND BUDGET.ACCT.NUM =-1 AND LAST.HEADER=0 THEN 1299
  2118. 1210 IF A.XE < HEADER.NUM THEN 1500
  2119. GOTO 1300
  2120. 1299 D4=1
  2121. 1300 REM *** PROCESS A HEADER
  2122. IF P2 <>1 THEN GOTO 100
  2123. GOTO 1430
  2124. 1330 IF MID$(HEAD.CTRL.CHAR$,4,1)="-" THEN S = 1
  2125. 1340 IF MID$(HEAD.CTRL.CHAR$,4,1)="+" THEN S = 0
  2126. 1350 IF MID$(HEAD.CTRL.CHAR$,5,1)="$" THEN D = 1
  2127. 1360 IF MID$(HEAD.CTRL.CHAR$,5,1)="0" THEN D = 0
  2128. 1370 IF MID$(HEAD.CTRL.CHAR$,6,1)="M" THEN C.XE = 1
  2129. 1372 IF MID$(HEAD.CTRL.CHAR$,7,1) = "S" THEN U = 1 ELSE U = 0
  2130. 1374 IF MID$(HEAD.CTRL.CHAR$,7,1) = "D" THEN U = 2
  2131. 1380 X = VAL(MID$(HEAD.CTRL.CHAR$,1,1))
  2132. 1390 IF X = 0 THEN 1420
  2133. 1400 REM *** ITS AN ACCOUNT PUT INTO ACCOUNT REGISTER 99 : GOTO 1470
  2134. 1460 GOSUB 5100
  2135. 1470 GOTO 1200
  2136. 1500 REM *** PROCESS AN ACCOUNT
  2137. IF D4 <> 1 THEN 1530
  2138. 1510 A.XE = 9999999999
  2139. 1520 GOTO 1680
  2140. 1530 IF P2 =1 THEN 1600
  2141. GOSUB 5200
  2142. D7=D1
  2143. 1540 IF A.XE <> INT(BUDGET.ACCT.NUM) THEN 1600
  2144. 1550 FOR X = 0 TO 12
  2145. A(X) = A(X) + BUDGET.ACCT.NO(X)
  2146. NEXT X
  2147. A2 = A2 + A6
  2148. A3 = A3 + A7
  2149. 1555 B = B + B1
  2150. 1560 GOTO 1500
  2151. 1600 P$ = " " + A$
  2152. IF P2 <> 1 THEN GOSUB 3000
  2153. IF P2 <> 1 THEN 1610
  2154. 1605 N10 A.XE = BUDGET.ACCT.NUM : A$ = LEFT$(BUDGET.ACCT.DESCR$,21) : B = B1 : D6 = D7
  2155. 1660 FOR X = 0 TO 12
  2156. A(X) = BUDGET.ACCT.NO(X)
  2157. NEXT X
  2158. 1670 A2 = A6 : A3 = A7
  2159. 1680 GOTO 1200
  2160. 1700 GOSUB 5200
  2161. 1710 GOTO 1200
  2162. 2500 REM *** PRINTING STATEMENT ROUTINE
  2163. LPRINTER
  2164. 2520 IF U < 1 THEN 2555
  2165. 2530 PRINT TAB(24);"------------";
  2166. 2532 IF P9 THEN PRINT " ------- "; ELSE PRINT " ";
  2167. 2534 PRINT "------------";
  2168. 2536 IF P9 THEN PRINT " -------"; ELSE PRINT " ";
  2169. 2539 IF F(3) > 2 THEN PRINT " --------" ELSE PRINT " ------------"
  2170. 2555 PRINT TAB(1);P$;
  2171. 2560 IF MID$(HEAD.CTRL.CHAR$,1,1) ="0" THEN 2720
  2172. 2565 IF MID$(HEAD.CTRL.CHAR$,3,1) = "%" THEN P9=1
  2173. 2570 GOSUB 9000
  2174. 2580 PRINT TAB(23);MID$(X$,1,1);
  2175. 2590 IF ABS(N1) > 9999999999 THEN N1=9999999999
  2176. 2600 PRINT USING"#,###,###.##";ABS(N1/100);
  2177. PRINT MID$(X$,3,1);
  2178. 2610 IF P9<>1 THEN 2630
  2179. 2620 IF T1=0 THEN 2622
  2180. IF ABS(N1/T1*100) > 999.99 THEN 2622
  2181. GOTO 2625
  2182. 2622 PRINT "***.**%"; : GOTO 2630
  2183. 2625
  2184. IF F(3)<>1 THEN GOTO 2672 ELSE GOTO 2680
  2185. 2672 IF N2<>0 THEN N3=N3/N2*100 ELSE N3=1000000
  2186. 2680 GOSUB 12000
  2187. 2720 PRINT
  2188. IF U <> 2 THEN 2800
  2189. 2730 PRINT TAB(24);"============";
  2190. 2732 IF P9 THEN PRINT " ======= "; ELSE PRINT " ";
  2191. 2734 PRINT "============";
  2192. 2736 IF P9 THEN PRINT " ======="; ELSE PRINT " ";
  2193. 2739 IF F(3) > 2 THEN PRINT " ========" ELSE PRINT " ============"
  2194. 2800 IF S1 = -1 THEN GOTO 2805 ELSE GOTO 2820
  2195. 2805 PRINT CHR$(12);
  2196. 2810 GOTO 2850
  2197. 2820 IF S1<1 T - A(X-1)
  2198. 3092 GOTO 3098
  2199. 3095 N2 = A(X)
  2200. 3098 GOTO 3300
  2201. 3100 X = F(1) - 20
  2202. 3110 X = X + C2 + 1
  2203. 3120 IF X>12 THEN X=X-(12+1)
  2204. 3140 N2 = A(X)
  2205. 3150 GOTO 3300
  2206. 3300 RETURN
  2207. 3510 REM *** END OF PROCESSING PASS 1
  2208. IF P2 OR C.XE<>1 THEN 3690
  2209. 3512 REM *** SORTING HEADERS AND ACCOUNTS
  2210. GOSUB 9005 : PRINT : PRINT
  2211. 3514 CONSOLE
  2212. PRINT "NOW PROCESSING COMBINED HEADERS AND ACCOUNTS . . ."
  2213. 3520 X = 0 : X1 = 0
  2214. 3530 IF C(X,0) <= C(X+1,0) THEN 3570
  2215. 3540 X1 = 1
  2216. FOR X2 = 0 TO= 1 : BUDGET.ACCT.NUM = 0 : HEADER.NUM = 0 : GOTO 961
  2217. 3690 PRINT CHR$(12)
  2218. 3700 REM *** CLOSING FILES AND CHAINING TO AUX. MENU
  2219. CLOSE COANS.FIL
  2220. CLOSE FSHEADS.FIL
  2221. CLOSE ACCTS.FIL
  2222. CONSOLE : GOSUB 9005
  2223. 3710 IF NUM.BITS%=8 THEN EXT$=".OVL" ELSE EXT$=".OVR"
  2224. IF SIZE(PGM$(3) + ":" + "MENU"+EXT$)<>0 THEN CHAIN PGM$(3) + ":" + "MENU"
  2225. INITIALIZE
  2226. PRINT "Insert Program Disk in Drive ";PGM$(3)
  2227. PRINT " Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REP$ + MID$(PER.END.DT$,X1*6+3,2) + "/"
  2228. 4080 P$ = P$ + MID$(PER.END.DT$,X1*6+5,2)
  2229. 4090 GOTO 4260
  2230. 4100 FOR X = 1 TO LEN(HEAD.DESCR$) - 5
  2231. 4110 IF MID$(HEAD.DESCR$,X,6) = "XX/XX/" THEN 4005
  2232. 4120 IF MID$(HEAD.DESCR$,X,6) = "XXXXXX" THEN 4005
  2233. 4130 NEXT X
  2234. P$ = HEAD.DESCR$
  2235. 4140 FOR X = 1 TO LEN(P$)
  2236. 4150 IF MID$(P$,X,1) <> " " THEN 4170
  2237. 4160 NEXT X
  2238. 4170 IF LEN(P$) = 1 THEN 4260
  2239. 4180 FOR X = LEN(P$) TO 2.0 STEP -1.0
  2240. 4190 IF MID$(P$,X,1) <> " " THEN 4210
  2241. 4200 NEXT X
  2242. 4210 IF LEN(P$PRINT USING "###.##";ABS(N1/T1*100);
  2243. PRINT "%";
  2244. 2630 PRINT TAB(45);MID$(X$,4,1);
  2245. IF ABS(N2) > 9999999999 THEN N2=9999999999
  2246. 2640 PRINT USING "#,###,###.##";ABS(N2/100);
  2247. PRINT MID$(X$,6,1);
  2248. 2650 IF P9<>1 THEN GOTO 2655 ELSE GOTO 2660
  2249. 2655 PRINT " ";
  2250. GOTO 2670
  2251. 2660 IF T2=0 THEN 2662
  2252. IF ABS(N2/T2*100) > 999.99 THEN 2662
  2253. GOTO 2665
  2254. 2662 PRINT "***.**%"; : GOTO 2670
  2255. 2665 PRINT USING "###.##";ABS(N2/T2*100);
  2256. PRINT "%";
  2257. 2670 N3 = N1-N2 HEN 2850
  2258. FOR X = 1 TO S1
  2259. PRINT
  2260. NEXT X
  2261. 2850 CONSOLE
  2262. RETURN
  2263. 3000 REM *** ROUTINE CALCULATES THE NUMBERS TO BE PRINTED
  2264. IF F(0) = 1 THEN 3020
  2265. 3010 N1 = A2 : GOTO 3030
  2266. 3020 N1 = A3
  2267. 3030 IF F(1) <> 0 THEN 3050
  2268. 3035 IF T = 0 THEN 3050
  2269. 3040 N2=B
  2270. GOTO 3300
  2271. 3050 IF F(1) > 12 THEN 3100
  2272. 3070 X = C2 + F(1) + 1
  2273. 3080 IF X>12 THEN X=X-(12+1)
  2274. 3085 IF C1 = 12 AND F(1) = 1 THEN 3095
  2275. IF XE.X = 1 THEN 3095
  2276. 3090 IF X = 0 THEN N2 = A(0) - A(12) ELSE N2 = A(X) 3
  2277. 3550 X3 = C(X,X2)
  2278. C(X,X2) = C(X+1,X2)
  2279. C(X+1,X2) = X3
  2280. 3560 NEXT X2
  2281. 3570 X = X + 1
  2282. IF X < D2 THEN 3530
  2283. 3580 IF X1 THEN 3520
  2284. 3600 X = 0 : X1 = 0
  2285. 3610 IF HEADER.NO(X,0) <= HEADER.NO(X+1,0) THEN 3650
  2286. 3620 X1 = 1
  2287. 3630 X2 = HEADER.NO(X,0) : HEADER.NO(X,0) = HEADER.NO(X+1,0) : HEADER.NO(X+1,0) = X2
  2288. 3640 X2 = HEADER.NO(X,1) : HEADER.NO(X,1) = HEADER.NO(X+1,1) : HEADER.NO(X+1,1) = X2
  2289. 3650 X = X +1
  2290. IF X < H1 THEN 3610
  2291. 3660 IF X1 THEN 3600
  2292. 3680 C.XE = 0 : P2 LY$,1)
  2293. INITIALIZE
  2294. GOTO 3710
  2295. 4000 REM *** ROUTINE TO MODIFY DATE PRIOR TO PRINTING
  2296. GOTO 4100
  2297. 4005 P$=" "
  2298. 4010 P$ = P$ + LEFT$(GL.END.DATE$,2) + "/" + MID$(GL.END.DATE$,3,2) + "/" + MID$(GL.END.DATE$,5,2)
  2299. 4020 P$ = P$ + " "
  2300. 4030 IF F(1) <> 0 THEN 4050
  2301. IF T = 0 THEN 4050
  2302. 4040 P$ = P$ + " BUDGETARY" : GOTO 4090
  2303. 4050 IF F(1) > 12 THEN X1 = F(1) - 20 ELSE X1 = F(1)
  2304. 4060 P$ = P$ + " " + MID$(PER.END.DT$,X1*6+1,2) + "/"
  2305. 4070 P$ = P) = 1 THEN 4260
  2306. P$ = MID$(P$,1,X)
  2307. 4220 X1 = LEN(P$)
  2308. 4230 FOR X = 1 TO ( 85 - X1) / 2
  2309. 4240 P$ = " " + P$
  2310. 4250 NEXT X
  2311. 4260 HEAD.DESCR$ = P$ : RETURN
  2312. 4500 REM *** PRINT A HEADING
  2313. P$ = " "
  2314. 4510 IF F(0) <> 1 THEN 4530
  2315. 4520 P$ = P$ + "YEAR TO DATE" : GOTO 4540
  2316. 4530 P$ = P$ + " CURRENT"
  2317. 4540 IF MID$(HEAD.CTRL.CHAR$,8,1) = "%" THEN P$ = P$ + " % " ELSE P$ = P$ + " "
  2318. 4560 IF F(1) <> 0 THEN 4580
  2319. IF T = 12 THEN 4600
  2320. IF T = 1 THEN 4575
  2321. 4565 IF T = 10 THEN 4576
  2322. IF T = 11 THEN 4577
  2323. IF T = 0 THEN 4580
  2324. 4570 P$ = P$ + " " + CHR$(48+T) + "/12THS YTD" : GOTO 4610
  2325. 4575 P$ = P$ + " 1/12TH YTD" : GOTO 4610
  2326. 4576 P$ = P$ + "10/12THS YTD" : GOTO 4610
  2327. 4577 P$ = P$ + "11/12THS YTD" : GOTO 4610
  2328. 4580 IF F(1) > 12 THEN 4600
  2329. 4590 P$ = P$ + " CURRENT" : GOTO 4610
  2330. 4600 IF T = 0 THEN P$ = P$ + "YEAR TO DATE" ELSE P$ = P$ + " YEARLY"
  2331. 4610 IF MID$(HEAD.CTRL.CHAR$,8,1)="%" THEN P$=P$+" % " ELSE P$=> H1 THEN HEADER.NUM = 9999999999 ELSE GOTO 5180
  2332. REM HEAD.CTRL.CHAR$=LEFT$(HEAD.CTRL.CHAR$,2) +"E" + RIGHT$(HEAD.CTRL.CHAR$,LEN(HEAD.CTRL.CHAR$)-3)
  2333. GOTO 5190
  2334. 5180 READ #FSHEADS.FIL,HEADER.NO(H4,1)+1;\
  2335. HEADER.NUM,\
  2336. HEAD.DESCR$,\
  2337. HEAD.CTRL.CHAR$
  2338. HEADER.NUM = HEADER.NO(H4,0)
  2339. IF HEADER.NUM = -1 THEN HEADER.NUM = 9999999999
  2340. H4 = H4 + 1
  2341. 5190 RETURN
  2342. 5200 REM *** READ AN ACCOUNT
  2343. IF P2 THEN 5400
  2344. 5205 IF END #ACCTS.FIL THEN 523.NO(11),\
  2345. BUDGET.ACCT.NO(12)
  2346. 5218 B1 = B1 * ( T / 12 )
  2347. 5220 GOTO 5240
  2348. 5230 IF BUDGET.ACCT.NUM = -1 THEN BUDGET.ACCT.NUM = 9999999999
  2349. 5240 IF END #COANS.FIL THEN 5270
  2350. 5250 REM *** READING NORMAL ACCOUNTS
  2351. READ #COANS.FIL,P1+1;\
  2352. A5,\
  2353. A6,\
  2354. A7,\
  2355. A5$
  2356. 5260 GOTO 5280
  2357. 5270 IF A5 = -1 THEN A5 = 9999999999
  2358. 5280 D1 = P
  2359. IF BUDGET.ACCT.NUM = 9999999999 AND A5=9999999999 THEN D4=1 :GOTO 5500
  2360. IF BUDGET.ACCT.NUM = A5 THEN 5330
  2361. 5290 : N4 = C(D3,1) : N5 = C(D3,2)
  2362. 5410 IF C(D3,3)>=10000 THEN 5440
  2363. 5420 READ #ACCTS.FIL,C(D3,3)+1;\
  2364. X,\
  2365. A$
  2366. 5425 BUDGET.ACCT.DESCR$=A$
  2367. 5430 GOTO 5450
  2368. 5440 READ #COANS.FIL,(C(D3,3)-10000)+1;\
  2369. X,\
  2370. X,\
  2371. X,\
  2372. A$
  2373. 5450 D3 = D3 + 1 : BUDGET.ACCT.NUM = A.XE
  2374. 5500 RETURN
  2375. 5600 REM *** PLACE ACCTS IN ARRAY FOR COMBINED STATEMENT PROCESSING
  2376. X = A.XE - INT(A.XE/10000)*10000 : I = 0
  2377. 5610 FOR I = 0 TO D2
  2378. 5620 IF X = C(I,0) THEN 5670
  2379. 5630 N1
  2380. T2 = T2 + N2
  2381. 6080 A.XE = BUDGET.ACCT.NUM
  2382. A$ = BUDGET.ACCT.DESCR$
  2383. B = B1
  2384. 6090 FOR X = 0 TO 12
  2385. A(X) = BUDGET.ACCT.NO(X)
  2386. NEXT X
  2387. 6100 A2 = A6 : A3 = A7
  2388. 6110 GOSUB 5200 : GOTO 6050
  2389. 6120 P = 0
  2390. P1 = 0
  2391. A.XE = 0
  2392. BUDGET.ACCT.NUM = 0
  2393. 6130 IF T4 = A.XE THEN 6200
  2394. 6140 GOSUB 5200
  2395. 6150 A.XE = BUDGET.ACCT.NUM : A$ = BUDGET.ACCT.DESCR$ : B = B1
  2396. FOR X = 0 TO 12
  2397. A(X) = BUDGET.ACCT.NO(X)
  2398. NEXT X
  2399. 6170 A2 = A6 : A3 =P$+" "
  2400. 4620 P$ = P$ + "VARIANCE"
  2401. 4630 RETURN
  2402. 5100 REM *** READ A HEADER
  2403. IF P2=1 THEN 5170
  2404. 5110 READ #FSHEADS.FIL,H2+1;\
  2405. HEADER.NUM,\
  2406. HEAD.DESCR$,\
  2407. HEAD.CTRL.CHAR$
  2408. 5115 IF HEADER.NUM = -1 THEN HEADER.NUM=9999999999
  2409. 5120 X1 = HEADER.NUM - INT(HEADER.NUM/10000)*10000
  2410. 5130 FOR X = 0 TO H1
  2411. IF X1 = HEADER.NO(X,0) THEN 5160
  2412. NEXT X
  2413. 5140 HEADER.NO(X,0) = X1 : HEADER.NO(X,1) = H2 : H1 = H1 + 1
  2414. 5160 H2 = H2 + 1 : GOTO 5190
  2415. 5170 IF H4 0
  2416. 5210 REM *** READING BUDGETARY ACCOUNTS
  2417. READ #ACCTS.FIL,P+1;\
  2418. BUDGET.ACCT.NUM,\
  2419. BUDGET.ACCT.DESCR$,\
  2420. B1,\
  2421. BUDGET.ACCT.NO(0),\
  2422. BUDGET.ACCT.NO(1),\
  2423. BUDGET.ACCT.NO(2),\
  2424. BUDGET.ACCT.NO(3),\
  2425. BUDGET.ACCT.NO(4),\
  2426. BUDGET.ACCT.NO(5),\
  2427. BUDGET.ACCT.NO(6),\
  2428. BUDGET.ACCT.NO(7),\
  2429. BUDGET.ACCT.NO(8),\
  2430. BUDGET.ACCT.NO(9),\
  2431. BUDGET.ACCT.NO(10),\
  2432. BUDGET.ACCTIF BUDGET.ACCT.NUM < A5 THEN 5320
  2433. 5300 BUDGET.ACCT.NUM=A5 : BUDGET.ACCT.DESCR$=A5$ : B1=0 : D1=P1+10000
  2434. FOR X=0 TO 12
  2435. BUDGET.ACCT.NO(X)=0
  2436. NEXT X
  2437. 5310 P1 = P1 + 1 : GOTO 5340
  2438. 5320 A5 = BUDGET.ACCT.NUM : A6 = 0 : A7 = 0 : P = P + 1
  2439. 5325 IF BUDGET.ACCT.NUM = 9999999999 AND A5=9999999999 THEN D4 = 1 : GOTO 5340
  2440. 5330 P = P + 1 : P1 = P1 + 1
  2441. 5340 GOTO 5500
  2442. 5400 IF D3 <= D2 THEN 5405
  2443. 5402 A.XE = 9999999999 : D4 = 1 : BUDGET.ACCT.NUM = A.XE : GOTO 5500
  2444. 5405 A.XE = C(D3,0)EXT I
  2445. 5640 D2 = D2 + 1
  2446. C(I,0) = X
  2447. C(I,1) = N1
  2448. C(I,2) = N2
  2449. C(I,3) = D6
  2450. 5650 GOTO 5680
  2451. 5670 C(I,1) = C(I,1) + N1 : C(I,2) = C(I,2) + N2
  2452. 5680 RETURN
  2453. 6000 REM *** ROUTINE TO CALCULATE % OF SALES
  2454. IF P2 THEN 6500
  2455. T3 = HEADER.NUM : T1 = 0 : T2 = 0 : P9 = 1
  2456. 6010 IF HEADER.NUM =-1 THEN 6200
  2457. 6020 GOSUB 5100
  2458. 6030 IF MID$(HEAD.CTRL.CHAR$,3,1) <> "%" THEN 6010
  2459. 6040 T4 = A.XE : GOSUB 5200
  2460. 6050 IF A.XE >=HEADER.NUM THEN 6120
  2461. 6060 GOSUB 3000
  2462. 6070 T1 = T1 + N A7
  2463. 6180 GOTO 6130
  2464. 6200 H2 = 0
  2465. 6210 IF HEADER.NUM = T3 THEN 6800
  2466. IF HEADER.NUM = -1 THEN 6230
  2467. 6220 GOSUB 5100 : GOTO 6210
  2468. 6230 HEADER.NUM = 9999999999 : GOTO 6800
  2469. 6500 T3 = HEADER.NUM : T1 = 0 : T2 = 0
  2470. 6505 IF HEADER.NUM = 9999999999 THEN 6570
  2471. 6510 GOSUB 5100
  2472. 6520 IF MID$(HEAD.CTRL.CHAR$,3,1) <> "%" THEN 6505
  2473. 6530 T4 = A.XE
  2474. 6540 IF A.XE > HEADER.NUM OR A.XE = 9999999999 THEN 6570
  2475. 6550 T1 = T1 + N4 : T2 = T2 + N5
  2476. 6560 GOSUB 5200 : GOTO 6540
  2477. 6570 H4 = 0
  2478. 6580 IF T3 = HEADER.NUM THEN 6600
  2479. 6590 GOSUB 5100 : GOTO 6580
  2480. 6600 D3 = 0
  2481. 6610 IF A.XE = T4 THEN 6630
  2482. 6620 GOSUB 5200 : GOTO 6610
  2483. 6630 GOTO 6800
  2484. 6800 RETURN
  2485. 9000 REM *** PUTTING STUFF INTO STRING FOR PRINTING
  2486. X$=" "
  2487. IF S THEN 9060
  2488. 9010 IF N1>=0 THEN 9030
  2489. X$="("+ RIGHT$(X$,LEN(X$)-1)
  2490. X$=LEFT$(X$,2) + ")" + RIGHT$(X$,LEN(X$)-3)
  2491. 9030 IF N2 >=0 THEN 9050
  2492. X$=LEFT$(X$,3) + "(" + RIGHT$(X$,LEN(X$)-4)
  2493. X$=LEFT$(X$,5) + ")" + RIGHT$(X$,LEN(X$)-6)
  2494. 9050 GOTO 9100
  2495. 9060
  2496. 12000 IF F(3) = 2 THEN 12100
  2497. 12010 IF S THEN 12015
  2498. IF N3 < 0 THEN GOTO 12020 ELSE GOTO 12050
  2499. 12015 IF N3 > 0 THEN GOTO 12020 ELSE GOTO 12050
  2500. 12020 X$= "("+RIGHT$(X$,LEN(X$)-1)
  2501. X$=LEFT$(X$,2) + ")" + RIGHT$(X$,LEN(X$)-3)
  2502. 12050 IF H9 AND D THEN X$=LEFT$(X$,1) + "$" + RIGHT$(X$,LEN(X$)-2)
  2503. 12060 LPRINTER
  2504. PRINT MID$(X$,1,2);
  2505. PRINT USING "#########.##";ABS(N3/100);
  2506. PRINT MID$(X$,3,1);
  2507. 12070 GOTO 12130
  2508. 12100 IF N3 > 99999.99 THEN GOTO 12110 ELSE GOTO 12120
  2509. 12105 IREM 072583 - DCF ADDED CHECK FOR NUM.BITS = 8 OR 16
  2510. REM
  2511. REM 071783 - DCF CHANGED A TO A.XE FOR CB80 COMPILE
  2512. REM
  2513. REM 051983 - BTC FIX TO CHECK FOR EMPTY FORMAT FILE BEFORE ATTEMPTING
  2514. REM TO READ THE FORMAT FILE. READING EMPTY FORMAT FILE CAUSES
  2515. REM ERROR IR.
  2516. REM
  2517. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  2518. REM FLANKS TO NFLANKS
  2519. REM
  2520. REM 020883 - (DCF) REPORT IS NOW PRINTING FIRST COLUMN IN ALIGNMENT
  2521. REM AND THE UNDERLINES ARE ALSO ALL LINEEM
  2522. REM
  2523. REM 102582 - (RCB) REVERSED HOLE(8) AND HOLE(9) AND ADDED /100 IN LINE 110
  2524. REM AND ONE AFTER IT SO HOLES ARE IN DOLLARS AND CENTS
  2525. REM
  2526. REM 102382 - (RCB) REMOVED ALL /100 SO DECIMAL POINT WILL BE IN THE RIGHT
  2527. REM PLACE AND REMOVED RIGHT$ IN LINE AFTER 16100 SO LINE
  2528. REM WILL PRINT WITH CONTROLL CHARACTOR AT THE FIRST OF IT
  2529. REM
  2530. REM 101882 - (RCB) FIXED COLON IN WRONG PLACE IN 8000, FIXED X TO N2 AND W2
  2531. REM FOR RECORD POINTERS AND ARRAY POINTERS IN 8200 AND 8210
  2532. REM
  2533. REM ***
  2534. 8040 FOR X = 1 TO 100
  2535. 8050 READ #FMT.FIL,X;ASCII$(X),NUM(X)
  2536. IF ASCII$(X) = "-1" THEN EOF = X-1 : GOTO 8110
  2537. 8100 NEXT X
  2538. 8108
  2539. PRINT #FMT.FIL,X;"-1",0.0
  2540. EOF = X -1
  2541. 8110 X1 = 0 : W2 = -1 : N2 = -1
  2542. REM EAT UP FROM BOTTOM LOOKING FOR FIRST NUMBER RECORD FROM BOTTOM
  2543. REM STICK IT IN W2
  2544. X = EOF
  2545. 8120 IF LEFT$(ASCII$(X),1) <> "D" AND LEFT$(ASCII$(X),1) <> "S" \
  2546. AND NUM(X) <> .05 THEN W2 = X : NUM(X) = N1 : GOTO 8130
  2547. X = X -1
  2548. IF X > 1 THEN GOTO 8120
  2549. REM EAT DOWN FROM TOP TO FIND THE FIIF N1 <= 0 THEN 9080
  2550. X$= "(" +RIGHT$(X$,LEN(X$)-1)
  2551. X$=LEFT$(X$,2) + ")" + RIGHT$(X$,LEN(X$)-3)
  2552. 9080 IF N2 <=0 THEN 9100
  2553. X$=LEFT$(X$,3) + "(" + RIGHT$(X$,LEN(X$)-4)
  2554. X$=LEFT$(X$,5) + ")" + RIGHT$(X$,LEN(X$)-6)
  2555. 9100 IF D<>1 THEN 9120
  2556. X$=LEFT$(X$,1) + "$" + RIGHT$(X$,LEN(X$)-2)
  2557. X$=LEFT$(X$,4)+ "$" + RIGHT$(X$,LEN(X$)-5) : D = 0
  2558. 9120 IF P9 THEN X$=LEFT$(X$,6) + "%" + RIGHT$(X$,LEN(X$)-7)
  2559. 9130 IF F(3)=3 THEN X$=LEFT$(X$,6) + "%" + RIGHT$(X$,LEN(X$)-7)
  2560. 9140 RETURNF N3 < -9999.99 THEN GOTO 12110 ELSE GOTO 12120
  2561. 12110 LPRINTER
  2562. PRINT" *****.**%"; : GOTO 12130
  2563. 12120 LPRINTER
  2564. PRINT" ";
  2565. PRINT USING "#####.##";N3;
  2566. PRINT "%";
  2567. 12130 RETURN
  2568. %INCLUDE NFLANKS.BAS
  2569. %INCLUDE 5000
  2570. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞D UP
  2571. REM
  2572. REM 020883 - (DCF) CHANGED PRINT CLR$ TO GOSUB 9005
  2573. REM
  2574. REM 111182 - (RCB) DELETED GOTO 8320 AT END OF LINE 8310 SO FEEL FOR
  2575. REM MENU.INT WILL HAPPEN - ALSO REMOVED INT FUNCTION
  2576. REM FROM LINE 16300 SO CENTS WILL PRINT OUT
  2577. REM
  2578. REM 102682 - (RCB) ADDED LINE AFTER 16100 TO ADD AN EXTRA SPACE ON TEXT LINES
  2579. REM TO CONFORM WITH WHAT THE EDITOR SHOWS ON THE SCREEN
  2580. REM
  2581. REM 102682 - (RCB) ADDED = 1 TO IF STATEMENTS IN LINES 16200, 16280, 16310
  2582. REM FOR THE FIX THE <BRACKET> PROLB PROGRAM TO UPDATE THE STATEMENT OF CHANGES SOCUP (VER 4.0)
  2583. REM *** COPYRIGHT 1982 BY Dimis Micro Systems
  2584. %INCLUDE COMMON.BAS
  2585. 60 DIM ASCII$(100),NUM(100),A(6)
  2586. 80 GOSUB 9005
  2587. PRINT "NOW UPDATING THE STATEMENT OF CHANGES . . . "
  2588. REM NET PROFIT
  2589. 110 N1 = HOLE(9)/100
  2590. REM VAL(W2$)
  2591. REM NET INCREASE OR DECREASE IN WORKING CAPITAL
  2592. W1 = HOLE(8)/100
  2593. REM VAL(W3$)
  2594. 8000 OPEN FIL$(10) + ":" + CLIENT$ + "FMT.FIL" RECL 100 AS 1 : FMT.FIL = 1
  2595. 8010
  2596. 8020
  2597. 8030 IF END #1 THEN 8108
  2598. RST NUMBER RECORD - MUST BE LESS THAN
  2599. REM THEN W2 FROM ABOVE - STICK IT IN N2
  2600. 8130 X = 1
  2601. 8140 IF LEFT$(ASCII$(X),1) <> "D" AND LEFT$(ASCII$(X),1) <> "S" \
  2602. AND NUM(X) <> .05 THEN N2 = X : NUM(X) = W1 : GOTO 8200
  2603. 8150 X = X + 1
  2604. 8160 IF X < EOF AND X < W2 THEN 8140
  2605. 8200 REM CHECK FOR N2=0, WHICH HAPPENS IF FORMAT FILE IS EMPTY
  2606. IF N2=0 THEN \
  2607. PRINT CHR$(7); : PRINT "WARNING - A STATEMENT OF CHANGES CANNOT BE PRINTED" : \
  2608. PRINT "UNTIL THE FORMAT FILE HAS BEEN SETUP. USE MENU OPTION 7 TO SETUP" : \
  2609. PRINT "THE FORMAT FILE. SEE YOUR MANUAL FOR MORE INFORMATION" : \
  2610. PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 : GOSUB 9998 : \
  2611. CLOSE 1 : GOTO 8310
  2612. IF N2 <> -1 THEN \
  2613. PRINT #FMT.FIL,N2;ASCII$(N2),NUM(N2)
  2614. 8210 REM CHECK FOR W2=0, WHICH HAPPENS IF FORMAT FILE IS EMPTY
  2615. IF W2=0 THEN \
  2616. PRINT CHR$(7); : PRINT "WARNING - A STATEMENT OF CHANGES CANNOT BE PRINTED" : \
  2617. PRINT "UNTIL THE FORMAT FILE HAS BEEN SETUP. USE MENU OPTION 7 TO SETUP" : \
  2618. CONTINUE "; : FLD.LEN% = 1 : GOSUB 9998
  2619. 8340 CHAIN PGM$(3) + ":MENU"
  2620. 10190 GOTO 8315
  2621. 16000 PRINT CHR$(12); : A.XE = 1 : X9 = 3
  2622. 16005 PRINT TAB(13);"STATEMENT OF CHANGES IN FINANCIAL POSITION WORKSHEET" : PRINT
  2623. P = 1
  2624. 16020 IF P > EOF THEN 16150
  2625. 16030 H$ = ASCII$(P) : XE.NUM = NUM(P)
  2626. 16040 P = P + 1
  2627. 16050 IF LEFT$(H$,1) = "-" THEN B = 1
  2628. 16060 IF LEFT$(H$,1)="+" THEN B=0
  2629. IF LEFT$(H$,1)<>"P" THEN 16070
  2630. PRINT CHR$(12);
  2631. 16065 GOTO 16140
  2632. 16070 IF LEFT$(H$,1)="$" THEN D2=1 ELSE D2=0
  2633. IF LEFT$(HEN 16130
  2634. 16120 GOSUB 16330 : GOSUB 16200
  2635. IF D3 OR S THEN PRINT " TL:";RIGHT$(STR$(XE.NUM),1);
  2636. 16130 PRINT
  2637. 16140 GOTO 16020
  2638. 16150 GOSUB 16170 : PRINT CHR$(12);
  2639. 16160 RETURN
  2640. 16170 IF A(6) = 0 THEN 16190
  2641. 16180 PRINT " THIS STATEMENT IS OUT OF BALANCE BY ";
  2642. PRINT USING "#########.##";A(6)
  2643. 16190 RETURN
  2644. 16200 IF B = 1 AND N2 > 0 THEN X = 1 ELSE X = 0
  2645. 16270 IF B = 0 AND N2 < 0 THEN X = 1
  2646. 16280 IF X = 1 THEN PRINT "<";ELSE PRINT " ";
  2647. 16290 IF D2 THEN PRINT "$"; ELSE PRINT " ";
  2648. 16300 PRINT U
  2649. 16500 FOR X = 1 TO 5
  2650. 16510 PRINT "-- -------------------------------------";
  2651. 16515 PRINT " -------------- -------------"
  2652. 16520 NEXT X : RETURN
  2653. %INCLUDE NFLANKS.BAS
  2654. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞REM **********************************************************************
  2655. REM ****** 8 BIT Z80 - 8080 VERSION
  2656. COMMON XY%,CLR$,CLR.DLY%,CUR$,CUR.DLY%,X.OFF%,Y.OFF%,EOS$,EOL$,HOME$,REVLF$, \
  2657. DUPE.KEY$,FIL$(1),PGM$(1),CLIENT$,HOLE(1),LOC,SERIAL$,VERSION$, \
  2658. OPTION$
  2659. NUM.BITS% = 8
  2660. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞 PRINT "THE FORMAT FILE. SEE YOUR MANUAL FOR MORE INFORMATION" : \
  2661. PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 : GOSUB 9998 : \
  2662. CLOSE 1 : GOTO 8310
  2663. IF W2 <> -1 THEN \
  2664. PRINT #FMT.FIL,W2;ASCII$(W2),NUM(W2)
  2665. 8300 LPRINTER : GOSUB 16000 : CONSOLE
  2666. 8310 GOSUB 9005 : PRINT
  2667. 8315 IF NUM.BITS% = 8 THEN EXT$ = ".OVL" ELSE EXT$ = ".OVR"
  2668. IF SIZE(PGM$(3) + ":MENU"+EXT$) <> 0 THEN 8340
  2669. 8320 PRINT "PLEASE INSERT THE PROGRAM DISK IN DRIVE ";PGM$(3)
  2670. 8330 PRINT " PRESS RETURN TO $,1)="C" THEN C1=1 ELSE C1=0
  2671. 16080 IF LEFT$(H$,1)="D" THEN D3=1 ELSE D3=0
  2672. IF LEFT$(H$,1)="S" THEN S=1 ELSE S=0
  2673. 16090 IF LEFT$(H$,1)="W" THEN W=1 ELSE W=0
  2674. 16100 IF D3 OR S THEN GOSUB 16500
  2675. IF LEN(H$) < 9 THEN 16103
  2676. IF MID$(H$,LEN(H$),1) = MID$(H$,LEN(H$)-1,1) THEN \
  2677. H$ = LEFT$(H$,LEN(H$)-2)
  2678. 16103 IF XE.NUM = .05 THEN PRINT LEFT$(H$,1)+" "+RIGHT$(H$,LEN(H$)-1); ELSE PRINT H$;
  2679. X9 = X9 + 1
  2680. 16105 IF X9 < 55 THEN 16110
  2681. PRINT CHR$(12); : PRINT : PRINT : X9 = 3
  2682. 16110 IF XE.NUM = .05 THSING "##,###,###.##";ABS(N2);
  2683. 16310 IF X = 1 THEN PRINT ">";
  2684. 16320 RETURN
  2685. 16330 IF D3 THEN 16380
  2686. IF S THEN 16390
  2687. 16340 IF C1 THEN 16430
  2688. IF W THEN 16440
  2689. 16350 N2 = XE.NUM
  2690. 16360 FOR X = 1 TO 6 : A(X) = A(X) + N2 : NEXT X
  2691. 16370 GOTO 16470
  2692. 16380 D2 = 1
  2693. 16390 IF XE.NUM > 5 OR XE.NUM < 1 THEN XE.NUM = 1
  2694. 16400 N2 = A(XE.NUM)
  2695. 16410 FOR X = 1 TO XE.NUM : A(X) = 0 : NEXT X
  2696. 16420 GOTO 16470
  2697. 16430 D2 = 1
  2698. 16440 N2 = XE.NUM
  2699. 16450 FOR X =1 TO 5 : A(X) = 0 : NEXT X
  2700. 16460 A(6) = A(6) - N2
  2701. 16470 RETURN 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞REM 031783 - (RCB) MODIFIED TO ALLOW HOT KEYBOARD ON 1 CHARACTOR
  2702. REM INPUT ONLY (FLD.LEN% = 0) - OTHER LENTH WILL
  2703. REM FREEZE AND BEEP AT FIELD LIMIT - ADDED DESTRUCTIVE BACKUP
  2704. REM
  2705. REM 021783 - (RCB) ADDED ; AFTER ERR$ TO TRY TO FIX SCROLLING
  2706. REM
  2707. REM 112282 - (RCB) CHANGED 9009.1 FROM EOS$ TO USING EOL$ FOR IBM PC ONLY
  2708. REM
  2709. REM - 090882 FIX FOR ONLY THE FIRST KEY OF ANY INPUT CAN BE DUPE KEY
  2710. REM
  2711. 2000 GOSUB 9009
  2712. X%= INT(40 - (LEN(ERR$)+12)/2)
  2713. Y% = 19 : GOSUB 9006
  2714. PRINT CUR$;CHR$(X.POS%);CHR$(Y.POS%); \
  2715. ELSE \
  2716. PRINT CUR$;CHR$(Y.POS%);CHR$(X.POS%);
  2717. FOR DELAY=0 TO CUR.DLY% : NEXT DELAY
  2718. RETURN
  2719. 9009 REM CLEAR TO END OF SCREEN
  2720. X%=0 : Y% = 19 : GOSUB 9006
  2721. 9009.1 FOR XE.EOS = Y% TO 22
  2722. PRINT EOL$
  2723. NEXT XE.EOS
  2724. PRINT EOL$;
  2725. GOSUB 9006
  2726. RETURN
  2727. 9998 REM --- TRAP SPECIAL CHARACTERS ---
  2728. REPLY$="" : CHAR%=0 : ACT.LEN%=0 : DOT.OVER% = 0
  2729. REM FLD.LEN% < 0 GOTO 9998.2
  2730. IF CHAR% = 8 AND ACT.LEN% = 0 THEN \
  2731. GOTO 9998.2
  2732. IF CHAR% = 127 OR CHAR% = 8 THEN \
  2733. PRINT CHR$(8);" ";CHR$(8);
  2734. IF CHAR% = 127 OR CHAR% = 8 THEN \
  2735. ACT.LEN%=ACT.LEN%-1 : \
  2736. REPLY$=LEFT$(REPLY$,LEN(REPLY$)-1) ELSE GOTO 9998.4
  2737. IF DOT.OVER% THEN DOT.OVER% = DOT.OVER% - 1
  2738. GOTO 9998.7
  2739. 9998.4 IF CAR% = 46 THEN DOT.OVER% = DOT.OVER% + 1
  2740. 9998.6 ACT.LEN%=ACT.LEN% + 1
  2741. IF ACT.LEN%>FLD.LEN% AND DOT.OVER% THEN DOT.OVER% = DOT.OVER% - 1
  2742. IF ACT.LEN%>FLD.LEN% AND FLD.LEN% <> 0 THEN \
  2743. PRINT CHR$(7); : ACT.LEN% = ACT.LEN% -1 : \
  2744. GOTO 9998.7
  2745. PRINT CHR$(CHAR%);
  2746. REPLY$=REPLY$+CHR$(CHAR%)
  2747. IF ACT.LEN%>FLD.LEN% THEN \
  2748. CHAR%=13
  2749. 9998.7 WEND
  2750. REM "PRINT CHR$(CHAR%); INSERTED FOR CB80/86 TO CAUSE CURSOR
  2751. REM TO LINREM 110185 - RML - RESET THE EMPLOYER FICA RATE (XE.L4) TO BE EQUAL TO THE
  2752. REM EMPLOYEE FICA RATE (L(4))
  2753. REM
  2754. REM 112084 - SRS CORRECTED 1985 EMPLOYER'S FICA RATE TO BE 7.05%
  2755. REM
  2756. REM 100683 - (RCB) ADDED LINE 1000 AND CHANGED L(4) TO XE.L4 IN TWO INSTANCES
  2757. REM AFTER LINE 1000 TO FORCE EMPLOYERS FICA RATE TO .07 (7%)
  2758. REM IN 1984
  2759. REM
  2760. REM 071283 - DCF CHANGED VARIABLE H TO H.XE FOR CB80 COMPILE
  2761. REM
  2762. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  2763. REM FLANKS T PRINT "***** ";ERR$;" *****";
  2764. RETURN
  2765. 2100 X%=0 : Y% = 21 : GOSUB 9006 : GOSUB 9009.1
  2766. X%=INT(40-(LEN(MSSG$)/2)) : GOSUB 9006
  2767. PRINT MSSG$;
  2768. RETURN
  2769. 9005 PRINT CLR$;:FOR DELAY=0 TO CLR.DLY% : NEXT DELAY
  2770. RETURN
  2771. 9006 REM CURSOR POSITIONING ROUTINE
  2772. PRINT HOME$
  2773. X.POS%=X% + X.OFF% : Y.POS% = Y% + Y.OFF%
  2774. IF XY%=2 AND X.POS%<31 THEN \
  2775. X.POS% = X.POS% + 96
  2776. IF XY% = 1 OR XY% = 2 THEN \ THEN LIMIT TO 0-9 AND "-" IN FIRST CHARACTOR
  2777. IF FLD.LEN% < 0 THEN FLD.LEN% = ABS(FLD.LEN%) : NUM.ONLY = -1 \
  2778. ELSE NUM.ONLY = 0
  2779. WHILE CHAR%<>13
  2780. 9998.2 CHAR%=INKEY
  2781. REM ************* MODIFIED FOR AUTO DUPE KEY **************
  2782. IF CHAR% = ASC(DUPE.KEY$) AND ACT.LEN% = 0 THEN \
  2783. REPLY$ = DUPE.KEY$ : CHAR% = 13 : GOTO 9998.7
  2784. REM IF CHAR% = 46 AND DOT.OVER% THEN PRINT CHR$(8);" ";CHR$(8);CHR$(7); : \
  2785. REM GOTO 9998.7
  2786. IF CHAR%=127 AND ACT.LEN% = 0 THEN \
  2787. HAR%<32 OR CHAR%>125 THEN 9998.7
  2788. IF CHAR%=34 THEN CHAR%=39
  2789. REM **** FILTER OUT NON-NUMERICS IF NUM.ONLY% WAS SET TO -1 (FLD.LEN% < 0) ****
  2790. IF NUM.ONLY = 0 OR CHAR% = 13 THEN 9998.6
  2791. IF CHAR% = 45 AND ACT.LEN% = 0 THEN 9998.6
  2792. IF CHAR% = 46 AND DOT.OVER% = 0 THEN DOT.OVER% = 1 : GOTO 9998.6
  2793. IF CHAR% < 48 OR CHAR% > 57 THEN \
  2794. PRINT CHR$(7); : \
  2795. GOTO 9998.7
  2796. REM *************************************************************
  2797. IF DOT.OVER% THEN DOT.OVER% = DOT.OVER% + 1
  2798. REM IF CHE FEED AN RETURN WHEN RETURN IS PRESSED
  2799. IF FLD.LEN% <> 0 THEN PRINT CHR$(CHAR%);
  2800. RETURN
  2801. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞O NFLANKS
  2802. REM
  2803. REM *** 9/23/82 DTK - NEW FILE SIZE AND CHAIN PGM$
  2804. REM ***
  2805. REM *** 9/14/82 DTK - FIXED .01 AMOUNT IN EMPLOYER FICA
  2806. REM ***
  2807. REM *** 9/14/82 DTK - FIXED DEDUCTION PRINTING TO PRINT USING TO GET ZEROS
  2808. REM ***
  2809. REM ***PAYROLL SUMMARY (SUMMARY) (10D)
  2810. REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC. (VERSION 4.0)
  2811. REM 648 SOUTH RIVER DR. 602-968-7101
  2812. REM TEMPE, AZ. 85281
  2813. %INCLUDE COMMON
  2814. M=500
  2815. DIM A(10),H(M),L(10)
  2816. B$=" "
  2817. L$="----------------------------------------------------------------"
  2818. FORM.12F2$ = "#,###,###.##"
  2819. OPEN FIL$(2)+":"+CLIENT$+"CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL = 1
  2820. OPEN FIL$(3)+":"+CLIENT$+"EAR.FIL" RECL 525 AS 2 : EARNREC.FIL = 2
  2821. OPEN FIL$(6)+":"+CLIENT$+"PAS.FIL" RECL 175 AS 3 : PASSVAR.FIL = 3
  2822. GOSUB 10000.1
  2823. GOSUB 9005
  2824. PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
  2825. PRINT " +++++ NOW PRINTING PAYROLL JOURNAL SUMMARY ++PLOYER FICA";TAB(29);
  2826. PRINT USING FORM.12F2$;K2/100;
  2827. PRINT TAB(41);
  2828. REM IF MID$(D9$,5,2) = "84" THEN XE.L4 = .07 ELSE XE.L4 = .0705
  2829. REM RESET EMPLOYER FICA RATE TO BE EQUAL TO THE EMPLOYEE FICA RATE
  2830. 1000 XE.L4 = L(4)
  2831. PRINT USING FORM.12F2$;(XE.L4*100);
  2832. PRINT "%";
  2833. PRINT TAB(54);
  2834. PRINT USING FORM.12F2$;INT(K2*(XE.L4)+.5)/100
  2835. PRINT
  2836. PRINT TAB(5);"EMPLOYEE FICA";TAB(29);
  2837. PRINT USING FORM.12F2$;K1/100;
  2838. PRINT TAB(41);
  2839. PRINT USING FORM.12F2$;L(4)*100;
  2840. PRINT "%";
  2841. PRINT TAB(54);
  2842. P);
  2843. PRINT USING FORM.12F2$;T6/100;
  2844. PRINT TAB(41);
  2845. PRINT USING FORM.12F2$;L(4)*100;
  2846. PRINT "%";
  2847. PRINT TAB(54);
  2848. PRINT USING FORM.12F2$;INT(T6*L(4)+.5)/100
  2849. PRINT
  2850. 2841 PRINT TAB(5);"TAXABLE SDI";TAB(29);
  2851. PRINT USING FORM.12F2$;D6/100;
  2852. PRINT TAB(41);
  2853. PRINT USING FORM.12F2$;L(7)*100;
  2854. PRINT "%";
  2855. PRINT TAB(54);
  2856. PRINT USING FORM.12F2$;INT(D6*L(7)+.5)/100
  2857. PRINT : PRINT : PRINT
  2858. 2860 J=1 : K=3
  2859. 2870 PRINT TAB(5);"SUMMARY OF OTHER DEDUCTIONS"
  2860. PRINT TAB(5);LEFT$(L$,27)
  2861. 289,2);"/";MID$(D9$,3,2);"/";MID$(D9$,5,2)
  2862. 2990 PRINT TAB(5);LEFT$(L$,37)
  2863. 3000 PRINT TAB(5);"1ST-3TH DAY = ";TAB(30);
  2864. PRINT USING FORM.12F2$;M1/100
  2865. 3005 PRINT TAB(5);"4TH-7TH DAY = ";TAB(30);
  2866. PRINT USING FORM.12F2$;M7/100
  2867. 3010 PRINT TAB(5);"8TH-11TH DAY = ";TAB(30);
  2868. PRINT USING FORM.12F2$;M2/100
  2869. 3015 PRINT TAB(5);"12TH-15TH DAY = ";TAB(30);
  2870. PRINT USING FORM.12F2$;M6/100
  2871. 3020 PRINT TAB(5);"16TH-19ND DAY = ";TAB(30);
  2872. PRINT USING FORM.12F2$;M3/100
  2873. 3025 PRINT TAB(5);"20TH-22TH DAY = ";TAB(3
  2874. 3085 PRINT TAB(5);"DEPT.";TAB(15);"REG. WAGES";TAB(32);"OVT. & BONUS";
  2875. 3086 PRINT TAB(50);"MEALS & LODGING";TAB(75);"TIPS"
  2876. 3090 PRINT L$;LEFT$(L$,16)
  2877. RETURN
  2878. 3095 GOSUB 3070
  2879. T=0 : B=99999
  2880. 3100 C=0
  2881. 3110 IF END #EARNREC.FIL THEN 3170
  2882. X = C : GOSUB 10000 : REM READ EARNREC.FIL
  2883. N = EMP.NO
  2884. IF N = -1 THEN 3170
  2885. IF T<N THEN T=N
  2886. IF B>N THEN B=N
  2887. H(C)=N
  2888. C=C+1
  2889. 3150 GOTO 3110
  2890. 3170 FOR X= INT(B/1000) TO INT(T/1000)+1
  2891. D=99
  2892. 3180 FOR Y=0 TO C-1
  2893. 3190 IF INT(H(Y+++"
  2894. GOSUB 4040
  2895. LPRINTER
  2896. PRINT CHR$(12),
  2897. PRINT : PRINT
  2898. PRINT TAB(5);C1$;TAB(60);"CLIENT NUMBER ";
  2899. PRINT USING "#######";C9
  2900. PRINT TAB(5);"PAYROLL SUMMARY";
  2901. PRINT TAB(60);"RUN NUMBER ";R8
  2902. PRINT TAB(5);"FOR PERIOD ENDING ";MID$(D9$,1,2);"/";MID$(D9$,3,2);"/";MID$(D9$,5,2)
  2903. PRINT : PRINT
  2904. PRINT TAB(32);"CURRENT";TAB(57);"CURRENT"
  2905. PRINT TAB(32);"PERIOD";TAB(58);"PERIOD"
  2906. PRINT TAB(32);"TAXABLE";TAB(48);"RATE";TAB(61);"TAX"
  2907. PRINT TAB(5);LEFT$(L$,61)
  2908. PRINT
  2909. PRINT TAB(5);"EMRINT USING FORM.12F2$;INT(K1*L(4)+.5)/100
  2910. PRINT
  2911. PRINT TAB(5);"STATE UNEMP.";TAB(29);
  2912. PRINT USING FORM.12F2$;G8/100;
  2913. PRINT TAB(41);
  2914. PRINT USING FORM.12F2$;L(5)*100;
  2915. PRINT "%";
  2916. PRINT TAB(54);
  2917. PRINT USING FORM.12F2$;INT(G8*L(5)+.5)/100
  2918. PRINT
  2919. PRINT TAB(5);"FEDERAL UNEMP.";TAB(29);
  2920. PRINT USING FORM.12F2$;K8/100;
  2921. PRINT TAB(41);
  2922. PRINT USING FORM.12F2$;L(6)*100;
  2923. PRINT "%";
  2924. PRINT TAB(54);
  2925. PRINT USING FORM.12F2$;INT(K8*L(6)+.5)/100
  2926. PRINT
  2927. PRINT TAB(5);"TAXABLE TIPS";TAB(290 FOR H.XE=1.0 TO FLOAT(LEN(A$)) STEP 3.0
  2928. IF MID$(A$,H.XE,3)=" "THEN GOTO 2910
  2929. PRINT TAB(5);MID$(A$,H.XE,3);TAB(20);
  2930. PRINT USING "###,###.##";A((H.XE-1)/3)/100
  2931. 2910 NEXT H.XE
  2932. 2920 PRINT TAB(20);"------------"
  2933. 2930 PRINT TAB(5);"TOTAL OTHER ";
  2934. 2940 PRINT USING "###,###.##";A(10)/100
  2935. PRINT : PRINT : PRINT : PRINT
  2936. 2960 PRINT TAB(5);"BREAKDOWN OF FICA & FWH TAX LIABILITY BY ";
  2937. 2970 PRINT "EIGHT SEGMENTS/MONTH"
  2938. 2980 PRINT TAB(5);"FOR CURRENT PERIOD ENDING ";MID$(D9$,10);
  2939. PRINT USING FORM.12F2$;M5/100
  2940. 3030 PRINT TAB(5);"23RD-25TH DAY = ";TAB(30);
  2941. PRINT USING FORM.12F2$;M0/100
  2942. 3035 PRINT TAB(5);"26TH-E.O.M. = ";TAB(30);
  2943. PRINT USING FORM.12F2$;M4/100
  2944. 3040 PRINT TAB(5);LEFT$(L$,37)
  2945. 3050 PRINT TAB(5);"TOTAL LIABILITY";TAB(30);
  2946. PRINT USING FORM.12F2$;(M7+M6+M5+M4+M0+M1+M2+M3)/100
  2947. 3060 PRINT CHR$(12);
  2948. 3065 GOTO 3095
  2949. 3070 PRINT : PRINT : PRINT
  2950. P=8
  2951. 3080 PRINT TAB(10);"RECAP OF WAGES BY DEPARTMENT NUMBER USED FOR CURRENT MONTH"
  2952. 3082 PRINT )/1000)<>X THEN 3220
  2953. 3200 SAVE.X = X : X = Y : GOSUB 10000
  2954. N = REG.WAGES
  2955. O = OVERTIME.WAGES
  2956. M = MEALS.AND.LODGING
  2957. T9= TIPS
  2958. X = SAVE.X
  2959. 3210 N1=N1+N : O1=O1+O : O8=O8+M : T1=T1+T9
  2960. 3215 N2=N2+N : O2=O2+O : O6=O6+M : T2=T2+T9
  2961. 3220 IF INT(H(Y)/1000)-X<D AND INT(H(Y)/1000)-X>0 THEN \
  2962. D=INT(H(Y)/1000)-X
  2963. 3225 NEXT Y
  2964. 3230 IF N1+O1+O8+T1=0 THEN 3300
  2965. 3250 PRINT TAB(8);
  2966. PRINT USING "##";X;
  2967. PRINT TAB(12);
  2968. PRINT USING FORM.12F2$;N1/100;
  2969. PRINT USING FORM.12F2$;TAB(32);O1/100;
  2970. 3260 PRINT TAB(53);
  2971. PRINT USING FORM.12F2$;O8/100;
  2972. PRINT TAB(67);
  2973. PRINT USING FORM.12F2$;T1/100
  2974. 3270 PRINT
  2975. P=P+3
  2976. 3280 IF P>60 THEN GOSUB 3070
  2977. 3290 N1=0 : O8=0 : O1=0 : T1=0
  2978. 3295 IF D<>0 THEN X=X+D-1
  2979. 3300 NEXT X
  2980. 3310 PRINT L$;LEFT$(L$,16)
  2981. 3320 PRINT TAB(5);"TOTAL:";
  2982. 3330 PRINT TAB(12);
  2983. PRINT USING FORM.12F2$;N2/100;
  2984. PRINT TAB(32);
  2985. PRINT USING FORM.12F2$;O2/100;
  2986. 3340 PRINT TAB(53);
  2987. PRINT USING FORA(10) =TOT.OTHER.DED
  2988. M7 =TAX.LIAB.1ST
  2989. M6 =TAX.LIAB.2ND
  2990. M5 =TAX.LIAB.3RD
  2991. M4 =TAX.LIAB.4TH
  2992. M1 =TAX.LIAB.1.3
  2993. M2 =TAX.LIAB.8.11
  2994. M3 =TAX.LIAB.16.19
  2995. M0 =TAX.LIAB.23.25
  2996. EMPLOYER.FICA = 1
  2997. GOSUB 10030.1
  2998. 4110 X1=0
  2999. 4116 GOSUB 5000 : REM READ CLNRNM.FIL
  3000. C9 = CLIENT.NO
  3001. C1$ = CLIENT.NAME$
  3002. C2$ = GL.END.DATE$
  3003. D9$ = PAY.END.DATE$
  3004. R8 = RUN.NUMBER
  3005. L(0) = MAX.FICA.WAGES
  3006. L(1) = MAX.ST.UNEMP
  3007. L(2) = MAX.FED.UNEMP
  3008. L(3) = MAX.ST.DIS.WAGES
  3009. L(4) = EMP.FICA.RATE
  3010. L(5) = ST.UNEAFTER"
  3011. PRINT TAB(10),"THE PROGRAMS 'PAYROLL' AND 'PAYROLL2' HAVE BEEN RUN IN THEIR"
  3012. PRINT TAB(10),"PROPER SEQUENCE !"
  3013. PRINT : PRINT : PRINT
  3014. PRINT " PRESS RETURN TO GO TO PAYROLL MENU ";
  3015. FLD.LEN%= 1 : GOSUB 9998 : PRINT
  3016. GOTO 3350
  3017. %INCLUDE 5000
  3018. %INCLUDE 10000
  3019. %INCLUDE 10020
  3020. %INCLUDE 10030
  3021. %INCLUDE NFLANKS
  3022. N MADE. THE INFORMATION NEEDED TO PREPARE THE REPORTS"
  3023. 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
  3024. REM
  3025. REM 112084 - SRS - CORRECTED 1985 EMPLOYER'S FICA RATE TO BE 7.05%
  3026. REM
  3027. REM 010384 - (RCB) PUT IN LINE A FEW LINES AFTER 180 TO SET XE.L4 TO
  3028. REM .07 IF THE YEAR IS "84" OR L(4) IF NOT - AND CHANGED
  3029. REM LINES FORM AROUND 1040 THROUGH 1100 TO MULTIPLY
  3030. REM J6 BY XE.L4 ( + INT((XE.L4 * J6) +.5))
  3031. REM
  3032. REM 102783 - (RCB) ADD CHANGES FOR NEGATIVE CHECK BACKING OUT DURRING
  3033. REM FICA CUT OFF CROSS OVER AROUND 88CSS BY CHANGING VARIABLE LOCAL.WTIH.1
  3034. REM TO THE CORRECT VARIABLE USED LOCAL.WITH.1
  3035. REM
  3036. REM *** 042283 DCF - FIXED BUG #29041983-3-IMP BY CHECKING FOR A <CR> WHEN ENTERING
  3037. REM AN EMPLOYEE NUMBER
  3038. REM
  3039. REM *** 041983 DCF - FIXED BUG #1-041483-3-IJH BY CHANGING FORMATTED PRINTING
  3040. REM TO ALLOW FOR A LARGER # IN CHECK BALANCE AND OUT OF BALANCE
  3041. REM CONDITION.
  3042. REM
  3043. REM *** 040883 DCF - FIXED BUG CODE #040883-3-IMP, CHANGED LINEM.12F2$;O6/100;
  3044. PRINT TAB(67);
  3045. PRINT USING FORM.12F2$;T2/100
  3046. 3345 PRINT CHR$(12);
  3047. 3350 CONSOLE
  3048. CHAIN PGM$(2)+":PMENU"
  3049. 4040 F8$="PASSVAR,1"
  3050. GOSUB 10020.1
  3051. K2 =EMPLOYER.FICA
  3052. K1 =EMPLOYEE.FICA
  3053. G8 =STATE.UNEMP
  3054. K8 =FED.UNEMP
  3055. T6 =TAX.TIPS
  3056. D6 =TAX.ST.DIS
  3057. A$ =DED.DESC$
  3058. A(0)=OTHER.DED.1
  3059. A(1)=OTHER.DED.2
  3060. A(2)=OTHER.DED.3
  3061. A(3)=OTHER.DED.4
  3062. A(4)=OTHER.DED.5
  3063. A(5) =OTHER.DED.6
  3064. A(6) =OTHER.DED.7
  3065. A(7) =OTHER.DED.8
  3066. A(8) =OTHER.DED.9
  3067. A(9) =OTHER.DED.10
  3068. MP.RATE
  3069. L(6) = FED.UNEMP.RATE
  3070. L(7) = ST.DIS.RATE
  3071. RETURN
  3072. 10000.1 GOSUB 9005
  3073. PRINT : PRINT : PRINT : PRINT : PRINT
  3074. PRINT TAB(20),"***** CHECK PRINTER STATUS *****"
  3075. PRINT : GOSUB 9005
  3076. RETURN
  3077. 12000 CONSOLE
  3078. GOSUB 9005
  3079. PRINT : PRINT : PRINT : PRINT
  3080. PRINT TAB(14),"AN ATTEMPT TO RUN SUMMARY OUT OF ITS PROPER SEQUENCE"
  3081. PRINT TAB(10),"HAS BEEN MADE. THE INFORMATION NEEDED TO PREPARE THE REPORTS"
  3082. PRINT TAB(10),"THAT THIS PROGRAM GENERATES IS ONLY AVAILABLE DIRECTLY 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞4
  3083. REM
  3084. REM 092683 - (RCB) CHANGED E TO E.NO, F TO F4, P TO PG.NO, L TO L1.XE
  3085. REM PER DCF FOR CB80
  3086. REM
  3087. REM *** 080383 DCF - ADDED UCASE$ WHEN CHECKING FOR VALID 4 CHAR. OF LAST NAME
  3088. REM AND ADDED CHECK OF DUPE KEY FOR THE CHECK AMOUNT FIELD
  3089. REM
  3090. REM 062083 - (RCB) CHANGED "R & B" TO "D M S"
  3091. REM
  3092. REM *** 051883 DCF - FIXED BUG #68-013683-IRML BY CHANGING VARIABLE TOTAL
  3093. REM WHICH WAS BEING DIVIDED BY 10 TO 100
  3094. REM
  3095. REM *** 042283 DCF - FIXED BUG #40042183- 680' FLD.LEN%
  3096. REM FROM 12 TO 10
  3097. REM
  3098. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  3099. REM FLANKS TO NFLANKS
  3100. REM
  3101. REM *** 02/01/83 DCF - ADDED THE TYPE OF RUN TO PRINT OUT ON PAYROL JOURNAL HEADING
  3102. REM ***
  3103. REM *** 02/01/83 DCF - CHANGED PRINT CLR$ TO GOSUB 9005
  3104. REM *** CHANGED 3.6 TO VERSION$
  3105. REM ***
  3106. REM *** 11/15/82 DTK - MORE WORK ON DEDUCTIONS PROBLEM - TRY MATCH(A$)
  3107. REM ***
  3108. REM *** 9/24/82 DTK - FIXED 10 DEDUCTION PROBLEM
  3109. REM ***
  3110. REM *** 09/23/82 DTK - NEW FILE SIZE AND CHAIN PGM$'S
  3111. REM ***
  3112. REM ***PAYROLL JOURNAL AND SUMMARY (PAYROLL2) (10D)
  3113. REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC. (VERSION 4.0)
  3114. REM 648 SOUTH RIVER DR. 602-968-7101
  3115. REM TEMPE, AZ. 85281
  3116. %INCLUDE COMMON.BAS
  3117. M=HOLE(4) : P4=1
  3118. DIM A(10),P(6,14),F(9),E(M),L(7),A2(10),P9(3,14),V$(15)
  3119. OPEN FIL$(2)+":"+CLIENT$+"CLN.FIL" RECL 255 AS 2 : CLNRNM.FIL = 2
  3120. OPEN FIL$(3)+":"+CLIENT$+"EAR.FIL"OSUB 9005 : PRINT : PRINT
  3121. 180 PRINT "ENTER THE PAYROLL JOURNAL DATE (MMDDYY) > <";
  3122. Y=6 : GOSUB 8000 : PRINT ">";
  3123. FLD.LEN% = -6 : GOSUB 9998 : PRINT : D$=LEFT$(REPLY$+B$,6)
  3124. GOSUB 7300
  3125. IF D$="INVALI" THEN GOTO 180 ELSE D9$=D$
  3126. REM PUT IN FOR SPLIT FICA IN 1984 MOD
  3127. REM RESET XE.L4 TO BE EQUAL TO L(4) RML-110185.
  3128. REM IF MID$(D9$,5,2) = "84" THEN XE.L4 = .07 ELSE XE.L4 = .0705
  3129. U9=200
  3130. GOSUB 5000 : REM READ CLNRNM.FIL
  3131. C = CLIENT.NO : C1$ = CLIENT.NAME$ : C2$ = GL.END.DATE$ : C34) = MEALS.LDG.TO.SDI
  3132. F(5) = TIPS.TO.SDI
  3133. F(6) = ST.UNEMP.CONT.FLG
  3134. F(7) = FORMAT.1
  3135. F(8) = FORMAT.2
  3136. F(9) = TIP.CONT.SHEET
  3137. GOSUB 9950
  3138. R8=R8+1
  3139. RUN.NUMBER = R8
  3140. GOSUB 5010 : REM WRITE CLNRNM.FIL
  3141. U9=0
  3142. GOSUB 3600
  3143. PRINT "SET THE PRINTER AND PAPER ";
  3144. GOSUB 5100
  3145. GOSUB 12000
  3146. PRINT TAB(11);" D M S Client Programmed Accounting Ver ";VERSION$ : PRINT
  3147. PRINT " ***** PAYROLL OPTION #2 *****"
  3148. PRINT L$
  3149. GOSUB 1720
  3150. Q7$ = " "
  3151. FOR X=2 TO EPLY$,1)) : PRINT
  3152. PRINT
  3153. IF X$="Y" THEN S=0 : GOTO 400
  3154. IF X$="N" THEN S=1 : GOTO 400
  3155. GOSUB 5110
  3156. GOTO 390
  3157. 400 FOR X=1 TO 14
  3158. P(6,X)=0
  3159. NEXT X
  3160. GOSUB 9005
  3161. GOSUB 11000
  3162. 410 PRINT : PRINT "ENTER ALL AMOUNTS WITHOUT DECIMAL POINTS!" : PRINT
  3163. 416 PRINT "TO END THIS PAYROLL JOURNAL ENTER -1 (MINUS ONE)"
  3164. PRINT " IN THE EMPLOYEE NUMBER FIELD"
  3165. PRINT : PRINT L$ : PRINT
  3166. 416.1 PRINT : PRINT "ENTER EMPLOYEE NUMBER > <";
  3167. Y=5 : GOSUB 8000 : PRINT ">";
  3168. FLD.LEER XXXXXX : :";
  3169. Y=6 : GOSUB 8000 : PRINT":";
  3170. FLD.LEN% = 6 : GOSUB 9998 : PRINT : V1$ = LEFT$(REPLY$+B$,6)
  3171. 500 PRINT "ENTER CHECK DATE (MMDDYY) > <";
  3172. Y = 6 : GOSUB 8000 : PRINT ">";
  3173. FLD.LEN% = -6 : GOSUB 9998 : PRINT : D$=LEFT$(REPLY$+B$,6)
  3174. IF LEFT$(D$,1)<>DUPE.KEY$ THEN GOTO 520
  3175. 515 D$=D1$ : PRINT TAB(34);">"; : PRINT REVLF$; : PRINT D$
  3176. 520 GOSUB 7300
  3177. IF D$="INVALI" THEN 500
  3178. D1$=D$
  3179. X2=0
  3180. E1=100-INT(E.NO/1000)
  3181. IF E1>4 THEN E1=4
  3182. FOR X=1 TO 14
  3183. RECL 525 AS 3 : EARNREC.FIL = 3
  3184. B$=" "
  3185. V$(1)="REGULAR WAGES"
  3186. V$(2)="OVERTIME"
  3187. V$(3)="MEALS & LODGING"
  3188. V$(4)="TAXABLE TIPS"
  3189. V$(5)="FICA WITHHELD"
  3190. V$(6)="FED INC TAX WH"
  3191. V$(7)="STATE INC TAX WH"
  3192. V$(8)="STATE DISAB INS"
  3193. V$(9)="LOCAL WH #1"
  3194. V$(10)="LOCAL WH #2"
  3195. V$(11)="DEDUCTION #1"
  3196. V$(12)="DEDUCTION #2"
  3197. V$(13)="OTHER DEDUCTIONS"
  3198. V$(14)="NET CHECK"
  3199. L$="---------------------------------------------------------------------------"
  3200. A$=""
  3201. G$ = PAY.END.DATE$
  3202. CLIENT.NO =C : CLIENT.NAME$ =C1$ : GL.END.DATE$ =C2$ : PAY.END.DATE$=D$
  3203. GOSUB 5010 : REM WRITE CLNRMN.FIL
  3204. GOSUB 5000 : REM READ CLNRNM.FIL
  3205. L(0) = MAX.FICA.WAGES
  3206. L(1) = MAX.ST.UNEMP
  3207. L(2) = MAX.FED.UNEMP
  3208. L(3) = MAX.ST.DIS.WAGES
  3209. L(4) = EMP.FICA.RATE
  3210. L(5) = ST.UNEMP.RATE
  3211. L(6) = FED.UNEMP.RATE
  3212. L(7) = ST.DIS.RATE
  3213. E9$ = LOCAL.DESC$
  3214. XE.L4 = L(4)
  3215. T = TYPE.OF.RUN
  3216. F(0) = TIPS.F.U.I
  3217. F(1) = MEALS.LDG.TO.ST.UNEMP
  3218. F(2) = TIPS.TO.ST.UNEMP
  3219. F(3) = ST.DIS.FLG
  3220. F(12
  3221. IF X=5 OR X=6 THEN 381
  3222. H$=V$(X)
  3223. 373 PRINT "DO YOU WANT TO ENTER ";H$;" FOR THIS PERIOD?"
  3224. PRINT " ENTER Y FOR YES OR N FOR NO :";
  3225. FLD.LEN% = 1 : GOSUB 9998 : M$ = UCASE$(LEFT$(REPLY$,1))
  3226. PRINT
  3227. IF M$<>"Y" AND M$<>"N" THEN \
  3228. GOSUB 5110 : GOTO 373
  3229. 380 Q7$ = LEFT$(Q7$,X-1) + M$ + RIGHT$(Q7$,14-X)
  3230. 381 NEXT X
  3231. S=1
  3232. IF F(3)=7 THEN 400
  3233. 390 PRINT "DO YOU WANT SDI OVER/UNDER MESSAGES ON PAYROLL JOURNAL? :";
  3234. FLD.LEN% = 1 : GOSUB 9998 : X$ = UCASE$(LEFT$(RN% = -6 : GOSUB 9998 : PRINT
  3235. IF LEN(REPLY$) = 0 THEN 420
  3236. E.NO = VAL(REPLY$)
  3237. IF E.NO=-1 THEN 2570
  3238. GOSUB 4100
  3239. IF F4=1 THEN 430
  3240. PRINT CHR$(7);"THERE IS NO EMPLOYEE WITH THAT NUMBER!"
  3241. GOTO 1890
  3242. 420 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
  3243. FOR XE= 1 TO 250 : NEXT XE : GOTO 416.1
  3244. 430 PRINT "ENTER FIRST 4 CHAR. OF LAST NAME : :";
  3245. Y=4 : GOSUB 8000 : PRINT":";
  3246. FLD.LEN% = 4 : GOSUB 9998 : PRINT : N1$ = UCASE$(LEFT$(REPLY$+B$,4))
  3247. PRINT "ENTER CHECK NUMB P(5,X)=0
  3248. ON E1 GOTO 672,673,674,675
  3249. 672 IF X>4 AND X<9 THEN 730
  3250. GOTO 675
  3251. 673 IF X>5 AND X<8 THEN 730
  3252. GOTO 675
  3253. 674 IF X=5 OR X=8 THEN 730
  3254. 675 IF MID$(Q7$,X,1)="N" THEN 730
  3255. 680 PRINT "ENTER ";V$(X);TAB(34);" <";
  3256. Y=10 : GOSUB 8000 : PRINT ">";
  3257. FLD.LEN% = -10 : GOSUB 9998 : P(5,X)=VAL(REPLY$): PRINT
  3258. IF REPLY$=DUPE.KEY$ THEN PRINT CHR$(7);REVLF$; : GOTO 680
  3259. IF P(5,X)-INT(P(5,X))=0 THEN GOTO 710
  3260. 700 PRINT
  3261. PRINT CHR$(7);"DO NOT USE DECIMAL POINT-ENTER ONE DOLLAR AS 100!"
  3262. 705 GOTO 680
  3263. 710 IF X<5 THEN \
  3264. X2=X2+P(5,X) \
  3265. ELSE \
  3266. X2=X2-P(5,X)
  3267. PRINT TAB(47);"<";" CHECK BALANCE=";
  3268. PRINT USING "###,###,###.##";X2/100
  3269. PRINT REVLF$;
  3270. 730 NEXT X
  3271. PRINT
  3272. IF X2=0 THEN 830
  3273. PRINT CHR$(7);"THAT LAST CHECK DOES NOT BALANCE, ENTER AGAIN!"
  3274. PRINT "IT IS OUT OF BALANCE BY ";
  3275. PRINT USING "###,###,###.##";X2/100
  3276. GOTO 410
  3277. 830 GOSUB 4100
  3278. GOSUB 5800
  3279. IF MID$(N1$,LEN(N1$),1) = "," THEN N1$=MID$(N1$,1,LESUB 2030
  3280. GOSUB 2230 : GOSUB 10000.1
  3281. IF E1=1 THEN 895
  3282. IF E1=3 THEN 895
  3283. REM IF TYPED IN WAGES+O.T. IS NEGATIVE AND YTD WAGES UNDER FICA CUT OFF
  3284. REM THEN ADD NEGITIVE TYPED IN NUMBER
  3285. REM
  3286. IF G5<0 AND G3<L(0) THEN 883
  3287. REM IF TYPED IN WAGES+O.T. IS NEGATIVE AND YTD IS OVER FICA CUT OFF BUT
  3288. REM TYPED IN NEGATIVE NUMBER BRINGS IT BELOW FICA CUT OFF THEN SUBTRACT
  3289. REM OUT THE AMOUNT FROM FICA WAGES WHICH WAS NOT EXCESS OF FICA WAGES
  3290. REM (PUT IT BACK THE WAY IT WAS)
  3291. REM
  3292. IF G5<0 AND G3+G5<L(0)CH WAS NOT EXCESS OF FICA WAGES
  3293. REM (PUT IT BACK THE WAY IT WAS)
  3294. REM
  3295. IF G5<0 AND G3+P(3,4)+G5<L(0) THEN J6=INT(G3-L(0)+G5+.5) : GOTO 891
  3296. IF G3+P(3,4)>L(0) THEN 890
  3297. IF G3+P(3,4)+G5>L(0) THEN 889
  3298. 887 J6=G5
  3299. GOTO 891
  3300. 889 J6=INT(L(0)-G3-P(3,4)+.5)
  3301. GOTO 891
  3302. 890 J6=0
  3303. 891 K1=K1+J8 : K2=K2+J6
  3304. 895 LPRINTER
  3305. PRINT TAB(5);N;TAB(12);N$;TAB(40);MID$(D$,1,2);"/";MID$(D$,3,2);"/";MID$(D$,5,2);
  3306. PRINT TAB(51);V1$
  3307. PRINT TAB(3);
  3308. FOR X=1.0 TO 13.0 STEP 2.0
  3309. PRINT USING "########.
  3310. 958 IF J1<>3 THEN 961
  3311. X=3
  3312. FOR X1=1. TO 14
  3313. P(X,X1)=P(X,X1)+P(5,X1)
  3314. NEXT X1
  3315. GOTO 974
  3316. 961 IF J1<>4 THEN 964
  3317. FOR X=1. TO 2.
  3318. FOR X1=1. TO 14.
  3319. P(X,X1)=P(X,X1)+P(5,X1)
  3320. NEXT X1
  3321. NEXT X
  3322. GOTO 974
  3323. 964 IF J1<>5 THEN 970
  3324. X=2
  3325. 966 FOR X=2. TO 3.
  3326. FOR X1=1. TO 14.
  3327. P(X,X1)=P(X,X1)+P(5,X1)
  3328. NEXT X1
  3329. NEXT X
  3330. GOTO 974
  3331. 970 FOR X=1. TO 4.
  3332. FOR X1=1. TO 14.
  3333. P(X,X1)=P(X,X1)+P(5,X1)
  3334. NEXT X1
  3335. NEXT X
  3336. 974 IF E1=1 THEN 1320
  3337. IF E1=3 TH,3,2))>7 THEN 1050
  3338. M7=M7+INT(L(4)*(J8)+.5)+P(5,6)+INT(L(4)*T5+.5) + INT((XE.L4 * J6) +.5)
  3339. GOTO 1101
  3340. 1050 IF VAL(MID$(D$,3,2))>11 THEN 1060
  3341. M2=M2+INT(L(4)*(J8)+.5)+P(5,6)+INT(L(4)*T5+.5) + INT((XE.L4 * J6) +.5)
  3342. GOTO 1101
  3343. 1060 IF VAL(MID$(D$,3,2))>15 THEN 1075
  3344. M6=M6+INT(L(4)*(J8)+.5)+P(5,6)+INT(L(4)*T5+.5) + INT((XE.L4 * J6) +.5)
  3345. GOTO 1101
  3346. 1075 IF VAL(MID$(D$,3,2))>19 THEN 1080
  3347. M3=M3+INT(L(4)*(J8)+.5)+P(5,6)+INT(L(4)*T5+.5) + INT((XE.L4 * J6) +.5)
  3348. GOTO 1101
  3349. 1080 IF VAL(MID$N(N1$)-1)
  3350. IF UCASE$(N1$)=UCASE$(MID$(N$,1,LEN(N1$))) THEN 880
  3351. 850 PRINT CHR$(7);"EMPLOYEE NAME AND NUMBER DO NOT MATCH!"
  3352. PRINT "EMPLOYEE NUMBER";
  3353. PRINT USING "#######";N;
  3354. PRINT " IS ";N$
  3355. PRINT "IS THIS THE CORRECT EMPLOYEE? ENTER Y FOR YES OR N FOR NO :";
  3356. FLD.LEN%=1 : GOSUB 9998 : PRINT : X$=UCASE$(LEFT$(REPLY$,1))
  3357. IF X$="Y" THEN 880
  3358. IF X$="N" THEN 878
  3359. GOSUB 5110
  3360. GOTO 850
  3361. 878 PRINT CHR$(7);"YOU MUST RE-ENTER THAT LAST CHECK!"
  3362. GOTO 1380
  3363. 880 IF P(5,13)<>0 THEN A2$="" : GO THEN J8=INT(G3-L(0)+G5+.5) : GOTO 886
  3364. IF G3>L(0) THEN 885
  3365. IF G3+G5>L(0) THEN 884
  3366. 883 J8=G5
  3367. GOTO 886
  3368. 884 J8=INT(L(0)-G3+.5)
  3369. GOTO 886
  3370. 885 J8=0
  3371. REM IF TYPED IN WAGES+O.T. IS NEGATIVE AND YTD WAGES UNDER FICA CUT OFF
  3372. REM THEN ADD NEGITIVE TYPED IN NUMBER
  3373. REM
  3374. 886 IF G5<0 AND G3+P(3,4)<L(0) THEN 887
  3375. REM IF TYPED IN WAGES+O.T. IS NEGATIVE AND YTD IS OVER FICA CUT OFF BUT
  3376. REM TYPED IN NEGATIVE NUMBER BRINGS IT BELOW FICA CUT OFF THEN SUBTRACT
  3377. REM OUT THE AMOUNT FROM FICA WAGES WHI##";P(5,X)/100;
  3378. P(6,X)=P(6,X)+P(5,X)
  3379. NEXT X
  3380. PRINT
  3381. PRINT TAB(3);
  3382. FOR X=2.0 TO 14.0 STEP 2.0
  3383. PRINT USING "########.##";P(5,X)/100,
  3384. P(6,X)=P(6,X)+P(5,X)
  3385. NEXT X
  3386. PRINT
  3387. PG.NO=PG.NO+5
  3388. PRINT
  3389. CONSOLE
  3390. IF PG.NO>63 THEN GOSUB 1720
  3391. IF T <=4 THEN 970
  3392. J1 = PERIOD.TO.ADJ
  3393. IF J1<>1 THEN 955
  3394. X=1
  3395. FOR X1=1. TO 14.
  3396. P(X,X1)=P(X,X1)+P(5,X1)
  3397. NEXT X1
  3398. GOTO 974
  3399. 955 IF J1<>2 THEN 958
  3400. X=2
  3401. FOR X1=1. TO 14.
  3402. P(X,X1)=P(X,X1)+P(5,X1)
  3403. NEXT X1
  3404. GOTO 974
  3405. EN 1034
  3406. G9=P(5,1)+P(5,2) : G3=P(3,1)+P(3,2)
  3407. T3=P(3,4) : T9=P(5,4)
  3408. IF G3-G9<L(0) THEN 1000
  3409. G5=0
  3410. GOTO 1030
  3411. 1000 IF G3>L(0) THEN G5=G9-(G3-L(0)) ELSE G5=G9
  3412. G6=G6+G5
  3413. 1030 IF J7=0 THEN GOTO 1031 ELSE GOTO 1032
  3414. 1031 T5=0
  3415. GOTO 1040
  3416. 1032 IF G9>=J7 THEN GOTO 1031 ELSE T5=J7-G9
  3417. T6=T6+T5
  3418. GOTO 1040
  3419. 1034 J6=0 : J8=0 : T5=0
  3420. 1040 IF VAL(MID$(D$,3,2))>3 THEN GOTO 1045
  3421. M1=M1+INT(L(4)*(J8)+.5)+P(5,6)+INT(L(4)*T5+.5) + INT((XE.L4 * J6) +.5)
  3422. GOTO 1101
  3423. 1045 IF VAL(MID$(D$(D$,3,2))>22 THEN 1095
  3424. M5=M5+INT(L(4)*(J8)+.5)+P(5,6)+INT(L(4)*T5+.5) + INT((XE.L4 * J6) +.5)
  3425. GOTO 1101
  3426. 1095 IF VAL(MID$(D$,3,2))>25 THEN 1100
  3427. M0=M0+INT(L(4)*(J8)+.5)+P(5,6)+INT(L(4)*T5+.5) + INT((XE.L4 * J6) +.5)
  3428. GOTO 1101
  3429. 1100 M4=M4+INT(L(4)*(J8)+.5)+P(5,6)+INT(L(4)*T5+.5) + INT((XE.L4 * J6) +.5)
  3430. 1101 IF E1=3 THEN 1320
  3431. G3=P(3,1)+P(3,2) : G9=P(5,1)+P(5,2)
  3432. IF F(1)=7 THEN 1110
  3433. G3=G3+P(3,3) : G9=G9+P(5,3)
  3434. 1110 IF F(2)=7 THEN 1120
  3435. G3=G3+P(3,4) : G9=G9+P(5,4)
  3436. 1120 IF G3-G9-L(1)>=0 THEN 1220
  3437. G7=ABS(G3-G9-L(1))
  3438. IF G9<G7 THEN G7=G9
  3439. GOTO 1230
  3440. 1220 G7=0
  3441. 1230 G8=G8+G7
  3442. G3=P(3,1)+P(3,2) : G9=P(5,1)+P(5,2)
  3443. IF F(0)<>5 THEN 1240
  3444. G3=G3 + P(3,4) : G9=G9 + P(5,4)
  3445. 1240 IF G3-G9-L(2)>0 THEN 1280
  3446. K7=ABS(G3-G9-L(2))
  3447. IF G9<K7 THEN K7=G9
  3448. GOTO 1290
  3449. 1280 K7=0
  3450. 1290 K8=K8+K7
  3451. G3=P(3,1)+P(3,2) : G9=P(5,1)+P(5,2)
  3452. IF F(3)=7 THEN 1308
  3453. IF F(4)=7 THEN 1298
  3454. G3=G3+P(3,3) : G9=G9+P(5,3)
  3455. 1298 IF F(5)=7 THEN 1300
  3456. G3=G3+P(3,4) : G9=G9+P(5,4)
  3457. 1300 IF (G3-GPRINT TAB(10);
  3458. IF T=2 THEN PRINT "NEW MONTH"
  3459. IF T=3 THEN PRINT "NEW QUARTER"
  3460. IF T=4 THEN PRINT "NEW YEAR"
  3461. IF T=5 THEN PRINT "ADJUSTING RUN"
  3462. PRINT TAB(10);"PERIOD ENDING ";MID$(D9$,1,2);"/";MID$(D9$,3,2);"/";MID$(D9$,5,2)
  3463. PRINT : PRINT
  3464. PRINT TAB(5);"EMP # NAME";TAB(40);"DATE";TAB(51);"CK. #"
  3465. PRINT TAB(10);"REG.";TAB(22);"M&L";TAB(32);"FICA";TAB(44);"SIT";
  3466. PRINT TAB(55);MID$(E9$,1,3);TAB(66);MID$(E9$,7,3);TAB(75);"OTHER"
  3467. 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'"
  3468. REM GOTO 416
  3469. 1990 PRINT : PRINT "ENTER THE NAME OF THE EMPLOYEE TO BE ADDED."
  3470. PRINT "(LAST NAME, FIRST NAME MI.) :";
  3471. FLD.LEN%=25 : GOSUB 9998 : PRINT : N$=UCASE$(LEFT$(REPLY$,25))
  3472. FOR X=1. TO LEN(N$)
  3473. IF MID$(N$,X,1)="," THEN GOTO 1998
  3474. NEXT X
  3475. PRINT
  3476. PRINT CHR$(7);"THE LAST NAME MUST BE FOLLOWED BY A COMMA!" : PRINT
  3477. GOTO 1990
  3478. 1998 REM ZERO EER FOR NEW EMPLOYEE
  3479. N=E.NO : S$=B$ : C$=B$ : Z$=B$
  3480. PRINT : A5 = VAL(REPLY$)
  3481. IF MATCH(A1$,A$,1) <> 0 THEN X = (MATCH(A1$,A$,1)-1)/3 \
  3482. ELSE \
  3483. X = LEN(A$)/3 : A$ = A$ + A1$
  3484. IF MATCH(A1$,A2$,1) = 0 THEN A2$ = A2$ + A1$
  3485. IF X = 10 THEN GOTO 2170
  3486. 2140 A2(X)=A2(X)+A5
  3487. A7=A7-A5 : A2(10)=A2(10)+A5
  3488. IF A7=0 THEN GOTO 2212 ELSE GOTO 2040
  3489. 2170 PRINT CHR$(7);"YOU HAVE EXCEEDED THE MAXIMUM OF 10 BREAKDOWNS!"
  3490. PRINT "YOU MUST USE ONLY THE FOLLOWING DESCRIPTIONS:"
  3491. FOR Y=1. TO 10.
  3492. PRINT MID$(A$,Y*3-2,3);" ";
  3493. NEXT Y
  3494. A$ = LEFT$(A$,LPLY$)=0 THEN 2226
  3495. IF X$="Y" THEN 2227
  3496. IF X$="N" THEN 2205
  3497. 2226 GOSUB 5110
  3498. GOTO 2224
  3499. 2227 FOR X=0. TO 10.
  3500. A(X)=A(X)+A2(X)
  3501. A2(X)=0
  3502. NEXT X
  3503. A2$=""
  3504. RETURN
  3505. 2230 IF E1=1 OR E1=3 THEN 2399
  3506. J7=P(5,1)+P(5,2)+P(5,4)
  3507. J8=J7+P(3,1)+P(3,2)+P(3,4)
  3508. D7=P(5,1)+P(5,2)
  3509. D0=P(3,1)+P(3,2)+P(5,1)+P(5,2)
  3510. IF F(4)=7 THEN 2240
  3511. D7=D7+P(5,3)
  3512. D0=D0+P(3,3)+P(5,3)
  3513. 2240 IF F(5)=7 THEN 2250
  3514. D7=D7+P(5,4)
  3515. D0=D0+P(3,4)+P(5,4)
  3516. 2250 IF J8-J7>L(0) THEN 2270
  3517. IF J8<L(0) T9)-L(3)>0 THEN 1308
  3518. D5=ABS((G3-G9)-L(3))
  3519. IF G9<D5 THEN D5=G9
  3520. GOTO 1310
  3521. 1308 D5=0
  3522. 1310 D6=D6+D5
  3523. 1320 X=X9
  3524. GOSUB 9900
  3525. 1380 GOTO 416
  3526. REM **************** PRINT HDG ROUTINE
  3527. 1720 LPRINTER
  3528. IF PG.NO<>0 THEN PRINT CHR$(12);
  3529. PRINT TAB(70);"PAGE ";
  3530. PRINT USING "####";P4
  3531. P4=P4+1
  3532. PRINT : PRINT TAB(10);C1$,TAB(60);"CLIENT NUMBER ";
  3533. PRINT USING "#######";C
  3534. PRINT TAB(10);"PAYROLL JOURNAL"
  3535. PRINT TAB(10);"RUN NUMBER ";R8
  3536. IF T=1 THEN PRINT TAB(10);"ADDITIONAL ENTRIES"
  3537. TAB(44);"SDI";
  3538. PRINT TAB(55);MID$(E9$,4,3);TAB(66);MID$(E9$,10,3);TAB(71);"NET WAGES"
  3539. PRINT TAB(5);L$
  3540. PG.NO=10
  3541. CONSOLE
  3542. RETURN
  3543. 1890 PRINT "DO YOU WANT TO SET UP AN EER FOR THAT NUMBER?"
  3544. PRINT "ENTER Y FOR YES OR N FOR NO :";
  3545. FLD.LEN%=1 : GOSUB 9998 : PRINT : M$=UCASE$(LEFT$(REPLY$,1))
  3546. IF M$="Y" THEN 1950
  3547. IF M$="N" THEN 416
  3548. GOSUB 5110
  3549. GOTO 1890
  3550. 1950 GOTO 1990
  3551. REM IF NO.EMP<INT(V1*256/356) THEN 1990
  3552. REM PRINT CHR$(7);"THE FILE IS FULL - CANNOT ADD THIS EMPLOYEE!"
  3553. REM FOR X=1. TO 3.
  3554. FOR X1=1. TO 14.
  3555. P(X,X1)=0
  3556. NEXT X1
  3557. NEXT X
  3558. GOSUB 6190
  3559. GOTO 430
  3560. 2030 PRINT "START ENTERING BREAKDOWN OF TOTAL OTHER DEDUCTIONS"
  3561. A7=P(5,13)
  3562. 2040 PRINT "ENTER DESCRIPTION XXX : :";
  3563. Y=3 : GOSUB 8000 : PRINT ":";
  3564. FLD.LEN%= 3 : GOSUB 9998 : A1$=UCASE$(LEFT$(REPLY$+B$,3))
  3565. PRINT
  3566. PRINT TAB(45);"OTHER DED. BALANCE=";
  3567. PRINT USING "##########.##";A7/100
  3568. PRINT "ENTER AMOUNT > <";
  3569. Y=10 : GOSUB 8000 : PRINT ">";
  3570. FLD.LEN% = - 10 : GOSUB 9998 : EN(A$)-3)
  3571. PRINT
  3572. 2205 A2$=""
  3573. FOR X=0. TO 10.
  3574. A2(X)=0
  3575. NEXT X
  3576. GOTO 2030
  3577. 2212 PRINT "SUMMARY OF 'OTHER' DEDUCTIONS FOR THIS 'EER' :"
  3578. PRINT "DESCRIPTION:"
  3579. FOR X=0.0 TO 9.0
  3580. IF A2(X) <> 0 THEN PRINT " ";MID$(A$,X*3+1,3);
  3581. 2220 NEXT X
  3582. PRINT
  3583. FOR X=0. TO 9.
  3584. IF A2(X)=0 THEN 2223
  3585. PRINT USING "#####.##";A2(X)/100,
  3586. 2223 NEXT X
  3587. PRINT
  3588. 2224 PRINT
  3589. PRINT "ARE THESE CORRECT (Y OR N) : ";
  3590. FLD.LEN%=1 : GOSUB 9998 : PRINT : X$=UCASE$(LEFT$(REPLY$,1))
  3591. IF LEN(REHEN 2280
  3592. J7=INT(L(0)-J8+J7+.5)
  3593. GOTO 2280
  3594. 2270 J7=0
  3595. 2280 J9=INT(J7*L(4)+.5)-P(5,5)
  3596. IF ABS(J9)<10 THEN 2320
  3597. PRINT "FICA WITHHELD ON LAST CHECK IS ";
  3598. GOSUB 4000
  3599. LPRINTER
  3600. PRINT TAB(5);"***";"FICA WITHHELD ON CHECK #";V1$;" BELOW IS ";
  3601. PG.NO=PG.NO+1
  3602. GOSUB 5000.1
  3603. 2320 CONSOLE
  3604. IF J8>L(0) THEN J8=L(0)
  3605. J9=INT(J8*L(4)+.5)-P(5,5)-P(3,5)
  3606. IF ABS(J9)<100 THEN 2390
  3607. PRINT "YTD FICA WITHHELD ON LAST EMPLOYEE IS ";
  3608. GOSUB 4000
  3609. LPRINTER
  3610. PRINT TAB(5);"***";"YTD FICA WITHHELD ON EMPLOYEE";E.NO;" BELOW IS "; : PG.NO=PG.NO+1
  3611. GOSUB 5000.1
  3612. CONSOLE
  3613. IF S=1 THEN 2399
  3614. IF D0-D7<L(3) THEN 2378
  3615. D7=0
  3616. GOTO 2381
  3617. 2378 IF D0>L(3) THEN D7=D7-(D0-L(3))
  3618. 2381 D8=INT(D7*L(7)+.5)-P(5,8)
  3619. IF ABS(D8)<10 THEN 2390
  3620. PRINT "SDI WITHHELD ON LAST CHECK IS ";
  3621. GOSUB 6000
  3622. LPRINTER
  3623. PRINT TAB(5);"*** SDI WITHHELD ON CHECK #";V1$," BELOW IS ";
  3624. GOSUB 7000
  3625. 2390 CONSOLE
  3626. IF S=1 THEN 2399
  3627. IF D0>L(3) THEN D0=L(3)
  3628. D8=INT(D0*L(7)+.5)-P(3,8)-P(5,8)
  3629. IF ABS(D8)<100 THEN 2INT
  3630. GOTO 2640
  3631. 2630 FOR X=1.0 TO 13.0 STEP 2.0
  3632. PRINT USING "########.##";P(6,X)/100;
  3633. NEXT X
  3634. PRINT
  3635. PRINT TAB(3);
  3636. FOR X=2.0 TO 14.0 STEP 2.0
  3637. PRINT USING "########.##";P(6,X)/100;
  3638. NEXT X
  3639. PRINT
  3640. 2640 CONSOLE
  3641. EMPLOYER.FICA = K2
  3642. EMPLOYEE.FICA = K1
  3643. STATE.UNEMP = G8
  3644. FED.UNEMP = K8
  3645. TAX.TIPS = T6
  3646. TAX.ST.DIS = D6
  3647. DED.DESC$ = A$
  3648. OTHER.DED.1 = K2
  3649. EMPLOYEE.FICA = K1
  3650. STATE.UNEMP = G8
  3651. FED.UNEMP = K8
  3652. TAX.TIPS = T6
  3653. TAX.ST.DIS = D6
  3654. DED.DESC$ = A$
  3655. OTHER.DE CHAIN PGM$(2)+":SUMMARY"
  3656. 2713 LPRINTER
  3657. PRINT CHR$(12);
  3658. CONSOLE
  3659. CHAIN PGM$(2)+":PMENU"
  3660. 3600 PRINT : PRINT " WORKING . . ." : PRINT
  3661. IF END #EARNREC.FIL THEN 3690
  3662. FOR X=0. TO M-1
  3663. GOSUB 5600
  3664. IF EMP.NO = -1 THEN 3690
  3665. E(X)=N : NO.EMP=NO.EMP+1
  3666. NEXT X
  3667. 3690 PRINT "THERE ARE ";NO.EMP;" EMPLOYEES ON THE DISK IN DRIVE ";FIL$(2)
  3668. RETURN
  3669. 4000 IF J9<0 THEN PRINT "OVER";
  3670. IF J9>0 THEN PRINT "UNDER";
  3671. PRINT " BY ";
  3672. PRINT USING "#######.##";ABS(JOSUB 10000
  3673. N = EMP.NO
  3674. N$ = EMP.NAME$
  3675. S$ = STR.ADDR$
  3676. C$ = CITY.ST.ZIP$
  3677. Z$ = SSN$
  3678. P(1,1) = REG.WAGES
  3679. P(1,2) = OVERTIME.WAGES
  3680. P(1,3) = MEALS.AND.LODGING
  3681. P(1,4) = TIPS
  3682. P(1,5) = FICA
  3683. P(1,6) = FED.INC.TAX
  3684. P(1,7) = STATE.INC.TAX
  3685. P(1,8) = ST.DIS.INS
  3686. P(1,9) = LOCAL.DED.1
  3687. P(1,10) = LOCAL.DED.2
  3688. P(1,11) = LOCAL.WITH.1
  3689. P(1,12) = LOCAL.WITH.2
  3690. P(1,13) = OTHER.DED
  3691. P(1,14) = NET.WAGES
  3692. P(2,1) = REG.WAGES.QTR
  3693. P(2,2) = OVERTIME.QTR
  3694. P(2,3) = MEALS.LDG.QTR
  3695. P(2,4) = TIPS.QTR
  3696. P(2LOCAL.WITH.1.YR
  3697. P(3,12) = LOCAL.WITH.2.YR
  3698. P(3,13) = OTHER.DED.YR
  3699. P(3,14) = NET.WAGES.YR
  3700. RETURN
  3701. 6000 IF D8<0 THEN PRINT "OVER";
  3702. IF D8>0 THEN PRINT "UNDER";
  3703. PRINT " BY ";
  3704. PRINT USING "#######.##";ABS(D8/100)
  3705. RETURN
  3706. 6100 GOSUB 10000
  3707. N9 = EMP.NO
  3708. N9$ = EMP.NAME$
  3709. S9$ = STR.ADDR$
  3710. C9$ = CITY.ST.ZIP$
  3711. Z9$ = SSN$
  3712. P9(1,1) = REG.WAGES
  3713. P9(1,2) = OVERTIME.WAGES
  3714. P9(1,3) = MEALS.AND.LODGING
  3715. P9(1,4) = TIPS
  3716. P9(1,5) = FICA
  3717. P9(1,6) = FED.INC.TAX
  3718. P9(1,7) = STATE.INC.TAX
  3719. P9399
  3720. PRINT "YTD SDI WITHHELD ON LAST EMPLOYEE IS ";
  3721. GOSUB 6000
  3722. LPRINTER
  3723. PRINT TAB(5);"*** YTD SDI WITHHELD ON EMPLOYEE";
  3724. PRINT USING "#####";E.NO;
  3725. PRINT " BELOW IS ";
  3726. GOSUB 7000
  3727. 2399 CONSOLE
  3728. RETURN
  3729. 2570 LPRINTER
  3730. PRINT TAB(5);L$
  3731. PRINT TAB(5);"TOTALS"
  3732. PRINT TAB(3);
  3733. IF T=5 THEN 2630
  3734. FOR X=1.0 TO 13.0 STEP 2.0
  3735. PRINT USING "########.##";P(4,X)/100;
  3736. NEXT X
  3737. PRINT
  3738. PRINT TAB(3);
  3739. FOR X=2.0 TO 14.0 STEP 2.0
  3740. PRINT USING "########.##";P(4,X)/100;
  3741. NEXT X
  3742. PRD.1 = A(0)
  3743. OTHER.DED.2 = A(1)
  3744. OTHER.DED.3 = A(2)
  3745. OTHER.DED.4 = A(3)
  3746. OTHER.DED.5 = A(4)
  3747. OTHER.DED.6 = A(5)
  3748. OTHER.DED.7 = A(6)
  3749. OTHER.DED.8 = A(7)
  3750. OTHER.DED.9 = A(8)
  3751. OTHER.DED.10 = A(9)
  3752. TOT.OTHER.DED = A(10)
  3753. TAX.LIAB.1ST = M7
  3754. TAX.LIAB.2ND = M6
  3755. TAX.LIAB.3RD = M5
  3756. TAX.LIAB.4TH = M4
  3757. TAX.LIAB.1.3 = M1
  3758. TAX.LIAB.8.11 = M2
  3759. TAX.LIAB.16.19 = M3
  3760. TAX.LIAB.23.25 = M0
  3761. OPEN FIL$(6)+":"+CLIENT$+"PAS.FIL" RECL 175 AS 4 : PASSVAR.FIL = 4
  3762. GOSUB 10030.1
  3763. CLOSE 4
  3764. IF T=5 THEN 2713
  3765. 9/100)
  3766. RETURN
  3767. 4100 F4=0
  3768. FOR X=0. TO NO.EMP-1
  3769. IF E(X)=E.NO THEN GOTO 4150
  3770. NEXT X
  3771. GOTO 4190
  3772. 4150 F4=1 : X9=X
  3773. 4190 X9=X
  3774. RETURN
  3775. 5000.1 LPRINTER
  3776. IF J9<0 THEN PRINT "OVER";
  3777. IF J9>0 THEN PRINT "UNDER";
  3778. PRINT " BY ";
  3779. PRINT USING "#######.##";ABS(J9/100)
  3780. CONSOLE
  3781. RETURN
  3782. 5100 PRINT "THEN PRESS RETURN ";
  3783. FLD.LEN% = 1 : GOSUB 9998 : PRINT
  3784. RETURN
  3785. 5110 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
  3786. RETURN
  3787. 5600 GOSUB 10000
  3788. N = EMP.NO
  3789. RETURN
  3790. 5800 G,5) = FICA.QTR
  3791. P(2,6) = FED.INC.TAX.QTR
  3792. P(2,7) = ST.INC.TAX.QTR
  3793. P(2,8) = ST.DIS.INS.QTR
  3794. P(2,9) = LOCAL.DED.1.QTR
  3795. P(2,10) = LOCAL.DED.2.QTR
  3796. P(2,11) = LOCAL.WITH.1.QTR
  3797. P(2,12) = LOCAL.WITH.2.QTR
  3798. P(2,13) = OTHER.DED.QTR
  3799. P(2,14) = NET.WAGES.QTR
  3800. P(3,1) = REG.WAGES.YR
  3801. P(3,2) = OVERTIME.YR
  3802. P(3,3) = MEALS.LDG.YR
  3803. P(3,4) = TIPS.YR
  3804. P(3,5) = FICA.YR
  3805. P(3,6) = FED.INC.TAX.YR
  3806. P(3,7) = ST.INC.TAX.YR
  3807. P(3,8) = ST.DIS.INS.YR
  3808. P(3,9) = LOCAL.DED.1.YR
  3809. P(3,10) = LOCAL.DED.2.YR
  3810. P(3,11) = (1,8) = ST.DIS.INS
  3811. P9(1,9) = LOCAL.DED.1
  3812. P9(1,10) = LOCAL.DED.2
  3813. P9(1,11) = LOCAL.WITH.1
  3814. P9(1,12) = LOCAL.WITH.2
  3815. P9(1,13) = OTHER.DED
  3816. P9(1,14) = NET.WAGES
  3817. P9(2,1) = REG.WAGES.QTR
  3818. P9(2,2) = OVERTIME.QTR
  3819. P9(2,3) = MEALS.LDG.QTR
  3820. P9(2,4) = TIPS.QTR
  3821. P9(2,5) = FICA.QTR
  3822. P9(2,6) = FED.INC.TAX.QTR
  3823. P9(2,7) = ST.INC.TAX.QTR
  3824. P9(2,8) = ST.DIS.INS.QTR
  3825. P9(2,9) = LOCAL.DED.1.QTR
  3826. P9(2,10) = LOCAL.DED.2.QTR
  3827. P9(2,11) = LOCAL.WITH.1.QTR
  3828. P9(2,12) = LOCAL.WITH.2.QTR
  3829. P9(2,13) = OTHER.DED.QTR
  3830. P9(2,14) = NET.WAGES.QTR
  3831. P9(3,1) = REG.WAGES.YR
  3832. P9(3,2) = OVERTIME.YR
  3833. P9(3,3) = MEALS.LDG.YR
  3834. P9(3,4) = TIPS.YR
  3835. P9(3,5) = FICA.YR
  3836. P9(3,6) = FED.INC.TAX.YR
  3837. P9(3,7) = ST.INC.TAX.YR
  3838. P9(3,8) = ST.DIS.INS.YR
  3839. P9(3,9) = LOCAL.DED.1.YR
  3840. P9(3,10) = LOCAL.DED.2.YR
  3841. P9(3,11) = LOCAL.WITH.1.YR
  3842. P9(3,12) = LOCAL.WITH.2.YR
  3843. P9(3,13) = OTHER.DED.YR
  3844. P9(3,14) = NET.WAGES.YR
  3845. RETURN
  3846. 6190 PRINT : PRINT "WORKING . . ."
  3847. FOR X=0 TO NO.EMP-1
  3848. GOSUB 6100
  3849. IF N9$>N$ THEN GOTO 6250
  3850. NT USING "#######.##";ABS(D8/100)
  3851. CONSOLE
  3852. PG.NO = PG.NO + 1
  3853. RETURN
  3854. 7300 FOR X=1 TO 6
  3855. IF MID$(D$,X,1)<"0" THEN GOTO 7450
  3856. IF MID$(D$,X,1)>"9" THEN GOTO 7450
  3857. NEXT X
  3858. IF LEFT$(D$,1) = "0" THEN 7370
  3859. IF LEFT$(D$,1) <> "1" THEN 7450
  3860. IF MID$(D$,2,1) > "2" THEN GOTO 7450 ELSE GOTO 7380
  3861. 7370 IF MID$(D$,2,1) < "1" THEN 7450
  3862. 7380 IF MID$(D$,3,1) > "3" THEN 7450
  3863. IF MID$(D$,3,1) <> "3" THEN 7470
  3864. IF MID$(D$,4,1) > "1" THEN GOTO 7450 ELSE GOTO 7470
  3865. 7450 PRINT CHR$(7);"INVALID DATE14)
  3866. REG.WAGES.QTR = P(2,1)
  3867. OVERTIME.QTR = P(2,2)
  3868. MEALS.LDG.QTR = P(2,3)
  3869. TIPS.QTR = P(2,4)
  3870. FICA.QTR = P(2,5)
  3871. FED.INC.TAX.QTR = P(2,6)
  3872. ST.INC.TAX.QTR = P(2,7)
  3873. ST.DIS.INS.QTR = P(2,8)
  3874. LOCAL.DED.1.QTR = P(2,9)
  3875. LOCAL.DED.2.QTR = P(2,10)
  3876. LOCAL.WITH.1.QTR = P(2,11)
  3877. LOCAL.WITH.2.QTR = P(2,12)
  3878. OTHER.DED.QTR = P(2,13)
  3879. NET.WAGES.QTR = P(2,14)
  3880. REG.WAGES.YR = P(3,1)
  3881. OVERTIME.YR = P(3,2)
  3882. MEALS.LDG.YR = P(3,3)
  3883. TIPS.YR = P(3,4)
  3884. FICA.YR = P(3,5)
  3885. FED.INC.TAX.YR = P(3,6)
  3886. ST.INC.TCLNRNM.FIL,2; 1,1,1
  3887. RETURN
  3888. 12000 GOSUB 9005 : PRINT : PRINT : PRINT : PRINT : PRINT
  3889. PRINT TAB(19);"*** CHECK PRINTER STATUS ***"
  3890. LPRINTER
  3891. PRINT
  3892. CONSOLE
  3893. GOSUB 9005
  3894. RETURN
  3895. %INCLUDE 5000
  3896. %INCLUDE 5010
  3897. %INCLUDE 10000
  3898. %INCLUDE 10010
  3899. REM ************************** WRITE PASSVAR
  3900. 10030.1 PRINT #PASSVAR.FIL,1; \
  3901. EMPLOYER.FICA,\
  3902. EMPLOYEE.FICA,\
  3903. STATE.UNEMP,\
  3904. FED.UNEMP,\
  3905. TAX.TIPS,\
  3906. TAX.ST.DIS,\
  3907. DED.DESC$,\
  3908. OTHER.DED.1,\
  3909. OTHER.DED.2,\
  3910. OTHER.DED.3,$;:FOR DELAY=0 TO CLR.DLY% : NEXT DELAY
  3911. RETURN
  3912. REM 9006 REM CURSOR POSITIONING ROUTINE
  3913. REM PRINT HOME$
  3914. REM X.POS%=X% + X.OFF% Y.POS% = Y% + Y.OFF%
  3915. REM IF XY%=2 AND X.POS%<31 THEN \
  3916. REM X.POS% = X.POS% + 96
  3917. REM IF XY% = 1 OR XY% = 2 THEN \
  3918. REM PRINT CUR$;CHR$(X.POS%);CHR$(Y.POS%); \
  3919. REM ELSE \
  3920. REM PRINT CUR$;CHR$(Y.POS%);CHR$(X.POS%);
  3921. REM FOR DELAY=0 TO CUR.DLY% NEXT DELAY
  3922. REM NEXT X
  3923. 6250 NO.EMP=NO.EMP+1
  3924. FOR X=X TO NO.EMP-1
  3925. GOSUB 9900
  3926. E(X)=N
  3927. GOSUB 6380
  3928. IF X>=NO.EMP-2 THEN 6340
  3929. X=X+1
  3930. GOSUB 6100
  3931. X=X-1
  3932. 6340 NEXT X
  3933. EMP.NO = -1
  3934. EMP.NAME$ = LEFT$("END OF FILE INDICATOR"+B$,25)
  3935. GOSUB 10010
  3936. RETURN
  3937. 6380 N=N9 : N$=N9$ : S$=S9$ : C$=C9$ : Z$=Z9$
  3938. FOR Y=1 TO 3
  3939. FOR Y1=1 TO 14
  3940. P(Y,Y1)=P9(Y,Y1)
  3941. NEXT Y1
  3942. NEXT Y
  3943. RETURN
  3944. 7000 LPRINTER
  3945. IF D8<0 THEN PRINT "OVER";
  3946. IF D8>0 THEN PRINT "UNDER";
  3947. PRINT " BY ";
  3948. PRI - TRY AGAIN!"
  3949. D$="INVALI"
  3950. 7470 RETURN
  3951. 8000 FOR J=1 TO Y+2
  3952. PRINT CHR$(8);
  3953. NEXT J
  3954. RETURN
  3955. 9900 EMP.NO = N
  3956. EMP.NAME$ = N$
  3957. STR.ADDR$ = S$
  3958. CITY.ST.ZIP$ = C$
  3959. SSN$ = Z$
  3960. REG.WAGES = P(1,1)
  3961. OVERTIME.WAGES = P(1,2)
  3962. MEALS.AND.LODGING = P(1,3)
  3963. TIPS = P(1,4)
  3964. FICA = P(1,5)
  3965. FED.INC.TAX = P(1,6)
  3966. STATE.INC.TAX = P(1,7)
  3967. ST.DIS.INS = P(1,8)
  3968. LOCAL.DED.1 = P(1,9)
  3969. LOCAL.DED.2 = P(1,10)
  3970. LOCAL.WITH.1 = P(1,11)
  3971. LOCAL.WITH.2 = P(1,12)
  3972. OTHER.DED = P(1,13)
  3973. NET.WAGES = P(1,AX.YR = P(3,7)
  3974. ST.DIS.INS.YR = P(3,8)
  3975. LOCAL.DED.1.YR = P(3,9)
  3976. LOCAL.DED.2.YR = P(3,10)
  3977. LOCAL.WITH.1.YR = P(3,11)
  3978. LOCAL.WITH.2.YR = P(3,12)
  3979. OTHER.DED.YR = P(3,13)
  3980. NET.WAGES.YR = P(3,14)
  3981. L1.XE = 0
  3982. GOSUB 10010 : REM WRITE EARNREC.FIL
  3983. RETURN
  3984. 9950 GOSUB 5000
  3985. R8 = RUN.NUMBER
  3986. IF INT(R8) <> R8 THEN 9975
  3987. IF INT(R8) < 999 THEN 9980
  3988. 9975 RUN.NUMBER = 0
  3989. GOSUB 5010
  3990. GOSUB 5000
  3991. R8 = RUN.NUMBER
  3992. 9980 RETURN
  3993. 10000.1 G3=P(3,1)+P(3,2)
  3994. G5=P(5,1)+P(5,2)
  3995. RETURN
  3996. 11000 PRINT #\
  3997. OTHER.DED.4,\
  3998. OTHER.DED.5,\
  3999. OTHER.DED.6,\
  4000. OTHER.DED.7,\
  4001. OTHER.DED.8,\
  4002. OTHER.DED.9,\
  4003. OTHER.DED.10,\
  4004. TOT.OTHER.DED,\
  4005. TAX.LIAB.1ST,\
  4006. TAX.LIAB.2ND,\
  4007. TAX.LIAB.3RD,\
  4008. TAX.LIAB.4TH,\
  4009. TAX.LIAB.1.3,\
  4010. TAX.LIAB.8.11,\
  4011. TAX.LIAB.16.19,\
  4012. TAX.LIAB.23.25
  4013. RETURN
  4014. REM 031783 - (RCB) MODIFIED TO ALLOW HOT KEYBOARD ON 1 CHARACTOR
  4015. REM INPUT ONLY (FLD.LEN% = 0) - OTHER LENTH WILL
  4016. REM FREEZE AND BEEP AT FIELD LIMIT - ADDED DESTRUCTIVE BACKUP
  4017. REM
  4018. 9005 PRINT CLR RETURN
  4019. 9998 REM --- TRAP SPECIAL CHARACTERS ---
  4020. REPLY$="" : CHAR%=0 : ACT.LEN%=0 : DOT.OVER% = 0
  4021. REM FLD.LEN% < 0 THEN LIMIT TO 0-9 AND "-" IN FIRST CHARACTOR
  4022. IF FLD.LEN% < 0 THEN FLD.LEN% = ABS(FLD.LEN%) : NUM.ONLY = -1 \
  4023. ELSE NUM.ONLY = 0
  4024. WHILE CHAR%<>13
  4025. 9998.2 CHAR%=INKEY
  4026. REM ************* MODIFIED FOR AUTO DUPE KEY **************
  4027. IF CHAR% = ASC(DUPE.KEY$) AND ACT.LEN% = 0 THEN \
  4028. REPLY$ = DUPE.KEY$ : CHAR% = 13 : GOTO 9998.7
  4029. REM IF CHAR% = 46 AND DOT.OVER% THEN PRINT CHR$(8);" ";CHR$(8);CHR$(7); : \
  4030. REM GOTO 9998.7
  4031. IF CHAR%=127 AND ACT.LEN% = 0 THEN \
  4032. GOTO 9998.2
  4033. IF CHAR% = 8 AND ACT.LEN% = 0 THEN \
  4034. GOTO 9998.2
  4035. IF CHAR% = 127 OR CHAR% = 8 THEN \
  4036. PRINT CHR$(8);" ";CHR$(8);
  4037. IF CHAR% = 127 OR CHAR% = 8 THEN \
  4038. ACT.LEN%=ACT.LEN%-1 : \
  4039. REPLY$=LEFT$(REPLY$,LGOTO 9998.7
  4040. REM *************************************************************
  4041. IF DOT.OVER% THEN DOT.OVER% = DOT.OVER% + 1
  4042. REM IF CHAR% = 46 THEN DOT.OVER% = DOT.OVER% + 1
  4043. 9998.6 ACT.LEN%=ACT.LEN% + 1
  4044. IF ACT.LEN%>FLD.LEN% AND DOT.OVER% THEN DOT.OVER% = DOT.OVER% - 1
  4045. IF ACT.LEN%>FLD.LEN% AND FLD.LEN% <> 0 THEN \
  4046. PRINT CHR$(7); : ACT.LEN% = ACT.LEN% -1 : \
  4047. GOTO 9998.7
  4048. PRINT CHR$(CHAR%);
  4049. REPLY$=REPLY$+CHR$(CHAR%)
  4050. IF ACTREM 112084 - SRS - CHANGED LINES 602,606,611,784,786,830
  4051. REM PROGRAM WAS NOT ABLE TO PRINT A SUBSCHEDULE OF THE LAST
  4052. REM ACCOUNT IF THE LAST ACCOUNT HAD SUBACCOUNTS
  4053. REM
  4054. REM 071783 - DCF TOOK LINE #'S OFF REM STATEMENTS FOR CB80 COMPILE
  4055. REM
  4056. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  4057. REM
  4058. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  4059. REM
  4060. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  4061. REM FLANKS TO NFLANKS
  4062. REM 500
  4063. GOSUB 9005
  4064. PRINT
  4065. 160 PRINT TAB(23);"Dimis Micro Systems, Inc. "
  4066. PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
  4067. PRINT
  4068. PRINT TAB(29);"MENU OPTION #3"
  4069. PRINT TAB(26);"ACCOUNT SUBSCHEDULES" : PRINT
  4070. PRINT TAB(5);"Press RETURN Key to Continue or 'M' to Return to Utilities Menu";
  4071. FLD.LEN%=1 : GOSUB 9998 : X$=UCASE$(LEFT$(REPLY$,1))
  4072. IF X$="M" THEN 750
  4073. 220 GOSUB 9005
  4074. PRINT "SET THE PRINTER AND PAPER"
  4075. 315 PRINT : PRINT "Please Enter Y f A SUBSCHEDULE OF A SUBACCOUNT;"
  4076. 327 PRINT "ENTER THE FOUR DIGIT CORE ACCOUNT NUMBER ONLY!"
  4077. 328 GOTO 320
  4078. 329 X4=0 : A9=-1 : X1=0 :H9=0
  4079. 330 PRINT TAB(5);"DO YOU WANT CURRENT PERIOD BALANCES TO PRINT? ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : X$=UCASE$(LEFT$(REPLY$,1))
  4080. IF X$ = "Y" THEN 338
  4081. IF X$ = "N" THEN H=0 : GOTO 340
  4082. 336 PRINT "PLEASE ENTER ONLY Y OR N!" : GOTO 330
  4083. 338 H=1
  4084. 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
  4085. IF DOT.OVER% THEN DOT.OVER% = DOT.OVER% - 1
  4086. GOTO 9998.7
  4087. 9998.4 IF CHAR%<32 OR CHAR%>125 THEN 9998.7
  4088. IF CHAR%=34 THEN CHAR%=39
  4089. REM **** FILTER OUT NON-NUMERICS IF NUM.ONLY% WAS SET TO -1 (FLD.LEN% < 0) ****
  4090. IF NUM.ONLY = 0 OR CHAR% = 13 THEN 9998.6
  4091. IF CHAR% = 45 AND ACT.LEN% = 0 THEN 9998.6
  4092. IF CHAR% = 46 AND DOT.OVER% = 0 THEN DOT.OVER% = 1 : GOTO 9998.6
  4093. IF CHAR% < 48 OR CHAR% > 57 THEN \
  4094. PRINT CHR$(7); : \
  4095. .LEN%>FLD.LEN% THEN \
  4096. CHAR%=13
  4097. 9998.7 WEND
  4098. RETURN
  4099. 
  4100. REM IF CHAR% = 46 THEN DOT.OVER% = DOT.OVER% + 1
  4101. 9998.6 ACT.LEN%=ACT.LEN% + 1
  4102. IF ACT.LEN%>FLD.LEN% AND DOT.OVER% THEN DOT.OVER% = DOT.OVER% - 1
  4103. IF ACT.LEN%>FLD.LEN% AND FLD.LEN% <> 0 THEN \
  4104. PRINT CHR$(7); : ACT.LEN% = ACT.LEN% -1 : \
  4105. GOTO 9998.7
  4106. PRINT CHR$(CHAR%);
  4107. REPLY$=REPLY$+CHR$(CHAR%)
  4108. IF ACT
  4109. REM 111782 - DCF CHANGED TO SIMULATE DOS VERSION (NON-ZERO FIX)
  4110. REM 091782 - DCF DELETED PROMPT FOR CLIENT DISK AND FIXED FORMAT ERRORS
  4111. REM 091382 - DCF CHAINED COANS FILE LEN FROM 43 TO 65 (FIXED RE ERROR)
  4112. REM *** SUBSCHEDULE PROGRAM (SUBSCHED)
  4113. REM *** COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS INC.
  4114. REM *** 648 SOUTH RIVER DR. 602-968-7101
  4115. REM *** TEMPE, AZ 85281
  4116. %INCLUDE COMMON.BAS
  4117. 150 REM OPENING ALL THE FILES
  4118. GOSUB 4000
  4119. GOSUB 4or YES or N for NO: " : PRINT
  4120. 316 PRINT"WOULD YOU LIKE TO PRINT SUBSCHEDULES FOR ALL THE ACCOUNTS? ";:FLD.LEN%=1 :GOSUB 9998: B$=UCASE$(LEFT$(REPLY$,1)) : PRINT
  4121. IF B$ = "N" THEN 320
  4122. IF B$ = "Y" THEN 329
  4123. PRINT "PLEASE ENTER ONLY Y OR N!" : GOTO 316
  4124. 320 CONSOLE : GOSUB 9005 : PRINT : F=0
  4125. PRINT"ENTER THE NUMBER OF THE ACCOUNT THAT YOU WANT A SUBSCHEDULE OF >";:FLD.LEN%=10 : GOSUB 9998 : PRINT : X=VAL(REPLY$)
  4126. 325 IF X-INT(X)=0 THEN 330
  4127. 326 PRINT CHR$(7);"YOU CAN NOT PRINTSE$(LEFT$(REPLY$,1))
  4128. IF W$ = "Y" THEN 346
  4129. IF W$ = "N" THEN 346
  4130. 345 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!" : GOTO 340
  4131. 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))
  4132. IF Z$ = "Y" THEN 501
  4133. IF Z$ = "N" THEN 501
  4134. 350 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!" : GOTO 346
  4135. 360 LPRINTER
  4136. IF F2=1 THEN GOTO 390 ELSE GOTO 389
  4137. 389 P1=P1+1 : PRINT TAB(67);"PAGE";
  4138. PRINT USING "##";P1 : PRINT
  4139. 390 IF H=1 THEN GOTO 395 ELSE GOTO 450
  4140. 395 IF Z$ = "N" THEN 410
  4141. PRINT TAB(5);"ACCT. NUMBER";
  4142. 410 PRINT TAB(20);"ACCOUNT NAME";
  4143. PRINT TAB(43);"CURR. BALANCE";
  4144. PRINT TAB(67);"Y.T.D. BALANCE"
  4145. 420 IF Z$ = "N" THEN 440
  4146. PRINT TAB(5);"------------";
  4147. 440 PRINT TAB(20);"------------";
  4148. PRINT TAB(43);"-------------";
  4149. PRINT TAB(67);"--------------" : P=P+2
  4150. 441 IF H9=1 THEN GOTO 668
  4151. N9=0 : N8=0 : GOTO 520
  4152. 450 TO 1.0 STEP -1.0
  4153. 507 IF MID$(CLIENT.NAME$,J,1) <> " " THEN 509
  4154. 508 NEXT J
  4155. 509 J1 = INT((75-J)/2)
  4156. 510 LPRINTER : PRINT : PRINT TAB(J1);CLIENT.NAME$
  4157. 511 PRINT TAB(26);" ACCOUNT SUBSCHEDULES " : PRINT
  4158. 512 PRINT : PRINT TAB(5);"GENERAL LEDGER RUN DATE: ";
  4159. PRINT USING "&&";MID$(GL.END.DATE$,1,2);
  4160. PRINT "/";
  4161. PRINT USING "&&";MID$(GL.END.DATE$,3,2);
  4162. PRINT "/";
  4163. PRINT USING "&&";MID$(GL.END.DATE$,5,2) : F2=1
  4164. PRINT : PRINT
  4165. 515 GOTO 360
  4166. 520 REM READING COANS );
  4167. PRINT USING"#########.##";CUR.PER.BAL/100;
  4168. PRINT TAB(66);
  4169. PRINT USING "############.##";YR.TO.DATE.BAL/100 : GOTO 585
  4170. 583 PRINT TAB(20);ACCT.DESCRIP$;
  4171. PRINT TAB(66);
  4172. PRINT USING "############.##";YR.TO.DATE.BAL/100
  4173. 585 IF ACCT.NUM=X THEN 596
  4174. 590 IF H<>1 THEN 592
  4175. 591 PRINT TAB(22);ACCT.DESCRIP$;
  4176. PRINT TAB(44);
  4177. PRINT USING "#########.##";CUR.PER.BAL/100;
  4178. PRINT TAB(66);
  4179. PRINT USING "############.##";YR.TO.DATHEN 750
  4180. X4=X4+1
  4181. 611 IF ACCT.NUM<A9 AND SUBACCT.FLG=1 THEN SUBACCT.FLG=0 : GOTO 630
  4182. IF ACCT.NUM=-1 AND (SUBACCT.FLG=0 AND (CORE.XE=0 AND SUB.XE=0)) THEN 750
  4183. 612 IF SUBACCT.FLG=1 THEN 625
  4184. 615 IF INT(ACCT.NUM)=ACCT.NUM THEN 670
  4185. 618 SUBACCT.FLG=1 : SUBACCT.PRT.FLG=1 : N8=N8+C2 : N9=N9+C3
  4186. 620 IF INT(A9) < INT(ACCT.NUM) THEN 630
  4187. 625 IF INT(ACCT.NUM) <> INT(A9) THEN 627
  4188. 626 IF ACCT.NUM>A9 THEN 630
  4189. 627 SUBACCT.FLG=0 : GOTO 630.1
  4190. 630 N8=N8+CUR.PER.BAL : N9=N9+YR.TO.DATE.BAL
  4191. 630.1 IF W$< CORE.XE=1
  4192. GOTO 665
  4193. 660 IF H<>1 THEN 661
  4194. PRINT TAB(22);C9$;
  4195. PRINT TAB(44);
  4196. PRINT USING "#########.##";C2/100;
  4197. PRINT TAB(66);
  4198. PRINT USING "############.##";C3/100 : GOTO 665
  4199. 661 PRINT TAB(22);C9$;
  4200. PRINT TAB(66);
  4201. PRINT USING "############.##";C3/100 : GOTO 665
  4202. 664 SUB.XE=1
  4203. 665 P=P+1
  4204. 666 IF P<60 THEN 669
  4205. 667 H9=1 : GOTO 788
  4206. 668 H9=0
  4207. 669 IF SUBACCT.FLG=0 THEN 755
  4208. 670 A9=ACCT.NUM : C2=CUR.PER.BAL : C3=YR.TO.DATE.BAL : C9$=IF Z$ = "N" THEN 460
  4209. PRINT TAB(5);"ACCT. NUMBER";
  4210. 460 PRINT TAB(20);"ACCOUNT NAME";
  4211. PRINT TAB(67);"Y.T.D. BALANCE"
  4212. 470 IF Z$ = "N" THEN 490
  4213. PRINT TAB(5);"------------";
  4214. 490 PRINT TAB(20);"------------";
  4215. PRINT TAB(67);"--------------" : P=P+2
  4216. 500 IF H9=1 THEN GOTO 668
  4217. N9=0 : GOTO 520
  4218. 501 REM READING CLNRNM FILE
  4219. 502 GOSUB 5000
  4220. IF F2<>0 THEN 520
  4221. 505 P=10 : P1=1 :
  4222. LPRINTER : PRINT TAB(67);"PAGE"; P1
  4223. 506 FOR J=LEN(CLIENT.NAME$) FILE
  4224. 522 IF B$="Y" THEN 606
  4225. 525 X4=0
  4226. 526 GOSUB 4600
  4227. IF ACCT.NUM = -1 THEN 690
  4228. X4=X4+1
  4229. 535 C1=INT(ACCT.NUM)
  4230. 540 IF C1<>X THEN 526
  4231. 541 N8=N8+CUR.PER.BAL : N9=N9+YR.TO.DATE.BAL : F=1
  4232. 560 IF W$ <> "N" THEN 565
  4233. IF YR.TO.DATE.BAL=0 AND ACCT.NUM <> INT(ACCT.NUM) THEN 526
  4234. 565 LPRINTER
  4235. IF Z$ = "N" THEN 575
  4236. 570 PRINT TAB(5);
  4237. PRINT USING "#########.##";ACCT.NUM;
  4238. 575 IF ACCT.NUM <> X THEN 585
  4239. 580 IF H<>1 THEN 583
  4240. PRINT TAB(20);ACCT.DESCRIP$;
  4241. PRINT TAB(44TE.BAL/100 : GOTO 596
  4242. 592 PRINT TAB(22);ACCT.DESCRIP$;
  4243. PRINT TAB(66);
  4244. PRINT USING "############.##";YR.TO.DATE.BAL/100
  4245. 596 P=P+1
  4246. IF P<60 THEN 526
  4247. 597 PRINT CHR$(12); : PRINT : P=3 : P1=P1+1
  4248. PRINT TAB(67);"PAGE ";P1
  4249. PRINT
  4250. GOTO 526
  4251. 602 IF SUBACCT.FLG=0 AND (CORE.XE=1 AND SUB.XE=1) THEN 755
  4252. 605 A9=ACCT.NUM : C2=CUR.PER.BAL : C3=YR.TO.DATE.BAL : C9$=ACCT.DESCRIP$
  4253. 606 GOSUB 4600
  4254. IF ACCT.NUM = -1 AND (SUBACCT.FLG=0 AND (CORE.XE=1 AND SUB.XE=1)) >"N" THEN 632
  4255. IF C3=0 AND A9<>INT(A9) THEN 602
  4256. 632 IF Z$="N" THEN 650
  4257. 635 PRINT TAB(5);
  4258. PRINT USING "#########.##";A9;
  4259. 650 IF SUBACCT.PRT.FLG=1 THEN GOTO 655 ELSE GOTO 660
  4260. 655 IF H<>1 THEN 656
  4261. PRINT TAB(20);C9$;
  4262. PRINT TAB(44);
  4263. PRINT USING"#########.##";C2/100;
  4264. PRINT TAB(66);
  4265. PRINT USING "############.##";C3/100 : GOTO 658
  4266. 656 PRINT TAB(20);C9$;
  4267. PRINT TAB(66);
  4268. PRINT USING "############.##";C3/100
  4269. 658 P=P+1 : SUBACCT.PRT.FLG=0
  4270. ACCT.DESCRIP$
  4271. 680 GOTO 606
  4272. 690 IF F=1 THEN 755
  4273. 700 CONSOLE
  4274. PRINT CHR$(7);"ACCOUNT NUMBER ";
  4275. PRINT USING "######";X;
  4276. PRINT" DOES NOT EXIST; PLEASE CHECK!"
  4277. 720 PRINT " PRESS RETURN TO CONTINUE ";:FLD.LEN%=2:GOSUB 9998: PRINT: G$=LEFT$(REPLY$,1)
  4278. 725 PRINT CHR$(12);
  4279. 740 GOSUB 9005 : GOTO 320
  4280. 750 CONSOLE
  4281. CLOSE CLNRNM.FIL
  4282. CLOSE COANS.FILE
  4283. CHAIN PGM$(4) + ":" + "UMENU"
  4284. 755 SUB.XE=0 : CORE.XE=0
  4285. IF H<>1 THEN 756
  4286. PRINT TAB(43);"-------------";
  4287. 756 PRINT TAB(67);"--------------" : GOTO 780
  4288. PRINT TAB(67);"--------------"
  4289. 780 IF H<>1 THEN 781
  4290. PRINT TAB(25);"TOTAL";
  4291. PRINT TAB(41);
  4292. PRINT USING "############.##";N8/100;
  4293. PRINT TAB(66);
  4294. PRINT USING "############.##";N9/100 : GOTO 782
  4295. 781 PRINT TAB(25);"TOTAL";
  4296. PRINT TAB(66);
  4297. PRINT USING "############.##";N9/100
  4298. 782 IF H<>1 THEN 783
  4299. PRINT TAB(43);"=============";
  4300. PRINT TAB(67);"==============": GOTO 784
  4301. 783 PRINT TAB(67);"? ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : Y$=UCASE$(LEFT$(REPLY$,1))
  4302. IF Y$ = "Y" THEN 835
  4303. 830 GOTO 750
  4304. GOTO 755
  4305. 835 N8=0 : N9=0
  4306. 840 LPRINTER
  4307. PRINT : PRINT : P=P+3 : GOTO 320
  4308. 4000 OPEN FIL$(2) + ":" + CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL=1
  4309. RETURN
  4310. 4500 OPEN FIL$(4) + ":" + CLIENT$ + "COA.FIL" RECL 65 AS 2 : COANS.FILE =2
  4311. RETURN
  4312. 4600 READ #COANS.FILE,X4+1;\
  4313. ACCT.NUM,\
  4314. CUR.PER.BAL,\
  4315. YR.TO.DATE.BAL,\
  4316. ACCT.DESCRIP$
  4317. RREM 071783 - DCF TOOK LINE NUMBERS OFF REM STATEMENTS
  4318. REM CHANGED .INT TO .OVL FOR 8(BIT) OR .OVR FOR 16(BIT)
  4319. REM FOR CB80 COMPILE
  4320. REM
  4321. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  4322. REM
  4323. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  4324. REM
  4325. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  4326. REM FLANKS TO NFLANKS
  4327. REM
  4328. REM *** STATEMENT OF CHANGES MENU ( MENU ) ( VERSION 4.0 )
  4329. REM *** COPYRIGHT 1982 BY Dimis Micro SystemsPRINT TAB(15);"4. UPDATE ACCOUNT BALANCES AUTOMATICALLY"
  4330. 150 PRINT TAB(15);"5. PRINT COMPARATIVE FINANCIAL STATEMENTS"
  4331. 160 PRINT TAB(15);"6. PRINT A STATEMENT OF CHANGES WORKSHEET"
  4332. 170 PRINT TAB(15);"7. EDIT OR PRINT THE STATEMENT OF CHANGES"
  4333. 171 PRINT TAB(15);" IN FINANCIAL POSITION"
  4334. 175 PRINT TAB(15);"8. PRINT A SCHEDULE OF CHANGES IN WORKING CAPITAL"
  4335. 180 PRINT TAB(15);"9. RETURN TO CPA MENU"
  4336. 190 PRINT TAB(10);
  4337. 200 INPUT " ENTER THE NUMBER OF THE FUNCTION TO PERFORM >";X$
  4338. 205 P$="MMENU" + FIL$(2) + " and Press RETURN "
  4339. GOSUB 2000 : GOSUB 2100 : FLD.LEN% = 1 : GOSUB 9998
  4340. GOTO 350
  4341. 352 GOTO 710
  4342. 355 REM ********************************* CHECK FOR MMENU
  4343. GOSUB 9005
  4344. INITIALIZE
  4345. IF NUM.BITS%=8 THEN EXT$=".OVL" ELSE EXT$ = ".OVR"
  4346. IF SIZE(PGM$(1)+":MMENU"+EXT$) <> 0 THEN CHAIN PGM$(1)+":MMENU"
  4347. ERR$ = "Correct disk is not in drive " + PGM$(1)
  4348. MSSG$ = "Place the Accounting Program disk in drive " + PGM$(1) + " and Press RETURN "
  4349. GOSUB 2000 : GOSUB 2100 : FLD.LEN% = 1 : G=============="
  4350. 784 IF B$="N" THEN 787
  4351. IF ACCT.NUM = -1 THEN 750
  4352. A9=ACCT.NUM : C2=CUR.PER.BAL : C3=YR.TO.DATE.BAL : C9$=ACCT.DESCRIP$
  4353. PRINT : PRINT : P=P+5
  4354. 786 IF P<60 THEN GOTO 805 ELSE GOTO 788
  4355. 787 P=P+3
  4356. IF P<60 THEN 812
  4357. 788 PRINT CHR$(12); : PRINT : P=5
  4358. 800 IF B$="Y" THEN GOTO 389 ELSE GOTO 811
  4359. 805 N8=0 : N9=0 : GOTO 606
  4360. 811 P1=P1+1 : PRINT : PRINT TAB(67),"PAGE ";P1
  4361. PRINT
  4362. 812 CONSOLE
  4363. PRINT : PRINT "WOULD YOU LIKE TO PRINT ANOTHER SUBSCHEDULEETURN
  4364. %INCLUDE NFLANKS.BAS
  4365. %INCLUDE 5000
  4366. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞, Inc.
  4367. REM
  4368. %INCLUDE COMMON.BAS
  4369. 70 GOSUB 9005 : PRINT : PRINT
  4370. 72 PRINT TAB(20);" Dimis Micro Systems, Inc. "
  4371. PRINT TAB(12);" Client Programmed Accounting Ver. ";VERSION$
  4372. 80 PRINT TAB(15);" AUXILIARY STATEMENTS MENU " : PRINT
  4373. 90 PRINT TAB(10);" WHICH FUNCTION WOULD YOU LIKE TO PERFORM?"
  4374. 100 PRINT TAB(15);"1. EDIT OR LIST AUXILIARY ACCOUNTS"
  4375. 120 PRINT TAB(15);"2. EDIT PERIOD ENDING DATES OR FISCAL YEAR END"
  4376. 130 PRINT TAB(15);"3. UPDATE OR MODIFY ACCOUNT BALANCES MANUALLY"
  4377. 140
  4378. 210 IF X$="1" THEN P$="CACCTS"
  4379. 230 IF X$="2" THEN P$="CONTEDIT"
  4380. 240 IF X$="3" THEN P$="CJOURNAL"
  4381. 250 IF X$="4" THEN P$="UPDATE"
  4382. 260 IF X$="5" THEN P$="COMPARE"
  4383. 270 IF X$="6" THEN P$="WORKS"
  4384. 280 IF X$="7" THEN P$="STATE"
  4385. 290 IF X$="8" THEN P$="SCHED"
  4386. 295 IF X$="9" THEN P$="MMENU"
  4387. 300 IF P$ = "MMENU" THEN 355
  4388. 350 GOSUB 9005
  4389. INITIALIZE
  4390. IF SIZE(FIL$(2)+":"+CLIENT$+"CLN.FIL") <> 0 THEN GOTO 710
  4391. ERR$ = "Correct disk is not in drive " + FIL$(2)
  4392. MSSG$ = "Place the Client Data disk in drive "OSUB 9998
  4393. GOTO 355
  4394. 710 CHAIN PGM$(1) + ":" + P$
  4395. %INCLUDE NFLANKS.BAS
  4396. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞REM 071783 - DCF CHANGED .INT TO .OVL FOR 8(BIT) OR .OVR FOR 16(BIT)
  4397. REM FOR CB80 COMPILE
  4398. REM
  4399. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  4400. REM
  4401. REM 052283 - BTC ADDED Dimis MICRO SYSTEMS HEADING
  4402. REM
  4403. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  4404. REM FLANKS TO NFLANKS
  4405. REM
  4406. REM *** UTILITIES MENU PROGRAM (MENU)
  4407. REM *** COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS INC.
  4408. REM *** 648 SOUTH RIVER DINT AN ACCOUNT SUBSCHEDULE"
  4409. PRINT TAB(20);"4. TRANSFER CURRENT TRANSACTIONS TO YEAR-TO-DATE FILE"
  4410. PRINT TAB(20);"5. DISPLAY CURRENT STATUS OF AN ACCOUNT"
  4411. PRINT TAB(20);"6. PRINT ADDRESS LABELS"
  4412. PRINT TAB(20);"7. GENERATE RANDOM NUMBERS"
  4413. PRINT TAB(20);"8. RETURN TO CPA MENU"
  4414. PRINT TAB(15);
  4415. INPUT "ENTER THE NUMBER OR THE FUNCTION TO PERFORM >";X$
  4416. 200 P$="MMENU"
  4417. IF X$="1" THEN P$="CONTPAY"
  4418. IF X$="2" THEN P$="NOTEPAY"
  4419. IF Xthe Accounting Program disk in drive " + PGM$(1) + " and Press RETURN "
  4420. GOSUB 2000 : GOSUB 2100 : FLD.LEN% = 1 : GOSUB 9998
  4421. GOTO 250
  4422. 700 CHAIN PGM$(4)+":"+P$
  4423. %INCLUDE NFLANKS.BAS
  4424. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  4425. REM
  4426. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  4427. REM
  4428. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  4429. REM FLANKS TO NFLANKS
  4430. REM
  4431. REM 092282 - (RCB) TOOK INITFILE OFF AMENU
  4432. REM
  4433. REM 092182 - (RCB) ADDED AN INITIALIZE AT LINES 190 AND 710 SO THEY CAN CHANGE
  4434. REM THE DISKETTE AT MENU PROMPT
  4435. REM
  4436. REM 082682 - ADDED PRINT STATEMENTS AFTER 9998 CALLS
  4437. REM
  4438. REM *** ACCOUNTING MENU (AMENU) (VERSION 4.0)URNAL TRANSACTIONS"
  4439. PRINT TAB(15);"3. PRINT WORKING TRIAL BALANCE"
  4440. PRINT TAB(15);"4. PREPARE GENERAL LEDGER"
  4441. PRINT TAB(15);"5. EDIT OR LIST FINANCIAL STATEMENT HEADERS"
  4442. PRINT TAB(15);"6. PRINT FINANCIAL STATEMENTS"
  4443. PRINT TAB(15);"7. CLOSE INCOME AND EXPENSE ACCOUNTS"
  4444. PRINT TAB(15);"8. RETURN TO CPA MENU"
  4445. PRINT
  4446. PRINT
  4447. 190 INITIALIZE
  4448. PRINT TAB(10);
  4449. INPUT "ENTER THE NUMBER OF THE FUNCTION TO PERFORM >";X$
  4450. P$="MMENU"
  4451. IF X$="1" THEN P$="ACCOUNTS"
  4452. IF X$="2" THEN P$="JOURRIVE 602-968-7101
  4453. REM *** TEMPE, AZ. 85281
  4454. %INCLUDE COMMON.BAS
  4455. 50 GOSUB 9005 : PRINT : PRINT : PRINT
  4456. 100 PRINT TAB(22);" Dimis Micro Systems, Inc. "
  4457. PRINT TAB(15);" Client Programmed Accounting Ver. ";VERSION$
  4458. PRINT TAB(27);"UTILITIES MENU" : PRINT
  4459. PRINT TAB(15);"WHICH FUNCTION WOULD YOU LIKE TO PERFORM?"
  4460. PRINT TAB(20);"1. PRINT A CONTRACT PAYABLE SCHEDULE"
  4461. PRINT TAB(20);"2. PRINT A NOTE PAYABLE SCHEDULE"
  4462. PRINT TAB(20);"3. PR$="3" THEN P$="SUBSCHED"
  4463. IF X$="4" THEN P$="YTDTRANS"
  4464. IF X$="5" THEN P$="ACCTSTAT"
  4465. IF X$="6" THEN P$="LABELS"
  4466. IF X$="7" THEN P$="RANDOM"
  4467. IF X$="8" THEN P$="MMENU"
  4468. IF P$="MMENU" THEN 250 ELSE GOTO 700
  4469. 250 REM ********************************* CHECK FOR MMENU
  4470. INITIALIZE
  4471. IF NUM.BITS%=8 THEN EXT$= ".OVL" ELSE EXT$= ".OVR"
  4472. IF SIZE(PGM$(1)+":MMENU"+EXT$) <> 0 THEN CHAIN PGM$(1)+":MMENU"
  4473. ERR$ = "Correct disk is not in drive " + PGM$(1)
  4474. MSSG$ = "Place 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞(10D)
  4475. REM *** COPYRIGHT 1982 BY Dimis Micro Systems, Inc.
  4476. REM ****************************************** STICK COMMON HERE PLEASE
  4477. %INCLUDE COMMON.BAS
  4478. 70 GOSUB 9005
  4479. PRINT
  4480. PRINT
  4481. 75 PRINT TAB(19);" Dimis Micro Systems, Inc. "
  4482. PRINT TAB(12);" Client Programmed Accounting Ver. ";VERSION$
  4483. PRINT
  4484. 80 PRINT TAB(25);"ACCOUNTING MENU"
  4485. PRINT
  4486. 90 PRINT TAB(10);"WHICH FUNCTION WOULD YOU LIKE TO PERFORM?"
  4487. PRINT TAB(15);"1. EDIT OR LIST CHART OF ACCOUNTS"
  4488. PRINT TAB(15);"2. ENTER OR LIST JONALS"
  4489. IF X$="3" THEN P$="ETRIAL"
  4490. IF X$="4" THEN P$="GENLED"
  4491. IF X$="5" THEN P$="HEADERS"
  4492. IF X$="6" THEN P$="FINSTATE"
  4493. IF X$="7" THEN P$="CLOSING"
  4494. IF X$="8" THEN P$="MMENU"
  4495. 710 INITIALIZE
  4496. REM *** IF END #1 THEN 800
  4497. REM OPEN FIL$(1)+":"+P$ AS 1
  4498. REM CLOSE 1
  4499. CHAIN PGM$(1)+":"+P$
  4500. 800 ERR$ = "INCORRECT DISK IN DRIVE "+FIL$(1)
  4501. MSSG$ = "PLEASE INSERT THE CORRECT DISK - THEN PRESS RETURN "
  4502. GOSUB 2000
  4503. GOSUB 2100
  4504. FLD.LEN% = 1 : GOSUB 9998 : PRINT
  4505. INITIALIZE
  4506. GOTO 710
  4507. %INCLUDE NFLANKS.BAS
  4508. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  4509. REM
  4510. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  4511. REM
  4512. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  4513. REM FLANKS TO NFLANKS
  4514. REM
  4515. REM *** CPA ON CP/M PMENU
  4516. REM *** COPYRIGHT 1982 BY - Dimis Micro Systems, Inc.
  4517. %INCLUDE COMMON.BAS
  4518. 49 GOSUB 9005 : PRINT
  4519. PRINT TAB(18);" Dimis Micro Systems, Inc. "
  4520. PRINT TAB(10);" Client Programmed Accounting Ver. ";VERSION$
  4521. PRINT TAB(20);"POST PAYROLLN P$="W2"
  4522. IF X$="5" THEN P$="MMENU"
  4523. IF P$="MMENU" THEN 710
  4524. 700 GOSUB 9005
  4525. CHAIN PGM$(2)+":"+P$
  4526. 710 REM ********************************* CHECK FOR MMENU
  4527. INITIALIZE
  4528. IF NUM.BITS%=8 THEN EXT$= ".OVL" ELSE EXT$= ".OVR"
  4529. IF SIZE(PGM$(1)+":MMENU"+EXT$) <> 0 THEN CHAIN PGM$(1)+":MMENU"
  4530. ERR$ = "Correct disk is not in drive " + PGM$(1)
  4531. MSSG$ = "Place the Accounting Program disk in drive " + PGM$(1) + " and Press RETURN "
  4532. GOSUB 2000 : GOSUB 2100 : FLD.LEN% = 1 : GOSUB 9998REM 110185 - RML - RESET EMPLOYER FICA RATE TO BE EQUAL TO THE EMPLOYEE RATE
  4533. REM
  4534. REM 112084 - SRS - CORRECTED 1985 EMPLOYER'S FICA RATE TO BE 7.05%
  4535. REM
  4536. REM 010384 - (RCB) PUT IN LINE A FEW LINES AFTER 180 TO SET XE.L4 TO
  4537. REM .07 IF THE YEAR IS "84" OR L(4) IF NOT - AND CHANGED
  4538. REM LINES FORM AROUND 1040 THROUGH 1100 TO MULTIPLY
  4539. REM J6 BY XE.L4 ( + INT((XE.L4 * J6) +.5))
  4540. REM
  4541. REM 102783 - (RCB) ADD CHANGES FOR NEGATIVE CHECK BACKING OUT DURRING
  4542. REM FICA CUT OFF CROSS OVER AROUND 88CSS BY CHANGING VARIABLE LOCAL.WTIH.1
  4543. REM TO THE CORRECT VARIABLE USED LOCAL.WITH.1
  4544. REM
  4545. REM *** 042283 DCF - FIXED BUG #29041983-3-IMP BY CHECKING FOR A <CR> WHEN ENTERING
  4546. REM AN EMPLOYEE NUMBER
  4547. REM
  4548. REM *** 041983 DCF - FIXED BUG #1-041483-3-IJH BY CHANGING FORMATTED PRINTING
  4549. REM TO ALLOW FOR A LARGER # IN CHECK BALANCE AND OUT OF BALANCE
  4550. REM CONDITION.
  4551. REM
  4552. REM *** 040883 DCF - FIXED BUG CODE #040883-3-IMP, CHANGED LINE繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞 MENU" : PRINT
  4553. PRINT TAB(10);"WHICH FUNCTION WOULD YOU LIKE TO PERFORM?"
  4554. PRINT TAB(15);"1. EDIT OR LIST EMPLOYEE INFORMATION"
  4555. PRINT TAB(15);"2. ENTER PAYROLL CHECKS"
  4556. PRINT TAB(15);"3. PRINT PAYROLL REPORTS"
  4557. PRINT TAB(15);"4. PRINT W-2 FORMS"
  4558. PRINT TAB(15);"5. RETURN TO CPA MENU"
  4559. PRINT TAB(10);
  4560. INPUT "ENTER THE NUMBER OF THE FUNCTION TO PERFORM >";X$
  4561. P$="MMENU"
  4562. IF X$="1" THEN P$="EERCHGS"
  4563. IF X$="2" THEN P$="PAYROLL"
  4564. IF X$="3" THEN P$="EARNINGS"
  4565. IF X$="4" THE
  4566. GOTO 710
  4567. %INCLUDE NFLANKS.BAS
  4568. 繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞繞4
  4569. REM
  4570. REM 092683 - (RCB) CHANGED E TO E.NO, F TO F4, P TO PG.NO, L TO L1.XE
  4571. REM PER DCF FOR CB80
  4572. REM
  4573. REM *** 080383 DCF - ADDED UCASE$ WHEN CHECKING FOR VALID 4 CHAR. OF LAST NAME
  4574. REM AND ADDED CHECK OF DUPE KEY FOR THE CHECK AMOUNT FIELD
  4575. REM
  4576. REM 062083 - (RCB) CHANGED "R & B" TO "D M S"
  4577. REM
  4578. REM *** 051883 DCF - FIXED BUG #68-013683-IRML BY CHANGING VARIABLE TOTAL
  4579. REM WHICH WAS BEING DIVIDED BY 10 TO 100
  4580. REM
  4581. REM *** 042283 DCF - FIXED BUG #40042183- 680' FLD.LEN%
  4582. REM FROM 12 TO 10
  4583. REM
  4584. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  4585. REM FLANKS TO NFLANKS
  4586. REM
  4587. REM *** 02/01/83 DCF - ADDED THE TYPE OF RUN TO PRINT OUT ON PAYROL JOURNAL HEADING
  4588. REM ***
  4589. REM *** 02/01/83 DCF - CHANGED PRINT CLR$ TO GOSUB 9005
  4590. REM *** CHANGED 3.6 TO VERSION$
  4591. REM ***
  4592. REM *** 11/15/82 DTK - MORE WORK ON DEDUCTIONS PROBLEM - TRY MATCH(A$)
  4593. REM ***
  4594. REM *** 9/24/82 DTK - FIXED 10 DEDUCTION PROBLEM
  4595. REM ***
  4596. 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]=-����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������