s :CDALL/BAS 5/19/10 ALL PRICE FIELDS,CORE,OH,HISTORY,DESCRIPTION} AZPU$()(SVC,Ą- p:OPEN CONFIG DAT, LOAD LINE CODES2 :F3: SVC(F):open<PG -F:  ) "Preparing full Inventory report for Excel export"5:g:GOSUB 58000:IF MC=0 THEN SYSTEM'LOOK UP MCLV0:GOSUB 4000'get price levelDž"O",,"cdall/csv:2": #,F$:PRINT NAME, ADD, CITY K :#,CN$(K)::name and addZ#,"LINE,NUMBER, DESCRIPTION, COST, LIST, DEALER, STK DEALER, JOBBER, USER, CORE, ON HAND, HISTORY":WN$=".":GOSUB 30000'lookup head record  K () Kd (Kd) "|";ņ ,K؆  I :W2IW WY((DB$(W2),T))((DB$(W2),V))((DB$(W2),X))((DB$(W2),Z))((DB$(W2),\)):CURR + LAST 4 QUARTERS{ WH((DB$(W2),P)):ON HAND WH WY uB:L: "FILE BUILT - CDALL/CSV"ćM܇SW1W1:SW2W2: x  LL: " PRICE COMPARISON REPORT": " MFG PART NUMBER CL ";L$;" O/H MAX % DIFFERENCE $ PG";PG :GET PRICE LEVEL DATAƈ "ENTER PRICE LEVEL (1-6)";PL刴 PL L$" COST ":LV0 PL L$"JOBBER":LV4# PL L$"ST.DLR":LV8B PL L$"DEALER":LV<a PL L$" USER ":LV@ PL L$" LIST ":LVD"COMPARE AT ";L$;" Y/N"; Y$: Y$"Y"  ׉p"R",,"CONFIG/DAT"z ,  AS YY$ K : ,K:CN$(K)(YY$,,):8 I : ,I=:MF$(I)YY$:FA$()ZF%: SVC(F%)dF% I :(A$,,)MF$(I): SVC(F%,A$): ݊0uF2: SVC(F,MC,WN$): F FO::lookup from wn$:uFO:W1F:W2MC;uW2I:UI$(DB$(W2),, ): :WP$UO$:WN$UO$:unpack data recordVvUI$(DB$(W2),, ):` v vWD$UO$: WH((DB$(W2),P)): WS((DB$(W2),$)): WJ!((DB$(W2),4)): WK((DB$(W2),n)): WE((DB$(W2),r)): WC$(DB$(W2),,):WM((DB$(W2),L,))vWY((DB$(W2),T))((DB$(W2),V))((DB$(W2),X))((DB$(W2),Z))((DB$(W2),\)):CURR + LAST 4 QUARTERS vWL((DB$(W2),^))((DB$(W2),`))((DB$(W2),b))((DB$(W2),d)):PREV 4 QUARTERS$vWU!((DB$(W2),@)):USER6%vWW!((DB$(W2),0)):COSTX&vWL!((DB$(W2),D)):LIST|'vWD!((DB$(W2),<)):DEALER(vWJ!((DB$(W2),4)):JOBBERȍ)vWS!((DB$(W2),8)):STK DEALER*vWC!((DB$(W2),H)):CORE 4vMC((DB$(W2),,)): [v#, SS$","WP$","WD$","(WW!)","(WL!)","(WD!)","(WS!)","(WJ!)","(WU!)","(WC!)","(WH)","(WY)\v쎸F:(PU$,,)PI$(, ): SVC(F,PU$): PO$(PU$, )::pack part numberIF:(PU$,, )UI$: SVC(F,PU$): UO$(PU$,(PU$" "," "))::unpack part numbera"R",,"INV120/DAT"} , AS LB$, AS DB$ , AS LB$,x AS DB$(),x AS DB$()ۏ ,W1:lookup and display alternates?҂ J  ,W1bMF(J)((DB$(W2),J,)):UI$(DB$(W2),J, ):KY(J)((DB$(W2),J,)): :AP$(J)UO$MCMF(J): MC AM$(J)"":AP$(J)"" : :AM$(J)SS$VӋ (KY(J) KY(J)) AK!KY(J):RK(AK!):RIAK!(RK): ,RK:AQ(J)((DB$(RI),P)):AM(J)((DB$(RI),$)):AJ!(J)((DB$(RI),LV)):WC$(J)(DB$(RI),,)6Ӌ AJ!(J) C!d((WJ!AJ!(J))):D!AJ!(J)WJ!f@Ӌ MF(J) AJ!(J) LL: " \ \\ \\ \ ####.## #### #### #####.##% $$###.##";AM$(J),AP$(J),WC$(J),AJ!(J),AQ(J),AM(J),C!,D! : MF(J)  )AM$(J);AP$(J), "NO PRICING AVAILABLE"lJӃO:PRINT STRING$(69,"-"):L=L+1TӎҒF:X$" "F$:Z: SVC(F,X$,Z):MCZ::get mc from f$F:SS$():ZMC: SVC(F,Z,SS$): SS$(SS$,)::get ss$ from omc^xW1((WE)):W2WE(W1)::get w1 w2 from wel WK :: "File Built for ";F$;" with";L;"Part Numbers": : W1((WK)):W2WK(W1)::get w1 w2 from wk