d:REVISION 23.00 POSYSTEM/BAS 03/20/00 - OKI ONLYl S TYP$,M$,Q1$,Q2$,Q3$,Q4$,PH$,PO%,SU:Q3$"POSYSTEM/BAS" : 0:K$"Purchase Order System": ::@(,),"Please wait...";2SVC,:PU$():BKRD$"N"< Q: MF D$(X$)S$((((X$)),))"/"S$(((((X$,))),))"/"S$(((((X$,))),))؅P T$(X$)(((X$)),)":"("00"((((X$,))),),)" "(X$,,)"m"Z S$(X$)("00"X$,) `: . MC(),WN$(),QR(),QW(),D$()iFM$"##### \ \ ##### \ \"sZCOP:ZS:ZQ: :ZC: ZA Ȇ OP  ,$,2,.,,a,, L::"MASTER/BAS" L:"WEDIT/BAS"  %: BAD  >:Q1$"POSYSTEM/BAS":Q4$Q1$: L:"BLDREP/BAS"_REC: xi: :POST POi$  .REC:  :CANCEL PO 8(#B:KILL FL$LZC: JJJ :@(JJJ,)),();::ZS: :ZC: ZA   FF% #,8, ,> FF% ) BZS: : ZA bMC$JJJ$: : FO (Q1$(MC):"ALTCOST/BAS"2 ,: (#"R",,FL$, : , AS PX$"R",,"TEMP"TM$"/DAT", : , AS TX$ ,: TX$PX$: ,:LRI  XXX (): ,XXXy (((PX$,,)) ((PX$,,))) (PX$) TX$PX$:LRILRI: ,LRI XXXLRILRI" ,, FL$Ӊ6 LRI "RENAME TEMP"TM$"/DAT TO "FL$@ :"R",,"POINDEX/INX", : , AS PNX$J LSK ()T ,LSK: (PNX$)PO% (PNX$, ,)(LRI): LRI (PNX$,,)(): ,LSK: : : ,LSK: :^ LSKh rZC:MO:TUT#:LUT#:WTC#:LTC#:PG:BACKO:ZS: : ZA  : CT REC |:A: ZA  : : A( %1(#U :"R",,FL$, : , AS PX$q ,:PO%((PX$,)) REC @(,-),"POSTING ";: @(,-),"CANCELED ";1CT: K (): ,K:UI$(PX$,, ): :WN$UO$:MC((PX$,,)):QW((PX$,,)): REC QWQW((PX$,,))V@(,8),"\ \";WN$; `m: 0u: ` :: ( FOUND) MC @(,-),WN$;" NOT FOUND ";: Hq: 7ɌNNWOQW: NN NN(T1$,xW2(,)(NN) REC NHWHQW:(T1$,xW2P,)(WHQW)V REC (QW) (T1$,xW2,,)(JU):JULIAN DATE(T1$,xW2$,)():SET MIN TO ZERO(T1$,xW2&,)():SET MAX TO ZEROҍ4 DB$T1$: ,W1: ,W177 REC (PX$,,)(PX$,,):(PX$,,)(): ,K: (PX$,,)() BACKOBACKO@9HqH> KC REC PRRP  :MC$"ALL LINES":LUT#TUT#:LTC#WTC#:  : ( );HMC$():LRI():: WN$,QW,MC,QR,D$: REC BACKO FL$:  : : BACKO A: %:  : FL$: >` REC PRRP : CT  Ya MCMO  :MOMCb FOUND WC!((T1$,W2xH,)):OH((T1$,W2xP,)):WW!((T1$,W2x0,))c @d QQQ((PX$,,)): QQ QQQxe "\ \ \ \ ##### ##### ##### ";MC$,WN$,QW,((PX$,,)),OHQW;: FOUND : MC "SPECIAL ORDER" : "NOT FOUND"g FOUND LUT#LUT#WW!QW: "$$#####.## $$##,###.## $$##,###.##";WW!,QWWW!,QWWC!:WTC#WTC#QWWC!:LTC#LTC#QWWC!j CTCT:" PGPG: PG ( );M REC R$"POSTING" : R$"CANCEL PO"Z SI$() "PURCHASE ORDER - #### \ \ REPORT \ \ PAGE ###";PO%,R$,,PG  "MFG PART NUMBER REC. B.O. NEW QTY COST EXTENSION CORE TOT" (N,"-")# CT7:? LUT# :OR MO=0l "**** TOTAL INVENTORY ADJUSTMENT FOR "; "\ \$$##,###.## ####,###.##";MC$,LUT#,LTC#;:" ****": TUT#TUT#LUT#:CTCT:LTC#:LUT#:! NWO: X :@(X,*),();: X:ZS: : ZA 9 FF% ,( ,? U( %: BAD  - NWO:"R",,"ITEM/DAT", : , AS TX$2 ,:PO%(TX$): PO%' PO%ɓ< TX$(PO%): ,: ޓ> A:LRI: &0A (#:"R",,FL$, : , AS PX$: PX$()(PO%)()(,): ,: DB @(,),();NF  } :"R",,"POINDEX/INX", : , AS PNX$ ,:NNN(PNX$) VVV X NNN: ,X (()()(),(PNX$,,)) VVVVVV : ,XVVV XX ,:(PNX$,,)(NNNVVV): ,: (PNX$)() "PLEASE CALL POSITRAK!":` f :HANDLER FOR EDITING ZS: : ZA  (#:K$"Loading "FL$: :ݕ BACKO: NWO NWO:   ZC:ZS: :ZC:: ZA  : BACKO A : A& %? ':READ IN FILE[ () SE%: 4v ZQ:ZS: : 4 . :WRITE OUT SEQ FILE ϖ :"R",,"POINDEX/INX", : , AS PDB$ @(,),();(,);();(,);();( ,);();(,);();V@(,),"|PO NO. | SIZE | DATE MOD | STATUS | "@(,),();(,);();(,);();( ,);();(,);(); LSS @(LSS,),"| | | | |" LSSK@(,),();(,);();(,);();( ,);();(,);();TCT Edited,Trans,With B/O,B/O,Posted,Tran B/O,New,Cancel,*K: ĘKK: D$(K): D$(K)"*"  ,:LSK(PDB$): LSK : SWLSK  A ,SW:QQQ((PDB$,,)): QQQ QQQ QQQ ™CTCT:@(CT,),"| ##### | #####p | \ \ |\ \| ";(PDB$),((PDB$, )),D$((PDB$,,)),D$(((PDB$,)));ՙ CT SWޙ SW :8PG:CT!B"R",,"POINDEX/INX", : , AS PNX$LL :"R",,"WDATA/DAT": , AS WDTA$gQ ,: (PNX$) V X(PNX$)  ` ,X: (PNX$) j X: ( );t: ǚ~ښ CT  SU%((PNX$, ,)): SU% SU%() WDTA$"" : ,SU%ᛰ "#### \ \ \ \ \ \ \ \ ##,### ";(PNX$),D$(((PNX$,,))),D$((PNX$,,)),T$((PNX$,,)),D$((PNX$, ,)),((PNX$, ));: (WDTA$,);" ";:CTCT-MCT: (PNX$,,)() "**** SPECIAL ORDER ****":CTCT:  Y  :MC((PNX$,Y)): MC @: MC$" ";:MCTMCT: MCT(MCT) : T);" ";:CTCT Y؜ MCT "*** MORE ***":CTCT : :CTCT MCT :CTCT  PG ( );.PGPG:"PRINTER (COLS=108)" "PURCHASE ORDERS REPORT \ \ PAGE: ######";,PG SI$()"PO # STATUS LAST ACCESS CREATED #PARTS SUPPLIER LINES"' (l,"-")3CT7:;X Rb"R",,"WDATA/DAT"l , AS N$, AS S$, AS A1$, AS A2$, AS P$, AS PM$, AS WT$vL1X2X1:L2Y2Y1˞L1L1:L2L2@(X1,Y1),();(L2,);(); V L10@(X1V,Y1),();:@(X1V,Y2),();8 V^@(X2,Y1),();(L2,);();d@:RETURN 3 DIGIT MFG CODE OR ERRORE MC MC MC$"":JF%:Z%MC:Z$(): SVC(F%,Z%,Z$):MC$(Z$,)TJ4! KS$,KO$:KA(KI)P:KM:LSSKI:K$D$(LSS): :D$(LSS)K$:@(KKI,),();: KS$,KO$U>!KM:(#FL$"PO"((PO%),,((PO%)))"/DAT":#ZS: : ZA # (##"R",,FL$, : () :Q1$FL$:Q4$Q1$: L:"BLDREP/BAS"# :();: %:CHANGE PO STATUS&%:A=NEW STATUS 0 - NEW, 1 - EDITED, 2 - TRANS., 3 - NOT POSTED W/BO, 4 - B/O, 5 - POSTED, 6 - TRANSMITTED B/O0%:N=NUMBER OF PARTSá:%"R",,"POINDEX/INX", ֡D% , AS PNX$N% LSK () X% ,LSK: (PNX$)PO% %:b% LSK:"PO NOT IN INDEX - CALL POSITRAK":D% `m% ,: ,LSK: A ((PNX$,,)) ((PNX$,,)) Aܢ%(PNX$,,)(A):A$: &:(PNX$,,)A$:A$: &:(PNX$,,)A$% A A (PNX$, ,)(SU)% ,LSK: ,% Hq)% :X% :"R",,"POINDEX/INX", : , AS PNX${% ,: (PNX$)()  % :BAD:ݣ&(A$,,)((A$)):(A$,,)(((A$,))):(A$,,)(((A$,)))& (A$,,)"a" (A$,,)"p" (A$,,)(A$,,)+&A$(A$,)1&`& :"R",,"POINDEX/INX", : , AS PNX$& ,:NPT(PNX$):(PNX$,,)(NPT): ,&A$: &:B$A$:A$: && PNX$(PO%)()A$B$(LRI)()A$()(,)& ,NPT & :d' :"R",,"POINDEX/INX", : , AS PNX$: ,NPT:(PNX$, ,)(LRI): ,NPT: :x':READ IN FILE'"R",,FL$, $' , AS PX$.'K1()ǥ8' ,:PO%((PX$,))ͥB'ӥ*+ N KX: QR(N)QW(N) MC(N) +C+ MC(N) ,SIN:(PX$,,)D$(N): ,SIN: ++MCMC(N):WN$WN$(N): MC(N) `m: 0u : FOUND0+ FOUND NNWO(QR(N)QW(N)): BACKO QW(N)QR(N) ,SIN:(PX$,,)(((PX$,,))(QR(N)QW(N))): \+: ,SIN : NN WO$(W2)(NN): ,W1: Hq + FOUND MC(N) @(,),"Part ";WN$;" not found. ";ħ+ ,SIN:XX$PX$:(XX$,,)(QW(N)): PX$XX$: ,SINҧ+ Hq: Nا4+\+ ((PX$,,)) (PX$,,)() f+".:WRITE OUT FILE4. ,:XX$PX$H. PX$XX$: ,d.LRI(): : @:{2:MAKE TXFILE/DAT2ZS: : ZA : (#2ZS: : ZA :DG: 22ZS:ZC: :ZC: ZA 22A: %52 SU (ST$)/ (ST$)[ TYP$ST$: "PTRAN/BAS"m2 :"O",,"TXFILE/DAT":"R",,FL$, : , AS PX$2 (PH$,)"T" (PH$,)"P" PH$"T"PH$2#,PH$2CT:PG̩3PGT() 3 PGT(PGT) PG1(PGT) : PG1(PGT)H.3 TXF$ "\ \ \ \ ##,###"Z@3 K ()mA3 CT :E3 K (K ) QC QC:@(,M),"**"; : QC:@(,M),"*";();:#," PURCHASE ORDER #";C$(PO%):#," "P:#,(@,"-"):#,"MFG NUMBER QUANTITY":#,(@,"-")::PG:CT&;#,"------------------ *** PURCHASE ORDER *** ---------------------" ;#,"":#,""u; ,:PO%((PX$,)):#,"PURCHASE ORDER ##### PAGE ## OF ##";PO%,PG,PG1$;#,"":#,(@,"-"):#,"".;#,"PLEASE SHIP TO:":#,""ӱ8; KI :#,SI$(KI):B;#,"Special Instr: ";M$"L;#," "V; :'`; QCT  :#," ": Q:j;#, (@,"-")t;#," TRANSMISSION BY ";();(!);(/);"POSITRAK MP";();(!);(*)ò~;#,( ):ղ>:faxable PO>PG:@(,/),"Purchase Order Number: ";: i: ZA Z>HH$"FROM : ":H1$"MAN. PART NUMBER QTY. ORDERED":H2$(!,"-")ѳ>ZS: : ZA : : : ()(T);: hB:TQO:TP:TT#:TC:TL$"##### ":TLC$"$$##,###.## ">: 0:K$"Print Report": ::@(,!),"Printing PO# ";PO%? (#:"R",,FL$, : , AS TY$, AS LC$, AS PN$, AS QO$, AS DUM$, AS UMCC$, AS TPQ$, AS TT$, AS CC$?PL$"\ \ \ \ #####"ߴ ? I (): ,I: (TY$) : >??UI$PN$: :WN$UO$:XW(QO$): XW >?=?WU%(TPQ$):T$UMCC$:F%:MC%(LC$)? CNVRT WU% T$"B" QW(XWWU%): WU%QWXW QWXW : : QWXW : QWXW ?MC$(): SVC(F%,MC%,MC$):MC$(MC$,): MC$OMC$ OMC$"" :LCLCF%? PL$;MC$,WN$,QW:OMC$MC$:LCLC:TQOTQOQW:TPTP:TT#TT#(TT$)QW:TCTC(CC$)QWm*? LC8 JLC A:: J: hB>? I::LCLC:"TOTALS: Parts "; TL$;TP;:"Units "; TL$;TQO;:"Part Cost" TLC$;TT#;: "Core Cost"; TLC$;TC;: ()(I);: ILC A:: IKH?: :@(,4),();: :: completing Faxable PO printhB"PRINTER (COLS=115)": PG ST$(() : ST$SI$()((((SI$())))BPGPG:G1$ST$( )"Purchase Order # ": G1$; "#####";PO%;: ()( )"Page # " "###";PG-B:: PG \D::LC : LCFB"printer (cols=80)"XB H1$: H2$:`\D:ĸfDHL$"\ \ \ \"HD HH$; (HL$,,();SI$();: ();"TO : ";N$:HH$(): HH$; HL$;SI$(),A1$: HH$; HL$;SI$(),A2$: HH$; HL$;SI$(),P$;qD ( );"Supplier # "; "##";(S$)wDaMC$"":WN$"":QW:KV:ZC: xiaZS :ZQ: : ZA a `m: 0u:WHWHQW: WH  WH aWOWOQW:(T1$,xW2P,)(WH): WO  WOHa WH (T1$,xW2,,)(JU)}a(T1$,xW2(,)(WO): DB$T1$: ,W1: HqaKV:WN$"":QW: aӺxi"R",,"ITEM/DAT", : , AS A$: ,:JU(A$): :`mF%: SVC(F%):HqF%: SVC(F%):0u:XuPI$WN$: Є"buRNHI%-du ,RN?/"(")"abcdefghijklmnopqrstuvwxyz-. 0123456789-+":XSET$( )( )( )()()()()()()()()""~ C$(X)((X),):K1$():K2$():K3$():K4$():KP$"_"2ˆ ();:KL:KZ:ZC8’KW:O%KP:KC:FX%@: KF FX%FX%%:KIKI: (K$)KM VAR$K$:  : @KA,K$(KM(K$),KP$);: : FX%FX%&œVAR$K$(KM(K$),"_")°R%(KAP):C%KAR%Põ SVC(FX%,VAR$,R%,C%,KS$,XSET$,O%)Dü KF : A$(XSET$,R%,):K$VAR$ÿ R% ,,(,Z,,,,",T,,,,KIKI:KP: KI KIKI:KP: : KZ KI': : (KIKI:KP: KIKX KZ : KIKI:KW: : KZKIKIKL: KIKX KZ : KIKIKL:KW: : ČKIKIKL: KI  KZ KI': : KIKIKL:  : ľ ZQ ZA:KI': :  KC KIW:KP:HT : KCKC: "KI':KP: TKW:KI:KF:,ņ KV KH:KI': : ?ŸKIKI:KP:PKIKX:KP:u0@,"POSITRAK";:@P,(P,);: :@,();:@(((K$)),K$;(((K$))," ");:TM$((( ) )):(TM$,,)"W":@A,TM$;:@E," ";;" ";:@(,),(9);:w$ ER ();:@2,(((L(ZM$)))," ")ZM$(((L(ZM$)))," ");:ER: : @0,();::2/08/87 MENU ROUTINE SE% FF%SE%:SE%:KN$"_123456789":KJ:FG%:FF%:KURPC:K$"_":KA(RN)PC :KJ$"" J NEKU(RJ)PC:@KU,(KN$,J,);". ";K$(J);K4$;i (K$(J)) KJ KJ(K$(J))o KU(RN)PC:@KU,"Selection :";XR:YC:WKJ:HN: :XRN:YC:W:H: @KA,K$;K1$;:@KA,"";5K$: K$""  : K2$;:FI%FF%: (K$)  FF%(K$)m 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%)))y- (K$() ZQ) ZA:@(,),"Option Canceled ! ";: : (K$( )) (K$()) L9 L9: 2K$C$(FF%):FG%FF%:KU(RFF%)PC:@KU,K3$;K$;". ";K$(FF%);KJ$;K4$;7L9: ZA: ZC @,(); ZM$"" @(,),(N, );J ZM$"" @(,(((ZM$))),ZM$;:ZM$""" ZS ,,,d,,X,,,, ,,,,, ,p,,8,| CT :@(CT,)),();: CTʆ@(,+),"Print Posting report: (Y/N)";ːKX:KF:TP:ZE:KO$KS$:KS$"_YN"-˚ KI KXkˤKM:K$"":KA P<: : K$"Y" PRRP : PRRPˮ KI: KF KF: ˸KS$KO$: 0:K$"Create Order": : ZC  K$()"Generate Order":K$()"Create Special Order":K$()"Return to PO Menu"9*ZA:ZQ:N:R:C-: ?4p CT :@(CT,,),(, );: CT:@(,/),"Backorder changes: (Y/N)";:ZA:KX:KF:TP:ZE:KO$KS$:KS$"_YN"z KI KX̄KM:KA P<:K$BKRD$: : ZA BKRD$K$͎ KI: KF KF: z?͓ BKRD$"Y" BACKO : BACKOM͘KS$KO$:o 0:K$"Print report": : ZC K$()"Print Purchase Order":K$()"Print P.O. Directory":K$()"Clean up Directory":K$()"Print Quick P.O.":K$()"Return to P.O. Menu"0ZA:ZQ:N:R:C-: 68 CT :@(CT,)),(#, );: CT:@(,/),"Primary line:";:ZA:KX:KF:TP:ZEB KI KXLKM:KAP@:K$JJJ$: : ZA JJJ$K$V KI: KF KF: B`! 0:K$"Purchase Order System": :2 ZC  K$()"Create Order":K$()"Edit Order":K$()"Transmit Order":K$()"Cancel Order":K$()"Post Order" K$()"Post/Receive Backorders":K$()"Print Reports":K$()"Edit Suppliers":K$()"Return to Master Menu".ZA:ZQ:N:R:C-: ;(OPFF%:d@(RFF%,C),();:K$"Purchase Order System": 0: :: CT :@(CT,)),();: CT :@(,/),"Purchase Order Number: ";: DG :DGe@(,-),"Purchase Order Number: ";/i "r",,"POINDEX/INX", : , AS PDB$GnKX:KF:TP:ZEVx KI ~тKM: PO% K$"" : K$C$(PO%)ьKO$KS$:KS$"_ 0123456789":KAP<: :PO%(K$):KS$KO$ Җ KI: KF KF: x : ZA J :@(J,(),();:: :GҠGOOD: ,:NR(PDB$):: J NR: ,J:X(PDB$)ҥ XPO% PO% (()(),(PDB$,,)) GOOD:J()Ҫ: GOOD @(,2),"Bad PO Number";();: nү ҹ ZA ZCҾKS$KO$::C@,K3$;"INDEX LINE PART NUMBER QTY ORDERED NEW QTY ORD ";K4$T LSS KX MC(LSS) "##### ";LSSSI;: D$(LSS): MCMC(LSS): MC FM$;LSSSI,WN$(LSS),QR(LSS),C$(QW(LSS))(,_) : @: FM$;LSSSI,MC$" "WN$(LSS),QR(LSS),C$(QW(LSS))(,_)d LSS:@(,<),"( for Menu)";:@(,9),"( Next Page)";KS$"_ 0123456789":KM:TP:ZE:KL:KF:ZA:ZQ:KV KI KX ZF ZFKX ZF : KIZF:ZFsKKIKI:@(KI,7),();:@(KI,),();: MC(KI) 4! : :KAKIP:LSSKI:K$C$(QW(LSS)): :QW(LSS)(K$):@(KKI,),(); A$( ) A$( ) A$() KIKI A$"" A$( )" KI:KV,KS$KO$6ՐSI֚K$"EDIT PURCHASE ORDER "C$(PO%)֛ :/֤:ON ERROR GOTO 0A֮ SI SImָ SIK1 K1 SISI:ZFKX:  SIK1 KXK1SI : KX KJKX KJKX2 LSS KX: ,SILSS:MC(LSS)((PX$,,)):UI$(PX$,, ): :WN$(LSS)UO$:QR(LSS)((PX$,,)):QW(LSS)((PX$,,))n (PX$,,)() MC(LSS):D$(LSS)(PX$,,)x LSSKZ:ZS: :KZ + A$( ) SISI:KJ:  A$( ) SISI:KJ:  A$( ) SISI:KJ: fX X:: () L:X1:Y1:X2:Y2(: :Y1Y1(:Y2Y2(: r]X:Yb Q (): ,Q: () @(X,Y),"## \ \ \ \";Q,N$,P$; : @(X,Y),"## \ \ \ \";Q,N$,P$;7eXX: X X:YY({g Q:@(,),"Which Warehouse would you like to transmit to:";lKX:KF:TP:ZE:KS$"_1234567890 "v KI ـKM:KAPA: SU K$"" : K$C$(SU)ي :SU(K$)ڔ KI: KF KF: v : (SU SU()) ZA ZA ER:ZM$"** Invalid Supplier **": $:ZM$"": v : vڙ ZA ,SU:ST$WT$:PH$PM$:  : ڞZE:KS$KO$:ڼ:@(,),"Special Instructions: "; KX:KF:TP:ZE KI @KAP:KM::K$M$: :M$K$[ KI: KF KF: iKS$KO$: K$"MANUAL ADD TO PURCHASE ORDER": :$*@(,),"Manufacturer: ";:@(,),"Part number:";:@(,),"No. to order:";:@(,),"Press or to return to the edit screen";X4KX:KL:KF:TP:ZE:MC:WN$"":ZQ:ZAd9KO$KS$t> KI KX1C KI KAP!:KM:K$MC$: :MC$K$: KF ZA : : FO ZC:MC:ZS:ZM$"Manufacturer code not normally supported"():  : ZM$(2):ZC:ZS: cH KI KAP!:K$WN$: p: :WN$K$R KI KAP!:KM:K$C$(QW): :QW(K$)\ KI: KF KF: >a MC WN$(MC$" ",,)(WN$(),,)fKS$KO$:5p KF FO K$(K$,):KM:@KA,(); : KMeu FO KF KF: :KF:KI: : ބFOUND:K$"Post/Receive Backorders": :ގ@(,),"Manufacturer :";:@(,),"Part Number :";:@( ,),"Quantity :";8ߓ@(, ),"Adds the quantity to on hand, and subtracts it from on order";\ߘKX:KL:KF:TP:ZQ:ZAkߢ KI ߬ KF KV KIKV:KV KI KM:KA:K$MC$: :MC$K$: : KF ZA FO KI:ZM$"INVALID MANUFACTURER CODE":ER: $:  : ZM$"": $ KI KM:KA:K$WN$: :WN$K$: KF ZA 0u: FOUND KI:ZM$"PART NOT FOUND":ER: $:  : ZM$"": $N KI KM:KAC:K$C$(QW):KO$KS$:KS$"_-0123456789 ": :QW(K$):KS$KO$: KF ((WOQW) ) ER:ZM$"On Order Should not be Below Zero": $ KI KF @,"New Quantity on Hand = ";WHQW:@t,"New Quantity on Order = ";WOQW;:KI:@(,),"PRESS TO ACCEPT, PRESS TO CANCEL"; KI: KF KF: ( FOUND ZA  : ["Saving POSYSTEM/BAS":"POSYSTEM/BAS": ,:e LX1:Y1 :X2:Y2C: :X:Y: bK$()"Go to a part":K$()"Add to Order":K$()"Return to PO Menu"@(,9),();:R:C6:N:ZA:ZQ: OPFF%:2:BOX GET INDEX@(,2),"Index to edit:";:KX:KL:KF:KS$"_ 0123456789":KA:KM KI K$C$(II): :II(K$): KI: KF KF:  KS$KO$: