~:MATRIXL/BAS 01/13/04'w matching code 2CHRS 7/9 search 800, 1000 LIST DOWN AZ WPU$():MC$"":PL$"":MAX (SVC,2:GOSUB 37000:F=51:CALL SVC(F)'open(7 `:: 0:K$"SCRATCH FILE MATRIX List Down": ::: 3dKALbf @(,),"Factor of .5 is 1/2 off List";h:RINT @(15,25),"Markup of 1.43 is 30% profit";ͅj:PRINT @(16,25),"Markup of 1.54 is 35% profit";l:PRINT @(17,25),"Markup of 1.67 is 40% profit";n B: H: ZA :rsF$K$():FW!(K$()): : MC @(,),"Invalid MFG Code";();: dxFJ!(K$()):FS!(K$()):FD!(K$()):CD$K$()zFI$"SF000/DAT":MC$(MC):LE(MC$):(FI$,LE,LE)(MC$,)|:  ),"Searching for:";FI$;="R",,FI$: () : FI$: M " FOUND";x ,  AS LB$,x AS D$(),x AS D$()L() K () ,K I 臯WC$(D$(I),!,): CD$" " CD$WC$ WL((D$(I),D,))WWWLFW!K FW! (D$(I),0,)(WW): WRITE OUT NEW COSTz FS! WSWLFS!:(D$(I),8,)(WS) FD! WDWLFD!:(D$(I),<,)(WD)؈ FJ! WJWLFJ!:(D$(I),4,)(WJ):WL=WW*2!:MID$(D$(I),68,4)=MKS$(WL)0COUNTCOUNT: @(,),COUNT;"CHANGED";8 IB ,KJ Kd K$();" Completed";l R"CONFIG :2,CO=600":"CONFIG :2,CO=800"lj"R",,FI$: () : : FI$߉"CONFIG :2,CO=1000"R",,FI$: () : : FI$ "CONFIG :2,CO=600"["SCRATCHFILE NOT FOUND ON ANY VOLUME": K ::bhB B 5,25,"Manufacturer Code:",8,25,"Cost Factor: ",9,25,"Jobber Factor:",10,25,"Stk Dealer Factor:",11,25,"Dealer Factor:",12,25,"Matching Code:",-1FB 6,5,44,4,1,0,8,44,5,3,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),,) vꌸF:(PU$,,)PI$(, ): SVC(F,PU$): PO$(PU$, )::pack part numberGF:(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$cӋ (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$lF: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 Q 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 KIZF7@(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 B R% ,,,,,,,, ,,,,,hKIKI:O%: KIKX :  KI KIKI:  : KIKI: KIKX KIKX:  :  ɖ ܖZA:KI': F2 KI: :  F3 KI : : 1 F4 KI\: : O SF1 KI: : m SF3 KI : :  SF4 KIa: :  SF5 KI": : #H XXX: XXX YY,ZZ$:@(BXXXX,BYYY),ZZ$;: HR 80SVC,:F%:U%_: SVC(F%,U%):@,"POSITRAK";:@P,(P,);::@,();:@(((K$)),K$;(((K$))," ");:TM$((( ) )):(TM$,,)"W":@A,TM$;:@E," ";;" ";:*$ ER ();:@2,(((L(ZM$)))," ")ZM$(((L(ZM$)))," ");:ER: : @0,();:L"MATRIX/BAS"::"SAVED...":