12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192 |
- � 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋�HEADERS BAS���j
-
���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
- REM NUMBER IN PROGRAM AND "AND N>0" IN LINE ABOVE 4040 TO
- REM PREVENT THE ENTERING OF CARRAGE RETURNS OR ZEROS FOR
- REM HEADER NUMBERS
- REM
- REM 070583 - DCF TOOK OUT ; 3 LINE ABOVE 777 FOR CB80 COMPILE
- REM
- REM 062283 - (RCB) TOOK REM OFF W=0 IN LINE FOUR LINES ABOVE 6106 TO
- REM PREVENT RECORD THAT SHOULD BE WRITTEN IN TO THE FIRST
- REM LOCATION FROM BEING WRITTEN IN TO THE SECOND.
- REM
- REM 062083 - (RCB) CEFORE CHANGE ON 032283
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM 032283 - (RCB) CHANGED THREE LINES ABOVE 4250 TO ALLOW A RETURN TO BE
- REM ENTERED FOR THE HEADER DISCRIPTION
- REM
- REM 092282 - (RCB) DECREMENTED MENU OPTION NUMBER BY 1
- REM
- REM 091882 - (RCB) FLD.LEN% = 8 CHANGED TO FLD.LEN% = 9 IN LINE AFTER 4300
- REM TO REMOVE HOT KEY BOARD EFFECT IF TOO MANY CHARACTORS ARE
- REM TYPE IN FROM KEY BOUNC-7101
- REM *** TEMPE, AZ. 85281
- %INCLUDE COMMON.BAS
- GOSUB 9005
- PRINT
- PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
- PRINT
- PRINT TAB(20);"** ACCOUNTING MENU OPTION #5 **"
- PRINT TAB(15);"EDITS OR LISTS FINANCIAL STATEMENT HEADERS" : PRINT
- PRINT TAB(5);"Press RETURN Key To Continue Or 'M' To Return To Accounting Menu ";
- FLD.LEN% = 1 : GOSUB 9998 : M$ = UCASE$(REPLY$) : PRINT
- IF M$="M" THEN 1540
- 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"
- REM
- REM 062083 - (RCB) CHANGED "R & B" TO "D M S"
- REM
- REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
- REM
- REM 042283 - DCF FIXED BUG #19-041983-3-IMP BY ADDING A UCASE$ TO REPLY$ FOR
- REM HEADER CONTROL CHARACTERS.
- REM
- REM 042183 - DCF CHANGED FLD.LEN%=1 FOR M TO RETURN TO MENU AND FLD.LEN%=-6
- REM FOR CLIENT.NO
- REM 040483 - (RCB) CHANGED THIRD LINE ABOVE 4250 SO IT WILL PUT A
- REM DISCRIPTION IN HEADER AS BE
- REM
- REM 091382 - CHANGED ',' TO ';' IN DATE ROUTINE FOR HEADING
- REM
- REM 082682 - PUT PRINT STATEMENTS AFTER ALL 9998 CALLS FIXING SCREEN DISPLAY
- REM
- REM 082282 FIXED PROBLEM ENTERING DATES ON LISTINGS-LINE 4580 CHAR 2 TO CHAR 3
- REM
- REM LINE 1104 CHANGED E$ TO E3$ TO FIX PROBLEM CHANGING CONTROL HEADERS 081882
- REM
- REM ***FINANCIAL STATEMENT HEADER CHANGES*** (HEADERS)(10D)(VERSION 4.0)
- REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC.
- REM *** 648 SOUTH RIVER DR. 602-96823456789000P0123456789000CP%BS=ZDAR0IEH+-000000000000"
- G$=G$+"$0000000000000MNHASCU0000000DSLRHET0000000CNSLE*%0000000"
- M=1700
- 69 GOSUB 9005
- PRINT "ENTER THE CLIENT NUMBER FROM THE CONTROL SHEET >";
- FLD.LEN% = -6 : GOSUB 9998 : PRINT
- R = VAL(REPLY$)
- OPEN FIL$(2)+":"+CLIENT$+"CLN.FIL" AS 1
- REM GOSUB 5000
- READ #1;C,C$ : GOSUB 5300
- IF R=C THEN 140
- PRINT CHR$(7)
- PRINT "THE CLIENT NUMBER IS #";C; "PLEASE ENTER THE CORRECT NUMBER!"
- PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 :GOSUB 9998:PRINT
- GOTO 69
- 140 PRINT : PRINT "WORKING . . ."
- F8$=FIL$(7) + ":" + CLIENT$ + "FSH.FIL" : GOSUB 5000
- R=0
- IF END #1 THEN 157.5
- 153 READ #1,R+1;N1,D1$,E1$
- IF N1 = -1 THEN 158
- R=R+1
- NUMBER.RECS = R
- GOTO 153
- 157.5 W = R : GOSUB 8040
- 158 GOSUB 5300
- 159 GOSUB 9005 : PRINT : PRINT : PRINT : PRINT : PRINT
- PRINT TAB(15);" D M S Client Programmed Accounting "
- PRINT TAB(12);" FINANCIAL STATEMENT HEADER EDIT MENU" : PRINT
- PRINT TAB(12);"WHICH FC" THEN 1000
- IF X$="D" THEN 415
- IF X$="V" THEN 2198
- IF X$="P" THEN 560
- IF X$="M" THEN 1540
- GOSUB 3600
- GOTO 3000
- 270 GOSUB 9005 : PRINT : PRINT TAB(11);"OPTION A : ADD A HEADER"
- O=0
- GOSUB 4000
- IF N=-1 THEN 159
- REM NUMBER N ALREADY USED?
- GOSUB 4100
- IF F=0 THEN 300
- GOSUB 3500
- GOTO 3000
- 300 GOSUB 4200
- GOSUB 4300
- GOSUB 6000
- GOTO 159
- PRINT "THE HEADER FILE IS FULL - SEE ACCOUNTING MENU OPTION #5 TO INCREASE THE "
- PRINT " SIZE OF THE 'FSHEADS' FILE!"
- PRINT "CANNOOTO 3000
- 560 PRINT "ENTER P TO PRINT OR D TO DISPLAY THE HEADERS :"; : FLD.LEN% = 1 : \
- GOSUB 9998 : X$ = UCASE$(LEFT$(REPLY$,1)) : PRINT
- R = 0
- IF X$="P" THEN 590
- IF X$="D" THEN 587
- GOSUB 3600
- GOTO 560
- 587 O=0 : GOSUB 9005 : P1=24
- GOTO 620
- 590 PRINT "SET THE PRINTER AND PAPER"
- GOSUB 3100
- LPRINTER : PRINT : CONSOLE
- PRINT REVLF$; : PRINT REVLF$;
- PRINT " " : PRINT " "
- O=1 : P1=60 : P6=1
- 600 PRINT "ENTER THE DATE YOU WANT ON THE LIST (MMD"CONTROL"
- PRINT "DESCRIPTION";TAB(69);"CHARACTERS"
- GOSUB 3800
- IF X$="P" THEN P=10 ELSE P=8
- R = 0
- GOSUB 5000
- FOR X = 1 TO NUMBER.RECS
- GOSUB 5100
- IF N1 = -1 THEN 782
- R = R + 1
- PRINT USING "#######.##";N1
- PRINT ":";D1$;TAB(71);E1$
- P=P+2
- IF P<P1 THEN 780
- IF X$<>"P" THEN 777
- PRINT CHR$(12); : P6=P6+1 : PRINT TAB(70);"PAGE ";P6
- PRINT : PRINT
- P=3 : GOTO 780
- 777 PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 :GOSUB 9998:PRINT
- GOSUB 9005 : P=2
- 780 NEXT X
- 782 REM IF O= PRINT "WORKING . . ."
- S1=0 : S2=0 : S3=0
- D2$=D1$ : E2$=E1$
- GOSUB 1280
- REM IF S2=1 THEN 1110
- IF S1=1 THEN 1110
- REM IF S3=0 THEN E$=E2$
- N1=N
- REM E1$=E3$
- N=N2
- GOSUB 4100
- IF F=0 THEN 1160
- IF S2 = 1 THEN D1$ = D3$
- IF S3 = 1 THEN E1$ = E3$
- IF S2 = 1 OR S3 = 1 THEN W = R : \
- GOSUB 5000 : GOSUB 5200 : GOSUB 5300
- GOTO 1240
- 1110 XE.N = N : N = N2
- GOSUB 6300
- IF F=1 THEN 1190
- 1160 GOSUB 3700
- GOTO 3000
- 1190 IF S1=0 THEN N=N2 ELSE N = XE.N
- IF S2=0 THEN D$=D2$ ELSE D$ = D3UNCTION WOULD YOU LIKE TO PERFORM?"
- PRINT TAB(12);" A. ADD a Header"
- PRINT TAB(12);" C. CHANGE a Header"
- PRINT TAB(12);" D. DELETE a Header"
- PRINT TAB(12);" V. VIEW a Header"
- PRINT TAB(12);" P. PRINT or DISPLAY the Header List"
- PRINT TAB(12);" M. RETURN to Accounting Menu"
- PRINT TAB(12); : PRINT "ENTER THE LETTER OF THE FUNCTION TO PERFORM :";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT
- X$ = UCASE$(LEFT$(REPLY$,1))
- PRINT
- IF X$="A" THEN 270
- IF X$="T ADD THIS HEADER!" : PRINT CHR$(7) : GOTO 3000
- 415 GOSUB 9005 : PRINT : PRINT TAB(11);"OPTION D : DELETE A HEADER"
- PRINT : PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
- PRINT "ENTER THE NUMBER OF THE HEADER TO BE DELETED > <";
- X=9 : GOSUB 8000 : PRINT ">";
- FLD.LEN% = -9 : GOSUB 9998 : PRINT
- IF LEN(REPLY$) = 0 THEN 415
- N2 = VAL(REPLY$)
- N=N2
- IF N=-1 THEN 159
- GOSUB 4100
- IF F=0 THEN 520
- GOSUB 6300
- IF F=1 THEN 159
- 520 GOSUB 3700
- GDYY) > <";
- X=6 : GOSUB 8000 : PRINT ">"; : FLD.LEN% = -6 : GOSUB 9998 : F$ = REPLY$
- F$=F$+" " : PRINT
- GOSUB 4500
- IF F$="INVALI" THEN 600
- IF O=1 THEN LPRINTER
- PRINT
- 620 IF X$="D" THEN 641
- PRINT TAB(10);C$;TAB(70);"PAGE ";P6 : GOTO 642
- 641 PRINT TAB(10);C$
- 642 PRINT TAB(10);"CLIENT NUMBER ";C
- PRINT TAB(10);"FINANCIAL STATEMENT HEADER LIST"
- IF X$="P" THEN PRINT TAB(10);LEFT$(F$,2);"/";MID$(F$,3,2);"/";MID$(F$,5,2)
- PRINT
- IF X$="P" THEN PRINT
- PRINT "SEQUENCE NUMBER";TAB(69);1 THEN CONSOLE
- GOSUB 5300
- GOSUB 3800
- IF O=1 THEN PRINT CHR$(12); : CONSOLE
- GOTO 3000
- 1000 GOSUB 9005 : PRINT : PRINT TAB(11);"OPTION C : CHANGE A HEADER"
- PRINT : PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
- PRINT "ENTER THE NUMBER OF THE HEADER TO BE CHANGED > <";
- X=9 : GOSUB 8000 : PRINT ">"; : FLD.LEN% = -9 : GOSUB 9998
- IF LEN(REPLY$) = 0 THEN 1000
- N2 = VAL(REPLY$) : PRINT
- IF N2=-1 THEN 159
- N=N2 : O=0
- GOSUB 4100
- IF F=0 THEN 1160
- PRINT :$
- IF S3=0 THEN E$=E2$ ELSE E$ = E3$
- GOSUB 6005
- 1240 GOTO 159
- 1280 GOSUB 9005 : PRINT : PRINT "HEADER CHANGE MENU" : PRINT
- PRINT "ENTER 1. To Change The Header Number,"
- PRINT " 2. To Change The Description,"
- PRINT " 3. To Change The Control Characters Or"
- PRINT " 4. To End Changes Of This Header >";
- FLD.LEN% = -1 : GOSUB 9998 : X$ = REPLY$ : PRINT
- IF X$="1" THEN 1380
- IF X$="2" THEN 1430
- IF X$="3" THEN 1470
- IF X$="4" THEN 1510
- GOSUB 3600
- GOTO 1280
- 1380 GOSUB 4000
- IF N=-1 THEN GOTO 1381 ELSE GOTO 1382
- REM ***************************************************************
- 1381 N=N2 : GOTO 1280
- 1382 GOSUB 4100
- IF F=1 THEN 1386
- S1=1 : GOTO 1280
- 1386 GOSUB 3500
- PRINT "CANNOT USE IT!" : GOTO 1380
- 1430 GOSUB 4200
- PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 :GOSUB 9998:PRINT
- S2=1
- GOTO 1280
- 1470 GOSUB 4300
- S3=1
- GOTO 1280
- 1510 RETURN
- 1540 CHAIN PGM$(1)+":AMENU"
- PRINT CHR$(7)
- PRINT "PRESS RETURN TO GO TO ACCOUNTING MENU "; : \
- FINT USING "#######.##";N1
- PRINT : PRINT "DESCRIPTION:"
- O=0 : GOSUB 3800
- PRINT ":";D1$
- PRINT : PRINT "CONTROL CHARACTERS:";TAB(30);E1$
- GOTO 3000
- 3000 PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 : GOSUB 9998
- PRINT : GOTO 159
- 3100 PRINT " THEN PRESS RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : PRINT
- RETURN
- 3500 PRINT CHR$(7);"THAT HEADER NUMBER HAS ALREADY BEEN USED - TRY AGAIN!"
- RETURN
- 3600 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
- RETURN
- 3700 PRINT CHR$(7);"THEN = VAL(REPLY$) : PRINT
- IF N<-1 THEN 4040
- IF N=-1 THEN 4090
- IF N*100-INT(N*100)<>0 THEN 4040
- IF N<=999999.99 AND N>0 THEN 4090
- 4040 PRINT "INVALID HEADER NUMBER (MUST BE .01 TO 999999.99) - TRY AGAIN!"
- PRINT CHR$(7) : GOTO 4000
- 4090 RETURN
- 4100 F=0
- GOSUB 5000
- FOR R=0 TO NUMBER.RECS - 1
- GOSUB 5100
- IF N1 = N THEN 4150
- NEXT R
- GOTO 4190
- 4150 F=1
- 4190 GOSUB 5300
- RETURN
- 4200 PRINT "ENTER THE NEW HEADER DESCRIPTION (70X)"
- GOSUB 3800
- PRINT":"; : FLD.LEN% = 70 : GOSUB 9998 : D$N 4350
- 4330 PRINT CHR$(7);"INVALID CONTROL CHARACTERS - TRY AGAIN!"
- GOTO 4300
- 4350 FOR X=1 TO 8
- FOR Y=1 TO 14
- IF MID$(E$,X,1)=MID$(G$,(X*14-14+Y),1) THEN 4410
- NEXT Y
- GOTO 4330
- 4410 NEXT X
- E3$=E$
- RETURN
- 4500 FOR X=1 TO 6
- IF MID$(F$,X,1)<"0" THEN 4650
- IF MID$(F$,X,1)>"9" THEN 4650
- NEXT X
- IF LEFT$(F$,1)="0" THEN 4570
- IF LEFT$(F$,1)<>"1" THEN 4650
- IF MID$(F$,2,1)>"2" THEN GOTO 4650 ELSE GOTO 4580
- 4570 IF MID$(F$,2,1)<"1" THEN 4650
- 4580 IF MID$(F$,3,1)>"3" THEN 4650
- END #1 THEN 6102
- R1=1
- X=N9
- REM IF X<0 THEN PRINT "X=";X : X = 0
- R = NUMBER.RECS - 1
- REM IF NO RECORDS IN FILE THEN WRITE FIRST
- 6030 IF R < 0 THEN W = 0 : GOTO 6106
- READ #1,R+1;N1,D1$,E1$
- W = R + 1
- IF N1 < N THEN 6106
- REM IF N1 = -1 THEN 6102
- PRINT #1,W+1;N1,D1$,E1$
- IF R = NUMBER.RECS-1 THEN \
- W=W+1 : GOSUB 8040
- R = R - 1
- IF R >=0 THEN 6030
- W=0
- REM X = 0
- GOTO 6108
-
- READ #1,R+1;N1,D1$,E1$
- 6106 R1=1
- 6108 N1=N : D1$=D$ : E1$=E$
- PRINT #1,W+1;N1LD.LEN% = 1 : GOSUB 9998 : PRINT
- GOTO 1540
- 2198 GOSUB 9005 : PRINT : PRINT TAB(11);"OPTION V : VIEW A HEADER"
- PRINT : PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
- PRINT "ENTER THE NUMBER OF THE HEADER YOU WANT TO VIEW > <";
- X=9 : GOSUB 8000 : PRINT ">"; : FLD.LEN% = -9 : GOSUB 9998
- IF LEN(REPLY$) = 0 THEN 2198
- N = VAL(REPLY$) : PRINT
- IF N=-1 THEN 159
- GOSUB 4100
- IF F=0 THEN 520
- GOSUB 9005
- PRINT : PRINT : PRINT "HEADER NUMBER:";TAB(28);
- PRRE IS NO SUCH HEADER NUMBER IN THE FILE!"
- RETURN
- 3800 PRINT " 0 1 2 3 4 5 6 ";
- PRINT " 7"
- PRINT " 1--------0---------0---------0----**---0---------0---------0-------";
- PRINT "--0"
- RETURN
- 4000 PRINT : PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
- PRINT "ENTER THE NEW HEADER NUMBER > <";
- X=9 : GOSUB 8000 : PRINT">"; : FLD.LEN% = -9 : GOSUB 9998
- IF LEN(REPLY$) = 0 THEN PRINT REVLF$; : GOTO 4000
- = REPLY$ : PRINT
- IF D$="" THEN D$ = " "
- REM PRINT CHR$(7);"THE DESCRIPTION MUST BE AT LEAST ONE CHARACTER LONG!"
- REM GOTO 4200
- 4250 IF LEFT$(D$,1)<>DUPE.KEY$ THEN 4270
- D$=D3$ : PRINT " "; : PRINT REVLF$; : PRINT D$
- 4270 D3$=D$
- RETURN
- 4300 PRINT "ENTER NEW HEADER CONTROL CHARACTERS (8X) : :";
- X=8 : GOSUB 8000 : PRINT ":"; : FLD.LEN% = 8 : GOSUB 9998
- E$ =UCASE$(REPLY$) : PRINT
- IF E$<> DUPE.KEY$ THEN 4320
- E$=E3$ : PRINT TAB(43); : PRINT REVLF$; : PRINT E$
- 4320 IF LEN(E$)=8 THE IF MID$(F$,3,1)<>"3" THEN 4670
- IF MID$(F$,4,1)>"1" THEN GOTO 4650 ELSE GOTO 4670
- 4650 PRINT CHR$(7);"INVALID DATE - TRY AGAIN!"
- F$="INVALI"
- 4670 RETURN
- 5000 OPEN F8$ RECL 94 AS 1
- RETURN
- 5100 READ #1,R+1;N1,D1$,E1$
- RETURN
- 5200 PRINT #1,W+1;N1,D1$,E1$
- IF R = NUMBER.RECS - 1 THEN W = W + 1 : GOSUB 8040
- REM WRITE 1,&1 : REM WRITE END OF FILE RECORD ****************
- RETURN
- 5300 CLOSE 1
- RETURN
- 6000 PRINT : PRINT "WORKING . . ."
- 6005 GOSUB 5000
- REM IF TYP(0)=0 THEN 6102
- REM IF ,D1$,E1$
- IF R = NUMBER.RECS-1 THEN \
- W=W+1 : GOSUB 8040
- N9=N9+2
- NUMBER.RECS = NUMBER.RECS + 1
- GOSUB 5300
- RETURN
- 6300 PRINT : PRINT "WORKING . . ." : F=1
- GOSUB 5000
- R = 0
-
- 6355.4 READ #1,R+1;N1,D1$,E1$
- IF N1 = N THEN 6375
- REM D2$=D1$ : E2$=E1$
- R1=1
- R = R + 1
- IF R < NUMBER.RECS THEN 6355.4
- F = 0
- GOTO 6420
-
- 6375 R = R + 1
- READ #1,R+1;N1,D1$,E1$
- W = R
- PRINT #1,W;N1,D1$,E1$
- IF N1 <> -1 THEN 6375
- NUMBER.RECS = NUMBER.RECS - 1
- 6420 GOSUB 5300
- RETURN
- 8000 FOR J=1 TO X+2
- PRINT CHR$(8);
- NEXT J
- RETURN
- 8040 N1 = -1 : D1$ = "End of FSH File" : E1$ = ""
- PRINT #1,W+1;N1,D1$,E1$
- RETURN
- %INCLUDE NFLANKS.BAS
- 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋REM 072583 - DCF ADDED CHECK FOR NUM.BITS% = 8 OR 16
- REM
- REM 072183 - DCF CHANGED R TO R.XE IN LINE 630
- REM
- REM 071783 - DCF TOOK LINE #'S OFF REM STATEMENTS
- REM CHANGED ALL A'S TO A.XE
- REM CHANGED ALL R'S TO R.XE
- REM CHANGED LINE 2000 TO LINE 2000.1 FOR CB80 COMPILE
- REM
- REM 062783 - (RCB) CHANGED 75 TO 79 IN LINE 2004 TO MOVE NAME
- REM HEADINGS OVER 2 SPACES
- REM
- REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
- REM
- REMB) USING HOLE 4 /4 TO DEMENSION TWO ARRAYS
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM 020983 (DCF) GETTING THE ACTUAL MONTH NUMBER OF THE CURRENT
- REM PERIOD AND FISCAL PERIOD FOR COMPARISON OF THE
- REM NUMBER OF MONTHS ENDING
- REM
- REM 013183 (DCF) CHANGED PRINT CLR$ TO GOSUB 9005
- REM
- REM 013183 (DCF) FIXED OE ERROR WHEN DISK SWAPPING (AUX. ON SEPERATE DIS)
- REM
- REM *** PROGRAM TO PRINT A SCHEDULE OF CHANrammed Accounting Ver. ";VERSION$
- PRINT
- 80 PRINT TAB(21);"** AUXILIARY MENU OPTION #8 **"
- 90 PRINT TAB(18);"PRINTS SCHEDULE OF CHANGES IN WORKING CAPITAL" : PRINT
- 100 PRINT TAB(5);"Press RETURN Key To Continue Or 'M' To Return To Auxiliary Menu ";
- 110 FLD.LEN%=1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$+" ",1))
- IF M$="M" THEN 5000.1
- 120 GOSUB 9005 : PRINT
- GOSUB 5600
- 140 REM **** OPENING FILES
- 150 IF SIZE(FIL$(2) + ":" + CLIENT$ + "CLN.FIL") = 0 THEN \
- PRINT "Ins(2);" IS ";CLIENT.NO; " ! "
- PRINT" Please Correct Then Press Return ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : X$=LEFT$(REPLY$,1)
- GOTO 170
- 220 GOSUB 9005 : PRINT : INITIALIZE
- 230 PRINT "Insert Auxiliary Data Disk in Drive ";FIL$(10);" Then Press RETURN";:FLD.LEN%=1 : GOSUB 9998 : PRINT :X$=LEFT$(REPLY$,1)
- 235 IF SIZE(FIL$(10) + ":" + CLIENT$ + "CON.FIL")=0 THEN 220
- 240 OPEN FIL$(10) + ":" + CLIENT$ + "CON.FIL" RECL 142 AS 2 : CONTROL.FIL=2
- OPEN FIL$(8) + ":" + CLIENT$ +"ACC.FIL"邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋 061483 - (RCB) PUT F1 = 0 OFF ON LINE 6005 AND PUT IT IN LINE AFTER
- REM 6005 WHERE IT HAD BECOME PART OF THE ELSE CONDITION
- REM DURING TRANSLATION - THIS FIXES THE PROBLEM WHICH CAUSED
- REM EVERY LINE WITH A NUMBER TO HAVE A '$' IF THE HEADERS
- REM HAD SELECTED IT OR NOT - BUG CODE 126-061383
- REM
- REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
- REM
- REM 051683 - (RCB) CHANGED LINE 51 TO CORRECT MEMORY SIZING
- REM
- REM 040683 - (RCB) ADDED -400 TO HOLE(4) SIZE
- REM
- REM 040583 - (RCGES WORKSHEET (SCHED)
- REM *** COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS INC.
- REM *** 648 SOUTH RIVER DR.
- REM *** TEMPE, ARIZ. 85281 (602)-968-7101
- %INCLUDE COMMON.BAS
- 51 X = (HOLE(4)-250)/6 : XE.X1 = X : S=1
- 60 DIM A(12),R(3,10),R1(3,XE.X1),H(1,X)
- 71 REM *** SETTING VARIABLES TO ZERO
- A.XE=0 : A1=0 : A2=0 : A9=0
- GOSUB 9005
- PRINT
- 75 PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB(15);"Client Progert Client Data Disk in Drive "; FIL$(2) : \
- PRINT "Then Press RETURN ";: FLD.LEN%=1 : GOSUB 9998 : \
- PRINT : \
- INITIALIZE : \
- GOTO 150
-
- OPEN FIL$(2) + ":" + CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL=1
- GOSUB 5000
- CLOSE CLNRNM.FIL
- 170 PRINT "ENTER CLIENT NUMBER FROM THE WORKSHEET >";:FLD.LEN%= -6 : GOSUB 9998 : PRINT : CLIENT=VAL(REPLY$)
- IF CLIENT.NO = CLIENT THEN 235
- PRINT CHR$(7);"THE CLIENT IN DRIVE ";FIL$ RECL 255 AS 5 : ACCTS.FIL=5
- 250 READ #CONTROL.FIL;\
- CLIENT,\
- CLIENT.NAM$,\
- O,\
- O1,\
- PER.END.DT$
- CLOSE CONTROL.FIL
- 270 IF CLIENT.NO = CLIENT THEN 280
- PRINT CHR$(7);"THE CLIENT NUMBER OF THE DISK IN DRIVE ";FIL$(10);" DOES NOT MATCH !"
- PRINT" Please Correct Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : PRINT : X$=LEFT$(REPLY$,1)
- GOTO 220
-
- 280 FIL2$ = FIL$(7)
- 281 IF SIZE(FIL2$ + ":" + CLIENT$ + "FSH.FIL") = 0 THEN \
- PRINT "Insert Client Data Disk Containing FSH.FIL in Drive ";PGM$(3):\
- PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
- PRINT : \
- INITIALIZE : \
- FIL2$ = PGM$(3) : \
- GOTO 281
-
- REM ELSE \
- REM FIL2$ = FIL$(7)
- 283 OPEN FIL2$ + ":" + CLIENT$ + "FSH.FIL" RECL 94 AS 4 : FSHEADS.FIL=4
- 300 GOSUB 9005 : PRINT
- 310 PRINT "NOW COMPILING HEADERS AND ACCOUNTS . . . "
- 370 H1 =-1 : X = 0
- 380 IF END #4 THEN 450
- 390 READ #FSHEADS.FIL,X+1;\
- IF R.XE > XE.X1 THEN \
- PRINT "INSUFFICIENT MEMORY - RESULTS MAY BE INCORRECT" : \
- PRINT "STOPED AT SEQUENCE NUMBER : ";R.XE : \
- LPRINTER : \
- PRINT "INSUFFICIENT MEMORY - RESULTS MAY BE INCORRECT" : \
- PRINT "STOPED AT SEQUENCE NUMBER : ";R.XE : \
- CONSOLE : \
- GOTO 550
- 510 R1( 0, R.XE ) = X2
- R1( 1, R.XE ) = F9
- R1( 2, R.XE ) = A1
- R1( 3, R.XE ) = A2
- 520 GOTO 460
- 530 R1( 2, X1 ) = R1( 2, X1 ) + A1
- R1( 3, X1 ) = R1( 3, X1 ) + A2
- 540 GOTO 460
- 550 X6 = X6 - 1
- 640 FOR X1 = 0 TO X6
- 650 IF R1( 0, X1 ) <= R1( 0, X1 + 1 ) THEN 690
- 660 X = 1
- X2 = R1(0,X1)
- X3 = R1(1,X1)
- X4 = R1(2,X1)
- X5 = R1(3,X1)
- 670 R1(0,X1)=R1(0,X1+1) : R1(1,X1)=R1(1,X1+1) : R1(2,X1)=R1(2,X1+1)
- 675 R1(3,X1)=R1(3,X1+1)
- 680 R1(0,X1+1)=X2 : R1(1,X1+1)=X3 : R1(2,X1+1)=X4 : R1(3,X1+1)=X5
- 690 NEXT X1
- 700 PRINT ".";
- IF X THEN 631
- 720 H2 = 0 : R2 = 0
- 730 GOSUB 9005 : PRINT
- 740 PRINT "NOW PRINTING SCHEDULE . . . "
- 750 F = 0 : F = 1
- 2060 PRINT TAB(59);"--------------"
- 3000 PRINT TAB(5);"CURRENT ASSETS" : B = 1
- 3005 IF E1 THEN 5000.1
- 3010 GOSUB 6600
- 3020 IF HEADER.NO < A.XE THEN 3050
- 3030 GOSUB 6000
- 3040 GOTO 3005
- 3050 IF MID$(HEAD.CTRL.CHAR$,8,1) = "N" THEN 3100
- 3051 IF MID$(HEAD.CTRL.CHAR$,8,1) = "*" THEN 3070
- 3070 IF E0 THEN 5000.1
- 3080 GOSUB 6500
- 3090 GOTO 3020
- 3100 PRINT TAB(59);"--------------"
- 3105 IF T2 < 0 THEN PRINT TAB(59);"($"; ELSE PRINT TAB(59);" $";
- 3110 REM PRINT TAB(60);
- PRINT USING " ###,###.#GOSUB 6600
- 3220 IF HEADER.NO < A.XE THEN 3250
- 3230 GOSUB 6000
- 3240 GOTO 3205
- 3250 IF MID$(HEAD.CTRL.CHAR$,8,1) = "L" THEN 3300
- 3251 IF MID$(HEAD.CTRL.CHAR$,8,1) = "*" THEN 3270
- 3270 IF E0 THEN 5000.1
- 3280 GOSUB 6500
- 3290 GOTO 3220
- 3300 PRINT TAB(59);"--------------"
- 3305 IF T2 > 0 THEN PRINT TAB(59);"($"; ELSE PRINT TAB(59);" $";
- 3310 REM PRINT TAB(60);
- PRINT USING " ###,###.##";ABS(T2)/100;
- 3320 IF T2 > 0 THEN PRINT ")" ELSE PRINT
- 3330 PRINT TAB(59);"--------------"
- 4000 PRINT
HEADER.NO,\
- HEAD.DESCR$,\
- HEAD.CTRL.CHAR$
- X2 = HEADER.NO - INT( HEADER.NO / 10000 ) * 10000
- 400 FOR X1 = 0 TO H1
- IF H( 0, X1 ) = X2 THEN 440
- 420 NEXT X1 : H1 = H1 + 1
- 430 H( 0, H1 ) = X2 : H( 1, X1 ) = X
- 440 X = X + 1
- GOTO 390
- 450 R.XE =-1 : X9 = -1
- 460 IF A9 =-1 THEN 550
- 470 GOSUB 7200
- IF A9=-1 THEN 550
- X2 = A.XE - INT( A.XE / 10000 ) * 10000
- 480 FOR X1 = 0 TO R.XE
- 490 IF R1( 0, X1 ) = X2 THEN 530
- 500 NEXT X1 : R.XE = R.XE + 1
- GOSUB 9005
- PRINT
- PRINT "NOW SORTING HEADERS . . . "
- X6 = H1
- 551 X = 0 : X6 = X6 - 1
- 560 FOR X1 = 0 TO X6
- 570 IF H( 0, X1 ) <= H( 0, X1 + 1 ) THEN 610
- 580 X = 1
- X2 = H( 0, X1 )
- X3 = H( 1, X1 )
- 590 H( 0, X1 ) = H( 0, X1 + 1 )
- H( 1, X1 ) = H( 1, X1 + 1 )
- 600 H( 0, X1 + 1 ) = X2
- H( 1, X1 + 1 ) = X3
- 610 NEXT X1
- 620 PRINT ".";
- IF X THEN 551
- 630 GOSUB 9005 : PRINT : PRINT "NOW SORTING ACCOUNTS . . . " : X6 = R.XE
- 631 X = 0 :
- 1030 IF E0 THEN 5000.1
- 1040 GOSUB 6500
- 1050 IF MID$(HEAD.CTRL.CHAR$,8,1) <> "C" THEN 1030
- 2000.1 NAME.LENGTH = LEN(CLIENT.NAM$)
- FOR X = NAME.LENGTH TO 1.0 STEP -1.0
- 2001 IF MID$(CLIENT.NAM$,X,1 ) <> " " THEN 2004
- 2002 NEXT X
- 2004 X1 = INT( ( 79 - X ) / 2 )
- 2005 LPRINTER
- PRINT : PRINT TAB( X1 );CLIENT.NAM$ : F1 = 1
- 2010 PRINT TAB(20);"SCHEDULE OF CHANGES IN WORKING CAPITAL"
- 2020 GOSUB 5500
- 2030 PRINT
- 2040 PRINT TAB(64);"INCREASE"
- 2050 PRINT TAB(63);"(DECREASE)"
#";ABS(T2)/100;
- 3120 IF T2 < 0 THEN PRINT ")" ELSE PRINT
- 3130 PRINT TAB(59);"--------------" : PRINT : PRINT
- 3140 T2 = 0 : T1 = 0
- 3150 IF MID$(HEAD.CTRL.CHAR$,8,1) = "S" THEN 3192
- 3151 IF MID$(HEAD.CTRL.CHAR$,8,1) = "*" THEN 3170
- 3170 IF E0 THEN 5000.1
- 3180 GOSUB 6500
- 3190 GOTO 3150
- 3192 IF E1 THEN 5000.1
- IF A.XE < HEADER.NO THEN GOSUB 6600 ELSE GOTO 3200
- GOTO 3192
- 3200 PRINT TAB(5);"CURRENT LIABILITIES" : B = 2 : F1 = 1 : GOTO 3220
- 3205 IF E1 THEN 5000.1
- 3210
- 4010 HEAD.DESCR$ = "NET "
- 4020 IF T3 > 0 THEN HEAD.DESCR$ = HEAD.DESCR$ + "INCREASE " ELSE HEAD.DESCR$ = HEAD.DESCR$ + "(DECREASE) "
- 4030 HEAD.DESCR$ = HEAD.DESCR$ + "IN WORKING CAPITAL"
- 4040 PRINT TAB(5);HEAD.DESCR$;
- 4044 IF T3 < 0 THEN PRINT TAB(59);"(";
- PRINT TAB(60);
- PRINT "$";
- PRINT USING " ###,###.##";ABS(T3)/100;
- 4045 IF T3 < 0 THEN PRINT ")" ELSE PRINT
- 4050 PRINT TAB(59);"=============="
- 4100 PRINT CHR$(12);
- 5000.1 CONSOLE : GOSUB 9005 : PRINT : PRINT
- 5021 IF NUM.BITS%=8 THEN EXT$ = ".OVL" ELSE EXT$ = ".OVR"
- IF SIZE(PGM$(3) + ":" + "MENU"+EXT$) <> 0 THEN CHAIN PGM$(3) + ":" + "MENU"
- INITIALIZE
- PRINT " Insert Program Disk in Drive ";PGM$(3)
- PRINT " Then Press RETURN ";:FLD.LEN%=1 : GOSUB 9998 : X$=LEFT$(REPLY$,1)
- GOTO 5021
- 5500 IF O = 0 THEN 5550
- CUR.MO=VAL(MID$(PER.END.DT$,(12*6)+1,2))
- FISC.MO=VAL(MID$(PER.END.DT$,(O*6)+1,2))
- X=CUR.MO - FISC.MO
- IF X < 0 THEN X=X+12
- X=X-1
- REM X
- 5610 D1$ = ""
- D1$ = D1$ + "ONE" + LEFT$(X$,5) + "TWO" + LEFT$(X$,5) + "THREE" + LEFT$(X$,3)
- D1$ = D1$ + "FOUR" + LEFT$(X$,4) + "FIVE" + LEFT$(X$,4) + "SIX" + LEFT$(X$,5)
- D1$ = D1$ + "SEVEN" + LEFT$(X$,3) + "EIGHT" + LEFT$(X$,5) + "NINE" + LEFT$(X$,4)
- D1$ = D1$ + "TEN" + LEFT$(X$,5) + "ELEVEN" + LEFT$(X$,2) + "TWELVE" + LEFT$(X$,2)
- 5670 M$ = ""
- M$ = M$ + "JANUARY" + LEFT$(X$,5) + "FEBUARY" + LEFT$(X$,5) + "MARCH" + LEFT$(X$,7)
- M$ = M$ + "APRIL" + LEFT$(X$,7) + "MRINT ")" ELSE PRINT
- 6050 GOTO 6130
- 6100 IF X > 0 THEN PRINT TAB(59);"(";
- 6110 PRINT TAB(60);X$;
- PRINT USING " ###,###.##";ABS(X)/100;
- 6120 IF X > 0 THEN PRINT ")" ELSE PRINT
- 6130 T2 = T2 + X : T3 = T3 + X
- 6140 RETURN
- 6500 IF H2 > H1 THEN 6530
- 6510 X = H(1,H2) : GOSUB 7100 : HEADER.NO = H(0,H2) : H2 = H2 + 1
- 6520 GOTO 6540
- 6530 E0 = 1
- 6540 RETURN
- 6600 IF R2 > R.XE THEN 6640
- 6610 X9 = R1(1,R2)-1 : GOSUB 7200
- 6620 A.XE = R1(0,R2) : A1 = R1(2,R2) : A2 = R1(3,R2)
- 6630 R2 = A(1),\
- A(2),\
- A(3),\
- A(4),\
- A(5),\
- A(6),\
- A(7),\
- A(8),\
- A(9),\
- A(10),\
- A(11),\
- A(12)
- 7250 IF INT(A9) = A.XE THEN 7220
- 7255 IF X9 = 0 THEN 7200
- 7260 RETURN
- %INCLUDE NFLANKS.BAS
- %INCLUDE 5000
- 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋REM 072283 - DCF ADDED CHECK FOR NUM.BIT% AROUND 1530
- REM
- REM 071483 - DCF REMOVED SECOND LABEL 2300 AND 2310 FOR CB80 COMPILE
- REM
- REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
- REM
- REM 062083 - (RCB) CHANGED "R & B" TO "D M S"
- REM
- REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
- REM
- REM 042183 - DCF CHANGED FLD.LEN%=1 FOR M TO RETURN TO MENU AND CHANGED
- REM FLD.LEN%=-6 FOR CLIENT.NO
- REM
- REM 041283 - DCF FIXED BUG CODE #041283-4-ISS ADDED UCASE$ X = 12 - O
- REM X= X-1
- 5510 IF X < 0 OR X >11 THEN 5550
- 5520 LPRINTER
- PRINT TAB(20);"FOR THE ";MID$(D1$,X*8+1,8);" ";
- 5525 PRINT "MONTH";
- IF X = 1 THEN PRINT " "; ELSE PRINT "S ";
- PRINT "ENDING ";
- 5530 X = VAL(MID$(PER.END.DT$,73,2))
- IF X = 0 THEN 5550
- X = X - 1
- 5540 PRINT MID$(M$,X*12+1,12);" ";MID$(PER.END.DT$,75,2);", 19";MID$(PER.END.DT$,77,2);
- 5550 PRINT : RETURN
- 5600 X$ = ""
- FOR X = 1 TO 10
- X$ = X$ + CHR$(0)
- NEXTAY" + LEFT$(X$,9) + "JUNE" + LEFT$(X$,8)
- M$ = M$ + "JULY" + LEFT$(X$,8) + "AUGUST" + LEFT$(X$,6) + "SEPTEMBER" + LEFT$(X$,3)
- M$ = M$ + "OCTOBER" + LEFT$(X$,5) + "NOVEMBER" + LEFT$(X$,4) + "DECEMBER" + LEFT$(X$,4)
- 5720 RETURN
- 6000 X = A2 - A1
- IF X = 0 THEN 6140
- PRINT TAB(8);A$;
- 6005 IF F1 THEN X$ = "$" ELSE X$ = " "
- F1 = 0
- 6010 IF B = 2 THEN 6100
- 6020 IF X < 0 THEN PRINT TAB(59);"(";
- 6030 PRINT TAB(60);X$;
- PRINT USING " ###,###.##";ABS(X)/100;
- 6040 IF X < 0 THEN PR2 + 1 : GOTO 6650
- 6640 E1 = 1
- 6650 RETURN
- 7100 READ #FSHEADS.FIL,X+1;\
- HEADER.NO,\
- HEAD.DESCR$,\
- HEAD.CTRL.CHAR$
- 7110 RETURN
- 7200 IF O = 12 THEN O = 0
- 7210 X = O1 + O + 1
- IF X > 12 THEN X = X - 13
- A.XE = A9 : A$ = A9$ : A1 = 0
- 7215 A2 = 0 : F9 = X9
- 7220 A1 = A1 + A(X) : A2 = A2 + A(O1) : X9 = X9 + 1
- 7225 IF END #ACCTS.FIL THEN 7260
- 7230 READ #ACCTS.FIL,X9+1;\
- A9,\
- A9$,\
- B9,\
- A(0),\
- 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋 TO CHECK FOR
- REM LOWER CASE M
- REM
- REM 041283 - DCF FIXED BUG CODE #041283-4-ISS CHANGED LINE 4030
- REM TO CHECK FOR N<=0
- REM
- REM 041283 - DCF FIXED BUG CODE #041283-3-ISS ADDED A UCASE$ FOR A LOWER CASE
- REM RESPONSE TO DO YOU WANT BUDGET AMOUNTS PRINTED
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM 021683 - (RCB) ADDED HOLE(4) TO DEMENSIONING
- REM
- REM 013183 - (DCF) CHANGED PRINT CLR$ TO GOSUB 9005
- REM
- REM 013183 - (DCF) FIXED OE ERROR WHEN DISK SWAPPING (AUX ON SEPERATE DISK)
- REM
- REM 102582 - (RCB) CHANGED LINE 804 FROM S<>1 TO S2<>1 OF CHANGE DESCRIPTION
- REM WILL WORK
- REM
- REM 102082 - (RCB) PUT PRINTS IN AFTER CALLS TO 9998 IN SIZE FUNCTIONS
- REM
- REM 102082 - (RCB) CHANGED LINE 2660 FROM GOTO 2560 TO GOTO 2540.2 SO IT WOULD
- REM FEEL THE DISK AGAIN BEFORE IT TRIES TO OPEN IT AGAIN
- REM
- REM 101882 - (RCB) CHANGED LINE 125 TOOK OUT CHANGE THE DISK
- REM
- REM 101582 - (RCB) FIX CONDITION
- REM
- REM 092882 - (RCB) ADDED LINES AT 2730 TO WRITE EOF IN ACC.FIL AND N1 = X
- REM CHANGED TO N1 = X - 1
- REM
- REM 092182 - (RCB) ADDED Y9$=Y$ AFTER 4255 FOR DISCRIPTION CHANGE CHANGE
- REM
- REM 092182 - (RCB) CHANGED LINE 1419 FROM TAB(59) TO TAB(52) TO SPACE LISTINGS
- REM PROPERLY
- REM
- REM 092182 - (RCB) NOW CHAINS MENU INSTEAD OF AMENU
- REM
- REM 092182 - (RCB) ADDED PRESS RETURN TO CONTINUE TO 2022
- REM
- REM 091982 - (RCB) ADDED UPPER AND LOWER CASE INPUTS AND ADDED TAB(59) TO 1419
- GOSUB 9005
- PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB(15);" Client Programmed Accounting Ver. ";VERSION$
- PRINT
- PRINT TAB(21);"** AUXILIARY MENU OPTION #1 **"
- PRINT TAB(20);"EDITS OR LISTS CHART OF ACCOUNTS" : PRINT
- 74 PRINT TAB(5);"Press RETURN Key to Continue or 'M' to Return to Accounting Menu ";
- FLD.LEN%=1 : GOSUB 9998 : PRINT
- M$=UCASE$(LEFT$(REPLY$+" ",1))
- IF M$ ="M" THEN 1530
- F8$ = "ACC.FIL"
- 77 GOSUB 9005 : PRINT : PRINT
- PRINT : PRINT "ENTER THE 1
- 110 IF R=C5 THEN 135
- 120 PRINT : PRINT "THE CLIENT NUMBER OF THE DISK IN DRIVE ";FIL$(2);" IS #";C5
- 125 PRINT " PLEASE ENTER CORRECT NUMBER!"
- 130 PRINT CHR$(7) : PRINT" PRESS RETURN TO CONTINUE "; : \
- FLD.LEN%=1 : GOSUB 9998 : PRINT : GOTO 77
- 135 IF END #1 THEN 2490
- OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 1
- 137 PRINT : PRINT "WORKING . . ."
- REM 141 L1=INT(256*L9/S)
- REM 145 IF L1<M THEN M=L1
- REM 150 L=INT(L1*.95)
- IF END #1 THEN 155.6
- 151 FOR X=0 TO M-1
- 153 R"
- 190 PRINT TAB(12);" D. DELETE an Account"
- 195 PRINT TAB(12);" V. VIEW an Account"
- 197 PRINT TAB(12);" P. PRINT or DISPLAY The Chart of Accounts"
- 198 PRINT TAB(12);" S. SET UP a New Set of Auxiliary Accounts from "
- 199 PRINT " The Client Data Disk"
- 200 PRINT TAB(12);" B. ENTER All Accounts' Budget Amounts"
- 201 PRINT TAB(12);" M. RETURN to Auxiliary Menu"
- 205 PRINT TAB(12);"ENTER THE LETTER OF THE FUNCTION TO PERFORM :";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT
ED COLON IN WRONG PLACE ON ALL SIZE STATEMENTS
- REM
- REM 101382 - (RCB) ADDED SIZE FEEL BEFORE CON OPEN LINE BEFORE 100
- REM LINES AT 1530 TO GET USER TO PUT DISK WITH MENU.INT
- REM BACK IN BEFORE CHAINING, AND LINES AT 2540 AND 2670 TO GET
- REM TWO DATA DISKS IN THE SYSTEM AT ONCE (AUX AND CLIENT)
- REM IF NEEDED
- REM
- REM 092882 - (RCB) TOOK F8$="ACC.FIL" OUT OF REM SFTER LINE 3500 FOR GOSUB 5000
- REM STATEMENTS
- REM
- REM 092882 - (RCB) PUT IF END AT 135 AND ADDED 2490 TO HANDLE IF ENDREM TO SPACE LISTINGS PROPERLY
- REM
- REM 091382 - YOU WON'T BELEIVE THIS BUT STARTED HERE CHANGING THIS TO CACCTS
- REM
- REM 082682 = ADDED PRINT STATEMENTS AFTER ALL CALLS TO 9998
- REM
- REM ***CHART OF ACCOUNT CHANGES AND LISTING*** (ACCOUNTS)(10D)(VERSION 4.0)
- REM ***COPYRIGHT 1982 BY R & B COMPUTER SYSTEMS INC.
- REM *** 648 SOUTH RIVER DR. 602-968-7101
- REM *** TEMPE, AZ 85281
- %INCLUDE COMMON.BAS
- M=HOLE(4) : L=M : S=42
- DIM E(M),A(12),A9(12)E CLIENT NUMBER FROM THE CONTROL SHEET >";
- FLD.LEN% = -6 : GOSUB 9998 : PRINT
- R = VAL(REPLY$)
- REM 101282 - (RCB) ROUTINE TO FEEL FOR THE CON.FIL
- REM
- 80 IF SIZE(FIL$(10) + ":" + CLIENT$ + "CON.FIL") = 0 THEN \
- PRINT "Insert Auxiliary Data Disk in Drive ";FIL$(10) : \
- PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
- PRINT : \
- INITIALIZE : \
- GOTO 80
- OPEN FIL$(10)+":"+CLIENT$+"CON.FIL" AS 1
- REM JUST READ THE FIRST TWO SEQUENTIALY
- 100 READ #1;C5,C$,P2,P3,P3$
- 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), \
- A(10),A(11),A(12)
- IF N = -1 THEN 156
- 154 E(X)=N : N1=N1+1
- 155 NEXT X
- 155.6 GOSUB 7000
- 156 GOSUB 5300
- 160 GOSUB 9005
- 165 PRINT : PRINT : PRINT : PRINT
- 166 PRINT TAB(14);" D M S Client Programmed Accounting" : PRINT
- 168 PRINT TAB(17);" ACCOUNT EDIT MENU" : PRINT
- 169 PRINT TAB(12);"WHICH FUNCTION WOULD YOU LIKE TO PERFORM?"
- 171 PRINT TAB(12);" A. ADD an Account"
- 180 PRINT TAB(12);" C. CHANGE an Account
- X$ = UCASE$(LEFT$(REPLY$,1))
- 207 PRINT
- 210 IF X$="A" THEN 305
- 220 IF X$="C" THEN 470
- 230 IF X$="D" THEN 862
- 240 IF X$="M" THEN 1530
- 245 IF X$="V" THEN 2200
- 246 IF X$="S" THEN 2500
- 247 IF X$="P" THEN 960
- 248 IF X$="B" THEN 3500
- 250 PRINT "INVALID INPUT - TRY AGAIN!"
- 260 GOTO 3000
- 270 PRINT : PRINT "THE CHART OF ACCOUNTS IS FULL WITH ";N1;" ACCOUNTS"
- 280 PRINT "YOU CANNOT ADD MORE ACCOUNTS!"
- 290 PRINT "SEE CPA MAIN MENU OPTION #5 TO CHANGE THE SIZE OF THE FILE 'COANS'."
- 295 GOTO 3000
- 305 GOSUB 9005
- REM ***************** NOT FIXED LENGTH FILES IF N1>=L-1 THEN 270
- 306 PRINT : PRINT TAB(14);"OPTION A : ADDING AN ACCOUNT" : PRINT : PRINT
- 330 GOSUB 4000
- IF N=-1 THEN 160
- IF F=0 THEN 440
- 340 GOSUB 720 : GOTO 305
- 440 GOSUB 4200 : GOSUB 4600
- 450 GOSUB 4500 : B=B9
- 460 GOSUB 6000
- 465 GOTO 160
- 470 GOSUB 9005 : PRINT : PRINT TAB(14);"OPTION C : CHANGING AN ACCOUNT" : PRINT : PRINT
- 475 PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
- 490 PRINT "ENTER PRINT : PRINT "ENTER 1. To Change the Account Number,"
- 510 PRINT " 2. To Change the Description or"
- 512 PRINT " 3. To Change the Budget Amount or;"
- 515 PRINT " 4. To End Changes of this Account >";
- FLD.LEN% = -1 : GOSUB 9998 : PRINT
- M$ = UCASE$(LEFT$(REPLY$,1))
- 540 IF M$="1" THEN 570
- 550 IF M$="2" THEN 760
- 555 IF M$="3" THEN 660
- 560 IF M$="4" THEN 780
- 565 PRINT "INVALID INPUT - TRY AGAIN!"
- 566 PRINT CHR$(7); : GOTO 500
- 570 GOSUB 4000
- REM ************** DOES IT WORK
- IHEN Y$=Y9$
- 802 IF S3=1 THEN B=B9
- 803 IF S1=1 THEN 820
- 804 IF S2<>1 AND S3<>1 THEN 160
- 805 E(X)=N
- 810 GOSUB 5000 : GOSUB 5400 : GOSUB 5300 : GOTO 160
- 820 N=N2 : Y9$=Y$ : B9=B :
- FOR X9=0 TO 12
- A9(X9)=A(X9)
- NEXT X9
- GOSUB 6300
- 830 N=N0 : Y$=Y9$ : B=B9
- FOR X9=0 TO 12
- A(X9)=A9(X9)
- NEXT X9
- 850 GOSUB 6005
- 860 GOTO 160
- 862 GOSUB 9005 : PRINT : PRINT TAB(14);"OPTION D : DELETE AN ACCOUNT" : PRINT : PRINT
- 864 PRINT : PRINT "(OR -1 TO RETURN TO MENU3100
- 997 PRINT : PRINT REVLF$; : PRINT REVLF$; : PRINT B$;B$ : PRINT B$;B$
- 999 GOTO 1020
- 1000 IF X$<>"D" THEN 1030
- 1010 O=0 : CONSOLE : P=0
- 1015 P1=23
- 1017 GOTO 1040
- 1020 PRINT "ENTER THE DATE YOU WANT ON THE LIST (MMDDYY) > <";
- 1021 REV.X=6 : GOSUB 8000 : PRINT ">";
- FLD.LEN% = -6 : GOSUB 9998 : PRINT
- D$ = REPLY$
- D$=D$+" "
- 1025 GOSUB 4300
- 1026 IF D$="INVALI" THEN 1020
- 1027 PRINT"DO YOU WANT THE BUDGET AMOUNTS PRINTED (Y OR N):";
- FLD.LEN%=1 : GOSUB 9998 : PRINT
- ,2);"/";MID$(D$,3,2);"/";MID$(D$,5,2)
- 1370 PRINT : PRINT TAB(11);"ACCT. NO.";TAB(25);"DESCRIPTION";TAB(59);
- 1372 IF X1$="Y" THEN PRINT "BUDGET AMOUNT" ELSE PRINT
- 1374 PRINT TAB(10);"----------";TAB(25);"-------------------------";TAB(59);
- 1376 IF X1$ = "Y" THEN PRINT "-------------" ELSE PRINT
- P = 9
- GOTO 1380
- 1375 REM FIX THIS
- 1378 PRINT : P=3
- 1380 GOSUB 5000
- 1390 X=0
- 1395 IF END #1 THEN 1430
- REM *********** ABOVE REPLACES THIS >TYP(0)=0 THEN 1430
- 1400 READ #1,X+1;N,Y$,B,A(0),A(1),ATHE NUMBER OF THE ACCOUNT TO BE CHANGED > <";
- 491 REV.X=9 : GOSUB 8000 : PRINT ">";
- FLD.LEN% = -10 : GOSUB 9998 : PRINT
- IF LEN(REPLY$) = 0 THEN 493
- N2 = VAL(REPLY$)
- N=N2
- 492 IF N2 = -1 THEN GOTO 160 ELSE GOSUB 4100
- GOTO 494
- 493 PRINT : PRINT " INVALID INPUT - TRY AGAIN!"
- FOR XE= 1 TO 250 : NEXT XE
- GOTO 490
- 494 IF F=1 THEN 497
- 495 PRINT "THERE IS NO SUCH ACCOUNT NUMBER IN THE FILE!"
- 496 GOTO 3000
- 497 X1=X : S1=0
- 500 GOSUB 9005 :F N=-1 THEN GOTO 580 ELSE GOTO 620
- 580 N=N2 : GOTO 500
- 620 IF F=0 THEN 630
- 625 GOSUB 720 : GOTO 570
- 630 N0=N : S1=1 : GOTO 500
- 660 GOSUB 4500 : B = B9 : S3=1 : GOTO 500
- 720 PRINT CHR$(7) : PRINT "THAT ACCOUNT NUMBER HAS ALREADY BEEN USED - TRY AGAIN!"
- 725 PRINT "PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 : GOSUB 9998 : PRINT
- 730 RETURN
- 760 GOSUB 4200
- 770 Y9$=Y$ : S2=1 : GOTO 500
- 780 X=X1
- 785 GOSUB 5000 : GOSUB 5100 : GOSUB 5300
- 786 B1=B : C1=C : Y1$=Y$
- 790 IF S1=1 THEN 820
- 800 IF S2=1 T)" : PRINT REVLF$; : PRINT REVLF$;
- 870 PRINT "ENTER ACCOUNT NUMBER TO BE DELETED > <";
- 871 REV.X=9 : GOSUB 8000 : PRINT ">";
- FLD.LEN% = -10 : GOSUB 9998 : PRINT
- N = VAL(REPLY$)
- 872 IF N=-1 THEN 160
- 880 GOSUB 6300
- 890 IF F=0 THEN 495
- 937 GOTO 160
- 960 PRINT "ENTER 'P' TO PRINT OR 'D' TO DISPLAY THE CHART OF ACCOUNTS :";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT
- X$ = UCASE$(LEFT$(REPLY$,1))
- 990 IF X$<>"P" THEN 1000
- 994 O=1 : P1=59 : P2=1
- 995 PRINT "SET THE PRINTER AND PAPER"
- 996 GOSUB X1$=UCASE$(LEFT$(REPLY$,1))
- IF X1$ = "N" THEN 1040
- IF X1$ ="Y" THEN 1040
- PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
- GOTO 1027
-
- 1030 PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
- 1031 GOTO 960
- 1040 IF O = 1 THEN LPRINTER
- PRINT
- IF O=1 THEN PRINT USING "PAGE ###";TAB(70);P2
- PRINT
- 1330 IF X$="D" THEN GOSUB 9005 : PRINT
- 1340 PRINT TAB(10);C$;TAB(55);"CLIENT NUMBER ";C5
- 1350 PRINT TAB(10);"CHART OF ACCOUNTS"
- 1355 IF X$="D" THEN 1378
- 1360 PRINT TAB(10);MID$(D$,1(2),A(3),A(4),A(5),A(6),A(7),A(8),A(9), \
- A(10),A(11),A(12)
- REM GOSUB 5100
- REM CHECK FOR END OF FILE
- IF N = -1 THEN 1430
- 1405 X=X+1
- 1410 PRINT USING "#######.##";TAB(10);N; : PRINT TAB(25);LEFT$(Y$,20);
- 1415 IF X1$="Y" THEN GOTO 1419 ELSE GOTO 1418
- 1418 PRINT : GOTO 1420
- 1419 PRINT USING "$$###,,,#########.##";TAB(52);B/100
- 1420 P=P+1
- IF P<P1 THEN 1395
- 1421 IF X$="P" THEN 1425
- 1422 PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 :GOSUB 9998:PRINT
- 1423 GOSUB 9005 : PRINT
- 1424 P=3 : GOTO 1395
- 1425 P2=P2+1
- IF O=1 THEN PRINT CHR$(12);
- IF O=1 THEN PRINT : PRINT TAB(70);"PAGE ";P2 : PRINT : PRINT : PRINT
- 1426 P=4 : GOTO 1395
- 1430 PRINT TAB(15);"THERE ARE";X;" ACCOUNTS IN THE FILE."
- 1432 PRINT TAB(15);"THE MAXIMUM NUMBER FOR THIS FILE AT ITS PRESENT SIZE IS ";L
- 1435 GOSUB 5300
- 1437 IF O=1 THEN PRINT CHR$(12);
- 1440 GOTO 3010
- 1530 IF NUM.BITS%=8 THEN EXT$=".OVL" ELSE EXT$=".OVR"
- IF SIZE(PGM$(3)+":" + "MENU"+EXT$) = 0 THEN \
- PRINT "Insert Auxiliary ProgramNT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
- 2209 PRINT "ENTER THE NUMBER OF THE ACCOUNT YOU WANT TO VIEW > <";
- 2210 REV.X=9 : GOSUB 8000 : PRINT ">";
- FLD.LEN% = -10 : GOSUB 9998 : PRINT
- IF LEN(REPLY$) = 0 THEN 2212
- N = VAL(REPLY$) : GOTO 2215
- 2212 PRINT : PRINT " INVALID INPUT - TRY AGAIN!"
- FOR XE = 1 TO 250 : NEXT XE : GOTO 2209
- 2215 IF N=-1 THEN 160
- 2220 GOSUB 4100
- 2230 IF F=0 THEN 495
- 2240 GOSUB 5000
- 2250 GOSUB 5100
- 2255 OD #";
- PRINT X1;"(";
- 2286 PRINT MID$(P3$,X1*6+1,2);"/";MID$(P3$,X1*6+3,2);"/";MID$(P3$,X1*6+5,2);")";
- 2288 IF X1=P2 THEN PRINT " F";
- 2290 PRINT TAB(32); : PRINT USING "$$###,,,#########.##";A(X2)/100
- 2292 NEXT X1
- 2300 GOSUB 5300
- 2310 PRINT : GOTO 3010
- 2490 INITIALIZE
- PRINT CHR$(7);"ACC FILE NOT IN DRIVE ";FIL$(8);" INSERT THE PROPER DISK"
- PRINT "and PRESS RETURN or 'S' TO CREATE or 'M' TO RETURN TO THE MENU:";
- FLD.LEN% = 1 : GOSUB 9998
- GOSUB 9009
- IF LEN(REPLY$) = 0 THEN + CLIENT$ + "CLN.FIL") = 0 THEN \
- PRINT "Insert Client Data Disk in Drive ";PGM$(3) : \
- PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
- FIL2$ = PGM$(3) : \
- PRINT : \
- INITIALIZE : \
- GOTO 2540.2
- REM ELSE \
- REM FIL2$ = FIL$(2)
- GOSUB 9005 : PRINT "WORKING . . . . "
- 2610 OPEN FIL2$ + ":" + CLIENT$ + "CLN.FIL" RECL 255 AS 2
- 2620 READ #2;X : CLOSE 2
- 2630 IF X = C5 THEN 2670
- 2640 INITIALIZE
- PRINT CHR$(7);
- PRINT "THE CLIENT NUMBER OF THE DISK IN DRIVE ";FIL2REM ELSE \
- REM FIL2$ = FIL$(4)
- OPEN FIL2$ + ":" + CLIENT$ + "COA.FIL" RECL 65 AS 2
- IF END #1 THEN 2681.4
- 2680 OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 1
- REM "ACCTS" : GOSUB 5000
- IF END #1 THEN 2685
- 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), \
- A(10),A(11),A(12)
- REM FIRST ONE EOF THEN GOOD
- IF N = -1 THEN 2685
- GOTO 2682
- 2681.4 CREATE FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 1
- GOTO 2685
- REM 2681 IF TYP(0) = 0 THEN 2685
- 2682 PRI Disk in Drive ";PGM$(3) : \
- PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
- PRINT : \
- INITIALIZE : \
- GOTO 1530
- CHAIN PGM$(3)+":MENU"
- PRINT CHR$(7) : GOSUB 9005
- 2022 PRINT "THE DISK IN DRIVE ";FIL$(8);" IS NOT A CLIENT DATA FILE DISK"
- 2023 PRINT " OR IMPROPERLY DOES NOT HAVE ON IT THE FILE ";F8$
- PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 : GOSUB 9998
- 2034 GOTO 74
- 2200 GOSUB 9005 : PRINT : PRINT TAB(14);"OPTION V : VIEW AN ACCOUNT" : PRINT
- 2202 PRIGOSUB 9005
- 2260 PRINT : PRINT : PRINT "ACCOUNT NUMBER";TAB(45);
- PRINT USING "########.##";N
- 2270 PRINT "DESCRIPTION";TAB(40);Y$
- REM 2280 PRINT "CURRENT PERIOD BALANCE";TAB(40);
- REM PRINT USING "$$###,,,#########.##";B/100
- REM 2290 PRINT "YEAR-TO-DATE BALANCE";TAB(40);
- REM PRINT USING "$$###,,,#########.##";C/100
- 2280 PRINT "BUDGET AMOUNT";TAB(40);
- PRINT USING "$$###,,,#########.##";B/100
- 2282 FOR X1=0 TO 12
- X2=X1+P3+1
- IF X2 > 12 THEN X2 = X2 - 13
- 2284 PRINT "PERI INITIALIZE : GOTO 77
- KB.FEEL$ = UCASE$(LEFT$(REPLY$,1))
- IF KB.FEEL$ = "M" THEN 1530
- IF KB.FEEL$ = "S" THEN 2500
- GOTO 2490
- 2500 GOSUB 9005 : PRINT : PRINT TAB(14);"OPTION 2: SET UP A NEW SET OF AUXILIARY ACCOUNTS"
- 2510 PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$ ; : PRINT REVLF$ ;
- 2520 PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 2 : GOSUB 9998
- D$ = REPLY$
- 2530 IF VAL(D$)=-1 THEN 160
- 2535 IF LEN(D$) <> 0 THEN 2500
- 2540 FIL2$ = FIL$(2)
- 2540.2 IF SIZE(FIL2$+":"$
- PRINT "DOES NOT MATCH THE AUXILLARY CONTROL NUMBER"
- 2650 PRINT " PLEASE INSERT THE PROPER DISK IN DRIVE ";FIL2$;" THEN PRESS RETURN";
- FLD.LEN% = 1 : GOSUB 9998
- X$ = REPLY$
- INITIALIZE
- 2660 GOTO 2540
- 2670 FIL2$ = FIL$(4)
- 2670.2 IF SIZE(FIL2$ + ":" + CLIENT$ + "COA.FIL") = 0 THEN \
- PRINT "Insert Client Data Disk Containing COA.FIL in Drive ";PGM$(3):\
- PRINT " Then Press RETURN "; : FLD.LEN% = 1 : GOSUB 9998 : \
- PRINT : \
- INITIALIZE : \
- FIL2$ = PGM$(3) : \
- GOTO 2670.2
- NT CHR$(7);"THIS CLIENT ALREADY HAS AUXILIARY ACCOUNTS!"
- 2683 CLOSE 1 : CLOSE 2
- PRINT " PRESS RETURN TO CONTINUE ";
- FLD.LEN% = 1 : GOSUB 9998
- X$ = REPLY$
- 2684 GOTO 2750
- 2685 FOR X = 0 TO 12
- A(X) = 0
- NEXT X
- X = 0
- 2690 REM IF TYP(2) = 0 THEN 2730
- 2700 READ #2,X+1;A1,A2,A3,Y$ : Y$ = Y$ + B$
- IF A1 = -1 THEN 2730
- 2710 N = A1 : GOSUB 5200 : E(X) = N : X = X + 1
- 2720 GOTO 2690
- 2730 N = -1 : Y$ = "EOF ACC FILE" : GOSUB 5200
- GOSUB 5300 : N1 = X - 1
- 2740 CLOSE 2
- 2750 GOTO 160
- 3000 PRINT CHR$(7)
- 3010 IF O = 1 THEN CONSOLE : O = 0
- PRINT " PRESS RETURN TO GO TO MENU "
- FLD.LEN%=1 : GOSUB 9998 : M$ = REPLY$ : PRINT
- 3020 GOTO 160
- 3090 PRINT "PLEASE CORRECT!"
- 3100 PRINT" THEN PRESS RETURN "; : FLD.LEN%=1 : GOSUB 9998 : PRINT
- 3110 RETURN
- 3400 PRINT "INSERT AN AUXILIARY STATEMENTS DATA DISK WITH NO WRITE-PROTECT TAPE IN DRIVE 2"
- 3410 RETURN
- 3500 OPEN FIL$(8) + ":" + CLIENT$ + "ACC.FIL" RECL 255 AS 1
- F8$ = "ACC.FIL"
- REM GOSUB 5000
- <";:REV.X=10:GOSUB 8000
- 3575 PRINT ">"; : FLD.LEN% = -10 : GOSUB 9998 : PRINT
- B = VAL(REPLY$)
- IF B = -1 THEN 3620
- 3580 IF ABS( B ) > 9999999999 THEN 3605
- IF B = INT(B) THEN 3610
- 3590 PRINT CHR$(7);"ENTER ALL NUMBERS WITHOUT THE DECIMAL POINT !"
- 3600 PRINT " PRESS RETURN TO CONTINUE ";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT
- X$ = REPLY$
- GOTO 3520
- 3605 PRINT CHR$(7);" INVALID AMOUNT !" : GOTO 3600
- 3610 GOSUB 5400 : X = X + 1 : GOTO 3510
- 3620 GOSUB 5300 : GOTO 160
- 4000 PRINT 140 GOTO 4190
- 4150 F=1
- 4190 PRINT : RETURN
- 4200 PRINT TAB(62);":"
- PRINT REVLF$;"ENTER THE NEW ACCOUNT DESCRIPTION (20X) :";
- 4210 FLD.LEN% = 20 : GOSUB 9998 : Y$ = REPLY$ : PRINT
- 4220 IF LEN(Y$)<=20 THEN 4250
- 4230 PRINT
- PRINT "DESCRIPTION IS ";LEN(Y$)-20;" CHARACTERS TOO LONG - TRY AGAIN"
- 4240 PRINT CHR$(7) : GOTO 4200
- 4250 Y$=Y$+B$
- 4251 IF LEFT$(Y$,1)<>DUPE.KEY$ THEN 4255
- 4253 Y$=Y5$ : PRINT TAB(42); : PRINT REVLF$; : PRINT Y$
- 4255 Y5$=Y$
- Y9$ = Y$
- 4260 RETURN
- 4300 FOR X=1 TO 6
- 4310 IV.X=10 : GOSUB 8000
- PRINT ">"; : FLD.LEN% = -10 : GOSUB 9998 : PRINT
- B9 = VAL(REPLY$)
- 4520 IF ABS( B9 ) > 9999999999 THEN 4532
- IF B9=INT(B9) THEN RETURN
- 4530 PRINT CHR$(7);"DO NOT USE DECIMAL POINT - ENTER ONE DOLLAR AS 100 !"
- 4532 PRINT CHR$(7);" INVALID AMOUNT"
- 4535 GOTO 4500
- 4600 FOR X1=0 TO 12
- A(X1)=0
- NEXT
- RETURN
- 5000 OPEN FIL$(8)+":"+CLIENT$+F8$ RECL 255 AS 1
- 5010 RETURN
- 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), \
- 0 PRINT : PRINT "WORKING . . ."
- 6005 GOSUB 5000
- REM IN CASE THERE A ZERO ENTRIES IN THE FILE
- 6010 IF N1 = 0 THEN X=0 : GOTO 6105
- FOR X=0 TO N1-1
- 6030 IF E(X)>N THEN 6050
- 6040 NEXT X
- 6045 GOTO 6105
- 6050 FOR X=X TO N1-1
- 6060 READ #1,X+1;N9,Y9$,B9,A9(0),A9(1),A9(2),A9(3),A9(4),A9(5),A9(6),A9(7), \
- A9(8),A9(9),A9(10),A9(11),A9(12)
- 6070 GOSUB 5400
- 6075 E(X)=N
- 6080 N=N9 : B=B9 : Y$=Y9$
- FOR X1=0 TO 12
- A(X1)=A9(X1)
- NEXT
- 6100 NEXT X
- 6105 E(X)=N
- 61X = 0
- 3510 REM IF TYP(0) = 0 THEN 3620
- 3520 GOSUB 9005 : PRINT : PRINT TAB(14);"OPTION B: ENTERING ALL BUDGET AMOUNTS" : PRINT
- 3530 GOSUB 5100
- REM THE GOSUB 5400 IN THE FOLLOWING LINE IS OPTIONAL
- IF N = -1 THEN GOSUB 5400 : GOTO 3620
- 3540 PRINT TAB(5);"ACCOUNT NUMBER :";N
- 3550 PRINT TAB(5);"DESCRIPTION : ";Y$
- 3560 PRINT TAB(5);"PRESENT BUDGET AMOUNT :";
- PRINT USING "$$###,,,######.##";B/100
- 3565 PRINT TAB(5);"(ENTER -1 TO END)"
- 3570 PRINT TAB(5);"ENTER NEW BUDGET AMOUNT > : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
- 4005 PRINT "ENTER THE NEW ACCOUNT NUMBER > <";
- 4010 REV.X=9 : GOSUB 8000 : PRINT ">";
- FLD.LEN% = -10 : GOSUB 9998 : PRINT
- N = VAL(REPLY$)
- 4015 IF N=-1 THEN RETURN
- 4020 IF INT(N*100)-(N*100)<>0 THEN 4050
- 4030 IF N<=0 THEN 4050
- 4040 IF N<=999999.99 THEN 4100
- 4050 PRINT : PRINT "INVALID ACCOUNT NUMBER - TRY AGAIN!"
- 4060 PRINT CHR$(7) : GOTO 4000
- 4100 F=0
- 4110 FOR X=0 TO N1-1
- 4120 IF E(X)=N THEN 4150
- 4130 NEXT X
- 4F MID$(D$,X,1)<"0" THEN 4450
- 4320 IF MID$(D$,X,1)>"9" THEN 4450
- 4330 NEXT X
- 4340 IF LEFT$(D$,1)="0" THEN 4370
- 4345 IF LEFT$(D$,1)<>"1" THEN 4450
- 4350 IF MID$(D$,2,1)>"2" THEN GOTO 4450 ELSE GOTO 4380
- 4370 IF MID$(D$,2,1)<"1" THEN 4450
- 4380 IF MID$(D$,3,1)>"3" THEN 4450
- 4390 IF MID$(D$,3,1)<>"3" THEN 4470
- 4400 IF MID$(D$,4,1)>"1" THEN GOTO 4450 ELSE GOTO 4470
- 4450 PRINT CHR$(7);"INVALID DATE - TRY AGAIN!"
- 4460 D$="INVALI"
- 4470 RETURN
- 4500 PRINT "ENTER THE BUDGETARY AMOUNT > <";
- 4510 REA(10),A(11),A(12)
- 5110 RETURN
- 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), \
- A(8),A(9),A(10),A(11),A(12) : G=1
- 5210 RETURN
- 5300 CLOSE 1 : RETURN
- 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), \
- A(8),A(9),A(10),A(11),A(12) : G=2
- 5410 RETURN
- 5500 REM ***************** PRINT #10%0,&1,NOENDMARK : G=3
- REM ONE RECORD BEING DELETED TO 0 RECORDS
- X = 0 : GOSUB 7000 : G = 3
- 5510 GOSUB 5300
- 5520 N1=0 : RETURN
- REM ADD ONE TO THE FILE
- 60010 GOSUB 5200
- X = X + 1 : GOSUB 7000
- 6120 GOSUB 5300
- 6130 N1=N1+1
- 6200 RETURN
- REM DELETE A RECORD FROM THE FILE AND MOVE THE REST OF THE RECORDS UP
- 6300 PRINT : PRINT "WORKING . . ." : F=0
- 6305 GOSUB 5000
- 6310 FOR X=0 TO N1-1
- 6320 IF E(X)=N THEN 6347
- 6330 NEXT X
- 6345 GOTO 6490
- 6347 F=1
- 6348 GOSUB 5100
- IF N1=1 THEN 5500
- 6349 IF X$<>"C"AND C<>0 THEN 6600
- 6350 IF X<N1-1 THEN 6352
- REM USED TO READ THEN WRITE 2ND FROM LAST RECORD WITH END MARK TO
- REM GET RID OF LAST RECORD
- REM NOW WE WRITE "END OF FILE RECORD" OVER IT
- REM 6351 X=X-1 : GOSUB 5100 : GOSUB 5200
- GOTO 6380
- 6352 FOR X=X TO N1-2
- 6353 X=X+1
- 6355 GOSUB 5100
- 6357 X=X-1
- 6360 GOSUB 5200
- 6365 E(X)=E(X+1)
- 6370 NEXT X
- 6380 N1=N1-1
- GOSUB 7000
- 6490 GOSUB 5300
- 6500 RETURN
- 6600 PRINT : PRINT USING "THAT ACCOUNT HAS A BALANCE OF $$#############.##";C/100;
- PRINT " - CANNOT DELETE IT!"
- 6610 F=1 : PRINT CHR$(7) : PRINT
- PRINT " PRESS RETURN TO CONTINUE "; : FLD.LEN% = 1 :GOSUB 9998:PRINT
- 6620 GOTO 6490
- 7000 N = REM 101983 - (RCB) REMOVED INPUT STATEMENT REPLACED WITH GOSUB 9998
- REM CB0002JNY
- REM
- REM 071783 - DCF TOOK LINE #'S OFF REM STATEMENTS
- REM TOOK ; OUT OF PRINT LINE AROUND 350 FOR CB80 COMPILE
- REM
- REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
- REM
- REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM *** CHANGED PRINT CLR$ TO GOSUB ETURN Key To Continue Or 'M' To Return To Utilities Menu";
- FLD.LEN%=1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$,1))
- 60 IF M$="M" THEN 1030
- GOSUB 9005 : PRINT : PRINT "HOW MANY NUMBERS? ";
- FLD.LEN%= -10 : GOSUB 9998 : N = VAL(REPLY$)
- RANDOMIZE
- 90 PRINT : PRINT "ENTER LOW RANGE ";:FLD.LEN%= -10 : GOSUB 9998 : PRINT : L1=VAL(REPLY$)
- PRINT : PRINT "ENTER HIGH RANGE ";:FLD.LEN%= -10 : GOSUB 9998 : PRINT :H=VAL(REPLY$)
- 110 IF L1<H THEN 140
- PRINT "LOW RANGE IS NOT LESS THAN HIGH RANGE"
N
- PRINT A(Q)
- P=P+1
- IF P<60 THEN 410
- PRINT CHR$(12);
- P=0
- 410 NEXT Q
- 420 PRINT CHR$(12);
- 430 P=0
- 440 GOTO 480
- 445 CONSOLE : GOSUB 9005 : P=0
- 450 FOR Q=1 TO N
- PRINT A(Q)
- 465 P=P+1
- IF P<22 THEN 470
- 466 PRINT : PRINT "PRESS RETURN TO CONTINUE "
- FLD.LEN%=1 : GOSUB 9998
- GOSUB 9005 : PRINT : P=0
- 470 NEXT Q
- 480 CONSOLE
- PRINT : PRINT "ARE THESE NUMBERS OK (Y OR N)? ";:FLD.LEN%=1: GOSUB 9998 : PRINT : A$=UCASE$(LEFT$(REPLY$,1))
- IF A$="YSE$(LEFT$(REPLY$,1))
- IF A$="D" THEN 735
- IF A$="P" THEN 660
- 640 PRINT "ENTER 'P' OR 'D' PLEASE"
- 650 GOTO 610
- 660 LPRINTER
- FOR Q=1 TO N
- PRINT TAB(10);A(Q) : PRINT
- P=P+2
- IF P<60 THEN 720
- PRINT CHR$(12);
- P=0
- 720 NEXT Q
- 730 GOTO 770
- 735 CONSOLE : P = 0 : GOSUB 9005
- 740 FOR Q=1 TO N
- PRINT A(Q)
- P=P+1
- IF P<22 THEN 760
- PRINT : PRINT " PRESS RETURN TO CONTINUE LIST "
- FLD.LEN%=1 : GOSUB 9998
- GOSUB 9005 : PRINT : P=0
- -1 : B = 0 : C = 0 : Y$ = "END OF FILE MARKER"
- E(X) = -1
- GOSUB 5200
- RETURN
- 8000 FOR J=1 TO REV.X+2
- 8010 PRINT CHR$(8);
- 8020 NEXT J
- 8030 RETURN
- %INCLUDE NFLANKS.BAS
- 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋9005 AND 3.6 TO VERSION$
- REM *** RANDOM NUMBER GENERATOR (RANDOM)
- REM *** COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC.
- REM *** 648 SOUTH RIVER DRIVE
- REM *** TEMPE, ARIZ. 85281
- %INCLUDE COMMON.BAS
- 15 GOSUB 9005
- PRINT
- PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
- PRINT
- PRINT TAB(29);"MENU OPTION #7"
- PRINT TAB(24);"GENERATES RANDOM NUMBERS" : PRINT
- PRINT TAB(5);"Press R
- 130 GOTO 90
- 140 PRINT : PRINT "BEGIN GENERATION"
- 150 DIM A(N),S9(100,2)
- 240 FOR Q=1 TO N
- 250 A(Q)=INT(((H-L1)*RND)+L1)
- 260 IF A(Q)<L1 OR A(Q)>H THEN 250
- 270 PRINT "*";
- 280 NEXT Q
- 290 PRINT : PRINT "END GENERATION"
- 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)
- IF A$="D" THEN 445
- IF A$="P" THEN 350
- PRINT "ENTER 'P' OR 'D' PLEASE"
- GOTO 300
- 350 LPRINTER : PRINT CHR$(12)
- FOR Q=1 TO" THEN 580
- IF A$="N" THEN 530
- 510 PRINT "ENTER 'Y' OR 'N' PLEASE"
- 520 GOTO 480
- 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))
- IF A$="Y" THEN 15
- IF A$="N" THEN 1030
- 560 PRINT "ENTER 'Y' OR 'N' PLEASE"
- 570 GOTO 530
- 580 PRINT : PRINT "BEGIN SORT"
- 590 GOSUB 820
- 600 PRINT "END SORT"
- 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
- 770 CONSOLE
- PRINT : PRINT "DO YOU WANT TO GENERATE ANOTHER SERIES (Y OR N)? ";:FLD.LEN%=1 : GOSUB 9998 : PRINT: A$=UCASE$(LEFT$(REPLY$,1))
- IF A$="Y" THEN 15
- IF A$="N" THEN 1030
- 800 PRINT : PRINT "ENTER 'Y' OR 'N' PLEASE"
- 810 GOTO 770
- 815 REM ************ SORTING ROUTINE *********************
- 820 S=1
- 830 S9(1,1)=1 : S9(1,2)=N
- 840 L=S9(S,1) : R=S9(S,2) : S=S-1
- 850 I=L : J=R : X=A(INT%(RND*(R-L)+.5)+L)
- 860 IF A(I)>=X THEN 870
- I=I+1
- GOTO 860
- 870 IF X>=A(J) THEN 880
- J=J-1
- GOTO 870
- 880 IF I>J THEN 900
- 890 W=A(I) : A(I)=A(J) : A(J)=W : I=I+1 : J=J-1
- 900 IF I<=J THEN 860
- 910 IF J-L>=R-I THEN 950
- 920 IF I>=R THEN 940
- 930 S=S+1 : S9(S,1)=I : S9(S,2)=R
- 940 R=J : GOTO 980
- 950 IF L>=J THEN 970
- 960 S=S+1 : S9(S,1)=L : S9(S,2)=J
- 970 L=I : PRINT "*";
- 980 IF L<R THEN 850
- 990 IF S>0 THEN 840
- 1000 PRINT : RETURN
- 1030 CHAIN PGM$(4) + ":" + "UMENU"
- %INCLUDE NFLANKS.BAS
- 10000 READ #EARNREC.FIL,X+1; \
- EMP.NO,\
- EMP.NAME$,\
- STR.ADDR$,\
- CITY.ST.ZIP$,\
- SSN$,\
- REG.WAGES ,\
- OVERTIME.WAGES ,\
- MEALS.AND.LODGING ,\
- TIPS ,\
- FICA ,\
- FED.INC.TAX ,\
- STATE.INC.TAX ,\
- ST.DIS.INS ,\
- LOCAL.DED.1,\
- LOCAL.DED.2, \
- LOCAL.WITH.1,\
- LOCAL.WITH.2,\
- OTHER.DED,\
- NET.WAGES,\
- REG.WAGES.QTR,\
- OVERTIME.QTR,\
- MEALS.LDG.QTR,\
- TIPS.QTR,\
- FICA.QTR,\
- FED.INC.TAX.QTR,\
- ST.INC.TAX.QTR,\
- ST.DIS.INS.QTR,\
- LOCAL.DREM ************************** READ PASSVAR
- 10020.1 READ #PASSVAR.FIL,1; \
- EMPLOYER.FICA,\
- EMPLOYEE.FICA,\
- STATE.UNEMP,\
- FED.UNEMP,\
- TAX.TIPS,\
- TAX.ST.DIS,\
- DED.DESC$,\
- OTHER.DED.1,\
- OTHER.DED.2,\
- OTHER.DED.3,\
- OTHER.DED.4,\
- OTHER.DED.5,\
- OTHER.DED.6,\
- OTHER.DED.7,\
- OTHER.DED.8,\
- OTHER.DED.9,\
- OTHER.DED.10,\
- TOT.OTHER.DED,\
- TAX.LIAB.1ST,\
- TAX.LIAB.2ND,\
- TAX.LIAB.3RD,\
- TAX.LIAB.4TH, \
- TAX.LIAB.1.3,\
- TAX.LIAB.8.11,\
- TAX.LIAB.16.19,\10010 PRINT #EARNREC.FIL,X+1; \
- EMP.NO,\
- EMP.NAME$,\
- STR.ADDR$,\
- CITY.ST.ZIP$,\
- SSN$,\
- REG.WAGES ,\
- OVERTIME.WAGES ,\
- MEALS.AND.LODGING ,\
- TIPS ,\
- FICA ,\
- FED.INC.TAX ,\
- STATE.INC.TAX ,\
- ST.DIS.INS ,\
- LOCAL.DED.1,\
- LOCAL.DED.2, \
- LOCAL.WITH.1,\
- LOCAL.WITH.2,\
- OTHER.DED,\
- NET.WAGES,\
- REG.WAGES.QTR,\
- OVERTIME.QTR,\
- MEALS.LDG.QTR,\
- TIPS.QTR,\
- FICA.QTR,\
- FED.INC.TAX.QTR,\
- ST.INC.TAX.QTR,\
- ST.DIS.INS.QTR,\
- LOCAL.REM ************************** WRITE PASSVAR
- 10030.1 PRINT #PASSVAR.FIL,1; \
- EMPLOYER.FICA,\
- EMPLOYEE.FICA,\
- STATE.UNEMP,\
- FED.UNEMP,\
- TAX.TIPS,\
- TAX.ST.DIS,\
- DED.DESC$,\
- OTHER.DED.1,\
- OTHER.DED.2,\
- OTHER.DED.3,\
- OTHER.DED.4,\
- OTHER.DED.5,\
- OTHER.DED.6,\
- OTHER.DED.7,\
- OTHER.DED.8,\
- OTHER.DED.9,\
- OTHER.DED.10,\
- TOT.OTHER.DED,\
- TAX.LIAB.1ST,\
- TAX.LIAB.2ND,\
- TAX.LIAB.3RD,\
- TAX.LIAB.4TH,\
- TAX.LIAB.1.3,\
- TAX.LIAB.8.11,\
- TAX.LIAB.16.19,邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋ED.1.QTR,\
- LOCAL.DED.2.QTR,\
- LOCAL.WITH.1.QTR,\
- LOCAL.WITH.2.QTR,\
- OTHER.DED.QTR,\
- NET.WAGES.QTR,\
- REG.WAGES.YR,\
- OVERTIME.YR,\
- MEALS.LDG.YR,\
- TIPS.YR,\
- FICA.YR,\
- FED.INC.TAX.YR,\
- ST.INC.TAX.YR,\
- ST.DIS.INS.YR,\
- LOCAL.DED.1.YR,\
- LOCAL.DED.2.YR,\
- LOCAL.WITH.1.YR,\
- LOCAL.WITH.2.YR,\
- OTHER.DED.YR,\
- NET.WAGES.YR,\
- L1.XE
-
- RETURN
- TAX.LIAB.23.25
- RETURN
- 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋DED.1.QTR,\
- LOCAL.DED.2.QTR,\
- LOCAL.WITH.1.QTR,\
- LOCAL.WITH.2.QTR,\
- OTHER.DED.QTR,\
- NET.WAGES.QTR,\
- REG.WAGES.YR,\
- OVERTIME.YR,\
- MEALS.LDG.YR,\
- TIPS.YR,\
- FICA.YR,\
- FED.INC.TAX.YR,\
- ST.INC.TAX.YR,\
- ST.DIS.INS.YR,\
- LOCAL.DED.1.YR,\
- LOCAL.DED.2.YR,\
- LOCAL.WITH.1.YR,\
- LOCAL.WITH.2.YR,\
- OTHER.DED.YR,\
- NET.WAGES.YR,\
- L1.XE
-
- RETURN
- \
- TAX.LIAB.23.25
- RETURN
- 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋
- 5000 REM ************************** ROUTINE TO READ CLNRNM.FIL
- READ #CLNRNM.FIL,1; \
- CLIENT.NO,\
- CLIENT.NAME$,\
- GL.END.DATE$,\
- PAY.END.DATE$,\
- FISCAL.END.MO,\
- A9.III,\
- PERIOD.TO.ADJ,\
- RUN.NUMBER,\
- MAX.FICA.WAGES,\
- MAX.ST.UNEMP,\
- MAX.FED.UNEMP,\
- MAX.ST.DIS.WAGES,\
- EMP.FICA.RATE,\
- ST.UNEMP.RATE,\
- FED.UNEMP.RATE,\
- ST.DIS.RATE,\
- LOCAL.DESC$,\
- TYPE.OF.RUN,\
- TIPS.F.U.I,\
- MEALS.LDG.TO.ST.UNEMP,\
- TIPS.TO.ST.UNEMP,\
- ST.DIS.FLG,\
- MEALS.LDG.TO.5010 REM ************************** ROUTINE TO WRITE CLNRNM.FIL
- PRINT #CLNRNM.FIL,1; \
- CLIENT.NO,\
- CLIENT.NAME$,\
- GL.END.DATE$,\
- PAY.END.DATE$,\
- FISCAL.END.MO,\
- A9.III,\
- PERIOD.TO.ADJ,\
- RUN.NUMBER,\
- MAX.FICA.WAGES,\
- MAX.ST.UNEMP,\
- MAX.FED.UNEMP,\
- MAX.ST.DIS.WAGES,\
- EMP.FICA.RATE,\
- ST.UNEMP.RATE,\
- FED.UNEMP.RATE,\
- ST.DIS.RATE,\
- LOCAL.DESC$,\
- TYPE.OF.RUN,\
- TIPS.F.U.I,\
- MEALS.LDG.TO.ST.UNEMP,\
- TIPS.TO.ST.UNEMP,\
- ST.DIS.FLG,\
- MEALS.LDG.TOREM 071283 - (DCF) MADE CHANGES FOR CB80 COMPILE
- REM
- REM 062383 - (RCB) CHANGED LEVEL "III" TO "I" IN LINE AFTER 5199
- REM
- REM 062083 - (RCB) CHANGED "Micro Systems" TO "DIMIS Microsystems"
- REM
- REM 052283 - BTC ADDED DIMIS MICROSYSTEMS HEADING
- REM
- REM 051683 - (RCB) DUPED MEMMORY CALCULATION ROUTINE TO AREA ABOVE
- REM 69 FOR CALCULATION ON REENTRY
- REM
- REM 042583 - (RCB) MOVED MEMMORY SIZING STUFF DOWN TO 69
- REM
- REM 041383 - (RCB) ADDED 5000.2 AND LINE ABOVE 50 ABOVE IF LEN(CLIENT$) = 0
- RE- (RCB) ADDED READ RECORD 6 OF CPACTRL.FIL AND CALCULATE ARRAY
- REM SIZE ONLY IF WHAT WAS READ IS 0 ELSE USE WHAT WAS READ -
- REM ALSO 5002 WAS ADDED TO FORCED UPDATING OF OLD CONTROL FILES
- REM
- REM 031683 - (RCB) ADDED HOLE(3) AND HOLE(4) FOR ARRAY SIZE AND INCLUDES FOR
- REM STARFISH INTERFACE
- REM
- REM *** 11/12/82 DTK - ADD IN DEMO VERSION CHECK
- REM ***
- REM *** 11/12/82 DTK - PATCHED TO CHECK CLIENT ID VALID BEFORE LEAVING
- REM ***
- REM *** 10/18/82 DTK - FIX ERROR SS WITH A BAD CLIENT IDN DUPE.KEY$ = "^"
- REM TURN OFF AUTO RETURN AND LINE-FEED - PAGE 25 CBASIC MANUAL
- CONSOLE
- IF LEFT$(CLIENT$,1) = "*" THEN \
- COM.MAND$ = MID$(CLIENT$,2,1) : \
- CLIENT$ = ""
- IF LEN(CLIENT$)<> 0 THEN 69
- REM FOR CB80 DIM FIL$(15),PGM$(15),HOLE(15)
-
- FIRST.TIME = TRUE
- HOLE(1) = 0
- IF LEN(COM.MAND$)<>0 THEN \
- FIL$(1) = LEFT$(COM.MAND$,1) \
- ELSE FIL$(1) = "A"
- 50 IF END #1 THEN 5000
- OPEN FIL$(1)+":CPACTRL.FIL" RECL 80 AS 1 : CPA.FIL = 1
- READ #1,1;XY%,CLR$,CLR.DLY%,CURSDI,\
- TIPS.TO.SDI,\
- ST.UNEMP.CONT.FLG,\
- FORMAT.1,\
- FORMAT.2,\
- TIP.CONT.SHEET,\
- RESERVED,\
- SERIAL.NUMBER
- RETURN
- 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋.SDI,\
- TIPS.TO.SDI,\
- ST.UNEMP.CONT.FLG,\
- FORMAT.1,\
- FORMAT.2,\
- TIP.CONT.SHEET,\
- RESERVED,\
- SERIAL.NUMBER
- RETURN
- 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋M TO INTERFACE WITH SETUP FOR FIRST TIME CREATE
- REM OF CPA CONTROL FILE
- REM
- REM 041283 - (RCB) ADDED 21000 AN OFFSET LEFT VERSION OF 2100 AND
- REM MADE ENTER CLIENT ID AND ENTER FUNCTION CALL IT
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM 031783 - (RCB) ADDED POKE TO SET LINE LENGTH TO ZERO AND PREVENTED
- REM NUMBERS GREATER THAN 10 TO BE INPUTTED FOR MENU OPTION
- REM BY CHANGING FLD.LEN% FROM 2 TO 1
- REM
- REM 022283
- REM ***
- REM *** 10/12/82 DTK - ADD IN SPLIT PROGRAM DISK OPTIONS
- REM **
- REM *** CLIENT PROGRAMMED ACCOUNTING MAIN MENU (MMENU)
- REM *** COPYRIGHT 1982 BY Dimis Micro Systems, Inc.
- %INCLUDE MCOMMON.BAS
- TRUE = -1 : FALSE = 0
- DIM PGM.TYPE$(6)
- COM.MAND$ = COMMAND$
- PGM.TYPE$(1) = "Accounting"
- PGM.TYPE$(2) = "Payroll"
- PGM.TYPE$(3) = "Auxiliary"
- PGM.TYPE$(4) = "Utilities"
- PGM.TYPE$(5) = "Disk Procedures"
- PGM.TYPE$(6) = "N/A"
- VERSION$ = "3.8"
- IF LEN(DUPE.KEY$) = 0 THE$,CUR.DLY%,X.OFF%,Y.OFF%,EOS$,EOL$,HOME$,REVLF$,DUPE.KEY$
- READ #1,2;FILES$,PROG$
- READ #1,3;CLIENT$
- IF END #1 THEN 5002
- READ #1,6;HOLE(3),HOLE(4)
- CLOSE 1
- FOR I%=1 TO 10
- FIL$(I%) = MID$(FILES$,I%,1)
- PGM$(I%) = MID$(PROG$,I%,1)
- NEXT I%
-
- REM ************************ RE-ENTRY FROM SORT DISTRIBUTION ROUTINE
- IF MATCH(":",COMMAND$,2) = 0 THEN GOTO 69
- FREE.MEM = MFRE
- IF FREE.MEM < 0 THEN FREE.MEM = 32767 + ABS(FREE.MEM+32767)
- IF NUM.BITS% = 16 THEN MEM3.PLUG = 6000 : MEM4.PLUG = 6000 \
- ELSE MEM3.PLUG = 2800 : MEM4.PLUG = 3400
- REM IF FREE.MEM > 32767 AND NUM.BITS% = 16 THEN MEM4.PLUG = MEM4.PLUG+11000
- REM MULTI (6) DEMENSIONED ARRAYS
- IF HOLE(3) < 1 THEN HOLE(3) = INT((FREE.MEM-MEM3.PLUG)/(8*6))
- IF HOLE(3) > 500 OR HOLE(3) < 1 THEN HOLE(3) = 500
- REM SINGLE DEMENSIONED ARRAYS
- IF HOLE(4) < 1 THEN HOLE(4) = INT((FREE.MEM-MEM4.PLUG)/(8*1))
- IF HOLE(4) > 3000 OR HOLE(4) < 1 THEN HOLE(4) = 3000
- RE.ENTRY$ = RIGHT$(" "+COMMAND$,LEN(COMMAND$)-2)
- CHAIN RE.EEM4.PLUG)/(8*1))
- IF HOLE(4) > 3000 OR HOLE(4) < 1 THEN HOLE(4) = 3000
- REM DEMO OR USER SERIAL NUMBER ROUTINE
- GOSUB 5100
- DEMO = HOLE(2)
- OPEN FIL$(1)+":CPACTRL.FIL" RECL 80 AS 1 : CPA.FIL = 1
- 70 GOSUB 9005 : PRINT
- 75 PRINT TAB(22);" DIMIS Microsystems, Inc. "
- PRINT TAB(14);" Client Programmed Accounting Ver. ";VERSION$
- PRINT TAB(16);" (c) 1980 Dimis Micro Systems, Inc. "
- PRINT TAB(31);" Level ";LEVEL$
- REM TEMPORARY
- REM PRINT "AUXILIARY ACCOUNTS LIMIT:";HOLE(4);" ACCOUNT COREION"
- PRINT TAB(18);" 7. CHANGE ACTIVE CLIENT ID"
- PRINT TAB(18);" 8. CLIENT MAINTENANCE"
- PRINT TAB(18);" 9. END CPA PROCESSING"
- IF FIRST.TIME THEN GOTO 100
- PRINT TAB(13);" Current Active Client ID = ";
- IF MATCH("@",CLIENT$,1) = 0 THEN PRINT CLIENT$ ELSE \
- PRINT LEFT$(CLIENT$,MATCH("@",CLIENT$,1)-1)
- 100 IF NOT FIRST.TIME AND X <> 7 THEN GOTO 110
-
- MSSG$ =" ENTER CLIENT ID or PRESS RETURN FOR NEW CLIENT>"
- GOSUB 21000 : FLD.LEN% = 5 : GOSUB 9998
- IF UCASE$(REPLY$) =URN to Continue " : \
- GOSUB 2000 : GOSUB 2100 : FLD.LEN% = 1 : GOSUB 9998 : \
- GOTO 110
- IF X=1 THEN P$="AMENU"
- IF X=2 THEN P$="PMENU"
- IF X=3 THEN P$="MENU"
- IF X=4 THEN P$="UMENU"
- IF X=5 THEN P$="DOP"
- IF X=6 THEN P$="SETUP" : X = 1 : HOLE(1) = 255
- IF X=7 THEN GOSUB 9009 : GOTO 100
- IF X=8 THEN P$="NCLIENT" : X = 1
- IF X=9 THEN 517
- IF X<>INT(X) THEN 230
- IF X<1 THEN 230
- IF X<=9 THEN 710
- 230 ERR$ = "INVALID INPUT - TRY AGAIN! " : GOSUB 2000
- FOR I=1 TO 250 : NEXT I
- GOTO 70
orrect Program Disk in drive " + PGM$(X)
- MSSG$ = "Place the " + PGM.TYPE$(X) + " Program disk into drive " + PGM$(X) + " and Press RETURN "
- GOSUB 2000 : GOSUB 2100 : FLD.LEN% = 1 : GOSUB 9998
- GOTO 715
- 5000 REM **************** CTRL.FIL NOT ON SPECIFIED DRIVE
-
- FOR I% = 1 TO 24 : PRINT : NEXT I%
- PRINT CHR$(7)+"CPACTRL.FIL NOT ON DRIVE ";FIL$(1)
- PRINT "Enter Correct Drive (No colon) or RETURN to Create CPACTRL.FIL >";
- FLD.LEN% = 1 : GOSUB 9998
- IF LEN(REPLY$) = 0 THEN 5000.2
- FIL$(1)=UNTRY$
- 69 FREE.MEM = MFRE
- IF FREE.MEM < 0 THEN FREE.MEM = 32767 + ABS(FREE.MEM+32767)
- IF NUM.BITS% = 16 THEN MEM3.PLUG = 6000 : MEM4.PLUG = 6000 \
- ELSE MEM3.PLUG = 2800 : MEM4.PLUG = 3400
- REM IF FREE.MEM > 32767 AND NUM.BITS% = 16 THEN MEM4.PLUG = MEM4.PLUG+11000
- REM MULTI (6) DEMENSIONED ARRAYS
- IF HOLE(3) < 1 THEN HOLE(3) = INT((FREE.MEM-MEM3.PLUG)/(8*6))
- IF HOLE(3) > 500 OR HOLE(3) < 1 THEN HOLE(3) = 500
- REM SINGLE DEMENSIONED ARRAYS
- IF HOLE(4) < 1 THEN HOLE(4) = INT((FREE.MEM-M LIMIT:";HOLE(3)
- IF HOLE(2) = TRUE THEN \
- PRINT TAB(18);" * * Demo System - Not for Sale * * " \
- ELSE \
- PRINT
- PRINT TAB(26);" CPA SYSTEM MENU" : PRINT
- PRINT TAB(13);" WHICH FUNCTION WOULD YOU LIKE TO PERFORM? "
- PRINT TAB(18);" 1. ACCOUNTING OPERATIONS"
- PRINT TAB(18);" 2. POST PAYROLL PROCESSING"
- PRINT TAB(18);" 3. AUXILIARY STATEMENTS "
- PRINT TAB(18);" 4. ACCOUNTING UTILITIES"
- PRINT TAB(18);" 5. DISK OPERATING PROCEDURES"
- PRINT TAB(18);" 6. CHANGE SYSTEM CONFIGURAT "QUIT" THEN GOTO 517
- IF LEN(REPLY$) = 0 THEN CLIENT$ = "" : CHAIN PGM$(1)+":NCLIENT"
- CLIENT$ = UCASE$(LEFT$(REPLY$+"@@@@@",5))
- PRINT #CPA.FIL,3;CLIENT$
- GOTO 5010
- 110 GOSUB 9009 : FIRST.TIME = FALSE
-
- MSSG$ =" ENTER THE NUMBER OF THE FUNCTION TO PERFORM >" :\
- GOSUB 21000 : FLD.LEN% = -1 : GOSUB 9998
- IF LEN(REPLY$)=0 THEN 110
- X=VAL(LEFT$(REPLY$,1))
- IF MATCH(STR$(X),MENU.OPT$,1) = 0 THEN \
- ERR$ = PGM.TYPE$(X) + " Not Included in Level " + LEVEL$ : \
- MSSG$ = "Press RET
- 517 GOSUB 9005 : PRINT : PRINT : PRINT : PRINT :\
- PRINT : PRINT TAB(25);"CPA SYSTEM SHUTDOWN" : PRINT
- PRINT TAB(20);"BEFORE YOU TURN THE SYSTEM OFF"
- PRINT TAB(15);"PLEASE REMOVE ALL DISKETTES FROM DRIVES!"
- 521 CLOSE 1
- REM ***** NORMAL EXIT TO CP/M
- STOP
- 710 IF SIZE(FIL$(2)+":"+CLIENT$+"CLN.FIL") = 0 THEN GOTO 5011
- CLOSE 1
- 715 INITIALIZE
- IF NUM.BITS%=8 THEN EXT$ = ".OVL" ELSE EXT$ = ".OVR"
- IF SIZE(PGM$(X)+":"+P$+EXT$) <> 0 THEN CHAIN PGM$(X)+":"+P$
- ERR$ = "IncCASE$(LEFT$(REPLY$,1))
- GOTO 50
- 5000.2 PRINT
- PRINT
- PRINT "Enter Drive to Create New CPA Control file on (RETURN for A):";
- FLD.LEN% = 1 : GOSUB 9998
- IF LEN(REPLY$) = 0 THEN REPLY$ = "A"
- DRIVE.CTRL$ = UCASE$(LEFT$(REPLY$,1))
- IF DRIVE.CTRL$ < "A" OR DRIVE.CTRL$ > "P" THEN \
- PRINT "Invalid Drive Assignment - Must be A - P" : \
- PRINT : \
- PRINT "Press RETURN to Continue"; : \
- FLD.LEN% = 1 : GOSUB 9998 : \
- GOTO 5000.2
- CLIENT$ = "*" + DRIVE.CTRL$
- CHAIN "SETUP"
- 5002 REM **************** CTRL.FIL NOT COMPLETE - RECORD 6
-
- FOR I% = 1 TO 24 : PRINT : NEXT I%
- PRINT CHR$(7)+"CPACTRL.FIL MUST BE UPDATED FOR CURRENT SOFTWARE VERSION"
- PRINT " Press RETURN to Update CPACTRL.FIL >";
- FLD.LEN% = 2 : GOSUB 9998
- REM TELL SETUP TO CHAIN MMENU INSTEAD OF DOP WHEN FINISHED
- HOLE(1) = 255
- CHAIN "SETUP"
- 5010 REM **************** OPEN FILE WITH CLIENT ID
- IF END #2 THEN 5011
- OPEN FIL$(2)+":"+CLIENT$+"CLN.FIL" RECL 255 AS 2
- CLOSE 2
- FIRST.TIME = FALSE : X = 0
- GOTOELSE XE.EXT$ = ".OVR"
- OPEN PGM$(1)+ ":ETRIAL3"+XE.EXT$ RECL 128 AS 19 : SN.FIL = 19
- READ #SN.FIL,1;SN$
- READ #SN.FIL,2;MENU.OPT$
- READ #SN.FIL,3;BIG.NAME$,LEVEL$
- CLOSE 19
- REM MENU.PLAY = VAL(MENU.OPT$)
- REM MENU.OPT$ = STR$(MENU.PLAY/2)
- FOR I% = 1 TO LEN(SN$) STEP 2
- S$ = S$ + MID$(SN$,I%,1)
- NEXT I%
- A = VAL(MID$(S$,1,1))
- B = VAL(MID$(S$,2,1))
- C = VAL(MID$(S$,3,1))
- D = VAL(MID$(S$,4,1))
- SN= VAL(MID$(S$,5,4))
- A = (9-A) * 1000
- B = (9-B) * 100
- REM **********************************************************************
- %INCLUDE COMMON.BAS
- 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋REM **********************************************************************
- REM ****** 8 BIT Z80 - 8080 VERSION
- 9999 ADDR% = SADD(A$)
- VAR.ADDR%=VARPTR(A$)
- POKE LOC+6,PEEK(VAR.ADDR%)
- REM ADDR% AND 0FFH
- POKE LOC+7,PEEK(VAR.ADDR%+1)
- REM INT(ADDR%/256)
- CALL LOC+3
- RETURN
- 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋%INCLUDE COMMON
- PRINT : PRINT "SORTING . . ."
- REM A.SIZE = 500
- REM FIL$ = LEFT$(COMMAND$,1)
- REM CLIENT$ = "FAR"
- FREE.MEM = FRE
- IF FREE.MEM < 0 THEN FREE.MEM = 32767 + ABS(FREE.MEM+32767)
- A.SIZE = INT(FREE.MEM/75)
- PRINT "Buffer Size = ";A.SIZE
- DIM ACC.NO(A.SIZE),AMOUNT(A.SIZE),DESC$(A.SIZE)
- DIM S9%(INT(LOG(A.SIZE)/LOG(2)+1),2)
- OPEN FIL$(3) + ":" + CLIENT$ + "TRI.FIL" RECL 68 AS 1 : TRI.FIL = 1
- 800 PRINT : PRINT "-";
- SWITCH.FLG = 0
- FIRST.REC% = 1
- 900 PRINT : PRINT ">";
- IF 70
- 5011 IF MATCH("@",CLIENT$,1) <> 0 THEN \
- CLIENT$ = LEFT$(CLIENT$,MATCH("@",CLIENT$,1)-1)
- ERR$="CLIENT ID "+CLIENT$+" NOT IN DIRECTORY - TRY AGAIN "
- GOSUB 2000 : CLIENT$ = ""
- GOTO 100
- 5100 REM ******************************** SERIAL NUMBER ROUTINE
- REM HOLE(2) = -1 FOR DEMO
- REM 0 FOR VALID USER
- REM
- REM SERIAL NUMBER STORED IN ETRIAL3.INT
- HOLE(2) = -1
- IF END # 19 THEN 5199
- IF NUM.BITS% = 8 THEN XE.EXT$ = ".OVL" C = (9-C) * 10
- D = (9-D)
- IF SN = A + B + C + D THEN HOLE(2)=0
- RETURN
- 5199 PRINT "ERROR - SERIAL NUMBER NOT CURRENT - LEVEL I DEMO ASSUMED"
- LEVEL$ = "I" : MENU.OPT$ = "16789"
- RETURN
- %INCLUDE NFLANKS.BAS
- 21000 X%=0 : Y% = 21 : GOSUB 9006 : GOSUB 9009.1
- REM X%=INT(36-(LEN(MSSG$)/2))
- X% = 12 : GOSUB 9006
- PRINT MSSG$;
- RETURN
- 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋END #TRI.FIL THEN 1900
- PLAY.REC% = FIRST.REC%
- FEEL.ACC = 0
- ARRAY% = 1
- 1000 READ #TRI.FIL,PLAY.REC%; ACC.NO(ARRAY%),AMOUNT(ARRAY%),DESC$(ARRAY%)
- IF ACC.NO(ARRAY%) = 9999999.99 THEN 2001
- IF FEEL.ACC > ACC.NO(ARRAY%) THEN LITTLE.SWITCH = 1
- FEEL.ACC = ACC.NO(ARRAY%)
- PLAY.REC% = PLAY.REC% + 1
- ARRAY% = ARRAY% + 1
- IF ARRAY% <= A.SIZE THEN 1000
- MORE = 1 : MULTI = 1
- GOTO 2001
- 1900 PRINT #TRI.FIL,PLAY.REC%;9999999.99,0,"EOF SORT SYA"
- PLAY.REC% = PLAY.REC% - 1
- GOTO 2101
- 2001 ARRAY% = ARRAY% - 1
- 2101 ARRAY.PLAY% = ARRAY%
- REM ARRAY.OAF = ARRAY%-1
- 2200 IF LITTLE.SWITCH = 0 THEN 2300
- GOSUB 1010
- IF LITTLE.SWITCH = 1 THEN \
- SWITCH.FLG = 1 : LITTLE.SWITCH = 0
- LITTLE.SWITCH = 0
- ARRAY.PLAY% = 1
- FOR PLAY.REC% = FIRST.REC% TO FIRST.REC% + ARRAY% - 1
- PRINT #TRI.FIL,PLAY.REC%;ACC.NO(ARRAY.PLAY%), \
- AMOUNT(ARRAY.PLAY%), \
- DESC$(ARRAY.PLAY%)
- ARRAY.PLAY% = ARRAY.PLAY% + 1
- NEXT PLAY.REC%
- 2300 IF MORE = 1 THEN \
- FIRST.REC% = FIRST.REC% + INT(2*(A.S1060 IF I% > J% THEN 1080
- TEMP.ACC = ACC.NO(I%)
- TEMP.AMT = AMOUNT(I%)
- TEMP.DESC$ = DESC$(I%)
- ACC.NO(I%) = ACC.NO(J%)
- AMOUNT(I%) = AMOUNT(J%)
- DESC$(I%) = DESC$(J%)
- ACC.NO(J%) = TEMP.ACC
- AMOUNT(J%) = TEMP.AMT
- DESC$(J%) = TEMP.DESC$
- REM W = ACC.NO(I%) : ACC.NO(I%) = ACC.NO(J%) : ACC.NO(J%) = W
- REM W% = LOC.PNT%(I%) : LOC.PNT%(I%) = LOC.PNT%(J%) : LOC.PNT%(J%) = W%
- I% = I% + 1 : J% = J% - 1
- 1080 IF I% <= J% THEN 1040
- IF J%-L% >= R%-I% THEN 1140
- IF I% >= R% THEN 1130
- S% REM 102883 - (RCB) MODIFIED FOR CB80 AND EVERYBODY GETS DOP
- REM
- REM 061783 - (RCB) ADDED LEVEL 3.5 (IV C) FOR CANADA (MONROE) VERSION
- REM
- REM ******************************************************************
- REM *** ***
- REM *** SERIALIZATION PROGRAM ***
- REM *** ***
- REM *** ***
- REM ***** LEVEL$ = "I" : GOTO 145
- IF LEV.NO = 2 THEN MENU.OPT$ = "1267895" : LEVEL$ = "II": GOTO 145
- IF LEV.NO = 3 THEN MENU.OPT$ = "12467895" : LEVEL$ ="III":GOTO 145
- IF LEV.NO = 4 THEN MENU.OPT$ = "123456789" : LEVEL$ ="IV":GOTO 145
- IF LEV.NO=3.5 THEN MENU.OPT$ = "13456789" : LEVEL$ ="IV C":GOTO 145
- GOTO 120
- 145 PRINT "READY TO SERIALIZE #";S$
- INPUT "INSERT DISK AND PRESS RETURN ";LINE REQ$
- IF NUM.BITS% = 16 THEN EXT$ = "OVR" ELSE EXT$ = "OVL"
- CREATE XE.PGM$+":ETRIAL3."+EXT$ RECL 128 AS 1
- LIZE : S$=STR$(VAL(S$)+1) : GOTO 145
- STOP
- REM ************* TEST CODE
- GOSUB 5100
- GOTO 100
- 5100 REM ******************************** SERIAL NUMBER ROUTINE
- REM HOLE(2) = -1 FOR DEMO
- REM 0 FOR VALID USER
- REM
- REM SERIAL NUMBER STORED IN ETRIAL3.OVL
- FOR I% = 1 TO LEN(SN$) STEP 2
- S$ = S$ + MID$(SN$,I%,1)
- NEXT I%
- PRINT "THE ENCODED KEY = ";S$
- A = VAL(MID$(S$,1,1))
- B = VAL(MID$(S$,2,1))
- C = VAL(MID$(S$IZE/3)) : \
- MORE = 0 : \
- GOTO 900
- IF SWITCH.FLG = 1 AND MULTI THEN 800
- CLOSE TRI.FIL
- IF HOLE(1) = 4 THEN \
- CHAIN PGM$(1) + ":" + "GENLED2" \
- ELSE CHAIN PGM$(1) + ":" + "ETRIAL2"
- 1010 RANDOMIZE
- S% = 1
- S9%(1,1) = 1 : S9%(1,2) = ARRAY%
- 1020 L% = S9%(S%,1) : R% = S9%(S%,2) : S% = S% - 1
- 1030 I% = L% : J% = R% : X = ACC.NO(INT(RND*(R%-L%)+.5)+L%) : PRINT ".";
- 1040 IF ACC.NO(I%) >= X THEN 1050
- I% = I% + 1 : GOTO 1040
- 1050 IF X >= ACC.NO(J%) THEN 1060
- J% = J% - 1 : GOTO 1050
- = S% + 1 : S9%(S%,1) = I% : S9%(S%,2) = R%
- 1130 R% = J% : GOTO 1170
- 1140 IF L% >=J% THEN 1160
- S% = S% + 1 : S9%(S%,1) = L% : S9%(S%,2) = J%
- 1160 L% = I%
- 1170 IF L% < R% THEN PRINT CHR$(8);"o";CHR$(8); : GOTO 1030
- IF S% > 0 THEN PRINT CHR$(8);"O";CHR$(8); : GOTO 1020
- RETURN
- 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋*************************************************************
- %INCLUDE COMMON.BAS
- CLR$ = CHR$(27) + "*":
- PASS.WORD$ = COMMAND$
- IF UCASE$(PASS.WORD$) = "SEQ" THEN SEQ = -1 : GOTO 55
- 50 IF UCASE$(PASS.WORD$) <> "PSNV" THEN GOTO 50
- 55 PRINT CLR$
- INPUT "ENTER DRIVE ACCOUNTING PROGRAM DISK IS LOCATED ON *>";XE.PGM$
- 100 PRINT
- INPUT "ENTER 4 DIGIT SERIAL NUMBER *>";S$
- 120 INPUT "ENTER LEVEL NUMBER (1-4, 3.5 for Canada no Payroll Version):";LEV.NO
- IF LEV.NO = 1 THEN MENU.OPT$ = "167895" :A = VAL(MID$(S$,1,1)) : A1 = A
- B = VAL(MID$(S$,2,1)) : B1 = B
- C = VAL(MID$(S$,3,1)) : C1 = C
- D = VAL(MID$(S$,4,1)) : D1 = D
- A = 9 - A
- B = 9 - B
- C = 9 - C
- D = 9 - D
- IF UCASE$(S$) = "DEMO" THEN A = A-1
- SN$ = STR$(A) + CHR$(8) + STR$(B) + CHR$(12) + STR$(C) + CHR$(8) +\
- STR$(D) + CHR$(8) + STR$(A1)+ CHR$(12) + STR$(B1)+ CHR$(8) +\
- STR$(C1)+ CHR$(8) + STR$(D1)+ CHR$(12)
- PRINT #1,1;SN$
- PRINT #1,2;MENU.OPT$
- PRINT #1,3;"HI",LEVEL$
- 200 CLOSE 1
- IF SEQ = -1 THEN INITIA,3,1))
- D = VAL(MID$(S$,4,1))
- SN= VAL(MID$(S$,5,4))
- A = (9-A) * 1000
- B = (9-B) * 100
- C = (9-C) * 10
- D = (9-D)
- IF SN = A + B + C + D THEN PRINT SN;" IT WORKS "
- 5199 RETURN
- 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋REM 071183 - DCF CHANGED ALL A'S TO A1.XE FOR CB80 COMPILE
- REM CHANGED ALL P'S TO PG.LEN FOR CB80 COMPILE
- REM
- REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micr Systems"
- REM
- REM 062083 - (RCB) CHANGED "R & B" TO "D M S"
- REM
- REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
- REM
- REM 042183 - DCF CHANGED FLD.LEN%=1 FOR M TO RETURN TO MENU AND CHANGED
- REM CLIENT.NO FLD.LEN% = -6
- REM
- REM 042083 - DCF FIXED BUG #31-041983-IMP BY ADDING A CHECK FOR A CARRIES AFTER
- REM ERROR MESSAGE SO IT PRINTS OVER THE WHOLE LINE
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM 023683 - (RCB) ADDED M=HOLE(4) AND PRINTING OUT MAXIMUM EMPLOYEES
- REM
- REM 021683 - (RCB) ADDED HOLE(4) TO DEMENSIONING
- REM
- REM *** 11/11/82 DTK - FIX ASK FOR DISK BEFORE CHECKING
- REM ***
- REM *** 09/23/82 DTK - NEW FILE SIZE 525 & CHECKED CHAINS
- REM ***
- REM *** 09/17/82 DTK FIXED BUGS FROM SHEET 917
- REM ***
LIENT$+"CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL = 1
- OPEN FIL$(3)+":"+CLIENT$+"EAR.FIL" RECL 525 AS 2 : EARNREC.FIL = 2
- GOTO 1080
- 10 READ #EARNREC.FIL,X+1; \
- EMP.NO,\
- EMP.NAME$,\
- STR.ADDR$,\
- CITY.ST.ZIP$,\
- SSN$,\
- REG.WAGES ,\
- OVERTIME.WAGES ,\
- MEALS.AND.LODGING ,\
- TIPS ,\
- FICA ,\
- FED.INC.TAX ,\
- STATE.INC.TAX ,\
- ST.DIS.INS ,\
- LOCAL.DED.1,\
- LOCAL.DED.2, \
- LOCAL.WITH.1,\
- LOCAL.WITH.2,\
- OTHER.DED,\
- NET.WAGES,\
- REG.WAGES.QTR,\
- OVERL.EARN.YR = REG.WAGES.YR+OVERTIME.YR+MEALS.LDG.YR+TIPS.YR
- RETURN
- 60 PRINT #EARNREC.FIL,X+1;\
- EMP.NO,\
- EMP.NAME$,\
- STR.ADDR$,\
- CITY.ST.ZIP$,\
- SSN$,\
- REG.WAGES ,\
- OVERTIME.WAGES ,\
- MEALS.AND.LODGING ,\
- TIPS ,\
- FICA ,\
- FED.INC.TAX ,\
- STATE.INC.TAX ,\
- ST.DIS.INS ,\
- LOCAL.DED.1,\
- LOCAL.DED.2, \
- LOCAL.WITH.1,\
- LOCAL.WITH.2,\
- OTHER.DED,\
- NET.WAGES,\
- REG.WAGES.QTR,\
- OVERTIME.QTR,\
- MEALS.LDG.QTR,\
- TIPS.QTR,\
- FICA.QTR,\
- ,I3,I4,I5,I6,I7,I8,I9,\
- J0,J1,J2,J3,J4,J5,J6,J7,J8,J9,L0,L1,L2,L3,L4,L5,L6,L7,L8,L9, \
- M0,M1,M2,M3,M4,M5,M6,M7,M8,M9,O0,O1,L
- RETURN
- 150 P(1,1)=REG.WAGES
- P(1,2)=OVERTIME.WAGES
- P(1,3)=MEALS.AND.LODGING
- P(1,4)=TIPS
- P(1,5)=FICA
- P(1,6)=FED.INC.TAX
- P(1,7)=STATE.INC.TAX
- P(1,8)=ST.DIS.INS
- P(1,9)=LOCAL.DED.1
- P(1,10)=LOCAL.DED.2
- P(1,11)=LOCAL.WITH.1
- P(1,12)=LOCAL.WITH.2
- P(1,13)=OTHER.DED
- P(1,14)=NET.WAGES
- P(2,1)=REG.WAGES.QTR
- P(2,2)=OVERAGE
- REM RETURN
- REM 042083 - DCF FIXED BUG #32-041983-IMP
- REM
- REM 042083 - DCF FIXED BUG #33-041983-3-IMP
- REM
- REM 041983 - DCF FIXED BUG CODE #35-0419-83-1-IMP BY ADDING A CHECK IF THERE
- REM IS ANY EMPLOYEES BEFORE YOU PRINT A EMPLOYEE LIST
- REM
- REM 040883 - DCF FIXED BUG CODE #040883-2-IMP CHANGED THE CKECK FOR VALID
- REM INPUT WHEN MAKING CHANGES TO AN EMPLOYEE FROM <0 TO <1.
- REM
- REM 040883 - DCF FIXED BUG CODE #040883-3-IMP ADDED EXTRA SPAC
- REM *** 09/13/82 DTK - FIXED MINOR PRINTING FORMAT IN PRINTER HDG , TO ;
- REM ***
- REM *** 09/10/82 DTK - FIXESPRINT FORMAT PROBLEMS
- REM ***
- REM ***EMPLOYEE EARNINGS RECORD CHANGES *** (EERCHGS)(10D)(VERSION 4.0)
- REM ***COPYRIGHT 1982 BY - R & B COMPUTER SYSTEMS INC.
- REM *** 648 SOUTH RIVER DR. 602-968-7101
- REM *** TEMPE, AZ. 85281
- %INCLUDE COMMON.BAS
-
- Q = 0 : TRUE = -1 : FALSE = NOT TRUE
- DIM P(3,14),E(HOLE(4)),A(93)
-
- OPEN FIL$(2)+":"+CTIME.QTR,\
- MEALS.LDG.QTR,\
- TIPS.QTR,\
- FICA.QTR,\
- FED.INC.TAX.QTR,\
- ST.INC.TAX.QTR,\
- ST.DIS.INS.QTR,\
- LOCAL.DED.1.QTR,\
- LOCAL.DED.2.QTR,\
- LOCAL.WITH.1.QTR,\
- LOCAL.WITH.2.QTR,\
- OTHER.DED.QTR,\
- NET.WAGES.QTR,\
- REG.WAGES.YR,\
- OVERTIME.YR,\
- MEALS.LDG.YR,\
- TIPS.YR,\
- FICA.YR,\
- FED.INC.TAX.YR,\
- ST.INC.TAX.YR,\
- ST.DIS.INS.YR,\
- LOCAL.DED.1.YR,\
- LOCAL.DED.2.YR,\
- LOCAL.WITH.1.YR,\
- LOCAL.WITH.2.YR,\
- OTHER.DED.YR,\
- NET.WAGES.YR,\
- L
-
- TOTA FED.INC.TAX.QTR,\
- ST.INC.TAX.QTR,\
- ST.DIS.INS.QTR,\
- LOCAL.DED.1.QTR,\
- LOCAL.DED.2.QTR,\
- LOCAL.WITH.1.QTR,\
- LOCAL.WITH.2.QTR,\
- OTHER.DED.QTR,\
- NET.WAGES.QTR,\
- REG.WAGES.YR,\
- OVERTIME.YR, \
- MEALS.LDG.YR,\
- TIPS.YR,\
- FICA.YR,\
- FED.INC.TAX.YR,\
- ST.INC.TAX.YR,\
- ST.DIS.INS.YR,\
- LOCAL.DED.1.YR,\
- LOCAL.DED.2.YR,\
- LOCAL.WITH.1.YR,\
- LOCAL.WITH.2.YR,\
- OTHER.DED.YR,\
- NET.WAGES.YR,\
- 0
- RETURN
- 100 READ #EARNREC.FIL,X+1;N9,N9$,S9$,C9$,Z9$,I0,I1,I2TIME.QTR
- P(2,3)=MEALS.LDG.QTR
- P(2,4)=TIPS.QTR
- P(2,5)=FICA.QTR
- P(2,6)=FED.INC.TAX.QTR
- P(2,7)=ST.INC.TAX.QTR
- P(2,8)=ST.DIS.INS.QTR
- P(2,9)=LOCAL.DED.1.QTR
- P(2,10)=LOCAL.DED.2.QTR
- P(2,11)=LOCAL.WITH.1.QTR
- P(2,12)=LOCAL.WITH.2.QTR
- P(2,13)=OTHER.DED.QTR
- P(2,14)=NET.WAGES.QTR
-
- P(3,1)=REG.WAGES.YR
- P(3,2)=OVERTIME.YR
- P(3,3)=MEALS.LDG.YR
- P(3,4)=TIPS.YR
- P(3,5)=FICA.YR
- P(3,6)=FED.INC.TAX.YR
- P(3,7)=ST.INC.TAX.YR
- P(3,8)=ST.DIS.INS.YR
- P(3,9)=LOCAL.DED.1.YR
- P(3,10)=LOCAL.DED.2.YR
- P(3,11)=LOCAL.WITH.1.YR
- P(3,12)=LOCAL.WITH.2.YR
- P(3,13)=OTHER.DED.YR
- P(3,14)=NET.WAGES.YR
- RETURN
- 300 N9=EMP.NO : N9$=EMP.NAME$ : S9$=STR.ADDR$ : C9$=CITY.ST.ZIP$ : Z9$=SSN$
- GOSUB 900
- X1 = ASC(N9$)-32
- IF A(X1) = -1 THEN A(X1) = X
- FOR X2 = X1 + 1 TO 93
- A(X2) = A(X2) + 1
- NEXT X2
- X3 = X
- IF X = EER.CNT THEN 380
- A1.XE = EER.CNT - X - 1 : GOSUB 950
- 380 EMP.NAME$ = N9$ : STR.ADDR$ = S9$ : CITY.ST.ZIP$ = C9$
- SSN$ = Z9.WITH.1.QTR=0
- LOCAL.WITH.2.QTR=0: OTHER.DED.QTR=0 : NET.WAGES.QTR=0
- REG.WAGES.YR=0 : OVERTIME.YR=0 : MEALS.LDG.YR=0
- TIPS.YR=0 : FICA.YR=0 : FED.INC.TAX.YR=0
- ST.INC.TAX.YR=0 : ST.DIS.INS.YR=0 : LOCAL.DED.1.YR=0
- LOCAL.DED.2.YR=0 : LOCAL.WITH.1.YR=0 : LOCAL.WITH.2.YR=0
- OTHER.DED.YR=0 : NET.WAGES.YR=0
-
- X = X3 : GOSUB 60 : EER.CNT = EER.CNT + 1 : E(X) = EMP.NO
- REM WRITE #0%356*EER.CNT,&1,NOENDMARK
- TEMP = EMP.NO : TEMP.X = X
- EMP.NO = -1 537
- IF A(93) = EER.CNT - 1 THEN A(93) = -1
- GOTO 537
- 533 IF (A(X4) = X3 AND (A(X4+1)-A(X4)=1 OR A(X4)=EER.CNT-1)) THEN A(X4) = -1
- FOR X = X4+1 TO 93
- IF A(X) <> -1 THEN A(X) = A(X) - 1
- NEXT X
- 537 REM LINE HOLDER
- EER.CNT = EER.CNT - 1
- RETURN
- 630 PRINT
- PRINT USING "THAT EER HAS TOTAL EARNINGS OF #,###,###,###.##"; \
- TOTAL.EARN.YR/100;
- PRINT " - CANNOT DELETE IT !"
- F = 0
- RETURN
- 700 X8 = X1 : GOSUB 900 : X6 = ASC(N9$)-32 : X1 = X8
- IF X-X1 > -1 AND X-XXT X
- X = 0
- 748 IF END #2 THEN 756
- GOSUB 10
- IF EMP.NO = -1 THEN 756
- X1 = ASC(EMP.NAME$)-32
- E(X) = EMP.NO
- IF A(X1) = -1 THEN A(X1) = X
- X = X + 1 : GOTO 748
- 756 RETURN
- 800 IF Q1 THEN Q = 1
- 805 GOSUB 10 : X = X - 1 : E(X) = EMP.NO
- GOSUB 60 : X = X + 2 : A1.XE = A1.XE - 1
- IF A1.XE > 0 THEN 805
- Q = 0
- RETURN
- 900 X1 = ASC(N9$) - 32
- FOR X2 = X1 TO 93
- IF A(X2) <> -1 THEN 905
- NEXT X2
- X = EER.CNT : RETURN
- 905 X = A(X2)
- 907 IF END #2 THENB(18);"EDITS OR LISTS EMPLOYEE INFORMATION" : PRINT
- PRINT " Press RETURN Key to Continue or 'M' to Return to Payroll Menu ";
- B$=" "
- FLD.LEN% = 1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$,1))
- IF M$="M" THEN 3560
- 1380 GOSUB 9005 : PRINT : PRINT
- IF SIZE(FIL$(2)+":"+CLIENT$+"CLN.FIL") = 0 THEN \
- INITIALIZE : GOSUB 6420 : GOSUB 6400 : GOTO 1380
- PRINT
- PRINT "ENTER THE CLIENT NUMBER FROM THE CONTROL SHEET >";
- FLD.LEN% = -6 : GOSUB 9998 : R = VAL(REPLY$) : PRI$ : EMP.NO = N9 : REG.WAGES =0
- OVERTIME.WAGES=0 : MEALS.AND.LODGING=0 : TIPS =0
- FICA =0 : FED.INC.TAX =0 : STATE.INC.TAX =0
- ST.DIS.INS =0 : LOCAL.DED.1=0 : LOCAL.DED.2=0
- LOCAL.WITH.1=0 : LOCAL.WITH.2=0 : OTHER.DED=0
- NET.WAGES=0 : REG.WAGES.QTR=0 : OVERTIME.QTR=0
- MEALS.LDG.QTR=0 : TIPS.QTR=0 : FICA.QTR=0
- FED.INC.TAX.QTR=0 : ST.INC.TAX.QTR=0 : ST.DIS.INS.QTR=0
- LOCAL.DED.1.QTR=0 : LOCAL.DED.2.QTR=0 : LOCAL: X = EER.CNT
- GOSUB 60 : REM WRITE OUT MEXICAN END OF FILE
- EMP.NO = TEMP : X = TEMP.X
- RETURN
- 500 GOSUB 10
- IF TOTAL.EARN.YR <> 0 THEN 630
- X4 = ASC(EMP.NAME$) - 32
- X3 = X
- IF X = EER.CNT - 1 THEN 520
- X = X + 1 : A1.XE = EER.CNT - X : GOSUB 800
- 520 REM WRITE #0%356*(EER.CNT-1),&1,NOENDMARK
- TEMP = EMP.NO : TEMP.X = X
- EMP.NO = -1 : X = EER.CNT-1
- GOSUB 60 : REM WRITE OUT MEXICAN END OF FILE
- EMP.NO = TEMP : X = TEMP.X
-
- IF X4 <> 93 THEN 533
- IF A(93) <> X3 THEN 1 < 2 THEN X = X1 : GOTO 716
- IF X1 < X THEN 714
- X7 = X : A1.XE = X1 - X - 1 : GOSUB 950 : X = X7
- GOTO 716
- 714 X7 = X : X = X1 + 1 : A1.XE = X7 - X1 - 1 : GOSUB 800 : X = X7 - 1
- 716 GOSUB 8760 : GOSUB 60 : E(X) = EMP.NO
- IF X5 = X6 THEN 756
- IF X5 < X6 THEN 740
- FOR X = X6 + 1 TO X5
- IF A(X) <> -1 THEN A(X) = A(X) + 1
- NEXT X : GOTO 746
- 740 FOR X = X5 + 1 TO X6
- IF A(X) <> -1 THEN A(X) = A(X) - 1
- NEXT X
- 746 FOR X = 0 TO 93
- A(X) = -1
- NE 911
- REM CHECK FOR CORRECT FILE
- GOSUB 10
- IF EMP.NO = -1 THEN 911
- IF EMP.NAME$ > N9$ THEN 911
- X = X + 1 : GOTO 907
- 911 RETURN
- 950 X4 = X : X = X + A1.XE
- 951 GOSUB 10 : X = X + 1 : E(X) = EMP.NO
- GOSUB 60 : X = X - 2
- IF X >= X4 THEN 951
- RETURN
- 1080 M=HOLE(4) : Q1=0
- GOSUB 9005
- PRINT
- PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
- PRINT
- PRINT TAB(22);"** PAYROLL MENU OPTION #1 **"
- PRINT TANT : PRINT
- REM READ #0 %0,CLIENT.NO,CLIENT.NAME$
- GOSUB 5000 : REM READ IN CLNRNM.FIL
-
- IF R=CLIENT.NO THEN GOTO 1600 \
- ELSE \
- PRINT "THE CLIENT NUMBER OF THE DISK IN DRIVE ";FIL$(2);" IS #";CLIENT.NO :\
- PRINT " PLEASE CHANGE THE DISK OR ENTER THE CORRECT NUMBER!" :\
- PRINT CHR$(7) : PRINT" PRESS RETURN TO CONTINUE "; : \
- FLD.LEN%=1 : GOSUB 9998 : GOTO 1380
- 1600 PRINT : PRINT " WORKING . . ."
- FOR X = 0 TO 93
- A(X) = -1
- NEXT X
- FOR X=0 TO M-1
- IF END #2 THEN 1800
- GOSUB 10
- IF EMP.NO = -1 THEN 1800
- EER.CNT=EER.CNT+1
- X1 = ASC(EMP.NAME$) - 32
- IF A(X1) = -1 THEN A(X1) = X
- E(X)=EMP.NO
- NEXT X
- 1800 CONSOLE
- GOSUB 9005 : PRINT : PRINT : PRINT TAB(15);" D M S Client Programmed Accounting"
- PRINT : PRINT TAB(25);"EMPLOYEE EDIT MENU"
- PRINT : PRINT TAB(8);"'EER' is abbreviation for 'EMPLOYEE EARNINGS RECORD'" : PRINT
- PRINT TAB(11);"WHICH FUNCTION WOULD YOU LIKE TO PERFORM?"
- PRINT TAB(10);" A. AD520
- IF X$="D" THEN 3320
- IF X$="V" THEN 5740
- IF X$="P" THEN 3620
- IF X$="M" THEN 3560
- PRINT "INVALID INPUT - TRY AGAIN!"
- GOTO 6320
- 2180 IF EER.CNT>=M-1 THEN 2420
- GOSUB 6460
- IF EMP.NO=-1 THEN 1800
- GOSUB 6660
- IF F=0 THEN 2320
- PRINT CHR$(7);"THAT EMPLOYEE NUMBER HAS ALREADY BEEN USED - TRY AGAIN!"
- GOTO 6320
- 2320 GOSUB 6800 : GOSUB 6980
- GOSUB 7060 : GOSUB 7140
- GOSUB 300
- GOTO 1800
- 2420 PRINT USING "THE FILE IS FULL WITH ####### EER'S";EER.CNT
- PRINT "YOU CANNOT OSUB 6660
- IF F=1 THEN 2700
- 2660 PRINT : PRINT "THERE IS NO EMPLOYEE ON FILE WITH THAT NUMBER, PLEASE CHECK!"
- GOTO 6320
- 2670 PRINT : PRINT " INVALID INPUT - TRY AGAIN! "
- FOR XE = 1 TO 250 : NEXT XE : GOTO 2520
- 2700 X1=X : S1=0 : S2=0 : S3=0 : S4=0 : S5=0
- 2720 GOSUB 9005
- PRINT "ENTER 1. To Change Employee Number,"
- PRINT " 2. To Change Employee Name,"
- PRINT " 3. To Change Street Address,"
- PRINT " 4. To Change City, State & Zip Code,"
- PRINT " 5. T!"
- GOTO 3000
- 3160 GOSUB 6800
- S2=1 : GOTO 2720
- 3200 GOSUB 6980
- S3=1 : GOTO 2720
- 3240 GOSUB 7060
- S4=1 : GOTO 2720
- 3280 GOSUB 7140
- S5=1 : GOTO 2720
- 3320 GOSUB 9005 : PRINT : PRINT " OPTION D : DELETE AN EER"
- PRINT : PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
- PRINT "ENTER NUMBER OF EMPLOYEE TO BE DELETED > <";
- X=5 : GOSUB 9160 : PRINT ">"; : FLD.LEN% = -7 : GOSUB 9998
- IF LEN(REPLY$) = 0 THEN 3530
- EMP.NO = VAL(REPLY$) : ))
- IF X$<>"P" AND X$ <> "D" THEN \
- ERR$ = "INVALID INPUT - TRY AGAIN " : GOSUB 2000 :\
- FOR XE = 1 TO 250 : NEXT XE : GOSUB 9009 : GOTO 3620
-
- IF X$ = "P" THEN :\
- O=1 : P1=59 : PAGE.NO=1 :\
- ERR$ = "SET THE PRINTER AND PAPER" : GOSUB 2000 : \
- PRINT TAB(20); : GOSUB 6400 : GOSUB 9005 : PRINT : GOSUB 8820 :\
- LPRINTER : GOTO 3840 \
- ELSE \
- O=0 : P1=21 :\
- CONSOLE : GOTO 3860
- 3840 PRINT
- IF O=1 THEN PRINT USING "PAGE ####";TAB(70),PAGE.NO
- PRINT
- 3860 IF X$="D" THED an EER"
- PRINT TAB(10);" C. CHANGE an EER"
- PRINT TAB(10);" D. DELETE an EER"
- PRINT TAB(10);" V. VIEW an EER"
- PRINT TAB(10);" P. PRINT or DISPLAY the Employee List"
- PRINT TAB(10);" M. RETURN to Payroll Menu"
- PRINT
- PRINT " Maximum number of employees: ";HOLE(4)
- PRINT
- PRINT " ENTER THE LETTER OF THE FUNCTION TO PERFORM :";
- FLD.LEN% = 1 : GOSUB 9998 : X$ = UCASE$(LEFT$(REPLY$,1))
- PRINT
- IF X$="A" THEN 2180
- IF X$="C" THEN 2ADD MORE EER'S!"
- PRINT "SEE CPA MAIN MENU OPTION #5 TO CHANGE THE SIZE"
- PRINT " OF THE FILE EARNREC"
- GOTO 6320
- 2520 GOSUB 9005 : PRINT
- PRINT " OPTION C : CHANGE AN EER"
- PRINT : PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
- PRINT "ENTER NUMBER OF EMPLOYEE TO BE CHANGED > <";
- X=5 : GOSUB 9160 : PRINT ">"; : FLD.LEN% = -7 : GOSUB 9998
- IF LEN(REPLY$) = 0 THEN 2670
- EMP.NO = VAL(REPLY$) : PRINT
- IF EMP.NO=-1 THEN 1800
- Go Change Social Security Number or"
- PRINT " 6. To End Changes of this EER >";
- FLD.LEN% = -1 : GOSUB 9998 : XE.X1=VAL(REPLY$)
- IF XE.X1 < 1 OR XE.X1 > 6 THEN ERR$="INVALID INPUT - TRY AGAIN!" :\
- GOSUB 2000 :FOR XE=1 TO 250 : NEXT XE : GOSUB 9005 : GOTO 2720
- PRINT
- ON XE.X1 GOTO 3000,3160,3200,3240,3280,4340
- 3000 GOSUB 6480
- IF EMP.NO=-1 THEN 2720
- GOSUB 6660
- IF F=1 THEN 3120
- E(X1)=EMP.NO
- S1=1 : GOTO 2720
- 3120 PRINT "THAT EMPLOYEE NUMBER HAS ALREADY BEEN USED - TRY AGAINPRINT
- IF EMP.NO= -1 THEN 1800
- GOSUB 6660
- IF F=0 THEN 3520
- GOSUB 500
- IF F=0 THEN 6320
- GOTO 1800
- 3520 PRINT : PRINT "THERE IS NO EMPLOYEE ON FILE WITH THAT NUMBER, PLEASE CHECK!"
- GOTO 6320
- 3530 PRINT : PRINT "INVALID INPUT - TRY AGAIN!"
- FOR XE = 1 TO 250 : NEXT XE : GOTO 3320
-
- 3560 CLOSE 1,2
- CHAIN PGM$(2)+":"+"PMENU"
- 3620 MSSG$ = "Enter 'P' To PRINT Or 'D' To DISPLAY The Employee List :"
- GOSUB 2100 : FLD.LEN% = 1 : GOSUB 9998 : X$=UCASE$(LEFT$(REPLY$,1N GOSUB 9005
- PRINT TAB(10);CLIENT.NAME$;TAB(55);
- PRINT USING "CLIENT NUMBER ######";CLIENT.NO
- PRINT TAB(10);"EMPLOYEE LIST"
- IF X$="D" THEN 3980
- PRINT TAB(10);LEFT$(D$,2);"/";MID$(D$,3,2);"/";MID$(D$,5,2)
- PRINT : PRINT : PRINT : PG.LEN=9 : GOTO 4000
- 3980 PRINT : PG.LEN=3
- 4000 REM OPENING SOME FILE
- IF EER.CNT = 0 THEN 4241
- FOR X=0 TO EER.CNT-1
- GOSUB 10
- PRINT USING "#######";TAB(5);EMP.NO;
- PRINT TAB(13);EMP.NAME$," ";LEFT$(SSN$,3);"-";MID$(SSN$,4,2);"-";MID$(SSN$,6,4)
- PRINT TAB(13);STR.ADDR$," ";CITY.ST.ZIP$
- PRINT
- PG.LEN=PG.LEN+3
- IF PG.LEN<P1 THEN 4240
- IF X$="P" THEN 4220
- PRINT " PRESS RETURN TO CONTINUE "
- FLD.LEN% = 1 : GOSUB 9998 : M$=LEFT$(M$,1)
- GOSUB 9005 : PG.LEN=1
- GOTO 4240
- 4220 IF O=1 THEN \
- PAGE.NO=PAGE.NO+1 : PRINT CHR$(12); : PRINT :\
- PRINT USING "PAGE ####";TAB(55);PAGE.NO :\
- ELSE
- PRINT : PRINT : PRINT : PG.LEN=3
- 4240 NEXT X
- 4241 PRINT TAB(15);"THERE ARE";
- PRINT USING "###### EMPLOYEES 0
- GOTO 1800
- 5740 GOSUB 9005 : PRINT
- PRINT " OPTION V : VIEW AN EER"
- PRINT : PRINT
- PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
- PRINT "ENTER THE NUMBER OF THE EMPLOYEE YOU WANT TO VIEW > <";
- X=5 : GOSUB 9160 : PRINT ">"; : FLD.LEN% = -7 : GOSUB 9998
- EMP.NO = VAL(REPLY$) : PRINT
- IF EMP.NO=-1 THEN 1800
- GOSUB 6660
- IF F=0 THEN 2660
- GOSUB 10 : GOSUB 150
- GOSUB 9005
- PRINT "#";
- PRINT USING "#######";EMP.NO;TAB(10);
- PRINT EMP.NAME$," ,P(2,3)/100,P(3,3)/100
- PRINT "TAXABLE TIPS:";TAB(34);
- PRINT USING "###,###,###.##";P(1,4)/100,P(2,4)/100,P(3,4)/100
- PRINT "FICA WITHHELD:";TAB(34);
- PRINT USING "###,###,###.##";P(1,5)/100,P(2,5)/100,P(3,5)/100
- PRINT "FEDERAL INCOME TAX WITHHELD:";TAB(34);
- PRINT USING "###,###,###.##";P(1,6)/100,P(2,6)/100,P(3,6)/100
- PRINT "STATE INCOME TAX WITHHELD:";TAB(34);
- PRINT USING "###,###,###.##";P(1,7)/100,P(2,7)/100,P(3,7)/100
- PRINT "STATE DISABILITY INS WITHHELD:";TAB(34);
- PRINT USING "##ING "###,###,###.##";P(1,13)/100,P(2,13)/100,P(3,13)/100
- PRINT "NET PAY:";TAB(34);
- PRINT USING "###,###,###.##";P(1,14)/100,P(2,14)/100,P(3,14)/100
- PRINT
- GOTO 6340
- 6320 PRINT CHR$(7)
- 6340 PRINT " PRESS RETURN TO RETURN TO MENU";
- FLD.LEN% = 1 : GOSUB 9998 : M$=LEFT$(M$,1)
- GOTO 1800
- PRINT " PLEASE CORRECT!"
- 6400 PRINT " THEN PRESS RETURN ";
- FLD.LEN% = 1 : GOSUB 9998 : M$=LEFT$(M$,1)
- RETURN
- 6420 PRINT "INSERT A CLIENT DATA FILE DISK IN DRIVE ";FIL$(2);" (NO WRITMPLOYEE NUMBER - TRY AGAIN!"
- PRINT CHR$(7) : GOTO 6500
- 6640 RETURN
- 6601 PRINT "INVALID INPUT - TRY AGAIN!"
- FOR XE = 1 TO 250 : NEXT XE
- GOTO 6460
- 6660 F=0
- FOR X=0 TO EER.CNT-1
- IF E(X)=EMP.NO THEN GOTO 6760
- NEXT X
- RETURN
- 6760 F=1
- RETURN
- 6800 PRINT "ENTER LAST NAME, FIRST NAME & MIDDLE INITIAL (25X)"
- PRINT ": :";
- X=25 : GOSUB 9160 : PRINT":"; : FLD.LEN% = 25 : GOSUB 9998
- EMP.NAME$=LEFT$(REPLY$+" IN THE FILE";EER.CNT
- PRINT TAB(15);"THE MAXIMUM FOR THIS FILE AT ITS PRESENT SIZE IS";
- PRINT USING "#######";M
- IF O=1 THEN PRINT CHR$(12); : CONSOLE
- GOTO 6340 : REM FINISH THIS SECTION
- 4340 X=X1
- REM OPENING SOME FILE
- GOSUB 100 : X5=ASC(N9$)-32
- IF S1=1 THEN N9=EMP.NO
- IF S3=1 THEN S9$=STR.ADDR$
- IF S4=1 THEN C9$=CITY.ST.ZIP$
- IF S5=1 THEN Z9$=SSN$
- IF S2=0 THEN 4580
- N9$ = EMP.NAME$ : GOSUB 700
- GOTO 1800
- 4580 GOSUB 8760
- REM OPENING SOME FILE GOSUB 7200
- GOSUB 6 ";LEFT$(SSN$,3);"-";MID$(SSN$,4,2);"-";MID$(SSN$,6,4)
- PRINT TAB(10);STR.ADDR$," ";CITY.ST.ZIP$
- PRINT : PRINT TAB(42);"CURRENT";TAB(57);"QUARTER";TAB(75);"YEAR"
- PRINT TAB(44);"MONTH";TAB(57);"TO DATE";TAB(72);"TO DATE"
- PRINT "REGULAR WAGES:";TAB(34);
- PRINT USING "###,###,###.##";P(1,1)/100,P(2,1)/100,P(3,1)/100
- PRINT "OVERTIME WAGES:";TAB(34);
- PRINT USING "###,###,###.##";P(1,2)/100,P(2,2)/100,P(3,2)/100
- PRINT "MEALS AND LODGING:";TAB(34);
- PRINT USING "###,###,###.##";P(1,3)/100#,###,###.##";P(1,8)/100,P(2,8)/100,P(3,8)/100
- PRINT "LOCAL WITHHOLDING #1:";TAB(34);
- PRINT USING "###,###,###.##";P(1,9)/100,P(2,9)/100,P(3,9)/100
- PRINT "LOCAL WITHHOLDING #2:";TAB(34);
- PRINT USING "###,###,###.##";P(1,10)/100,P(2,10)/100,P(3,10)/100
- PRINT "DEDUCTION #1:";TAB(34);
- PRINT USING "###,###,###.##";P(1,11)/100,P(2,11)/100,P(3,11)/100
- PRINT "DEDUCTION #2:";TAB(34);
- PRINT USING "###,###,###.##";P(1,12)/100,P(2,12)/100,P(3,12)/100
- PRINT "OTHER DEDUCTIONS:";TAB(34);
- PRINT USE-PROTECT TAPE)"
- RETURN
- 6460 GOSUB 9005 : PRINT : PRINT " OPTION A : ADD AN EER"
- 6480 PRINT : PRINT : PRINT "(OR -1 TO RETURN TO MENU)" : PRINT REVLF$; : PRINT REVLF$;
- 6500 PRINT "ENTER THE NEW EMPLOYEE NUMBER > <";
- X=5 : GOSUB 9160 : PRINT ">"; : FLD.LEN% = -7 : GOSUB 9998 : PRINT
- IF LEN(REPLY$) = 0 THEN 6601
- EMP.NO = VAL(REPLY$)
- IF EMP.NO-INT(EMP.NO)<>0 THEN 6600
- IF EMP.NO < -1 THEN 6600
- IF EMP.NO<=99999 THEN 6640
- 6600 PRINT "INVALID E",25) : X$="C"
- IF LEN(EMP.NAME$)=0 THEN 6800
- FOR X=1 TO LEN(EMP.NAME$)
- IF MID$(EMP.NAME$,X,1)="," THEN 6960
- NEXT X
- PRINT : PRINT "THE LAST NAME MUST BE FOLLOWED BY A COMMA!"
- PRINT CHR$(7)
- GOTO 6800
- 6960 PRINT
- RETURN
- 6980 PRINT "ENTER STREET ADDRESS (25X)"
- PRINT ": :";
- X=25 : GOSUB 9160 : PRINT ":"; : FLD.LEN%=25 : GOSUB 9998
- STR.ADDR$ = LEFT$(REPLY$+B$,25) : PRINT
- RETURN
- 7060 PRINT "ENTER CITY, STATE & ZIP CODE (25X)"
- PRINT ": :";
- X=25 : GOSUB 9160 : PRINT ":"; : FLD.LEN% = 25 : GOSUB 9998
- CITY.ST.ZIP$ = LEFT$(REPLY$+B$,25) : PRINT
- RETURN
- 7140 PRINT "ENTER SOCIAL SECURITY NUMBER (9X) : :";
- X=9 : GOSUB 9160 : PRINT ":"; : FLD.LEN%=-9 : GOSUB 9998
- SSN$= LEFT$(REPLY$+B$,9) : PRINT
- RETURN
- 8760 EMP.NO=N9 : EMP.NAME$=N9$ : STR.ADDR$=S9$
- SSN$=Z9$ : REG.WAGES =I0 : OVERTIME.WAGES =I1
- MEALS.AND.LODGING=I2 : TIPS =I3 : FICA =I4
- FED.INC.TAX : TIPS.YR=M1
- FICA.YR=M2 : FED.INC.TAX.YR=M3 : ST.INC.TAX.YR=M4
- ST.DIS.INS.YR=M5 : LOCAL.DED.1.YR=M6 : LOCAL.DED.2.YR=M7
- LOCAL.WITH.1.YR=M8: LOCAL.WITH.2.YR=M9 : OTHER.DED.YR=O0
- NET.WAGES.YR=O1 : CITY.ST.ZIP$=C9$
- RETURN
- 8820 PRINT : PRINT "ENTER THE DATE YOU WANT ON THE LIST (MMDDYY) > <";
- X=6 : GOSUB 9160 : PRINT ">"; : FLD.LEN%=-6 : GOSUB 9998
- D$=LEFT$(REPLY$+B$,6)
- FOR X=1 TO 6
- IF MID$(D$,X,1)<"0" THEN 9100
- IF MID$(D$,X,1)>"9" THEN 9100
- NEXT X
- IF MIO READ CLNRNM.FIL
- READ #CLNRNM.FIL,1; \
- CLIENT.NO,\
- CLIENT.NAME$,\
- GL.END.DATE$,\
- PAY.END.DATE$,\
- FISCAL.END.MO,\
- A9.III,\
- PERIOD.TO.ADJ,\
- RUN.NUMBER,\
- MAX.FICA.WAGES,\
- MAX.ST.UNEMP,\
- MAX.FED.UNEMP,\
- MAX.ST.DIS.WAGES,\
- EMP.FICA.RATE,\
- ST.UNEMP.RATE,\
- FED.UNEMP.RATE,\
- ST.DIS.RATE,\
- LOCAL.DESC,\
- TYPE.OF.RUN,\
- TIPS.F.U.I,\
- MEALS.LDG.TO.ST.UNEMP,\
- TIPS.TO.ST.UNEMP,\
- ST.DIS.FLG,\
- MEALS.LDG.TO.SDI,\
- TIPS.TO.SDI,\
- ST.UNEMP.CONT.FLG,\
- REM 072583 - DCF ADDED CHECK FOR NUM.BITS = 8 OR 16
- REM
- REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
- REM
- REM 061083 - (RCB) IN LINES AFTER 4520 CHANGED FLD.LEN% = 75 TO FLD.LEN% = 76
- REM TO ALLOW FOR THE 9998 ROUTINE FREEZING AND BEEPING AT
- REM THE END OF THE INPUT FIELD LENTH - NO MORE EXTRA CHARACTOR
- REM AND FREE CARRAGE RETURN - ALSO ADDED LINES TO SET EDIT.LINE$
- REM TO " " (ONE SPACE) IF ITS LENTH EQUAL ZERO TO PREVENT
- REM ERROR SS IN SOCUP. BUGING MORE GUYS THAN FILE HOLDS
- REM ***
- REM *** 10/18/82 DTK - FIX U PRINT ON SCREEN WHEN @ END OF FILE
- REM ***
- REM *** 10/14/82 DTK - CHECK FOR AUX DISK BEFORE ASKING
- REM ***
- REM 100782 - (RCB) MADE "M TO RETURN TO MENU" FLD.LEN% = 0 SO USER DOES NOT
- REM HAVE TO PRESS RETURN AFTER M
- REM
- REM 100782 - (RCB) CHANGED NAME FROM EDIT TO STATE TO MAKE THE MENU PROGRAM
- REM HAPPY - CONTAIN YOUR EXCITEMENT
- REM
- REM 100482 - (I'M NOT PUTTING MY INITIALS HERE, NO WAY!) ADDED AREA AT 1500
- REM BETWEEN =I5 : STATE.INC.TAX =I6 : ST.DIS.INS =I7
- LOCAL.DED.1=I8 : LOCAL.DED.2=I9 : LOCAL.WITH.1=J0
- LOCAL.WITH.2=J1 : OTHER.DED=J2 : NET.WAGES=J3
- REG.WAGES.QTR=J4 : OVERTIME.QTR=J5 : MEALS.LDG.QTR=J6
- TIPS.QTR=J7 : FICA.QTR=J8 : FED.INC.TAX.QTR=J9
- ST.INC.TAX.QTR=L0 : ST.DIS.INS.QTR=L1 : LOCAL.DED.1.QTR=L2
- LOCAL.DED.2.QTR=L3: LOCAL.WITH.1.QTR=L4: LOCAL.WITH.2.QTR=L5
- OTHER.DED.QTR=L6 : NET.WAGES.QTR=L7 : REG.WAGES.YR=L8
- OVERTIME.YR=L9 : MEALS.LDG.YR=M0 D$(D$,1,1)="0" THEN 9020
- IF MID$(D$,1,1)<>"1" THEN 9100
- IF MID$(D$,2,1)>"2" THEN GOTO 9100 \
- ELSE GOTO 9040
- 9020 IF MID$(D$,2,1)<"1" THEN 9100
- 9040 IF MID$(D$,3,1)>"3" THEN 9100
- IF MID$(D$,3,1)<>"3" THEN 9140
- 9080 IF MID$(D$,4,1)>"1" THEN GOTO 9100 \
- ELSE GOTO 9140
- 9100 PRINT CHR$(7);"INVALID DATE - TRY AGAIN! "
- GOTO 8820
- 9140 RETURN
- 9160 FOR J=1 TO X+2
- PRINT CHR$(8);
- NEXT J
- RETURN
- 5000 REM ************************** ROUTINE T FORMAT.1,\
- FORMAT.2,\
- TIP.CONT.SHEET,\
- RESERVED,\
- SERIAL.NUMBER
- RETURN
- %INCLUDE NFLANKS.BAS
- 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋 SHEETS 118-060683 AND 119-060683
- REM
- REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM *** 02/07/83 DCF - CHECKING FOR EDIT.NUM=.05 IF TRUE THEN DO NOT
- REM *** PRINT .05 AFTER THE TOTAL LEVEL WHEN EDITING
- REM ***
- REM *** 10/25/82 DTK - FIXED 1 CHAR LEN ON PRINTING
- REM ***
- REM *** 10/25/82 DTK - FIX /100 ON PRINTING
- REM ***
- REM *** 10/18/82 DTK - FIXES ERROR SB WHEN DELET ASTERISKS FOR P OPTION
- REM
- REM **************************************************************************
- REM * STATEMENT OF CHANGES EDITOR *
- REM * VERSION 1.0 09/29/82 *
- REM * *
- REM **************************************************************************
- %INCLUDE COMMON.BAS
- DIM ASCII$(100),NUM(100),A(6)
- FORM.12F2$ = "###,###,###.##"
- TRUE = -1 : FALSE = NOT TRUE
- FOR I% = 1 TO 85
- BLANK$ = BLANK$ + " "
- NEXT I%
- GOSUB 9005
- PRINT
- 75 PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
- PRINT
- PRINT TAB(21);"** AUXILIARY MENU OPTION #7 **"
- PRINT TAB(18);"EDITS STATEMENT OF CHANGES WORKSHEET"
- PRINT
- PRINT " Press RETURN Key to Continue or 'M' to Return to Auxiliary Menu ";
- FLD.LEN% = 1 : GOSUB 9998
- IF UCASE$(LEFT$(REPLY$,1)) = "M" THEN
- 180 IF X <> X1 THEN \
- PRINT CHR$(7),"THE CLIENT IN DRIVE ";FIL$(10);" IS #";X :\
- PRINT " PLEASE CORRECT THEN PRESS RETURN "; :\
- FLD.LEN% = 1 : GOSUB 9998 : GOTO 120
- 220 REM ************************ OPEN FILES AND READ IN STUFF
- OPEN FIL$(9)+":"+CLIENT$+"FMT.FIL" RECL 100 AS 2 : FORMAT.FIL = 2
- IF END #2 THEN 220.1
- I% = 1
- EOF = 0
- 221 READ #FORMAT.FIL;ASCII$(I%),NUM(I%)
- EOF = EOF + 1
- IF VAL(ASCII$(I%)) = -1 THEN ASCII$(I%) = " " : NUM(I%) = .05 :\
- GOTO 220.1
- I% = I
- FLD.LEN% = 1 : GOSUB 9998 : X$ = UCASE$(LEFT$(REPLY$,1))
- 1070 IF X$ = "E" THEN 2000.1
- IF X$ = "S" THEN 1100
- IF X$ = "P" THEN 1500
- IF X$ = "A" THEN 1200
- 1090 PRINT CHR$(7),"ENTER E, S, P OR A PLEASE !"
- PRINT " PRESS RETURN TO CONTINUE ";
- FLD.LEN% = 1 : GOSUB 9998
- GOTO 1000
- 1100 REM ************************ OPEN FILES AND WRITE OUT THE GOOD STUFF
- OPEN FIL$(9)+":"+CLIENT$+"FMT.FIL" RECL 100 AS 2 : FORMAT.FIL = 2
- FOR I% = 1 TO EOF-1
- PRINT #FORMAT*********************************************************************
- REM **** CAUTION WATTS NEXT FOUR EXITS *************************************
- REM ************************************************************************
- REM **** PRINT ROUTINE TRANSPLANT DONE IN THE FINE XE TRADITION ************
- REM ************************************************************************
- 1500 LPRINTER
- PRINT CHR$(12);
- XE.COUNT% = 1
- 1520 IF XE.COUNT% > EOF THEN 1600
- H$ = ASCII$(XE.COUNT%)
- XE.NUM = NUTHEN 1580
-
- GOSUB 8000
- GOSUB 7600
- 1580 PRINT
- 1590 GOTO 1520
- 1600 REM ******* END OF DATA FOR PRINTING
- GOSUB 1700
- PRINT CHR$(12);
- CONSOLE
- GOTO 1000
- 1700 REM ****** FINAL STATEMENT BALANCE
- IF A(6) = 0 THEN 1760
- PRINT " THIS STATEMENT IS OUT OF BALANCE BY ";
- PRINT USING "###,###,###.##";A(6)
- 1760 A(6) = 0
- RETURN
- 7600 REM
- IF B AND N2 > 0 THEN X = 1 ELSE X = 0
- IF B = 0 AND N2 < 0 THEN X = 1
- IF X THEN PRINT "<"; ELSE PRINT " ";
- IF D2 THEN PRINT "$"; ELSE PR 1200
- 120 GOSUB 9005 : PRINT : PRINT
- INITIALIZE
- IF SIZE(FIL$(10)+":"+CLIENT$+"CON.FIL") <> 0 THEN GOTO 140
- PRINT "INSERT AUXILIARY STATEMENTS DATA DISK IN DRIVE ";FIL$(10);" THEN PRESS RETURN ";
- FLD.LEN% = 1 : GOSUB 9998 : X$ = UCASE$(LEFT$(REPLY$,1)) : PRINT
- GOTO 120
- 140 OPEN FIL$(10)+":"+CLIENT$+"CON.FIL" RECL 80 AS 1 : AUXCTRL.FIL = 1
- READ #AUXCTRL.FIL;X
- CLOSE 1
- 170 PRINT "ENTER CLIENT NUMBER FROM CONTROL SHEET >";
- FLD.LEN% = -7 : GOSUB 9998 : X1 = VAL(REPLY$)
- PRINT
- % + 1
- GOTO 221
- 220.1 CLOSE 2
- 1000 REM ************************************* MAIN CONTROL MENU
- CONSOLE
- GOSUB 9005
- PRINT : PRINT
- PRINT TAB(10);"CONTROL MENU :"
- PRINT TAB(12);"E : EDIT Statement of Changes in Financial Position"
- PRINT TAB(12);"S : SAVE The Statement of Changes in Financial Position"
- PRINT TAB(12);"P : PRINT The Statement of Changes in Financial Position"
- PRINT TAB(12);"A : ABANDON the Changes Made During this Edit Session"
- PRINT " YOUR CHOICE :";.FIL;ASCII$(I%),NUM(I%)
- NEXT I%
- PRINT #FORMAT.FIL;"-1",.05
- CLOSE 2
- 1200 REM ************************************************ FINISH &/OR ABANDON
- GOSUB 9005 : PRINT : PRINT
- INITIALIZE
- IF NUM.BITS%=8 THEN EXT$ = ".OVL" ELSE EXT$ = ".OVR"
- IF SIZE(PGM$(3)+":MENU"+EXT$) <> 0 THEN CHAIN PGM$(3)+":MENU"
- PRINT "INSERT AUXILIARY STATEMENTS PROGRAM DISK IN DRIVE ";PGM$(3);" THEN PRESS RETURN ";
- FLD.LEN% = 1 : GOSUB 9998 : X$ = UCASE$(LEFT$(REPLY$,1)) : PRINT
- GOTO 1200
-
- REM ***M(XE.COUNT%)
- IF H$ = "-1" THEN 1600
- XE.COUNT% = XE.COUNT% + 1
- IF LEFT$(H$,1) = "-" THEN B = 1
- IF LEFT$(H$,1) = "+" THEN B=0
- IF LEFT$(H$,1) = "P" THEN PRINT CHR$(12); : GOTO 1590
- 1547 IF LEFT$(H$,1)="$" THEN D2=1 ELSE D2=0
- IF LEFT$(H$,1)="C" THEN C1=1 ELSE C1=0
- IF LEFT$(H$,1)="D" THEN D3=1 ELSE D3=0
- IF LEFT$(H$,1)="S" THEN S=1 ELSE S=0
- IF LEFT$(H$,1)="W" THEN W=1 ELSE W=0
- IF LEN(H$) > 1 THEN \
- H$ = " " + RIGHT$(H$,LEN(H$)-1) \
- ELSE \
- H$ = " "
- PRINT H$;
- IF XE.NUM = .05 INT " ";
- PRINT USING "#,###,###.##";ABS(N2);
- IF X THEN PRINT ">";
- RETURN
- 8000 IF D3 THEN 8050
- IF S THEN 8060
- IF C1 THEN 8100
- IF W THEN 8110
- N2 = XE.NUM
- FOR X = 1 TO 6
- A(X) = A(X) + N2
- NEXT X
- GOTO 8200
- 8050 D2 = 1
- 8060 IF XE.NUM > 5 OR XE.NUM < 1 THEN XE.NUM = 1
- N2 = A(XE.NUM)
- FOR X = 1 TO XE.NUM
- A(X) = 0
- NEXT X
- GOTO 8200
- 8100 D2 = 1
- 8110 N2 = XE.NUM
- FOR X =1 TO 5
- A(X) = 0
- NEXT X
- A(6) = A(6) - N2
- 8200 RETURN
- 2000.1 REM ************************************************ EDIT OPTION
- 2004 FILE.PTR = 1
- GOSUB 2900 : REM PRINTOUT SCREEN
- 2005 FLD.LEN% = 0 : GOSUB 9998 : X$ = UCASE$(REPLY$)
- IF LEN(X$) = 0 THEN GOSUB 2100.1 : GOTO 2006
- IF LEN(LEFT$(ASCII$(FILE.PTR),1)) = 0 THEN PRINT CHR$(8);" ";CHR$(8); : \
- ELSE \
- PRINT CHR$(8);LEFT$(ASCII$(FILE.PTR),1);CHR$(8);
- IF X$ = "B" THEN GOTO 2004
- IF X$ = "U" THEN GOSUB 2300 : GOTO 2006
- IF X$ = "D" THEN GOSUB 2400 : GOTO 2006
- IF X$ = "I" THEN GOSUB 2600 : GOTO 2006
- IF X$ = "F" THEN R$(7); : RETURN
- FOR I% = FILE.PTR TO EOF
- ASCII$(I%) = ASCII$(I%+1) : NUM(I%) = NUM(I%+1)
- NEXT I%
- CURSOR% = 0
- GOSUB 3105
- RETURN
- 2600 REM ********************* I OPTION INSERT A NEW GUY
- EOF = EOF + 1
- FOR I = EOF TO FILE.PTR+1.0 STEP -1.0
- ASCII$(I) = ASCII$(I-1) : NUM(I) = NUM(I-1)
- NEXT I
- REM *** MAKE SPOT BEFORE GETTING INFO
- INSERT = TRUE
- GOSUB 4500
- ASCII$(FILE.PTR) = EDIT.LINE$
- NUM(FILE.PTR) = EDIT.NUM
- CURSOR% = 0
- GOSUB 3105
- FILE.PTR = FILE.PTR + 1
- CURSOR% = 1------" :\
- GOTO 2990
- PRINT ASCII$(FILE.PTR+LNE%);
- IF LEFT$(ASCII$(FILE.PTR+LNE%),1) = "D" \
- OR LEFT$(ASCII$(FILE.PTR+LNE%),1) = "S" THEN PRINT "TOTAL LEVEL ";NUM(FILE.PTR+LNE%) : \
- GOTO 2990
- IF NUM(FILE.PTR+LNE%) <> .05 THEN \
- PRINT USING FORM.12F2$;NUM(FILE.PTR+LNE%) :\
- ELSE PRINT
- 2990 SCREEN.PTR = FILE.PTR+LNE%
- NEXT LNE%
- SCREEN.PTR = FILE.PTR
- PRINT "0---------1---------2---------3---------4-----<---5---------6";
- PRINT ">-<------7------->"
- PRINT " <CR> THEN FILE.PTR = 1 : PRINT CHR$(7); : RETURN
- IF FILE.PTR >= SCREEN.TOP THEN X%=0 : Y%=Y%-1 : GOSUB 9006 : RETURN
- IF FILE.PTR - 9 < 1 THEN FILE.CNT = FILE.PTR-1 ELSE FILE.CNT = 9
- HOLD.FILE.PTR = FILE.PTR
- FILE.PTR = FILE.PTR - FILE.CNT
- GOSUB 2900
- FILE.PTR = HOLD.FILE.PTR
- X% = 0 : Y% = FILE.CNT : GOSUB 9006
- RETURN
- 3109 REM ************** REPAINT SCREEN AND PLACE CURSOR
- HOLD.FILE.PTR = FILE.PTR
- FILE.PTR = SCREEN.TOP
- GOSUB 2900
- FILE.PTR = HOLD.FILE.PTR
- Y% = FILE.PTR : Y% = 18 : GOSUB 9006
- PRINT
- PRINT "0---------1---------2---------3---------4-----<---5---------6>-<------7------->"
- PRINT " C - CHANGE TEXT N - ENTER NUMBER R - REMOVE NUMBER"
- PRINT " F - GO BACK TO SCREEN MENU"
- Y% = SAVE.Y% : GOSUB 9006
- IF INSERT THEN EDIT.LINE$ = " " : EDIT.NUM = .05 : GOTO 4510
- EDIT.LINE$ = ASCII$(FILE.PTR) : EDIT.NUM = NUM(FILE.PTR)
- 4505 GOSUB 9006
- PRINT LEFT$(BLANK$,78)
- GOSUB 9006
- IF LEFT$(EDIT.LINE$,1) = "P" THEN \
- PRINT GOTO 1000
- IF X$ = "L" THEN GOSUB 2700 : GOTO 2006
- PRINT CHR$(7);
- 2006 GOTO 2005
- 2100.1 REM *********************** <CR> OPTION - MOVE DOWN ONE LINE
- FILE.PTR = FILE.PTR + 1
- CURSOR% = 1
- GOSUB 3105
- SCREEN.PTR = FILE.PTR
- RETURN
- 2300 REM *********************** U OPTION - MOVE UP ONE LINE
- FILE.PTR = FILE.PTR - 1
- CURSOR% = -1
- GOSUB 3105
- SCREEN.PTR = FILE.PTR
- RETURN
- 2400 REM ********************** D OPTION DELETE ONE GUY
- EOF = EOF -1
- IF EOF < 1 THEN EOF = 1 : PRINT CH
- GOSUB 3105
- RETURN
-
- 2700 REM ********************* L OPTION - LINE EDIT STUFF
- INSERT = FALSE
- GOSUB 4500
- CURSOR% = 0
- GOSUB 3105
- RETURN
- 2900 REM ************************************************ MAIN SCREEN PRINTER
- SCREEN.TOP = FILE.PTR
- GOSUB 9005
- FOR LNE%= 0 TO 18
- X% = 0 : Y% = LNE% : GOSUB 9006
- IF FILE.PTR+LNE% > EOF THEN PRINT : GOTO 2990
- IF LEFT$(ASCII$(FILE.PTR+LNE%),1) = "P" THEN \
- PRINT "P-------------------------------------------------------------- NEXT LINE U - UP 1 LINE F - BACK TO CONTROL MENU"
- PRINT " B - BEGINNING D - DELETE LINE I - INSERT LINE L - LINE EDIT"
- X% = 0 : Y% = 0 : GOSUB 9006
- RETURN
- 3105 REM *************************************** CURSOR ROUTINE
- REM CURSOR% = 1 => DOWN ONE LINE
- REM =-1 => UP ONE LINE
- REM = 0 => REPRINT SCREEN AND PLACE CURSOR
- CURSOR% = CURSOR% + 2
- ON CURSOR% GOTO 3107,3109,3111
- 3107 REM *************** UP ONE LINE
- IF FILE.PTR < 1 - SCREEN.TOP : X%=0 : GOSUB 9006
- RETURN
- 3111 REM ************** DOWN ONE LINE
- IF FILE.PTR > EOF THEN FILE.PTR = EOF : PRINT CHR$(7); : RETURN
- IF FILE.PTR > SCREEN.TOP + 18 THEN \
- HOLD.FILE.PTR = FILE.PTR :\
- FILE.PTR = FILE.PTR -3 :\
- GOSUB 2900 :\
- FILE.PTR = HOLD.FILE.PTR :\
- X% = 0 : Y% = 3 : GOSUB 9006 :\
- ELSE \
- X% = 0 : Y% = Y% + 1 : GOSUB 9006
- RETURN
- 4500 REM *********************************************** PRINT LINE EDIT GOO
- PRINT EOS$
- SAVE.Y% = Y%
- X% = 0"P-------------------------------------------------------------------" :\
- GOTO 4510
- PRINT EDIT.LINE$;
- IF LEFT$(EDIT.LINE$,1) <> "D" \
- OR LEFT$(EDIT.LINE$,1) <> "S" THEN 4507
- PRINT "TOTAL LEVEL ";
- IF EDIT.NUM <> .05 THEN PRINT EDIT.NUM ELSE PRINT
- GOTO 4510
- 4507 IF EDIT.NUM <> .05 THEN PRINT USING FORM.12F2$;EDIT.NUM :\
- ELSE PRINT
- 4510 GOSUB 9006
- FLD.LEN% = 0 : GOSUB 9998 : X$ = UCASE$(REPLY$)
- IF LEN(X$) = 0 THEN GOTO 4510
- PRINT CHR$(8);LEFT$(EDIT.LINE$,1);CHR$(8);
- IF X$ = "F" THEN GOTO 4550
- IF X$ = "C" THEN GOTO 4520
- IF X$ = "R" THEN GOTO 4530
- IF X$ = "N" THEN GOTO 4540
- PRINT CHR$(7); : GOTO 4510
- 4520 REM **************************** EDIT THE ASCII PORTION
- GOSUB 9006
- PRINT LEFT$(BLANK$,80) : GOSUB 9006
- FLD.LEN% = 76 : GOSUB 9998
- IF LEN(REPLY$) = 0 THEN EDIT.LINE$ = " " \
- ELSE EDIT.LINE$ = REPLY$
- EDIT.NUM =.05
- GOTO 4505
- 4530 REM **************************** REMOVE A NUMBER - CHG IT TO .05
- EDIT.NUM = .05
- GOTO 4505
- 4540 REMT$(EDIT.LINE$,1) <> "D" AND LEFT$(EDIT.LINE$,1) <> "S" THEN \
- PRINT "ENTER AMOUNT >"; : FLD.LEN% = 9 : GOSUB 9998 :\
- EDIT.LINE$ = LEFT$(EDIT.LINE$+BLANK$,FILLER) :\
- EDIT.NUM = VAL(REPLY$) : GOSUB 4545 :\
- PRINT : GOSUB 9006 : EDIT.NUM = EDIT.NUM/100 :\
- ON ERR.FLAG GOTO 4543,4505
- PRINT "ENTER TOTAL LEVEL (1-5) >"; : FLD.LEN% = -1 : GOSUB 9998 : PRINT
- EDIT.LINE$ = LEFT$(EDIT.LINE$+BLANK$,FILLER)
- EDIT.NUM = VAL(REPLY$)
- GOSUB 4545
- IF ERR.FLAG = 1 THEN PRINT : GOSUB 9006 : GOTO 4543
- IF ************************ RETURN FROM LINE EDIT SUBROUTINE
- IF INSERT THEN INSERT = FALSE : RETURN
- ASCII$(FILE.PTR) = EDIT.LINE$
- NUM(FILE.PTR) = EDIT.NUM
- RETURN
- %INCLUDE NFLANKS
- 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋REM 110283 - (RCB) CHANGED BACKUP.ID$ TO RECOVER.ID$ IN 2 LINES AFTER LINE 38
- REM
- REM 110283 - (RCB) CHANGED SECOND SOURCE$ NEAR LINE 38 TO DEST$ SO RECOVERY
- REM MAY BE PLACED ON ANOTHER DRIVE - AND REVERSED .CPF AND .FIL
- REM SO IT WILL DO A RECOVERY
- REM
- REM 103183 - (RCB) CHANGED SECOND SOURCE$ NEAR LINE 28 TO DEST$ SO BACKUP WILL
- REM MAY BE PLACED ON ANOTHER DRIVE
- REM
- REM 071483 - (RCB) CHANGED TO WORK WITHOUT ASSEMBLY LANGUAGE ROUTINES
- REM
- REM
- REM --------------------------------- STARFISH STRING ADDRESS \
- ELSE \
- LOC=PEEK(6)+PEEK(7)*256-80 : REM FOR 16-BIT STARFISH
- REM ************************************ MAIN MENU
- 10 GOSUB 9005 : REM CLEAR SCREEN
- X%=21 : Y%=5 : GOSUB 9006
- PRINT " Client Programmed Accounting"
- X%=21 : Y%=7 : GOSUB 9006
- PRINT "DISK OPERATING PROCEDURES MENU"
- X%=24 : Y%=9 : GOSUB 9006
- PRINT "1. Backup Client Files"
- X%=24 : Y%=10 : GOSUB 9006
- PRINT "2. Recover Client Files"
- X%=24 : Y%=11 : GOSUB 9006
- PRINT "3. Transfer *************************** ADD IN A NUMBER OR TOTAL LEVEL
-
- GOSUB 9006
- PRINT LEFT$(BLANK$,77) : GOSUB 9006
- PRINT "ENTER NUMBERS IN RIGHT OR LEFT COLUMN (R OR L) :";
- FLD.LEN% = 1 : GOSUB 9998 : PRINT : GOSUB 9006
- X$ = UCASE$(LEFT$(REPLY$,1))
- IF X$ <> "L" AND X$ <> "R" THEN PRINT CHR$(7); : GOTO 4540
- IF X$ = "L" THEN FILLER = 46 ELSE FILLER = 62
- 4543 REM **** ERR.FLAG = 2 FOR GOOD NUMBER
- REM **** = 1 FOR BAD NUMBER
- ERR.FLAG = 2
- PRINT LEFT$(BLANK$,77) : GOSUB 9006
- IF LEFEDIT.NUM > 5 OR EDIT.NUM < 1 THEN PRINT CHR$(7) :\
- GOSUB 9006 : PRINT LEFT$(BLANK$,77) : GOSUB 9006 :\
- PRINT "ENTER AN INTEGER BETWEEN 1 AND 5 PLEASE - PRESS RETURN TO CONTINUE"; :\
- FLD.LEN% = 0 : GOSUB 9998 : PRINT : GOSUB 9006 : GOTO 4543
- GOSUB 9006
- GOTO 4505
- 4545 IF INT(EDIT.NUM) <> EDIT.NUM THEN ERR.FLAG = 1 :\
- PRINT : GOSUB 9006 :\
- PRINT " ENTER AMOUNT WITHOUT DECIMAL POINT - PRESS RETURN TO CONTINUE"; :\
- FLD.LEN% = 0 : GOSUB 9998 :\
- ELSE ERR.FLAG = 2
- RETURN
- 4550 REM ***邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋---------------------------------
- REM |
- REM | PROGRAM TITLE: DOP.BAS
- REM |
- REM | CPA/CPM VERSION
- REM |
- REM | DISK OPERATING PROCEDURES VER. 1.0 REL 11883
- REM |
- REM | BY: BIG B
- REM |
- REM |
- REM | COPYRIGHT (c) 1983 BY Dimis Micro Systems INC.
- REM |
- REM |
- REM |
- REM | DATE PRINTED ____\____\____
- REM |
- REM | REVISION _________
- REM |
- REM |__________________________________________________________________
- REM
- %INCLUDE COMMON
- IF NUM.BITS%=8 THEN \
- LOC=PEEK(6)+PEEK(7)*256 : REM GETClient Files"
- X%=24 : Y%=12 : GOSUB 9006
- PRINT "4. Return to the CPA Menu"
- 11 X%=16 : Y%=18 : GOSUB 9006 : PRINT EOL$ : GOSUB 9006
- PRINT "WHICH FUNCTION WOULD YOU LIKE TO PERFORM >";
- FLD.LEN%=-1 : GOSUB 9998 : X=VAL(REPLY$)
- IF (X<1) OR (X>4) THEN \
- X%=30 : Y%=19 : GOSUB 9006 : \
- PRINT CHR$(7); : PRINT "Please enter only 1-4" : \
- GOTO 11
- X%=30 : Y%=19 : GOSUB 9006 : PRINT EOL$
- ON X GOTO 20,30,40,160
- REM *********************************** BACKUP CLIENT FILES
- REM
- REM MAKE BACKUP COPIES OF CLIENT DATA
- REM USES PIP THROUGH THE STARFISH
- REM
- 20 GOSUB 9005
- 21 X%=22 : Y%=6 : GOSUB 9006 : PRINT EOL$ : GOSUB 9006
- PRINT "Enter Client ID to Backup >";
- FLD.LEN%=5 : GOSUB 9998
- IF LEN(REPLY$)=0 THEN GOTO 10 : REM RETURN TO MAIN MENU FOR NO REPLY
- BACKUP.ID$=UCASE$(LEFT$(REPLY$+"@@@@@",5))
-
- 22 X%=18 : Y%=8 : GOSUB 9006 : PRINT EOL$
- X%=12 : Y%=8 : GOSUB 9006
- PRINT "Enter drive letter which contains the client files >";
- FLD.LEPRINT "Please enter only A-P" : \
- GOTO 23
- X%=27 : Y%=12 : GOSUB 9006 : PRINT EOL$
- 24 X%=27 : Y%=16 : GOSUB 9006 : PRINT EOL$ : GOSUB 9006
- PRINT "ARE YOU SURE (Y/N) >";
- FLD.LEN%=1 : GOSUB 9998
- REPLY$=UCASE$(REPLY$)
- IF REPLY$<>"Y" AND REPLY$<>"N" THEN PRINT CHR$(7) : GOTO 24
- IF REPLY$="N" THEN GOTO 20
- PRINT : PRINT "PLACE DISKETTES IN TO DRIVES AND PRESS RETURN";
- FLD.LEN% = 1 : GOSUB 9998
- INITIALIZE
- GOSUB 9005
- PRINT "BACKING UP . . ."
- 28 READ FILE.LOOP$
- IF FILE. 9006
- PRINT "Enter Client ID to Recover >";
- FLD.LEN%=5 : GOSUB 9998
- IF LEN(REPLY$)=0 THEN GOTO 10 : REM RETURN TO MAIN MENU FOR NO REPLY
- RECOVER.ID$=UCASE$(LEFT$(REPLY$+"@@@@@",5))
-
- 32 X%=18 : Y%=8 : GOSUB 9006 : PRINT EOL$
- X%=12 : Y%=8 : GOSUB 9006
- PRINT "Enter drive letter which contains the backup files >";
- FLD.LEN%=1 : GOSUB 9998
- SOURCE$=UCASE$(REPLY$)
- IF (SOURCE$<"A") OR (SOURCE$>"P") THEN \
- X%=28 : Y%=10 : GOSUB 9006 : \
- PRINT CHR$(7); : PRINT "Please en (Y/N) >";
- FLD.LEN%=1 : GOSUB 9998
- REPLY$=UCASE$(REPLY$)
- IF REPLY$<>"Y" AND REPLY$<>"N" THEN PRINT CHR$(7) : GOTO 34
- IF REPLY$="N" THEN GOTO 30
- PRINT
- PRINT
- PRINT
- PRINT "PLACE DISKETTES IN TO DRIVES AND PRESS RETURN";
- FLD.LEN% = 1 : GOSUB 9998
- INITIALIZE
- GOSUB 9005
- PRINT "RECOVERING . . ."
- 38 READ FILE.LOOP$
- IF FILE.LOOP$ = "THEEND" THEN 39
- FROM$ = SOURCE$+":"+RECOVER.ID$+FILE.LOOP$+".CPA"
- TO$ = DEST$+":"+RECOVER.ID$+FILE.LOOP$+".FIL"
- PRINT : PRINT FROM$;
- GOSUB 8000 9006 : PRINT EOL$ : GOSUB 9006
- PRINT "Enter Client ID to Transfer from >";
- FLD.LEN%=5 : GOSUB 9998
- IF LEN(REPLY$)=0 THEN GOTO 10 : REM RETURN TO MAIN MENU FOR NO REPLY
- BACKUP.ID$=UCASE$(LEFT$(REPLY$+"@@@@@",5))
-
- 42 X%=20 : Y%=8 : GOSUB 9006 : PRINT EOL$
- X%=12 : Y%=8 : GOSUB 9006
- PRINT "Enter drive letter which contains the client files >";
- FLD.LEN%=1 : GOSUB 9998
- SOURCE$=UCASE$(REPLY$)
- IF (SOURCE$<"A") OR (SOURCE$>"P") THEN \
- X%=29 : Y%=10 : GOSUB 9006 : \
- N%=1 : GOSUB 9998
- SOURCE$=UCASE$(REPLY$)
- IF (SOURCE$<"A") OR (SOURCE$>"P") THEN \
- X%=27 : Y%=10 : GOSUB 9006 : \
- PRINT CHR$(7); : PRINT "Please enter only A-P" : \
- GOTO 22
- 23 X%=12 : Y%=10 : GOSUB 9006 : PRINT EOL$
- X%=16 : Y%=10 : GOSUB 9006
- PRINT "Enter drive letter to place backup files on >";
- FLD.LEN=1 : GOSUB 9998
- DEST$=UCASE$(REPLY$)
- IF (DEST$<"A") OR (DEST$>"P") THEN \
- X%=27 : Y%=12 : GOSUB 9006 : PRINT EOL$ : GOSUB 9006 : \
- PRINT CHR$(7); : LOOP$ = "THEEND" THEN 29
- FROM$ = SOURCE$+":"+BACKUP.ID$+FILE.LOOP$+".FIL"
- TO$ = DEST$+":"+BACKUP.ID$+FILE.LOOP$+".CPA"
- PRINT : PRINT FROM$;
- GOSUB 8000
- GOTO 28
- 29 RESTORE
- PRINT
- PRINT:PRINT "REPLACE OPERATING DISKETTES IN TO DRIVES AND PRESS RETURN";
- FLD.LEN% = 1 : GOSUB 9998
- INITIALIZE
- GOTO 10
- REM *********************************** RECOVER CLIENT FILES
- REM
- REM RECOVER FILES WITH A .CPA EXTENSION
- REM
- 30 GOSUB 9005
- 31 X%=22 : Y%=6 : GOSUB 9006 : PRINT EOL$ : GOSUBter only A-P" : \
- GOTO 32
- 33 X%=12 : Y%=10 : GOSUB 9006 : PRINT EOL$ : GOSUB 9006
- X%=15 : Y%=10 : GOSUB 9006
- PRINT "Enter drive letter to place recovered files on >";
- FLD.LEN=1 : GOSUB 9998
- DEST$=UCASE$(REPLY$)
- IF (DEST$<"A") OR (DEST$>"P") THEN \
- X%=28 : Y%=12 : GOSUB 9006 : \
- PRINT CHR$(7); : PRINT "Please enter only A-P" : \
- GOTO 33
- X%=27 : Y%=12 : GOSUB 9006 : PRINT EOL$
- 34 X%=27 : Y%=16 : GOSUB 9006 : PRINT EOL$ : GOSUB 9006
- PRINT "ARE YOU SURE
- GOTO 38
- 39 RESTORE
- PRINT
- PRINT:PRINT "REPLACE OPERATING DISKETTES IN TO DRIVES AND PRESS RETURN";
- FLD.LEN% = 1 : GOSUB 9998
- INITIALIZE
- GOTO 10
- REM *********************************** TRANSFER CLIENT FILES
- REM
- REM WILL ALLOW THE TRANSFER OF CLIENT FILES TO
- REM 1) SAME OR DIFFERENT DRIVES
- REM 2) SAME OR DIFFERENT CLIENT ID'S
- REM NOTE IF CLIENT ID'S ARE THE SAME, AND THE DRIVES ARE THE
- REM SAME, CLIENT ID'S WILL BE OVERWRITTEN
- REM
- 40 GOSUB 9005
- 41 X%=19 : Y%=6 : GOSUBPRINT CHR$(7); : PRINT "Please enter only A-P" : \
- GOTO 42
- 43 X%=21 : Y%=10 : GOSUB 9006 : PRINT EOL$ : GOSUB 9006
- PRINT "Enter Client ID to Transfer to >";
- FLD.LEN%=5 : GOSUB 9998
- IF LEN(REPLY$)=0 THEN GOTO 10 : REM RETURN TO MAIN MENU FOR NO REPLY
- NEW.ID$=UCASE$(LEFT$(REPLY$+"@@@@@",5))
- 44 X%=14 : Y%=12 : GOSUB 9006 : PRINT EOL$ : GOSUB 9006
- X%=19 : Y%=12 : GOSUB 9006
- PRINT "Enter drive letter to place files on >";
- FLD.LEN=1 : GOSUB 9998
- DEST$=UCASE$(REPLY$)
- IF (DEST$<"A") OR (DEST$>"P") THEN \
- X%=29 : Y%=14 : GOSUB 9006 : \
- PRINT CHR$(7); : PRINT "Please enter only A-P" : \
- GOTO 44
- REM ***** GET WHICH FILES TO TRANSFER
- REM
- 45 GOSUB 9005
- X%=23 : Y%=17 : GOSUB 9006
- PRINT " Enter RETURN to skip to next file"
- X%=22 : Y%=18 : GOSUB 9006
- PRINT "Enter 'X' to mark a file for transfer"
- X%=27 : Y%=19 : GOSUB 9006
- PRINT "Enter 'D' to unmark a file"
- X%=24 : Y%=20 : GOSUB 9006
- PRINT "Enter 'C' when ready to conti< AUX. ACCOUNTS FILE - ACC.FIL"
- X%=24 : Y%=13 : GOSUB 9006
- PRINT "> < AUX. CONTROL FILE - CON.FIL"
- X%=24 : Y%=14 : GOSUB 9006
- PRINT "> < AUX. FORMAT FILE - FMT.FIL"
- REM ***** MARK FILES FOR TRANSFER
- REM
- CLN.FIL.FLAG%=0
- EAR.FIL.FLAG%=0
- COA.FIL.FLAG%=0
- TRI.FIL.FLAG%=0
- PAS.FIL.FLAG%=0
- FSH.FIL.FLAG%=0
- ACC.FIL.FLAG%=0
- CON.FIL.FLAG%=0
- FMT.FIL.FLAG%=0
- 50 IF CLN.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
- X%=25 : Y%=6 : GOSUB 120
- IF CR.FLAG%=1 THEN 60
- IF UN.MARK.
- 80 IF TRI.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
- X%=25 : Y%=9 : GOSUB 120
- IF CR.FLAG%=1 THEN 90
- IF UN.MARK.FLAG%=1 THEN TRI.FIL.FLAG%=0 : GOTO 90
- IF DONE.FLAG%=1 THEN GOTO 130
- TRI.FIL.FLAG%=1
- 90 IF PAS.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
- X%=25 : Y%=10 : GOSUB 120
- IF CR.FLAG%=1 THEN 100
- IF UN.MARK.FLAG%=1 THEN PAS.FIL.FLAG%=0 : GOTO 100
- IF DONE.FLAG%=1 THEN GOTO 130
- PAS.FIL.FLAG%=1
- 100 IF FSH.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
- X%=25 : Y%=11 : GOSUB 12IF DONE.FLAG%=1 THEN GOTO 130
- CON.FIL.FLAG%=1
- 112 IF FMT.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
- X%=25 : Y%=14 : GOSUB 120
- IF CR.FLAG%=1 THEN 50
- IF UN.MARK.FLAG%=1 THEN FMT.FIL.FLAG%=0 : GOTO 50
- IF DONE.FLAG%=1 THEN GOTO 130
- FMT.FIL.FLAG%=1
- GOTO 50
-
- 120 GOSUB 9006
- IF X.FLAG%=1 THEN GOTO 120.2
- 120.1 PRINT " "; : PRINT CHR$(8);
- 120.2 CR.FLAG%=0
- MARK.FLAG%=0
- DONE.FLAG%=0
- UN.MARK.FLAG%=0
- 121 CHARACTER%=CONCHAR%
- IF CHARACTER%=67 THEN DONE.FLAG%=1 : GOTO 122
- IF CHANUM.MARKED%+1
- IF COA.FIL.FLAG%=1 THEN NUM.MARKED%=NUM.MARKED%+1
- IF TRI.FIL.FLAG%=1 THEN NUM.MARKED%=NUM.MARKED%+1
- IF PAS.FIL.FLAG%=1 THEN NUM.MARKED%=NUM.MARKED%+1
- IF FSH.FIL.FLAG%=1 THEN NUM.MARKED%=NUM.MARKED%+1
- IF ACC.FIL.FLAG%=1 THEN NUM.MARKED%=NUM.MARKED%+1
- IF CON.FIL.FLAG%=1 THEN NUM.MARKED%=NUM.MARKED%+1
- IF FMT.FIL.FLAG%=1 THEN NUM.MARKED%=NUM.MARKED%+1
-
- IF NUM.MARKED%=0 THEN GOTO 10
- REM IF (NUM.MARKED%=9) AND (NEW.ID$=BACKUP.ID$) THEN GOTO 133 : REM TAKE EM ALL!
- REM ***** TRANnue"
- X%=24 : Y%=6 : GOSUB 9006
- PRINT "> < CLIENTS FILE - CLN.FIL"
- X%=24 : Y%=7 : GOSUB 9006
- PRINT "> < EARNINGS FILE - EAR.FIL"
- X%=24 : Y%=8 : GOSUB 9006
- PRINT "> < ACCOUNTS FILE - COA.FIL"
- X%=24 : Y%=9 : GOSUB 9006
- PRINT "> < TRANSACTIONS FILE - TRI.FIL"
- X%=24 : Y%=10 : GOSUB 9006
- PRINT "> < PASS VARIABLES - PAS.FIL"
- X%=24 : Y%=11 : GOSUB 9006
- PRINT "> < HEADERS FILE - FSH.FIL"
- X%=24 : Y%=12 : GOSUB 9006
- PRINT "> FLAG%=1 THEN CLN.FIL.FLAG%=0 : GOTO 60
- IF DONE.FLAG%=1 THEN GOTO 130
- CLN.FIL.FLAG%=1
- 60 IF EAR.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
- X%=25 : Y%=7 : GOSUB 120
- IF CR.FLAG%=1 THEN 70
- IF UN.MARK.FLAG%=1 THEN EAR.FIL.FLAG%=0 : GOTO 70
- IF DONE.FLAG%=1 THEN GOTO 130
- EAR.FIL.FLAG%=1
- 70 IF COA.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
- X%=25 : Y%=8 : GOSUB 120
- IF CR.FLAG%=1 THEN 80
- IF UN.MARK.FLAG%=1 THEN COA.FIL.FLAG%=0 : GOTO 80
- IF DONE.FLAG%=1 THEN GOTO 130
- COA.FIL.FLAG%=10
- IF CR.FLAG%=1 THEN 110
- IF UN.MARK.FLAG%=1 THEN FSH.FIL.FLAG%=0 : GOTO 110
- IF DONE.FLAG%=1 THEN GOTO 130
- FSH.FIL.FLAG%=1
- 110 IF ACC.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
- X%=25 : Y%=12 : GOSUB 120
- IF CR.FLAG%=1 THEN 111
- IF UN.MARK.FLAG%=1 THEN ACC.FIL.FLAG%=0 : GOTO 111
- IF DONE.FLAG%=1 THEN GOTO 130
- ACC.FIL.FLAG%=1
- 111 IF CON.FIL.FLAG%=1 THEN X.FLAG%=1 ELSE X.FLAG%=0
- X%=25 : Y%=13 : GOSUB 120
- IF CR.FLAG%=1 THEN 112
- IF UN.MARK.FLAG%=1 THEN CON.FIL.FLAG%=0 : GOTO 112
- RACTER%=13 THEN CR.FLAG%=1 : GOTO 122
- IF CHARACTER%=68 THEN UN.MARK.FLAG%=1 : PRINT CHR$(8); : PRINT " "; : \
- PRINT CHR$(8); : GOTO 122
- IF CHARACTER%=88 THEN MARK.FLAG%=1 : GOTO 122 \
- ELSE PRINT CHR$(8); : PRINT " "; : PRINT CHR$(8);
- IF (X.FLAG%=1) AND (UN.MARK.FLAG%=0) THEN PRINT "X"; : PRINT CHR$(8);
- 121.1 GOTO 120.2
- 122 RETURN
- REM ***** CALCULATE HOW MANY WERE MARKED
- REM
- 130 NUM.MARKED%=0
- IF CLN.FIL.FLAG%=1 THEN NUM.MARKED%=NUM.MARKED%+1
- IF EAR.FIL.FLAG%=1 THEN NUM.MARKED%=SFER MARKED FILES
- REM
- MARKED.NUM%=0
- IF NUM.MARKED%=1 THEN FLAG$=""
- GOSUB 9005
- PRINT : PRINT "PLACE DISKETTES IN TO DRIVES AND PRESS RETURN";
- FLD.LEN% = 1 : GOSUB 9998
- INITIALIZE
- GOSUB 9005
- PRINT "COPYING . . ."
- IF CLN.FIL.FLAG%=1 THEN \
- MARKED.NUM%=MARKED.NUM%+1 : GOSUB 131 : \
- TO$ = DEST$+":"+NEW.ID$+"CLN.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"CLN.FIL" : \
- PRINT : PRINT FROM$;" TO ";TO$; : \
- GOSUB 8000
- IF EAR.FIL.FLAG%=1 THEN \
- MARKED.NUM%=MARKED.NUM%+1 : GOSUB 131 : \
- TO$ = DEST$+":"+NEW.ID$+"EAR.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"EAR.FIL" : \
- PRINT : PRINT FROM$;" TO ";TO$; : \
- GOSUB 8000
-
- IF COA.FIL.FLAG%=1 THEN \
- MARKED.NUM%=MARKED.NUM%+1 : GOSUB 131 : \
- TO$ = DEST$+":"+NEW.ID$+"COA.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"COA.FIL" : \
- PRINT : PRINT FROM$;" TO ";TO$; : \
- GOSUB 8000
- IF TRI.FIL.FLAG%=1 THEN \
- MARKED.NUM%=MARKED.NUM%+1 : GOSUB 131 : \
- TO$ = DEST$+":"+NEW.ID$+"TRI.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"TRI.FIL" : \
- PRIN.NUM%+1 : GOSUB 131 : \
- TO$ = DEST$+":"+NEW.ID$+"ACC.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"ACC.FIL" : \
- PRINT : PRINT FROM$;" TO ";TO$; : \
- GOSUB 8000
- IF CON.FIL.FLAG%=1 THEN \
- MARKED.NUM%=MARKED.NUM%+1 : GOSUB 131 : \
- TO$ = DEST$+":"+NEW.ID$+"CON.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"CON.FIL" : \
- PRINT : PRINT FROM$;" TO ";TO$; : \
- GOSUB 8000
- IF FMT.FIL.FLAG%=1 THEN \
- MARKED.NUM%=MARKED.NUM%+1 : GOSUB 131 : \
- TO$ = DEST$+":"+NEW.ID$+"FMT.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"IN PGM$(1)+":MMENU"
- 8000 IF END #1 THEN 8040
- OPEN FROM$ AS 1 : FROM = 1
- CREATE TO$ AS 2
- IF END #1 THEN 8020
- IF END #2 THEN 8030
- 8010 READ #1;LINE SLURP$
- PRINT USING "&";#2;SLURP$
- GOTO 8010
- 8020 CLOSE 1,2
- RETURN
- 8030 PRINT "ERROR - DISK IN DRIVE ";LEFT$(TO$,1);" IS FULL"
- DISK.FULL = -1
- RETURN
- 8040 PRINT " - NOT FOUND";
- RETURN
- DATA "CLN","COA","TRI","FSH","PAS","EAR","CON","ACC","FMT","THEEND"
- %INCLUDE NFLANKS.BAS
- REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Micro Systems"
- REM
- REM 052283 - BTC ADDED Dimis MICROSYSTEMS HEADING
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM 022883 - (RCB) ADDED FEEL FOR NUM.BITS% FOR CRUN2 OR CRUN86
- REM
- REM 021683 - (RCB) PUT IN INCLUDE 9999.BAS
- REM
- REM ***11/09/82 DTK - NEW STARFISH HOOKS ADDED
- REM ***
- REM *** 9/14/82 DTK - PUT M TO RETURN TO MENU AFTER PROMPT
- REM ***
- REM *** PROGRAM TO PRINT A WORKI Accounting Menu ";
- FLD.LEN%=1 : GOSUB 9998 : M$=UCASE$(LEFT$(REPLY$,1))
- IF M$="M" THEN 3001
- 510 REM *********************** OPENING CLNRNM, TRINFO, COANS AND FSHEADS FILES
- OPEN FIL$(2) + ":" + CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL=1
- OPEN FIL$(5) + ":" + CLIENT$ + "TRI.FIL" RECL 68 AS 3 : TRINFO.FIL=3
- OPEN FIL$(7) + ":" + CLIENT$ + "FSH.FIL" RECL 94 AS 4 : FSHEADS.FIL=4
- OPEN FIL$(4) + ":" + CLIENT$ + "COA.FIL" RECL 65 AS 2 : COANS.FIL=2
- 410 GOSUB T : PRINT FROM$;" TO ";TO$; : \
- GOSUB 8000
- IF PAS.FIL.FLAG%=1 THEN \
- MARKED.NUM%=MARKED.NUM%+1 : GOSUB 131 : \
- TO$ = DEST$+":"+NEW.ID$+"PAS.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"PAS.FIL" : \
- PRINT : PRINT FROM$;" TO ";TO$; : \
- GOSUB 8000
- IF FSH.FIL.FLAG%=1 THEN \
- MARKED.NUM%=MARKED.NUM%+1 : GOSUB 131 : \
- TO$ = DEST$+":"+NEW.ID$+"FSH.FIL" : FROM$ = SOURCE$+":"+BACKUP.ID$+"FSH.FIL" : \
- PRINT : PRINT FROM$;" TO ";TO$; : \
- GOSUB 8000
- IF ACC.FIL.FLAG%=1 THEN \
- MARKED.NUM%=MARKEDFMT.FIL" : \
- PRINT : PRINT FROM$;" TO ";TO$; : \
- GOSUB 8000
- PRINT
- PRINT:PRINT "REPLACE OPERATING DISKETTES IN TO DRIVES AND PRESS RETURN";
- FLD.LEN% = 1 : GOSUB 9998
- INITIALIZE
- GOTO 10
- 131 IF NUM.MARKED%=1 THEN FLAG$="" : GOTO 132
- IF NUM.MARKED%>1 AND MARKED.NUM%=1 THEN FLAG$="#" : GOTO 132
- IF NUM.MARKED%<>MARKED.NUM% THEN FLAG$="###" : GOTO 132
- IF NUM.MARKED%=MARKED.NUM% THEN FLAG$="##"
- 132 RETURN
- REM *********************************** EXIT TO CPA MENU
- REM
- 160 CHA邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋NG TRIAL BALANCE (VER. 4.0) ETRIAL
- REM *** COPYRIGHT 1982 BY Dimis Micro Systems
- 2 REM ******* PART 1 CHECKS TO SEE IF THE TRANSACTIONS ARE SORTED
- %INCLUDE COMMON.BAS
- 19 GOSUB 9005
- PRINT
- PRINT TAB(23);"Dimis Micro Systems, Inc. "
- PRINT TAB(15);"Client Programmed Accounting Ver. ";VERSION$
- PRINT
- PRINT TAB(20);"** ACCOUNTING MENU OPTION #3 **"
- PRINT TAB(21);"PREPARES WORKING TRIAL BALANCE" : PRINT
- PRINT TAB(5);"Press the RETURN Key To Continue Or 'M' To Return To9005
- 413 PRINT"ENTER CLIENT NUMBER FROM THE CONTROL SHEET >";:FLD.LEN%=-6 : GOSUB 9998 : PRINT : N=VAL(REPLY$)
- REM *********************** READING CLNRNM AND CHECKING CLIENT NO.
- GOSUB 5000
- 612 IF N=CLIENT.NO THEN 1010.1
- 614 PRINT : PRINT "THE CLIENT NUMBER OF THE DISK IN DRIVE 2 IS #";CLIENT.NO
- PRINT " PLEASE CHANGE THE DISK OR ENTER CORRECT NUMBER !"
- 616 PRINT CHR$(7)
- 617 PRINT " PRESS RETURN TO CONTINUE ";:FLD.LEN%=1 : GOSUB 9998 : PRINT
- 618 GOTO 410
- 619 PRINT CHR$(7)
-
- 1010.1 IF END #4 THEN 1212
- 1110 READ #FSHEADS.FIL;\
- HEADER.NO,\
- HEADER.DESCRIP$,\
- HEADER.CONTROL.CHAR$
-
- 1111 IF MID$(HEADER.CONTROL.CHAR$,3,1) <> "P" THEN GOTO 1010.1 ELSE GOTO 1410
- 1212 PRINT : PRINT : PRINT CHR$(7);"NET PROFIT HEADER NOT FOUND!"
- 1310 PRINT"PRESS RETURN TO GO TO ACCOUNTING MENU";:FLD.LEN%=1 : GOSUB 9998 : PRINT
- 1311 GOTO 3001
- 1410 GOSUB 9005
- 1415 PRINT : PRINT : PRINT : PRINT : PRINT TAB(25);"WORKING..."
- 1511 REM *********OUNT NUMBER SEQUENCE..."
- 2610 CLOSE CLNRNM.FIL,TRINFO.FIL,COANS.FIL,FSHEADS.FIL
- REM *************************** CALLING IN THE STARFISH TO DO THE SORT
- REM ******************************************************************
- 150 IF END #3 THEN 1360
- OPEN FIL$(5) + ":" + CLIENT$ + "TRI.FIL" RECL 68 AS 3
- 1310.1 X.TRI.SEG%=0
- 1315 IF END #3 THEN 1355
- 1320 READ #3,X.TRI.SEG%+1;A5,A1,T$
- IF A5 = 9999999.99 THEN 1355
- 1325 X.TRI.SEG%=X.TRI.SEG%+1
- 1350 GOTO 1320
- REM WRITE END OF FILE MARKER Menu " : \
- REM GOSUB 2100 : \
- REM FLD.LEN% = 1 : GOSUB 9998: \
- REM CHAIN PGM$(1) + ":AMENU"
- REM *********************************************************************
- HOLE(1) = 3
- CHAIN PGM$(1) + ":SORT"
- 3000 REM *************************** CLOSING ALL FILES WITH CHAIN
- CHAIN PGM$(1) + ":" + "ETRIAL2"
- 3001 CHAIN PGM$(1) + ":" + "AMENU"
- %INCLUDE NFLANKS.BAS
- %INCLUDE 5000
- REM 040883 - DCF FIXED BUG CODE #040883-3-IMP , ADDED A CHECK FOR VALID
- REM INPUT OF NUMBERS FOR THE NO. OF SPACES BETWEEN ACCOUNTS
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM 021783 - (RCB) REMOVED UNNEEDED 9999 SUBROUTINE AT END
- REM
- REM *** 9/25/82 DCF - FIXED NEW ACCOUNT BUG
- REM *** 9/20/82 DCF - FIXED HEADING(NEW BALANCE)
- REM *** 9/14/82 DTK - FIXED ACCT#'S PROMPT
- REM ***
- 1 REM *** PROGRAM TO PRINT AAS BEEN PRINTED
- REM NEW.ACCT.FLAG=1 THERE IS A NEW ACCOUNT
-
- REM *** SETTING VARIABLES ***
- P=1 : P1=50 : F1=1 : NET.PROFIT.FLAG=0 : DEPART.NO.FLAG=0
- 26 GOSUB 9005
- 27 REM ******************************** OPENING CLNRNM, TRINFO, COANS AND FSHEADS FILES
- OPEN FIL$(2) + ":" + CLIENT$ + "CLN.FIL" RECL 255 AS 1 : CLNRNM.FIL=1
- OPEN FIL$(5) + ":" + CLIENT$ + "TRI.FIL" RECL 68 AS 3 : TRINFO.FIL=3
- OPEN FIL$(7) + ":" + CLIENT$ + "FSH.FI************* CHECKING TO SEE IF TRANSACTIONS ARE SORTED
- X1=0 : R2=-1
- IF END #TRINFO.FIL THEN 1910
- 1610 READ #TRINFO.FIL;\
- TRAN.ACT.NO,\
- TRAN.AMT,\
- TRANS.DT.REF.DESCRIP$
- IF TRAN.ACT.NO = 9999999.99 THEN 1910
- IF TRAN.ACT.NO < R2 THEN 1810
- R2 = TRAN.ACT.NO
- GOTO 1610
- 1810 X1=1
- 1910 TRAN.ACT.NO=0
- IF X1=0 THEN 3000
- 1915 GOSUB 9005
- 1918 PRINT : PRINT : PRINT "NOW SORTING THE TRANSACTIONS INTO ACCIF IT NEEDS IT OR NOT
- 1355 PRINT #3,X.TRI.SEG%+1;9999999.99,0,"End of TRI-GENLED"
- 1360 CLOSE 3
- IF X.TRI.SEG%<1 THEN \
- ERR$ = "File Cannot Be Sorted Without Transactions":\
- GOSUB 2000 : \
- MSSG$ = "Press RETURN to Return to Accounting Menu " : \
- GOSUB 2100 : \
- FLD.LEN% = 1 : GOSUB 9998: \
- CHAIN PGM$(1) + ":AMENU"
- IF X.TRI.SEG%<2 THEN CHAIN "GENLED2"
- REM ERR$ = "File Cannot Be Sorted Without Transactions":\
- REM GOSUB 2000 : \
- REM MSSG$ = "Press RETURN to Return to Accounting邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋 WORKING TRIAL BALANCE (VER 3.61) ETRIAL2
- REM *** COPYRIGHT 1982 BY Dimis Micro Systems Inc..
- REM *** PART 2 OF WORKING TRIAL BALANCE
- REM *** PRINTS THE WORKING TRIAL BALANCE REPORT
- %INCLUDE COMMON.BAS
- 10 REM *** FLAG DESCRIPTIONS ***
- REM 1=TRUE AND 0=FALSE
- REM DEPART.NO.FLAG=1 THERE ARE DEPARTMENTAL CLIENTS
- REM NET.PROFIT.FLAG=1 THE NET PROFIT HEADER HAS BEEN REACHED
- REM PROFIT.YR.TO.DT.FLAG=1 THE NET PROFIT HL" RECL 94 AS 4 : FSHEADS.FIL=4
- OPEN FIL$(4) + ":" + CLIENT$ + "COA.FIL" RECL 65 AS 2 : COANS.FIL=2
- GOSUB 5000
- 710 PRINT : PRINT"HOW MANY SPACES WOULD YOU LIKE PRINTED BETWEEN THE ACCT #'S (1-6) >";:FLD.LEN%=-1
- GOSUB 9998 : PRINT : NO.OF.SPACES=VAL(REPLY$)
- IF NO.OF.SPACES < 1 OR NO.OF.SPACES > 6 THEN GOTO 750 ELSE GOTO 811
- 750 PRINT : PRINT CHR$(7);"INVALID INPUT - TRY AGAIN!"
- FOR XE = 1 TO 250 : NEXT XE : GOTO 710
- 811 PRINT : PRINT "ENTER THE PERIOD ENDING DATE (MMDDYY) > <";
- 812 J=6
- 813 FOR Z=1 TO J+2
- PRINT CHR$(8);
- NEXT Z
- 814 PRINT ">";:FLD.LEN%=-6 : GOSUB 9998 : PRINT
- PER.END.DATE$=LEFT$(REPLY$+" ",6)
- 816 FOR J=1 TO 6
- IF MID$(PER.END.DATE$,J,1) < "0" THEN 818
- IF MID$(PER.END.DATE$,J,1) > "9" THEN 818
- NEXT J
- IF MID$(PER.END.DATE$,1,1) ="0" THEN 816.1
- IF MID$(PER.END.DATE$,1,1) <> "1" THEN 818
- IF MID$(PER.END.DATE$,2,1) > "2" THEN GOTO 818 ELSE GOTO 817
- 816.1 IF MIADER
- IF END #FSHEADS.FIL THEN 870
- 855 READ #FSHEADS.FIL;\
- HEADER.NO,\
- HEADER.DESCRIP$,\
- HEADER.CONTROL.CHAR$
- IF HEADER.NO = -1 THEN 870
- IF MID$(HEADER.CONTROL.CHAR$,3,1)<> "P" THEN GOTO 855 ELSE GOTO 900
- 870 PRINT : PRINT : PRINT :
- PRINT CHR$(7);"NET PROFIT HEADER NOT FOUND!"
- PRINT "PRESS RETURN TO RETURN TO MENU";:FLD.LEN%=1 : GOSUB 9998 : PRINT
- GOTO 4515
- 900 GOSUB 9005
- PRINT : PRINT : PRINT : PRINT : PRINT TAB(18);******** READING ACCOUNTS
- IF END #COANS.FIL THEN 2710.5
- 2710.2 READ #COANS.FIL;\
- ACCT.NUM,\
- CUR.PER.BAL,\
- YR.TO.DATE.BAL,\
- ACCT.DESCRIP$
- IF ACCT.NUM = -1 THEN 2710.5
- GOTO 2711
-
- 2710.5 ACCT.NUM=1000000
- 2711 IF DEPART.NO.FLAG=1 THEN 2810
- 2712 REM ********************************** CHECKING FOR DEPARTMENTS
- DEPART.NO=INT(ACCT.NUM/10000)
- IF DEPART.NO=0 THEN 2713
- DEPART.NO.FLAG=1
- DEPARRAN.ACT.NO < ACCT.NUM THEN 3210
- 3110 REM ************************ THERE ARE NO MORE TRANSACTIONS FOR AN ACCOUNT
- ACCT.NUM.HOLD = ACCT.NUM : ACCT.DESCRIP.HOLD$ = ACCT.DESCRIP$
- YR.TO.DATE.BAL.HOLD = YR.TO.DATE.BAL : CUR.PER.BAL.HOLD = CUR.PER.BAL
- 3114 GOTO 3410
- 3210 REM ************************ CREATING A NEW ACCOUNT
- ACCT.DESCRIP.HOLD$ = "NEW ACCOUNT" : YR.TO.DATE.ACCUM=0
- ACCT.NUM.HOLD = TRAN.ACT.NO
- 3214 CUR.PER.BAL=0 : NEW.ACCT.FLAG=1 : GOTO 3310
- 3300 NEW.ACCT.FLEN 3400
- 3316 GOTO 3000
- 3400 YR.TO.DATE.ACCUM = YR.TO.DATE.ACCUM + TRAN.AMT : GOTO 3311
- 3410 IF ACCT.NUM.HOLD > HEADER.NO AND NET.PROFIT.FLAG=1 THEN 3710
- 3411 IF ACCT.NUM.HOLD > HEADER.NO AND PROFIT.YR.TO.DT.FLAG=0 THEN 3710
- 3500 IF NEW.ACCT.FLAG=1 THEN 3512
- 3510 REM ****************************** TOTALING PROFIT YEAR TO DATE
- YR.TO.DATE.ACCUM = YR.TO.DATE.ACCUM+YR.TO.DATE.BAL.HOLD
- 3512 TOTAL.BAL.ACCUM = TOTAL.BAL.ACCUM + YR.TO.DATE.ACCUM
- PROFIT.YR.TO.DATE.ACCUM = PROFIT.YR.TO.DATE.ACCUM D$(PER.END.DATE$,2,1) < "1" THEN 818
- 817 IF MID$(PER.END.DATE$,3,1) > "3" THEN 818
- IF MID$(PER.END.DATE$,3,1) <> "3" THEN 819
- IF MID$(PER.END.DATE$,4,1) > "1" THEN GOTO 818 ELSE GOTO 819
- 818 PRINT CHR$(7);"INVALID DATE - TRY AGAIN!"
- PER.END.DATE$="INVALI"
-
- 819 IF PER.END.DATE$ ="INVALI" THEN 811
- 819.1 PRINT : PRINT "SET THE PRINTER AND PAPER"
- 820 PRINT"PRESS RETURN TO CONTINUE";:FLD.LEN%=1 : GOSUB 9998 : PRINT
- 850 REM ****************************** CHECKING FOR PROFIT HE"NOW PRINTING THE WORKING TRIAL BALANCE..."
- 2618.1 LPRINTER
- REM ******************************* PRINT HEADING
- GOSUB 4710
- 2619 REM ******************************* READING TRANSACTIONS
- IF END #TRINFO.FIL THEN 2650
- 2621 READ #TRINFO.FIL;\
- TRAN.ACT.NO,\
- TRAN.AMT,\
- TRANS.DT.REF.DESCRIP$
- IF TRAN.ACT.NO = 9999999.99 THEN 2650
- GOTO 2710
- 2650 TRAN.ACT.NO=1000000
- 2710 REM ***********************T.NO.HOLD = DEPART.NO
- 2713 GOTO 2910
- 2810 DEPART.NO=INT(ACCT.NUM/10000)
- IF DEPART.NO=0 THEN 2910
- IF DEPART.NO=DEPART.NO.HOLD THEN 2910
- IF ACCT.NUM=1000000 THEN 2910
- GOSUB 7010
- PRINT CHR$(12);
- GOSUB 4710
- DEPART.NO.HOLD=DEPART.NO
- 2910 IF ACCT.NUM=1000000 AND TRAN.ACT.NO=1000000 THEN 4110
- IF TRAN.ACT.NO=1000000 THEN 3110
- 3000 IF NEW.ACCT.FLAG=1 AND TRAN.ACT.NO >= ACCT.NUM THEN 3410
- IF TRAN.ACT.NO = ACCT.NUM THEN 3310
- IF TAG=0
- IF TRAN.ACT.NO=1000000 THEN 2910
- 3310 YR.TO.DATE.ACCUM = YR.TO.DATE.ACCUM + TRAN.AMT
- 3311 IF END #TRINFO.FIL THEN 3312
- 3311.2 READ #TRINFO.FIL;\
- TRAN.ACT.NO,\
- TRAN.AMT,\
- TRANS.DT.REF.DESCRIP$
- IF TRAN.ACT.NO = 9999999.99 THEN 3312
- GOTO 3313
- 3312 TRAN.ACT.NO=1000000
- 3313 IF NEW.ACCT.FLAG=1 AND ACCT.NUM.HOLD < TRAN.ACT.NO THEN 3512
- IF ACCT.NUM.HOLD <> TRAN.ACT.NO THEN 3000
- 3314 IF TRAN.ACT.NO < ACCT.NUM TH+ YR.TO.DATE.ACCUM
- 3513 IF F1=1 THEN 3610
- 3514 FOR I3 = 1 TO NO.OF.SPACES
- 3515 PRINT
- 3516 NEXT
- 3610 REM ********************************** PRINTING ACCOUNTS
- PRINT USING "######.##";ACCT.NUM.HOLD;
- PRINT TAB(12);ACCT.DESCRIP.HOLD$;
- PRINT TAB(32);
- PRINT USING "##########.##";YR.TO.DATE.ACCUM/100;
- PRINT TAB(55);" \ ";
- PRINT TAB(68);" \ "
- F1=0
- P1=P1-(NO.OF.SPACES+1)
- YR.TO.DATE.ACCUM = 0
- IF P1<0 THEN GOSUB 4610
- 3645 IF NEW.ACCT.FLAG=1 AND TRAN.ACT.NO < ACCT.NUM THEN 3210
- 3650 IF NEW.ACCT.FLAG=1 THEN 3300
- 3700 GOTO 2710
- 3710 IF END #FSHEADS.FIL THEN 3810
- 3711 READ #FSHEADS.FIL;\
- HEADER.NO,\
- HEADER.DESCRIP$,\
- HEADER.CONTROL.CHAR$
- IF HEADER.NO = -1 THEN 3810
- 3712 IF MID$(HEADER.CONTROL.CHAR$,3,1)<>"P" THEN GOTO 3711 ELSE GOTO 3910
- 3810 NET.PROFIT.FLAG=0
- GOTO 4010
- 3910 NET.PROFIT.FLAG=1
- 4010 PRINT TAB(34);"-----------"
- 4011 PRINT
- 4012 PRINT TAB(12);"PROFIT YEAR TO GOTO 4312 ELSE GOTO 4210
- 4210 PRINT
- 4211 PRINT
- 4212 PRINT TAB(12);"STATEMENT IS IN BALANCE"
- 4214 GOTO 4400
- 4312 PRINT : PRINT
- PRINT TAB(12);"OUT OF BALANCE BY";
- PRINT TAB(32);
- PRINT USING "##########.##";TOTAL.BAL.ACCUM/100
- 4313 REM *************************** CLOSING ALL FILES
- 4400 CLOSE CLNRNM.FIL
- CLOSE TRINFO.FIL
- CLOSE FSHEADS.FIL
- CLOSE COANS.FIL
- PRINT CHR$(12);
- 4410 GOSUB 9005
- 4515 CONSOLE
- CHAIN PGM$(1) + ":" + "AMENU"
- 4610 PRINT
- 4911 PRINT " ACCT # DESCRIPTION YEAR TO DATE DEBITS CREDITS NEW BALANCE"
- PRINT "--------------------------------------------------------------------------------"
- P=P+1 : P1=50 : F1=1
- RETURN
- 5610 PRINT" PRESS RETURN TO CONTINUE ";:FLD.LEN%=1 : GOSUB 9998 : PRINT
- 5611 RETURN
- 5615 CONSOLE
- PRINT : PRINT : PRINT : PRINT "THERE ARE NO TRANSACTIONS IN THE TRINFO FILE"
- TRAN.ACT.NO=1000000
- GOSUB 4710
- GOTO 2710
- 5710 PRINT CHR$(7);CUM=0
- RETURN
- 7110 FOR Z=1 TO J+2
- PRINT CHR$(8);
- NEXT Z
- RETURN
- 7210 FOR J=1 TO 6
- IF MID$(PER.END.DATE$,J,1) < "0" THEN 7510
- IF MID$(PER.END.DATE$,J,1) > "9" THEN 7510
- NEXT J
- IF MID$(PER.END.DATE$,1,1)="0" THEN 7310
- IF MID$(PER.END.DATE$,1,1)<>"1" THEN 7510
- IF MID$(PER.END.DATE$,2,1)>"2" THEN GOTO 7510 ELSE GOTO 7410
- 7310 IF MID$(PER.END.DATE$,2,1)<"1" THEN 7510
- 7410 IF MID$(PER.END.DATE$,3,1)>"3" THEN 7510
- IF MID$(PER.REM 091583 - (RCB) CHANGED DATE$ TO XE.DATE$ FOR CB80 VERSION 2.0
- REM
- REM 062083 - (RCB) CHANGED "Micro Systems" TO "Dimis Microsystems"
- REM
- REM 052283 - BTC ADDED Dimis Micro Systems HEADING
- REM
- REM 042283 - DCF FIXED BUG #7-041483-4-IMP BY ADDING ONE MORE . TO THE CLIENT.NO
- REM NAME AND ADDRESS FIELDS DISPLAYED ON THE SCREEN.
- REM
- REM 042083 - DCF FIXED BUG #15-041583-3-IMP BY CHECKING THE WHOLE RESPONSE ENTERED
- REM INSTEAD OF JUST THE FIRST CHARACTER
- REM 041983DATE";
- PRINT TAB(32);
- PRINT USING "###########.##";PROFIT.YR.TO.DATE.ACCUM/100;
- PRINT TAB(55);"\";
- PRINT TAB(68);"\"
- 4015 PROFIT.YR.TO.DATE.ACCUM=0
- 4016 P1=P1-5
- 4017 PROFIT.YR.TO.DT.FLAG=1
- 4018 GOSUB 4610
- 4019 GOTO 3500
- 4110 PRINT TAB(34);"-----------"
- 4111 PRINT
- 4112 PRINT TAB(12);"PROFIT YEAR TO DATE";
- PRINT TAB(32);
- PRINT USING "##########.##";(PROFIT.YR.TO.DATE.ACCUM/100);
- PRINT TAB(55);"\";
- PRINT TAB(68);"\"
- 4115 IF TOTAL.BAL.ACCUM/100 <> 0 THENCHR$(12);
- 4710 FOR L=40 TO 1.0 STEP -1.0
- IF MID$(CLIENT.NAME$,L,1) <> " " THEN 4810
- NEXT L
- 4810 PRINT "CLIENT # ";
- PRINT USING "######";CLIENT.NO;
- PRINT TAB((85-L)/2);MID$(CLIENT.NAME$,1,L);
- PRINT TAB(70);" PAGE ";
- PRINT USING "##";P
- 4811 PRINT TAB(32);"WORKING TRIAL BALANCE"
- 4812 PRINT TAB(31);"PERIOD ENDING ";
- PRINT MID$(PER.END.DATE$,1,2);
- PRINT "/";
- PRINT MID$(PER.END.DATE$,3,2);
- PRINT "/";
- PRINT MID$(PER.END.DATE$,5,2)
- 4910 PRINT
- 6311 PRINT "PRESS RETURN TO GO TO ACCOUNTING MENU";:FLD.LEN%=1 : GOSUB 9998 : PRINT
- GOTO 4515
- 6411 INPUT" THEN PRESS RETURN";M$
- RETURN
- 6510 PRINT "PLEASE CORRECT - THEN PRESS RETURN";:FLD.LEN%=1 : GOSUB 9998 : PRINT
- RETURN
- 7010 PRINT TAB(35);"-----------"
- PRINT
- PRINT TAB(12);"PROFIT YEAR TO DATE";
- PRINT TAB(32);
- PRINT USING "##########.##";PROFIT.YR.TO.DATE.ACCUM/100;
- PRINT TAB(55);"\";
- PRINT TAB(68);"\"
- PROFIT.YR.TO.DATE.ACEND.DATE$,3,1)<>"3" THEN 7610
- IF MID$(PER.END.DATE$,4,1)>"1" THEN GOTO 7510 ELSE GOTO 7610
- 7510 PRINT CHR$(7),"INVALID DATE - TRY AGAIN!"
- H$="INVALI"
- 7610 RETURN
- %INCLUDE NFLANKS.BAS
- %INCLUDE 5000
- 邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋邋 - DCF FIXED BUG #13-041583-3-IMP BY CHANGING EER$ TO ERR$
- REM
- REM 041983 - DCF FIXED BUG #8-041583-3-IMP BY ADDING A UCASE$ TO REPLY
- REM
- REM 041983 - DCF FIXED BUG #6-041583-3-IMP BY CHANGING EER$ TO ERR$
- REM
- REM 041983- DCF FIXED BUG #4-041583-3-IMP BY ALLOWING ONLY NUMERIC INPUT
- REM
- REM 041983 - DCF FIXED BUG #5-041583-3-IMP BY ADDING A UCASE$ TO REPLY
- REM
- REM 041983 - DCF FIXED BUG #3-041583-3-IMP BY CHANGING EER$ TO ERR$
- REM
- REM 041983 - DCF FIXED BUG #10-041583-3-IMP BY CHECKING WHOLE REPLY INSTEAD OF
- REM FIRST CHARACTER OF REPLY
- REM 041983 - DCF FIXED BUG #12-041583-3-IMP BY ALLOWING ONLY NUMBER INPUT
- REM
- REM 041983 - DCF FIXED BUG #14-041583-3-IMP BY CHANGING EER$ TO ERR$
- REM
- REM 041983 - DCF FIXED BUG # 0-041583-3IMP BY ADDING AN ERROR TRAP FOR Y OR
- REM N ONLY
- REM
- REM 040183 - (RCB) CHANGE FLD.LEN% = TO NEGATIVE IF NUMERIC ONLY AND
- REM FLANKS TO NFLANKS
- REM
- REM 022383 - (RCB) LIMIT CLIENT NAMES TO A-Z AND 0-9
- REM
- REM ***02/0T FIX - ADD DATES
- REM ***
- REM *** 9/21/82 DTK - NOW FUDGE PACK CLIENT$ WITH @'S
- REM ***
- REM *** 9/20/82 DTK - FIXED CHANGE <> FALSE ON ADDITION AFTER EDIT
- REM ***
- REM *** 9/17/82 DTK - FIXED CHAZ SHEET 917.1
- REM ***
- REM *** 9/10/82 DTK - FIXED HDGINGS AND CHAINED TO AMENU OR CPA MENU OPTIONS
- REM *** ADDED CLIENT ID TO SCREEN DISPLAY
- REM ***
- REM *** NCLIENT - PROGRAM TO CREATE AND DELETE CLIENTS
- REM ***
- %INCLUDE COMMON.BAS
- TRUE = -1 : FALSE = NOT TRUE : CHANGE = FALSE
- FUNCTION WOULD YOU LIKE TO PERFORM?"
- PRINT TAB(12);" 1. Create New Client data files"
- PRINT TAB(12);" 2. Delete Client data files"
- PRINT TAB(12);" 3. Edit Client Information"
- PRINT TAB(12);" 4. Create New Auxiliary data files"
- PRINT TAB(12);" 5. Delete Auxiliary data files"
- PRINT TAB(12);" 6. Return to CPA Menu"
- PRINT TAB(12);"Current Active Client is ";
- IF MATCH("@",CLIENT$,1) = 0 THEN PRINT CLIENT$ ELSE \
- PRINT LEFT$(CLIENT$,MATCH("@",CLIENT$,1)-1)
- PRILOSE 1
- CHAIN PGM$(1)+":AMENU"
- 750 REM **************** MAIN EXIT ROUTINE
- CLOSE 1
- CHAIN PGM$(1)+":MMENU"
-
- 1000 REM ********************************* ADD NEW CLIENT
-
- 1001 CHANGE = FALSE
- NCLIENT$ = "" : CLIENT.NO = 0 : CLIENT.NAME$ = ""
- CLIENT.ADDR.1$ = "" : CLIENT.ADDR.2$ = "" : CLIENT.CITY.STATE$ = ""
- CLIENT.ZIP$ = "" : CLIENT.TAX.NUMBER$ = "": GL.END.DATE$ = ""
- PAY.END.DATE$ = "" : FISCAL.END.MO = 0
-
- GOSUB 9005
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT " 1. Client ID ......"
- PRINT " 10. Fiscal Year End Month .."
- PRINT " 11. Fed I.D. Number .........."
- 1002 MSSG$ = "ENTER NEW CLIENT ID or Press RETURN TO QUIT" : GOSUB 2100
- X% = 23 : Y% = 5 : GOSUB 9006 : FLD.LEN% = 5
- GOSUB 9007 : GOSUB 9998 : NCLIENT$ = UCASE$(REPLY$)
- IF LEN(NCLIENT$) = 0 THEN RETURN
- 1002.2 IF LEN(NCLIENT$) < 1 OR LEN(NCLIENT$) > 5 THEN GOSUB 9006 :\
- PRINT "....."; : GOSUB 9006 : \
- ERR$ = "IMPROPER CLIENT ID ENTERED" : GOSUB 2000 :\
- 7/83 DCF - CHANGED LOCAL DESCRIP$="*******" INSTEAD OF BLANKS
- REM ***
- REM ***02/01/83 DCF - CHANGED CPACTRL RECL FROM 255 TO 80
- REM *** FIX CLIENT ID NOT WRITING TO FILE
- REM ***
- REM ***11/12/82 DTK - FIX FED ID ON EDIT AND NUMBER OVERHANG
- REM ***
- REM ***10/21/82 DTK - FIX GL DATE = 0 PROBLEM
- REM ***
- REM ***10/13/82 DTK - CREATE OR DELETE AUX FILES ONLY
- REM ***
- REM ***10/11/82 DTK - ADD IN CREATION OF AUX FILES
- REM ***
- REM *** 9/22/82 DTK - ENTER CLIENT ID TO EDIT - DELETE CURREN BLANK$ = " "
- DOT$ = BLANK$
- NCLIENT$ = CLIENT$
- IF LEN(NCLIENT$) = 0 THEN NCLIENT$ = "NONE"
- OPEN FIL$(1)+":CPACTRL.FIL" RECL 80 AS 1 : CPA.FIL = 1
- 100 GOSUB 9005
- FOR I% = 1 TO 5 : PRINT : NEXT I%
- PRINT TAB(20);" Dimis Microsystems, Inc. "
- PRINT TAB(12);" Client Programmed Accounting Ver. ";VERSION$
- PRINT
- REM PRINT TAB(15);" CREATE OR DELETE A CLIENT"
- PRINT TAB(15);" CLIENT MAINTENANCE"
- PRINT
- PRINT TAB(12);"WHICH NT
- PRINT TAB(12);"ENTER THE NUMBER OF THE FUNCTION TO PERFORM >";
- FLD.LEN% = -1 : GOSUB 9998
-
- REPLY = VAL(REPLY$)
- IF REPLY < 1 OR REPLY > 6 THEN ERR$ = "Incorrect Entry - Enter 1,2,3,4,5 or 6 ONLY" :\
- GOSUB 2000 : \
- MSSG$ = "Press RETURN to Continue" : GOSUB 2100 : FLD.LEN% = 1 :\
- GOSUB 9998 : GOTO 100
-
- GOSUB 9005
- FOR I = 1 TO 100
- DUM$ = "HOWDY WAIT"
- NEXT I
- ON REPLY GOSUB 1000,2001,3000,1500,2500,750
- GOTO 100
- 700 REM *************************** AMENU EXIT ROUTINE
- C ..... 2. Client Number ......"
- PRINT
- PRINT " 3. Client Name ........................................"
- PRINT " 4. Address Line 1 ........................................"
- PRINT " 5. Address Line 2 ........................................"
- PRINT " 6. City, State ........................................"
- PRINT " 7. Zip .........."
- PRINT
- PRINT " 8. General Ledger Balance Forward Date ......"
- PRINT " 9. Payroll Balance Forward Date GOTO 1002
- REM *********************************************************************
- REM LIMIT CLIENT NAMES TO 0-9 AND A-Z
- FOR XE.FEEL = 1 TO LEN(NCLIENT$)
- IF MID$(NCLIENT$,XE.FEEL,1) <"0" OR \
- MID$(NCLIENT$,XE.FEEL,1) > "Z" THEN \
- NCLIENT$ = "" : GOTO 1002.2
- IF MID$(NCLIENT$,XE.FEEL,1) > "9" AND \
- MID$(NCLIENT$,XE.FEEL,1) < "A" THEN \
- NCLIENT$ = "" : GOTO 1002.2
- NEXT XE.FEEL
- REM *********************************************************************
- GOSUB 9009
- X% = 23 : Y% = 5 : GOSUB 9006
- PRINT NCLIENT$;
- NCLIENT$ = UCASE$(LEFT$(NCLIENT$+"@@@@@",5))
- IF CHANGE THEN GOTO 1019
- 1003 MSSG$ = "ENTER NEW CLIENT NUMBER " : GOSUB 2100
- X% = 56 : Y% = 5 : GOSUB 9006
- FLD.LEN% = -6 : GOSUB 9007 : GOSUB 9998 : CLIENT.NO = VAL(LEFT$(REPLY$,5))
- IF CLIENT.NO = 0 THEN GOTO 1003
- X% = 56 : Y% = 5 : GOSUB 9006
- PRINT CLIENT.NO;
- IF CHANGE THEN GOTO 1019
-
- 1004 MSSG$ = "ENTER CLIENT NAME " : GOSUB 2100
- X% = 23 : Y% = 7 : GOSUB 9006
- = 9 : GOSUB 9006
- FLD.LEN% = 40 : GOSUB 9007
- GOSUB 9998 : CLIENT.ADDR.2$ = LEFT$(REPLY$+BLANK$,40)
- X% = 23 : Y% = 9 : GOSUB 9006
- PRINT CLIENT.ADDR.2$;
- IF CHANGE THEN GOTO 1019
- 1007 MSSG$ = "ENTER CITY, STATE " : GOSUB 2100
- X% = 23 : Y% = 10 : GOSUB 9006
- FLD.LEN% = 40 : GOSUB 9007
- GOSUB 9998 : CLIENT.CITY.STATE$ = LEFT$(REPLY$+BLANK$,40)
- X% = 23 : Y% = 10 : GOSUB 9006
- PRINT CLIENT.CITY.STATE$;
- IF CHANGE THEN GOTO 1019
- 1008 MSSG$ = "ENTER ZIP CODE " : GRR$ = "INVALID DATE ENTERED - TRY AGAIN" :\
- GOSUB 2000 : GOTO 1009
- GL.END.DATE$ = XE.DATE$
- X% = 45 : Y% = 13 : GOSUB 9006
- PRINT STR$(MON);"/";STR$(DAY);"/";STR$(YEAR);
- GOSUB 9009
- IF CHANGE THEN GOTO 1019
- 1010 MSSG$ = "ENTER PAYROLL BALANCE FORWARD DATE (MMDDYY)" : GOSUB 2100
- X% = 45 : Y% = 14 : GOSUB 9006
- FLD.LEN% = -6 : GOSUB 9007
- GOSUB 9998 : XE.DATE$ = RIGHT$("000000"+REPLY$,6)
- IF VAL(XE.DATE$) = 0 THEN GOTO 1010
- GOSUB 9200 : REM DATE VALIDATER
- IF DA.MO > 12 THEN \
- ERR$ = "INVALID MONTH NUMBER - TRY AGAIN" : GOSUB 2000 :\
- GOTO 1011
- GOSUB 9009
- X% = 45 : Y% = 15 : GOSUB 9006
- PRINT USING "##";FISCAL.END.MO
- IF CHANGE THEN GOTO 1019
- 1012 MSSG$ = "ENTER FEDERAL ID NUMBER " : GOSUB 2100
- X% = 23 : Y% = 16 : GOSUB 9006
- FLD.LEN% = -20 : GOSUB 9007
- GOSUB 9998 : CLIENT.TAX.NUMBER$ = LEFT$(REPLY$+BLANK$,20)
- X% = 23 : Y% = 16 : GOSUB 9006
- PRINT CLIENT.TAX.NUMBER$;
- 1019 MSSG$ = " Enter (A)ccept or Line Number to EENT$+" already active - Addition stopped"
- MSSG$ = "Press RETURN to Continue"
- GOSUB 2000 : GOSUB 2100 : FLD.LEN% = 1 : GOSUB 9998
- CLOSE 7
- RETURN
- 1019.1 CREATE FIL$(2)+":"+NCLIENT$+"CLN.FIL" RECL 255 AS 7 : CLNRNM.FIL = 7
- LOCAL.DESC$="************"
- PRINT #CLNRNM.FIL,1;\
- CLIENT.NO,\
- CLIENT.NAME$,\
- GL.END.DATE$,\
- PAY.END.DATE$,\
- FISCAL.END.MO,\
- A9.III,\
- PERIOD.TO.ADJ,\
- RUN.NUMBER,\
- MAX.FICA.WAGES,\
- MAX.ST.UNEMP,\
- MAX.FED.UNEMP,\
- MAX.ST.DIS FLD.LEN% = 40 : GOSUB 9007 : GOSUB 9998 : CLIENT.NAME$ = LEFT$(REPLY$+BLANK$,40)
- X% = 23 : Y% = 7 : GOSUB 9006
- PRINT CLIENT.NAME$;
- IF CHANGE THEN GOTO 1019
- 1005 MSSG$ = "ENTER ADDRESS LINE 1" : GOSUB 2100
- X% = 23 : Y% = 8 : GOSUB 9006
- FLD.LEN% = 40 : GOSUB 9007
- GOSUB 9998 : CLIENT.ADDR.1$ = LEFT$(REPLY$+BLANK$,40)
- X% = 23 : Y% = 8 : GOSUB 9006
- PRINT CLIENT.ADDR.1$;
- IF CHANGE THEN GOTO 1019
-
- 1006 MSSG$ = "ENTER ADDRESS LINE 2" : GOSUB 2100
- X% = 23 : Y%OSUB 2100
- X% = 23 : Y% = 11 : GOSUB 9006
- FLD.LEN% = 11 : GOSUB 9007
- GOSUB 9998 : CLIENT.ZIP$ = LEFT$(REPLY$+BLANK$,10)
- X% = 23 : Y% = 11 : GOSUB 9006
- PRINT CLIENT.ZIP$;
- IF CHANGE THEN GOTO 1019
- 1009 MSSG$ = "ENTER G/L BALANCE FORWARD DATE (MMDDYY)" : GOSUB 2100
- X% = 45 : Y% = 13 : GOSUB 9006
- FLD.LEN% = -6 : GOSUB 9007
- GOSUB 9998 : XE.DATE$ = RIGHT$("000000"+REPLY$,6)
- IF VAL(XE.DATE$) = 0 THEN GOTO 1009
- GOSUB 9200 : REM DATE VALIDATER
- IF DATE = 0 THEN ETE = 0 THEN ERR$ = "INVALID DATE ENTERED - TRY AGAIN" :\
- GOSUB 2000 : GOTO 1010
- PAY.END.DATE$ = XE.DATE$
- X% = 45 : Y% = 14 : GOSUB 9006
- PRINT STR$(MON);"/";STR$(DAY);"/";STR$(YEAR);
- GOSUB 9009
- IF CHANGE THEN GOTO 1019
- 1011 MSSG$ = "ENTER FISCAL YEAR END MONTH NUMBER (1-12)"
- X% = 45 : Y% = 15 : GOSUB 9006
- FLD.LEN% = -2 : GOSUB 9007
- GOSUB 9998 : FISCAL.END.MO = VAL(REPLY$)
- IF FISCAL.END.MO <> INT(FISCAL.END.MO) OR \
- FISCAL.END.MO < 1 OR \
- FISCAL.ENDdit "
- GOSUB 2100 : FLD.LEN% = 3 : GOSUB 9998
- IF UCASE$(LEFT$(REPLY$,1)) = "A" THEN GOTO 1020
- REPLY = VAL(REPLY$)
- IF REPLY > 11 OR REPLY < 1 THEN \
- ERR$ = "INCORRECT INPUT - TRY AGAIN!" : GOSUB 2000 : \
- GOTO 1019
- CHANGE = TRUE
- ON REPLY GOTO 1002,1003,1004,1005,1006,1007,1008,1009,1010,1011,1012
- 1020 CLIENT$ = NCLIENT$
- PRINT #CPA.FIL,3;CLIENT$
-
- IF END # 7 THEN 1019.1
- OPEN FIL$(2)+":"+NCLIENT$+"CLN.FIL" RECL 255 AS 7
- ERR$ = "Client "+NCLI.WAGES,\
- EMP.FICA.RATE,\
- ST.UNEMP.RATE,\
- FED.UNEMP.RATE,\
- ST.DIS.RATE,\
- LOCAL.DESC$,\
- TYPE.OF.RUN,\
- TIPS.F.U.I,\
- MEALS.LDG.TO.ST.UNEMP,\
- TIPS.TO.ST.UNEMP,\
- ST.DIS.FLG,\
- MEALS.LDG.TO.SDI,\
- TIPS.TO.SDI,\
- ST.UNEMP.CONT.FLG,\
- FORMAT.1,\
- FORMAT.2,\
- TIP.CONT.SHEET,\
- RESERVED,\
- SERIAL.NUMBER
- PRINT #CLNRNM.FIL,2;0,0,0
- PRINT #CLNRNM.FIL,3;CLIENT.NAME$,CLIENT.ADDR.1$,CLIENT.ADDR.2$,CLIENT.CITY.STATE$,CLIENT.ZIP$
- PRINT #CLNRNM.FIL,4;CLIENT.TAX.NUMBER$
-
- CREATE FIL$(3)+":"+NCLIENT$+"EAR.FIL" RECL 360 AS 2
- CREATE FIL$(4)+":"+NCLIENT$+"COA.FIL" RECL 43 AS 4
- CREATE FIL$(5)+":"+NCLIENT$+"TRI.FIL" RECL 68 AS 5
- CREATE FIL$(6)+":"+NCLIENT$+"PAS.FIL" RECL 175 AS 3
- CREATE FIL$(7)+":"+NCLIENT$+"FSH.FIL" RECL 94 AS 6
- CLOSE 2,3,4,5,6,7
- 1025 INITIALIZE
- MSSG$ = "Place the Auxiliary Data Disk into Drive " + FIL$(9) + " or "
- GOSUB 2100 : PRINT : PRINT TAB(18);"Enter (N)o to skip Auxiliary Creation and Press RETURN ";
- FLD.S ONLY TO CURRENT
- MSSG$ = "Enter Client ID to CREATE Auxiliary files >"
- GOSUB 2100 : FLD.LEN% = 5 : GOSUB 9998
- NCLIENT$ =UCASE$(REPLY$)
- IF LEN(NCLIENT$) < 1 OR LEN(NCLIENT$) > 5 THEN \
- ERR$ = "IMPROPER CLIENT ID ENTERED" :\
- GOTO 1500
- GOSUB 9009
- NCLIENT$ = UCASE$(LEFT$(REPLY$+"@@@@@",5))
- IF END #2 THEN 2020
- OPEN FIL$(2)+":"+NCLIENT$+"CLN.FIL" RECL 255 AS 2 : CLNRNM.FIL = 2
- GOSUB 5000
- CLOSE 2
- GOTO 1025
- 2001 REM ************************************* DELETE CURRENT ID
- L,4;CLIENT.TAX.NUMBER$
- CLOSE 2
- XE.DATE$ = GL.END.DATE$
- XE.DATE$ = LEFT$(DATE$,6)
- XE.DATE$ = RIGHT$("000000"+XE.DATE$,6)
- GOSUB 9200
- GL.DATE$ = STR$(MON)+"/"+STR$(DAY)+"/"+STR$(YEAR)
- XE.DATE$ = PAY.END.DATE$
- XE.DATE$ = LEFT$(XE.DATE$,6)
- XE.DATE$ = RIGHT$("000000"+XE.DATE$,6)
- GOSUB 9200
- PR.DATE$ = STR$(MON)+"/"+STR$(DAY)+"/"+STR$(YEAR)
- GOSUB 9005
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT " 1. Client ID ";NCLIENT$;" 2. Client Number ";CLIENT.NO
- PRINT
- PRSSG$ = "Do You want to DELETE this Client ?" : GOSUB 2100
- FLD.LEN% = 1 : GOSUB 9998
- IF UCASE$(REPLY$) = "N" THEN GOTO 100
- IF UCASE$(REPLY$) = "Y" THEN GOTO 2003.1
- ERR$ = "INVALID INPUT - Y OR N ONLY!"
- GOSUB 2000: GOTO 2003.2
- 2003.1 MSSG$ = "Confirm your intentions by typing DELETE " : GOSUB 2100
- FLD.LEN% = 7 : GOSUB 9998
- IF UCASE$(REPLY$) <> "DELETE" THEN RETURN
- OPEN FIL$(2)+":"+NCLIENT$+"CLN.FIL" RECL 255 AS 7
- OPEN FIL$(3)+":"+NCLIENT$+"EAR.FIL" RECL 36000
- RETURN
- 2010 REM ******************************* AUX DATA DISK NOT LOADED
- INITIALIZE
- MSSG$ = "Place the Auxiliary Data Disk into Drive " + FIL$(9) + " or "
- GOSUB 2100
- PRINT
- PRINT TAB(12);"Enter (N)o to skip Auxiliary Deletion and Press RETURN ";
- FLD.LEN% = 2 : GOSUB 9998
- INITIALIZE
- IF UCASE$(REPLY$) = "N" THEN GOTO 2009.2
- GOTO 2009.1
- 2020 REM ******************************* ERROR OPENING DELETE CLNRNM.FIL
- ERR$ = "Client Doesn't Exist on Disk"
- MSSG$ = "PresLEN% = 2 : GOSUB 9998
- INITIALIZE
- IF UCASE$(REPLY$) = "N" THEN RETURN
- CREATE FIL$(8)+":"+NCLIENT$+"ACC.FIL" RECL 255 AS 8
- CREATE FIL$(9)+":"+NCLIENT$+"FMT.FIL" RECL 100 AS 9
- PRINT #9,1;"-1",0.05
- CREATE FIL$(10)+":"+NCLIENT$+"CON.FIL" RECL 142 AS 10
- PRINT #10,1;CLIENT.NO,CLIENT.NAME$,O1,12,\
- "000000000000000000000000000000000000000000000000000000000000000000000000000000"
- CLOSE 8,9,10
- GOSUB 8000
- RETURN
- 1500 REM ************************************* ADD AUX FILE2002 MSSG$ = "Enter Client ID to DELETE >"
- GOSUB 2100 : FLD.LEN% = 5 : GOSUB 9998
- NCLIENT$ =UCASE$(REPLY$)
- IF LEN(NCLIENT$) < 1 OR LEN(NCLIENT$) > 5 THEN \
- ERR$ = "IMPROPER CLIENT ID ENTERED" :\
- GOTO 2002
- GOSUB 9009
- NCLIENT$ = UCASE$(LEFT$(REPLY$+"@@@@@",5))
- 2003 IF END #2 THEN 2020
- OPEN FIL$(2)+":"+NCLIENT$+"CLN.FIL" RECL 255 AS 2 : CLNRNM.FIL = 2
- GOSUB 5000
- READ #CLNRNM.FIL,3;CLIENT.NAME$,CLIENT.ADDR.1$,CLIENT.ADDR.2$,CLIENT.CITY.STATE$,CLIENT.ZIP$
- READ #CLNRNM.FIINT " 3. Client Name ";CLIENT.NAME$
- PRINT " 4. Address Line 1 ";CLIENT.ADDR.1$
- PRINT " 5. Address Line 2 ";CLIENT.ADDR.2$
- PRINT " 6. City, State ";CLIENT.CITY.STATE$
- PRINT " 7. Zip ";CLIENT.ZIP$
- PRINT
- PRINT " 8. General Ledger Balance Forward Date ";GL.DATE$
- PRINT " 9. Payroll Balance Forward Date ";PR.DATE$
- PRINT " 10. Fiscal Year End Month ";FISCAL.END.MO
- PRINT " 11. Fed I.D. Number ";CLIENT.TAX.NUMBER$
- 2003.2 M AS 2
- OPEN FIL$(6)+":"+NCLIENT$+"PAS.FIL" RECL 175 AS 3
- OPEN FIL$(4)+":"+NCLIENT$+"COA.FIL" RECL 43 AS 4
- OPEN FIL$(5)+":"+NCLIENT$+"TRI.FIL" RECL 68 AS 5
- OPEN FIL$(7)+":"+NCLIENT$+"FSH.FIL" RECL 94 AS 6
- DELETE 2,3,4,5,6,7
- 2009.1 IF END #8 THEN 2010
- OPEN FIL$(8)+":"+NCLIENT$+"ACC.FIL" RECL 255 AS 8
- OPEN FIL$(9)+":"+NCLIENT$+"FMT.FIL" RECL 100 AS 9
- OPEN FIL$(10)+":"+NCLIENT$+"CON.FIL" RECL 142 AS 10
- DELETE 8,9,10
- 2009.2 IF NCLIENT$ = CLIENT$ THEN CLIENT$ = ""
- NCLIENT$ = ""
- GOSUB 80s RETURN to Continue"
- GOSUB 2000 : GOSUB 2100 : FLD.LEN% = 2 : GOSUB 9998
- NCLIENT$ = ""
- RETURN
- 2500 REM ****************************** DELETE ONLY AUXILIARY FILES
- MSSG$ = "Enter Client ID to DELETE Auxiliary files >"
- GOSUB 2100 : FLD.LEN% = 5 : GOSUB 9998
- NCLIENT$ =UCASE$(REPLY$)
- IF LEN(NCLIENT$) < 1 OR LEN(NCLIENT$) > 5 THEN \
- ERR$ = "IMPROPER CLIENT ID ENTERED" :\
- GOTO 2500
- GOSUB 9009
- NCLIENT$ = UCASE$(LEFT$(REPLY$+"@@@@@",5))
- IF END #2 THEN 2020
- OPEN FIL$(2)+":"+NC����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������
|