T:UPDATE/BAS 27 for a to add codetF1$"######":F2$"#####.##"SC$" >y":K(SC$):ADR(K)(K)لSVC,: D$(X)(((X),)(KM,"_"),KM) AH( ),MO( ): K  : MO(K):' F,I,J,K,W,H@'PU$(, ):K9$"_0123456789+. ":ZFSP~' : `|'SVC,:IB:II:SN:SI():SI()( RD(X#)(((X#)H\(X#))H)R:RZS:ZC: : ZA "MASTER/BAS"R F! lR,S,2U,T,&R,@,(,:R,0R!RRD: R0&R"DELETE/BAS"D0R:"MASTER/BAS"Y:R:"HISTORY/BAS"ilR:ADD PARTnRWW!:WS!:WC:WQ:WL:WL!:WM:WO:WT:WK:WU:JLJU:JS:JRqRPM$"":AF: }:WV$"":AP$"":K$""dvR@(,),();:@(, ),();: $:SU!WU!:SS!WS!:SD!WD!:SL!WL!:WE:WP$AP$:ZFAF:AF:ZS: RD ZC : ZCn{R R ZA : AP$WP$ۇR WP$"" FM$"BLANK PART NOT ALLOWED!":ER: vR : WP$"." WKRF$WV$" "WP$:WN$WP$R JR JRRWE: HA  :AH(HA)::WO:WM:JS:JLJU:WN:WSO: y: FULL AI FM$"ALTERNATE AREA IS FULL!":ER: vR : FM$"DATABASE FULL!":ER: vRR EXISTS FM$"PART NUMBER ALREADY EXISTS!":ER:ZD: 0uTR WS!SS! WD!SD! WL!SL! WJ! LF!WL!WJ!:DF!WD!WJ!:SF!WS!WJ!:UF!WU!WJ!R ( EXISTS) (WN$,)"." `m: 4S: Hq :UPDATE HEAD RECORDR vRw4SOWN$WN$:WN$".":NWK(RN)WI:FOUND: 0u: FOUND "NO HEAD RECORD FOR THIS LINE ";WV$;" ! ADD A PART NUMBER TO THIS LINE THAT CONSIST OF A PERIOD THEN CONTINUE OR CALL POSITRAK!":9SOWKWK:WQ:WLWL:WKNWK: ,RN: y:POINT HR TO PN JUST ADDED>ST1$DB$:(T1$,xI,x)RB$: DB$T1$: ,RNHSWN$OWN$: 0uU WP$"" ER:FM$"BLANK PART NOT ALLOWED!": vWW!((RB$,0,)){}: } HA  :AH(HA):h}WE:WD$"":WF:WM:WH:WS:WO:WW!:WJ!:WD!:WU!:WR(}WS!:WL!:WC!:WX$"":WC$"N":WQ:WY:WP:WB:WK:WN::Ƥ BI ֤LUHEAD(BI)LULUMRЎ$BI.LU8܂: CNT((LB$,,))C CNT "REC COUNTER BAD":mNL((LB$,,)):BL((LB$,,))|"LINKS$LB$'OTAILTAIL(CNT),(LINKS$,,)(CNT)ȥ6(LINKS$,,)()@(LINKS$,,)(OTAIL)J LB$LINKS$: ,RNOTAIL(CNT)RN5Q HEAD(CNT) HEAD(CNT)RNFTOTAILS^,OTAILbhLINKS$LB$|r(LINKS$,,)(RN)wLB$LINKS$|,OTAIL:ɦ HEAD(CNT)RN HEAD(CNT)NL: Ӧ,BLƒLINKS$LB$̃(LINKS$,,)(NL) փLB$LINKS$,BL2NLTAIL(CNT)BL:l<,NLKLINKS$LB$e&(LINKS$,,)(BL)u0LB$LINKS$:,NLlXЄ: :NP$(MC)PSO$:strip&packHI%MR:F%: SVC(F%,NP$,HI%)::PACKF%:(PU$,,)PI$(, )5ʈ SVC (F%,PU$):PO$(PU$, ):&F% :(PU$,,)PI$(): SVC(F%,PU$):F%: SVC(F%,PU$):SO$(PU$,)بF% :(PU$,,)PI$(): SVC(F%,PU$):PSO$(PU$, )::strip & packPI$WP$: &::UNPACK#F%:(PU$,, )UI$: SVC (F%,PU$)8UO$(PU$,):hF%:(PU$,, )UI$: SVC(F%,PU$):USO$(PU$, )::unpack & strip & pack (use for hi)ѩ"R",,"ITEM/DAT", : , AS A$: ,:JU(A$): "R",,"CONFIG/DAT": , AS AA$"R",,"INV120/DAT":F%3: SVC(F)5,ASLB$,ASDB$LMR():,MRsĐLB$(,"#")Б"BAD HEAD/TAIL":{p:z,MR:,MR I HEAD(I)((DB$,I,))۪TAIL(I)((DB$,I,))䪢I:X:bT1$""l I )vT1$T1$(HEAD(I))(TAIL(I))GI:LB$(,#):DB$T1$[,MR:,MR:m@"CPRICES/BAS("ALTPART/BASȯ R:RETURN TO UPDATE MENUʫ֑@(X,Y),()(W,())();ւ J  H :@(XJ,YW),();:֑@(XH,Y),()(W,())();Cւ J  H :@(XJ,Y),();:I֎rB$((A$),"0")(A$,(A$)):ދ (K$) HL! ER:FM$"Maximum value for this field is "(HL!): $:KIKI:K$"":@KA,(KM,KP$);: : K$(RD((K$))): $:`:2/08/87̭jKS$"_ABCDEFGHIJKLMNOPQRSTUVWXYZ,!#$%&'()*=-:<>?/"(")"abcdefghijklmnopqrstuvwxyz-. 0123456789-+":XSET$( )( )( )()()()()()()()()K~ C$(X#)(((RD(X#)),(RD(X#))),KM):K1$():K2$():K3$():K4$():KP$"_":K5$"01234567890- "i ();:KL:KZ:ZCo뮒KW:O%KP:KC:FX@: KF FXFX%:KIKI: (K$)KM VAR$K$:  : @KA,K$(KM(K$),KP$);: : FXFX&: K$(KM) K$""(VAR$K$(KM(K$),"_")A ZE FXFX@:ZE^R%(KAP):C%KAR%P SVC(FX,VAR$,R%,C%,KS$,XSET$,O%) KF : A$(XSET$,R%,):K$VAR$鯿 R% ,,(,Z,,,,",T,,,KIKI:KP:: KI KIKI:KP: : KZ KI': : v(KIKI:KP: KIKX KZ : KIKI:KW: : ZKIKIKL: KIKX KZ : KIKIKL:KW: : KIKIKL: KI  KZ KI': : KIKIKL:  :  ZQ ZA:KI': :  F! KIW:KP:HT: : ZFSKI:KIKI:KP:HT:FM$"TAB POSITION SET":ER:ZD: $:"KI':KP:TKW:KI:KF:˱ KV KH:KI': : ޱKIKI:KP:0@,"POSITRAK";:@P,(P,);::@,();:@(((K$)),K$;(((K$))," ");:TM$((( ) )):(TM$,,)"W":@A,TM$;:@E," ";;" ";:2$ ZS ER @(,),FM$;();:ER : @(,),(7, ); : ER ();:@2,(((L(FM$)))," ")FM$(((L(FM$)))," ");:ER : @0,();T. ZD XX : XX:ZDZ8v:2/08/87 MENU ROUTINEdzKN$"_123456789":KJ:FG%:FF%:KURPC:K$"_":KA(RN)PC :KJ$""ճ J N KU(RJ)PC:@KU,(KN$,J,);". ";K$(J);K4$;0 (K$(J)) KJ KJ(K$(J))6^ 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$)4 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%)))@- (K$() ZQ) ZA:@(,),"Option Canceled ! ";: : (K$( )) (K$()) L9 L9: 2K$((FF%),):FG%FF%:KU(RFF%)PC:@KU,K3$;K$;". ";K$(FF%);KJ$;K4$;7L9:  ZC " ZS |,,D,p,,,,,,,,X,| 0:K$"PART ENTRY AND EDITING": : K$()"Add New Parts":K$()"Change Data for a Part":K$()"Edit all Prices":K$()"Update Stock Levels":K$()"Delete Parts from Inventory":K$()"Change Prices Utility":K$()"Edit Alternate Part Numbers":K$()"Return to Master Menu")K$()"Review Part History"TN:R:C:ZA:ZQ: :F!FF%:]DZLzI RD  PF : PFN PF 0:K$"Change Data for a Part": :mX PF @,"Part Number :";:@G,"Description :";:@,"On Hand :";:@,"Min :";:@?,"Max :";:@,"Package Qty :";:@,"(A)";:@,"Net Cost :$":@#,"(B)";:@,,"Jobber :$"b PF @s,"(C)";:@x,"St. Dealer :$":@,"(D)";:@,"Dealer :$":@,"(E)";:@,"User :$":@c,"(F)";:@n,"List :$":@,"Core :$"|d PF @,"Code :":@],"Class :":@,"Missed Sales :":@,"Date Last Received :";:@D,"Date Last Sold :"g@,"Date Part Loaded :";:@,"MMDDYY";+i@,"Part History";:@,"------------";:@b,"Current :";: HA  :@bPHA,"Period ";: "##";HA;: " :";:clRDRD:KF:ZA:ZQ:KX!:XW$WV$: :XV$SO$vv KI ZL KX{ KI   KI KA:ZE:KM:K$WV$: :WV$K$: KF : ER $:KI:  : ZA KI' KI KI KA :KM:K$WP$: :WP$K$: : KF SO$XV$ WV$XW$ WN$WP$: 0u: FOUND ZL: }:FM$"PART NOT FOUND !":ER: $: l : ZL: $: l演 KI KAU:KM:K$WD$: :WD$K$1 KI KA:KM:HL!:K$C$(WH): : KF :WH(K$) KI KA:KM:HL!:K$C$(WR): : KF :WR((K$))Ͻ KI KAE:KM:HL!:K$C$(WS): : KF :WS((K$)) KI KA:KM:HL!}:K$C$(WU): : KF :WU(K$) KI KA:KM :HL!#t:K$C$(WW!):KO$KS$:KS$K9$: :KS$KO$: KF :WW!(K$) KI KA5:KM :HL!#t:K$C$(WJ!):KO$KS$:KS$K9$: : KS$KO$: KF :WJ!(K$)W KI KA:KM :HL!#t:K$C$(WS!):KO$KS$:KS$K9$: : KS$KO$: KF :WS!(K$) KI KA:KM :HL!#t:K$C$(WD!):KO$KS$:KS$K9$: : KS$KO$: KF :WD!(K$)+ KI KA%:KM :HL!#t:K$C$(WU!):KO$KS$:KS$K9$: : KS$KO$: KF :WU!(K$) KI KAu:KM :HL!#t:K$C$(WL!):KO$KS$:KS$K9$: :KS$KO$: KF :WL!(K$) KI  * KI KA:KM :HL!#t:K$C$(WC!):KO$KS$:KS$K9$: : KS$KO$: KF :WC!(K$)B KI KA:KM:K$WX$: :WX$K$p KI KAe:KM:K$WC$: :WC$K$ KI KA:KM:HL!:K$C$(WM): : KF :WM((K$)) KI KA:KM:JIJR: U:K$CAL$: : TV:JRJO@ KI KAU:KM:JIJS: U:K$CAL$: : TV:JSJO KI KA:KM:JIJL: U:K$CAL$: : TV:JLJO KI KAo:KM:HL!:K$C$(WY): : KF :WY(K$) KI KA:KM:HL!:K$C$(AH()): : KF :AH()(K$)p KI KA:KM:HL!:K$C$(AH()): : KF :AH()(K$) KI KA_:KM:HL!:K$C$(AH()): : KF :AH()(K$) KI KA:KM:HL!:K$C$(AH()): : KF :AH()(K$)f! KI KA:KM:HL!:K$C$(AH()): : KF :AH()(K$)" KI KAO:KM:HL!:K$C$(AH()): : KF :AH()(K$) # KI KA:KM:HL!:K$C$(AH()): : KF :AH()(K$)\$ KI KA:KM:HL!:K$C$(AH()): : KF :AH()(K$)% KI KA?:KM:HL!:K$C$(AH()): : KF :AH()(K$)& KI KA:KM:HL!:K$C$(AH( )): : KF :AH( )(K$)V' KI KA:KM:HL!:K$C$(AH( )): : KF :AH( )(K$)( KI! KA/:KM:HL!:K$C$(AH( )): : KF :AH( )(K$)*: KF KF:ZLZF: v: : p 0:K$"ENTER PART NUMBER": :: $u F! HA : HA5z@HA,"Part Number :";NDŽKF:ZA:ZQ:KX]ǎ KI ǘ KI KAHA:ZE:KM:K$"": :WV$K$Ǣ KI KAHA:KM:K$"": :WP$K$Ǭ: KF KF:  ȶF%:Z$" "WV$:Z%: SVC(F%,Z$,Z%):MCZ%W MC ER:FM$"INVALID MANUFACTURER CODE !": $:  : $:_:| RD  PF : PF PF 0:K$"Add New Parts": :E PF @,"Part Number :";:@U,"Description :";:@,"On Hand :";:@,"Min :";:@M,"Max :":@,"Package Qty :";:@1,"(B)";:@:,"Jobber :$" PF @,"(C)":@,"St. Dealer :$":@,"(D)":@,"Dealer :$":@!,"(E)":@,,"User :$":@q,"(F)":@|,"List :$":@,"Core :$":@l,"Code :":@,"Class :":@,"Qtd. Sold :<@N,"Date Part Received :";:@,"MMDDYY";cRDRD:KF:ZA:ZQ:KX:ZLt KIZL KX KI KA:ZE:KM:K$WV$: :WV$K$a KF F%:Z$" "WV$:Z%: SVC(F%,Z$,Z%):MCZ%: MC (WV$) ZA : ER:FM$"INVALID MANUFACTURER CODE!": $:ZL:  : $: ,dMC:NF!((AA$,%,)) KI KA:KM:K$WP$: :WP$K$: (KI') ( ZA) KI KI KAc:KM:K$WD$: :WD$K$^ KI KA:KM:HL!:KO$KS$:KS$K9$:K$C$(WH): :KS$KO$: KF :WH(K$): (KI') ( ZA) KI:ZL (KI) (ZL) ( KF) WSWH:@S,((WS),);" ";: WH  WRRD(WH):@,((WR),);" "; : WR:@,C$(WR);:ZL[ KI KA:KM:HL!:KO$KS$:KS$K9$:K$C$(WR): :KS$KO$: KF :WR((K$)) KI KAS:KM:HL!:K$C$(WS):KO$KS$:KS$K9$: :KS$KO$: KF :WS((K$))% KI KA:KM:KO$KS$:KS$K9$:HL!}:K$C$(WU): :KS$KO$: KF :WU(K$) KI ZL:KAC:KM :HL!#t:K$C$(WJ!):KO$KS$:KS$K9$: :KS$KO$: KF DG: :WJ!(K$): (NF!) WW!RD(WJ!(NF!d)d) : WW!WJ!n KF DG DG:@(,),"** (A) Net Cost :$";C$(WW!);( (C$(WW!)),"_");:@(, ),"** Net Cost Was Computed off Jobber Using the Price Factors.";  KI KF WL!RD(WJ!LF!):WS!(RD(WJ!SF!)):WD!RD(WJ!DF!):WU!RD(WJ!UF!):@,D$(WS!);:@,D$(WD!);:@3,D$(WU!);:@,D$(WL!);s KI KA:KM :HL!#t:K$C$(WS!):KO$KS$:KS$K9$: :KS$KO$: KF :WS!(K$)$ KI KA:KM :HL!#t:K$C$(WD!):KO$KS$:KS$K9$: :KS$KO$: KF :WD!(K$)F' KI KA3:KM :HL!#t:K$C$(WU!):KO$KS$:KS$K9$: :KS$KO$: KF :WU!(K$)) KI KA:KM :HL!#t:K$C$(WL!):KO$KS$:KS$K9$: :KS$KO$: KF :WL!(K$). KI KA:KM :HL!#t:K$C$(WC!):KO$KS$:KS$K9$: : KS$KO$: KF :WC!(K$)0 KI KF KA#:KM :HL!#t:K$C$(WW!):KO$KS$:KS$K9$: :KS$KO$: : (WW!)K$ @(, ),();();"** Net Cost Entered by User";:WW!(K$) : WW!(K$)3 KI KAs:KM:K$WX$: :WX$K$28 KI KA:KM:K$WC$: :WC$K$B KI KA:KM:HL!:K$C$(WY): : KF :WY(K$)G KI KAc:KM:K$"123180": : TV:JRJOL: KF KF:ZLZF:  : ZA V: RD  PF : PF8 PF 0:K$"Changing Prices": : PF @,"Line Code :";:@,"Number :";:@J,"Jobber :$";:@,"St. Dealer :$";:@,"Dealer :$";:@<,"User :$";:@,"List :$"#@,"Core :$";:@(,"Net Cost :$";:@{,"Class :";$ PF @(, ),"Starting With The Second Part :": @(, ),"Press After Typing Jobber Price to Factor Prices.";: ,dMC:NF!((AA$,%,))(RDRD:KF:ZA:ZQ:KX :ZL:XV$WP$:XW$WV$2 KI ZL KXB< KI ZE:KM:KA:K$WV$: : WV$K$: KF : ER $:KI: <F KI KM :KA:K$WP$: :WP$K$: KF WP$XV$ WV$XW$ WN$WP$: 0u: FOUND ZF: }:FM$"PART NOT FOUND ! ":ER: $: ( : ZF: (5P KI KM :KAS:K$C$(WJ!): : KF :WJ!(K$)U KIW HT KF KI:WL!RD(WJ!LF!):WS!RD(WJ!SF!):WD!RD(WJ!DF!):WU!RD(WJ!UF!):@,D$(WS!); : Z7W@,D$(WD!);:@C,D$(WU!);:@,D$(WL!);: ,dMC:NF!((AA$,%,)): (NF!) WW!RD(WJ!(NF!d)d) : WW!WJ!zX@3,D$(WW!);:@( ,4),"###.##%";NF!;:" of Jobber Price";Z KI KA:KM :HL!#t:K$C$(WS!): : KF :WS!(K$)d KI KA:KM :HL!#t:K$C$(WD!): : KF :WD!(K$)li KI KAC:KM :HL!#t:K$C$(WU!): : KF :WU!(K$)n KI KA:KM :HL!#t:K$C$(WL!): : KF :WL!(K$) x KI KA:KM :HL!#t:K$C$(WC!): : KF :WC!(K$)]z KI KA3:KM :HL!#t:K$C$(WW!): : KF :WW!(K$)} KI ZE:KA:KM:K$WC$: :WC$K$ڂ: KF KF:ZLZF: 2 : ڌF%:Z$" "WV$:Z%: SVC(F%,Z$,Z%):MCZ%%ۖ MC ER:FM$"INVALID MANUFACTURER CODE!": : $:-X:Jb RD  PF : PFzl PF 0:K$"Update Stock Levels": :v PF @,"Line Code :";:@,"Number :";:@?,"Quantity Received :";{ $ۀRDRD:KF:ZA:ZQ:KX܊ KI ZL 8ܔ KI ZE:KM:KA:K$WV$: :WV$K$fܞ KI KM:KA:K$WP$: :WP$K$ܣ KF @(,),();ܨ KI KM:KAS:K$"":HL!#t:KO$KS$:KS$K5$:K$QR$: :KS$KO$:QR%(K$): KF ݭ: KF KF:ZLZF:  : ZA GݲF%:Z$" "WV$:Z%: SVC(F%,Z$,Z%):MCZ%ݷ MC ER:FM$"INVALID MANUFACTURER CODE!": $:ZL:  : $: "SAVING UPDATE/BAS":"UPDATE/BAS": 31,28,31,30,31,30,31,31,30,31,30,31