i:27.00 OINVOICE/SPC FOR POW 6/29/05 BANK VERSION 3070~ F!,RF%,SN%,MZ%SC$" >y":K(SC$):ADR!(K)(K) SVC,:B%:F% :VR$():O% N: SVC(F%,B%,O%,VR$): (VR$) SN% : SN% VR$(d)/ AL$(),AL()D `:V1$()N ( MO(X#)X#((X#(TSIZEm))(TSIZEm))n* RL(X)(((X)d\(X))d)2TOSm:BOSlׅ< OF(Y%)((Y%))Z F! ,, ,,,,@,_: "ALTPOS/BAS"> 0u: ZA :F!: "ALTPOS/BAS"H 9fNP%((KY$,p,)):Y% NP%  Y% OIņ ,NP%: :IS$"O":QO%IQ%: 8:Y%Y%:NP%((KY$,p,))ˆ*::F!:"ALTPOS/BAS" :SAVING INVOICE 4::XF%RF%: RF% `m: ,:RF%(TA$): TA$(RF%): ,: ,d: Hq: RF%  `m: TA$(): ,: ,d: Hq : :  A$"CPRINT REF P=OK T=PRE SC=0 I="((RF%),)" MN="(")CI$(")" "() L(A$):(VR$,,L)A$A B%:O%&:F%: SVC(F%,B%,O%,VR$):A$"CPRINT @@9901"j :LPRINT A$;"LEN=";LEN(A$):PRINT A$ K(SC$):ADR!(K)(K): ADR!(A$):2 @(,),"Saving Invoice ... ";();: `m: y: Hq: DUP XF% ER:FM$"Reference Number Already Exists": $: J  ::   DUP `m: ,HI:CI$(KY$,0,):CN%((KY$,K,)): 8|: ,HI: Hq } :ADD PARTS TO FILE Hq: FULL ȯ : @(,),"Invoice ";RF%;" Saved ...";(); (FOUND: F! 4:: $w : 0u: ZA ׊ RF% N : @(,),();:@(,),"Removing Open Invoice From File ....";: `m:NP%((KY$,p,)):Y%:DP: : ,: Hq :delete head record from file NP% Y% OI3 `m: ,NP%:HINP%: l9: (F! IS$"D") RF% N eNP%((KY$,p,)):DP: :DP:Y%Y%u ,: Hq{ Hq::F!:"ALTPOS/BAS":PUT BACK IN STOCK FOR CANCELҋ : COM IQ%((KY$,R,))S W1 (ID$,"DEFECT REF") (ID$,"\BUY") ,W1: WH$(W2)((WH$(W2))IQ%): ,W1 : TT%(WN$(W2))IQ%: ,W1: WN$(W2)(TT%): ,W1 @:PRINT HEADING FOR DISPLAY INDEX?ERP:CP::@,"CUSTOMER NAME REF. # CUSTOMER NAME REF. #";: (&,);" ";(&,);:(#@(,),"(Press to Continue or to Enter Reference #)";-#A$: A$"" -# : (A$) ZA2#Ս8(VR$,,d)(d)J8(VR$,B,)IS$:(VR$,L,)(NP%): COM (VR$,N,)"C":(VR$,,7)WN$: 8 : DS (VR$,N,)"D"鎩8(VR$,,)IM$:(VR$,,)IP$:(VR$,,)ID$:(VR$,%,)(IQ%):(VR$,',)(WW!):(VR$,+,)(WL!):(VR$,/,)(K!):(VR$,3,)(WC!)d8(VR$,7,)(IT%):(VR$,9,)(W1):(VR$,;,)(W2):(VR$,C,)(MC):(VR$,O,)WX$:(VR$,R,)(QO%)8B%:O%Y%dSN%'8F%: SVC(F%,B%,O%,VR$):Տl9B%:O%Y%dSN%':F% : SVC(F%,B%,O%,VR$)Kv9IS$(VR$,B,):IS$"N":NP%((VR$,L,)): (VR$,N,)"C" COM: : (VR$,N,)"D" DS : DS{9COM:IM$(VR$,,):IP$(VR$,,):ID$(VR$,,):IQ%((VR$,%,))m9WW!((VR$,',)):WL!((VR$,+,)):K!((VR$,/,)):WC!((VR$,3,)):IT%((VR$,7,)):W1((VR$,9,)):W2((VR$,;,)):MC((VR$,C,)):WX$(VR$,O,):QO%((VR$,R,)):9B%:O%SN%':(VR$,,d)(d)X9(VR$,,)"OE":(VR$,,)(RF%):(VR$,,)CI$:(VR$, ,)(CN%):(VR$,", )CS$:(VR$,7,)YN$:(VR$,8,)IN$:(VR$,V,)(OI):(VR$,X,)(TX):(VR$,\,)(SM%)9(VR$,6,)(HC%):(VR$,.,)(RT)̒9(VR$,],)(PT):(VR$,a,)(PN):F%: SVC(F%,B%,O%,VR$):4:B%:O%SN%':F% : SVC(F%,B%,O%,VR$)>:TP$(VR$,,):RF%((VR$,,)):CI$(VR$,,):CN%((VR$, ,)):CS$(VR$,", ):YN$(VR$,7,):IN$(VR$,8,):OI((VR$,V,)):TX((VR$,X,)):SM%((VR$,\,))C:HC%((VR$,6,)):RT((VR$,.,))H:PT((VR$,],)):PN((VR$,a,))7O::LPRINT CI$;"FROM OINVOICE">R: Pe:unlock allfeF%: SVC(F%):zg RF% RF%gF%: SVC(F%,RF%):h:lock ref#ŔhX%RF%:F%: SVC(F%,X%):ڔ`mF%: SVC(F%):HqF%: SVC(F%):30u:-------------------------CHANGE/INQUIRE CUSTOMER -----------?5uFOUNDzuINQ:ZS:ZC: : F2 @: u : ZA u $w :LOOK UP CUSTOMERu FOUND h: X% FM$"INVOICE IS CURRENTLY IN USE":ER: $: J  :: uOu FOUND Px : FM$"THIS INVOICE NOT IN DATABASE":ER: $: J X:: uUu$w:-------------------------LOOK UP CUSTOMER ------------------)wFOUND.w Є:HAHI: ,HI: (RF$)RF% FOUND : X: J :AL(J)(AL$(J)):8w FOUND XWBwXX:ALTAL(X): ALT ,ALT: (RF$)RF% FOUND:HIALT_Lw:Px:-------------------------UPACK BO BUFFER-------------------ZxSTATUS$RS$nxCI$(KY$,0,):CN%((KY$,K,)):CS$(KY$,M, ):YN$(KY$,Z,):IN$(KY$,[,):OI((KY$,o,)):PT((KY$,t,)):PN((KY$,x,)):HC%((KY$,Y,)):SM%((KY$,},)):RT((KY$,M,))xxӘy:--------------------------ADD INVOICE--------------------y Є:HAHI :GET HASH yDUP:FOUND:ER:FULLy ,HI:6y RF%(RF$) DUP:y J :AL(J)(AL$(J)):: J :ALTAL(J): ALT  ,ALT: RF%(RF$) DUP:ER:Jz: DUP HIALT:z ,HI: RS$"U"  {: FULL : ,HI: 8|: ,HI: &z3z p{: FULL : ,NI: 8|: ,NI: ,HIhz J : (AL$(J)) AL$(J)(NI):Jz: ,HI: ,HI:HINI&z (Dzך {:-------------------------DELETE NODE FROM SPACE LIST-------A{BLINK(BL$):FLINK(FL$): ,BLINK: FL$(FLINK): ,BLINK: ,FLINK: BL$(BLINK): ,FLINK:p{:-------------------------GET NODE FROM SPACE LIST---------u{FULL: ,TOS:NI(BL$): NIBOS FULL:FM$"Database Full":ER: $: : ,NI:  {: ,NI:28|:-------------------------PACK BO BUFFER--------------------@=| RS$"H"B|(KY$,,)"H":(KY$,.,)(RF%):(KY$,0,)CI$:(KY$,K,)(CN%):(KY$,M, )CS$:(KY$,Z,)YN$:(KY$,[,)IN$:(KY$,o,)(OI):(KY$,t,)(PT):(KY$,x,)(PN)CG|(KY$,Y,)(HC%):(KY$,},)(SM%):(KY$,M,)(RT)c| BL$(): FL$():|IN%:CI$( ):WK%:I:}:------------ADD LINE ITEMS TO FILE-------------------՝} ,HI:FPTRHI }LPTRHI:FIRST:CT:TADJ!:NTADJ!:RTADJ! } Y% OI| }COM: l9: `m: IS$"D" NP% COM d}: P} : P} :DELETE PART FROM LISTʞ}CTCT: IS$"N" : LPTRNP%: IQ%QO% COM }: P} : P}} p{: FULL : QO%IQ%:  : ,NI)(} ,LPTR:(KY$,p,)(NI): ,LPTR:LPTRNI-} W1  COM RF% N (ID$,"DEFECT REF") (ID$,"\BUY") ,W1:WH(WH$(W2)): IQ%WH MZ% WH IQ%WH : IQ% : : P}.} WH$(W2)(WHIQ%): ,NI:(KY$,R,)(IQ%): ,NI3/} IQ% RF% N WN$(W2)((WN$(W2))IQ%)w0} QO% IQ% DIF%QO%IQ%: WM$(W2)((WM$(W2))DIF%): 1} ,W1P} ,: Hq:R} `mU} ,FPTR:(KY$,|,)():(KY$,o,)(CT):(KY$,r,)(LPTR)oV}(KY$,t,)(((KY$,t,))TADJ!):(KY$,x,)(((KY$,x,))NTADJ!):(KY$,M,)(((KY$,M,))RTADJ!): ,FPTRW} ,: HqZ}ˡd}:---------DELETE ITEM FROM OPEN ITEM LIST RETURN TO STACK -----Bi} ,NP%:IQ%((KY$,R,)):NPTR((KY$,p,)): ,LPTR:(KY$,p,)(NPTR): ,LPTR:HINP%:DP: :DPl} W1  ,W1: WH$(W2)((WH$(W2))IQ%): ,W1 : m}TT%(WN$(W2))IQ%: ,W1: WN$(W2)(TT%): ,W1 n}ۢ}:CHANGE QTY IF DIF.} ,NP%:(KY$,R,)(IQ%): ,NP%:} W1  : U}DIFQO%IQ%: ,W1: WH$(W2)((WH$(W2))DIF): ,W1[} :--------------------- PACK PART RECORD ----------------------------ϣ" RS$"P": BL$(): FL$()]#(KY$,o,)IS$:(KY$,p,)():(KY$,r,)(RF%): COM (KY$,.,7)(VR$,,7):(KY$,t,)"C": : DS (KY$,t,)"D"%(KY$,.,)IM$:(KY$,2,)IP$:(KY$,B,)ID$:(KY$,R,)(IQ%):(KY$,T,)(WW!):(KY$,X,)(WL!):(KY$,\,)(K!)e*(KY$,`,)(WC!):(KY$,d,)(IT%):(KY$,f,)(W1):(KY$,h,)(W2):(KY$,v,)WX$:(KY$,y,)(QO%)>(KY$,u,)(MC):إDS: (KY$,t,)"C" COM:WN$(KY$,.,7): : (KY$,t,)"D" DS COM:IM$(KY$,.,):IP$(KY$,2,):ID$(KY$,B,):IQ%((KY$,R,)):WW!((KY$,T,)):WL!((KY$,X,)):K!((KY$,\,)):WC!((KY$,`,)) IT%((KY$,d,)):W1((KY$,f,)):W2((KY$,h,)):IS$(KY$,o,):MC((KY$,u,)):WX$(KY$,v,):QO%((KY$,y,))U:----------------------DELETE INVOICE HEADER OR PART --------h:GOSUB 30500NIHI:  :ADD NODE TO SPACE STACK DP Χ ,HI: : ,HI :CLEAR RECORD$ DP (HA HI) ,HA: L: ,HAG9L J : (AL$(J))HI AL$(J)():JAQ::------------------------ADD NODE TO STACK----------------- ,TOS:BLINK(BL$): BL$(NI): ,TOSר ,BLINK: FL$(NI): ,BLINK ,NI: FL$(TOS): BL$(BLINK): ,NI ā": CLEAR BUFFERE RS$"U":(KY$,.)(S,):QЄ:hash_HI#RF%oHIMO(HI#)u :OPEN BO FILES "R",,"BOFILE/DAT", , AS KY$ , AS RS$, AS FL$, AS BL$,( AS AL$, AS RF$, AS CN$- J : ,((J)) AS DUM$, AS AL$(J):=TSIZE()U쐿"R",,"INV120/DAT"g , AS LB$u I Y ,IxASDUM$,ASWV$(I), ASWP$(I), ASWD$(I),ASDUM$, AS WC$(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) ,Ix[ASDUM$,ASWM$(I),ASDUM$,ASWH$(I),ASWN$(I),ASWY$(I),ASWQ$(I),ASWT$(I),ASWL$(I),ASWA$(I),ASWK$(I),ASWB$(I),ASWE$(I) IP "R",,"ITEM/DAT", : , AS TA$Z,pSR:FOUNDDzCR((ERSR)SR)PTR((V1$,OF(CR),)): PTR ,PTR : CRCR:  CRER CRER CI$CN$ SR$CN$:SRCR: z : CI$CN$ ER$CN$:ERCR: z : FOUND :%@:---------DISPLAY INDEX ----------------bBYD@:ALL:FZ$"\ \ #####"EZS:ZC: : ZA G @H IK$ " " ALL ALL:YDYD:IK$(YD)ҭJIK((IK$)A)T ,IK:TK(KY$):(V1$,,)KY$^ J TK9hPTR((V1$,OF(J),)): PTR  ,PTRr IK$(CN$,(IK$)) @(RP,CP),"";: FZ$;CN$,(RF$);:RPRP : (CN$,(IK$))IK$ JTKw RP CP CPCP*:RP: : (#: ZA : @| ALL YD Z H (#: ZA A ,IK: (KY$) IKIK: TRlIK$"": @(:--------------------------ADD INVOICE TO INDEX -------------2IK((CI$)A): IK  IK e FM$"Invalid Customer Name":ER: $:A< ,IK:(V1$,,)KY$:SR:TOT(KY$):ERTOT:CR$"": TOT = IKIK: <> TOT ,((V1$,OF(),)):SR$CN$: ,((V1$,OF(TOT),)):ER$CN$: p : IP: ZF FOUND IPCR : CI$ER$ IPER: CI$CN$ IPCR: CI$SR$ IPSR : : : IPER6Z ,IK:XOF(IP):(KY$,X)(KY$,X,X):nd(KY$,OF(IP))(HI):(KY$,,)(TOT): ,IKt栎:---------------------------DELETE FROM INDEX ----------------FD: ,HI:CI$CN$:IK((CI$)A):IRIK: IK  IKe $ ,IK:(V1$,,)KY$:SR:TOT(KY$):ERTOT:CR$"": TOT ,IK: ,((V1$,OF(),)):SR$CN$: ,((V1$,OF(TOT),)):ER$CN$: p : SR. SR TOT FD[8 ,((V1$,OF(SR),)): CN$CI$ RF%(RF$) XOF(SR):(V1$,X)(V1$,X,X):(V1$,,)(TOT):(V1$,OF(TOT),)(): KY$V1$: ,IK:FDBSRSR:: FD IKIR IKIK: $ : ȯ:FULL OPEN INVOICE HANDLERͳʯ: "E",,"OVERFLOW/DAT"ͯ#,"DATE OF OVERFLOW = ";;" ";ϯ#,"CUSTOMER NAME = ";CI$7Я#,"REFERENCE # = ";RF%:#," "Gү Y% OIXܯCOM: l9:l毋 IS$"D" ڴ COM #,"PART = ";IM$;" ";IP$;" ";ID$;" QTY= ";IQ%;" PRICE = ";K! : #,"COMMENT = ";(VR$,,7)ഐ# ," "󴚰: "LIST OVERFLOW/DAT @PR"T "REFERENCE # ";RF%;" DID NOT SAVE COMPLETELY BECAUSE YOUR" "OPEN INVOICE FILE BECAME FULL. YOU SHOULD CALL CUSTOMER SUPPORT"㵮 "TO EXPAND YOUR OPEN INVOICE FILE. A COPY OF THE INVOICE YOU " "WERE SAVING PRINTED ON YOUR INVOICE PRINTER!"'° (d,);M̰:: "PRESS TO CONTINUE"ְA$: A$"" ְ : (A$) : ְPA(RL(DIF%WC!)RL(DIF%K!))ܶϋ IT% TADJ!TADJ!PA : NTADJ!NTADJ!PARTADJ!RTADJ!RL(DIF%WC!)ώ+֑@(X,Y),()(W,())();Sւ J  H :@(XJ,YW),();:~֑@(XH,Y),()(W,())();ւ J  H :@(XJ,Y),();:֎x: 4:˷ TP;CI$;CN%;CS$ "TAX TYPE = ";YN$;" NOTE : ";IN$;" TOT ITEMS ";OI;" SALESMAN ";SM%* F% OI4 l9^ IM$;" ";IP$;" ";ID$;IQ%;IP!;IC!;IT%f:z`:2/7/87 10.057jKS$"_ABCDEFGHIJKLMNOPQRSTUVWXYZ,!#$%&'()*=-:<>?/"(")"abcdefghijklmnopqrstuvwxyz-. 0123456789-+":XSET$( )( )( )()()()()()()()()X~ C$(X)((X),):KP$"_"v ();:KL:KZ:ZC|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%Pg SVC (FX%,VAR$,R%,C%,KS$,XSET$,O%) KF : A$(XSET$,R%,):K$VAR$̺ R% ,,(,Z,,,,",T,,,ҺKIKI:KP: KI KIKI:KP: : KZ KI': : Y(KIKI:KP: KIKX KZ : KIKI:KW: : ZKIKIKL: KIKX KZ : KIKIKL:KW: : ׻KIKIKL: KI  KZ KI': : KIKIKL:  : ZQ ZA:KI': :  F2:KIW:"KI':KP:5TKW:KI:KF:X KV KH:KI': : kKIKI:KP:0@,"POSITRAK";:@P,(P,);:Ѽ:@,((((K$)))," ")K$((((K$)))," ");:?$ ER ();:@2,(((L(FM$)))," ")FM$(((L(FM$)))," ");:ER: : @0,();:L ZC g" ZS |,,, m,|@(,),"Reference Number : ";KF:ZQ:ZA:KX KI  KI KA:KO$KS$:KS$"_0123456789 ":KM:ZE:K$C$(RF%): :XF!(K$):KS$KO$: KF KF:  : XF!  RF%:FM$"Reference Number Must be Less than 32767":ER: $:  : RF%XF!:FM$"":ER: $@(,),"Customer Name : ";:@(,),"Enter Name Required for Future Reference";!KF:ZQ:ZA:KX0 KI f KI KA:KM:ZE:K$CI$: : CI$K$~: KF KF: ο (CI$,"CASH CUSTOMER") ER:FM$"Must Enter Customer Name": $: @ (CI$) A (CI$) Z FM$"Customer Name Must Begin with a Capital Letter Only !":ER: $: W!FM$" ":ER: $]&sFM$"":ER: $@,();:@(,),"Reference Number : ";:@(,),"(Press to Display Index)"; ZQ:F2:KF:KX:ZA:KM:KO$KS$:KS$K5$:K$"" KI J KI KAm:K$C$(RF%): :RF%(K$)}: KF KF:  : KIW ZA F2 ZA F2 : RF% FM$"Reference # must be non-zero":ER: $:  : FM$"": $KS$KO$: :GET INDEX TYPEp@(,),();:@(,),"Enter Index (A-Z) : ";:@(,),"(Press to Enter Reference Number)";: KF:ZQ:ZA:KX:% KI * KI KAm:KM:ZE:K$IK$: :IK$K$:ZE4: KF KF: % ,> IK$"" IK$" ": : IK$ "A" IK$"Z" : ]"SAVING OINVOICE/SPC":"OINVOICE/SPC": :