DMS_client_programmed_source_code_v3.84_1_of_4.nsi 350 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192
  1. � 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋�HEADERS BAS���j
  2. ���SCHED BAS���c����CACCTS BAS���€ !"#$%&'()*+,�CACCTS BAS��.-./012�����������RANDOM BAS���$34567������������10000 BAS���8����������������10020 BAS���9����������������10010 BAS���:����������������10030 BAS���;����������������5000 BAS���<����������������5010 BAS���=����������������MMENU BAS���P>?@ABCDEFG�������MCOMMON BAS���H����������������9999 BAS���I����������������SORT BAS���JKL��������������SERIAL BAS���MNO�������������邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋REM 110483 - (RCB) PUT "IF LEN(REPLY$) = 0 THEN 4000" AFTER ENTER HEADER
  3. REM NUMBER IN PROGRAM AND "AND N>0" IN LINE ABOVE 4040 TO
  4. REM PREVENT THE ENTERING OF CARRAGE RETURNS OR ZEROS FOR
  5. REM HEADER NUMBERS
  6. REM
  7. REM 070583 - DCF TOOK OUT ; 3 LINE ABOVE 777 FOR CB80 COMPILE
  8. REM
  9. REM 062283 - (RCB) TOOK REM OFF W=0 IN LINE FOUR LINES ABOVE 6106 TO
  10. REM PREVENT RECORD THAT SHOULD BE WRITTEN IN TO THE FIRST
  11. REM LOCATION FROM BEING WRITTEN IN TO THE SECOND.
  12. REM
  13. REM 062083 - (RCB) CEFORE CHANGE ON 032283
  14. REM
  15. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  16. REM FLANKS TO NFLANKS
  17. REM
  18. REM 032283 - (RCB) CHANGED THREE LINES ABOVE 4250 TO ALLOW A RETURN TO BE
  19. REM ENTERED FOR THE HEADER DISCRIPTION
  20. REM
  21. REM 092282 - (RCB) DECREMENTED MENU OPTION NUMBER BY 1
  22. REM
  23. REM 091882 - (RCB) FLD.LEN% = 8 CHANGED TO FLD.LEN% = 9 IN LINE AFTER 4300
  24. REM TO REMOVE HOT KEY BOARD EFFECT IF TOO MANY CHARACTORS ARE
  25. REM TYPE IN FROM KEY BOUNC-7101
  26. REM *** TEMPE, AZ. 85281
  27. %INCLUDE COMMON.BAS
  28. GOSUB 9005
  29. PRINT
  30. PRINT TAB(23);"Dimis Micro Systems, Inc. "
  31. PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
  32. PRINT
  33. PRINT TAB(20);"** ACCOUNTING MENU OPTION #5 **"
  34. PRINT TAB(15);"EDITS OR LISTS FINANCIAL STATEMENT HEADERS" : PRINT
  35. PRINT TAB(5);"Press RETURN Key To Continue Or 'M' To Return To Accounting Menu ";
  36. FLD.LEN% = 1 : GOSUB 9998 : M$ = UCASE$(REPLY$) : PRINT
  37. IF M$="M" THEN 1540
  38. G$="0*1�EERCHGS BAS���€PQRSTUVWXYZ[\]^_�EERCHGS BAS��5`abcdef����������STATE BAS���rghijklmnopqrstu��DOP BAS���tvwxyz{|}~€亗儎��ETRIAL BAS���$厗噲�������������ETRIAL2 BAS���V妺實帍悜挀������錘CLIENT $$$���€晼棙櫄洔潪煚、¥錘CLIENT $$$�������������������邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋HANGED "Micro Systems" TO "Dimis Micro Systems"
  39. REM
  40. REM 062083 - (RCB) CHANGED "R & B" TO "D M S"
  41. REM
  42. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  43. REM
  44. REM 042283 - DCF FIXED BUG #19-041983-3-IMP BY ADDING A UCASE$ TO REPLY$ FOR
  45. REM HEADER CONTROL CHARACTERS.
  46. REM
  47. REM 042183 - DCF CHANGED FLD.LEN%=1 FOR M TO RETURN TO MENU AND FLD.LEN%=-6
  48. REM FOR CLIENT.NO
  49. REM 040483 - (RCB) CHANGED THIRD LINE ABOVE 4250 SO IT WILL PUT A
  50. REM DISCRIPTION IN HEADER AS BE
  51. REM
  52. REM 091382 - CHANGED ',' TO ';' IN DATE ROUTINE FOR HEADING
  53. REM
  54. REM 082682 - PUT PRINT STATEMENTS AFTER ALL 9998 CALLS FIXING SCREEN DISPLAY
  55. REM
  56. REM 082282 FIXED PROBLEM ENTERING DATES ON LISTINGS-LINE 4580 CHAR 2 TO CHAR 3
  57. REM
  58. REM LINE 1104 CHANGED E$ TO E3$ TO FIX PROBLEM CHANGING CONTROL HEADERS 081882
  59. REM
  60. REM ***FINANCIAL STATEMENT HEADER CHANGES*** (HEADERS)(10D)(VERSION 4.0)
  61. REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC.
  62. REM *** 648 SOUTH RIVER DR. 602-96823456789000P0123456789000CP%BS=ZDAR0IEH+-000000000000"
  63. G$=G$+"$0000000000000MNHASCU0000000DSLRHET0000000CNSLE*%0000000"
  64. M=1700
  65. 69 GOSUB 9005
  66. PRINT "ENTER THE CLIENT NUMBER FROM THE CONTROL SHEET >";
  67. FLD.LEN% = -6 : GOSUB 9998 : PRINT
  68. R = VAL(REPLY$)
  69. OPEN FIL$(2)+":"+CLIENT$+"CLN.FIL" AS 1
  70. REM GOSUB 5000
  71. READ #1;C,C$ : GOSUB 5300
  72. IF R=C THEN 140
  73. PRINT CHR$(7)
  74. PRINT "THE CLIENT NUMBER IS #";C; "PLEASE ENTER THE CORRECT NUMBER!"
  75. PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 :GOSUB 9998:PRINT
  76. GOTO 69
  77. 140 PRINT : PRINT "WORKING . . ."
  78. F8$=FIL$(7) + ":" + CLIENT$ + "FSH.FIL" : GOSUB 5000
  79. R=0
  80. IF END #1 THEN 157.5
  81. 153 READ #1,R+1;N1,D1$,E1$
  82. IF N1 = -1 THEN 158
  83. R=R+1
  84. NUMBER.RECS = R
  85. GOTO 153
  86. 157.5 W = R : GOSUB 8040
  87. 158 GOSUB 5300
  88. 159 GOSUB 9005 : PRINT : PRINT : PRINT : PRINT : PRINT
  89. PRINT TAB(15);" D M S Client Programmed Accounting "
  90. PRINT TAB(12);" FINANCIAL STATEMENT HEADER EDIT MENU" : PRINT
  91. PRINT TAB(12);"WHICH FC" THEN 1000
  92. IF X$="D" THEN 415
  93. IF X$="V" THEN 2198
  94. IF X$="P" THEN 560
  95. IF X$="M" THEN 1540
  96. GOSUB 3600
  97. GOTO 3000
  98. 270 GOSUB 9005 : PRINT : PRINT TAB(11);"OPTION A : ADD A HEADER"
  99. O=0
  100. GOSUB 4000
  101. IF N=-1 THEN 159
  102. REM NUMBER N ALREADY USED?
  103. GOSUB 4100
  104. IF F=0 THEN 300
  105. GOSUB 3500
  106. GOTO 3000
  107. 300 GOSUB 4200
  108. GOSUB 4300
  109. GOSUB 6000
  110. GOTO 159
  111. PRINT "THE HEADER FILE IS FULL - SEE ACCOUNTING MENU OPTION #5 TO INCREASE THE "
  112. PRINT " SIZE OF THE 'FSHEADS' FILE!"
  113. PRINT "CANNOOTO 3000
  114. 560 PRINT "ENTER P TO PRINT OR D TO DISPLAY THE HEADERS :"; : FLD.LEN% = 1 : \
  115. GOSUB 9998 : X$ = UCASE$(LEFT$(REPLY$,1)) : PRINT
  116. R = 0
  117. IF X$="P" THEN 590
  118. IF X$="D" THEN 587
  119. GOSUB 3600
  120. GOTO 560
  121. 587 O=0 : GOSUB 9005 : P1=24
  122. GOTO 620
  123. 590 PRINT "SET THE PRINTER AND PAPER"
  124. GOSUB 3100
  125. LPRINTER : PRINT : CONSOLE
  126. PRINT REVLF$; : PRINT REVLF$;
  127. PRINT " " : PRINT " "
  128. O=1 : P1=60 : P6=1
  129. 600 PRINT "ENTER THE DATE YOU WANT ON THE LIST (MMD"CONTROL"
  130. PRINT "DESCRIPTION";TAB(69);"CHARACTERS"
  131. GOSUB 3800
  132. IF X$="P" THEN P=10 ELSE P=8
  133. R = 0
  134. GOSUB 5000
  135. FOR X = 1 TO NUMBER.RECS
  136. GOSUB 5100
  137. IF N1 = -1 THEN 782
  138. R = R + 1
  139. PRINT USING "#######.##";N1
  140. PRINT ":";D1$;TAB(71);E1$
  141. P=P+2
  142. IF P<P1 THEN 780
  143. IF X$<>"P" THEN 777
  144. PRINT CHR$(12); : P6=P6+1 : PRINT TAB(70);"PAGE ";P6
  145. PRINT : PRINT
  146. P=3 : GOTO 780
  147. 777 PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 :GOSUB 9998:PRINT
  148. GOSUB 9005 : P=2
  149. 780 NEXT X
  150. 782 REM IF O= PRINT "WORKING . . ."
  151. S1=0 : S2=0 : S3=0
  152. D2$=D1$ : E2$=E1$
  153. GOSUB 1280
  154. REM IF S2=1 THEN 1110
  155. IF S1=1 THEN 1110
  156. REM IF S3=0 THEN E$=E2$
  157. N1=N
  158. REM E1$=E3$
  159. N=N2
  160. GOSUB 4100
  161. IF F=0 THEN 1160
  162. IF S2 = 1 THEN D1$ = D3$
  163. IF S3 = 1 THEN E1$ = E3$
  164. IF S2 = 1 OR S3 = 1 THEN W = R : \
  165. GOSUB 5000 : GOSUB 5200 : GOSUB 5300
  166. GOTO 1240
  167. 1110 XE.N = N : N = N2
  168. GOSUB 6300
  169. IF F=1 THEN 1190
  170. 1160 GOSUB 3700
  171. GOTO 3000
  172. 1190 IF S1=0 THEN N=N2 ELSE N = XE.N
  173. IF S2=0 THEN D$=D2$ ELSE D$ = D3UNCTION WOULD YOU LIKE TO PERFORM?"
  174. PRINT TAB(12);" A. ADD a Header"
  175. PRINT TAB(12);" C. CHANGE a Header"
  176. PRINT TAB(12);" D. DELETE a Header"
  177. PRINT TAB(12);" V. VIEW a Header"
  178. PRINT TAB(12);" P. PRINT or DISPLAY the Header List"
  179. PRINT TAB(12);" M. RETURN to Accounting Menu"
  180. PRINT TAB(12); : PRINT "ENTER THE LETTER OF THE FUNCTION TO PERFORM :";
  181. FLD.LEN% = 1 : GOSUB 9998 : PRINT
  182. X$ = UCASE$(LEFT$(REPLY$,1))
  183. PRINT
  184. IF X$="A" THEN 270
  185. IF X$="T ADD THIS HEADER!" : PRINT CHR$(7) : GOTO 3000
  186. 415 GOSUB 9005 : PRINT : PRINT TAB(11);"OPTION D : DELETE A HEADER"
  187. PRINT : PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
  188. PRINT "ENTER THE NUMBER OF THE HEADER TO BE DELETED > <";
  189. X=9 : GOSUB 8000 : PRINT ">";
  190. FLD.LEN% = -9 : GOSUB 9998 : PRINT
  191. IF LEN(REPLY$) = 0 THEN 415
  192. N2 = VAL(REPLY$)
  193. N=N2
  194. IF N=-1 THEN 159
  195. GOSUB 4100
  196. IF F=0 THEN 520
  197. GOSUB 6300
  198. IF F=1 THEN 159
  199. 520 GOSUB 3700
  200. GDYY) > <";
  201. X=6 : GOSUB 8000 : PRINT ">"; : FLD.LEN% = -6 : GOSUB 9998 : F$ = REPLY$
  202. F$=F$+" " : PRINT
  203. GOSUB 4500
  204. IF F$="INVALI" THEN 600
  205. IF O=1 THEN LPRINTER
  206. PRINT
  207. 620 IF X$="D" THEN 641
  208. PRINT TAB(10);C$;TAB(70);"PAGE ";P6 : GOTO 642
  209. 641 PRINT TAB(10);C$
  210. 642 PRINT TAB(10);"CLIENT NUMBER ";C
  211. PRINT TAB(10);"FINANCIAL STATEMENT HEADER LIST"
  212. IF X$="P" THEN PRINT TAB(10);LEFT$(F$,2);"/";MID$(F$,3,2);"/";MID$(F$,5,2)
  213. PRINT
  214. IF X$="P" THEN PRINT
  215. PRINT "SEQUENCE NUMBER";TAB(69);1 THEN CONSOLE
  216. GOSUB 5300
  217. GOSUB 3800
  218. IF O=1 THEN PRINT CHR$(12); : CONSOLE
  219. GOTO 3000
  220. 1000 GOSUB 9005 : PRINT : PRINT TAB(11);"OPTION C : CHANGE A HEADER"
  221. PRINT : PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
  222. PRINT "ENTER THE NUMBER OF THE HEADER TO BE CHANGED > <";
  223. X=9 : GOSUB 8000 : PRINT ">"; : FLD.LEN% = -9 : GOSUB 9998
  224. IF LEN(REPLY$) = 0 THEN 1000
  225. N2 = VAL(REPLY$) : PRINT
  226. IF N2=-1 THEN 159
  227. N=N2 : O=0
  228. GOSUB 4100
  229. IF F=0 THEN 1160
  230. PRINT :$
  231. IF S3=0 THEN E$=E2$ ELSE E$ = E3$
  232. GOSUB 6005
  233. 1240 GOTO 159
  234. 1280 GOSUB 9005 : PRINT : PRINT "HEADER CHANGE MENU" : PRINT
  235. PRINT "ENTER 1. To Change The Header Number,"
  236. PRINT " 2. To Change The Description,"
  237. PRINT " 3. To Change The Control Characters Or"
  238. PRINT " 4. To End Changes Of This Header >";
  239. FLD.LEN% = -1 : GOSUB 9998 : X$ = REPLY$ : PRINT
  240. IF X$="1" THEN 1380
  241. IF X$="2" THEN 1430
  242. IF X$="3" THEN 1470
  243. IF X$="4" THEN 1510
  244. GOSUB 3600
  245. GOTO 1280
  246. 1380 GOSUB 4000
  247. IF N=-1 THEN GOTO 1381 ELSE GOTO 1382
  248. REM ***************************************************************
  249. 1381 N=N2 : GOTO 1280
  250. 1382 GOSUB 4100
  251. IF F=1 THEN 1386
  252. S1=1 : GOTO 1280
  253. 1386 GOSUB 3500
  254. PRINT "CANNOT USE IT!" : GOTO 1380
  255. 1430 GOSUB 4200
  256. PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 :GOSUB 9998:PRINT
  257. S2=1
  258. GOTO 1280
  259. 1470 GOSUB 4300
  260. S3=1
  261. GOTO 1280
  262. 1510 RETURN
  263. 1540 CHAIN PGM$(1)+":AMENU"
  264. PRINT CHR$(7)
  265. PRINT "PRESS RETURN TO GO TO ACCOUNTING MENU "; : \
  266. FINT USING "#######.##";N1
  267. PRINT : PRINT "DESCRIPTION:"
  268. O=0 : GOSUB 3800
  269. PRINT ":";D1$
  270. PRINT : PRINT "CONTROL CHARACTERS:";TAB(30);E1$
  271. GOTO 3000
  272. 3000 PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 : GOSUB 9998
  273. PRINT : GOTO 159
  274. 3100 PRINT " THEN PRESS RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : PRINT
  275. RETURN
  276. 3500 PRINT CHR$(7);"THAT HEADER NUMBER HAS ALREADY BEEN USED - TRY AGAIN!"
  277. RETURN
  278. 3600 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
  279. RETURN
  280. 3700 PRINT CHR$(7);"THEN = VAL(REPLY$) : PRINT
  281. IF N<-1 THEN 4040
  282. IF N=-1 THEN 4090
  283. IF N*100-INT(N*100)<>0 THEN 4040
  284. IF N<=999999.99 AND N>0 THEN 4090
  285. 4040 PRINT "INVALID HEADER NUMBER (MUST BE .01 TO 999999.99) - TRY AGAIN!"
  286. PRINT CHR$(7) : GOTO 4000
  287. 4090 RETURN
  288. 4100 F=0
  289. GOSUB 5000
  290. FOR R=0 TO NUMBER.RECS - 1
  291. GOSUB 5100
  292. IF N1 = N THEN 4150
  293. NEXT R
  294. GOTO 4190
  295. 4150 F=1
  296. 4190 GOSUB 5300
  297. RETURN
  298. 4200 PRINT "ENTER THE NEW HEADER DESCRIPTION (70X)"
  299. GOSUB 3800
  300. PRINT":"; : FLD.LEN% = 70 : GOSUB 9998 : D$N 4350
  301. 4330 PRINT CHR$(7);"INVALID CONTROL CHARACTERS - TRY AGAIN!"
  302. GOTO 4300
  303. 4350 FOR X=1 TO 8
  304. FOR Y=1 TO 14
  305. IF MID$(E$,X,1)=MID$(G$,(X*14-14+Y),1) THEN 4410
  306. NEXT Y
  307. GOTO 4330
  308. 4410 NEXT X
  309. E3$=E$
  310. RETURN
  311. 4500 FOR X=1 TO 6
  312. IF MID$(F$,X,1)<"0" THEN 4650
  313. IF MID$(F$,X,1)>"9" THEN 4650
  314. NEXT X
  315. IF LEFT$(F$,1)="0" THEN 4570
  316. IF LEFT$(F$,1)<>"1" THEN 4650
  317. IF MID$(F$,2,1)>"2" THEN GOTO 4650 ELSE GOTO 4580
  318. 4570 IF MID$(F$,2,1)<"1" THEN 4650
  319. 4580 IF MID$(F$,3,1)>"3" THEN 4650
  320. END #1 THEN 6102
  321. R1=1
  322. X=N9
  323. REM IF X<0 THEN PRINT "X=";X : X = 0
  324. R = NUMBER.RECS - 1
  325. REM IF NO RECORDS IN FILE THEN WRITE FIRST
  326. 6030 IF R < 0 THEN W = 0 : GOTO 6106
  327. READ #1,R+1;N1,D1$,E1$
  328. W = R + 1
  329. IF N1 < N THEN 6106
  330. REM IF N1 = -1 THEN 6102
  331. PRINT #1,W+1;N1,D1$,E1$
  332. IF R = NUMBER.RECS-1 THEN \
  333. W=W+1 : GOSUB 8040
  334. R = R - 1
  335. IF R >=0 THEN 6030
  336. W=0
  337. REM X = 0
  338. GOTO 6108
  339. READ #1,R+1;N1,D1$,E1$
  340. 6106 R1=1
  341. 6108 N1=N : D1$=D$ : E1$=E$
  342. PRINT #1,W+1;N1LD.LEN% = 1 : GOSUB 9998 : PRINT
  343. GOTO 1540
  344. 2198 GOSUB 9005 : PRINT : PRINT TAB(11);"OPTION V : VIEW A HEADER"
  345. PRINT : PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
  346. PRINT "ENTER THE NUMBER OF THE HEADER YOU WANT TO VIEW > <";
  347. X=9 : GOSUB 8000 : PRINT ">"; : FLD.LEN% = -9 : GOSUB 9998
  348. IF LEN(REPLY$) = 0 THEN 2198
  349. N = VAL(REPLY$) : PRINT
  350. IF N=-1 THEN 159
  351. GOSUB 4100
  352. IF F=0 THEN 520
  353. GOSUB 9005
  354. PRINT : PRINT : PRINT "HEADER NUMBER:";TAB(28);
  355. PRRE IS NO SUCH HEADER NUMBER IN THE FILE!"
  356. RETURN
  357. 3800 PRINT " 0 1 2 3 4 5 6 ";
  358. PRINT " 7"
  359. PRINT " 1--------0---------0---------0----**---0---------0---------0-------";
  360. PRINT "--0"
  361. RETURN
  362. 4000 PRINT : PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
  363. PRINT "ENTER THE NEW HEADER NUMBER > <";
  364. X=9 : GOSUB 8000 : PRINT">"; : FLD.LEN% = -9 : GOSUB 9998
  365. IF LEN(REPLY$) = 0 THEN PRINT REVLF$; : GOTO 4000
  366. = REPLY$ : PRINT
  367. IF D$="" THEN D$ = " "
  368. REM PRINT CHR$(7);"THE DESCRIPTION MUST BE AT LEAST ONE CHARACTER LONG!"
  369. REM GOTO 4200
  370. 4250 IF LEFT$(D$,1)<>DUPE.KEY$ THEN 4270
  371. D$=D3$ : PRINT " "; : PRINT REVLF$; : PRINT D$
  372. 4270 D3$=D$
  373. RETURN
  374. 4300 PRINT "ENTER NEW HEADER CONTROL CHARACTERS (8X) : :";
  375. X=8 : GOSUB 8000 : PRINT ":"; : FLD.LEN% = 8 : GOSUB 9998
  376. E$ =UCASE$(REPLY$) : PRINT
  377. IF E$<> DUPE.KEY$ THEN 4320
  378. E$=E3$ : PRINT TAB(43); : PRINT REVLF$; : PRINT E$
  379. 4320 IF LEN(E$)=8 THE IF MID$(F$,3,1)<>"3" THEN 4670
  380. IF MID$(F$,4,1)>"1" THEN GOTO 4650 ELSE GOTO 4670
  381. 4650 PRINT CHR$(7);"INVALID DATE - TRY AGAIN!"
  382. F$="INVALI"
  383. 4670 RETURN
  384. 5000 OPEN F8$ RECL 94 AS 1
  385. RETURN
  386. 5100 READ #1,R+1;N1,D1$,E1$
  387. RETURN
  388. 5200 PRINT #1,W+1;N1,D1$,E1$
  389. IF R = NUMBER.RECS - 1 THEN W = W + 1 : GOSUB 8040
  390. REM WRITE 1,&1 : REM WRITE END OF FILE RECORD ****************
  391. RETURN
  392. 5300 CLOSE 1
  393. RETURN
  394. 6000 PRINT : PRINT "WORKING . . ."
  395. 6005 GOSUB 5000
  396. REM IF TYP(0)=0 THEN 6102
  397. REM IF ,D1$,E1$
  398. IF R = NUMBER.RECS-1 THEN \
  399. W=W+1 : GOSUB 8040
  400. N9=N9+2
  401. NUMBER.RECS = NUMBER.RECS + 1
  402. GOSUB 5300
  403. RETURN
  404. 6300 PRINT : PRINT "WORKING . . ." : F=1
  405. GOSUB 5000
  406. R = 0
  407. 6355.4 READ #1,R+1;N1,D1$,E1$
  408. IF N1 = N THEN 6375
  409. REM D2$=D1$ : E2$=E1$
  410. R1=1
  411. R = R + 1
  412. IF R < NUMBER.RECS THEN 6355.4
  413. F = 0
  414. GOTO 6420
  415. 6375 R = R + 1
  416. READ #1,R+1;N1,D1$,E1$
  417. W = R
  418. PRINT #1,W;N1,D1$,E1$
  419. IF N1 <> -1 THEN 6375
  420. NUMBER.RECS = NUMBER.RECS - 1
  421. 6420 GOSUB 5300
  422. RETURN
  423. 8000 FOR J=1 TO X+2
  424. PRINT CHR$(8);
  425. NEXT J
  426. RETURN
  427. 8040 N1 = -1 : D1$ = "End of FSH File" : E1$ = ""
  428. PRINT #1,W+1;N1,D1$,E1$
  429. RETURN
  430. %INCLUDE NFLANKS.BAS
  431. 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋REM 072583 - DCF ADDED CHECK FOR NUM.BITS% = 8 OR 16
  432. REM
  433. REM 072183 - DCF CHANGED R TO R.XE IN LINE 630
  434. REM
  435. REM 071783 - DCF TOOK LINE #'S OFF REM STATEMENTS
  436. REM CHANGED ALL A'S TO A.XE
  437. REM CHANGED ALL R'S TO R.XE
  438. REM CHANGED LINE 2000 TO LINE 2000.1 FOR CB80 COMPILE
  439. REM
  440. REM 062783 - (RCB) CHANGED 75 TO 79 IN LINE 2004 TO MOVE NAME
  441. REM HEADINGS OVER 2 SPACES
  442. REM
  443. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  444. REM
  445. REMB) USING HOLE 4 /4 TO DEMENSION TWO ARRAYS
  446. REM
  447. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  448. REM FLANKS TO NFLANKS
  449. REM
  450. REM 020983 (DCF) GETTING THE ACTUAL MONTH NUMBER OF THE CURRENT
  451. REM PERIOD AND FISCAL PERIOD FOR COMPARISON OF THE
  452. REM NUMBER OF MONTHS ENDING
  453. REM
  454. REM 013183 (DCF) CHANGED PRINT CLR$ TO GOSUB 9005
  455. REM
  456. REM 013183 (DCF) FIXED OE ERROR WHEN DISK SWAPPING (AUX. ON SEPERATE DIS)
  457. REM
  458. REM *** PROGRAM TO PRINT A SCHEDULE OF CHANrammed Accounting Ver. ";VERSION$
  459. PRINT
  460. 80 PRINT TAB(21);"** AUXILIARY MENU OPTION #8 **"
  461. 90 PRINT TAB(18);"PRINTS SCHEDULE OF CHANGES IN WORKING CAPITAL" : PRINT
  462. 100 PRINT TAB(5);"Press RETURN Key To Continue Or 'M' To Return To Auxiliary Menu ";
  463. 110 FLD.LEN%=1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$+" ",1))
  464. IF M$="M" THEN 5000.1
  465. 120 GOSUB 9005 : PRINT
  466. GOSUB 5600
  467. 140 REM **** OPENING FILES
  468. 150 IF SIZE(FIL$(2) + ":" + CLIENT$ + "CLN.FIL") = 0 THEN \
  469. PRINT "Ins(2);" IS ";CLIENT.NO; " ! "
  470. PRINT" Please Correct Then Press Return ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : X$=LEFT$(REPLY$,1)
  471. GOTO 170
  472. 220 GOSUB 9005 : PRINT : INITIALIZE
  473. 230 PRINT "Insert Auxiliary Data Disk in Drive ";FIL$(10);" Then Press RETURN";:FLD.LEN%=1 : GOSUB 9998 : PRINT :X$=LEFT$(REPLY$,1)
  474. 235 IF SIZE(FIL$(10) + ":" + CLIENT$ + "CON.FIL")=0 THEN 220
  475. 240 OPEN FIL$(10) + ":" + CLIENT$ + "CON.FIL" RECL 142 AS 2 : CONTROL.FIL=2
  476. OPEN FIL$(8) + ":" + CLIENT$ +"ACC.FIL"邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋 061483 - (RCB) PUT F1 = 0 OFF ON LINE 6005 AND PUT IT IN LINE AFTER
  477. REM 6005 WHERE IT HAD BECOME PART OF THE ELSE CONDITION
  478. REM DURING TRANSLATION - THIS FIXES THE PROBLEM WHICH CAUSED
  479. REM EVERY LINE WITH A NUMBER TO HAVE A '$' IF THE HEADERS
  480. REM HAD SELECTED IT OR NOT - BUG CODE 126-061383
  481. REM
  482. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  483. REM
  484. REM 051683 - (RCB) CHANGED LINE 51 TO CORRECT MEMORY SIZING
  485. REM
  486. REM 040683 - (RCB) ADDED -400 TO HOLE(4) SIZE
  487. REM
  488. REM 040583 - (RCGES WORKSHEET (SCHED)
  489. REM *** COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS INC.
  490. REM *** 648 SOUTH RIVER DR.
  491. REM *** TEMPE, ARIZ. 85281 (602)-968-7101
  492. %INCLUDE COMMON.BAS
  493. 51 X = (HOLE(4)-250)/6 : XE.X1 = X : S=1
  494. 60 DIM A(12),R(3,10),R1(3,XE.X1),H(1,X)
  495. 71 REM *** SETTING VARIABLES TO ZERO
  496. A.XE=0 : A1=0 : A2=0 : A9=0
  497. GOSUB 9005
  498. PRINT
  499. 75 PRINT TAB(23);"Dimis Micro Systems, Inc. "
  500. PRINT TAB(15);"Client Progert Client Data Disk in Drive "; FIL$(2) : \
  501. PRINT "Then Press RETURN ";: FLD.LEN%=1 : GOSUB 9998 : \
  502. PRINT : \
  503. INITIALIZE : \
  504. GOTO 150
  505. OPEN FIL$(2) + ":" + CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL=1
  506. GOSUB 5000
  507. CLOSE CLNRNM.FIL
  508. 170 PRINT "ENTER CLIENT NUMBER FROM THE WORKSHEET >";:FLD.LEN%= -6 : GOSUB 9998 : PRINT : CLIENT=VAL(REPLY$)
  509. IF CLIENT.NO = CLIENT THEN 235
  510. PRINT CHR$(7);"THE CLIENT IN DRIVE ";FIL$ RECL 255 AS 5 : ACCTS.FIL=5
  511. 250 READ #CONTROL.FIL;\
  512. CLIENT,\
  513. CLIENT.NAM$,\
  514. O,\
  515. O1,\
  516. PER.END.DT$
  517. CLOSE CONTROL.FIL
  518. 270 IF CLIENT.NO = CLIENT THEN 280
  519. PRINT CHR$(7);"THE CLIENT NUMBER OF THE DISK IN DRIVE ";FIL$(10);" DOES NOT MATCH !"
  520. PRINT" Please Correct Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : X$=LEFT$(REPLY$,1)
  521. GOTO 220
  522. 280 FIL2$ = FIL$(7)
  523. 281 IF SIZE(FIL2$ + ":" + CLIENT$ + "FSH.FIL") = 0 THEN \
  524. PRINT "Insert Client Data Disk Containing FSH.FIL in Drive ";PGM$(3):\
  525. PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
  526. PRINT : \
  527. INITIALIZE : \
  528. FIL2$ = PGM$(3) : \
  529. GOTO 281
  530. REM ELSE \
  531. REM FIL2$ = FIL$(7)
  532. 283 OPEN FIL2$ + ":" + CLIENT$ + "FSH.FIL" RECL 94 AS 4 : FSHEADS.FIL=4
  533. 300 GOSUB 9005 : PRINT
  534. 310 PRINT "NOW COMPILING HEADERS AND ACCOUNTS . . . "
  535. 370 H1 =-1 : X = 0
  536. 380 IF END #4 THEN 450
  537. 390 READ #FSHEADS.FIL,X+1;\
  538. IF R.XE > XE.X1 THEN \
  539. PRINT "INSUFFICIENT MEMORY - RESULTS MAY BE INCORRECT" : \
  540. PRINT "STOPED AT SEQUENCE NUMBER : ";R.XE : \
  541. LPRINTER : \
  542. PRINT "INSUFFICIENT MEMORY - RESULTS MAY BE INCORRECT" : \
  543. PRINT "STOPED AT SEQUENCE NUMBER : ";R.XE : \
  544. CONSOLE : \
  545. GOTO 550
  546. 510 R1( 0, R.XE ) = X2
  547. R1( 1, R.XE ) = F9
  548. R1( 2, R.XE ) = A1
  549. R1( 3, R.XE ) = A2
  550. 520 GOTO 460
  551. 530 R1( 2, X1 ) = R1( 2, X1 ) + A1
  552. R1( 3, X1 ) = R1( 3, X1 ) + A2
  553. 540 GOTO 460
  554. 550 X6 = X6 - 1
  555. 640 FOR X1 = 0 TO X6
  556. 650 IF R1( 0, X1 ) <= R1( 0, X1 + 1 ) THEN 690
  557. 660 X = 1
  558. X2 = R1(0,X1)
  559. X3 = R1(1,X1)
  560. X4 = R1(2,X1)
  561. X5 = R1(3,X1)
  562. 670 R1(0,X1)=R1(0,X1+1) : R1(1,X1)=R1(1,X1+1) : R1(2,X1)=R1(2,X1+1)
  563. 675 R1(3,X1)=R1(3,X1+1)
  564. 680 R1(0,X1+1)=X2 : R1(1,X1+1)=X3 : R1(2,X1+1)=X4 : R1(3,X1+1)=X5
  565. 690 NEXT X1
  566. 700 PRINT ".";
  567. IF X THEN 631
  568. 720 H2 = 0 : R2 = 0
  569. 730 GOSUB 9005 : PRINT
  570. 740 PRINT "NOW PRINTING SCHEDULE . . . "
  571. 750 F = 0 : F = 1
  572. 2060 PRINT TAB(59);"--------------"
  573. 3000 PRINT TAB(5);"CURRENT ASSETS" : B = 1
  574. 3005 IF E1 THEN 5000.1
  575. 3010 GOSUB 6600
  576. 3020 IF HEADER.NO < A.XE THEN 3050
  577. 3030 GOSUB 6000
  578. 3040 GOTO 3005
  579. 3050 IF MID$(HEAD.CTRL.CHAR$,8,1) = "N" THEN 3100
  580. 3051 IF MID$(HEAD.CTRL.CHAR$,8,1) = "*" THEN 3070
  581. 3070 IF E0 THEN 5000.1
  582. 3080 GOSUB 6500
  583. 3090 GOTO 3020
  584. 3100 PRINT TAB(59);"--------------"
  585. 3105 IF T2 < 0 THEN PRINT TAB(59);"($"; ELSE PRINT TAB(59);" $";
  586. 3110 REM PRINT TAB(60);
  587. PRINT USING " ###,###.#GOSUB 6600
  588. 3220 IF HEADER.NO < A.XE THEN 3250
  589. 3230 GOSUB 6000
  590. 3240 GOTO 3205
  591. 3250 IF MID$(HEAD.CTRL.CHAR$,8,1) = "L" THEN 3300
  592. 3251 IF MID$(HEAD.CTRL.CHAR$,8,1) = "*" THEN 3270
  593. 3270 IF E0 THEN 5000.1
  594. 3280 GOSUB 6500
  595. 3290 GOTO 3220
  596. 3300 PRINT TAB(59);"--------------"
  597. 3305 IF T2 > 0 THEN PRINT TAB(59);"($"; ELSE PRINT TAB(59);" $";
  598. 3310 REM PRINT TAB(60);
  599. PRINT USING " ###,###.##";ABS(T2)/100;
  600. 3320 IF T2 > 0 THEN PRINT ")" ELSE PRINT
  601. 3330 PRINT TAB(59);"--------------"
  602. 4000 PRINT HEADER.NO,\
  603. HEAD.DESCR$,\
  604. HEAD.CTRL.CHAR$
  605. X2 = HEADER.NO - INT( HEADER.NO / 10000 ) * 10000
  606. 400 FOR X1 = 0 TO H1
  607. IF H( 0, X1 ) = X2 THEN 440
  608. 420 NEXT X1 : H1 = H1 + 1
  609. 430 H( 0, H1 ) = X2 : H( 1, X1 ) = X
  610. 440 X = X + 1
  611. GOTO 390
  612. 450 R.XE =-1 : X9 = -1
  613. 460 IF A9 =-1 THEN 550
  614. 470 GOSUB 7200
  615. IF A9=-1 THEN 550
  616. X2 = A.XE - INT( A.XE / 10000 ) * 10000
  617. 480 FOR X1 = 0 TO R.XE
  618. 490 IF R1( 0, X1 ) = X2 THEN 530
  619. 500 NEXT X1 : R.XE = R.XE + 1
  620. GOSUB 9005
  621. PRINT
  622. PRINT "NOW SORTING HEADERS . . . "
  623. X6 = H1
  624. 551 X = 0 : X6 = X6 - 1
  625. 560 FOR X1 = 0 TO X6
  626. 570 IF H( 0, X1 ) <= H( 0, X1 + 1 ) THEN 610
  627. 580 X = 1
  628. X2 = H( 0, X1 )
  629. X3 = H( 1, X1 )
  630. 590 H( 0, X1 ) = H( 0, X1 + 1 )
  631. H( 1, X1 ) = H( 1, X1 + 1 )
  632. 600 H( 0, X1 + 1 ) = X2
  633. H( 1, X1 + 1 ) = X3
  634. 610 NEXT X1
  635. 620 PRINT ".";
  636. IF X THEN 551
  637. 630 GOSUB 9005 : PRINT : PRINT "NOW SORTING ACCOUNTS . . . " : X6 = R.XE
  638. 631 X = 0 :
  639. 1030 IF E0 THEN 5000.1
  640. 1040 GOSUB 6500
  641. 1050 IF MID$(HEAD.CTRL.CHAR$,8,1) <> "C" THEN 1030
  642. 2000.1 NAME.LENGTH = LEN(CLIENT.NAM$)
  643. FOR X = NAME.LENGTH TO 1.0 STEP -1.0
  644. 2001 IF MID$(CLIENT.NAM$,X,1 ) <> " " THEN 2004
  645. 2002 NEXT X
  646. 2004 X1 = INT( ( 79 - X ) / 2 )
  647. 2005 LPRINTER
  648. PRINT : PRINT TAB( X1 );CLIENT.NAM$ : F1 = 1
  649. 2010 PRINT TAB(20);"SCHEDULE OF CHANGES IN WORKING CAPITAL"
  650. 2020 GOSUB 5500
  651. 2030 PRINT
  652. 2040 PRINT TAB(64);"INCREASE"
  653. 2050 PRINT TAB(63);"(DECREASE)" #";ABS(T2)/100;
  654. 3120 IF T2 < 0 THEN PRINT ")" ELSE PRINT
  655. 3130 PRINT TAB(59);"--------------" : PRINT : PRINT
  656. 3140 T2 = 0 : T1 = 0
  657. 3150 IF MID$(HEAD.CTRL.CHAR$,8,1) = "S" THEN 3192
  658. 3151 IF MID$(HEAD.CTRL.CHAR$,8,1) = "*" THEN 3170
  659. 3170 IF E0 THEN 5000.1
  660. 3180 GOSUB 6500
  661. 3190 GOTO 3150
  662. 3192 IF E1 THEN 5000.1
  663. IF A.XE < HEADER.NO THEN GOSUB 6600 ELSE GOTO 3200
  664. GOTO 3192
  665. 3200 PRINT TAB(5);"CURRENT LIABILITIES" : B = 2 : F1 = 1 : GOTO 3220
  666. 3205 IF E1 THEN 5000.1
  667. 3210
  668. 4010 HEAD.DESCR$ = "NET "
  669. 4020 IF T3 > 0 THEN HEAD.DESCR$ = HEAD.DESCR$ + "INCREASE " ELSE HEAD.DESCR$ = HEAD.DESCR$ + "(DECREASE) "
  670. 4030 HEAD.DESCR$ = HEAD.DESCR$ + "IN WORKING CAPITAL"
  671. 4040 PRINT TAB(5);HEAD.DESCR$;
  672. 4044 IF T3 < 0 THEN PRINT TAB(59);"(";
  673. PRINT TAB(60);
  674. PRINT "$";
  675. PRINT USING " ###,###.##";ABS(T3)/100;
  676. 4045 IF T3 < 0 THEN PRINT ")" ELSE PRINT
  677. 4050 PRINT TAB(59);"=============="
  678. 4100 PRINT CHR$(12);
  679. 5000.1 CONSOLE : GOSUB 9005 : PRINT : PRINT
  680. 5021 IF NUM.BITS%=8 THEN EXT$ = ".OVL" ELSE EXT$ = ".OVR"
  681. IF SIZE(PGM$(3) + ":" + "MENU"+EXT$) <> 0 THEN CHAIN PGM$(3) + ":" + "MENU"
  682. INITIALIZE
  683. PRINT " Insert Program Disk in Drive ";PGM$(3)
  684. PRINT " Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
  685. GOTO 5021
  686. 5500 IF O = 0 THEN 5550
  687. CUR.MO=VAL(MID$(PER.END.DT$,(12*6)+1,2))
  688. FISC.MO=VAL(MID$(PER.END.DT$,(O*6)+1,2))
  689. X=CUR.MO - FISC.MO
  690. IF X < 0 THEN X=X+12
  691. X=X-1
  692. REM X
  693. 5610 D1$ = ""
  694. D1$ = D1$ + "ONE" + LEFT$(X$,5) + "TWO" + LEFT$(X$,5) + "THREE" + LEFT$(X$,3)
  695. D1$ = D1$ + "FOUR" + LEFT$(X$,4) + "FIVE" + LEFT$(X$,4) + "SIX" + LEFT$(X$,5)
  696. D1$ = D1$ + "SEVEN" + LEFT$(X$,3) + "EIGHT" + LEFT$(X$,5) + "NINE" + LEFT$(X$,4)
  697. D1$ = D1$ + "TEN" + LEFT$(X$,5) + "ELEVEN" + LEFT$(X$,2) + "TWELVE" + LEFT$(X$,2)
  698. 5670 M$ = ""
  699. M$ = M$ + "JANUARY" + LEFT$(X$,5) + "FEBUARY" + LEFT$(X$,5) + "MARCH" + LEFT$(X$,7)
  700. M$ = M$ + "APRIL" + LEFT$(X$,7) + "MRINT ")" ELSE PRINT
  701. 6050 GOTO 6130
  702. 6100 IF X > 0 THEN PRINT TAB(59);"(";
  703. 6110 PRINT TAB(60);X$;
  704. PRINT USING " ###,###.##";ABS(X)/100;
  705. 6120 IF X > 0 THEN PRINT ")" ELSE PRINT
  706. 6130 T2 = T2 + X : T3 = T3 + X
  707. 6140 RETURN
  708. 6500 IF H2 > H1 THEN 6530
  709. 6510 X = H(1,H2) : GOSUB 7100 : HEADER.NO = H(0,H2) : H2 = H2 + 1
  710. 6520 GOTO 6540
  711. 6530 E0 = 1
  712. 6540 RETURN
  713. 6600 IF R2 > R.XE THEN 6640
  714. 6610 X9 = R1(1,R2)-1 : GOSUB 7200
  715. 6620 A.XE = R1(0,R2) : A1 = R1(2,R2) : A2 = R1(3,R2)
  716. 6630 R2 = A(1),\
  717. A(2),\
  718. A(3),\
  719. A(4),\
  720. A(5),\
  721. A(6),\
  722. A(7),\
  723. A(8),\
  724. A(9),\
  725. A(10),\
  726. A(11),\
  727. A(12)
  728. 7250 IF INT(A9) = A.XE THEN 7220
  729. 7255 IF X9 = 0 THEN 7200
  730. 7260 RETURN
  731. %INCLUDE NFLANKS.BAS
  732. %INCLUDE 5000
  733. 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋REM 072283 - DCF ADDED CHECK FOR NUM.BIT% AROUND 1530
  734. REM
  735. REM 071483 - DCF REMOVED SECOND LABEL 2300 AND 2310 FOR CB80 COMPILE
  736. REM
  737. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  738. REM
  739. REM 062083 - (RCB) CHANGED "R & B" TO "D M S"
  740. REM
  741. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  742. REM
  743. REM 042183 - DCF CHANGED FLD.LEN%=1 FOR M TO RETURN TO MENU AND CHANGED
  744. REM FLD.LEN%=-6 FOR CLIENT.NO
  745. REM
  746. REM 041283 - DCF FIXED BUG CODE #041283-4-ISS ADDED UCASE$ X = 12 - O
  747. REM X= X-1
  748. 5510 IF X < 0 OR X >11 THEN 5550
  749. 5520 LPRINTER
  750. PRINT TAB(20);"FOR THE ";MID$(D1$,X*8+1,8);" ";
  751. 5525 PRINT "MONTH";
  752. IF X = 1 THEN PRINT " "; ELSE PRINT "S ";
  753. PRINT "ENDING ";
  754. 5530 X = VAL(MID$(PER.END.DT$,73,2))
  755. IF X = 0 THEN 5550
  756. X = X - 1
  757. 5540 PRINT MID$(M$,X*12+1,12);" ";MID$(PER.END.DT$,75,2);", 19";MID$(PER.END.DT$,77,2);
  758. 5550 PRINT : RETURN
  759. 5600 X$ = ""
  760. FOR X = 1 TO 10
  761. X$ = X$ + CHR$(0)
  762. NEXTAY" + LEFT$(X$,9) + "JUNE" + LEFT$(X$,8)
  763. M$ = M$ + "JULY" + LEFT$(X$,8) + "AUGUST" + LEFT$(X$,6) + "SEPTEMBER" + LEFT$(X$,3)
  764. M$ = M$ + "OCTOBER" + LEFT$(X$,5) + "NOVEMBER" + LEFT$(X$,4) + "DECEMBER" + LEFT$(X$,4)
  765. 5720 RETURN
  766. 6000 X = A2 - A1
  767. IF X = 0 THEN 6140
  768. PRINT TAB(8);A$;
  769. 6005 IF F1 THEN X$ = "$" ELSE X$ = " "
  770. F1 = 0
  771. 6010 IF B = 2 THEN 6100
  772. 6020 IF X < 0 THEN PRINT TAB(59);"(";
  773. 6030 PRINT TAB(60);X$;
  774. PRINT USING " ###,###.##";ABS(X)/100;
  775. 6040 IF X < 0 THEN PR2 + 1 : GOTO 6650
  776. 6640 E1 = 1
  777. 6650 RETURN
  778. 7100 READ #FSHEADS.FIL,X+1;\
  779. HEADER.NO,\
  780. HEAD.DESCR$,\
  781. HEAD.CTRL.CHAR$
  782. 7110 RETURN
  783. 7200 IF O = 12 THEN O = 0
  784. 7210 X = O1 + O + 1
  785. IF X > 12 THEN X = X - 13
  786. A.XE = A9 : A$ = A9$ : A1 = 0
  787. 7215 A2 = 0 : F9 = X9
  788. 7220 A1 = A1 + A(X) : A2 = A2 + A(O1) : X9 = X9 + 1
  789. 7225 IF END #ACCTS.FIL THEN 7260
  790. 7230 READ #ACCTS.FIL,X9+1;\
  791. A9,\
  792. A9$,\
  793. B9,\
  794. A(0),\
  795. 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋 TO CHECK FOR
  796. REM LOWER CASE M
  797. REM
  798. REM 041283 - DCF FIXED BUG CODE #041283-4-ISS CHANGED LINE 4030
  799. REM TO CHECK FOR N<=0
  800. REM
  801. REM 041283 - DCF FIXED BUG CODE #041283-3-ISS ADDED A UCASE$ FOR A LOWER CASE
  802. REM RESPONSE TO DO YOU WANT BUDGET AMOUNTS PRINTED
  803. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  804. REM FLANKS TO NFLANKS
  805. REM
  806. REM 021683 - (RCB) ADDED HOLE(4) TO DEMENSIONING
  807. REM
  808. REM 013183 - (DCF) CHANGED PRINT CLR$ TO GOSUB 9005
  809. REM
  810. REM 013183 - (DCF) FIXED OE ERROR WHEN DISK SWAPPING (AUX ON SEPERATE DISK)
  811. REM
  812. REM 102582 - (RCB) CHANGED LINE 804 FROM S<>1 TO S2<>1 OF CHANGE DESCRIPTION
  813. REM WILL WORK
  814. REM
  815. REM 102082 - (RCB) PUT PRINTS IN AFTER CALLS TO 9998 IN SIZE FUNCTIONS
  816. REM
  817. REM 102082 - (RCB) CHANGED LINE 2660 FROM GOTO 2560 TO GOTO 2540.2 SO IT WOULD
  818. REM FEEL THE DISK AGAIN BEFORE IT TRIES TO OPEN IT AGAIN
  819. REM
  820. REM 101882 - (RCB) CHANGED LINE 125 TOOK OUT CHANGE THE DISK
  821. REM
  822. REM 101582 - (RCB) FIX CONDITION
  823. REM
  824. REM 092882 - (RCB) ADDED LINES AT 2730 TO WRITE EOF IN ACC.FIL AND N1 = X
  825. REM CHANGED TO N1 = X - 1
  826. REM
  827. REM 092182 - (RCB) ADDED Y9$=Y$ AFTER 4255 FOR DISCRIPTION CHANGE CHANGE
  828. REM
  829. REM 092182 - (RCB) CHANGED LINE 1419 FROM TAB(59) TO TAB(52) TO SPACE LISTINGS
  830. REM PROPERLY
  831. REM
  832. REM 092182 - (RCB) NOW CHAINS MENU INSTEAD OF AMENU
  833. REM
  834. REM 092182 - (RCB) ADDED PRESS RETURN TO CONTINUE TO 2022
  835. REM
  836. REM 091982 - (RCB) ADDED UPPER AND LOWER CASE INPUTS AND ADDED TAB(59) TO 1419
  837. GOSUB 9005
  838. PRINT TAB(23);"Dimis Micro Systems, Inc. "
  839. PRINT TAB(15);" Client Programmed Accounting Ver. ";VERSION$
  840. PRINT
  841. PRINT TAB(21);"** AUXILIARY MENU OPTION #1 **"
  842. PRINT TAB(20);"EDITS OR LISTS CHART OF ACCOUNTS" : PRINT
  843. 74 PRINT TAB(5);"Press RETURN Key to Continue or 'M' to Return to Accounting Menu ";
  844. FLD.LEN%=1 : GOSUB 9998 : PRINT
  845. M$=UCASE$(LEFT$(REPLY$+" ",1))
  846. IF M$ ="M" THEN 1530
  847. F8$ = "ACC.FIL"
  848. 77 GOSUB 9005 : PRINT : PRINT
  849. PRINT : PRINT "ENTER THE 1
  850. 110 IF R=C5 THEN 135
  851. 120 PRINT : PRINT "THE CLIENT NUMBER OF THE DISK IN DRIVE ";FIL$(2);" IS #";C5
  852. 125 PRINT " PLEASE ENTER CORRECT NUMBER!"
  853. 130 PRINT CHR$(7) : PRINT" PRESS RETURN TO CONTINUE "; : \
  854. FLD.LEN%=1 : GOSUB 9998 : PRINT : GOTO 77
  855. 135 IF END #1 THEN 2490
  856. OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 1
  857. 137 PRINT : PRINT "WORKING . . ."
  858. REM 141 L1=INT(256*L9/S)
  859. REM 145 IF L1<M THEN M=L1
  860. REM 150 L=INT(L1*.95)
  861. IF END #1 THEN 155.6
  862. 151 FOR X=0 TO M-1
  863. 153 R"
  864. 190 PRINT TAB(12);" D. DELETE an Account"
  865. 195 PRINT TAB(12);" V. VIEW an Account"
  866. 197 PRINT TAB(12);" P. PRINT or DISPLAY The Chart of Accounts"
  867. 198 PRINT TAB(12);" S. SET UP a New Set of Auxiliary Accounts from "
  868. 199 PRINT " The Client Data Disk"
  869. 200 PRINT TAB(12);" B. ENTER All Accounts' Budget Amounts"
  870. 201 PRINT TAB(12);" M. RETURN to Auxiliary Menu"
  871. 205 PRINT TAB(12);"ENTER THE LETTER OF THE FUNCTION TO PERFORM :";
  872. FLD.LEN% = 1 : GOSUB 9998 : PRINT ED COLON IN WRONG PLACE ON ALL SIZE STATEMENTS
  873. REM
  874. REM 101382 - (RCB) ADDED SIZE FEEL BEFORE CON OPEN LINE BEFORE 100
  875. REM LINES AT 1530 TO GET USER TO PUT DISK WITH MENU.INT
  876. REM BACK IN BEFORE CHAINING, AND LINES AT 2540 AND 2670 TO GET
  877. REM TWO DATA DISKS IN THE SYSTEM AT ONCE (AUX AND CLIENT)
  878. REM IF NEEDED
  879. REM
  880. REM 092882 - (RCB) TOOK F8$="ACC.FIL" OUT OF REM SFTER LINE 3500 FOR GOSUB 5000
  881. REM STATEMENTS
  882. REM
  883. REM 092882 - (RCB) PUT IF END AT 135 AND ADDED 2490 TO HANDLE IF ENDREM TO SPACE LISTINGS PROPERLY
  884. REM
  885. REM 091382 - YOU WON'T BELEIVE THIS BUT STARTED HERE CHANGING THIS TO CACCTS
  886. REM
  887. REM 082682 = ADDED PRINT STATEMENTS AFTER ALL CALLS TO 9998
  888. REM
  889. REM ***CHART OF ACCOUNT CHANGES AND LISTING*** (ACCOUNTS)(10D)(VERSION 4.0)
  890. REM ***COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS INC.
  891. REM *** 648 SOUTH RIVER DR. 602-968-7101
  892. REM *** TEMPE, AZ 85281
  893. %INCLUDE COMMON.BAS
  894. M=HOLE(4) : L=M : S=42
  895. DIM E(M),A(12),A9(12)E CLIENT NUMBER FROM THE CONTROL SHEET >";
  896. FLD.LEN% = -6 : GOSUB 9998 : PRINT
  897. R = VAL(REPLY$)
  898. REM 101282 - (RCB) ROUTINE TO FEEL FOR THE CON.FIL
  899. REM
  900. 80 IF SIZE(FIL$(10) + ":" + CLIENT$ + "CON.FIL") = 0 THEN \
  901. PRINT "Insert Auxiliary Data Disk in Drive ";FIL$(10) : \
  902. PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
  903. PRINT : \
  904. INITIALIZE : \
  905. GOTO 80
  906. OPEN FIL$(10)+":"+CLIENT$+"CON.FIL" AS 1
  907. REM JUST READ THE FIRST TWO SEQUENTIALY
  908. 100 READ #1;C5,C$,P2,P3,P3$
  909. CLOSEAD #1,X+1;N,Y$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7),A(8),A(9), \
  910. A(10),A(11),A(12)
  911. IF N = -1 THEN 156
  912. 154 E(X)=N : N1=N1+1
  913. 155 NEXT X
  914. 155.6 GOSUB 7000
  915. 156 GOSUB 5300
  916. 160 GOSUB 9005
  917. 165 PRINT : PRINT : PRINT : PRINT
  918. 166 PRINT TAB(14);" D M S Client Programmed Accounting" : PRINT
  919. 168 PRINT TAB(17);" ACCOUNT EDIT MENU" : PRINT
  920. 169 PRINT TAB(12);"WHICH FUNCTION WOULD YOU LIKE TO PERFORM?"
  921. 171 PRINT TAB(12);" A. ADD an Account"
  922. 180 PRINT TAB(12);" C. CHANGE an Account
  923. X$ = UCASE$(LEFT$(REPLY$,1))
  924. 207 PRINT
  925. 210 IF X$="A" THEN 305
  926. 220 IF X$="C" THEN 470
  927. 230 IF X$="D" THEN 862
  928. 240 IF X$="M" THEN 1530
  929. 245 IF X$="V" THEN 2200
  930. 246 IF X$="S" THEN 2500
  931. 247 IF X$="P" THEN 960
  932. 248 IF X$="B" THEN 3500
  933. 250 PRINT "INVALID INPUT - TRY AGAIN!"
  934. 260 GOTO 3000
  935. 270 PRINT : PRINT "THE CHART OF ACCOUNTS IS FULL WITH ";N1;" ACCOUNTS"
  936. 280 PRINT "YOU CANNOT ADD MORE ACCOUNTS!"
  937. 290 PRINT "SEE CPA MAIN MENU OPTION #5 TO CHANGE THE SIZE OF THE FILE 'COANS'."
  938. 295 GOTO 3000
  939. 305 GOSUB 9005
  940. REM ***************** NOT FIXED LENGTH FILES IF N1>=L-1 THEN 270
  941. 306 PRINT : PRINT TAB(14);"OPTION A : ADDING AN ACCOUNT" : PRINT : PRINT
  942. 330 GOSUB 4000
  943. IF N=-1 THEN 160
  944. IF F=0 THEN 440
  945. 340 GOSUB 720 : GOTO 305
  946. 440 GOSUB 4200 : GOSUB 4600
  947. 450 GOSUB 4500 : B=B9
  948. 460 GOSUB 6000
  949. 465 GOTO 160
  950. 470 GOSUB 9005 : PRINT : PRINT TAB(14);"OPTION C : CHANGING AN ACCOUNT" : PRINT : PRINT
  951. 475 PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
  952. 490 PRINT "ENTER PRINT : PRINT "ENTER 1. To Change the Account Number,"
  953. 510 PRINT " 2. To Change the Description or"
  954. 512 PRINT " 3. To Change the Budget Amount or;"
  955. 515 PRINT " 4. To End Changes of this Account >";
  956. FLD.LEN% = -1 : GOSUB 9998 : PRINT
  957. M$ = UCASE$(LEFT$(REPLY$,1))
  958. 540 IF M$="1" THEN 570
  959. 550 IF M$="2" THEN 760
  960. 555 IF M$="3" THEN 660
  961. 560 IF M$="4" THEN 780
  962. 565 PRINT "INVALID INPUT - TRY AGAIN!"
  963. 566 PRINT CHR$(7); : GOTO 500
  964. 570 GOSUB 4000
  965. REM ************** DOES IT WORK
  966. IHEN Y$=Y9$
  967. 802 IF S3=1 THEN B=B9
  968. 803 IF S1=1 THEN 820
  969. 804 IF S2<>1 AND S3<>1 THEN 160
  970. 805 E(X)=N
  971. 810 GOSUB 5000 : GOSUB 5400 : GOSUB 5300 : GOTO 160
  972. 820 N=N2 : Y9$=Y$ : B9=B :
  973. FOR X9=0 TO 12
  974. A9(X9)=A(X9)
  975. NEXT X9
  976. GOSUB 6300
  977. 830 N=N0 : Y$=Y9$ : B=B9
  978. FOR X9=0 TO 12
  979. A(X9)=A9(X9)
  980. NEXT X9
  981. 850 GOSUB 6005
  982. 860 GOTO 160
  983. 862 GOSUB 9005 : PRINT : PRINT TAB(14);"OPTION D : DELETE AN ACCOUNT" : PRINT : PRINT
  984. 864 PRINT : PRINT "(OR -1 TO RETURN TO MENU3100
  985. 997 PRINT : PRINT REVLF$; : PRINT REVLF$; : PRINT B$;B$ : PRINT B$;B$
  986. 999 GOTO 1020
  987. 1000 IF X$<>"D" THEN 1030
  988. 1010 O=0 : CONSOLE : P=0
  989. 1015 P1=23
  990. 1017 GOTO 1040
  991. 1020 PRINT "ENTER THE DATE YOU WANT ON THE LIST (MMDDYY) > <";
  992. 1021 REV.X=6 : GOSUB 8000 : PRINT ">";
  993. FLD.LEN% = -6 : GOSUB 9998 : PRINT
  994. D$ = REPLY$
  995. D$=D$+" "
  996. 1025 GOSUB 4300
  997. 1026 IF D$="INVALI" THEN 1020
  998. 1027 PRINT"DO YOU WANT THE BUDGET AMOUNTS PRINTED (Y OR N):";
  999. FLD.LEN%=1 : GOSUB 9998 : PRINT
  1000. ,2);"/";MID$(D$,3,2);"/";MID$(D$,5,2)
  1001. 1370 PRINT : PRINT TAB(11);"ACCT. NO.";TAB(25);"DESCRIPTION";TAB(59);
  1002. 1372 IF X1$="Y" THEN PRINT "BUDGET AMOUNT" ELSE PRINT
  1003. 1374 PRINT TAB(10);"----------";TAB(25);"-------------------------";TAB(59);
  1004. 1376 IF X1$ = "Y" THEN PRINT "-------------" ELSE PRINT
  1005. P = 9
  1006. GOTO 1380
  1007. 1375 REM FIX THIS
  1008. 1378 PRINT : P=3
  1009. 1380 GOSUB 5000
  1010. 1390 X=0
  1011. 1395 IF END #1 THEN 1430
  1012. REM *********** ABOVE REPLACES THIS >TYP(0)=0 THEN 1430
  1013. 1400 READ #1,X+1;N,Y$,B,A(0),A(1),ATHE NUMBER OF THE ACCOUNT TO BE CHANGED > <";
  1014. 491 REV.X=9 : GOSUB 8000 : PRINT ">";
  1015. FLD.LEN% = -10 : GOSUB 9998 : PRINT
  1016. IF LEN(REPLY$) = 0 THEN 493
  1017. N2 = VAL(REPLY$)
  1018. N=N2
  1019. 492 IF N2 = -1 THEN GOTO 160 ELSE GOSUB 4100
  1020. GOTO 494
  1021. 493 PRINT : PRINT " INVALID INPUT - TRY AGAIN!"
  1022. FOR XE= 1 TO 250 : NEXT XE
  1023. GOTO 490
  1024. 494 IF F=1 THEN 497
  1025. 495 PRINT "THERE IS NO SUCH ACCOUNT NUMBER IN THE FILE!"
  1026. 496 GOTO 3000
  1027. 497 X1=X : S1=0
  1028. 500 GOSUB 9005 :F N=-1 THEN GOTO 580 ELSE GOTO 620
  1029. 580 N=N2 : GOTO 500
  1030. 620 IF F=0 THEN 630
  1031. 625 GOSUB 720 : GOTO 570
  1032. 630 N0=N : S1=1 : GOTO 500
  1033. 660 GOSUB 4500 : B = B9 : S3=1 : GOTO 500
  1034. 720 PRINT CHR$(7) : PRINT "THAT ACCOUNT NUMBER HAS ALREADY BEEN USED - TRY AGAIN!"
  1035. 725 PRINT "PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 : GOSUB 9998 : PRINT
  1036. 730 RETURN
  1037. 760 GOSUB 4200
  1038. 770 Y9$=Y$ : S2=1 : GOTO 500
  1039. 780 X=X1
  1040. 785 GOSUB 5000 : GOSUB 5100 : GOSUB 5300
  1041. 786 B1=B : C1=C : Y1$=Y$
  1042. 790 IF S1=1 THEN 820
  1043. 800 IF S2=1 T)" : PRINT REVLF$; : PRINT REVLF$;
  1044. 870 PRINT "ENTER ACCOUNT NUMBER TO BE DELETED > <";
  1045. 871 REV.X=9 : GOSUB 8000 : PRINT ">";
  1046. FLD.LEN% = -10 : GOSUB 9998 : PRINT
  1047. N = VAL(REPLY$)
  1048. 872 IF N=-1 THEN 160
  1049. 880 GOSUB 6300
  1050. 890 IF F=0 THEN 495
  1051. 937 GOTO 160
  1052. 960 PRINT "ENTER 'P' TO PRINT OR 'D' TO DISPLAY THE CHART OF ACCOUNTS :";
  1053. FLD.LEN% = 1 : GOSUB 9998 : PRINT
  1054. X$ = UCASE$(LEFT$(REPLY$,1))
  1055. 990 IF X$<>"P" THEN 1000
  1056. 994 O=1 : P1=59 : P2=1
  1057. 995 PRINT "SET THE PRINTER AND PAPER"
  1058. 996 GOSUB X1$=UCASE$(LEFT$(REPLY$,1))
  1059. IF X1$ = "N" THEN 1040
  1060. IF X1$ ="Y" THEN 1040
  1061. PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
  1062. GOTO 1027
  1063. 1030 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
  1064. 1031 GOTO 960
  1065. 1040 IF O = 1 THEN LPRINTER
  1066. PRINT
  1067. IF O=1 THEN PRINT USING "PAGE ###";TAB(70);P2
  1068. PRINT
  1069. 1330 IF X$="D" THEN GOSUB 9005 : PRINT
  1070. 1340 PRINT TAB(10);C$;TAB(55);"CLIENT NUMBER ";C5
  1071. 1350 PRINT TAB(10);"CHART OF ACCOUNTS"
  1072. 1355 IF X$="D" THEN 1378
  1073. 1360 PRINT TAB(10);MID$(D$,1(2),A(3),A(4),A(5),A(6),A(7),A(8),A(9), \
  1074. A(10),A(11),A(12)
  1075. REM GOSUB 5100
  1076. REM CHECK FOR END OF FILE
  1077. IF N = -1 THEN 1430
  1078. 1405 X=X+1
  1079. 1410 PRINT USING "#######.##";TAB(10);N; : PRINT TAB(25);LEFT$(Y$,20);
  1080. 1415 IF X1$="Y" THEN GOTO 1419 ELSE GOTO 1418
  1081. 1418 PRINT : GOTO 1420
  1082. 1419 PRINT USING "$$###,,,#########.##";TAB(52);B/100
  1083. 1420 P=P+1
  1084. IF P<P1 THEN 1395
  1085. 1421 IF X$="P" THEN 1425
  1086. 1422 PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 :GOSUB 9998:PRINT
  1087. 1423 GOSUB 9005 : PRINT
  1088. 1424 P=3 : GOTO 1395
  1089. 1425 P2=P2+1
  1090. IF O=1 THEN PRINT CHR$(12);
  1091. IF O=1 THEN PRINT : PRINT TAB(70);"PAGE ";P2 : PRINT : PRINT : PRINT
  1092. 1426 P=4 : GOTO 1395
  1093. 1430 PRINT TAB(15);"THERE ARE";X;" ACCOUNTS IN THE FILE."
  1094. 1432 PRINT TAB(15);"THE MAXIMUM NUMBER FOR THIS FILE AT ITS PRESENT SIZE IS ";L
  1095. 1435 GOSUB 5300
  1096. 1437 IF O=1 THEN PRINT CHR$(12);
  1097. 1440 GOTO 3010
  1098. 1530 IF NUM.BITS%=8 THEN EXT$=".OVL" ELSE EXT$=".OVR"
  1099. IF SIZE(PGM$(3)+":" + "MENU"+EXT$) = 0 THEN \
  1100. PRINT "Insert Auxiliary ProgramNT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
  1101. 2209 PRINT "ENTER THE NUMBER OF THE ACCOUNT YOU WANT TO VIEW > <";
  1102. 2210 REV.X=9 : GOSUB 8000 : PRINT ">";
  1103. FLD.LEN% = -10 : GOSUB 9998 : PRINT
  1104. IF LEN(REPLY$) = 0 THEN 2212
  1105. N = VAL(REPLY$) : GOTO 2215
  1106. 2212 PRINT : PRINT " INVALID INPUT - TRY AGAIN!"
  1107. FOR XE = 1 TO 250 : NEXT XE : GOTO 2209
  1108. 2215 IF N=-1 THEN 160
  1109. 2220 GOSUB 4100
  1110. 2230 IF F=0 THEN 495
  1111. 2240 GOSUB 5000
  1112. 2250 GOSUB 5100
  1113. 2255 OD #";
  1114. PRINT X1;"(";
  1115. 2286 PRINT MID$(P3$,X1*6+1,2);"/";MID$(P3$,X1*6+3,2);"/";MID$(P3$,X1*6+5,2);")";
  1116. 2288 IF X1=P2 THEN PRINT " F";
  1117. 2290 PRINT TAB(32); : PRINT USING "$$###,,,#########.##";A(X2)/100
  1118. 2292 NEXT X1
  1119. 2300 GOSUB 5300
  1120. 2310 PRINT : GOTO 3010
  1121. 2490 INITIALIZE
  1122. PRINT CHR$(7);"ACC FILE NOT IN DRIVE ";FIL$(8);" INSERT THE PROPER DISK"
  1123. PRINT "and PRESS RETURN or 'S' TO CREATE or 'M' TO RETURN TO THE MENU:";
  1124. FLD.LEN% = 1 : GOSUB 9998
  1125. GOSUB 9009
  1126. IF LEN(REPLY$) = 0 THEN + CLIENT$ + "CLN.FIL") = 0 THEN \
  1127. PRINT "Insert Client Data Disk in Drive ";PGM$(3) : \
  1128. PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
  1129. FIL2$ = PGM$(3) : \
  1130. PRINT : \
  1131. INITIALIZE : \
  1132. GOTO 2540.2
  1133. REM ELSE \
  1134. REM FIL2$ = FIL$(2)
  1135. GOSUB 9005 : PRINT "WORKING . . . . "
  1136. 2610 OPEN FIL2$ + ":" + CLIENT$ + "CLN.FIL" RECL 255 AS 2
  1137. 2620 READ #2;X : CLOSE 2
  1138. 2630 IF X = C5 THEN 2670
  1139. 2640 INITIALIZE
  1140. PRINT CHR$(7);
  1141. PRINT "THE CLIENT NUMBER OF THE DISK IN DRIVE ";FIL2REM ELSE \
  1142. REM FIL2$ = FIL$(4)
  1143. OPEN FIL2$ + ":" + CLIENT$ + "COA.FIL" RECL 65 AS 2
  1144. IF END #1 THEN 2681.4
  1145. 2680 OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 1
  1146. REM "ACCTS" : GOSUB 5000
  1147. IF END #1 THEN 2685
  1148. READ #1,1;N,Y$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7),A(8),A(9), \
  1149. A(10),A(11),A(12)
  1150. REM FIRST ONE EOF THEN GOOD
  1151. IF N = -1 THEN 2685
  1152. GOTO 2682
  1153. 2681.4 CREATE FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 1
  1154. GOTO 2685
  1155. REM 2681 IF TYP(0) = 0 THEN 2685
  1156. 2682 PRI Disk in Drive ";PGM$(3) : \
  1157. PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
  1158. PRINT : \
  1159. INITIALIZE : \
  1160. GOTO 1530
  1161. CHAIN PGM$(3)+":MENU"
  1162. PRINT CHR$(7) : GOSUB 9005
  1163. 2022 PRINT "THE DISK IN DRIVE ";FIL$(8);" IS NOT A CLIENT DATA FILE DISK"
  1164. 2023 PRINT " OR IMPROPERLY DOES NOT HAVE ON IT THE FILE ";F8$
  1165. PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 : GOSUB 9998
  1166. 2034 GOTO 74
  1167. 2200 GOSUB 9005 : PRINT : PRINT TAB(14);"OPTION V : VIEW AN ACCOUNT" : PRINT
  1168. 2202 PRIGOSUB 9005
  1169. 2260 PRINT : PRINT : PRINT "ACCOUNT NUMBER";TAB(45);
  1170. PRINT USING "########.##";N
  1171. 2270 PRINT "DESCRIPTION";TAB(40);Y$
  1172. REM 2280 PRINT "CURRENT PERIOD BALANCE";TAB(40);
  1173. REM PRINT USING "$$###,,,#########.##";B/100
  1174. REM 2290 PRINT "YEAR-TO-DATE BALANCE";TAB(40);
  1175. REM PRINT USING "$$###,,,#########.##";C/100
  1176. 2280 PRINT "BUDGET AMOUNT";TAB(40);
  1177. PRINT USING "$$###,,,#########.##";B/100
  1178. 2282 FOR X1=0 TO 12
  1179. X2=X1+P3+1
  1180. IF X2 > 12 THEN X2 = X2 - 13
  1181. 2284 PRINT "PERI INITIALIZE : GOTO 77
  1182. KB.FEEL$ = UCASE$(LEFT$(REPLY$,1))
  1183. IF KB.FEEL$ = "M" THEN 1530
  1184. IF KB.FEEL$ = "S" THEN 2500
  1185. GOTO 2490
  1186. 2500 GOSUB 9005 : PRINT : PRINT TAB(14);"OPTION 2: SET UP A NEW SET OF AUXILIARY ACCOUNTS"
  1187. 2510 PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$ ; : PRINT REVLF$ ;
  1188. 2520 PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 2 : GOSUB 9998
  1189. D$ = REPLY$
  1190. 2530 IF VAL(D$)=-1 THEN 160
  1191. 2535 IF LEN(D$) <> 0 THEN 2500
  1192. 2540 FIL2$ = FIL$(2)
  1193. 2540.2 IF SIZE(FIL2$+":"$
  1194. PRINT "DOES NOT MATCH THE AUXILLARY CONTROL NUMBER"
  1195. 2650 PRINT " PLEASE INSERT THE PROPER DISK IN DRIVE ";FIL2$;" THEN PRESS RETURN";
  1196. FLD.LEN% = 1 : GOSUB 9998
  1197. X$ = REPLY$
  1198. INITIALIZE
  1199. 2660 GOTO 2540
  1200. 2670 FIL2$ = FIL$(4)
  1201. 2670.2 IF SIZE(FIL2$ + ":" + CLIENT$ + "COA.FIL") = 0 THEN \
  1202. PRINT "Insert Client Data Disk Containing COA.FIL in Drive ";PGM$(3):\
  1203. PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
  1204. PRINT : \
  1205. INITIALIZE : \
  1206. FIL2$ = PGM$(3) : \
  1207. GOTO 2670.2
  1208. NT CHR$(7);"THIS CLIENT ALREADY HAS AUXILIARY ACCOUNTS!"
  1209. 2683 CLOSE 1 : CLOSE 2
  1210. PRINT " PRESS RETURN TO CONTINUE ";
  1211. FLD.LEN% = 1 : GOSUB 9998
  1212. X$ = REPLY$
  1213. 2684 GOTO 2750
  1214. 2685 FOR X = 0 TO 12
  1215. A(X) = 0
  1216. NEXT X
  1217. X = 0
  1218. 2690 REM IF TYP(2) = 0 THEN 2730
  1219. 2700 READ #2,X+1;A1,A2,A3,Y$ : Y$ = Y$ + B$
  1220. IF A1 = -1 THEN 2730
  1221. 2710 N = A1 : GOSUB 5200 : E(X) = N : X = X + 1
  1222. 2720 GOTO 2690
  1223. 2730 N = -1 : Y$ = "EOF ACC FILE" : GOSUB 5200
  1224. GOSUB 5300 : N1 = X - 1
  1225. 2740 CLOSE 2
  1226. 2750 GOTO 160
  1227. 3000 PRINT CHR$(7)
  1228. 3010 IF O = 1 THEN CONSOLE : O = 0
  1229. PRINT " PRESS RETURN TO GO TO MENU "
  1230. FLD.LEN%=1 : GOSUB 9998 : M$ = REPLY$ : PRINT
  1231. 3020 GOTO 160
  1232. 3090 PRINT "PLEASE CORRECT!"
  1233. 3100 PRINT" THEN PRESS RETURN "; : FLD.LEN%=1 : GOSUB 9998 : PRINT
  1234. 3110 RETURN
  1235. 3400 PRINT "INSERT AN AUXILIARY STATEMENTS DATA DISK WITH NO WRITE-PROTECT TAPE IN DRIVE 2"
  1236. 3410 RETURN
  1237. 3500 OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 1
  1238. F8$ = "ACC.FIL"
  1239. REM GOSUB 5000
  1240. <";:REV.X=10:GOSUB 8000
  1241. 3575 PRINT ">"; : FLD.LEN% = -10 : GOSUB 9998 : PRINT
  1242. B = VAL(REPLY$)
  1243. IF B = -1 THEN 3620
  1244. 3580 IF ABS( B ) > 9999999999 THEN 3605
  1245. IF B = INT(B) THEN 3610
  1246. 3590 PRINT CHR$(7);"ENTER ALL NUMBERS WITHOUT THE DECIMAL POINT !"
  1247. 3600 PRINT " PRESS RETURN TO CONTINUE ";
  1248. FLD.LEN% = 1 : GOSUB 9998 : PRINT
  1249. X$ = REPLY$
  1250. GOTO 3520
  1251. 3605 PRINT CHR$(7);" INVALID AMOUNT !" : GOTO 3600
  1252. 3610 GOSUB 5400 : X = X + 1 : GOTO 3510
  1253. 3620 GOSUB 5300 : GOTO 160
  1254. 4000 PRINT 140 GOTO 4190
  1255. 4150 F=1
  1256. 4190 PRINT : RETURN
  1257. 4200 PRINT TAB(62);":"
  1258. PRINT REVLF$;"ENTER THE NEW ACCOUNT DESCRIPTION (20X) :";
  1259. 4210 FLD.LEN% = 20 : GOSUB 9998 : Y$ = REPLY$ : PRINT
  1260. 4220 IF LEN(Y$)<=20 THEN 4250
  1261. 4230 PRINT
  1262. PRINT "DESCRIPTION IS ";LEN(Y$)-20;" CHARACTERS TOO LONG - TRY AGAIN"
  1263. 4240 PRINT CHR$(7) : GOTO 4200
  1264. 4250 Y$=Y$+B$
  1265. 4251 IF LEFT$(Y$,1)<>DUPE.KEY$ THEN 4255
  1266. 4253 Y$=Y5$ : PRINT TAB(42); : PRINT REVLF$; : PRINT Y$
  1267. 4255 Y5$=Y$
  1268. Y9$ = Y$
  1269. 4260 RETURN
  1270. 4300 FOR X=1 TO 6
  1271. 4310 IV.X=10 : GOSUB 8000
  1272. PRINT ">"; : FLD.LEN% = -10 : GOSUB 9998 : PRINT
  1273. B9 = VAL(REPLY$)
  1274. 4520 IF ABS( B9 ) > 9999999999 THEN 4532
  1275. IF B9=INT(B9) THEN RETURN
  1276. 4530 PRINT CHR$(7);"DO NOT USE DECIMAL POINT - ENTER ONE DOLLAR AS 100 !"
  1277. 4532 PRINT CHR$(7);" INVALID AMOUNT"
  1278. 4535 GOTO 4500
  1279. 4600 FOR X1=0 TO 12
  1280. A(X1)=0
  1281. NEXT
  1282. RETURN
  1283. 5000 OPEN FIL$(8)+":"+CLIENT$+F8$ RECL 255 AS 1
  1284. 5010 RETURN
  1285. 5100 READ #1,X+1;N,Y$,B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7),A(8),A(9), \
  1286. 0 PRINT : PRINT "WORKING . . ."
  1287. 6005 GOSUB 5000
  1288. REM IN CASE THERE A ZERO ENTRIES IN THE FILE
  1289. 6010 IF N1 = 0 THEN X=0 : GOTO 6105
  1290. FOR X=0 TO N1-1
  1291. 6030 IF E(X)>N THEN 6050
  1292. 6040 NEXT X
  1293. 6045 GOTO 6105
  1294. 6050 FOR X=X TO N1-1
  1295. 6060 READ #1,X+1;N9,Y9$,B9,A9(0),A9(1),A9(2),A9(3),A9(4),A9(5),A9(6),A9(7), \
  1296. A9(8),A9(9),A9(10),A9(11),A9(12)
  1297. 6070 GOSUB 5400
  1298. 6075 E(X)=N
  1299. 6080 N=N9 : B=B9 : Y$=Y9$
  1300. FOR X1=0 TO 12
  1301. A(X1)=A9(X1)
  1302. NEXT
  1303. 6100 NEXT X
  1304. 6105 E(X)=N
  1305. 61X = 0
  1306. 3510 REM IF TYP(0) = 0 THEN 3620
  1307. 3520 GOSUB 9005 : PRINT : PRINT TAB(14);"OPTION B: ENTERING ALL BUDGET AMOUNTS" : PRINT
  1308. 3530 GOSUB 5100
  1309. REM THE GOSUB 5400 IN THE FOLLOWING LINE IS OPTIONAL
  1310. IF N = -1 THEN GOSUB 5400 : GOTO 3620
  1311. 3540 PRINT TAB(5);"ACCOUNT NUMBER :";N
  1312. 3550 PRINT TAB(5);"DESCRIPTION : ";Y$
  1313. 3560 PRINT TAB(5);"PRESENT BUDGET AMOUNT :";
  1314. PRINT USING "$$###,,,######.##";B/100
  1315. 3565 PRINT TAB(5);"(ENTER -1 TO END)"
  1316. 3570 PRINT TAB(5);"ENTER NEW BUDGET AMOUNT > : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
  1317. 4005 PRINT "ENTER THE NEW ACCOUNT NUMBER > <";
  1318. 4010 REV.X=9 : GOSUB 8000 : PRINT ">";
  1319. FLD.LEN% = -10 : GOSUB 9998 : PRINT
  1320. N = VAL(REPLY$)
  1321. 4015 IF N=-1 THEN RETURN
  1322. 4020 IF INT(N*100)-(N*100)<>0 THEN 4050
  1323. 4030 IF N<=0 THEN 4050
  1324. 4040 IF N<=999999.99 THEN 4100
  1325. 4050 PRINT : PRINT "INVALID ACCOUNT NUMBER - TRY AGAIN!"
  1326. 4060 PRINT CHR$(7) : GOTO 4000
  1327. 4100 F=0
  1328. 4110 FOR X=0 TO N1-1
  1329. 4120 IF E(X)=N THEN 4150
  1330. 4130 NEXT X
  1331. 4F MID$(D$,X,1)<"0" THEN 4450
  1332. 4320 IF MID$(D$,X,1)>"9" THEN 4450
  1333. 4330 NEXT X
  1334. 4340 IF LEFT$(D$,1)="0" THEN 4370
  1335. 4345 IF LEFT$(D$,1)<>"1" THEN 4450
  1336. 4350 IF MID$(D$,2,1)>"2" THEN GOTO 4450 ELSE GOTO 4380
  1337. 4370 IF MID$(D$,2,1)<"1" THEN 4450
  1338. 4380 IF MID$(D$,3,1)>"3" THEN 4450
  1339. 4390 IF MID$(D$,3,1)<>"3" THEN 4470
  1340. 4400 IF MID$(D$,4,1)>"1" THEN GOTO 4450 ELSE GOTO 4470
  1341. 4450 PRINT CHR$(7);"INVALID DATE - TRY AGAIN!"
  1342. 4460 D$="INVALI"
  1343. 4470 RETURN
  1344. 4500 PRINT "ENTER THE BUDGETARY AMOUNT > <";
  1345. 4510 REA(10),A(11),A(12)
  1346. 5110 RETURN
  1347. 5200 PRINT#1,X+1;N,LEFT$(Y$,20),B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7), \
  1348. A(8),A(9),A(10),A(11),A(12) : G=1
  1349. 5210 RETURN
  1350. 5300 CLOSE 1 : RETURN
  1351. 5400 PRINT #1,X+1;N,LEFT$(Y$,20),B,A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7), \
  1352. A(8),A(9),A(10),A(11),A(12) : G=2
  1353. 5410 RETURN
  1354. 5500 REM ***************** PRINT #10%0,&1,NOENDMARK : G=3
  1355. REM ONE RECORD BEING DELETED TO 0 RECORDS
  1356. X = 0 : GOSUB 7000 : G = 3
  1357. 5510 GOSUB 5300
  1358. 5520 N1=0 : RETURN
  1359. REM ADD ONE TO THE FILE
  1360. 60010 GOSUB 5200
  1361. X = X + 1 : GOSUB 7000
  1362. 6120 GOSUB 5300
  1363. 6130 N1=N1+1
  1364. 6200 RETURN
  1365. REM DELETE A RECORD FROM THE FILE AND MOVE THE REST OF THE RECORDS UP
  1366. 6300 PRINT : PRINT "WORKING . . ." : F=0
  1367. 6305 GOSUB 5000
  1368. 6310 FOR X=0 TO N1-1
  1369. 6320 IF E(X)=N THEN 6347
  1370. 6330 NEXT X
  1371. 6345 GOTO 6490
  1372. 6347 F=1
  1373. 6348 GOSUB 5100
  1374. IF N1=1 THEN 5500
  1375. 6349 IF X$<>"C"AND C<>0 THEN 6600
  1376. 6350 IF X<N1-1 THEN 6352
  1377. REM USED TO READ THEN WRITE 2ND FROM LAST RECORD WITH END MARK TO
  1378. REM GET RID OF LAST RECORD
  1379. REM NOW WE WRITE "END OF FILE RECORD" OVER IT
  1380. REM 6351 X=X-1 : GOSUB 5100 : GOSUB 5200
  1381. GOTO 6380
  1382. 6352 FOR X=X TO N1-2
  1383. 6353 X=X+1
  1384. 6355 GOSUB 5100
  1385. 6357 X=X-1
  1386. 6360 GOSUB 5200
  1387. 6365 E(X)=E(X+1)
  1388. 6370 NEXT X
  1389. 6380 N1=N1-1
  1390. GOSUB 7000
  1391. 6490 GOSUB 5300
  1392. 6500 RETURN
  1393. 6600 PRINT : PRINT USING "THAT ACCOUNT HAS A BALANCE OF $$#############.##";C/100;
  1394. PRINT " - CANNOT DELETE IT!"
  1395. 6610 F=1 : PRINT CHR$(7) : PRINT
  1396. PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 :GOSUB 9998:PRINT
  1397. 6620 GOTO 6490
  1398. 7000 N = REM 101983 - (RCB) REMOVED INPUT STATEMENT REPLACED WITH GOSUB 9998
  1399. REM CB0002JNY
  1400. REM
  1401. REM 071783 - DCF TOOK LINE #'S OFF REM STATEMENTS
  1402. REM TOOK ; OUT OF PRINT LINE AROUND 350 FOR CB80 COMPILE
  1403. REM
  1404. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  1405. REM
  1406. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  1407. REM
  1408. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  1409. REM FLANKS TO NFLANKS
  1410. REM
  1411. REM *** CHANGED PRINT CLR$ TO GOSUB ETURN Key To Continue Or 'M' To Return To Utilities Menu";
  1412. FLD.LEN%=1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$,1))
  1413. 60 IF M$="M" THEN 1030
  1414. GOSUB 9005 : PRINT : PRINT "HOW MANY NUMBERS? ";
  1415. FLD.LEN%= -10 : GOSUB 9998 : N = VAL(REPLY$)
  1416. RANDOMIZE
  1417. 90 PRINT : PRINT "ENTER LOW RANGE ";:FLD.LEN%= -10 : GOSUB 9998 : PRINT : L1=VAL(REPLY$)
  1418. PRINT : PRINT "ENTER HIGH RANGE ";:FLD.LEN%= -10 : GOSUB 9998 : PRINT :H=VAL(REPLY$)
  1419. 110 IF L1<H THEN 140
  1420. PRINT "LOW RANGE IS NOT LESS THAN HIGH RANGE" N
  1421. PRINT A(Q)
  1422. P=P+1
  1423. IF P<60 THEN 410
  1424. PRINT CHR$(12);
  1425. P=0
  1426. 410 NEXT Q
  1427. 420 PRINT CHR$(12);
  1428. 430 P=0
  1429. 440 GOTO 480
  1430. 445 CONSOLE : GOSUB 9005 : P=0
  1431. 450 FOR Q=1 TO N
  1432. PRINT A(Q)
  1433. 465 P=P+1
  1434. IF P<22 THEN 470
  1435. 466 PRINT : PRINT "PRESS RETURN TO CONTINUE "
  1436. FLD.LEN%=1 : GOSUB 9998
  1437. GOSUB 9005 : PRINT : P=0
  1438. 470 NEXT Q
  1439. 480 CONSOLE
  1440. PRINT : PRINT "ARE THESE NUMBERS OK (Y OR N)? ";:FLD.LEN%=1: GOSUB 9998 : PRINT : A$=UCASE$(LEFT$(REPLY$,1))
  1441. IF A$="YSE$(LEFT$(REPLY$,1))
  1442. IF A$="D" THEN 735
  1443. IF A$="P" THEN 660
  1444. 640 PRINT "ENTER 'P' OR 'D' PLEASE"
  1445. 650 GOTO 610
  1446. 660 LPRINTER
  1447. FOR Q=1 TO N
  1448. PRINT TAB(10);A(Q) : PRINT
  1449. P=P+2
  1450. IF P<60 THEN 720
  1451. PRINT CHR$(12);
  1452. P=0
  1453. 720 NEXT Q
  1454. 730 GOTO 770
  1455. 735 CONSOLE : P = 0 : GOSUB 9005
  1456. 740 FOR Q=1 TO N
  1457. PRINT A(Q)
  1458. P=P+1
  1459. IF P<22 THEN 760
  1460. PRINT : PRINT " PRESS RETURN TO CONTINUE LIST "
  1461. FLD.LEN%=1 : GOSUB 9998
  1462. GOSUB 9005 : PRINT : P=0
  1463. -1 : B = 0 : C = 0 : Y$ = "END OF FILE MARKER"
  1464. E(X) = -1
  1465. GOSUB 5200
  1466. RETURN
  1467. 8000 FOR J=1 TO REV.X+2
  1468. 8010 PRINT CHR$(8);
  1469. 8020 NEXT J
  1470. 8030 RETURN
  1471. %INCLUDE NFLANKS.BAS
  1472. 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋9005 AND 3.6 TO VERSION$
  1473. REM *** RANDOM NUMBER GENERATOR (RANDOM)
  1474. REM *** COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC.
  1475. REM *** 648 SOUTH RIVER DRIVE
  1476. REM *** TEMPE, ARIZ. 85281
  1477. %INCLUDE COMMON.BAS
  1478. 15 GOSUB 9005
  1479. PRINT
  1480. PRINT TAB(23);"Dimis Micro Systems, Inc. "
  1481. PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
  1482. PRINT
  1483. PRINT TAB(29);"MENU OPTION #7"
  1484. PRINT TAB(24);"GENERATES RANDOM NUMBERS" : PRINT
  1485. PRINT TAB(5);"Press R
  1486. 130 GOTO 90
  1487. 140 PRINT : PRINT "BEGIN GENERATION"
  1488. 150 DIM A(N),S9(100,2)
  1489. 240 FOR Q=1 TO N
  1490. 250 A(Q)=INT(((H-L1)*RND)+L1)
  1491. 260 IF A(Q)<L1 OR A(Q)>H THEN 250
  1492. 270 PRINT "*";
  1493. 280 NEXT Q
  1494. 290 PRINT : PRINT "END GENERATION"
  1495. 300 PRINT : PRINT "DO YOU WANT TO PRINT OR DISPLAY THE RANDOM LIST (P OR D)? ";:FLD.LEN%=1 : GOSUB 9998 : PRINT :A$=LEFT$(REPLY$,1)
  1496. IF A$="D" THEN 445
  1497. IF A$="P" THEN 350
  1498. PRINT "ENTER 'P' OR 'D' PLEASE"
  1499. GOTO 300
  1500. 350 LPRINTER : PRINT CHR$(12)
  1501. FOR Q=1 TO" THEN 580
  1502. IF A$="N" THEN 530
  1503. 510 PRINT "ENTER 'Y' OR 'N' PLEASE"
  1504. 520 GOTO 480
  1505. 530 PRINT : PRINT "DO YOU WANT TO GENERATE A NEW SERIES (Y OR N)? ";:FLD.LEN%=1 : GOSUB 9998 : PRINT :A$=UCASE$(LEFT$(REPLY$,1))
  1506. IF A$="Y" THEN 15
  1507. IF A$="N" THEN 1030
  1508. 560 PRINT "ENTER 'Y' OR 'N' PLEASE"
  1509. 570 GOTO 530
  1510. 580 PRINT : PRINT "BEGIN SORT"
  1511. 590 GOSUB 820
  1512. 600 PRINT "END SORT"
  1513. 610 PRINT : PRINT "DO YOU WANT TO PRINT OR DISPLAY THE SORTED LIST (P OR D)? ";:FLD.LEN%=1 : GOSUB 9998 : PRINT :A$=UCA760 NEXT Q
  1514. 770 CONSOLE
  1515. PRINT : PRINT "DO YOU WANT TO GENERATE ANOTHER SERIES (Y OR N)? ";:FLD.LEN%=1 : GOSUB 9998 : PRINT: A$=UCASE$(LEFT$(REPLY$,1))
  1516. IF A$="Y" THEN 15
  1517. IF A$="N" THEN 1030
  1518. 800 PRINT : PRINT "ENTER 'Y' OR 'N' PLEASE"
  1519. 810 GOTO 770
  1520. 815 REM ************ SORTING ROUTINE *********************
  1521. 820 S=1
  1522. 830 S9(1,1)=1 : S9(1,2)=N
  1523. 840 L=S9(S,1) : R=S9(S,2) : S=S-1
  1524. 850 I=L : J=R : X=A(INT%(RND*(R-L)+.5)+L)
  1525. 860 IF A(I)>=X THEN 870
  1526. I=I+1
  1527. GOTO 860
  1528. 870 IF X>=A(J) THEN 880
  1529. J=J-1
  1530. GOTO 870
  1531. 880 IF I>J THEN 900
  1532. 890 W=A(I) : A(I)=A(J) : A(J)=W : I=I+1 : J=J-1
  1533. 900 IF I<=J THEN 860
  1534. 910 IF J-L>=R-I THEN 950
  1535. 920 IF I>=R THEN 940
  1536. 930 S=S+1 : S9(S,1)=I : S9(S,2)=R
  1537. 940 R=J : GOTO 980
  1538. 950 IF L>=J THEN 970
  1539. 960 S=S+1 : S9(S,1)=L : S9(S,2)=J
  1540. 970 L=I : PRINT "*";
  1541. 980 IF L<R THEN 850
  1542. 990 IF S>0 THEN 840
  1543. 1000 PRINT : RETURN
  1544. 1030 CHAIN PGM$(4) + ":" + "UMENU"
  1545. %INCLUDE NFLANKS.BAS
  1546. 10000 READ #EARNREC.FIL,X+1; \
  1547. EMP.NO,\
  1548. EMP.NAME$,\
  1549. STR.ADDR$,\
  1550. CITY.ST.ZIP$,\
  1551. SSN$,\
  1552. REG.WAGES ,\
  1553. OVERTIME.WAGES ,\
  1554. MEALS.AND.LODGING ,\
  1555. TIPS ,\
  1556. FICA ,\
  1557. FED.INC.TAX ,\
  1558. STATE.INC.TAX ,\
  1559. ST.DIS.INS ,\
  1560. LOCAL.DED.1,\
  1561. LOCAL.DED.2, \
  1562. LOCAL.WITH.1,\
  1563. LOCAL.WITH.2,\
  1564. OTHER.DED,\
  1565. NET.WAGES,\
  1566. REG.WAGES.QTR,\
  1567. OVERTIME.QTR,\
  1568. MEALS.LDG.QTR,\
  1569. TIPS.QTR,\
  1570. FICA.QTR,\
  1571. FED.INC.TAX.QTR,\
  1572. ST.INC.TAX.QTR,\
  1573. ST.DIS.INS.QTR,\
  1574. LOCAL.DREM ************************** READ PASSVAR
  1575. 10020.1 READ #PASSVAR.FIL,1; \
  1576. EMPLOYER.FICA,\
  1577. EMPLOYEE.FICA,\
  1578. STATE.UNEMP,\
  1579. FED.UNEMP,\
  1580. TAX.TIPS,\
  1581. TAX.ST.DIS,\
  1582. DED.DESC$,\
  1583. OTHER.DED.1,\
  1584. OTHER.DED.2,\
  1585. OTHER.DED.3,\
  1586. OTHER.DED.4,\
  1587. OTHER.DED.5,\
  1588. OTHER.DED.6,\
  1589. OTHER.DED.7,\
  1590. OTHER.DED.8,\
  1591. OTHER.DED.9,\
  1592. OTHER.DED.10,\
  1593. TOT.OTHER.DED,\
  1594. TAX.LIAB.1ST,\
  1595. TAX.LIAB.2ND,\
  1596. TAX.LIAB.3RD,\
  1597. TAX.LIAB.4TH, \
  1598. TAX.LIAB.1.3,\
  1599. TAX.LIAB.8.11,\
  1600. TAX.LIAB.16.19,\10010 PRINT #EARNREC.FIL,X+1; \
  1601. EMP.NO,\
  1602. EMP.NAME$,\
  1603. STR.ADDR$,\
  1604. CITY.ST.ZIP$,\
  1605. SSN$,\
  1606. REG.WAGES ,\
  1607. OVERTIME.WAGES ,\
  1608. MEALS.AND.LODGING ,\
  1609. TIPS ,\
  1610. FICA ,\
  1611. FED.INC.TAX ,\
  1612. STATE.INC.TAX ,\
  1613. ST.DIS.INS ,\
  1614. LOCAL.DED.1,\
  1615. LOCAL.DED.2, \
  1616. LOCAL.WITH.1,\
  1617. LOCAL.WITH.2,\
  1618. OTHER.DED,\
  1619. NET.WAGES,\
  1620. REG.WAGES.QTR,\
  1621. OVERTIME.QTR,\
  1622. MEALS.LDG.QTR,\
  1623. TIPS.QTR,\
  1624. FICA.QTR,\
  1625. FED.INC.TAX.QTR,\
  1626. ST.INC.TAX.QTR,\
  1627. ST.DIS.INS.QTR,\
  1628. LOCAL.REM ************************** WRITE PASSVAR
  1629. 10030.1 PRINT #PASSVAR.FIL,1; \
  1630. EMPLOYER.FICA,\
  1631. EMPLOYEE.FICA,\
  1632. STATE.UNEMP,\
  1633. FED.UNEMP,\
  1634. TAX.TIPS,\
  1635. TAX.ST.DIS,\
  1636. DED.DESC$,\
  1637. OTHER.DED.1,\
  1638. OTHER.DED.2,\
  1639. OTHER.DED.3,\
  1640. OTHER.DED.4,\
  1641. OTHER.DED.5,\
  1642. OTHER.DED.6,\
  1643. OTHER.DED.7,\
  1644. OTHER.DED.8,\
  1645. OTHER.DED.9,\
  1646. OTHER.DED.10,\
  1647. TOT.OTHER.DED,\
  1648. TAX.LIAB.1ST,\
  1649. TAX.LIAB.2ND,\
  1650. TAX.LIAB.3RD,\
  1651. TAX.LIAB.4TH,\
  1652. TAX.LIAB.1.3,\
  1653. TAX.LIAB.8.11,\
  1654. TAX.LIAB.16.19,邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋ED.1.QTR,\
  1655. LOCAL.DED.2.QTR,\
  1656. LOCAL.WITH.1.QTR,\
  1657. LOCAL.WITH.2.QTR,\
  1658. OTHER.DED.QTR,\
  1659. NET.WAGES.QTR,\
  1660. REG.WAGES.YR,\
  1661. OVERTIME.YR,\
  1662. MEALS.LDG.YR,\
  1663. TIPS.YR,\
  1664. FICA.YR,\
  1665. FED.INC.TAX.YR,\
  1666. ST.INC.TAX.YR,\
  1667. ST.DIS.INS.YR,\
  1668. LOCAL.DED.1.YR,\
  1669. LOCAL.DED.2.YR,\
  1670. LOCAL.WITH.1.YR,\
  1671. LOCAL.WITH.2.YR,\
  1672. OTHER.DED.YR,\
  1673. NET.WAGES.YR,\
  1674. L1.XE
  1675. RETURN
  1676. 
  1677. TAX.LIAB.23.25
  1678. RETURN
  1679. 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋DED.1.QTR,\
  1680. LOCAL.DED.2.QTR,\
  1681. LOCAL.WITH.1.QTR,\
  1682. LOCAL.WITH.2.QTR,\
  1683. OTHER.DED.QTR,\
  1684. NET.WAGES.QTR,\
  1685. REG.WAGES.YR,\
  1686. OVERTIME.YR,\
  1687. MEALS.LDG.YR,\
  1688. TIPS.YR,\
  1689. FICA.YR,\
  1690. FED.INC.TAX.YR,\
  1691. ST.INC.TAX.YR,\
  1692. ST.DIS.INS.YR,\
  1693. LOCAL.DED.1.YR,\
  1694. LOCAL.DED.2.YR,\
  1695. LOCAL.WITH.1.YR,\
  1696. LOCAL.WITH.2.YR,\
  1697. OTHER.DED.YR,\
  1698. NET.WAGES.YR,\
  1699. L1.XE
  1700. RETURN
  1701. \
  1702. TAX.LIAB.23.25
  1703. RETURN
  1704. 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋
  1705. 5000 REM ************************** ROUTINE TO READ CLNRNM.FIL
  1706. READ #CLNRNM.FIL,1; \
  1707. CLIENT.NO,\
  1708. CLIENT.NAME$,\
  1709. GL.END.DATE$,\
  1710. PAY.END.DATE$,\
  1711. FISCAL.END.MO,\
  1712. A9.III,\
  1713. PERIOD.TO.ADJ,\
  1714. RUN.NUMBER,\
  1715. MAX.FICA.WAGES,\
  1716. MAX.ST.UNEMP,\
  1717. MAX.FED.UNEMP,\
  1718. MAX.ST.DIS.WAGES,\
  1719. EMP.FICA.RATE,\
  1720. ST.UNEMP.RATE,\
  1721. FED.UNEMP.RATE,\
  1722. ST.DIS.RATE,\
  1723. LOCAL.DESC$,\
  1724. TYPE.OF.RUN,\
  1725. TIPS.F.U.I,\
  1726. MEALS.LDG.TO.ST.UNEMP,\
  1727. TIPS.TO.ST.UNEMP,\
  1728. ST.DIS.FLG,\
  1729. MEALS.LDG.TO.5010 REM ************************** ROUTINE TO WRITE CLNRNM.FIL
  1730. PRINT #CLNRNM.FIL,1; \
  1731. CLIENT.NO,\
  1732. CLIENT.NAME$,\
  1733. GL.END.DATE$,\
  1734. PAY.END.DATE$,\
  1735. FISCAL.END.MO,\
  1736. A9.III,\
  1737. PERIOD.TO.ADJ,\
  1738. RUN.NUMBER,\
  1739. MAX.FICA.WAGES,\
  1740. MAX.ST.UNEMP,\
  1741. MAX.FED.UNEMP,\
  1742. MAX.ST.DIS.WAGES,\
  1743. EMP.FICA.RATE,\
  1744. ST.UNEMP.RATE,\
  1745. FED.UNEMP.RATE,\
  1746. ST.DIS.RATE,\
  1747. LOCAL.DESC$,\
  1748. TYPE.OF.RUN,\
  1749. TIPS.F.U.I,\
  1750. MEALS.LDG.TO.ST.UNEMP,\
  1751. TIPS.TO.ST.UNEMP,\
  1752. ST.DIS.FLG,\
  1753. MEALS.LDG.TOREM 071283 - (DCF) MADE CHANGES FOR CB80 COMPILE
  1754. REM
  1755. REM 062383 - (RCB) CHANGED LEVEL "III" TO "I" IN LINE AFTER 5199
  1756. REM
  1757. REM 062083 - (RCB) CHANGED "Micro Systems" TO "DIMIS Microsystems"
  1758. REM
  1759. REM 052283 - BTC ADDED DIMIS MICROSYSTEMS HEADING
  1760. REM
  1761. REM 051683 - (RCB) DUPED MEMMORY CALCULATION ROUTINE TO AREA ABOVE
  1762. REM 69 FOR CALCULATION ON REENTRY
  1763. REM
  1764. REM 042583 - (RCB) MOVED MEMMORY SIZING STUFF DOWN TO 69
  1765. REM
  1766. REM 041383 - (RCB) ADDED 5000.2 AND LINE ABOVE 50 ABOVE IF LEN(CLIENT$) = 0
  1767. RE- (RCB) ADDED READ RECORD 6 OF CPACTRL.FIL AND CALCULATE ARRAY
  1768. REM SIZE ONLY IF WHAT WAS READ IS 0 ELSE USE WHAT WAS READ -
  1769. REM ALSO 5002 WAS ADDED TO FORCED UPDATING OF OLD CONTROL FILES
  1770. REM
  1771. REM 031683 - (RCB) ADDED HOLE(3) AND HOLE(4) FOR ARRAY SIZE AND INCLUDES FOR
  1772. REM STARFISH INTERFACE
  1773. REM
  1774. REM *** 11/12/82 DTK - ADD IN DEMO VERSION CHECK
  1775. REM ***
  1776. REM *** 11/12/82 DTK - PATCHED TO CHECK CLIENT ID VALID BEFORE LEAVING
  1777. REM ***
  1778. REM *** 10/18/82 DTK - FIX ERROR SS WITH A BAD CLIENT IDN DUPE.KEY$ = "^"
  1779. REM TURN OFF AUTO RETURN AND LINE-FEED - PAGE 25 CBASIC MANUAL
  1780. CONSOLE
  1781. IF LEFT$(CLIENT$,1) = "*" THEN \
  1782. COM.MAND$ = MID$(CLIENT$,2,1) : \
  1783. CLIENT$ = ""
  1784. IF LEN(CLIENT$)<> 0 THEN 69
  1785. REM FOR CB80 DIM FIL$(15),PGM$(15),HOLE(15)
  1786. FIRST.TIME = TRUE
  1787. HOLE(1) = 0
  1788. IF LEN(COM.MAND$)<>0 THEN \
  1789. FIL$(1) = LEFT$(COM.MAND$,1) \
  1790. ELSE FIL$(1) = "A"
  1791. 50 IF END #1 THEN 5000
  1792. OPEN FIL$(1)+":CPACTRL.FIL" RECL 80 AS 1 : CPA.FIL = 1
  1793. READ #1,1;XY%,CLR$,CLR.DLY%,CURSDI,\
  1794. TIPS.TO.SDI,\
  1795. ST.UNEMP.CONT.FLG,\
  1796. FORMAT.1,\
  1797. FORMAT.2,\
  1798. TIP.CONT.SHEET,\
  1799. RESERVED,\
  1800. SERIAL.NUMBER
  1801. RETURN
  1802. 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋.SDI,\
  1803. TIPS.TO.SDI,\
  1804. ST.UNEMP.CONT.FLG,\
  1805. FORMAT.1,\
  1806. FORMAT.2,\
  1807. TIP.CONT.SHEET,\
  1808. RESERVED,\
  1809. SERIAL.NUMBER
  1810. RETURN
  1811. 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋M TO INTERFACE WITH SETUP FOR FIRST TIME CREATE
  1812. REM OF CPA CONTROL FILE
  1813. REM
  1814. REM 041283 - (RCB) ADDED 21000 AN OFFSET LEFT VERSION OF 2100 AND
  1815. REM MADE ENTER CLIENT ID AND ENTER FUNCTION CALL IT
  1816. REM
  1817. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  1818. REM FLANKS TO NFLANKS
  1819. REM
  1820. REM 031783 - (RCB) ADDED POKE TO SET LINE LENGTH TO ZERO AND PREVENTED
  1821. REM NUMBERS GREATER THAN 10 TO BE INPUTTED FOR MENU OPTION
  1822. REM BY CHANGING FLD.LEN% FROM 2 TO 1
  1823. REM
  1824. REM 022283
  1825. REM ***
  1826. REM *** 10/12/82 DTK - ADD IN SPLIT PROGRAM DISK OPTIONS
  1827. REM **
  1828. REM *** CLIENT PROGRAMMED ACCOUNTING MAIN MENU (MMENU)
  1829. REM *** COPYRIGHT 1982 BY Dimis Micro Systems, Inc.
  1830. %INCLUDE MCOMMON.BAS
  1831. TRUE = -1 : FALSE = 0
  1832. DIM PGM.TYPE$(6)
  1833. COM.MAND$ = COMMAND$
  1834. PGM.TYPE$(1) = "Accounting"
  1835. PGM.TYPE$(2) = "Payroll"
  1836. PGM.TYPE$(3) = "Auxiliary"
  1837. PGM.TYPE$(4) = "Utilities"
  1838. PGM.TYPE$(5) = "Disk Procedures"
  1839. PGM.TYPE$(6) = "N/A"
  1840. VERSION$ = "3.8"
  1841. IF LEN(DUPE.KEY$) = 0 THE$,CUR.DLY%,X.OFF%,Y.OFF%,EOS$,EOL$,HOME$,REVLF$,DUPE.KEY$
  1842. READ #1,2;FILES$,PROG$
  1843. READ #1,3;CLIENT$
  1844. IF END #1 THEN 5002
  1845. READ #1,6;HOLE(3),HOLE(4)
  1846. CLOSE 1
  1847. FOR I%=1 TO 10
  1848. FIL$(I%) = MID$(FILES$,I%,1)
  1849. PGM$(I%) = MID$(PROG$,I%,1)
  1850. NEXT I%
  1851. REM ************************ RE-ENTRY FROM SORT DISTRIBUTION ROUTINE
  1852. IF MATCH(":",COMMAND$,2) = 0 THEN GOTO 69
  1853. FREE.MEM = MFRE
  1854. IF FREE.MEM < 0 THEN FREE.MEM = 32767 + ABS(FREE.MEM+32767)
  1855. IF NUM.BITS% = 16 THEN MEM3.PLUG = 6000 : MEM4.PLUG = 6000 \
  1856. ELSE MEM3.PLUG = 2800 : MEM4.PLUG = 3400
  1857. REM IF FREE.MEM > 32767 AND NUM.BITS% = 16 THEN MEM4.PLUG = MEM4.PLUG+11000
  1858. REM MULTI (6) DEMENSIONED ARRAYS
  1859. IF HOLE(3) < 1 THEN HOLE(3) = INT((FREE.MEM-MEM3.PLUG)/(8*6))
  1860. IF HOLE(3) > 500 OR HOLE(3) < 1 THEN HOLE(3) = 500
  1861. REM SINGLE DEMENSIONED ARRAYS
  1862. IF HOLE(4) < 1 THEN HOLE(4) = INT((FREE.MEM-MEM4.PLUG)/(8*1))
  1863. IF HOLE(4) > 3000 OR HOLE(4) < 1 THEN HOLE(4) = 3000
  1864. RE.ENTRY$ = RIGHT$(" "+COMMAND$,LEN(COMMAND$)-2)
  1865. CHAIN RE.EEM4.PLUG)/(8*1))
  1866. IF HOLE(4) > 3000 OR HOLE(4) < 1 THEN HOLE(4) = 3000
  1867. REM DEMO OR USER SERIAL NUMBER ROUTINE
  1868. GOSUB 5100
  1869. DEMO = HOLE(2)
  1870. OPEN FIL$(1)+":CPACTRL.FIL" RECL 80 AS 1 : CPA.FIL = 1
  1871. 70 GOSUB 9005 : PRINT
  1872. 75 PRINT TAB(22);" DIMIS Microsystems, Inc. "
  1873. PRINT TAB(14);" Client Programmed Accounting Ver. ";VERSION$
  1874. PRINT TAB(16);" (c) 1980 Dimis Micro Systems, Inc. "
  1875. PRINT TAB(31);" Level ";LEVEL$
  1876. REM TEMPORARY
  1877. REM PRINT "AUXILIARY ACCOUNTS LIMIT:";HOLE(4);" ACCOUNT COREION"
  1878. PRINT TAB(18);" 7. CHANGE ACTIVE CLIENT ID"
  1879. PRINT TAB(18);" 8. CLIENT MAINTENANCE"
  1880. PRINT TAB(18);" 9. END CPA PROCESSING"
  1881. IF FIRST.TIME THEN GOTO 100
  1882. PRINT TAB(13);" Current Active Client ID = ";
  1883. IF MATCH("@",CLIENT$,1) = 0 THEN PRINT CLIENT$ ELSE \
  1884. PRINT LEFT$(CLIENT$,MATCH("@",CLIENT$,1)-1)
  1885. 100 IF NOT FIRST.TIME AND X <> 7 THEN GOTO 110
  1886. MSSG$ =" ENTER CLIENT ID or PRESS RETURN FOR NEW CLIENT>"
  1887. GOSUB 21000 : FLD.LEN% = 5 : GOSUB 9998
  1888. IF UCASE$(REPLY$) =URN to Continue " : \
  1889. GOSUB 2000 : GOSUB 2100 : FLD.LEN% = 1 : GOSUB 9998 : \
  1890. GOTO 110
  1891. IF X=1 THEN P$="AMENU"
  1892. IF X=2 THEN P$="PMENU"
  1893. IF X=3 THEN P$="MENU"
  1894. IF X=4 THEN P$="UMENU"
  1895. IF X=5 THEN P$="DOP"
  1896. IF X=6 THEN P$="SETUP" : X = 1 : HOLE(1) = 255
  1897. IF X=7 THEN GOSUB 9009 : GOTO 100
  1898. IF X=8 THEN P$="NCLIENT" : X = 1
  1899. IF X=9 THEN 517
  1900. IF X<>INT(X) THEN 230
  1901. IF X<1 THEN 230
  1902. IF X<=9 THEN 710
  1903. 230 ERR$ = "INVALID INPUT - TRY AGAIN! " : GOSUB 2000
  1904. FOR I=1 TO 250 : NEXT I
  1905. GOTO 70 orrect Program Disk in drive " + PGM$(X)
  1906. MSSG$ = "Place the " + PGM.TYPE$(X) + " Program disk into drive " + PGM$(X) + " and Press RETURN "
  1907. GOSUB 2000 : GOSUB 2100 : FLD.LEN% = 1 : GOSUB 9998
  1908. GOTO 715
  1909. 5000 REM **************** CTRL.FIL NOT ON SPECIFIED DRIVE
  1910. FOR I% = 1 TO 24 : PRINT : NEXT I%
  1911. PRINT CHR$(7)+"CPACTRL.FIL NOT ON DRIVE ";FIL$(1)
  1912. PRINT "Enter Correct Drive (No colon) or RETURN to Create CPACTRL.FIL >";
  1913. FLD.LEN% = 1 : GOSUB 9998
  1914. IF LEN(REPLY$) = 0 THEN 5000.2
  1915. FIL$(1)=UNTRY$
  1916. 69 FREE.MEM = MFRE
  1917. IF FREE.MEM < 0 THEN FREE.MEM = 32767 + ABS(FREE.MEM+32767)
  1918. IF NUM.BITS% = 16 THEN MEM3.PLUG = 6000 : MEM4.PLUG = 6000 \
  1919. ELSE MEM3.PLUG = 2800 : MEM4.PLUG = 3400
  1920. REM IF FREE.MEM > 32767 AND NUM.BITS% = 16 THEN MEM4.PLUG = MEM4.PLUG+11000
  1921. REM MULTI (6) DEMENSIONED ARRAYS
  1922. IF HOLE(3) < 1 THEN HOLE(3) = INT((FREE.MEM-MEM3.PLUG)/(8*6))
  1923. IF HOLE(3) > 500 OR HOLE(3) < 1 THEN HOLE(3) = 500
  1924. REM SINGLE DEMENSIONED ARRAYS
  1925. IF HOLE(4) < 1 THEN HOLE(4) = INT((FREE.MEM-M LIMIT:";HOLE(3)
  1926. IF HOLE(2) = TRUE THEN \
  1927. PRINT TAB(18);" * * Demo System - Not for Sale * * " \
  1928. ELSE \
  1929. PRINT
  1930. PRINT TAB(26);" CPA SYSTEM MENU" : PRINT
  1931. PRINT TAB(13);" WHICH FUNCTION WOULD YOU LIKE TO PERFORM? "
  1932. PRINT TAB(18);" 1. ACCOUNTING OPERATIONS"
  1933. PRINT TAB(18);" 2. POST PAYROLL PROCESSING"
  1934. PRINT TAB(18);" 3. AUXILIARY STATEMENTS "
  1935. PRINT TAB(18);" 4. ACCOUNTING UTILITIES"
  1936. PRINT TAB(18);" 5. DISK OPERATING PROCEDURES"
  1937. PRINT TAB(18);" 6. CHANGE SYSTEM CONFIGURAT "QUIT" THEN GOTO 517
  1938. IF LEN(REPLY$) = 0 THEN CLIENT$ = "" : CHAIN PGM$(1)+":NCLIENT"
  1939. CLIENT$ = UCASE$(LEFT$(REPLY$+"@@@@@",5))
  1940. PRINT #CPA.FIL,3;CLIENT$
  1941. GOTO 5010
  1942. 110 GOSUB 9009 : FIRST.TIME = FALSE
  1943. MSSG$ =" ENTER THE NUMBER OF THE FUNCTION TO PERFORM >" :\
  1944. GOSUB 21000 : FLD.LEN% = -1 : GOSUB 9998
  1945. IF LEN(REPLY$)=0 THEN 110
  1946. X=VAL(LEFT$(REPLY$,1))
  1947. IF MATCH(STR$(X),MENU.OPT$,1) = 0 THEN \
  1948. ERR$ = PGM.TYPE$(X) + " Not Included in Level " + LEVEL$ : \
  1949. MSSG$ = "Press RET
  1950. 517 GOSUB 9005 : PRINT : PRINT : PRINT : PRINT :\
  1951. PRINT : PRINT TAB(25);"CPA SYSTEM SHUTDOWN" : PRINT
  1952. PRINT TAB(20);"BEFORE YOU TURN THE SYSTEM OFF"
  1953. PRINT TAB(15);"PLEASE REMOVE ALL DISKETTES FROM DRIVES!"
  1954. 521 CLOSE 1
  1955. REM ***** NORMAL EXIT TO CP/M
  1956. STOP
  1957. 710 IF SIZE(FIL$(2)+":"+CLIENT$+"CLN.FIL") = 0 THEN GOTO 5011
  1958. CLOSE 1
  1959. 715 INITIALIZE
  1960. IF NUM.BITS%=8 THEN EXT$ = ".OVL" ELSE EXT$ = ".OVR"
  1961. IF SIZE(PGM$(X)+":"+P$+EXT$) <> 0 THEN CHAIN PGM$(X)+":"+P$
  1962. ERR$ = "IncCASE$(LEFT$(REPLY$,1))
  1963. GOTO 50
  1964. 5000.2 PRINT
  1965. PRINT
  1966. PRINT "Enter Drive to Create New CPA Control file on (RETURN for A):";
  1967. FLD.LEN% = 1 : GOSUB 9998
  1968. IF LEN(REPLY$) = 0 THEN REPLY$ = "A"
  1969. DRIVE.CTRL$ = UCASE$(LEFT$(REPLY$,1))
  1970. IF DRIVE.CTRL$ < "A" OR DRIVE.CTRL$ > "P" THEN \
  1971. PRINT "Invalid Drive Assignment - Must be A - P" : \
  1972. PRINT : \
  1973. PRINT "Press RETURN to Continue"; : \
  1974. FLD.LEN% = 1 : GOSUB 9998 : \
  1975. GOTO 5000.2
  1976. CLIENT$ = "*" + DRIVE.CTRL$
  1977. CHAIN "SETUP"
  1978. 5002 REM **************** CTRL.FIL NOT COMPLETE - RECORD 6
  1979. FOR I% = 1 TO 24 : PRINT : NEXT I%
  1980. PRINT CHR$(7)+"CPACTRL.FIL MUST BE UPDATED FOR CURRENT SOFTWARE VERSION"
  1981. PRINT " Press RETURN to Update CPACTRL.FIL >";
  1982. FLD.LEN% = 2 : GOSUB 9998
  1983. REM TELL SETUP TO CHAIN MMENU INSTEAD OF DOP WHEN FINISHED
  1984. HOLE(1) = 255
  1985. CHAIN "SETUP"
  1986. 5010 REM **************** OPEN FILE WITH CLIENT ID
  1987. IF END #2 THEN 5011
  1988. OPEN FIL$(2)+":"+CLIENT$+"CLN.FIL" RECL 255 AS 2
  1989. CLOSE 2
  1990. FIRST.TIME = FALSE : X = 0
  1991. GOTOELSE XE.EXT$ = ".OVR"
  1992. OPEN PGM$(1)+ ":ETRIAL3"+XE.EXT$ RECL 128 AS 19 : SN.FIL = 19
  1993. READ #SN.FIL,1;SN$
  1994. READ #SN.FIL,2;MENU.OPT$
  1995. READ #SN.FIL,3;BIG.NAME$,LEVEL$
  1996. CLOSE 19
  1997. REM MENU.PLAY = VAL(MENU.OPT$)
  1998. REM MENU.OPT$ = STR$(MENU.PLAY/2)
  1999. FOR I% = 1 TO LEN(SN$) STEP 2
  2000. S$ = S$ + MID$(SN$,I%,1)
  2001. NEXT I%
  2002. A = VAL(MID$(S$,1,1))
  2003. B = VAL(MID$(S$,2,1))
  2004. C = VAL(MID$(S$,3,1))
  2005. D = VAL(MID$(S$,4,1))
  2006. SN= VAL(MID$(S$,5,4))
  2007. A = (9-A) * 1000
  2008. B = (9-B) * 100
  2009. REM **********************************************************************
  2010. %INCLUDE COMMON.BAS
  2011. 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋REM **********************************************************************
  2012. REM ****** 8 BIT Z80 - 8080 VERSION
  2013. 9999 ADDR% = SADD(A$)
  2014. VAR.ADDR%=VARPTR(A$)
  2015. POKE LOC+6,PEEK(VAR.ADDR%)
  2016. REM ADDR% AND 0FFH
  2017. POKE LOC+7,PEEK(VAR.ADDR%+1)
  2018. REM INT(ADDR%/256)
  2019. CALL LOC+3
  2020. RETURN
  2021. 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋%INCLUDE COMMON
  2022. PRINT : PRINT "SORTING . . ."
  2023. REM A.SIZE = 500
  2024. REM FIL$ = LEFT$(COMMAND$,1)
  2025. REM CLIENT$ = "FAR"
  2026. FREE.MEM = FRE
  2027. IF FREE.MEM < 0 THEN FREE.MEM = 32767 + ABS(FREE.MEM+32767)
  2028. A.SIZE = INT(FREE.MEM/75)
  2029. PRINT "Buffer Size = ";A.SIZE
  2030. DIM ACC.NO(A.SIZE),AMOUNT(A.SIZE),DESC$(A.SIZE)
  2031. DIM S9%(INT(LOG(A.SIZE)/LOG(2)+1),2)
  2032. OPEN FIL$(3) + ":" + CLIENT$ + "TRI.FIL" RECL 68 AS 1 : TRI.FIL = 1
  2033. 800 PRINT : PRINT "-";
  2034. SWITCH.FLG = 0
  2035. FIRST.REC% = 1
  2036. 900 PRINT : PRINT ">";
  2037. IF 70
  2038. 5011 IF MATCH("@",CLIENT$,1) <> 0 THEN \
  2039. CLIENT$ = LEFT$(CLIENT$,MATCH("@",CLIENT$,1)-1)
  2040. ERR$="CLIENT ID "+CLIENT$+" NOT IN DIRECTORY - TRY AGAIN "
  2041. GOSUB 2000 : CLIENT$ = ""
  2042. GOTO 100
  2043. 5100 REM ******************************** SERIAL NUMBER ROUTINE
  2044. REM HOLE(2) = -1 FOR DEMO
  2045. REM 0 FOR VALID USER
  2046. REM
  2047. REM SERIAL NUMBER STORED IN ETRIAL3.INT
  2048. HOLE(2) = -1
  2049. IF END # 19 THEN 5199
  2050. IF NUM.BITS% = 8 THEN XE.EXT$ = ".OVL" C = (9-C) * 10
  2051. D = (9-D)
  2052. IF SN = A + B + C + D THEN HOLE(2)=0
  2053. RETURN
  2054. 5199 PRINT "ERROR - SERIAL NUMBER NOT CURRENT - LEVEL I DEMO ASSUMED"
  2055. LEVEL$ = "I" : MENU.OPT$ = "16789"
  2056. RETURN
  2057. %INCLUDE NFLANKS.BAS
  2058. 21000 X%=0 : Y% = 21 : GOSUB 9006 : GOSUB 9009.1
  2059. REM X%=INT(36-(LEN(MSSG$)/2))
  2060. X% = 12 : GOSUB 9006
  2061. PRINT MSSG$;
  2062. RETURN
  2063. 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋END #TRI.FIL THEN 1900
  2064. PLAY.REC% = FIRST.REC%
  2065. FEEL.ACC = 0
  2066. ARRAY% = 1
  2067. 1000 READ #TRI.FIL,PLAY.REC%; ACC.NO(ARRAY%),AMOUNT(ARRAY%),DESC$(ARRAY%)
  2068. IF ACC.NO(ARRAY%) = 9999999.99 THEN 2001
  2069. IF FEEL.ACC > ACC.NO(ARRAY%) THEN LITTLE.SWITCH = 1
  2070. FEEL.ACC = ACC.NO(ARRAY%)
  2071. PLAY.REC% = PLAY.REC% + 1
  2072. ARRAY% = ARRAY% + 1
  2073. IF ARRAY% <= A.SIZE THEN 1000
  2074. MORE = 1 : MULTI = 1
  2075. GOTO 2001
  2076. 1900 PRINT #TRI.FIL,PLAY.REC%;9999999.99,0,"EOF SORT SYA"
  2077. PLAY.REC% = PLAY.REC% - 1
  2078. GOTO 2101
  2079. 2001 ARRAY% = ARRAY% - 1
  2080. 2101 ARRAY.PLAY% = ARRAY%
  2081. REM ARRAY.OAF = ARRAY%-1
  2082. 2200 IF LITTLE.SWITCH = 0 THEN 2300
  2083. GOSUB 1010
  2084. IF LITTLE.SWITCH = 1 THEN \
  2085. SWITCH.FLG = 1 : LITTLE.SWITCH = 0
  2086. LITTLE.SWITCH = 0
  2087. ARRAY.PLAY% = 1
  2088. FOR PLAY.REC% = FIRST.REC% TO FIRST.REC% + ARRAY% - 1
  2089. PRINT #TRI.FIL,PLAY.REC%;ACC.NO(ARRAY.PLAY%), \
  2090. AMOUNT(ARRAY.PLAY%), \
  2091. DESC$(ARRAY.PLAY%)
  2092. ARRAY.PLAY% = ARRAY.PLAY% + 1
  2093. NEXT PLAY.REC%
  2094. 2300 IF MORE = 1 THEN \
  2095. FIRST.REC% = FIRST.REC% + INT(2*(A.S1060 IF I% > J% THEN 1080
  2096. TEMP.ACC = ACC.NO(I%)
  2097. TEMP.AMT = AMOUNT(I%)
  2098. TEMP.DESC$ = DESC$(I%)
  2099. ACC.NO(I%) = ACC.NO(J%)
  2100. AMOUNT(I%) = AMOUNT(J%)
  2101. DESC$(I%) = DESC$(J%)
  2102. ACC.NO(J%) = TEMP.ACC
  2103. AMOUNT(J%) = TEMP.AMT
  2104. DESC$(J%) = TEMP.DESC$
  2105. REM W = ACC.NO(I%) : ACC.NO(I%) = ACC.NO(J%) : ACC.NO(J%) = W
  2106. REM W% = LOC.PNT%(I%) : LOC.PNT%(I%) = LOC.PNT%(J%) : LOC.PNT%(J%) = W%
  2107. I% = I% + 1 : J% = J% - 1
  2108. 1080 IF I% <= J% THEN 1040
  2109. IF J%-L% >= R%-I% THEN 1140
  2110. IF I% >= R% THEN 1130
  2111. S% REM 102883 - (RCB) MODIFIED FOR CB80 AND EVERYBODY GETS DOP
  2112. REM
  2113. REM 061783 - (RCB) ADDED LEVEL 3.5 (IV C) FOR CANADA (MONROE) VERSION
  2114. REM
  2115. REM ******************************************************************
  2116. REM *** ***
  2117. REM *** SERIALIZATION PROGRAM ***
  2118. REM *** ***
  2119. REM *** ***
  2120. REM ***** LEVEL$ = "I" : GOTO 145
  2121. IF LEV.NO = 2 THEN MENU.OPT$ = "1267895" : LEVEL$ = "II": GOTO 145
  2122. IF LEV.NO = 3 THEN MENU.OPT$ = "12467895" : LEVEL$ ="III":GOTO 145
  2123. IF LEV.NO = 4 THEN MENU.OPT$ = "123456789" : LEVEL$ ="IV":GOTO 145
  2124. IF LEV.NO=3.5 THEN MENU.OPT$ = "13456789" : LEVEL$ ="IV C":GOTO 145
  2125. GOTO 120
  2126. 145 PRINT "READY TO SERIALIZE #";S$
  2127. INPUT "INSERT DISK AND PRESS RETURN ";LINE REQ$
  2128. IF NUM.BITS% = 16 THEN EXT$ = "OVR" ELSE EXT$ = "OVL"
  2129. CREATE XE.PGM$+":ETRIAL3."+EXT$ RECL 128 AS 1
  2130. LIZE : S$=STR$(VAL(S$)+1) : GOTO 145
  2131. STOP
  2132. REM ************* TEST CODE
  2133. GOSUB 5100
  2134. GOTO 100
  2135. 5100 REM ******************************** SERIAL NUMBER ROUTINE
  2136. REM HOLE(2) = -1 FOR DEMO
  2137. REM 0 FOR VALID USER
  2138. REM
  2139. REM SERIAL NUMBER STORED IN ETRIAL3.OVL
  2140. FOR I% = 1 TO LEN(SN$) STEP 2
  2141. S$ = S$ + MID$(SN$,I%,1)
  2142. NEXT I%
  2143. PRINT "THE ENCODED KEY = ";S$
  2144. A = VAL(MID$(S$,1,1))
  2145. B = VAL(MID$(S$,2,1))
  2146. C = VAL(MID$(S$IZE/3)) : \
  2147. MORE = 0 : \
  2148. GOTO 900
  2149. IF SWITCH.FLG = 1 AND MULTI THEN 800
  2150. CLOSE TRI.FIL
  2151. IF HOLE(1) = 4 THEN \
  2152. CHAIN PGM$(1) + ":" + "GENLED2" \
  2153. ELSE CHAIN PGM$(1) + ":" + "ETRIAL2"
  2154. 1010 RANDOMIZE
  2155. S% = 1
  2156. S9%(1,1) = 1 : S9%(1,2) = ARRAY%
  2157. 1020 L% = S9%(S%,1) : R% = S9%(S%,2) : S% = S% - 1
  2158. 1030 I% = L% : J% = R% : X = ACC.NO(INT(RND*(R%-L%)+.5)+L%) : PRINT ".";
  2159. 1040 IF ACC.NO(I%) >= X THEN 1050
  2160. I% = I% + 1 : GOTO 1040
  2161. 1050 IF X >= ACC.NO(J%) THEN 1060
  2162. J% = J% - 1 : GOTO 1050
  2163. = S% + 1 : S9%(S%,1) = I% : S9%(S%,2) = R%
  2164. 1130 R% = J% : GOTO 1170
  2165. 1140 IF L% >=J% THEN 1160
  2166. S% = S% + 1 : S9%(S%,1) = L% : S9%(S%,2) = J%
  2167. 1160 L% = I%
  2168. 1170 IF L% < R% THEN PRINT CHR$(8);"o";CHR$(8); : GOTO 1030
  2169. IF S% > 0 THEN PRINT CHR$(8);"O";CHR$(8); : GOTO 1020
  2170. RETURN
  2171. 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋*************************************************************
  2172. %INCLUDE COMMON.BAS
  2173. CLR$ = CHR$(27) + "*":
  2174. PASS.WORD$ = COMMAND$
  2175. IF UCASE$(PASS.WORD$) = "SEQ" THEN SEQ = -1 : GOTO 55
  2176. 50 IF UCASE$(PASS.WORD$) <> "PSNV" THEN GOTO 50
  2177. 55 PRINT CLR$
  2178. INPUT "ENTER DRIVE ACCOUNTING PROGRAM DISK IS LOCATED ON *>";XE.PGM$
  2179. 100 PRINT
  2180. INPUT "ENTER 4 DIGIT SERIAL NUMBER *>";S$
  2181. 120 INPUT "ENTER LEVEL NUMBER (1-4, 3.5 for Canada no Payroll Version):";LEV.NO
  2182. IF LEV.NO = 1 THEN MENU.OPT$ = "167895" :A = VAL(MID$(S$,1,1)) : A1 = A
  2183. B = VAL(MID$(S$,2,1)) : B1 = B
  2184. C = VAL(MID$(S$,3,1)) : C1 = C
  2185. D = VAL(MID$(S$,4,1)) : D1 = D
  2186. A = 9 - A
  2187. B = 9 - B
  2188. C = 9 - C
  2189. D = 9 - D
  2190. IF UCASE$(S$) = "DEMO" THEN A = A-1
  2191. SN$ = STR$(A) + CHR$(8) + STR$(B) + CHR$(12) + STR$(C) + CHR$(8) +\
  2192. STR$(D) + CHR$(8) + STR$(A1)+ CHR$(12) + STR$(B1)+ CHR$(8) +\
  2193. STR$(C1)+ CHR$(8) + STR$(D1)+ CHR$(12)
  2194. PRINT #1,1;SN$
  2195. PRINT #1,2;MENU.OPT$
  2196. PRINT #1,3;"HI",LEVEL$
  2197. 200 CLOSE 1
  2198. IF SEQ = -1 THEN INITIA,3,1))
  2199. D = VAL(MID$(S$,4,1))
  2200. SN= VAL(MID$(S$,5,4))
  2201. A = (9-A) * 1000
  2202. B = (9-B) * 100
  2203. C = (9-C) * 10
  2204. D = (9-D)
  2205. IF SN = A + B + C + D THEN PRINT SN;" IT WORKS "
  2206. 5199 RETURN
  2207. 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋REM 071183 - DCF CHANGED ALL A'S TO A1.XE FOR CB80 COMPILE
  2208. REM CHANGED ALL P'S TO PG.LEN FOR CB80 COMPILE
  2209. REM
  2210. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micr Systems"
  2211. REM
  2212. REM 062083 - (RCB) CHANGED "R & B" TO "D M S"
  2213. REM
  2214. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  2215. REM
  2216. REM 042183 - DCF CHANGED FLD.LEN%=1 FOR M TO RETURN TO MENU AND CHANGED
  2217. REM CLIENT.NO FLD.LEN% = -6
  2218. REM
  2219. REM 042083 - DCF FIXED BUG #31-041983-IMP BY ADDING A CHECK FOR A CARRIES AFTER
  2220. REM ERROR MESSAGE SO IT PRINTS OVER THE WHOLE LINE
  2221. REM
  2222. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  2223. REM FLANKS TO NFLANKS
  2224. REM
  2225. REM 023683 - (RCB) ADDED M=HOLE(4) AND PRINTING OUT MAXIMUM EMPLOYEES
  2226. REM
  2227. REM 021683 - (RCB) ADDED HOLE(4) TO DEMENSIONING
  2228. REM
  2229. REM *** 11/11/82 DTK - FIX ASK FOR DISK BEFORE CHECKING
  2230. REM ***
  2231. REM *** 09/23/82 DTK - NEW FILE SIZE 525 & CHECKED CHAINS
  2232. REM ***
  2233. REM *** 09/17/82 DTK FIXED BUGS FROM SHEET 917
  2234. REM *** LIENT$+"CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL = 1
  2235. OPEN FIL$(3)+":"+CLIENT$+"EAR.FIL" RECL 525 AS 2 : EARNREC.FIL = 2
  2236. GOTO 1080
  2237. 10 READ #EARNREC.FIL,X+1; \
  2238. EMP.NO,\
  2239. EMP.NAME$,\
  2240. STR.ADDR$,\
  2241. CITY.ST.ZIP$,\
  2242. SSN$,\
  2243. REG.WAGES ,\
  2244. OVERTIME.WAGES ,\
  2245. MEALS.AND.LODGING ,\
  2246. TIPS ,\
  2247. FICA ,\
  2248. FED.INC.TAX ,\
  2249. STATE.INC.TAX ,\
  2250. ST.DIS.INS ,\
  2251. LOCAL.DED.1,\
  2252. LOCAL.DED.2, \
  2253. LOCAL.WITH.1,\
  2254. LOCAL.WITH.2,\
  2255. OTHER.DED,\
  2256. NET.WAGES,\
  2257. REG.WAGES.QTR,\
  2258. OVERL.EARN.YR = REG.WAGES.YR+OVERTIME.YR+MEALS.LDG.YR+TIPS.YR
  2259. RETURN
  2260. 60 PRINT #EARNREC.FIL,X+1;\
  2261. EMP.NO,\
  2262. EMP.NAME$,\
  2263. STR.ADDR$,\
  2264. CITY.ST.ZIP$,\
  2265. SSN$,\
  2266. REG.WAGES ,\
  2267. OVERTIME.WAGES ,\
  2268. MEALS.AND.LODGING ,\
  2269. TIPS ,\
  2270. FICA ,\
  2271. FED.INC.TAX ,\
  2272. STATE.INC.TAX ,\
  2273. ST.DIS.INS ,\
  2274. LOCAL.DED.1,\
  2275. LOCAL.DED.2, \
  2276. LOCAL.WITH.1,\
  2277. LOCAL.WITH.2,\
  2278. OTHER.DED,\
  2279. NET.WAGES,\
  2280. REG.WAGES.QTR,\
  2281. OVERTIME.QTR,\
  2282. MEALS.LDG.QTR,\
  2283. TIPS.QTR,\
  2284. FICA.QTR,\
  2285. ,I3,I4,I5,I6,I7,I8,I9,\
  2286. J0,J1,J2,J3,J4,J5,J6,J7,J8,J9,L0,L1,L2,L3,L4,L5,L6,L7,L8,L9, \
  2287. M0,M1,M2,M3,M4,M5,M6,M7,M8,M9,O0,O1,L
  2288. RETURN
  2289. 150 P(1,1)=REG.WAGES
  2290. P(1,2)=OVERTIME.WAGES
  2291. P(1,3)=MEALS.AND.LODGING
  2292. P(1,4)=TIPS
  2293. P(1,5)=FICA
  2294. P(1,6)=FED.INC.TAX
  2295. P(1,7)=STATE.INC.TAX
  2296. P(1,8)=ST.DIS.INS
  2297. P(1,9)=LOCAL.DED.1
  2298. P(1,10)=LOCAL.DED.2
  2299. P(1,11)=LOCAL.WITH.1
  2300. P(1,12)=LOCAL.WITH.2
  2301. P(1,13)=OTHER.DED
  2302. P(1,14)=NET.WAGES
  2303. P(2,1)=REG.WAGES.QTR
  2304. P(2,2)=OVERAGE
  2305. REM RETURN
  2306. REM 042083 - DCF FIXED BUG #32-041983-IMP
  2307. REM
  2308. REM 042083 - DCF FIXED BUG #33-041983-3-IMP
  2309. REM
  2310. REM 041983 - DCF FIXED BUG CODE #35-0419-83-1-IMP BY ADDING A CHECK IF THERE
  2311. REM IS ANY EMPLOYEES BEFORE YOU PRINT A EMPLOYEE LIST
  2312. REM
  2313. REM 040883 - DCF FIXED BUG CODE #040883-2-IMP CHANGED THE CKECK FOR VALID
  2314. REM INPUT WHEN MAKING CHANGES TO AN EMPLOYEE FROM <0 TO <1.
  2315. REM
  2316. REM 040883 - DCF FIXED BUG CODE #040883-3-IMP ADDED EXTRA SPAC
  2317. REM *** 09/13/82 DTK - FIXED MINOR PRINTING FORMAT IN PRINTER HDG , TO ;
  2318. REM ***
  2319. REM *** 09/10/82 DTK - FIXESPRINT FORMAT PROBLEMS
  2320. REM ***
  2321. REM ***EMPLOYEE EARNINGS RECORD CHANGES *** (EERCHGS)(10D)(VERSION 4.0)
  2322. REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC.
  2323. REM *** 648 SOUTH RIVER DR. 602-968-7101
  2324. REM *** TEMPE, AZ. 85281
  2325. %INCLUDE COMMON.BAS
  2326. Q = 0 : TRUE = -1 : FALSE = NOT TRUE
  2327. DIM P(3,14),E(HOLE(4)),A(93)
  2328. OPEN FIL$(2)+":"+CTIME.QTR,\
  2329. MEALS.LDG.QTR,\
  2330. TIPS.QTR,\
  2331. FICA.QTR,\
  2332. FED.INC.TAX.QTR,\
  2333. ST.INC.TAX.QTR,\
  2334. ST.DIS.INS.QTR,\
  2335. LOCAL.DED.1.QTR,\
  2336. LOCAL.DED.2.QTR,\
  2337. LOCAL.WITH.1.QTR,\
  2338. LOCAL.WITH.2.QTR,\
  2339. OTHER.DED.QTR,\
  2340. NET.WAGES.QTR,\
  2341. REG.WAGES.YR,\
  2342. OVERTIME.YR,\
  2343. MEALS.LDG.YR,\
  2344. TIPS.YR,\
  2345. FICA.YR,\
  2346. FED.INC.TAX.YR,\
  2347. ST.INC.TAX.YR,\
  2348. ST.DIS.INS.YR,\
  2349. LOCAL.DED.1.YR,\
  2350. LOCAL.DED.2.YR,\
  2351. LOCAL.WITH.1.YR,\
  2352. LOCAL.WITH.2.YR,\
  2353. OTHER.DED.YR,\
  2354. NET.WAGES.YR,\
  2355. L
  2356. TOTA FED.INC.TAX.QTR,\
  2357. ST.INC.TAX.QTR,\
  2358. ST.DIS.INS.QTR,\
  2359. LOCAL.DED.1.QTR,\
  2360. LOCAL.DED.2.QTR,\
  2361. LOCAL.WITH.1.QTR,\
  2362. LOCAL.WITH.2.QTR,\
  2363. OTHER.DED.QTR,\
  2364. NET.WAGES.QTR,\
  2365. REG.WAGES.YR,\
  2366. OVERTIME.YR, \
  2367. MEALS.LDG.YR,\
  2368. TIPS.YR,\
  2369. FICA.YR,\
  2370. FED.INC.TAX.YR,\
  2371. ST.INC.TAX.YR,\
  2372. ST.DIS.INS.YR,\
  2373. LOCAL.DED.1.YR,\
  2374. LOCAL.DED.2.YR,\
  2375. LOCAL.WITH.1.YR,\
  2376. LOCAL.WITH.2.YR,\
  2377. OTHER.DED.YR,\
  2378. NET.WAGES.YR,\
  2379. 0
  2380. RETURN
  2381. 100 READ #EARNREC.FIL,X+1;N9,N9$,S9$,C9$,Z9$,I0,I1,I2TIME.QTR
  2382. P(2,3)=MEALS.LDG.QTR
  2383. P(2,4)=TIPS.QTR
  2384. P(2,5)=FICA.QTR
  2385. P(2,6)=FED.INC.TAX.QTR
  2386. P(2,7)=ST.INC.TAX.QTR
  2387. P(2,8)=ST.DIS.INS.QTR
  2388. P(2,9)=LOCAL.DED.1.QTR
  2389. P(2,10)=LOCAL.DED.2.QTR
  2390. P(2,11)=LOCAL.WITH.1.QTR
  2391. P(2,12)=LOCAL.WITH.2.QTR
  2392. P(2,13)=OTHER.DED.QTR
  2393. P(2,14)=NET.WAGES.QTR
  2394. P(3,1)=REG.WAGES.YR
  2395. P(3,2)=OVERTIME.YR
  2396. P(3,3)=MEALS.LDG.YR
  2397. P(3,4)=TIPS.YR
  2398. P(3,5)=FICA.YR
  2399. P(3,6)=FED.INC.TAX.YR
  2400. P(3,7)=ST.INC.TAX.YR
  2401. P(3,8)=ST.DIS.INS.YR
  2402. P(3,9)=LOCAL.DED.1.YR
  2403. P(3,10)=LOCAL.DED.2.YR
  2404. P(3,11)=LOCAL.WITH.1.YR
  2405. P(3,12)=LOCAL.WITH.2.YR
  2406. P(3,13)=OTHER.DED.YR
  2407. P(3,14)=NET.WAGES.YR
  2408. RETURN
  2409. 300 N9=EMP.NO : N9$=EMP.NAME$ : S9$=STR.ADDR$ : C9$=CITY.ST.ZIP$ : Z9$=SSN$
  2410. GOSUB 900
  2411. X1 = ASC(N9$)-32
  2412. IF A(X1) = -1 THEN A(X1) = X
  2413. FOR X2 = X1 + 1 TO 93
  2414. A(X2) = A(X2) + 1
  2415. NEXT X2
  2416. X3 = X
  2417. IF X = EER.CNT THEN 380
  2418. A1.XE = EER.CNT - X - 1 : GOSUB 950
  2419. 380 EMP.NAME$ = N9$ : STR.ADDR$ = S9$ : CITY.ST.ZIP$ = C9$
  2420. SSN$ = Z9.WITH.1.QTR=0
  2421. LOCAL.WITH.2.QTR=0: OTHER.DED.QTR=0 : NET.WAGES.QTR=0
  2422. REG.WAGES.YR=0 : OVERTIME.YR=0 : MEALS.LDG.YR=0
  2423. TIPS.YR=0 : FICA.YR=0 : FED.INC.TAX.YR=0
  2424. ST.INC.TAX.YR=0 : ST.DIS.INS.YR=0 : LOCAL.DED.1.YR=0
  2425. LOCAL.DED.2.YR=0 : LOCAL.WITH.1.YR=0 : LOCAL.WITH.2.YR=0
  2426. OTHER.DED.YR=0 : NET.WAGES.YR=0
  2427. X = X3 : GOSUB 60 : EER.CNT = EER.CNT + 1 : E(X) = EMP.NO
  2428. REM WRITE #0%356*EER.CNT,&1,NOENDMARK
  2429. TEMP = EMP.NO : TEMP.X = X
  2430. EMP.NO = -1 537
  2431. IF A(93) = EER.CNT - 1 THEN A(93) = -1
  2432. GOTO 537
  2433. 533 IF (A(X4) = X3 AND (A(X4+1)-A(X4)=1 OR A(X4)=EER.CNT-1)) THEN A(X4) = -1
  2434. FOR X = X4+1 TO 93
  2435. IF A(X) <> -1 THEN A(X) = A(X) - 1
  2436. NEXT X
  2437. 537 REM LINE HOLDER
  2438. EER.CNT = EER.CNT - 1
  2439. RETURN
  2440. 630 PRINT
  2441. PRINT USING "THAT EER HAS TOTAL EARNINGS OF #,###,###,###.##"; \
  2442. TOTAL.EARN.YR/100;
  2443. PRINT " - CANNOT DELETE IT !"
  2444. F = 0
  2445. RETURN
  2446. 700 X8 = X1 : GOSUB 900 : X6 = ASC(N9$)-32 : X1 = X8
  2447. IF X-X1 > -1 AND X-XXT X
  2448. X = 0
  2449. 748 IF END #2 THEN 756
  2450. GOSUB 10
  2451. IF EMP.NO = -1 THEN 756
  2452. X1 = ASC(EMP.NAME$)-32
  2453. E(X) = EMP.NO
  2454. IF A(X1) = -1 THEN A(X1) = X
  2455. X = X + 1 : GOTO 748
  2456. 756 RETURN
  2457. 800 IF Q1 THEN Q = 1
  2458. 805 GOSUB 10 : X = X - 1 : E(X) = EMP.NO
  2459. GOSUB 60 : X = X + 2 : A1.XE = A1.XE - 1
  2460. IF A1.XE > 0 THEN 805
  2461. Q = 0
  2462. RETURN
  2463. 900 X1 = ASC(N9$) - 32
  2464. FOR X2 = X1 TO 93
  2465. IF A(X2) <> -1 THEN 905
  2466. NEXT X2
  2467. X = EER.CNT : RETURN
  2468. 905 X = A(X2)
  2469. 907 IF END #2 THENB(18);"EDITS OR LISTS EMPLOYEE INFORMATION" : PRINT
  2470. PRINT " Press RETURN Key to Continue or 'M' to Return to Payroll Menu ";
  2471. B$=" "
  2472. FLD.LEN% = 1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$,1))
  2473. IF M$="M" THEN 3560
  2474. 1380 GOSUB 9005 : PRINT : PRINT
  2475. IF SIZE(FIL$(2)+":"+CLIENT$+"CLN.FIL") = 0 THEN \
  2476. INITIALIZE : GOSUB 6420 : GOSUB 6400 : GOTO 1380
  2477. PRINT
  2478. PRINT "ENTER THE CLIENT NUMBER FROM THE CONTROL SHEET >";
  2479. FLD.LEN% = -6 : GOSUB 9998 : R = VAL(REPLY$) : PRI$ : EMP.NO = N9 : REG.WAGES =0
  2480. OVERTIME.WAGES=0 : MEALS.AND.LODGING=0 : TIPS =0
  2481. FICA =0 : FED.INC.TAX =0 : STATE.INC.TAX =0
  2482. ST.DIS.INS =0 : LOCAL.DED.1=0 : LOCAL.DED.2=0
  2483. LOCAL.WITH.1=0 : LOCAL.WITH.2=0 : OTHER.DED=0
  2484. NET.WAGES=0 : REG.WAGES.QTR=0 : OVERTIME.QTR=0
  2485. MEALS.LDG.QTR=0 : TIPS.QTR=0 : FICA.QTR=0
  2486. FED.INC.TAX.QTR=0 : ST.INC.TAX.QTR=0 : ST.DIS.INS.QTR=0
  2487. LOCAL.DED.1.QTR=0 : LOCAL.DED.2.QTR=0 : LOCAL: X = EER.CNT
  2488. GOSUB 60 : REM WRITE OUT MEXICAN END OF FILE
  2489. EMP.NO = TEMP : X = TEMP.X
  2490. RETURN
  2491. 500 GOSUB 10
  2492. IF TOTAL.EARN.YR <> 0 THEN 630
  2493. X4 = ASC(EMP.NAME$) - 32
  2494. X3 = X
  2495. IF X = EER.CNT - 1 THEN 520
  2496. X = X + 1 : A1.XE = EER.CNT - X : GOSUB 800
  2497. 520 REM WRITE #0%356*(EER.CNT-1),&1,NOENDMARK
  2498. TEMP = EMP.NO : TEMP.X = X
  2499. EMP.NO = -1 : X = EER.CNT-1
  2500. GOSUB 60 : REM WRITE OUT MEXICAN END OF FILE
  2501. EMP.NO = TEMP : X = TEMP.X
  2502. IF X4 <> 93 THEN 533
  2503. IF A(93) <> X3 THEN 1 < 2 THEN X = X1 : GOTO 716
  2504. IF X1 < X THEN 714
  2505. X7 = X : A1.XE = X1 - X - 1 : GOSUB 950 : X = X7
  2506. GOTO 716
  2507. 714 X7 = X : X = X1 + 1 : A1.XE = X7 - X1 - 1 : GOSUB 800 : X = X7 - 1
  2508. 716 GOSUB 8760 : GOSUB 60 : E(X) = EMP.NO
  2509. IF X5 = X6 THEN 756
  2510. IF X5 < X6 THEN 740
  2511. FOR X = X6 + 1 TO X5
  2512. IF A(X) <> -1 THEN A(X) = A(X) + 1
  2513. NEXT X : GOTO 746
  2514. 740 FOR X = X5 + 1 TO X6
  2515. IF A(X) <> -1 THEN A(X) = A(X) - 1
  2516. NEXT X
  2517. 746 FOR X = 0 TO 93
  2518. A(X) = -1
  2519. NE 911
  2520. REM CHECK FOR CORRECT FILE
  2521. GOSUB 10
  2522. IF EMP.NO = -1 THEN 911
  2523. IF EMP.NAME$ > N9$ THEN 911
  2524. X = X + 1 : GOTO 907
  2525. 911 RETURN
  2526. 950 X4 = X : X = X + A1.XE
  2527. 951 GOSUB 10 : X = X + 1 : E(X) = EMP.NO
  2528. GOSUB 60 : X = X - 2
  2529. IF X >= X4 THEN 951
  2530. RETURN
  2531. 1080 M=HOLE(4) : Q1=0
  2532. GOSUB 9005
  2533. PRINT
  2534. PRINT TAB(23);"Dimis Micro Systems, Inc. "
  2535. PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
  2536. PRINT
  2537. PRINT TAB(22);"** PAYROLL MENU OPTION #1 **"
  2538. PRINT TANT : PRINT
  2539. REM READ #0 %0,CLIENT.NO,CLIENT.NAME$
  2540. GOSUB 5000 : REM READ IN CLNRNM.FIL
  2541. IF R=CLIENT.NO THEN GOTO 1600 \
  2542. ELSE \
  2543. PRINT "THE CLIENT NUMBER OF THE DISK IN DRIVE ";FIL$(2);" IS #";CLIENT.NO :\
  2544. PRINT " PLEASE CHANGE THE DISK OR ENTER THE CORRECT NUMBER!" :\
  2545. PRINT CHR$(7) : PRINT" PRESS RETURN TO CONTINUE "; : \
  2546. FLD.LEN%=1 : GOSUB 9998 : GOTO 1380
  2547. 1600 PRINT : PRINT " WORKING . . ."
  2548. FOR X = 0 TO 93
  2549. A(X) = -1
  2550. NEXT X
  2551. FOR X=0 TO M-1
  2552. IF END #2 THEN 1800
  2553. GOSUB 10
  2554. IF EMP.NO = -1 THEN 1800
  2555. EER.CNT=EER.CNT+1
  2556. X1 = ASC(EMP.NAME$) - 32
  2557. IF A(X1) = -1 THEN A(X1) = X
  2558. E(X)=EMP.NO
  2559. NEXT X
  2560. 1800 CONSOLE
  2561. GOSUB 9005 : PRINT : PRINT : PRINT TAB(15);" D M S Client Programmed Accounting"
  2562. PRINT : PRINT TAB(25);"EMPLOYEE EDIT MENU"
  2563. PRINT : PRINT TAB(8);"'EER' is abbreviation for 'EMPLOYEE EARNINGS RECORD'" : PRINT
  2564. PRINT TAB(11);"WHICH FUNCTION WOULD YOU LIKE TO PERFORM?"
  2565. PRINT TAB(10);" A. AD520
  2566. IF X$="D" THEN 3320
  2567. IF X$="V" THEN 5740
  2568. IF X$="P" THEN 3620
  2569. IF X$="M" THEN 3560
  2570. PRINT "INVALID INPUT - TRY AGAIN!"
  2571. GOTO 6320
  2572. 2180 IF EER.CNT>=M-1 THEN 2420
  2573. GOSUB 6460
  2574. IF EMP.NO=-1 THEN 1800
  2575. GOSUB 6660
  2576. IF F=0 THEN 2320
  2577. PRINT CHR$(7);"THAT EMPLOYEE NUMBER HAS ALREADY BEEN USED - TRY AGAIN!"
  2578. GOTO 6320
  2579. 2320 GOSUB 6800 : GOSUB 6980
  2580. GOSUB 7060 : GOSUB 7140
  2581. GOSUB 300
  2582. GOTO 1800
  2583. 2420 PRINT USING "THE FILE IS FULL WITH ####### EER'S";EER.CNT
  2584. PRINT "YOU CANNOT OSUB 6660
  2585. IF F=1 THEN 2700
  2586. 2660 PRINT : PRINT "THERE IS NO EMPLOYEE ON FILE WITH THAT NUMBER, PLEASE CHECK!"
  2587. GOTO 6320
  2588. 2670 PRINT : PRINT " INVALID INPUT - TRY AGAIN! "
  2589. FOR XE = 1 TO 250 : NEXT XE : GOTO 2520
  2590. 2700 X1=X : S1=0 : S2=0 : S3=0 : S4=0 : S5=0
  2591. 2720 GOSUB 9005
  2592. PRINT "ENTER 1. To Change Employee Number,"
  2593. PRINT " 2. To Change Employee Name,"
  2594. PRINT " 3. To Change Street Address,"
  2595. PRINT " 4. To Change City, State & Zip Code,"
  2596. PRINT " 5. T!"
  2597. GOTO 3000
  2598. 3160 GOSUB 6800
  2599. S2=1 : GOTO 2720
  2600. 3200 GOSUB 6980
  2601. S3=1 : GOTO 2720
  2602. 3240 GOSUB 7060
  2603. S4=1 : GOTO 2720
  2604. 3280 GOSUB 7140
  2605. S5=1 : GOTO 2720
  2606. 3320 GOSUB 9005 : PRINT : PRINT " OPTION D : DELETE AN EER"
  2607. PRINT : PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
  2608. PRINT "ENTER NUMBER OF EMPLOYEE TO BE DELETED > <";
  2609. X=5 : GOSUB 9160 : PRINT ">"; : FLD.LEN% = -7 : GOSUB 9998
  2610. IF LEN(REPLY$) = 0 THEN 3530
  2611. EMP.NO = VAL(REPLY$) : ))
  2612. IF X$<>"P" AND X$ <> "D" THEN \
  2613. ERR$ = "INVALID INPUT - TRY AGAIN " : GOSUB 2000 :\
  2614. FOR XE = 1 TO 250 : NEXT XE : GOSUB 9009 : GOTO 3620
  2615. IF X$ = "P" THEN :\
  2616. O=1 : P1=59 : PAGE.NO=1 :\
  2617. ERR$ = "SET THE PRINTER AND PAPER" : GOSUB 2000 : \
  2618. PRINT TAB(20); : GOSUB 6400 : GOSUB 9005 : PRINT : GOSUB 8820 :\
  2619. LPRINTER : GOTO 3840 \
  2620. ELSE \
  2621. O=0 : P1=21 :\
  2622. CONSOLE : GOTO 3860
  2623. 3840 PRINT
  2624. IF O=1 THEN PRINT USING "PAGE ####";TAB(70),PAGE.NO
  2625. PRINT
  2626. 3860 IF X$="D" THED an EER"
  2627. PRINT TAB(10);" C. CHANGE an EER"
  2628. PRINT TAB(10);" D. DELETE an EER"
  2629. PRINT TAB(10);" V. VIEW an EER"
  2630. PRINT TAB(10);" P. PRINT or DISPLAY the Employee List"
  2631. PRINT TAB(10);" M. RETURN to Payroll Menu"
  2632. PRINT
  2633. PRINT " Maximum number of employees: ";HOLE(4)
  2634. PRINT
  2635. PRINT " ENTER THE LETTER OF THE FUNCTION TO PERFORM :";
  2636. FLD.LEN% = 1 : GOSUB 9998 : X$ = UCASE$(LEFT$(REPLY$,1))
  2637. PRINT
  2638. IF X$="A" THEN 2180
  2639. IF X$="C" THEN 2ADD MORE EER'S!"
  2640. PRINT "SEE CPA MAIN MENU OPTION #5 TO CHANGE THE SIZE"
  2641. PRINT " OF THE FILE EARNREC"
  2642. GOTO 6320
  2643. 2520 GOSUB 9005 : PRINT
  2644. PRINT " OPTION C : CHANGE AN EER"
  2645. PRINT : PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
  2646. PRINT "ENTER NUMBER OF EMPLOYEE TO BE CHANGED > <";
  2647. X=5 : GOSUB 9160 : PRINT ">"; : FLD.LEN% = -7 : GOSUB 9998
  2648. IF LEN(REPLY$) = 0 THEN 2670
  2649. EMP.NO = VAL(REPLY$) : PRINT
  2650. IF EMP.NO=-1 THEN 1800
  2651. Go Change Social Security Number or"
  2652. PRINT " 6. To End Changes of this EER >";
  2653. FLD.LEN% = -1 : GOSUB 9998 : XE.X1=VAL(REPLY$)
  2654. IF XE.X1 < 1 OR XE.X1 > 6 THEN ERR$="INVALID INPUT - TRY AGAIN!" :\
  2655. GOSUB 2000 :FOR XE=1 TO 250 : NEXT XE : GOSUB 9005 : GOTO 2720
  2656. PRINT
  2657. ON XE.X1 GOTO 3000,3160,3200,3240,3280,4340
  2658. 3000 GOSUB 6480
  2659. IF EMP.NO=-1 THEN 2720
  2660. GOSUB 6660
  2661. IF F=1 THEN 3120
  2662. E(X1)=EMP.NO
  2663. S1=1 : GOTO 2720
  2664. 3120 PRINT "THAT EMPLOYEE NUMBER HAS ALREADY BEEN USED - TRY AGAINPRINT
  2665. IF EMP.NO= -1 THEN 1800
  2666. GOSUB 6660
  2667. IF F=0 THEN 3520
  2668. GOSUB 500
  2669. IF F=0 THEN 6320
  2670. GOTO 1800
  2671. 3520 PRINT : PRINT "THERE IS NO EMPLOYEE ON FILE WITH THAT NUMBER, PLEASE CHECK!"
  2672. GOTO 6320
  2673. 3530 PRINT : PRINT "INVALID INPUT - TRY AGAIN!"
  2674. FOR XE = 1 TO 250 : NEXT XE : GOTO 3320
  2675. 3560 CLOSE 1,2
  2676. CHAIN PGM$(2)+":"+"PMENU"
  2677. 3620 MSSG$ = "Enter 'P' To PRINT Or 'D' To DISPLAY The Employee List :"
  2678. GOSUB 2100 : FLD.LEN% = 1 : GOSUB 9998 : X$=UCASE$(LEFT$(REPLY$,1N GOSUB 9005
  2679. PRINT TAB(10);CLIENT.NAME$;TAB(55);
  2680. PRINT USING "CLIENT NUMBER ######";CLIENT.NO
  2681. PRINT TAB(10);"EMPLOYEE LIST"
  2682. IF X$="D" THEN 3980
  2683. PRINT TAB(10);LEFT$(D$,2);"/";MID$(D$,3,2);"/";MID$(D$,5,2)
  2684. PRINT : PRINT : PRINT : PG.LEN=9 : GOTO 4000
  2685. 3980 PRINT : PG.LEN=3
  2686. 4000 REM OPENING SOME FILE
  2687. IF EER.CNT = 0 THEN 4241
  2688. FOR X=0 TO EER.CNT-1
  2689. GOSUB 10
  2690. PRINT USING "#######";TAB(5);EMP.NO;
  2691. PRINT TAB(13);EMP.NAME$," ";LEFT$(SSN$,3);"-";MID$(SSN$,4,2);"-";MID$(SSN$,6,4)
  2692. PRINT TAB(13);STR.ADDR$," ";CITY.ST.ZIP$
  2693. PRINT
  2694. PG.LEN=PG.LEN+3
  2695. IF PG.LEN<P1 THEN 4240
  2696. IF X$="P" THEN 4220
  2697. PRINT " PRESS RETURN TO CONTINUE "
  2698. FLD.LEN% = 1 : GOSUB 9998 : M$=LEFT$(M$,1)
  2699. GOSUB 9005 : PG.LEN=1
  2700. GOTO 4240
  2701. 4220 IF O=1 THEN \
  2702. PAGE.NO=PAGE.NO+1 : PRINT CHR$(12); : PRINT :\
  2703. PRINT USING "PAGE ####";TAB(55);PAGE.NO :\
  2704. ELSE
  2705. PRINT : PRINT : PRINT : PG.LEN=3
  2706. 4240 NEXT X
  2707. 4241 PRINT TAB(15);"THERE ARE";
  2708. PRINT USING "###### EMPLOYEES 0
  2709. GOTO 1800
  2710. 5740 GOSUB 9005 : PRINT
  2711. PRINT " OPTION V : VIEW AN EER"
  2712. PRINT : PRINT
  2713. PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
  2714. PRINT "ENTER THE NUMBER OF THE EMPLOYEE YOU WANT TO VIEW > <";
  2715. X=5 : GOSUB 9160 : PRINT ">"; : FLD.LEN% = -7 : GOSUB 9998
  2716. EMP.NO = VAL(REPLY$) : PRINT
  2717. IF EMP.NO=-1 THEN 1800
  2718. GOSUB 6660
  2719. IF F=0 THEN 2660
  2720. GOSUB 10 : GOSUB 150
  2721. GOSUB 9005
  2722. PRINT "#";
  2723. PRINT USING "#######";EMP.NO;TAB(10);
  2724. PRINT EMP.NAME$," ,P(2,3)/100,P(3,3)/100
  2725. PRINT "TAXABLE TIPS:";TAB(34);
  2726. PRINT USING "###,###,###.##";P(1,4)/100,P(2,4)/100,P(3,4)/100
  2727. PRINT "FICA WITHHELD:";TAB(34);
  2728. PRINT USING "###,###,###.##";P(1,5)/100,P(2,5)/100,P(3,5)/100
  2729. PRINT "FEDERAL INCOME TAX WITHHELD:";TAB(34);
  2730. PRINT USING "###,###,###.##";P(1,6)/100,P(2,6)/100,P(3,6)/100
  2731. PRINT "STATE INCOME TAX WITHHELD:";TAB(34);
  2732. PRINT USING "###,###,###.##";P(1,7)/100,P(2,7)/100,P(3,7)/100
  2733. PRINT "STATE DISABILITY INS WITHHELD:";TAB(34);
  2734. PRINT USING "##ING "###,###,###.##";P(1,13)/100,P(2,13)/100,P(3,13)/100
  2735. PRINT "NET PAY:";TAB(34);
  2736. PRINT USING "###,###,###.##";P(1,14)/100,P(2,14)/100,P(3,14)/100
  2737. PRINT
  2738. GOTO 6340
  2739. 6320 PRINT CHR$(7)
  2740. 6340 PRINT " PRESS RETURN TO RETURN TO MENU";
  2741. FLD.LEN% = 1 : GOSUB 9998 : M$=LEFT$(M$,1)
  2742. GOTO 1800
  2743. PRINT " PLEASE CORRECT!"
  2744. 6400 PRINT " THEN PRESS RETURN ";
  2745. FLD.LEN% = 1 : GOSUB 9998 : M$=LEFT$(M$,1)
  2746. RETURN
  2747. 6420 PRINT "INSERT A CLIENT DATA FILE DISK IN DRIVE ";FIL$(2);" (NO WRITMPLOYEE NUMBER - TRY AGAIN!"
  2748. PRINT CHR$(7) : GOTO 6500
  2749. 6640 RETURN
  2750. 6601 PRINT "INVALID INPUT - TRY AGAIN!"
  2751. FOR XE = 1 TO 250 : NEXT XE
  2752. GOTO 6460
  2753. 6660 F=0
  2754. FOR X=0 TO EER.CNT-1
  2755. IF E(X)=EMP.NO THEN GOTO 6760
  2756. NEXT X
  2757. RETURN
  2758. 6760 F=1
  2759. RETURN
  2760. 6800 PRINT "ENTER LAST NAME, FIRST NAME & MIDDLE INITIAL (25X)"
  2761. PRINT ": :";
  2762. X=25 : GOSUB 9160 : PRINT":"; : FLD.LEN% = 25 : GOSUB 9998
  2763. EMP.NAME$=LEFT$(REPLY$+" IN THE FILE";EER.CNT
  2764. PRINT TAB(15);"THE MAXIMUM FOR THIS FILE AT ITS PRESENT SIZE IS";
  2765. PRINT USING "#######";M
  2766. IF O=1 THEN PRINT CHR$(12); : CONSOLE
  2767. GOTO 6340 : REM FINISH THIS SECTION
  2768. 4340 X=X1
  2769. REM OPENING SOME FILE
  2770. GOSUB 100 : X5=ASC(N9$)-32
  2771. IF S1=1 THEN N9=EMP.NO
  2772. IF S3=1 THEN S9$=STR.ADDR$
  2773. IF S4=1 THEN C9$=CITY.ST.ZIP$
  2774. IF S5=1 THEN Z9$=SSN$
  2775. IF S2=0 THEN 4580
  2776. N9$ = EMP.NAME$ : GOSUB 700
  2777. GOTO 1800
  2778. 4580 GOSUB 8760
  2779. REM OPENING SOME FILE GOSUB 7200
  2780. GOSUB 6 ";LEFT$(SSN$,3);"-";MID$(SSN$,4,2);"-";MID$(SSN$,6,4)
  2781. PRINT TAB(10);STR.ADDR$," ";CITY.ST.ZIP$
  2782. PRINT : PRINT TAB(42);"CURRENT";TAB(57);"QUARTER";TAB(75);"YEAR"
  2783. PRINT TAB(44);"MONTH";TAB(57);"TO DATE";TAB(72);"TO DATE"
  2784. PRINT "REGULAR WAGES:";TAB(34);
  2785. PRINT USING "###,###,###.##";P(1,1)/100,P(2,1)/100,P(3,1)/100
  2786. PRINT "OVERTIME WAGES:";TAB(34);
  2787. PRINT USING "###,###,###.##";P(1,2)/100,P(2,2)/100,P(3,2)/100
  2788. PRINT "MEALS AND LODGING:";TAB(34);
  2789. PRINT USING "###,###,###.##";P(1,3)/100#,###,###.##";P(1,8)/100,P(2,8)/100,P(3,8)/100
  2790. PRINT "LOCAL WITHHOLDING #1:";TAB(34);
  2791. PRINT USING "###,###,###.##";P(1,9)/100,P(2,9)/100,P(3,9)/100
  2792. PRINT "LOCAL WITHHOLDING #2:";TAB(34);
  2793. PRINT USING "###,###,###.##";P(1,10)/100,P(2,10)/100,P(3,10)/100
  2794. PRINT "DEDUCTION #1:";TAB(34);
  2795. PRINT USING "###,###,###.##";P(1,11)/100,P(2,11)/100,P(3,11)/100
  2796. PRINT "DEDUCTION #2:";TAB(34);
  2797. PRINT USING "###,###,###.##";P(1,12)/100,P(2,12)/100,P(3,12)/100
  2798. PRINT "OTHER DEDUCTIONS:";TAB(34);
  2799. PRINT USE-PROTECT TAPE)"
  2800. RETURN
  2801. 6460 GOSUB 9005 : PRINT : PRINT " OPTION A : ADD AN EER"
  2802. 6480 PRINT : PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
  2803. 6500 PRINT "ENTER THE NEW EMPLOYEE NUMBER > <";
  2804. X=5 : GOSUB 9160 : PRINT ">"; : FLD.LEN% = -7 : GOSUB 9998 : PRINT
  2805. IF LEN(REPLY$) = 0 THEN 6601
  2806. EMP.NO = VAL(REPLY$)
  2807. IF EMP.NO-INT(EMP.NO)<>0 THEN 6600
  2808. IF EMP.NO < -1 THEN 6600
  2809. IF EMP.NO<=99999 THEN 6640
  2810. 6600 PRINT "INVALID E",25) : X$="C"
  2811. IF LEN(EMP.NAME$)=0 THEN 6800
  2812. FOR X=1 TO LEN(EMP.NAME$)
  2813. IF MID$(EMP.NAME$,X,1)="," THEN 6960
  2814. NEXT X
  2815. PRINT : PRINT "THE LAST NAME MUST BE FOLLOWED BY A COMMA!"
  2816. PRINT CHR$(7)
  2817. GOTO 6800
  2818. 6960 PRINT
  2819. RETURN
  2820. 6980 PRINT "ENTER STREET ADDRESS (25X)"
  2821. PRINT ": :";
  2822. X=25 : GOSUB 9160 : PRINT ":"; : FLD.LEN%=25 : GOSUB 9998
  2823. STR.ADDR$ = LEFT$(REPLY$+B$,25) : PRINT
  2824. RETURN
  2825. 7060 PRINT "ENTER CITY, STATE & ZIP CODE (25X)"
  2826. PRINT ": :";
  2827. X=25 : GOSUB 9160 : PRINT ":"; : FLD.LEN% = 25 : GOSUB 9998
  2828. CITY.ST.ZIP$ = LEFT$(REPLY$+B$,25) : PRINT
  2829. RETURN
  2830. 7140 PRINT "ENTER SOCIAL SECURITY NUMBER (9X) : :";
  2831. X=9 : GOSUB 9160 : PRINT ":"; : FLD.LEN%=-9 : GOSUB 9998
  2832. SSN$= LEFT$(REPLY$+B$,9) : PRINT
  2833. RETURN
  2834. 8760 EMP.NO=N9 : EMP.NAME$=N9$ : STR.ADDR$=S9$
  2835. SSN$=Z9$ : REG.WAGES =I0 : OVERTIME.WAGES =I1
  2836. MEALS.AND.LODGING=I2 : TIPS =I3 : FICA =I4
  2837. FED.INC.TAX : TIPS.YR=M1
  2838. FICA.YR=M2 : FED.INC.TAX.YR=M3 : ST.INC.TAX.YR=M4
  2839. ST.DIS.INS.YR=M5 : LOCAL.DED.1.YR=M6 : LOCAL.DED.2.YR=M7
  2840. LOCAL.WITH.1.YR=M8: LOCAL.WITH.2.YR=M9 : OTHER.DED.YR=O0
  2841. NET.WAGES.YR=O1 : CITY.ST.ZIP$=C9$
  2842. RETURN
  2843. 8820 PRINT : PRINT "ENTER THE DATE YOU WANT ON THE LIST (MMDDYY) > <";
  2844. X=6 : GOSUB 9160 : PRINT ">"; : FLD.LEN%=-6 : GOSUB 9998
  2845. D$=LEFT$(REPLY$+B$,6)
  2846. FOR X=1 TO 6
  2847. IF MID$(D$,X,1)<"0" THEN 9100
  2848. IF MID$(D$,X,1)>"9" THEN 9100
  2849. NEXT X
  2850. IF MIO READ CLNRNM.FIL
  2851. READ #CLNRNM.FIL,1; \
  2852. CLIENT.NO,\
  2853. CLIENT.NAME$,\
  2854. GL.END.DATE$,\
  2855. PAY.END.DATE$,\
  2856. FISCAL.END.MO,\
  2857. A9.III,\
  2858. PERIOD.TO.ADJ,\
  2859. RUN.NUMBER,\
  2860. MAX.FICA.WAGES,\
  2861. MAX.ST.UNEMP,\
  2862. MAX.FED.UNEMP,\
  2863. MAX.ST.DIS.WAGES,\
  2864. EMP.FICA.RATE,\
  2865. ST.UNEMP.RATE,\
  2866. FED.UNEMP.RATE,\
  2867. ST.DIS.RATE,\
  2868. LOCAL.DESC,\
  2869. TYPE.OF.RUN,\
  2870. TIPS.F.U.I,\
  2871. MEALS.LDG.TO.ST.UNEMP,\
  2872. TIPS.TO.ST.UNEMP,\
  2873. ST.DIS.FLG,\
  2874. MEALS.LDG.TO.SDI,\
  2875. TIPS.TO.SDI,\
  2876. ST.UNEMP.CONT.FLG,\
  2877. REM 072583 - DCF ADDED CHECK FOR NUM.BITS = 8 OR 16
  2878. REM
  2879. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  2880. REM
  2881. REM 061083 - (RCB) IN LINES AFTER 4520 CHANGED FLD.LEN% = 75 TO FLD.LEN% = 76
  2882. REM TO ALLOW FOR THE 9998 ROUTINE FREEZING AND BEEPING AT
  2883. REM THE END OF THE INPUT FIELD LENTH - NO MORE EXTRA CHARACTOR
  2884. REM AND FREE CARRAGE RETURN - ALSO ADDED LINES TO SET EDIT.LINE$
  2885. REM TO " " (ONE SPACE) IF ITS LENTH EQUAL ZERO TO PREVENT
  2886. REM ERROR SS IN SOCUP. BUGING MORE GUYS THAN FILE HOLDS
  2887. REM ***
  2888. REM *** 10/18/82 DTK - FIX U PRINT ON SCREEN WHEN @ END OF FILE
  2889. REM ***
  2890. REM *** 10/14/82 DTK - CHECK FOR AUX DISK BEFORE ASKING
  2891. REM ***
  2892. REM 100782 - (RCB) MADE "M TO RETURN TO MENU" FLD.LEN% = 0 SO USER DOES NOT
  2893. REM HAVE TO PRESS RETURN AFTER M
  2894. REM
  2895. REM 100782 - (RCB) CHANGED NAME FROM EDIT TO STATE TO MAKE THE MENU PROGRAM
  2896. REM HAPPY - CONTAIN YOUR EXCITEMENT
  2897. REM
  2898. REM 100482 - (I'M NOT PUTTING MY INITIALS HERE, NO WAY!) ADDED AREA AT 1500
  2899. REM BETWEEN =I5 : STATE.INC.TAX =I6 : ST.DIS.INS =I7
  2900. LOCAL.DED.1=I8 : LOCAL.DED.2=I9 : LOCAL.WITH.1=J0
  2901. LOCAL.WITH.2=J1 : OTHER.DED=J2 : NET.WAGES=J3
  2902. REG.WAGES.QTR=J4 : OVERTIME.QTR=J5 : MEALS.LDG.QTR=J6
  2903. TIPS.QTR=J7 : FICA.QTR=J8 : FED.INC.TAX.QTR=J9
  2904. ST.INC.TAX.QTR=L0 : ST.DIS.INS.QTR=L1 : LOCAL.DED.1.QTR=L2
  2905. LOCAL.DED.2.QTR=L3: LOCAL.WITH.1.QTR=L4: LOCAL.WITH.2.QTR=L5
  2906. OTHER.DED.QTR=L6 : NET.WAGES.QTR=L7 : REG.WAGES.YR=L8
  2907. OVERTIME.YR=L9 : MEALS.LDG.YR=M0 D$(D$,1,1)="0" THEN 9020
  2908. IF MID$(D$,1,1)<>"1" THEN 9100
  2909. IF MID$(D$,2,1)>"2" THEN GOTO 9100 \
  2910. ELSE GOTO 9040
  2911. 9020 IF MID$(D$,2,1)<"1" THEN 9100
  2912. 9040 IF MID$(D$,3,1)>"3" THEN 9100
  2913. IF MID$(D$,3,1)<>"3" THEN 9140
  2914. 9080 IF MID$(D$,4,1)>"1" THEN GOTO 9100 \
  2915. ELSE GOTO 9140
  2916. 9100 PRINT CHR$(7);"INVALID DATE - TRY AGAIN! "
  2917. GOTO 8820
  2918. 9140 RETURN
  2919. 9160 FOR J=1 TO X+2
  2920. PRINT CHR$(8);
  2921. NEXT J
  2922. RETURN
  2923. 5000 REM ************************** ROUTINE T FORMAT.1,\
  2924. FORMAT.2,\
  2925. TIP.CONT.SHEET,\
  2926. RESERVED,\
  2927. SERIAL.NUMBER
  2928. RETURN
  2929. %INCLUDE NFLANKS.BAS
  2930. 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋 SHEETS 118-060683 AND 119-060683
  2931. REM
  2932. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  2933. REM
  2934. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  2935. REM FLANKS TO NFLANKS
  2936. REM
  2937. REM *** 02/07/83 DCF - CHECKING FOR EDIT.NUM=.05 IF TRUE THEN DO NOT
  2938. REM *** PRINT .05 AFTER THE TOTAL LEVEL WHEN EDITING
  2939. REM ***
  2940. REM *** 10/25/82 DTK - FIXED 1 CHAR LEN ON PRINTING
  2941. REM ***
  2942. REM *** 10/25/82 DTK - FIX /100 ON PRINTING
  2943. REM ***
  2944. REM *** 10/18/82 DTK - FIXES ERROR SB WHEN DELET ASTERISKS FOR P OPTION
  2945. REM
  2946. REM **************************************************************************
  2947. REM * STATEMENT OF CHANGES EDITOR *
  2948. REM * VERSION 1.0 09/29/82 *
  2949. REM * *
  2950. REM **************************************************************************
  2951. %INCLUDE COMMON.BAS
  2952. DIM ASCII$(100),NUM(100),A(6)
  2953. FORM.12F2$ = "###,###,###.##"
  2954. TRUE = -1 : FALSE = NOT TRUE
  2955. FOR I% = 1 TO 85
  2956. BLANK$ = BLANK$ + " "
  2957. NEXT I%
  2958. GOSUB 9005
  2959. PRINT
  2960. 75 PRINT TAB(23);"Dimis Micro Systems, Inc. "
  2961. PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
  2962. PRINT
  2963. PRINT TAB(21);"** AUXILIARY MENU OPTION #7 **"
  2964. PRINT TAB(18);"EDITS STATEMENT OF CHANGES WORKSHEET"
  2965. PRINT
  2966. PRINT " Press RETURN Key to Continue or 'M' to Return to Auxiliary Menu ";
  2967. FLD.LEN% = 1 : GOSUB 9998
  2968. IF UCASE$(LEFT$(REPLY$,1)) = "M" THEN
  2969. 180 IF X <> X1 THEN \
  2970. PRINT CHR$(7),"THE CLIENT IN DRIVE ";FIL$(10);" IS #";X :\
  2971. PRINT " PLEASE CORRECT THEN PRESS RETURN "; :\
  2972. FLD.LEN% = 1 : GOSUB 9998 : GOTO 120
  2973. 220 REM ************************ OPEN FILES AND READ IN STUFF
  2974. OPEN FIL$(9)+":"+CLIENT$+"FMT.FIL" RECL 100 AS 2 : FORMAT.FIL = 2
  2975. IF END #2 THEN 220.1
  2976. I% = 1
  2977. EOF = 0
  2978. 221 READ #FORMAT.FIL;ASCII$(I%),NUM(I%)
  2979. EOF = EOF + 1
  2980. IF VAL(ASCII$(I%)) = -1 THEN ASCII$(I%) = " " : NUM(I%) = .05 :\
  2981. GOTO 220.1
  2982. I% = I
  2983. FLD.LEN% = 1 : GOSUB 9998 : X$ = UCASE$(LEFT$(REPLY$,1))
  2984. 1070 IF X$ = "E" THEN 2000.1
  2985. IF X$ = "S" THEN 1100
  2986. IF X$ = "P" THEN 1500
  2987. IF X$ = "A" THEN 1200
  2988. 1090 PRINT CHR$(7),"ENTER E, S, P OR A PLEASE !"
  2989. PRINT " PRESS RETURN TO CONTINUE ";
  2990. FLD.LEN% = 1 : GOSUB 9998
  2991. GOTO 1000
  2992. 1100 REM ************************ OPEN FILES AND WRITE OUT THE GOOD STUFF
  2993. OPEN FIL$(9)+":"+CLIENT$+"FMT.FIL" RECL 100 AS 2 : FORMAT.FIL = 2
  2994. FOR I% = 1 TO EOF-1
  2995. PRINT #FORMAT*********************************************************************
  2996. REM **** CAUTION WATTS NEXT FOUR EXITS *************************************
  2997. REM ************************************************************************
  2998. REM **** PRINT ROUTINE TRANSPLANT DONE IN THE FINE XE TRADITION ************
  2999. REM ************************************************************************
  3000. 1500 LPRINTER
  3001. PRINT CHR$(12);
  3002. XE.COUNT% = 1
  3003. 1520 IF XE.COUNT% > EOF THEN 1600
  3004. H$ = ASCII$(XE.COUNT%)
  3005. XE.NUM = NUTHEN 1580
  3006. GOSUB 8000
  3007. GOSUB 7600
  3008. 1580 PRINT
  3009. 1590 GOTO 1520
  3010. 1600 REM ******* END OF DATA FOR PRINTING
  3011. GOSUB 1700
  3012. PRINT CHR$(12);
  3013. CONSOLE
  3014. GOTO 1000
  3015. 1700 REM ****** FINAL STATEMENT BALANCE
  3016. IF A(6) = 0 THEN 1760
  3017. PRINT " THIS STATEMENT IS OUT OF BALANCE BY ";
  3018. PRINT USING "###,###,###.##";A(6)
  3019. 1760 A(6) = 0
  3020. RETURN
  3021. 7600 REM
  3022. IF B AND N2 > 0 THEN X = 1 ELSE X = 0
  3023. IF B = 0 AND N2 < 0 THEN X = 1
  3024. IF X THEN PRINT "<"; ELSE PRINT " ";
  3025. IF D2 THEN PRINT "$"; ELSE PR 1200
  3026. 120 GOSUB 9005 : PRINT : PRINT
  3027. INITIALIZE
  3028. IF SIZE(FIL$(10)+":"+CLIENT$+"CON.FIL") <> 0 THEN GOTO 140
  3029. PRINT "INSERT AUXILIARY STATEMENTS DATA DISK IN DRIVE ";FIL$(10);" THEN PRESS RETURN ";
  3030. FLD.LEN% = 1 : GOSUB 9998 : X$ = UCASE$(LEFT$(REPLY$,1)) : PRINT
  3031. GOTO 120
  3032. 140 OPEN FIL$(10)+":"+CLIENT$+"CON.FIL" RECL 80 AS 1 : AUXCTRL.FIL = 1
  3033. READ #AUXCTRL.FIL;X
  3034. CLOSE 1
  3035. 170 PRINT "ENTER CLIENT NUMBER FROM CONTROL SHEET >";
  3036. FLD.LEN% = -7 : GOSUB 9998 : X1 = VAL(REPLY$)
  3037. PRINT
  3038. % + 1
  3039. GOTO 221
  3040. 220.1 CLOSE 2
  3041. 1000 REM ************************************* MAIN CONTROL MENU
  3042. CONSOLE
  3043. GOSUB 9005
  3044. PRINT : PRINT
  3045. PRINT TAB(10);"CONTROL MENU :"
  3046. PRINT TAB(12);"E : EDIT Statement of Changes in Financial Position"
  3047. PRINT TAB(12);"S : SAVE The Statement of Changes in Financial Position"
  3048. PRINT TAB(12);"P : PRINT The Statement of Changes in Financial Position"
  3049. PRINT TAB(12);"A : ABANDON the Changes Made During this Edit Session"
  3050. PRINT " YOUR CHOICE :";.FIL;ASCII$(I%),NUM(I%)
  3051. NEXT I%
  3052. PRINT #FORMAT.FIL;"-1",.05
  3053. CLOSE 2
  3054. 1200 REM ************************************************ FINISH &/OR ABANDON
  3055. GOSUB 9005 : PRINT : PRINT
  3056. INITIALIZE
  3057. IF NUM.BITS%=8 THEN EXT$ = ".OVL" ELSE EXT$ = ".OVR"
  3058. IF SIZE(PGM$(3)+":MENU"+EXT$) <> 0 THEN CHAIN PGM$(3)+":MENU"
  3059. PRINT "INSERT AUXILIARY STATEMENTS PROGRAM DISK IN DRIVE ";PGM$(3);" THEN PRESS RETURN ";
  3060. FLD.LEN% = 1 : GOSUB 9998 : X$ = UCASE$(LEFT$(REPLY$,1)) : PRINT
  3061. GOTO 1200
  3062. REM ***M(XE.COUNT%)
  3063. IF H$ = "-1" THEN 1600
  3064. XE.COUNT% = XE.COUNT% + 1
  3065. IF LEFT$(H$,1) = "-" THEN B = 1
  3066. IF LEFT$(H$,1) = "+" THEN B=0
  3067. IF LEFT$(H$,1) = "P" THEN PRINT CHR$(12); : GOTO 1590
  3068. 1547 IF LEFT$(H$,1)="$" THEN D2=1 ELSE D2=0
  3069. IF LEFT$(H$,1)="C" THEN C1=1 ELSE C1=0
  3070. IF LEFT$(H$,1)="D" THEN D3=1 ELSE D3=0
  3071. IF LEFT$(H$,1)="S" THEN S=1 ELSE S=0
  3072. IF LEFT$(H$,1)="W" THEN W=1 ELSE W=0
  3073. IF LEN(H$) > 1 THEN \
  3074. H$ = " " + RIGHT$(H$,LEN(H$)-1) \
  3075. ELSE \
  3076. H$ = " "
  3077. PRINT H$;
  3078. IF XE.NUM = .05 INT " ";
  3079. PRINT USING "#,###,###.##";ABS(N2);
  3080. IF X THEN PRINT ">";
  3081. RETURN
  3082. 8000 IF D3 THEN 8050
  3083. IF S THEN 8060
  3084. IF C1 THEN 8100
  3085. IF W THEN 8110
  3086. N2 = XE.NUM
  3087. FOR X = 1 TO 6
  3088. A(X) = A(X) + N2
  3089. NEXT X
  3090. GOTO 8200
  3091. 8050 D2 = 1
  3092. 8060 IF XE.NUM > 5 OR XE.NUM < 1 THEN XE.NUM = 1
  3093. N2 = A(XE.NUM)
  3094. FOR X = 1 TO XE.NUM
  3095. A(X) = 0
  3096. NEXT X
  3097. GOTO 8200
  3098. 8100 D2 = 1
  3099. 8110 N2 = XE.NUM
  3100. FOR X =1 TO 5
  3101. A(X) = 0
  3102. NEXT X
  3103. A(6) = A(6) - N2
  3104. 8200 RETURN
  3105. 2000.1 REM ************************************************ EDIT OPTION
  3106. 2004 FILE.PTR = 1
  3107. GOSUB 2900 : REM PRINTOUT SCREEN
  3108. 2005 FLD.LEN% = 0 : GOSUB 9998 : X$ = UCASE$(REPLY$)
  3109. IF LEN(X$) = 0 THEN GOSUB 2100.1 : GOTO 2006
  3110. IF LEN(LEFT$(ASCII$(FILE.PTR),1)) = 0 THEN PRINT CHR$(8);" ";CHR$(8); : \
  3111. ELSE \
  3112. PRINT CHR$(8);LEFT$(ASCII$(FILE.PTR),1);CHR$(8);
  3113. IF X$ = "B" THEN GOTO 2004
  3114. IF X$ = "U" THEN GOSUB 2300 : GOTO 2006
  3115. IF X$ = "D" THEN GOSUB 2400 : GOTO 2006
  3116. IF X$ = "I" THEN GOSUB 2600 : GOTO 2006
  3117. IF X$ = "F" THEN R$(7); : RETURN
  3118. FOR I% = FILE.PTR TO EOF
  3119. ASCII$(I%) = ASCII$(I%+1) : NUM(I%) = NUM(I%+1)
  3120. NEXT I%
  3121. CURSOR% = 0
  3122. GOSUB 3105
  3123. RETURN
  3124. 2600 REM ********************* I OPTION INSERT A NEW GUY
  3125. EOF = EOF + 1
  3126. FOR I = EOF TO FILE.PTR+1.0 STEP -1.0
  3127. ASCII$(I) = ASCII$(I-1) : NUM(I) = NUM(I-1)
  3128. NEXT I
  3129. REM *** MAKE SPOT BEFORE GETTING INFO
  3130. INSERT = TRUE
  3131. GOSUB 4500
  3132. ASCII$(FILE.PTR) = EDIT.LINE$
  3133. NUM(FILE.PTR) = EDIT.NUM
  3134. CURSOR% = 0
  3135. GOSUB 3105
  3136. FILE.PTR = FILE.PTR + 1
  3137. CURSOR% = 1------" :\
  3138. GOTO 2990
  3139. PRINT ASCII$(FILE.PTR+LNE%);
  3140. IF LEFT$(ASCII$(FILE.PTR+LNE%),1) = "D" \
  3141. OR LEFT$(ASCII$(FILE.PTR+LNE%),1) = "S" THEN PRINT "TOTAL LEVEL ";NUM(FILE.PTR+LNE%) : \
  3142. GOTO 2990
  3143. IF NUM(FILE.PTR+LNE%) <> .05 THEN \
  3144. PRINT USING FORM.12F2$;NUM(FILE.PTR+LNE%) :\
  3145. ELSE PRINT
  3146. 2990 SCREEN.PTR = FILE.PTR+LNE%
  3147. NEXT LNE%
  3148. SCREEN.PTR = FILE.PTR
  3149. PRINT "0---------1---------2---------3---------4-----<---5---------6";
  3150. PRINT ">-<------7------->"
  3151. PRINT " <CR> THEN FILE.PTR = 1 : PRINT CHR$(7); : RETURN
  3152. IF FILE.PTR >= SCREEN.TOP THEN X%=0 : Y%=Y%-1 : GOSUB 9006 : RETURN
  3153. IF FILE.PTR - 9 < 1 THEN FILE.CNT = FILE.PTR-1 ELSE FILE.CNT = 9
  3154. HOLD.FILE.PTR = FILE.PTR
  3155. FILE.PTR = FILE.PTR - FILE.CNT
  3156. GOSUB 2900
  3157. FILE.PTR = HOLD.FILE.PTR
  3158. X% = 0 : Y% = FILE.CNT : GOSUB 9006
  3159. RETURN
  3160. 3109 REM ************** REPAINT SCREEN AND PLACE CURSOR
  3161. HOLD.FILE.PTR = FILE.PTR
  3162. FILE.PTR = SCREEN.TOP
  3163. GOSUB 2900
  3164. FILE.PTR = HOLD.FILE.PTR
  3165. Y% = FILE.PTR : Y% = 18 : GOSUB 9006
  3166. PRINT
  3167. PRINT "0---------1---------2---------3---------4-----<---5---------6>-<------7------->"
  3168. PRINT " C - CHANGE TEXT N - ENTER NUMBER R - REMOVE NUMBER"
  3169. PRINT " F - GO BACK TO SCREEN MENU"
  3170. Y% = SAVE.Y% : GOSUB 9006
  3171. IF INSERT THEN EDIT.LINE$ = " " : EDIT.NUM = .05 : GOTO 4510
  3172. EDIT.LINE$ = ASCII$(FILE.PTR) : EDIT.NUM = NUM(FILE.PTR)
  3173. 4505 GOSUB 9006
  3174. PRINT LEFT$(BLANK$,78)
  3175. GOSUB 9006
  3176. IF LEFT$(EDIT.LINE$,1) = "P" THEN \
  3177. PRINT GOTO 1000
  3178. IF X$ = "L" THEN GOSUB 2700 : GOTO 2006
  3179. PRINT CHR$(7);
  3180. 2006 GOTO 2005
  3181. 2100.1 REM *********************** <CR> OPTION - MOVE DOWN ONE LINE
  3182. FILE.PTR = FILE.PTR + 1
  3183. CURSOR% = 1
  3184. GOSUB 3105
  3185. SCREEN.PTR = FILE.PTR
  3186. RETURN
  3187. 2300 REM *********************** U OPTION - MOVE UP ONE LINE
  3188. FILE.PTR = FILE.PTR - 1
  3189. CURSOR% = -1
  3190. GOSUB 3105
  3191. SCREEN.PTR = FILE.PTR
  3192. RETURN
  3193. 2400 REM ********************** D OPTION DELETE ONE GUY
  3194. EOF = EOF -1
  3195. IF EOF < 1 THEN EOF = 1 : PRINT CH
  3196. GOSUB 3105
  3197. RETURN
  3198. 2700 REM ********************* L OPTION - LINE EDIT STUFF
  3199. INSERT = FALSE
  3200. GOSUB 4500
  3201. CURSOR% = 0
  3202. GOSUB 3105
  3203. RETURN
  3204. 2900 REM ************************************************ MAIN SCREEN PRINTER
  3205. SCREEN.TOP = FILE.PTR
  3206. GOSUB 9005
  3207. FOR LNE%= 0 TO 18
  3208. X% = 0 : Y% = LNE% : GOSUB 9006
  3209. IF FILE.PTR+LNE% > EOF THEN PRINT : GOTO 2990
  3210. IF LEFT$(ASCII$(FILE.PTR+LNE%),1) = "P" THEN \
  3211. PRINT "P-------------------------------------------------------------- NEXT LINE U - UP 1 LINE F - BACK TO CONTROL MENU"
  3212. PRINT " B - BEGINNING D - DELETE LINE I - INSERT LINE L - LINE EDIT"
  3213. X% = 0 : Y% = 0 : GOSUB 9006
  3214. RETURN
  3215. 3105 REM *************************************** CURSOR ROUTINE
  3216. REM CURSOR% = 1 => DOWN ONE LINE
  3217. REM =-1 => UP ONE LINE
  3218. REM = 0 => REPRINT SCREEN AND PLACE CURSOR
  3219. CURSOR% = CURSOR% + 2
  3220. ON CURSOR% GOTO 3107,3109,3111
  3221. 3107 REM *************** UP ONE LINE
  3222. IF FILE.PTR < 1 - SCREEN.TOP : X%=0 : GOSUB 9006
  3223. RETURN
  3224. 3111 REM ************** DOWN ONE LINE
  3225. IF FILE.PTR > EOF THEN FILE.PTR = EOF : PRINT CHR$(7); : RETURN
  3226. IF FILE.PTR > SCREEN.TOP + 18 THEN \
  3227. HOLD.FILE.PTR = FILE.PTR :\
  3228. FILE.PTR = FILE.PTR -3 :\
  3229. GOSUB 2900 :\
  3230. FILE.PTR = HOLD.FILE.PTR :\
  3231. X% = 0 : Y% = 3 : GOSUB 9006 :\
  3232. ELSE \
  3233. X% = 0 : Y% = Y% + 1 : GOSUB 9006
  3234. RETURN
  3235. 4500 REM *********************************************** PRINT LINE EDIT GOO
  3236. PRINT EOS$
  3237. SAVE.Y% = Y%
  3238. X% = 0"P-------------------------------------------------------------------" :\
  3239. GOTO 4510
  3240. PRINT EDIT.LINE$;
  3241. IF LEFT$(EDIT.LINE$,1) <> "D" \
  3242. OR LEFT$(EDIT.LINE$,1) <> "S" THEN 4507
  3243. PRINT "TOTAL LEVEL ";
  3244. IF EDIT.NUM <> .05 THEN PRINT EDIT.NUM ELSE PRINT
  3245. GOTO 4510
  3246. 4507 IF EDIT.NUM <> .05 THEN PRINT USING FORM.12F2$;EDIT.NUM :\
  3247. ELSE PRINT
  3248. 4510 GOSUB 9006
  3249. FLD.LEN% = 0 : GOSUB 9998 : X$ = UCASE$(REPLY$)
  3250. IF LEN(X$) = 0 THEN GOTO 4510
  3251. PRINT CHR$(8);LEFT$(EDIT.LINE$,1);CHR$(8);
  3252. IF X$ = "F" THEN GOTO 4550
  3253. IF X$ = "C" THEN GOTO 4520
  3254. IF X$ = "R" THEN GOTO 4530
  3255. IF X$ = "N" THEN GOTO 4540
  3256. PRINT CHR$(7); : GOTO 4510
  3257. 4520 REM **************************** EDIT THE ASCII PORTION
  3258. GOSUB 9006
  3259. PRINT LEFT$(BLANK$,80) : GOSUB 9006
  3260. FLD.LEN% = 76 : GOSUB 9998
  3261. IF LEN(REPLY$) = 0 THEN EDIT.LINE$ = " " \
  3262. ELSE EDIT.LINE$ = REPLY$
  3263. EDIT.NUM =.05
  3264. GOTO 4505
  3265. 4530 REM **************************** REMOVE A NUMBER - CHG IT TO .05
  3266. EDIT.NUM = .05
  3267. GOTO 4505
  3268. 4540 REMT$(EDIT.LINE$,1) <> "D" AND LEFT$(EDIT.LINE$,1) <> "S" THEN \
  3269. PRINT "ENTER AMOUNT >"; : FLD.LEN% = 9 : GOSUB 9998 :\
  3270. EDIT.LINE$ = LEFT$(EDIT.LINE$+BLANK$,FILLER) :\
  3271. EDIT.NUM = VAL(REPLY$) : GOSUB 4545 :\
  3272. PRINT : GOSUB 9006 : EDIT.NUM = EDIT.NUM/100 :\
  3273. ON ERR.FLAG GOTO 4543,4505
  3274. PRINT "ENTER TOTAL LEVEL (1-5) >"; : FLD.LEN% = -1 : GOSUB 9998 : PRINT
  3275. EDIT.LINE$ = LEFT$(EDIT.LINE$+BLANK$,FILLER)
  3276. EDIT.NUM = VAL(REPLY$)
  3277. GOSUB 4545
  3278. IF ERR.FLAG = 1 THEN PRINT : GOSUB 9006 : GOTO 4543
  3279. IF ************************ RETURN FROM LINE EDIT SUBROUTINE
  3280. IF INSERT THEN INSERT = FALSE : RETURN
  3281. ASCII$(FILE.PTR) = EDIT.LINE$
  3282. NUM(FILE.PTR) = EDIT.NUM
  3283. RETURN
  3284. %INCLUDE NFLANKS
  3285. 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋REM 110283 - (RCB) CHANGED BACKUP.ID$ TO RECOVER.ID$ IN 2 LINES AFTER LINE 38
  3286. REM
  3287. REM 110283 - (RCB) CHANGED SECOND SOURCE$ NEAR LINE 38 TO DEST$ SO RECOVERY
  3288. REM MAY BE PLACED ON ANOTHER DRIVE - AND REVERSED .CPF AND .FIL
  3289. REM SO IT WILL DO A RECOVERY
  3290. REM
  3291. REM 103183 - (RCB) CHANGED SECOND SOURCE$ NEAR LINE 28 TO DEST$ SO BACKUP WILL
  3292. REM MAY BE PLACED ON ANOTHER DRIVE
  3293. REM
  3294. REM 071483 - (RCB) CHANGED TO WORK WITHOUT ASSEMBLY LANGUAGE ROUTINES
  3295. REM
  3296. REM
  3297. REM --------------------------------- STARFISH STRING ADDRESS \
  3298. ELSE \
  3299. LOC=PEEK(6)+PEEK(7)*256-80 : REM FOR 16-BIT STARFISH
  3300. REM ************************************ MAIN MENU
  3301. 10 GOSUB 9005 : REM CLEAR SCREEN
  3302. X%=21 : Y%=5 : GOSUB 9006
  3303. PRINT " Client Programmed Accounting"
  3304. X%=21 : Y%=7 : GOSUB 9006
  3305. PRINT "DISK OPERATING PROCEDURES MENU"
  3306. X%=24 : Y%=9 : GOSUB 9006
  3307. PRINT "1. Backup Client Files"
  3308. X%=24 : Y%=10 : GOSUB 9006
  3309. PRINT "2. Recover Client Files"
  3310. X%=24 : Y%=11 : GOSUB 9006
  3311. PRINT "3. Transfer *************************** ADD IN A NUMBER OR TOTAL LEVEL
  3312. GOSUB 9006
  3313. PRINT LEFT$(BLANK$,77) : GOSUB 9006
  3314. PRINT "ENTER NUMBERS IN RIGHT OR LEFT COLUMN (R OR L) :";
  3315. FLD.LEN% = 1 : GOSUB 9998 : PRINT : GOSUB 9006
  3316. X$ = UCASE$(LEFT$(REPLY$,1))
  3317. IF X$ <> "L" AND X$ <> "R" THEN PRINT CHR$(7); : GOTO 4540
  3318. IF X$ = "L" THEN FILLER = 46 ELSE FILLER = 62
  3319. 4543 REM **** ERR.FLAG = 2 FOR GOOD NUMBER
  3320. REM **** = 1 FOR BAD NUMBER
  3321. ERR.FLAG = 2
  3322. PRINT LEFT$(BLANK$,77) : GOSUB 9006
  3323. IF LEFEDIT.NUM > 5 OR EDIT.NUM < 1 THEN PRINT CHR$(7) :\
  3324. GOSUB 9006 : PRINT LEFT$(BLANK$,77) : GOSUB 9006 :\
  3325. PRINT "ENTER AN INTEGER BETWEEN 1 AND 5 PLEASE - PRESS RETURN TO CONTINUE"; :\
  3326. FLD.LEN% = 0 : GOSUB 9998 : PRINT : GOSUB 9006 : GOTO 4543
  3327. GOSUB 9006
  3328. GOTO 4505
  3329. 4545 IF INT(EDIT.NUM) <> EDIT.NUM THEN ERR.FLAG = 1 :\
  3330. PRINT : GOSUB 9006 :\
  3331. PRINT " ENTER AMOUNT WITHOUT DECIMAL POINT - PRESS RETURN TO CONTINUE"; :\
  3332. FLD.LEN% = 0 : GOSUB 9998 :\
  3333. ELSE ERR.FLAG = 2
  3334. RETURN
  3335. 4550 REM ***邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋---------------------------------
  3336. REM |
  3337. REM | PROGRAM TITLE: DOP.BAS
  3338. REM |
  3339. REM | CPA/CPM VERSION
  3340. REM |
  3341. REM | DISK OPERATING PROCEDURES VER. 1.0 REL 11883
  3342. REM |
  3343. REM | BY: BIG B
  3344. REM |
  3345. REM |
  3346. REM | COPYRIGHT (c) 1983 BY Dimis Micro Systems INC.
  3347. REM |
  3348. REM |
  3349. REM |
  3350. REM | DATE PRINTED ____\____\____
  3351. REM |
  3352. REM | REVISION _________
  3353. REM |
  3354. REM |__________________________________________________________________
  3355. REM
  3356. %INCLUDE COMMON
  3357. IF NUM.BITS%=8 THEN \
  3358. LOC=PEEK(6)+PEEK(7)*256 : REM GETClient Files"
  3359. X%=24 : Y%=12 : GOSUB 9006
  3360. PRINT "4. Return to the CPA Menu"
  3361. 11 X%=16 : Y%=18 : GOSUB 9006 : PRINT EOL$ : GOSUB 9006
  3362. PRINT "WHICH FUNCTION WOULD YOU LIKE TO PERFORM >";
  3363. FLD.LEN%=-1 : GOSUB 9998 : X=VAL(REPLY$)
  3364. IF (X<1) OR (X>4) THEN \
  3365. X%=30 : Y%=19 : GOSUB 9006 : \
  3366. PRINT CHR$(7); : PRINT "Please enter only 1-4" : \
  3367. GOTO 11
  3368. X%=30 : Y%=19 : GOSUB 9006 : PRINT EOL$
  3369. ON X GOTO 20,30,40,160
  3370. REM *********************************** BACKUP CLIENT FILES
  3371. REM
  3372. REM MAKE BACKUP COPIES OF CLIENT DATA
  3373. REM USES PIP THROUGH THE STARFISH
  3374. REM
  3375. 20 GOSUB 9005
  3376. 21 X%=22 : Y%=6 : GOSUB 9006 : PRINT EOL$ : GOSUB 9006
  3377. PRINT "Enter Client ID to Backup >";
  3378. FLD.LEN%=5 : GOSUB 9998
  3379. IF LEN(REPLY$)=0 THEN GOTO 10 : REM RETURN TO MAIN MENU FOR NO REPLY
  3380. BACKUP.ID$=UCASE$(LEFT$(REPLY$+"@@@@@",5))
  3381. 22 X%=18 : Y%=8 : GOSUB 9006 : PRINT EOL$
  3382. X%=12 : Y%=8 : GOSUB 9006
  3383. PRINT "Enter drive letter which contains the client files >";
  3384. FLD.LEPRINT "Please enter only A-P" : \
  3385. GOTO 23
  3386. X%=27 : Y%=12 : GOSUB 9006 : PRINT EOL$
  3387. 24 X%=27 : Y%=16 : GOSUB 9006 : PRINT EOL$ : GOSUB 9006
  3388. PRINT "ARE YOU SURE (Y/N) >";
  3389. FLD.LEN%=1 : GOSUB 9998
  3390. REPLY$=UCASE$(REPLY$)
  3391. IF REPLY$<>"Y" AND REPLY$<>"N" THEN PRINT CHR$(7) : GOTO 24
  3392. IF REPLY$="N" THEN GOTO 20
  3393. PRINT : PRINT "PLACE DISKETTES IN TO DRIVES AND PRESS RETURN";
  3394. FLD.LEN% = 1 : GOSUB 9998
  3395. INITIALIZE
  3396. GOSUB 9005
  3397. PRINT "BACKING UP . . ."
  3398. 28 READ FILE.LOOP$
  3399. IF FILE. 9006
  3400. PRINT "Enter Client ID to Recover >";
  3401. FLD.LEN%=5 : GOSUB 9998
  3402. IF LEN(REPLY$)=0 THEN GOTO 10 : REM RETURN TO MAIN MENU FOR NO REPLY
  3403. RECOVER.ID$=UCASE$(LEFT$(REPLY$+"@@@@@",5))
  3404. 32 X%=18 : Y%=8 : GOSUB 9006 : PRINT EOL$
  3405. X%=12 : Y%=8 : GOSUB 9006
  3406. PRINT "Enter drive letter which contains the backup files >";
  3407. FLD.LEN%=1 : GOSUB 9998
  3408. SOURCE$=UCASE$(REPLY$)
  3409. IF (SOURCE$<"A") OR (SOURCE$>"P") THEN \
  3410. X%=28 : Y%=10 : GOSUB 9006 : \
  3411. PRINT CHR$(7); : PRINT "Please en (Y/N) >";
  3412. FLD.LEN%=1 : GOSUB 9998
  3413. REPLY$=UCASE$(REPLY$)
  3414. IF REPLY$<>"Y" AND REPLY$<>"N" THEN PRINT CHR$(7) : GOTO 34
  3415. IF REPLY$="N" THEN GOTO 30
  3416. PRINT
  3417. PRINT
  3418. PRINT
  3419. PRINT "PLACE DISKETTES IN TO DRIVES AND PRESS RETURN";
  3420. FLD.LEN% = 1 : GOSUB 9998
  3421. INITIALIZE
  3422. GOSUB 9005
  3423. PRINT "RECOVERING . . ."
  3424. 38 READ FILE.LOOP$
  3425. IF FILE.LOOP$ = "THEEND" THEN 39
  3426. FROM$ = SOURCE$+":"+RECOVER.ID$+FILE.LOOP$+".CPA"
  3427. TO$ = DEST$+":"+RECOVER.ID$+FILE.LOOP$+".FIL"
  3428. PRINT : PRINT FROM$;
  3429. GOSUB 8000 9006 : PRINT EOL$ : GOSUB 9006
  3430. PRINT "Enter Client ID to Transfer from >";
  3431. FLD.LEN%=5 : GOSUB 9998
  3432. IF LEN(REPLY$)=0 THEN GOTO 10 : REM RETURN TO MAIN MENU FOR NO REPLY
  3433. BACKUP.ID$=UCASE$(LEFT$(REPLY$+"@@@@@",5))
  3434. 42 X%=20 : Y%=8 : GOSUB 9006 : PRINT EOL$
  3435. X%=12 : Y%=8 : GOSUB 9006
  3436. PRINT "Enter drive letter which contains the client files >";
  3437. FLD.LEN%=1 : GOSUB 9998
  3438. SOURCE$=UCASE$(REPLY$)
  3439. IF (SOURCE$<"A") OR (SOURCE$>"P") THEN \
  3440. X%=29 : Y%=10 : GOSUB 9006 : \
  3441. N%=1 : GOSUB 9998
  3442. SOURCE$=UCASE$(REPLY$)
  3443. IF (SOURCE$<"A") OR (SOURCE$>"P") THEN \
  3444. X%=27 : Y%=10 : GOSUB 9006 : \
  3445. PRINT CHR$(7); : PRINT "Please enter only A-P" : \
  3446. GOTO 22
  3447. 23 X%=12 : Y%=10 : GOSUB 9006 : PRINT EOL$
  3448. X%=16 : Y%=10 : GOSUB 9006
  3449. PRINT "Enter drive letter to place backup files on >";
  3450. FLD.LEN=1 : GOSUB 9998
  3451. DEST$=UCASE$(REPLY$)
  3452. IF (DEST$<"A") OR (DEST$>"P") THEN \
  3453. X%=27 : Y%=12 : GOSUB 9006 : PRINT EOL$ : GOSUB 9006 : \
  3454. PRINT CHR$(7); : LOOP$ = "THEEND" THEN 29
  3455. FROM$ = SOURCE$+":"+BACKUP.ID$+FILE.LOOP$+".FIL"
  3456. TO$ = DEST$+":"+BACKUP.ID$+FILE.LOOP$+".CPA"
  3457. PRINT : PRINT FROM$;
  3458. GOSUB 8000
  3459. GOTO 28
  3460. 29 RESTORE
  3461. PRINT
  3462. PRINT:PRINT "REPLACE OPERATING DISKETTES IN TO DRIVES AND PRESS RETURN";
  3463. FLD.LEN% = 1 : GOSUB 9998
  3464. INITIALIZE
  3465. GOTO 10
  3466. REM *********************************** RECOVER CLIENT FILES
  3467. REM
  3468. REM RECOVER FILES WITH A .CPA EXTENSION
  3469. REM
  3470. 30 GOSUB 9005
  3471. 31 X%=22 : Y%=6 : GOSUB 9006 : PRINT EOL$ : GOSUBter only A-P" : \
  3472. GOTO 32
  3473. 33 X%=12 : Y%=10 : GOSUB 9006 : PRINT EOL$ : GOSUB 9006
  3474. X%=15 : Y%=10 : GOSUB 9006
  3475. PRINT "Enter drive letter to place recovered files on >";
  3476. FLD.LEN=1 : GOSUB 9998
  3477. DEST$=UCASE$(REPLY$)
  3478. IF (DEST$<"A") OR (DEST$>"P") THEN \
  3479. X%=28 : Y%=12 : GOSUB 9006 : \
  3480. PRINT CHR$(7); : PRINT "Please enter only A-P" : \
  3481. GOTO 33
  3482. X%=27 : Y%=12 : GOSUB 9006 : PRINT EOL$
  3483. 34 X%=27 : Y%=16 : GOSUB 9006 : PRINT EOL$ : GOSUB 9006
  3484. PRINT "ARE YOU SURE
  3485. GOTO 38
  3486. 39 RESTORE
  3487. PRINT
  3488. PRINT:PRINT "REPLACE OPERATING DISKETTES IN TO DRIVES AND PRESS RETURN";
  3489. FLD.LEN% = 1 : GOSUB 9998
  3490. INITIALIZE
  3491. GOTO 10
  3492. REM *********************************** TRANSFER CLIENT FILES
  3493. REM
  3494. REM WILL ALLOW THE TRANSFER OF CLIENT FILES TO
  3495. REM 1) SAME OR DIFFERENT DRIVES
  3496. REM 2) SAME OR DIFFERENT CLIENT ID'S
  3497. REM NOTE IF CLIENT ID'S ARE THE SAME, AND THE DRIVES ARE THE
  3498. REM SAME, CLIENT ID'S WILL BE OVERWRITTEN
  3499. REM
  3500. 40 GOSUB 9005
  3501. 41 X%=19 : Y%=6 : GOSUBPRINT CHR$(7); : PRINT "Please enter only A-P" : \
  3502. GOTO 42
  3503. 43 X%=21 : Y%=10 : GOSUB 9006 : PRINT EOL$ : GOSUB 9006
  3504. PRINT "Enter Client ID to Transfer to >";
  3505. FLD.LEN%=5 : GOSUB 9998
  3506. IF LEN(REPLY$)=0 THEN GOTO 10 : REM RETURN TO MAIN MENU FOR NO REPLY
  3507. NEW.ID$=UCASE$(LEFT$(REPLY$+"@@@@@",5))
  3508. 44 X%=14 : Y%=12 : GOSUB 9006 : PRINT EOL$ : GOSUB 9006
  3509. X%=19 : Y%=12 : GOSUB 9006
  3510. PRINT "Enter drive letter to place files on >";
  3511. FLD.LEN=1 : GOSUB 9998
  3512. DEST$=UCASE$(REPLY$)
  3513. IF (DEST$<"A") OR (DEST$>"P") THEN \
  3514. X%=29 : Y%=14 : GOSUB 9006 : \
  3515. PRINT CHR$(7); : PRINT "Please enter only A-P" : \
  3516. GOTO 44
  3517. REM ***** GET WHICH FILES TO TRANSFER
  3518. REM
  3519. 45 GOSUB 9005
  3520. X%=23 : Y%=17 : GOSUB 9006
  3521. PRINT " Enter RETURN to skip to next file"
  3522. X%=22 : Y%=18 : GOSUB 9006
  3523. PRINT "Enter 'X' to mark a file for transfer"
  3524. X%=27 : Y%=19 : GOSUB 9006
  3525. PRINT "Enter 'D' to unmark a file"
  3526. X%=24 : Y%=20 : GOSUB 9006
  3527. PRINT "Enter 'C' when ready to conti< AUX. ACCOUNTS FILE - ACC.FIL"
  3528. X%=24 : Y%=13 : GOSUB 9006
  3529. PRINT "> < AUX. CONTROL FILE - CON.FIL"
  3530. X%=24 : Y%=14 : GOSUB 9006
  3531. PRINT "> < AUX. FORMAT FILE - FMT.FIL"
  3532. REM ***** MARK FILES FOR TRANSFER
  3533. REM
  3534. CLN.FIL.FLAG%=0
  3535. EAR.FIL.FLAG%=0
  3536. COA.FIL.FLAG%=0
  3537. TRI.FIL.FLAG%=0
  3538. PAS.FIL.FLAG%=0
  3539. FSH.FIL.FLAG%=0
  3540. ACC.FIL.FLAG%=0
  3541. CON.FIL.FLAG%=0
  3542. FMT.FIL.FLAG%=0
  3543. 50 IF CLN.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
  3544. X%=25 : Y%=6 : GOSUB 120
  3545. IF CR.FLAG%=1 THEN 60
  3546. IF UN.MARK.
  3547. 80 IF TRI.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
  3548. X%=25 : Y%=9 : GOSUB 120
  3549. IF CR.FLAG%=1 THEN 90
  3550. IF UN.MARK.FLAG%=1 THEN TRI.FIL.FLAG%=0 : GOTO 90
  3551. IF DONE.FLAG%=1 THEN GOTO 130
  3552. TRI.FIL.FLAG%=1
  3553. 90 IF PAS.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
  3554. X%=25 : Y%=10 : GOSUB 120
  3555. IF CR.FLAG%=1 THEN 100
  3556. IF UN.MARK.FLAG%=1 THEN PAS.FIL.FLAG%=0 : GOTO 100
  3557. IF DONE.FLAG%=1 THEN GOTO 130
  3558. PAS.FIL.FLAG%=1
  3559. 100 IF FSH.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
  3560. X%=25 : Y%=11 : GOSUB 12IF DONE.FLAG%=1 THEN GOTO 130
  3561. CON.FIL.FLAG%=1
  3562. 112 IF FMT.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
  3563. X%=25 : Y%=14 : GOSUB 120
  3564. IF CR.FLAG%=1 THEN 50
  3565. IF UN.MARK.FLAG%=1 THEN FMT.FIL.FLAG%=0 : GOTO 50
  3566. IF DONE.FLAG%=1 THEN GOTO 130
  3567. FMT.FIL.FLAG%=1
  3568. GOTO 50
  3569. 120 GOSUB 9006
  3570. IF X.FLAG%=1 THEN GOTO 120.2
  3571. 120.1 PRINT " "; : PRINT CHR$(8);
  3572. 120.2 CR.FLAG%=0
  3573. MARK.FLAG%=0
  3574. DONE.FLAG%=0
  3575. UN.MARK.FLAG%=0
  3576. 121 CHARACTER%=CONCHAR%
  3577. IF CHARACTER%=67 THEN DONE.FLAG%=1 : GOTO 122
  3578. IF CHANUM.MARKED%+1
  3579. IF COA.FIL.FLAG%=1 THEN NUM.MARKED%=NUM.MARKED%+1
  3580. IF TRI.FIL.FLAG%=1 THEN NUM.MARKED%=NUM.MARKED%+1
  3581. IF PAS.FIL.FLAG%=1 THEN NUM.MARKED%=NUM.MARKED%+1
  3582. IF FSH.FIL.FLAG%=1 THEN NUM.MARKED%=NUM.MARKED%+1
  3583. IF ACC.FIL.FLAG%=1 THEN NUM.MARKED%=NUM.MARKED%+1
  3584. IF CON.FIL.FLAG%=1 THEN NUM.MARKED%=NUM.MARKED%+1
  3585. IF FMT.FIL.FLAG%=1 THEN NUM.MARKED%=NUM.MARKED%+1
  3586. IF NUM.MARKED%=0 THEN GOTO 10
  3587. REM IF (NUM.MARKED%=9) AND (NEW.ID$=BACKUP.ID$) THEN GOTO 133 : REM TAKE EM ALL!
  3588. REM ***** TRANnue"
  3589. X%=24 : Y%=6 : GOSUB 9006
  3590. PRINT "> < CLIENTS FILE - CLN.FIL"
  3591. X%=24 : Y%=7 : GOSUB 9006
  3592. PRINT "> < EARNINGS FILE - EAR.FIL"
  3593. X%=24 : Y%=8 : GOSUB 9006
  3594. PRINT "> < ACCOUNTS FILE - COA.FIL"
  3595. X%=24 : Y%=9 : GOSUB 9006
  3596. PRINT "> < TRANSACTIONS FILE - TRI.FIL"
  3597. X%=24 : Y%=10 : GOSUB 9006
  3598. PRINT "> < PASS VARIABLES - PAS.FIL"
  3599. X%=24 : Y%=11 : GOSUB 9006
  3600. PRINT "> < HEADERS FILE - FSH.FIL"
  3601. X%=24 : Y%=12 : GOSUB 9006
  3602. PRINT "> FLAG%=1 THEN CLN.FIL.FLAG%=0 : GOTO 60
  3603. IF DONE.FLAG%=1 THEN GOTO 130
  3604. CLN.FIL.FLAG%=1
  3605. 60 IF EAR.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
  3606. X%=25 : Y%=7 : GOSUB 120
  3607. IF CR.FLAG%=1 THEN 70
  3608. IF UN.MARK.FLAG%=1 THEN EAR.FIL.FLAG%=0 : GOTO 70
  3609. IF DONE.FLAG%=1 THEN GOTO 130
  3610. EAR.FIL.FLAG%=1
  3611. 70 IF COA.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
  3612. X%=25 : Y%=8 : GOSUB 120
  3613. IF CR.FLAG%=1 THEN 80
  3614. IF UN.MARK.FLAG%=1 THEN COA.FIL.FLAG%=0 : GOTO 80
  3615. IF DONE.FLAG%=1 THEN GOTO 130
  3616. COA.FIL.FLAG%=10
  3617. IF CR.FLAG%=1 THEN 110
  3618. IF UN.MARK.FLAG%=1 THEN FSH.FIL.FLAG%=0 : GOTO 110
  3619. IF DONE.FLAG%=1 THEN GOTO 130
  3620. FSH.FIL.FLAG%=1
  3621. 110 IF ACC.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
  3622. X%=25 : Y%=12 : GOSUB 120
  3623. IF CR.FLAG%=1 THEN 111
  3624. IF UN.MARK.FLAG%=1 THEN ACC.FIL.FLAG%=0 : GOTO 111
  3625. IF DONE.FLAG%=1 THEN GOTO 130
  3626. ACC.FIL.FLAG%=1
  3627. 111 IF CON.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
  3628. X%=25 : Y%=13 : GOSUB 120
  3629. IF CR.FLAG%=1 THEN 112
  3630. IF UN.MARK.FLAG%=1 THEN CON.FIL.FLAG%=0 : GOTO 112
  3631. RACTER%=13 THEN CR.FLAG%=1 : GOTO 122
  3632. IF CHARACTER%=68 THEN UN.MARK.FLAG%=1 : PRINT CHR$(8); : PRINT " "; : \
  3633. PRINT CHR$(8); : GOTO 122
  3634. IF CHARACTER%=88 THEN MARK.FLAG%=1 : GOTO 122 \
  3635. ELSE PRINT CHR$(8); : PRINT " "; : PRINT CHR$(8);
  3636. IF (X.FLAG%=1) AND (UN.MARK.FLAG%=0) THEN PRINT "X"; : PRINT CHR$(8);
  3637. 121.1 GOTO 120.2
  3638. 122 RETURN
  3639. REM ***** CALCULATE HOW MANY WERE MARKED
  3640. REM
  3641. 130 NUM.MARKED%=0
  3642. IF CLN.FIL.FLAG%=1 THEN NUM.MARKED%=NUM.MARKED%+1
  3643. IF EAR.FIL.FLAG%=1 THEN NUM.MARKED%=SFER MARKED FILES
  3644. REM
  3645. MARKED.NUM%=0
  3646. IF NUM.MARKED%=1 THEN FLAG$=""
  3647. GOSUB 9005
  3648. PRINT : PRINT "PLACE DISKETTES IN TO DRIVES AND PRESS RETURN";
  3649. FLD.LEN% = 1 : GOSUB 9998
  3650. INITIALIZE
  3651. GOSUB 9005
  3652. PRINT "COPYING . . ."
  3653. IF CLN.FIL.FLAG%=1 THEN \
  3654. MARKED.NUM%=MARKED.NUM%+1 : GOSUB 131 : \
  3655. TO$ = DEST$+":"+NEW.ID$+"CLN.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"CLN.FIL" : \
  3656. PRINT : PRINT FROM$;" TO ";TO$; : \
  3657. GOSUB 8000
  3658. IF EAR.FIL.FLAG%=1 THEN \
  3659. MARKED.NUM%=MARKED.NUM%+1 : GOSUB 131 : \
  3660. TO$ = DEST$+":"+NEW.ID$+"EAR.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"EAR.FIL" : \
  3661. PRINT : PRINT FROM$;" TO ";TO$; : \
  3662. GOSUB 8000
  3663. IF COA.FIL.FLAG%=1 THEN \
  3664. MARKED.NUM%=MARKED.NUM%+1 : GOSUB 131 : \
  3665. TO$ = DEST$+":"+NEW.ID$+"COA.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"COA.FIL" : \
  3666. PRINT : PRINT FROM$;" TO ";TO$; : \
  3667. GOSUB 8000
  3668. IF TRI.FIL.FLAG%=1 THEN \
  3669. MARKED.NUM%=MARKED.NUM%+1 : GOSUB 131 : \
  3670. TO$ = DEST$+":"+NEW.ID$+"TRI.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"TRI.FIL" : \
  3671. PRIN.NUM%+1 : GOSUB 131 : \
  3672. TO$ = DEST$+":"+NEW.ID$+"ACC.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"ACC.FIL" : \
  3673. PRINT : PRINT FROM$;" TO ";TO$; : \
  3674. GOSUB 8000
  3675. IF CON.FIL.FLAG%=1 THEN \
  3676. MARKED.NUM%=MARKED.NUM%+1 : GOSUB 131 : \
  3677. TO$ = DEST$+":"+NEW.ID$+"CON.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"CON.FIL" : \
  3678. PRINT : PRINT FROM$;" TO ";TO$; : \
  3679. GOSUB 8000
  3680. IF FMT.FIL.FLAG%=1 THEN \
  3681. MARKED.NUM%=MARKED.NUM%+1 : GOSUB 131 : \
  3682. TO$ = DEST$+":"+NEW.ID$+"FMT.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"IN PGM$(1)+":MMENU"
  3683. 8000 IF END #1 THEN 8040
  3684. OPEN FROM$ AS 1 : FROM = 1
  3685. CREATE TO$ AS 2
  3686. IF END #1 THEN 8020
  3687. IF END #2 THEN 8030
  3688. 8010 READ #1;LINE SLURP$
  3689. PRINT USING "&";#2;SLURP$
  3690. GOTO 8010
  3691. 8020 CLOSE 1,2
  3692. RETURN
  3693. 8030 PRINT "ERROR - DISK IN DRIVE ";LEFT$(TO$,1);" IS FULL"
  3694. DISK.FULL = -1
  3695. RETURN
  3696. 8040 PRINT " - NOT FOUND";
  3697. RETURN
  3698. DATA "CLN","COA","TRI","FSH","PAS","EAR","CON","ACC","FMT","THEEND"
  3699. %INCLUDE NFLANKS.BAS
  3700. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
  3701. REM
  3702. REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
  3703. REM
  3704. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  3705. REM FLANKS TO NFLANKS
  3706. REM
  3707. REM 022883 - (RCB) ADDED FEEL FOR NUM.BITS% FOR CRUN2 OR CRUN86
  3708. REM
  3709. REM 021683 - (RCB) PUT IN INCLUDE 9999.BAS
  3710. REM
  3711. REM ***11/09/82 DTK - NEW STARFISH HOOKS ADDED
  3712. REM ***
  3713. REM *** 9/14/82 DTK - PUT M TO RETURN TO MENU AFTER PROMPT
  3714. REM ***
  3715. REM *** PROGRAM TO PRINT A WORKI Accounting Menu ";
  3716. FLD.LEN%=1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$,1))
  3717. IF M$="M" THEN 3001
  3718. 510 REM *********************** OPENING CLNRNM, TRINFO, COANS AND FSHEADS FILES
  3719. OPEN FIL$(2) + ":" + CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL=1
  3720. OPEN FIL$(5) + ":" + CLIENT$ + "TRI.FIL" RECL 68 AS 3 : TRINFO.FIL=3
  3721. OPEN FIL$(7) + ":" + CLIENT$ + "FSH.FIL" RECL 94 AS 4 : FSHEADS.FIL=4
  3722. OPEN FIL$(4) + ":" + CLIENT$ + "COA.FIL" RECL 65 AS 2 : COANS.FIL=2
  3723. 410 GOSUB T : PRINT FROM$;" TO ";TO$; : \
  3724. GOSUB 8000
  3725. IF PAS.FIL.FLAG%=1 THEN \
  3726. MARKED.NUM%=MARKED.NUM%+1 : GOSUB 131 : \
  3727. TO$ = DEST$+":"+NEW.ID$+"PAS.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"PAS.FIL" : \
  3728. PRINT : PRINT FROM$;" TO ";TO$; : \
  3729. GOSUB 8000
  3730. IF FSH.FIL.FLAG%=1 THEN \
  3731. MARKED.NUM%=MARKED.NUM%+1 : GOSUB 131 : \
  3732. TO$ = DEST$+":"+NEW.ID$+"FSH.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"FSH.FIL" : \
  3733. PRINT : PRINT FROM$;" TO ";TO$; : \
  3734. GOSUB 8000
  3735. IF ACC.FIL.FLAG%=1 THEN \
  3736. MARKED.NUM%=MARKEDFMT.FIL" : \
  3737. PRINT : PRINT FROM$;" TO ";TO$; : \
  3738. GOSUB 8000
  3739. PRINT
  3740. PRINT:PRINT "REPLACE OPERATING DISKETTES IN TO DRIVES AND PRESS RETURN";
  3741. FLD.LEN% = 1 : GOSUB 9998
  3742. INITIALIZE
  3743. GOTO 10
  3744. 131 IF NUM.MARKED%=1 THEN FLAG$="" : GOTO 132
  3745. IF NUM.MARKED%>1 AND MARKED.NUM%=1 THEN FLAG$="#" : GOTO 132
  3746. IF NUM.MARKED%<>MARKED.NUM% THEN FLAG$="###" : GOTO 132
  3747. IF NUM.MARKED%=MARKED.NUM% THEN FLAG$="##"
  3748. 132 RETURN
  3749. REM *********************************** EXIT TO CPA MENU
  3750. REM
  3751. 160 CHA邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋NG TRIAL BALANCE (VER. 4.0) ETRIAL
  3752. REM *** COPYRIGHT 1982 BY Dimis Micro Systems
  3753. 2 REM ******* PART 1 CHECKS TO SEE IF THE TRANSACTIONS ARE SORTED
  3754. %INCLUDE COMMON.BAS
  3755. 19 GOSUB 9005
  3756. PRINT
  3757. PRINT TAB(23);"Dimis Micro Systems, Inc. "
  3758. PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
  3759. PRINT
  3760. PRINT TAB(20);"** ACCOUNTING MENU OPTION #3 **"
  3761. PRINT TAB(21);"PREPARES WORKING TRIAL BALANCE" : PRINT
  3762. PRINT TAB(5);"Press the RETURN Key To Continue Or 'M' To Return To9005
  3763. 413 PRINT"ENTER CLIENT NUMBER FROM THE CONTROL SHEET >";:FLD.LEN%=-6 : GOSUB 9998 : PRINT : N=VAL(REPLY$)
  3764. REM *********************** READING CLNRNM AND CHECKING CLIENT NO.
  3765. GOSUB 5000
  3766. 612 IF N=CLIENT.NO THEN 1010.1
  3767. 614 PRINT : PRINT "THE CLIENT NUMBER OF THE DISK IN DRIVE 2 IS #";CLIENT.NO
  3768. PRINT " PLEASE CHANGE THE DISK OR ENTER CORRECT NUMBER !"
  3769. 616 PRINT CHR$(7)
  3770. 617 PRINT " PRESS RETURN TO CONTINUE ";:FLD.LEN%=1 : GOSUB 9998 : PRINT
  3771. 618 GOTO 410
  3772. 619 PRINT CHR$(7)
  3773. 1010.1 IF END #4 THEN 1212
  3774. 1110 READ #FSHEADS.FIL;\
  3775. HEADER.NO,\
  3776. HEADER.DESCRIP$,\
  3777. HEADER.CONTROL.CHAR$
  3778. 1111 IF MID$(HEADER.CONTROL.CHAR$,3,1) <> "P" THEN GOTO 1010.1 ELSE GOTO 1410
  3779. 1212 PRINT : PRINT : PRINT CHR$(7);"NET PROFIT HEADER NOT FOUND!"
  3780. 1310 PRINT"PRESS RETURN TO GO TO ACCOUNTING MENU";:FLD.LEN%=1 : GOSUB 9998 : PRINT
  3781. 1311 GOTO 3001
  3782. 1410 GOSUB 9005
  3783. 1415 PRINT : PRINT : PRINT : PRINT : PRINT TAB(25);"WORKING..."
  3784. 1511 REM *********OUNT NUMBER SEQUENCE..."
  3785. 2610 CLOSE CLNRNM.FIL,TRINFO.FIL,COANS.FIL,FSHEADS.FIL
  3786. REM *************************** CALLING IN THE STARFISH TO DO THE SORT
  3787. REM ******************************************************************
  3788. 150 IF END #3 THEN 1360
  3789. OPEN FIL$(5) + ":" + CLIENT$ + "TRI.FIL" RECL 68 AS 3
  3790. 1310.1 X.TRI.SEG%=0
  3791. 1315 IF END #3 THEN 1355
  3792. 1320 READ #3,X.TRI.SEG%+1;A5,A1,T$
  3793. IF A5 = 9999999.99 THEN 1355
  3794. 1325 X.TRI.SEG%=X.TRI.SEG%+1
  3795. 1350 GOTO 1320
  3796. REM WRITE END OF FILE MARKER Menu " : \
  3797. REM GOSUB 2100 : \
  3798. REM FLD.LEN% = 1 : GOSUB 9998: \
  3799. REM CHAIN PGM$(1) + ":AMENU"
  3800. REM *********************************************************************
  3801. HOLE(1) = 3
  3802. CHAIN PGM$(1) + ":SORT"
  3803. 3000 REM *************************** CLOSING ALL FILES WITH CHAIN
  3804. CHAIN PGM$(1) + ":" + "ETRIAL2"
  3805. 3001 CHAIN PGM$(1) + ":" + "AMENU"
  3806. %INCLUDE NFLANKS.BAS
  3807. %INCLUDE 5000
  3808. REM 040883 - DCF FIXED BUG CODE #040883-3-IMP , ADDED A CHECK FOR VALID
  3809. REM INPUT OF NUMBERS FOR THE NO. OF SPACES BETWEEN ACCOUNTS
  3810. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  3811. REM FLANKS TO NFLANKS
  3812. REM
  3813. REM 021783 - (RCB) REMOVED UNNEEDED 9999 SUBROUTINE AT END
  3814. REM
  3815. REM *** 9/25/82 DCF - FIXED NEW ACCOUNT BUG
  3816. REM *** 9/20/82 DCF - FIXED HEADING(NEW BALANCE)
  3817. REM *** 9/14/82 DTK - FIXED ACCT#'S PROMPT
  3818. REM ***
  3819. 1 REM *** PROGRAM TO PRINT AAS BEEN PRINTED
  3820. REM NEW.ACCT.FLAG=1 THERE IS A NEW ACCOUNT
  3821. REM *** SETTING VARIABLES ***
  3822. P=1 : P1=50 : F1=1 : NET.PROFIT.FLAG=0 : DEPART.NO.FLAG=0
  3823. 26 GOSUB 9005
  3824. 27 REM ******************************** OPENING CLNRNM, TRINFO, COANS AND FSHEADS FILES
  3825. OPEN FIL$(2) + ":" + CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL=1
  3826. OPEN FIL$(5) + ":" + CLIENT$ + "TRI.FIL" RECL 68 AS 3 : TRINFO.FIL=3
  3827. OPEN FIL$(7) + ":" + CLIENT$ + "FSH.FI************* CHECKING TO SEE IF TRANSACTIONS ARE SORTED
  3828. X1=0 : R2=-1
  3829. IF END #TRINFO.FIL THEN 1910
  3830. 1610 READ #TRINFO.FIL;\
  3831. TRAN.ACT.NO,\
  3832. TRAN.AMT,\
  3833. TRANS.DT.REF.DESCRIP$
  3834. IF TRAN.ACT.NO = 9999999.99 THEN 1910
  3835. IF TRAN.ACT.NO < R2 THEN 1810
  3836. R2 = TRAN.ACT.NO
  3837. GOTO 1610
  3838. 1810 X1=1
  3839. 1910 TRAN.ACT.NO=0
  3840. IF X1=0 THEN 3000
  3841. 1915 GOSUB 9005
  3842. 1918 PRINT : PRINT : PRINT "NOW SORTING THE TRANSACTIONS INTO ACCIF IT NEEDS IT OR NOT
  3843. 1355 PRINT #3,X.TRI.SEG%+1;9999999.99,0,"End of TRI-GENLED"
  3844. 1360 CLOSE 3
  3845. IF X.TRI.SEG%<1 THEN \
  3846. ERR$ = "File Cannot Be Sorted Without Transactions":\
  3847. GOSUB 2000 : \
  3848. MSSG$ = "Press RETURN to Return to Accounting Menu " : \
  3849. GOSUB 2100 : \
  3850. FLD.LEN% = 1 : GOSUB 9998: \
  3851. CHAIN PGM$(1) + ":AMENU"
  3852. IF X.TRI.SEG%<2 THEN CHAIN "GENLED2"
  3853. REM ERR$ = "File Cannot Be Sorted Without Transactions":\
  3854. REM GOSUB 2000 : \
  3855. REM MSSG$ = "Press RETURN to Return to Accounting邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋 WORKING TRIAL BALANCE (VER 3.61) ETRIAL2
  3856. REM *** COPYRIGHT 1982 BY Dimis Micro Systems Inc..
  3857. REM *** PART 2 OF WORKING TRIAL BALANCE
  3858. REM *** PRINTS THE WORKING TRIAL BALANCE REPORT
  3859. %INCLUDE COMMON.BAS
  3860. 10 REM *** FLAG DESCRIPTIONS ***
  3861. REM 1=TRUE AND 0=FALSE
  3862. REM DEPART.NO.FLAG=1 THERE ARE DEPARTMENTAL CLIENTS
  3863. REM NET.PROFIT.FLAG=1 THE NET PROFIT HEADER HAS BEEN REACHED
  3864. REM PROFIT.YR.TO.DT.FLAG=1 THE NET PROFIT HL" RECL 94 AS 4 : FSHEADS.FIL=4
  3865. OPEN FIL$(4) + ":" + CLIENT$ + "COA.FIL" RECL 65 AS 2 : COANS.FIL=2
  3866. GOSUB 5000
  3867. 710 PRINT : PRINT"HOW MANY SPACES WOULD YOU LIKE PRINTED BETWEEN THE ACCT #'S (1-6) >";:FLD.LEN%=-1
  3868. GOSUB 9998 : PRINT : NO.OF.SPACES=VAL(REPLY$)
  3869. IF NO.OF.SPACES < 1 OR NO.OF.SPACES > 6 THEN GOTO 750 ELSE GOTO 811
  3870. 750 PRINT : PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
  3871. FOR XE = 1 TO 250 : NEXT XE : GOTO 710
  3872. 811 PRINT : PRINT "ENTER THE PERIOD ENDING DATE (MMDDYY) > <";
  3873. 812 J=6
  3874. 813 FOR Z=1 TO J+2
  3875. PRINT CHR$(8);
  3876. NEXT Z
  3877. 814 PRINT ">";:FLD.LEN%=-6 : GOSUB 9998 : PRINT
  3878. PER.END.DATE$=LEFT$(REPLY$+" ",6)
  3879. 816 FOR J=1 TO 6
  3880. IF MID$(PER.END.DATE$,J,1) < "0" THEN 818
  3881. IF MID$(PER.END.DATE$,J,1) > "9" THEN 818
  3882. NEXT J
  3883. IF MID$(PER.END.DATE$,1,1) ="0" THEN 816.1
  3884. IF MID$(PER.END.DATE$,1,1) <> "1" THEN 818
  3885. IF MID$(PER.END.DATE$,2,1) > "2" THEN GOTO 818 ELSE GOTO 817
  3886. 816.1 IF MIADER
  3887. IF END #FSHEADS.FIL THEN 870
  3888. 855 READ #FSHEADS.FIL;\
  3889. HEADER.NO,\
  3890. HEADER.DESCRIP$,\
  3891. HEADER.CONTROL.CHAR$
  3892. IF HEADER.NO = -1 THEN 870
  3893. IF MID$(HEADER.CONTROL.CHAR$,3,1)<> "P" THEN GOTO 855 ELSE GOTO 900
  3894. 870 PRINT : PRINT : PRINT :
  3895. PRINT CHR$(7);"NET PROFIT HEADER NOT FOUND!"
  3896. PRINT "PRESS RETURN TO RETURN TO MENU";:FLD.LEN%=1 : GOSUB 9998 : PRINT
  3897. GOTO 4515
  3898. 900 GOSUB 9005
  3899. PRINT : PRINT : PRINT : PRINT : PRINT TAB(18);******** READING ACCOUNTS
  3900. IF END #COANS.FIL THEN 2710.5
  3901. 2710.2 READ #COANS.FIL;\
  3902. ACCT.NUM,\
  3903. CUR.PER.BAL,\
  3904. YR.TO.DATE.BAL,\
  3905. ACCT.DESCRIP$
  3906. IF ACCT.NUM = -1 THEN 2710.5
  3907. GOTO 2711
  3908. 2710.5 ACCT.NUM=1000000
  3909. 2711 IF DEPART.NO.FLAG=1 THEN 2810
  3910. 2712 REM ********************************** CHECKING FOR DEPARTMENTS
  3911. DEPART.NO=INT(ACCT.NUM/10000)
  3912. IF DEPART.NO=0 THEN 2713
  3913. DEPART.NO.FLAG=1
  3914. DEPARRAN.ACT.NO < ACCT.NUM THEN 3210
  3915. 3110 REM ************************ THERE ARE NO MORE TRANSACTIONS FOR AN ACCOUNT
  3916. ACCT.NUM.HOLD = ACCT.NUM : ACCT.DESCRIP.HOLD$ = ACCT.DESCRIP$
  3917. YR.TO.DATE.BAL.HOLD = YR.TO.DATE.BAL : CUR.PER.BAL.HOLD = CUR.PER.BAL
  3918. 3114 GOTO 3410
  3919. 3210 REM ************************ CREATING A NEW ACCOUNT
  3920. ACCT.DESCRIP.HOLD$ = "NEW ACCOUNT" : YR.TO.DATE.ACCUM=0
  3921. ACCT.NUM.HOLD = TRAN.ACT.NO
  3922. 3214 CUR.PER.BAL=0 : NEW.ACCT.FLAG=1 : GOTO 3310
  3923. 3300 NEW.ACCT.FLEN 3400
  3924. 3316 GOTO 3000
  3925. 3400 YR.TO.DATE.ACCUM = YR.TO.DATE.ACCUM + TRAN.AMT : GOTO 3311
  3926. 3410 IF ACCT.NUM.HOLD > HEADER.NO AND NET.PROFIT.FLAG=1 THEN 3710
  3927. 3411 IF ACCT.NUM.HOLD > HEADER.NO AND PROFIT.YR.TO.DT.FLAG=0 THEN 3710
  3928. 3500 IF NEW.ACCT.FLAG=1 THEN 3512
  3929. 3510 REM ****************************** TOTALING PROFIT YEAR TO DATE
  3930. YR.TO.DATE.ACCUM = YR.TO.DATE.ACCUM+YR.TO.DATE.BAL.HOLD
  3931. 3512 TOTAL.BAL.ACCUM = TOTAL.BAL.ACCUM + YR.TO.DATE.ACCUM
  3932. PROFIT.YR.TO.DATE.ACCUM = PROFIT.YR.TO.DATE.ACCUM D$(PER.END.DATE$,2,1) < "1" THEN 818
  3933. 817 IF MID$(PER.END.DATE$,3,1) > "3" THEN 818
  3934. IF MID$(PER.END.DATE$,3,1) <> "3" THEN 819
  3935. IF MID$(PER.END.DATE$,4,1) > "1" THEN GOTO 818 ELSE GOTO 819
  3936. 818 PRINT CHR$(7);"INVALID DATE - TRY AGAIN!"
  3937. PER.END.DATE$="INVALI"
  3938. 819 IF PER.END.DATE$ ="INVALI" THEN 811
  3939. 819.1 PRINT : PRINT "SET THE PRINTER AND PAPER"
  3940. 820 PRINT"PRESS RETURN TO CONTINUE";:FLD.LEN%=1 : GOSUB 9998 : PRINT
  3941. 850 REM ****************************** CHECKING FOR PROFIT HE"NOW PRINTING THE WORKING TRIAL BALANCE..."
  3942. 2618.1 LPRINTER
  3943. REM ******************************* PRINT HEADING
  3944. GOSUB 4710
  3945. 2619 REM ******************************* READING TRANSACTIONS
  3946. IF END #TRINFO.FIL THEN 2650
  3947. 2621 READ #TRINFO.FIL;\
  3948. TRAN.ACT.NO,\
  3949. TRAN.AMT,\
  3950. TRANS.DT.REF.DESCRIP$
  3951. IF TRAN.ACT.NO = 9999999.99 THEN 2650
  3952. GOTO 2710
  3953. 2650 TRAN.ACT.NO=1000000
  3954. 2710 REM ***********************T.NO.HOLD = DEPART.NO
  3955. 2713 GOTO 2910
  3956. 2810 DEPART.NO=INT(ACCT.NUM/10000)
  3957. IF DEPART.NO=0 THEN 2910
  3958. IF DEPART.NO=DEPART.NO.HOLD THEN 2910
  3959. IF ACCT.NUM=1000000 THEN 2910
  3960. GOSUB 7010
  3961. PRINT CHR$(12);
  3962. GOSUB 4710
  3963. DEPART.NO.HOLD=DEPART.NO
  3964. 2910 IF ACCT.NUM=1000000 AND TRAN.ACT.NO=1000000 THEN 4110
  3965. IF TRAN.ACT.NO=1000000 THEN 3110
  3966. 3000 IF NEW.ACCT.FLAG=1 AND TRAN.ACT.NO >= ACCT.NUM THEN 3410
  3967. IF TRAN.ACT.NO = ACCT.NUM THEN 3310
  3968. IF TAG=0
  3969. IF TRAN.ACT.NO=1000000 THEN 2910
  3970. 3310 YR.TO.DATE.ACCUM = YR.TO.DATE.ACCUM + TRAN.AMT
  3971. 3311 IF END #TRINFO.FIL THEN 3312
  3972. 3311.2 READ #TRINFO.FIL;\
  3973. TRAN.ACT.NO,\
  3974. TRAN.AMT,\
  3975. TRANS.DT.REF.DESCRIP$
  3976. IF TRAN.ACT.NO = 9999999.99 THEN 3312
  3977. GOTO 3313
  3978. 3312 TRAN.ACT.NO=1000000
  3979. 3313 IF NEW.ACCT.FLAG=1 AND ACCT.NUM.HOLD < TRAN.ACT.NO THEN 3512
  3980. IF ACCT.NUM.HOLD <> TRAN.ACT.NO THEN 3000
  3981. 3314 IF TRAN.ACT.NO < ACCT.NUM TH+ YR.TO.DATE.ACCUM
  3982. 3513 IF F1=1 THEN 3610
  3983. 3514 FOR I3 = 1 TO NO.OF.SPACES
  3984. 3515 PRINT
  3985. 3516 NEXT
  3986. 3610 REM ********************************** PRINTING ACCOUNTS
  3987. PRINT USING "######.##";ACCT.NUM.HOLD;
  3988. PRINT TAB(12);ACCT.DESCRIP.HOLD$;
  3989. PRINT TAB(32);
  3990. PRINT USING "##########.##";YR.TO.DATE.ACCUM/100;
  3991. PRINT TAB(55);" \ ";
  3992. PRINT TAB(68);" \ "
  3993. F1=0
  3994. P1=P1-(NO.OF.SPACES+1)
  3995. YR.TO.DATE.ACCUM = 0
  3996. IF P1<0 THEN GOSUB 4610
  3997. 3645 IF NEW.ACCT.FLAG=1 AND TRAN.ACT.NO < ACCT.NUM THEN 3210
  3998. 3650 IF NEW.ACCT.FLAG=1 THEN 3300
  3999. 3700 GOTO 2710
  4000. 3710 IF END #FSHEADS.FIL THEN 3810
  4001. 3711 READ #FSHEADS.FIL;\
  4002. HEADER.NO,\
  4003. HEADER.DESCRIP$,\
  4004. HEADER.CONTROL.CHAR$
  4005. IF HEADER.NO = -1 THEN 3810
  4006. 3712 IF MID$(HEADER.CONTROL.CHAR$,3,1)<>"P" THEN GOTO 3711 ELSE GOTO 3910
  4007. 3810 NET.PROFIT.FLAG=0
  4008. GOTO 4010
  4009. 3910 NET.PROFIT.FLAG=1
  4010. 4010 PRINT TAB(34);"-----------"
  4011. 4011 PRINT
  4012. 4012 PRINT TAB(12);"PROFIT YEAR TO GOTO 4312 ELSE GOTO 4210
  4013. 4210 PRINT
  4014. 4211 PRINT
  4015. 4212 PRINT TAB(12);"STATEMENT IS IN BALANCE"
  4016. 4214 GOTO 4400
  4017. 4312 PRINT : PRINT
  4018. PRINT TAB(12);"OUT OF BALANCE BY";
  4019. PRINT TAB(32);
  4020. PRINT USING "##########.##";TOTAL.BAL.ACCUM/100
  4021. 4313 REM *************************** CLOSING ALL FILES
  4022. 4400 CLOSE CLNRNM.FIL
  4023. CLOSE TRINFO.FIL
  4024. CLOSE FSHEADS.FIL
  4025. CLOSE COANS.FIL
  4026. PRINT CHR$(12);
  4027. 4410 GOSUB 9005
  4028. 4515 CONSOLE
  4029. CHAIN PGM$(1) + ":" + "AMENU"
  4030. 4610 PRINT
  4031. 4911 PRINT " ACCT # DESCRIPTION YEAR TO DATE DEBITS CREDITS NEW BALANCE"
  4032. PRINT "--------------------------------------------------------------------------------"
  4033. P=P+1 : P1=50 : F1=1
  4034. RETURN
  4035. 5610 PRINT" PRESS RETURN TO CONTINUE ";:FLD.LEN%=1 : GOSUB 9998 : PRINT
  4036. 5611 RETURN
  4037. 5615 CONSOLE
  4038. PRINT : PRINT : PRINT : PRINT "THERE ARE NO TRANSACTIONS IN THE TRINFO FILE"
  4039. TRAN.ACT.NO=1000000
  4040. GOSUB 4710
  4041. GOTO 2710
  4042. 5710 PRINT CHR$(7);CUM=0
  4043. RETURN
  4044. 7110 FOR Z=1 TO J+2
  4045. PRINT CHR$(8);
  4046. NEXT Z
  4047. RETURN
  4048. 7210 FOR J=1 TO 6
  4049. IF MID$(PER.END.DATE$,J,1) < "0" THEN 7510
  4050. IF MID$(PER.END.DATE$,J,1) > "9" THEN 7510
  4051. NEXT J
  4052. IF MID$(PER.END.DATE$,1,1)="0" THEN 7310
  4053. IF MID$(PER.END.DATE$,1,1)<>"1" THEN 7510
  4054. IF MID$(PER.END.DATE$,2,1)>"2" THEN GOTO 7510 ELSE GOTO 7410
  4055. 7310 IF MID$(PER.END.DATE$,2,1)<"1" THEN 7510
  4056. 7410 IF MID$(PER.END.DATE$,3,1)>"3" THEN 7510
  4057. IF MID$(PER.REM 091583 - (RCB) CHANGED DATE$ TO XE.DATE$ FOR CB80 VERSION 2.0
  4058. REM
  4059. REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Microsystems"
  4060. REM
  4061. REM 052283 - BTC ADDED Dimis Micro Systems HEADING
  4062. REM
  4063. REM 042283 - DCF FIXED BUG #7-041483-4-IMP BY ADDING ONE MORE . TO THE CLIENT.NO
  4064. REM NAME AND ADDRESS FIELDS DISPLAYED ON THE SCREEN.
  4065. REM
  4066. REM 042083 - DCF FIXED BUG #15-041583-3-IMP BY CHECKING THE WHOLE RESPONSE ENTERED
  4067. REM INSTEAD OF JUST THE FIRST CHARACTER
  4068. REM 041983DATE";
  4069. PRINT TAB(32);
  4070. PRINT USING "###########.##";PROFIT.YR.TO.DATE.ACCUM/100;
  4071. PRINT TAB(55);"\";
  4072. PRINT TAB(68);"\"
  4073. 4015 PROFIT.YR.TO.DATE.ACCUM=0
  4074. 4016 P1=P1-5
  4075. 4017 PROFIT.YR.TO.DT.FLAG=1
  4076. 4018 GOSUB 4610
  4077. 4019 GOTO 3500
  4078. 4110 PRINT TAB(34);"-----------"
  4079. 4111 PRINT
  4080. 4112 PRINT TAB(12);"PROFIT YEAR TO DATE";
  4081. PRINT TAB(32);
  4082. PRINT USING "##########.##";(PROFIT.YR.TO.DATE.ACCUM/100);
  4083. PRINT TAB(55);"\";
  4084. PRINT TAB(68);"\"
  4085. 4115 IF TOTAL.BAL.ACCUM/100 <> 0 THENCHR$(12);
  4086. 4710 FOR L=40 TO 1.0 STEP -1.0
  4087. IF MID$(CLIENT.NAME$,L,1) <> " " THEN 4810
  4088. NEXT L
  4089. 4810 PRINT "CLIENT # ";
  4090. PRINT USING "######";CLIENT.NO;
  4091. PRINT TAB((85-L)/2);MID$(CLIENT.NAME$,1,L);
  4092. PRINT TAB(70);" PAGE ";
  4093. PRINT USING "##";P
  4094. 4811 PRINT TAB(32);"WORKING TRIAL BALANCE"
  4095. 4812 PRINT TAB(31);"PERIOD ENDING ";
  4096. PRINT MID$(PER.END.DATE$,1,2);
  4097. PRINT "/";
  4098. PRINT MID$(PER.END.DATE$,3,2);
  4099. PRINT "/";
  4100. PRINT MID$(PER.END.DATE$,5,2)
  4101. 4910 PRINT
  4102. 6311 PRINT "PRESS RETURN TO GO TO ACCOUNTING MENU";:FLD.LEN%=1 : GOSUB 9998 : PRINT
  4103. GOTO 4515
  4104. 6411 INPUT" THEN PRESS RETURN";M$
  4105. RETURN
  4106. 6510 PRINT "PLEASE CORRECT - THEN PRESS RETURN";:FLD.LEN%=1 : GOSUB 9998 : PRINT
  4107. RETURN
  4108. 7010 PRINT TAB(35);"-----------"
  4109. PRINT
  4110. PRINT TAB(12);"PROFIT YEAR TO DATE";
  4111. PRINT TAB(32);
  4112. PRINT USING "##########.##";PROFIT.YR.TO.DATE.ACCUM/100;
  4113. PRINT TAB(55);"\";
  4114. PRINT TAB(68);"\"
  4115. PROFIT.YR.TO.DATE.ACEND.DATE$,3,1)<>"3" THEN 7610
  4116. IF MID$(PER.END.DATE$,4,1)>"1" THEN GOTO 7510 ELSE GOTO 7610
  4117. 7510 PRINT CHR$(7),"INVALID DATE - TRY AGAIN!"
  4118. H$="INVALI"
  4119. 7610 RETURN
  4120. %INCLUDE NFLANKS.BAS
  4121. %INCLUDE 5000
  4122. 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋 - DCF FIXED BUG #13-041583-3-IMP BY CHANGING EER$ TO ERR$
  4123. REM
  4124. REM 041983 - DCF FIXED BUG #8-041583-3-IMP BY ADDING A UCASE$ TO REPLY
  4125. REM
  4126. REM 041983 - DCF FIXED BUG #6-041583-3-IMP BY CHANGING EER$ TO ERR$
  4127. REM
  4128. REM 041983- DCF FIXED BUG #4-041583-3-IMP BY ALLOWING ONLY NUMERIC INPUT
  4129. REM
  4130. REM 041983 - DCF FIXED BUG #5-041583-3-IMP BY ADDING A UCASE$ TO REPLY
  4131. REM
  4132. REM 041983 - DCF FIXED BUG #3-041583-3-IMP BY CHANGING EER$ TO ERR$
  4133. REM
  4134. REM 041983 - DCF FIXED BUG #10-041583-3-IMP BY CHECKING WHOLE REPLY INSTEAD OF
  4135. REM FIRST CHARACTER OF REPLY
  4136. REM 041983 - DCF FIXED BUG #12-041583-3-IMP BY ALLOWING ONLY NUMBER INPUT
  4137. REM
  4138. REM 041983 - DCF FIXED BUG #14-041583-3-IMP BY CHANGING EER$ TO ERR$
  4139. REM
  4140. REM 041983 - DCF FIXED BUG # 0-041583-3IMP BY ADDING AN ERROR TRAP FOR Y OR
  4141. REM N ONLY
  4142. REM
  4143. REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
  4144. REM FLANKS TO NFLANKS
  4145. REM
  4146. REM 022383 - (RCB) LIMIT CLIENT NAMES TO A-Z AND 0-9
  4147. REM
  4148. REM ***02/0T FIX - ADD DATES
  4149. REM ***
  4150. REM *** 9/21/82 DTK - NOW FUDGE PACK CLIENT$ WITH @'S
  4151. REM ***
  4152. REM *** 9/20/82 DTK - FIXED CHANGE <> FALSE ON ADDITION AFTER EDIT
  4153. REM ***
  4154. REM *** 9/17/82 DTK - FIXED CHAZ SHEET 917.1
  4155. REM ***
  4156. REM *** 9/10/82 DTK - FIXED HDGINGS AND CHAINED TO AMENU OR CPA MENU OPTIONS
  4157. REM *** ADDED CLIENT ID TO SCREEN DISPLAY
  4158. REM ***
  4159. REM *** NCLIENT - PROGRAM TO CREATE AND DELETE CLIENTS
  4160. REM ***
  4161. %INCLUDE COMMON.BAS
  4162. TRUE = -1 : FALSE = NOT TRUE : CHANGE = FALSE
  4163. FUNCTION WOULD YOU LIKE TO PERFORM?"
  4164. PRINT TAB(12);" 1. Create New Client data files"
  4165. PRINT TAB(12);" 2. Delete Client data files"
  4166. PRINT TAB(12);" 3. Edit Client Information"
  4167. PRINT TAB(12);" 4. Create New Auxiliary data files"
  4168. PRINT TAB(12);" 5. Delete Auxiliary data files"
  4169. PRINT TAB(12);" 6. Return to CPA Menu"
  4170. PRINT TAB(12);"Current Active Client is ";
  4171. IF MATCH("@",CLIENT$,1) = 0 THEN PRINT CLIENT$ ELSE \
  4172. PRINT LEFT$(CLIENT$,MATCH("@",CLIENT$,1)-1)
  4173. PRILOSE 1
  4174. CHAIN PGM$(1)+":AMENU"
  4175. 750 REM **************** MAIN EXIT ROUTINE
  4176. CLOSE 1
  4177. CHAIN PGM$(1)+":MMENU"
  4178. 1000 REM ********************************* ADD NEW CLIENT
  4179. 1001 CHANGE = FALSE
  4180. NCLIENT$ = "" : CLIENT.NO = 0 : CLIENT.NAME$ = ""
  4181. CLIENT.ADDR.1$ = "" : CLIENT.ADDR.2$ = "" : CLIENT.CITY.STATE$ = ""
  4182. CLIENT.ZIP$ = "" : CLIENT.TAX.NUMBER$ = "": GL.END.DATE$ = ""
  4183. PAY.END.DATE$ = "" : FISCAL.END.MO = 0
  4184. GOSUB 9005
  4185. PRINT
  4186. PRINT
  4187. PRINT
  4188. PRINT
  4189. PRINT
  4190. PRINT " 1. Client ID ......"
  4191. PRINT " 10. Fiscal Year End Month .."
  4192. PRINT " 11. Fed I.D. Number .........."
  4193. 1002 MSSG$ = "ENTER NEW CLIENT ID or Press RETURN TO QUIT" : GOSUB 2100
  4194. X% = 23 : Y% = 5 : GOSUB 9006 : FLD.LEN% = 5
  4195. GOSUB 9007 : GOSUB 9998 : NCLIENT$ = UCASE$(REPLY$)
  4196. IF LEN(NCLIENT$) = 0 THEN RETURN
  4197. 1002.2 IF LEN(NCLIENT$) < 1 OR LEN(NCLIENT$) > 5 THEN GOSUB 9006 :\
  4198. PRINT "....."; : GOSUB 9006 : \
  4199. ERR$ = "IMPROPER CLIENT ID ENTERED" : GOSUB 2000 :\
  4200. 7/83 DCF - CHANGED LOCAL DESCRIP$="*******" INSTEAD OF BLANKS
  4201. REM ***
  4202. REM ***02/01/83 DCF - CHANGED CPACTRL RECL FROM 255 TO 80
  4203. REM *** FIX CLIENT ID NOT WRITING TO FILE
  4204. REM ***
  4205. REM ***11/12/82 DTK - FIX FED ID ON EDIT AND NUMBER OVERHANG
  4206. REM ***
  4207. REM ***10/21/82 DTK - FIX GL DATE = 0 PROBLEM
  4208. REM ***
  4209. REM ***10/13/82 DTK - CREATE OR DELETE AUX FILES ONLY
  4210. REM ***
  4211. REM ***10/11/82 DTK - ADD IN CREATION OF AUX FILES
  4212. REM ***
  4213. REM *** 9/22/82 DTK - ENTER CLIENT ID TO EDIT - DELETE CURREN BLANK$ = " "
  4214. DOT$ = BLANK$
  4215. NCLIENT$ = CLIENT$
  4216. IF LEN(NCLIENT$) = 0 THEN NCLIENT$ = "NONE"
  4217. OPEN FIL$(1)+":CPACTRL.FIL" RECL 80 AS 1 : CPA.FIL = 1
  4218. 100 GOSUB 9005
  4219. FOR I% = 1 TO 5 : PRINT : NEXT I%
  4220. PRINT TAB(20);" Dimis Microsystems, Inc. "
  4221. PRINT TAB(12);" Client Programmed Accounting Ver. ";VERSION$
  4222. PRINT
  4223. REM PRINT TAB(15);" CREATE OR DELETE A CLIENT"
  4224. PRINT TAB(15);" CLIENT MAINTENANCE"
  4225. PRINT
  4226. PRINT TAB(12);"WHICH NT
  4227. PRINT TAB(12);"ENTER THE NUMBER OF THE FUNCTION TO PERFORM >";
  4228. FLD.LEN% = -1 : GOSUB 9998
  4229. REPLY = VAL(REPLY$)
  4230. IF REPLY < 1 OR REPLY > 6 THEN ERR$ = "Incorrect Entry - Enter 1,2,3,4,5 or 6 ONLY" :\
  4231. GOSUB 2000 : \
  4232. MSSG$ = "Press RETURN to Continue" : GOSUB 2100 : FLD.LEN% = 1 :\
  4233. GOSUB 9998 : GOTO 100
  4234. GOSUB 9005
  4235. FOR I = 1 TO 100
  4236. DUM$ = "HOWDY WAIT"
  4237. NEXT I
  4238. ON REPLY GOSUB 1000,2001,3000,1500,2500,750
  4239. GOTO 100
  4240. 700 REM *************************** AMENU EXIT ROUTINE
  4241. C ..... 2. Client Number ......"
  4242. PRINT
  4243. PRINT " 3. Client Name ........................................"
  4244. PRINT " 4. Address Line 1 ........................................"
  4245. PRINT " 5. Address Line 2 ........................................"
  4246. PRINT " 6. City, State ........................................"
  4247. PRINT " 7. Zip .........."
  4248. PRINT
  4249. PRINT " 8. General Ledger Balance Forward Date ......"
  4250. PRINT " 9. Payroll Balance Forward Date GOTO 1002
  4251. REM *********************************************************************
  4252. REM LIMIT CLIENT NAMES TO 0-9 AND A-Z
  4253. FOR XE.FEEL = 1 TO LEN(NCLIENT$)
  4254. IF MID$(NCLIENT$,XE.FEEL,1) <"0" OR \
  4255. MID$(NCLIENT$,XE.FEEL,1) > "Z" THEN \
  4256. NCLIENT$ = "" : GOTO 1002.2
  4257. IF MID$(NCLIENT$,XE.FEEL,1) > "9" AND \
  4258. MID$(NCLIENT$,XE.FEEL,1) < "A" THEN \
  4259. NCLIENT$ = "" : GOTO 1002.2
  4260. NEXT XE.FEEL
  4261. REM *********************************************************************
  4262. GOSUB 9009
  4263. X% = 23 : Y% = 5 : GOSUB 9006
  4264. PRINT NCLIENT$;
  4265. NCLIENT$ = UCASE$(LEFT$(NCLIENT$+"@@@@@",5))
  4266. IF CHANGE THEN GOTO 1019
  4267. 1003 MSSG$ = "ENTER NEW CLIENT NUMBER " : GOSUB 2100
  4268. X% = 56 : Y% = 5 : GOSUB 9006
  4269. FLD.LEN% = -6 : GOSUB 9007 : GOSUB 9998 : CLIENT.NO = VAL(LEFT$(REPLY$,5))
  4270. IF CLIENT.NO = 0 THEN GOTO 1003
  4271. X% = 56 : Y% = 5 : GOSUB 9006
  4272. PRINT CLIENT.NO;
  4273. IF CHANGE THEN GOTO 1019
  4274. 1004 MSSG$ = "ENTER CLIENT NAME " : GOSUB 2100
  4275. X% = 23 : Y% = 7 : GOSUB 9006
  4276. = 9 : GOSUB 9006
  4277. FLD.LEN% = 40 : GOSUB 9007
  4278. GOSUB 9998 : CLIENT.ADDR.2$ = LEFT$(REPLY$+BLANK$,40)
  4279. X% = 23 : Y% = 9 : GOSUB 9006
  4280. PRINT CLIENT.ADDR.2$;
  4281. IF CHANGE THEN GOTO 1019
  4282. 1007 MSSG$ = "ENTER CITY, STATE " : GOSUB 2100
  4283. X% = 23 : Y% = 10 : GOSUB 9006
  4284. FLD.LEN% = 40 : GOSUB 9007
  4285. GOSUB 9998 : CLIENT.CITY.STATE$ = LEFT$(REPLY$+BLANK$,40)
  4286. X% = 23 : Y% = 10 : GOSUB 9006
  4287. PRINT CLIENT.CITY.STATE$;
  4288. IF CHANGE THEN GOTO 1019
  4289. 1008 MSSG$ = "ENTER ZIP CODE " : GRR$ = "INVALID DATE ENTERED - TRY AGAIN" :\
  4290. GOSUB 2000 : GOTO 1009
  4291. GL.END.DATE$ = XE.DATE$
  4292. X% = 45 : Y% = 13 : GOSUB 9006
  4293. PRINT STR$(MON);"/";STR$(DAY);"/";STR$(YEAR);
  4294. GOSUB 9009
  4295. IF CHANGE THEN GOTO 1019
  4296. 1010 MSSG$ = "ENTER PAYROLL BALANCE FORWARD DATE (MMDDYY)" : GOSUB 2100
  4297. X% = 45 : Y% = 14 : GOSUB 9006
  4298. FLD.LEN% = -6 : GOSUB 9007
  4299. GOSUB 9998 : XE.DATE$ = RIGHT$("000000"+REPLY$,6)
  4300. IF VAL(XE.DATE$) = 0 THEN GOTO 1010
  4301. GOSUB 9200 : REM DATE VALIDATER
  4302. IF DA.MO > 12 THEN \
  4303. ERR$ = "INVALID MONTH NUMBER - TRY AGAIN" : GOSUB 2000 :\
  4304. GOTO 1011
  4305. GOSUB 9009
  4306. X% = 45 : Y% = 15 : GOSUB 9006
  4307. PRINT USING "##";FISCAL.END.MO
  4308. IF CHANGE THEN GOTO 1019
  4309. 1012 MSSG$ = "ENTER FEDERAL ID NUMBER " : GOSUB 2100
  4310. X% = 23 : Y% = 16 : GOSUB 9006
  4311. FLD.LEN% = -20 : GOSUB 9007
  4312. GOSUB 9998 : CLIENT.TAX.NUMBER$ = LEFT$(REPLY$+BLANK$,20)
  4313. X% = 23 : Y% = 16 : GOSUB 9006
  4314. PRINT CLIENT.TAX.NUMBER$;
  4315. 1019 MSSG$ = " Enter (A)ccept or Line Number to EENT$+" already active - Addition stopped"
  4316. MSSG$ = "Press RETURN to Continue"
  4317. GOSUB 2000 : GOSUB 2100 : FLD.LEN% = 1 : GOSUB 9998
  4318. CLOSE 7
  4319. RETURN
  4320. 1019.1 CREATE FIL$(2)+":"+NCLIENT$+"CLN.FIL" RECL 255 AS 7 : CLNRNM.FIL = 7
  4321. LOCAL.DESC$="************"
  4322. PRINT #CLNRNM.FIL,1;\
  4323. CLIENT.NO,\
  4324. CLIENT.NAME$,\
  4325. GL.END.DATE$,\
  4326. PAY.END.DATE$,\
  4327. FISCAL.END.MO,\
  4328. A9.III,\
  4329. PERIOD.TO.ADJ,\
  4330. RUN.NUMBER,\
  4331. MAX.FICA.WAGES,\
  4332. MAX.ST.UNEMP,\
  4333. MAX.FED.UNEMP,\
  4334. MAX.ST.DIS FLD.LEN% = 40 : GOSUB 9007 : GOSUB 9998 : CLIENT.NAME$ = LEFT$(REPLY$+BLANK$,40)
  4335. X% = 23 : Y% = 7 : GOSUB 9006
  4336. PRINT CLIENT.NAME$;
  4337. IF CHANGE THEN GOTO 1019
  4338. 1005 MSSG$ = "ENTER ADDRESS LINE 1" : GOSUB 2100
  4339. X% = 23 : Y% = 8 : GOSUB 9006
  4340. FLD.LEN% = 40 : GOSUB 9007
  4341. GOSUB 9998 : CLIENT.ADDR.1$ = LEFT$(REPLY$+BLANK$,40)
  4342. X% = 23 : Y% = 8 : GOSUB 9006
  4343. PRINT CLIENT.ADDR.1$;
  4344. IF CHANGE THEN GOTO 1019
  4345. 1006 MSSG$ = "ENTER ADDRESS LINE 2" : GOSUB 2100
  4346. X% = 23 : Y%OSUB 2100
  4347. X% = 23 : Y% = 11 : GOSUB 9006
  4348. FLD.LEN% = 11 : GOSUB 9007
  4349. GOSUB 9998 : CLIENT.ZIP$ = LEFT$(REPLY$+BLANK$,10)
  4350. X% = 23 : Y% = 11 : GOSUB 9006
  4351. PRINT CLIENT.ZIP$;
  4352. IF CHANGE THEN GOTO 1019
  4353. 1009 MSSG$ = "ENTER G/L BALANCE FORWARD DATE (MMDDYY)" : GOSUB 2100
  4354. X% = 45 : Y% = 13 : GOSUB 9006
  4355. FLD.LEN% = -6 : GOSUB 9007
  4356. GOSUB 9998 : XE.DATE$ = RIGHT$("000000"+REPLY$,6)
  4357. IF VAL(XE.DATE$) = 0 THEN GOTO 1009
  4358. GOSUB 9200 : REM DATE VALIDATER
  4359. IF DATE = 0 THEN ETE = 0 THEN ERR$ = "INVALID DATE ENTERED - TRY AGAIN" :\
  4360. GOSUB 2000 : GOTO 1010
  4361. PAY.END.DATE$ = XE.DATE$
  4362. X% = 45 : Y% = 14 : GOSUB 9006
  4363. PRINT STR$(MON);"/";STR$(DAY);"/";STR$(YEAR);
  4364. GOSUB 9009
  4365. IF CHANGE THEN GOTO 1019
  4366. 1011 MSSG$ = "ENTER FISCAL YEAR END MONTH NUMBER (1-12)"
  4367. X% = 45 : Y% = 15 : GOSUB 9006
  4368. FLD.LEN% = -2 : GOSUB 9007
  4369. GOSUB 9998 : FISCAL.END.MO = VAL(REPLY$)
  4370. IF FISCAL.END.MO <> INT(FISCAL.END.MO) OR \
  4371. FISCAL.END.MO < 1 OR \
  4372. FISCAL.ENDdit "
  4373. GOSUB 2100 : FLD.LEN% = 3 : GOSUB 9998
  4374. IF UCASE$(LEFT$(REPLY$,1)) = "A" THEN GOTO 1020
  4375. REPLY = VAL(REPLY$)
  4376. IF REPLY > 11 OR REPLY < 1 THEN \
  4377. ERR$ = "INCORRECT INPUT - TRY AGAIN!" : GOSUB 2000 : \
  4378. GOTO 1019
  4379. CHANGE = TRUE
  4380. ON REPLY GOTO 1002,1003,1004,1005,1006,1007,1008,1009,1010,1011,1012
  4381. 1020 CLIENT$ = NCLIENT$
  4382. PRINT #CPA.FIL,3;CLIENT$
  4383. IF END # 7 THEN 1019.1
  4384. OPEN FIL$(2)+":"+NCLIENT$+"CLN.FIL" RECL 255 AS 7
  4385. ERR$ = "Client "+NCLI.WAGES,\
  4386. EMP.FICA.RATE,\
  4387. ST.UNEMP.RATE,\
  4388. FED.UNEMP.RATE,\
  4389. ST.DIS.RATE,\
  4390. LOCAL.DESC$,\
  4391. TYPE.OF.RUN,\
  4392. TIPS.F.U.I,\
  4393. MEALS.LDG.TO.ST.UNEMP,\
  4394. TIPS.TO.ST.UNEMP,\
  4395. ST.DIS.FLG,\
  4396. MEALS.LDG.TO.SDI,\
  4397. TIPS.TO.SDI,\
  4398. ST.UNEMP.CONT.FLG,\
  4399. FORMAT.1,\
  4400. FORMAT.2,\
  4401. TIP.CONT.SHEET,\
  4402. RESERVED,\
  4403. SERIAL.NUMBER
  4404. PRINT #CLNRNM.FIL,2;0,0,0
  4405. PRINT #CLNRNM.FIL,3;CLIENT.NAME$,CLIENT.ADDR.1$,CLIENT.ADDR.2$,CLIENT.CITY.STATE$,CLIENT.ZIP$
  4406. PRINT #CLNRNM.FIL,4;CLIENT.TAX.NUMBER$
  4407. CREATE FIL$(3)+":"+NCLIENT$+"EAR.FIL" RECL 360 AS 2
  4408. CREATE FIL$(4)+":"+NCLIENT$+"COA.FIL" RECL 43 AS 4
  4409. CREATE FIL$(5)+":"+NCLIENT$+"TRI.FIL" RECL 68 AS 5
  4410. CREATE FIL$(6)+":"+NCLIENT$+"PAS.FIL" RECL 175 AS 3
  4411. CREATE FIL$(7)+":"+NCLIENT$+"FSH.FIL" RECL 94 AS 6
  4412. CLOSE 2,3,4,5,6,7
  4413. 1025 INITIALIZE
  4414. MSSG$ = "Place the Auxiliary Data Disk into Drive " + FIL$(9) + " or "
  4415. GOSUB 2100 : PRINT : PRINT TAB(18);"Enter (N)o to skip Auxiliary Creation and Press RETURN ";
  4416. FLD.S ONLY TO CURRENT
  4417. MSSG$ = "Enter Client ID to CREATE Auxiliary files >"
  4418. GOSUB 2100 : FLD.LEN% = 5 : GOSUB 9998
  4419. NCLIENT$ =UCASE$(REPLY$)
  4420. IF LEN(NCLIENT$) < 1 OR LEN(NCLIENT$) > 5 THEN \
  4421. ERR$ = "IMPROPER CLIENT ID ENTERED" :\
  4422. GOTO 1500
  4423. GOSUB 9009
  4424. NCLIENT$ = UCASE$(LEFT$(REPLY$+"@@@@@",5))
  4425. IF END #2 THEN 2020
  4426. OPEN FIL$(2)+":"+NCLIENT$+"CLN.FIL" RECL 255 AS 2 : CLNRNM.FIL = 2
  4427. GOSUB 5000
  4428. CLOSE 2
  4429. GOTO 1025
  4430. 2001 REM ************************************* DELETE CURRENT ID
  4431. L,4;CLIENT.TAX.NUMBER$
  4432. CLOSE 2
  4433. XE.DATE$ = GL.END.DATE$
  4434. XE.DATE$ = LEFT$(DATE$,6)
  4435. XE.DATE$ = RIGHT$("000000"+XE.DATE$,6)
  4436. GOSUB 9200
  4437. GL.DATE$ = STR$(MON)+"/"+STR$(DAY)+"/"+STR$(YEAR)
  4438. XE.DATE$ = PAY.END.DATE$
  4439. XE.DATE$ = LEFT$(XE.DATE$,6)
  4440. XE.DATE$ = RIGHT$("000000"+XE.DATE$,6)
  4441. GOSUB 9200
  4442. PR.DATE$ = STR$(MON)+"/"+STR$(DAY)+"/"+STR$(YEAR)
  4443. GOSUB 9005
  4444. PRINT
  4445. PRINT
  4446. PRINT
  4447. PRINT
  4448. PRINT
  4449. PRINT " 1. Client ID ";NCLIENT$;" 2. Client Number ";CLIENT.NO
  4450. PRINT
  4451. PRSSG$ = "Do You want to DELETE this Client ?" : GOSUB 2100
  4452. FLD.LEN% = 1 : GOSUB 9998
  4453. IF UCASE$(REPLY$) = "N" THEN GOTO 100
  4454. IF UCASE$(REPLY$) = "Y" THEN GOTO 2003.1
  4455. ERR$ = "INVALID INPUT - Y OR N ONLY!"
  4456. GOSUB 2000: GOTO 2003.2
  4457. 2003.1 MSSG$ = "Confirm your intentions by typing DELETE " : GOSUB 2100
  4458. FLD.LEN% = 7 : GOSUB 9998
  4459. IF UCASE$(REPLY$) <> "DELETE" THEN RETURN
  4460. OPEN FIL$(2)+":"+NCLIENT$+"CLN.FIL" RECL 255 AS 7
  4461. OPEN FIL$(3)+":"+NCLIENT$+"EAR.FIL" RECL 36000
  4462. RETURN
  4463. 2010 REM ******************************* AUX DATA DISK NOT LOADED
  4464. INITIALIZE
  4465. MSSG$ = "Place the Auxiliary Data Disk into Drive " + FIL$(9) + " or "
  4466. GOSUB 2100
  4467. PRINT
  4468. PRINT TAB(12);"Enter (N)o to skip Auxiliary Deletion and Press RETURN ";
  4469. FLD.LEN% = 2 : GOSUB 9998
  4470. INITIALIZE
  4471. IF UCASE$(REPLY$) = "N" THEN GOTO 2009.2
  4472. GOTO 2009.1
  4473. 2020 REM ******************************* ERROR OPENING DELETE CLNRNM.FIL
  4474. ERR$ = "Client Doesn't Exist on Disk"
  4475. MSSG$ = "PresLEN% = 2 : GOSUB 9998
  4476. INITIALIZE
  4477. IF UCASE$(REPLY$) = "N" THEN RETURN
  4478. CREATE FIL$(8)+":"+NCLIENT$+"ACC.FIL" RECL 255 AS 8
  4479. CREATE FIL$(9)+":"+NCLIENT$+"FMT.FIL" RECL 100 AS 9
  4480. PRINT #9,1;"-1",0.05
  4481. CREATE FIL$(10)+":"+NCLIENT$+"CON.FIL" RECL 142 AS 10
  4482. PRINT #10,1;CLIENT.NO,CLIENT.NAME$,O1,12,\
  4483. "000000000000000000000000000000000000000000000000000000000000000000000000000000"
  4484. CLOSE 8,9,10
  4485. GOSUB 8000
  4486. RETURN
  4487. 1500 REM ************************************* ADD AUX FILE2002 MSSG$ = "Enter Client ID to DELETE >"
  4488. GOSUB 2100 : FLD.LEN% = 5 : GOSUB 9998
  4489. NCLIENT$ =UCASE$(REPLY$)
  4490. IF LEN(NCLIENT$) < 1 OR LEN(NCLIENT$) > 5 THEN \
  4491. ERR$ = "IMPROPER CLIENT ID ENTERED" :\
  4492. GOTO 2002
  4493. GOSUB 9009
  4494. NCLIENT$ = UCASE$(LEFT$(REPLY$+"@@@@@",5))
  4495. 2003 IF END #2 THEN 2020
  4496. OPEN FIL$(2)+":"+NCLIENT$+"CLN.FIL" RECL 255 AS 2 : CLNRNM.FIL = 2
  4497. GOSUB 5000
  4498. READ #CLNRNM.FIL,3;CLIENT.NAME$,CLIENT.ADDR.1$,CLIENT.ADDR.2$,CLIENT.CITY.STATE$,CLIENT.ZIP$
  4499. READ #CLNRNM.FIINT " 3. Client Name ";CLIENT.NAME$
  4500. PRINT " 4. Address Line 1 ";CLIENT.ADDR.1$
  4501. PRINT " 5. Address Line 2 ";CLIENT.ADDR.2$
  4502. PRINT " 6. City, State ";CLIENT.CITY.STATE$
  4503. PRINT " 7. Zip ";CLIENT.ZIP$
  4504. PRINT
  4505. PRINT " 8. General Ledger Balance Forward Date ";GL.DATE$
  4506. PRINT " 9. Payroll Balance Forward Date ";PR.DATE$
  4507. PRINT " 10. Fiscal Year End Month ";FISCAL.END.MO
  4508. PRINT " 11. Fed I.D. Number ";CLIENT.TAX.NUMBER$
  4509. 2003.2 M AS 2
  4510. OPEN FIL$(6)+":"+NCLIENT$+"PAS.FIL" RECL 175 AS 3
  4511. OPEN FIL$(4)+":"+NCLIENT$+"COA.FIL" RECL 43 AS 4
  4512. OPEN FIL$(5)+":"+NCLIENT$+"TRI.FIL" RECL 68 AS 5
  4513. OPEN FIL$(7)+":"+NCLIENT$+"FSH.FIL" RECL 94 AS 6
  4514. DELETE 2,3,4,5,6,7
  4515. 2009.1 IF END #8 THEN 2010
  4516. OPEN FIL$(8)+":"+NCLIENT$+"ACC.FIL" RECL 255 AS 8
  4517. OPEN FIL$(9)+":"+NCLIENT$+"FMT.FIL" RECL 100 AS 9
  4518. OPEN FIL$(10)+":"+NCLIENT$+"CON.FIL" RECL 142 AS 10
  4519. DELETE 8,9,10
  4520. 2009.2 IF NCLIENT$ = CLIENT$ THEN CLIENT$ = ""
  4521. NCLIENT$ = ""
  4522. GOSUB 80s RETURN to Continue"
  4523. GOSUB 2000 : GOSUB 2100 : FLD.LEN% = 2 : GOSUB 9998
  4524. NCLIENT$ = ""
  4525. RETURN
  4526. 2500 REM ****************************** DELETE ONLY AUXILIARY FILES
  4527. MSSG$ = "Enter Client ID to DELETE Auxiliary files >"
  4528. GOSUB 2100 : FLD.LEN% = 5 : GOSUB 9998
  4529. NCLIENT$ =UCASE$(REPLY$)
  4530. IF LEN(NCLIENT$) < 1 OR LEN(NCLIENT$) > 5 THEN \
  4531. ERR$ = "IMPROPER CLIENT ID ENTERED" :\
  4532. GOTO 2500
  4533. GOSUB 9009
  4534. NCLIENT$ = UCASE$(LEFT$(REPLY$+"@@@@@",5))
  4535. IF END #2 THEN 2020
  4536. OPEN FIL$(2)+":"+NC����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������