p:REVISION 27.01 JCON/BAS FOR JCON OFFLOAD FOR 5/19/08 B&W AP:YTD IS STORE IN MOST RECENT 2 QUARTERS (31437)Z F,I,J,K,W,H,Z҄dPU$(, ):SVC,܄n `ZS:ZC: : ZA $ MENU *,.,2,6,:,>,hBM MENU M1 : MENU M4W *:read codes/txt and get manufacturers from file+ MF$(),EX$(),SC$(),CN%(),SUP$(2)ԅ + "I",,"CODES/TXT"݅+EF+ EF + + :read record R+0\+ "SUPPLIER CONVERSION REPORT"::ha+ "OLD SUPPLIER NAME";: ) "NEW SUPPLIER NUMBER"f+ "-----------------";: ) "-------------------"k+Xp+ SUP$(X) ""ۆz+ SUP$(X);: ) X:XXᆄ++ ( ):+:READ RECORD+ #,A$7+ (A$,"END OF REPORT") EF:+ (A$) 2 (A$,;,)"/" GOOD : GOOD: : GOOD:+GCGC:ԇ+MF$(GC)(A$,,):EX$(GC)(A$, ,):SUP$(A$,",):CN%(GC)GC+@(,),"Converting ";MF$(GC);+FG: J SUPC+ SUP$(J)SUP$ FG:SC$(GC)((J),):JSUPI+V+ FG + SUP$ " " SUPSUP:SUP$(SUP)SUP$:SC$(GC)((SUP),),. M1 @(,),();"You must first execute option 1";: J @::4. "MANUFACTURER CODES THAT WILL BE SUPPORTED AFTER CONVERSION":.. "CODE #";:  )"CODE";: )"DESCRIPTION";: 2) "SUPPLIER"‰. "---------------------------------------------------------"ȉ/׉/ J GC!/ CN%(J) CN%(J);:  ) MF$(J);: ) EX$(J);: 7) SC$(J);#$/)&/8:/ ( ):2 M1 @(,),();"You must first execute option 1";: J @::2: X42ZS:ZC: : ZA Ċ2 F 3,3Ί2 23ZS:ZC: : ZA DC %3 "Manufacturer code ";MF$(DC);" was deleted "3MF$(DC)" ":R(DC)(((DC))):C((DC)): DC  @(R,C),((CN%(DC)),);" ";MF$(DC);3ɋ3ZS:ZC: : ZA NC OC ؋3CN%(OC)NC4 "Manufacturer code ";MF$(OC);" was combined with ";MF$(NC)4AX4R:C:XGC: GC  XO]4 J Xxb4@(R,C),((CN%(J)),);" ";MF$(J);l4RR: R  R:CC:v446 M1 @(,),();"You must first execute option 1";: J @::M4:!6: "r",,"config/dat": , AS AA$36SC$(," ")a6I: J :MX$(J)(," "): K 26(MX$(J),K,)MF$(I):@(,),"Inserting code ";MF$(I);ō6(SC$,I,)((SC$(I)) )׍6II: K: J6 J : AA$MX$(J): ,J=:6 AA$SC$: ,;6 J GC: AA$EX$(J): ,Jd: JA6y6 "INSERTED LINE CODES INTO DATABASE ";;" ";::7: :MC::IF NOT M4 THEN PRINT@(18,20),CHR$(7);"You must first execute option 4";:FOR J=1 TO 8000:NEXT:RETURN::ERASE EX$,SC$,SUP$(::CLOSE:GOSUB 370001:EFZ: @(,'),"START TIME = ";;" ";;: @(,),"P/N DESC Oh Mi Ma Ytd J ---S----L PRICES---- YTD LYR"Ï: EF͏: `;: GOOD (<: lR:":: "*** FINISHED INSERTING PARTS AT ";;" ";(:5`; #,A$gb;:IN$=INKEY$:IF IN$="" THEN 15202 ELSE 15200se;GOODאj;:IF INSTR(A$,"END OF REPORT") THEN EF=-1:GOOD=0:RETURN ELSE IF LEN(A$)<130 THEN GOOD=0:RETURNt; (A$) GOOD:~; (A$,,)"---" GOOD:5; (A$,,)" " GOOD:P; (A$) GOOD:r; (A$,,)"MFG" GOOD:; (A$,,)"2.2" GOOD:; (A$,,)"Act" GOOD:; (A$,, )"FINAL SUMMARY" X: "REPORT COMPLETE":+;:IF MID$(A$,1,7)="SUMMARY" THEN GOOD =0:RETURN1;9(<:K):PRINT "CURRENT MANUFACTURER CODE = ";MC; " ";M$;" CURRENT TIME ";TIME$;" ";DATE$>&>:"LOADAR/BAS".hB:=PF:SKIP UPGUF dZF"ENTER RESTART CODE";M$qdF #,A$nF (A$,,)"2.11" dFxF (A$,#,(M$))M$ A$ : dF–F R̖F dFՖ8J A$BJ #, A$LJ 8JlR: ADD PARTBvR M$ " " OM$M$ <: MC  =:OM$M$ : }R MC "IGNORING PART NUMBER ";WP$;" CODE ";MC$:R@(,),"Inserting ";MC;M$;" ";WP$;: y: FULL @(, ),"Database is full, you must recreate a new database!!!";();:IR EXISTS y:T1$DB$:(T1$,xI,x)RB$: DB$T1$: ,RN::TR ,H1vR WK$(H2)((RNWI))R ,H1RH1RN:H2WIR`mHq0u:XuPI$WN$: ЄȘbuRNHI%Әdu ,RNfuLINKS$LB$qu AI : I MvuWV((DB$,Ix)): WVMC UI$(DB$,Ix, ): h: PSO$USO$ uUu Ilu AI FOUND:uRN((LINKS$,AI,))u RN FOUND:u ,RN: AIǙuW1RN:W2I:WVMCᙞuRB$(DB$,Ix,x)uFOUNDuy:6y `m: p:FULL:EXISTS.@yPI$WP$: Є>JyRNHI%:NFILy ,RNaNyLINKS$LB$:DAT$DB$jOyAItPy YyTy ,RNYy I ښ^yWV((DB$,xI)): WV NF NF:RN1RN:I1I: my : my#cy MCWV UI$(DB$,xI, ): h: PSO$USO$ EXISTS: Hq+my I~ny (AI) (NF) "BUCKET FULL WHEN SHOULDN'T BE": : RNRN1:II1: yry AI "ALT FULL IN";WP$:wyRN((LINKS$,AI,))|y RN AIAI: Ty : NF RNRN1:II1: yy y LU FULL: Hq;y(LINKS$,AI,)(LU)Wy LB$LINKS$: DB$DAT$by ,HIlyRNLUuyAIy Tyy ,RN:WII: yyT1$DB$y(T1$,xI,x)RB$ɜy DB$T1$Ԝy ,RNޜy ܂y Hqy:yRB$(x,):(RB$,,)" "yWVMC6y(RB$,,)(WV)YyPI$WP$: :(RB$,, )PO$vyPI$WD$((WD$), )y z(RB$,, )PO$z(RB$,P,)(WH)Ɲz(RB$,&,)(WR)ޝz(RB$,$,)(WS)!z(RB$,(,)(WO)+zWF Dz(RB$,0,)(WW!)2bz(RB$,4,)(WJ!)Kz(RB$,8,)(WS!)dz(RB$,<,)(WD!)}z(RB$,@,)(WU!)z(RB$,D,)(WL!)z(RB$,H,)(WC!) Ȟz(RB$,L,)(WM)z(RB$,T,)(WC%)z:MID$(RB$,86,2)=MKI$(WY) zYTD(WY)*zZ(YTD):RMYTD(Z)Wz(RB$,V,)(ZRM):(RB$,X,)(Z)tzZ(WLL):RMWLL(Z)ǟz(RB$,Z,)(ZRM):(RB$,\,)(Z):(RB$,^,)(Z):(RB$,`,)(Z)ܟz(RB$,!,)WX${(RB$,.,)(WF) {(RB$,,)WC$!{(RB$,*,)(WU)9 {(RB$,R,)(WN)Q*{(RB$,r,)(WE)i4{(RB$,n,)(WK)9{(RB$,v,)('):5/19/2008>{}:}WE:WD$"":WF:WM:WH:WS:WO:WW!:WJ!:WD!:WU!:WR/(}WS!:WL!:WC!::WX$" ":WC$"N":WQ:WY!::WP:WB:WK:WN:7:F BI VLUHEAD(BI)n LU LUMR w$ BI.LU8܂:CNT((LB$,,))ɡ CNT "REC COUNTER BAD":NL((LB$,,)):BL((LB$,,))"LINKS$LB$'OTAILTAIL(CNT)5,(LINKS$,,)(CNT)N6(LINKS$,,)()k@(LINKS$,,)(OTAIL)J LB$LINKS$: ,RNOTAIL(CNT)RNQ HEAD(CNT) HEAD(CNT)RNϢT OTAIL ݢ^ ,OTAILhLINKS$LB$r(LINKS$,,)(RN)w LB$LINKS$%| ,OTAIL-:U HEAD(CNT)RN HEAD(CNT)NL: ` ,BLoƒLINKS$LB$̃(LINKS$,,)(NL)փ LB$LINKS$ ,BLţ NL TAIL(CNT)BL: lУ ,NLߣLINKS$LB$&(LINKS$,,)(BL) 0 LB$LINKS$: ,NLl X%+ЄR :NP$(MC)PSO$:strip&packxHI%MR:F%: SVC(F%,NP$,HI%): PACKSVC,:F%:packLj(PU$,,)PI$(, )ݤʈ SVC (F%,PU$):PO$(PU$, ): 3SVC,:F%:(PU$,,)PI$(): SVC(F%,PU$):SO$(PU$,)::strip only SVC,:F% :(PU$,,)PI$(): SVC(F%,PU$):PSO$(PU$, )::strip & pack UNPACKSVC,:F%:unpack֥(PU$,, )UI$: SVC (F%,PU$)륰UO$(PU$,):ShSVC,:F%:(PU$,, )UI$: SVC(F%,PU$):USO$(PU$, )::unpack & strip & pack (use for hi) [:ay"R",,"INV120/DAT" ,ASLB$,ASDB$MR(): ,MRҦĐ LB$(,"#") "BAD HEAD/TAIL":2"I",,"inv/txt"P ,ASIR$Z I d ,IxASDUM$,ASWV$(I), ASWP$(I), ASWD$(I),ASDUM$,ASWC$(I),ASDUM$,ASWX$(I),ASWS$(I),ASWR$(I),ASWO$(I),ASWU$(I),ASDUM$,ASWF$(I),ASDUM$,ASWW$(I),ASW0$(I),ASW2$(I),ASW4$(I),ASW5$(I),ASW6$(I),ASW8$(I) wn ,Ix[ ASDUM$,ASWM$(I),ASDUM$,ASWH$(I),ASWN$(I),ASWY$(I),ASWQ$(I),AS WT$(I),AS WL$(I),AS WA$(I),ASWK$(I),ASWB$(I),ASWE$(I)x Ip:z,MR:,MRIʨHEAD(I)((DB$,I,))ꨘTAIL(I)((DB$,I,))󨢔I:X:bT1$""lI5vT1$T1$(HEAD(I))(TAIL(I))SI:LB$(,#):DB$T1$g,MR:,MR:֑@(X,Y),()(W,())();ւ J  H :@(XJ,YW),();:֑@(XH,Y),()(W,())(); ւ J  H :@(XJ,Y),();:֎;X$" "M$:Z:F: SVC(F,X$,Z):MCZ:k`:11/13/86 REV 10.05 SCREEN INITIALIZATION(jKS$"_ABCDEFGHIJKLMNOPQRSTUVWXYZ,!#$%&'()*=-:<>?/"(")"abcdefghijklmnopqrstuvwxyz-. 0123456789-+":XSET$( )( )( )()()()()()()()()u~ C$(X)((X),):K1$():K2$():K3$():K4$():KP$"_" ();:KL:KZ:ZC!KW:O%KP:SVC,:KC:FX%@: KF FX%FX%:KIKI: (K$)KM VAR$K$:  : @KA,K$(KM(K$),KP$);: : FX%FX%&9 ZE FX%FX%@N ZI FX%FX%kVAR$K$(KM(K$),"_")R%(KAP):C%KAR%P SVC (FX%,VAR$,R%,C%,KS$,XSET$,O%)ڬ KF : A$(XSET$,R%,):K$VAR$ R% ,,(,Z,,,,",T,,,.KIKI:KP:f KI KIKI:KP: : KZ KI': : (KIKI:KP: KIKX KZ : KIKI:KW: : ݭZKIKIKL: KIKX KZ : KIKIKL:KW: : KIKIKL: KI  KZ KI': : KIKIKL:  : C ZQ ZA:KI': : s KC KIW:KP:HT : KCKC: "KI':KP:TKW:KI:KF: KV KH:KI': : ѮKIKI:KP:0@,"POSITRAK";:@P,(P,);:@,"Micro Specialist Inc.";::@,();:@(((K$)),K$;(((K$))," ");:TM$((( ) )):(TM$,,)"W":@A,TM$;" ";;" ";:: 11/13/86 REV 10.05 MENU ROUTINE KN$"_123456789":KJ:FG%:FF%:KURPC:K$"_":KA(RN)PC :KJ$"" J NPKU(RJ)PC:@KU,(KN$,J,);". ";K$(J);K4$;t (K$(J)) KJ KJ(K$(J))z KU(RN)PC:@KU,"Selection :";XR:YC:WKJ:HN: :XRN:YC:W:H: @KA,K$;K1$;:@KA,"";@K$: K$""  : K2$;:FI%FF%: (K$)  FF%(K$)x K$( ) FF%FF% : K$( ) FF%FF%  FF%  FF%N : FF% N FF% FG% KU(RFG%)PC:@KU," ";(KN$,FG%,);". ";K$(FG%);KJ$;K4$;#KJ$(KJ(K$(FF%)))W- (K$() ZQ) ZA: : (K$( )) (K$()) 2K$C$(FF%):FG%FF%:KU(RFF%)PC:@KU,K3$;K$;". ";K$(FF%);KJ$;K4$;7  ZC ۲" ZS |,,D,, ,| 0:K$"JCON OFFLOAD MENU": ::K$(1)="Get manufacturer lines from triad file":K$(2)="Print manufacturer lines":K$(3)="Delete/Combine lines":K$(4)="Insert manufacturer lines into POSITRAK"+K$()"Insert inventory from JCON file into POSITRAK"::KILL$(6)'="Convert triad customer file":K$(7)="Return to MSI DOS"XZQ:ZA:R:C:N: :MENUFF%:ִ@(, ),();"1. Delete a code by code #";:@(, ),"2. Combine a code with another code";:@(, ),"Selection : ";ZA:ZQ:KM:KO$KS$:KS$"_12":KX:KF KI > KI KAD:K$"": :F(K$)c: KF KF:  : KS$KO$:D@(,0),"Code # to delete (1-200) : ";NKM:ZA:ZQ:KF:KX:ZEĵX KI b KI KA:K$"": :DC(K$)l: KF KF: X : ZE:6@(,0),"Code # to change : ";\@(,0),"New code # : ";KM:ZA:ZQ:KF:KX:ZE:NC:OC KI KXζ KI KA:K$((OC),): :OC(K$) KI KA&:K$((NC),): :NC(K$)+: KF KF:  : ZE: ZA  OC GC NC GC @(,(),();"Codes cannot be greater than ";GC;: "JCON/BAS