r:MATRIX/BAS 4/14/04'w matching code 2CHRS 7/9 search 800, 1000| AZ WPU$():MC$"":PL$"":MAX (SVC,܄2:GOSUB 37000:F=51:CALL SVC(F)'open7 `:: 0:K$"SCRATCH FILE MATRIX UTILITY": ::: %dKALTf @(,),"Markup of 1.34 is 25% profit";h @(,),"Markup of 1.43 is 30% profit";j @(,),"Markup of 1.54 is 35% profit";l @(,),"Markup of 1.67 is 40% profit";n B: H: ZA :OsF$K$():FA(K$()): : MC @(,),"Invalid MFG Code";();: dxFS!(K$()):FD!(K$()):FU!(K$()):CD$K$()͆zFI$"SF000/DAT":MC$(MC):LE(MC$):(FI$,LE,LE)(MC$,)|:  ),"Searching for:";FI$;"R",,FI$: () : FI$: * " FOUND";U ,  AS LB$,x AS D$(),x AS D$()cL()w K () ,K I ŇWC$(D$(I),!,): CD$" " CD$WC$ WJ((D$(I),4,)):WW((D$(I),0,))! FA WWWJ(dFA)d:FIGURE COSTZ FA (D$(I),0,)(WW): WRITE OUT NEW COST FS! WSWWFS!:(D$(I),8,)(WS) FD! WDWWFD!:(D$(I),<,)(WD) FU! WUWWFU!:(D$(I),@,)(WU) WLWW:(D$(I),D,)(WL);COUNTCOUNT: @(,),COUNT;"CHANGED";C IM ,KU Ko K$();" Completed";w R"CONFIG :2,CO=600":"CONFIG :2,CO=800"҉"R",,FI$: () : : FI$"CONFIG :2,CO=1000"R",,FI$: () : : FI$+ "CONFIG :2,CO=600"f"SCRATCHFILE NOT FOUND ON ANY VOLUME": K ::mhB B 5,25,"Manufacturer Code:",8,25,"Disc. off Jobber: ",9,25,"Stk Dealer Markup:",10,25,"Dealer Markup:",11,25,"User Markup:",12,25,"Matching Code:",-1TB 6,5,44,4,1,0,8,44,3,2,0,9,44,5,3,0,10,44,5,3,0,11,44,5,3,0,12,44,2,1,00uF2: SVC(F,MC,WN$): F FO::lookup from wn$:uFO:W1F:W2MCu ,W1:UI$(DB$(W2),, ): :WP$UO$:WN$UO$:unpack data recordvUI$WD$(I) v vWD$UO$: WH((DB$(W2),P)): WS((DB$(W2),$)): WJ!((DB$(W2),LV)): WK((DB$(W2),n)): WE((DB$(W2),r)): WC$(DB$(W2),,) vF:(PU$,,)PI$(, ): SVC(F,PU$): PO$(PU$, )::pack part numberUF:(PU$,, )UI$: SVC(F,PU$): UO$(PU$,(PU$" "," "))::unpack part numbero:"R",,"INV120/DAT" , AS LB$, AS DB$ , AS LB$,x AS DB$(),x AS DB$() ,W1:lookup and display alternates?҂ J  ,W1pMF(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$qӋ (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),,) : AJ!(J)6Ӌ AJ!(J) C!d((WJ!AJ!(J))):D!AJ!(J)WJ!";Ӌ AJ!(J) AM$(J)((AM$(J))) LL: " \ \\ \ ";AM$(J),AP$(J);: "NO PRICING AVAILABLE"@Ӌ MF(J) AJ!(J) LL: " \ \\ \\ \ ####.## #### #### #####.##% $$###.##";AM$(J),AP$(J),WC$(J),AJ!(J),AQ(J),AM(J),C!,D! ȐJӃO:LPRINT STRING$(69,"-"):L=L+1Tӎ/F:X$" "F$:Z: SVC(F,X$,Z):MCZ::get mc from f$zF:SS$():ZMC: SVC(F,Z,SS$): SS$(SS$,)::get ss$ from omcxW1((WE)):W2WE(W1)::get w1 w2 from wel WK ( ): : W1((WK)):W2WK(W1)::get w1 w2 from wk`KS$()"_ 0123456789.,-QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm<>/?;:'[]{}!@#$%^&*()_+=`"("):XSET$( )( )( )()()()()()()()()()().cKS$()(KS$(), ):KS$()KS$()".":KS$()"_ YN":KS$()"_ 12"e R%(MAX),C%(MAX),K$(MAX),ZC%(MAX),E%(MAX),T%(MAX):K1$():K2$():K3$():K4$()j C$(X)((X),)“tZF:BASE:F3:ԓ BUILT _ KX: KI KX: R%(KI),C%(KI),KM,ZC%(KI),E%(KI):R%(KI)R%(KI)BX:C%(KI)C%(KI)BY: KM(K$(KI)) K$(KI)K$(KI)(KM(K$(KI)))O%:FX%@:R%R%(KI):C%C%(KI): SVC(FX%,K$(KI),R%,C%,KS$(),XSET$,O%):" ";();Ɣ KIДKIZK田O%:ZA: ZD KIZF KIZFE@(R%(KI),C%(KI)),"";:SVC,:F% :DD$()"G42:CALL SVC(F%,DD$)F%@@:SVC,:R%R%(KI):C%C%(KI) SVC(F%,K$(KI),R%,C%,KS$(ZC%(KI)),XSET$,O%)ڕ@(R%(KI),C%(KI)),();BAD: R% E%(KI) U BAD P R% ,,,,,,,, ,,,,,vKIKI:O%: KIKX :  KI KIKI:  : ÖKIKI: KIKX KIKX:  : ͖ ז ZA:KI': F2 KI: : " F3 KI : : ? F4 KI\: : ] SF1 KI: : { SF3 KI : :  SF4 KIa: :  SF5 KI": : #H XXX: XXX YY,ZZ$:@(BXXXX,BYYY),ZZ$;: HR F0SVC,:F%:U%_: SVC(F%,U%):@,"POSITRAK";:@P,(P,);:ʘ:@,();:@(((K$)),K$;(((K$))," ");:TM$((( ) )):(TM$,,)"W":@A,TM$;:@E," ";;" ";:8$ ER ();:@2,(((L(ZM$)))," ")ZM$(((L(ZM$)))," ");:ER: : @0,();:Z"MATRIX/BAS"::"SAVED...":