S:AR/SPC 7/8/05 FOR ROA FROM POWu S: MZ%,DP!,CN%,AP#,DT!,Q1% AP: RZ: E:SVC, N(),PL(),LD(),LP(),BR%(),ER%() E$(X$)(X$,(X$,())) RD!(E)(((E)d\(E))d)H Q1% @,"Please wait ...";:Q1$"POSITRAK/BAS"c C$(X!)((X!),) MO( ): K  : MO(K): Z$(X,Y)((Y,"0")((X),),Y)Dž2 `:KO$KS$: 1PF5$"$$##,###.##":F6$"### ##,###.## ##,###.## ##,###.## $$###,###.## \ \"sRB1$"Total Balance 0-30 31-60 61+"TB2$" $$###,###.## $$###,###.## $$###,###.## $$###,###.##"ֆZ Q1$"POSITRAK/BAS" CX_ Q1% lkb Q9 Q9: '-dM:ZS:ZC: : ZA "MASTER/BAS"LiFIRST:LCB:PG%:TC#zn M ',xi,Hq,a,,,,,x d Hq: d:"MASTER/BAS":"AREDIT/BAS"Ї:"ARPOST/BAS":"ARMASTER/BAS":"ARSALES/BAS"('ZA:ZS:ZC:ZQ: : ZA dR' M *,.,2,6,:,,3,3,d\$' 'd*:* @: RN () : ,RN: (RD$)+ : CN(RN)* RN () (:FM$K3$"Must Call POSITRAK to expand! "K4$:ER: $: ' : CN(RN)G*(RD$,,)"+": FUT$()(): ,RN: (+DR$(,"_")"NN"(>,"_")((,)(,)(,d)()(d)(,)"YYY"(',)"MN "(,)(,):DR2$():(DR2$,l,)(,):ADD:  v:ADDK+K$"Add Accounts":ZS:ZU:ZQ: : ZA (RD$,,)" ": ,RN: ,RN: 'U + yo+ RD$DR2$: ,(CN)+ RD$DR$: FUT$()()+ ,(CN): ,():DR$RD$:(DR$,,)(,):(DR$,,)" ": RD$DR$: ,()::  + * .:r.M:ZA:ZQ:ZS:ZC: : ZA ' : CN . : : VOID . : DR$RD$: u.K$"Delete Account":ZS:ZD: :ZD".@(,)," ";: (BS#) #z "This customer has a zero balance !"; : "This customer has a non-zero balance ! "();M.ZS:ZU:ZQ:ZC: : ZA .d. MD$"Y" .Ҍ/(DR$,,)"-": RD$DR$: ,(CN): ,():DR$RD$:(DR$,,)" ": RD$DR$: ,():: w / P:V$():@(,),"Deleting any existing transactions ....";();: ,:NR(TX$): J NR: ,J: CN(TX$) F$TX$:(F$,,)V$: TX$F$: ,J}// : .2:2M:ZA:ZS:ZC: : ZA '͍2 CN 22 : VOID 22 u22K$"Change Account Information":ZS:ZQ: : ZA 2~2 y: RD$DR$: FUT$FUT1$: ,(CN): RD$DR2$: ,(CN):: 2 2,3Q10: Q10::"PRNTDISC/BAS"Ҏ3@(,),();: 3: ZA '3: UC$:"PRNTDISC/BAS"3KF:ZE:KXJ3 @( , ),"Include only accounts that match the following code : "4 @( , ),"If a code is not entered all accounts will be printed"4 KI KXΏ4 KI KAb:K$" ":KM: :UC$K$4: KF KF: 4&46:36M:ZS:ZC: : ZA ' : : VOID 6 6 CN() ZC: 6 : CN CN: 6: ,(CN): (RD$)+ CNCN: 6:: DR$RD$: u6 ZC ZS : ZS 6K$"Inquire Accounts":ZD: :ZDD6ZC:@(,),"<< Use up or down arrow to view other accounts>>";:M$"": I 2:L6:s6M$: M$"" 6 : @,();6 M$( ) CNCN: 66 M$( ) CNCN: 66ZCǑ6 6ؑ:"ARLIST/BASP K d::.UYR(JI6): ((YR))(YR) MO():: MO()nVMOJI(YR6): K  : MOMO(K) : MOMOMO(K):V MO K :MO:YRYRVYRYRQ: YRc YRYRd VA$(K): :CAL$B$"/":A$(MO): :CAL$CAL$B$"/":A$(YR): :CAL$CAL$B$:&TV:CONVERT TO JULIAN^VJMO:MO((LP$,,)):DA((LP$,,)):YR((LP$,,)): MO DA YRP JO: |VcVYRYRQ: YR YRYRdhVJYR(YR6):YRYR: (YR6)YR6 MO() : MO()/rVJMO: K MO:JMOJMOMO(K)::JOJYRJMODA5|VKa:"ARMTHEND/BAS"Sxi:b{i CX lk|i "PRINTER (OPEN)": ();}iZA:ZS:ZQ: :KJ~i ZA FF% "PRINTER (CLOSE)": FIRST d : "TOTAL PAYMENTS = ";: F5$;TC#;: ( );: d#i FF% i,lk-i }iUiRI: J :BR%(J):ER%(J):iIN:MI:ZQ:ZS: : ZA xiiFIINѕi ,():LP$(RD$,,): TV:D3JO:LP$(RD$,,): TV:D6JOiDT!:DP!:AP#: ,(RN):DR$RD$: uiNI:A0#:A3#:A6#'i P=i ,:NR(TX$) giEP%:SP: PB PB: Ԕ : Xwi NCR NRi ,Ni (TX$)RN ((TX$, ,)) ii EP% NNRƖi얾i EP% RIRI: RI  RIi EP% BR%(RI)IN:ER%(RI)TIvi@(,),"Add an additional range or press when done";:ZU:ZA:ZC:ZS:ZQ:ZF: i ZA : BAD ii ZA j : ii j×i:iTI((TX$,,)): (TIIN)(SP) (TIMI) i(SP TIIN) SP"i SP Li w: (TD$) () I : IyiTYR((,,))I: TYR TYRTYRdiTD$TD$"/"Z$(TYR,):LP$TD$: TV:TDJOi TDD3 A0#A0#TA# : TDD6 A3#A3#TA# : A6#A6#TA# jN(NI)N:NINI:AP#AP#TA#'j TIMI NI EP%-j5@j:?Ej @Jj ,(RN):DR$RD$: u:B3#B3#A3#:B0#B0#A0#:B6#B6#A6#KjPP!PP!AP#DT!:PY!PY!AP#DT!: (B3#) #z B3#ڙLj (B0#) #z B0#Nj (B6#) #z B6#Oj AP# LP$(,):AR#AP#UTj y: RD$DR$: FUT$FUT1$: ,(RN):: (: ycjIN:"PRINTER (COLS=96)": flrjLCLC::J: )"Invoices";ŚtjJX: I : ) " ";: J vjJXJX: ER%(JX) BR%(JX);"-";ER%(JX);",";wj:: Izj ();(I);&|j P0j @Ej RN  sj ,RN: TX$((TX$)AP#DT!): ,RN:j ,!: RN" $: ,RN: TX$((TX$)DT!): ,RN:: :RNěj (Λj i֛j:j NI FM$"No open invoices found":ER: $:: : xi'jZS: l:"ACCOUNT NAME RECEIPT # APPLIED DISCOUNT PAYMENT NEW BALANCE": (\,"-"):LCLC:١fl FIRST LC7 4l:FIRSTklTC#TC#AP#DT!:LCLC: " #### \ \ ##### $$##,###.## $$##,###.## $$##,###.## $$##,###.##";RN,CN$,IN,AP#,DT!,AP#DT!,B0#B3#B6#:l:"PRINTER (COLS=80)": AD )SI$();: (@(SI$())))SI$(): I : (@(SI$(I))))SI$(I): I I : : J ::: l#l:il )CN$$)"ACCT#";RN 5);" ";: )CS$;5)"PAYMENT RECEIPT"oll )B1$: ) B2$;B0#B3#B6#,B0#,B3#,B6#: ();(I);:ƣHq"ARBATCH/BAS"У0u dO:u CD @(,),"Salesman : ";:KS$"_ 0123456789":K$C$(SM):KF:KM:KAP%: :KF: :SM(K$) : vDuJ(SM$,(SM)): J SM :ṳNu ,-:PW$(AA$,(J) ,):UI$PW$: :PW$UO$:DR((AA$,(J) ,))ߤSu PW$"" uXuPPW$"": K1$; buA$: A$"" buMlu A$"" :u : A$( ) PPW$PPW$A$: PPW$PW$ buWquK2$;mvu PPW$PW$ XuuF%:U%DR: SVC(F%,U%):TM((TM$,)): U% U%TMu ,&U%:TY$TX$:(TY$,,)(((TY$,,))AP#DT!): TX$TY$: ,&U%: u:@v (RD$)+ ZM$"PREVIOUSLY DELETED":VOID:KvVOID` vCN$(DR$,,)vCT1$(DR$,,): CT1$"C" CT1$"Y" : CT1$"N"vCT2$(DR$,,)ĦvCS$(DR$,,)ڦ vCC$(DR$,8,)*vCP$(DR$,Q, )(RvJI((DR$,i)): U:LP$CAL$:AR#((DR$,k))A\vSP!((DR$,q,))ZfvSY!((DR$,u,))spvPP!((DR$,y,))zvPY!((DR$,},))|vB0#((DR$,],))~vB3#((DR$,a,))קvB6#((DR$,e,))vCE%(FUT$):B9#((FUT$,))(CE%d)vBS#B0#B3#B6#1vCL!((DR$,,))GvCT3$(DR$,,)]vCT4$(DR$,,)svCT5$(DR$,,)vLCD$(DR$,,):LCP$(DR$,,):LPL$(DR$,,)vLCD2$(DR$,,):LCP2$(DR$,,):LPL2$(DR$,,)vM2((DR$,,)):M3((DR$,,))VvCT6$(DR$,,):CT7$(DR$,,):CT8$(DR$,,)pvLINK((DR$,,))vFX$(DR$,,)vFUT1$FUT$v vvv:v ADD vةv ,():DR2$RD$vCN2$(DR2$,,)vCC2$(DR2$,,)vCP2$(DR2$,6, )7vCPO$(DR2$,B,)NvCT9$(DR2$,V,)fvCID$(DR2$,X,)vLYS!((DR2$,l,))vLYP!((DR2$,p,))vLYC!((DR2$,t,))ҪvLMS!((DR2$,x,))vLMP!((DR2$,|,))vLMC!((DR2$,,))#w$w:.)w@@,();:AP#N*w N NI: @: ,N(N).wXT$TX$:(XT$, ,)(): TX$XT$: ,N(N): ,!: (: ,N(N)ԫ8w w: ,!:AP#AP#TA#:@(,),"PAYING INVOICE # ";TI;ޫBw: Lw쫈w:>wCC:TD$Z$((C$(((TX$,,)))),)"/"Z$((C$(((TX$,,)))),)wCE%((TX$,,)): CE%d TA# ((TX$,,))(CE%d)d : TA# ((TX$,,))CE%d̬wTT%((TX$, ,)): TT% TT% wTI((TX$,,)): TT% TT% TT% BT#BT#TA#Qw ,(): ((TX$, ,)) REF$(TX$,,) : REF$""aw ,()gwoy:yDR$(, )y(DR$,,)"+"y(DR$,,)CN$íy CT1$"Y" CT1$"C"٭y(DR$,,)CT1$y(DR$,,)CT2$y(DR$,,)CS$z(DR$,8,)CC$1z(DR$,Q, )CP$Jz(DR$,],)(B0#)c&z(DR$,a,)(B3#)|0z(DR$,e,)(B6#):z TV:(DR$,i,)(JO):(DR$,k,)(AR#)ȮDz(DR$,q,)(SP!)Nz(DR$,u,)(SY!)Xz(DR$,y,)(PP!)bz(DR$,},)(PY!),lz(DR$,,)(CL!)ivz(DR$,,)LCD$:(DR$,,)LCP$:(DR$,,)LPL$wz(DR$,,)LCD2$:(DR$,,)LCP2$:(DR$,,)LPL2$xz(DR$,,)CT3$կzz(DR$,,)CT4$|z(DR$,,)CT5$z(DR$,,)(M2):(DR$,,)(M3)Qz(DR$,,)CT6$:(DR$,,)CT7$:(DR$,,)CT8$kz(DR$,,)(LINK)z(DR$,,)FX$z p{zp{:u{DR2$(, )°z{(DR2$,,)CN2$ڰ{(DR2$,,)CC2${(DR2$,6, )CP2$ {(DR2$,B,)CPO$!{(DR2$,V,)CT9$9{(DR2$,X,)CID$T{(DR2$,l,)(LYS!)o{(DR2$,p,)(LYP!){(DR2$,t,)(LYC!){(DR2$,x,)(LMS!){(DR2$,|,)(LMP!)۱{(DR2$,,)(LMC!)7|3PU$():F%:(PU$,,)UI$: SVC(F%,PU$):UO$(PU$,(PU$" "," ")):;:R "R",,"AR2R/DAT"n , AS RD$, AS FUT$"R",,"CONFIG/DAT": , AS AA$ I : ,I:SI$(I)E$(AA$): I# ,: (AA$,,)"Y" CD: ,-:SM$"": J :SM$SM$(AA$,(J) ,): J : CDH ,: (AA$,,)"Y" AD "R",,"ITEM/DAT", : , AS TX$: ,:JU(TX$): P "R",,"ITEM/DAT", : , AS TX$:p:zCR((ERSR)SR): ERCR z ,CR:TI((TX$,,)): TI ((TX$, ,)) CRCR: CRER CR: :  : TIIN ERCR: z : TIIN SRCR: z ԔERNR:CRٔ ,CR:TI((TX$,,)):CI((TX$,,)): TI CIRN : CR NR CRCR: ٔ : XFOUND: ,:FP(TX$)3b FP  :  9lsSRFP:ERNR: p: : FOUND CR Ƙ FOUND CR CRNRИ SR:ERNR: p: ֵ* FOUND CR CRNRܵ4 ZCR CR% ,Z: RN(TX$) ((TX$,,))IN FOUND-:Y虂 CR FP: ,CR:TI((TX$,,))r TIIN FOUND:x~@F%: SVC(F%):(F%: SVC(F%):ǶB6#B6#AP#: B6#  &B3#B3#B6#:B6#: B3#  0B0#B0#B3#:B3#:BAD: J }ϋ IN ER%(J) BAD:@(,),();();"Range Already Entered!";();:: J (#:: σ:֑@(X,Y),()(W,())();շւ J  H:@(XJ,YW),();:֑@(XH,Y),()(W,())();%ւ J  H:@(XJ,Y),();:+֎HL!: (K$)HL! ER: $:K$"":@KA,(KM,KP$);:KIKI: : ER: $: (A$) :B$((A$),"0")(A$,(A$)):`KS$"_ABCDEFGHIJKLMNOPQRSTUVWXYZ,!#$%&'()*=-:<>?/"(")"abcdefghijklmnopqrstuvwxyz-. 0123456789-+":XSET$( )( )( )()()()()()()()():ZZ$(KS$,)(KS$,.,)ι~K1$():K2$():K3$():K4$():KP$"_" ();:KL:KZ:ZC:ZE}KW:O%KP:KC:FX%@: KF FX%FX%%:KIKI: (K$)KM VAR$K$:  : @KA,K$(KM(K$),KP$);: : FX%FX%& ZE FX%FX%@VAR$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,,,buKIKI:KP: KI KIKI:KP: : KZ KI': : (KIKI:KP: KIKX KZ : KIKI:KW: : $ZKIKIKL: KIKX KZ : KIKIKL:KW: : gKIKIKL: KI  KZ KI': : KIKIKL:  : ZQ ZA:KI': :  KC KIW:ZA:KP:HT : KCKC: Ҽ"KI':KP:TKW:KI:KF: KV KH:KI': : KIKI:KP:[0F%:U%_: SVC(F%,U%):@,"POSITRAK";:@P,(P,);:߽:@,();:@(((K$)),K$;(((K$))," ");:TM$((( ) )):(TM$,,)"W":@A,TM$;:@E," ";;" ";:C$ ER ();:@2,(((L(FM$)))," ")FM$(((L(FM$)))," "); : @0,();`. ER ER :k8ER:VOID: CN CN() ,(CN): (RD$)+ : DR$RD$:澍FM$"Invalid Account":ER: $:VOID:7KN$"_123456789":KJ:FG%:FF%:KURPC:K$"_":KA(RN)PC :KJ$""E J N|KU(RJ)PC:@KU,(KN$,J,);". ";K$(J);K4$; (K$(J)) KJ KJ(K$(J))ο KU(RN)PC:@KU,"Selection :";XR:YC:WKJ:HN: :XRN:YC:W:H: (@KA,K$;K1$;:@KA,"";lK$: K$""  : K2$;:FI%FF%: (K$)  FF%(K$) 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$C$(FF%):FG%FF%:KU(RFF%)PC:@KU,K3$;K$;". ";K$(FF%);KJ$;K4$; 7L9: 1 ZC @(,),(); : ZC" ZS ,,d,,^,,,,,&,X,,,, ,,,|,|K$"PAYING BY INVOICE": :@?," ";: N  NI: ,N(N): " #####";((TX$,,));:2Æ@(, ),"You have selected to pay off the above invoices !";NÐ (AP#) #z AP#`Õ@(, ),B1$Ú@(, ), B2$;AP#,A0#,A3#,A6#ß@(,),"Discount % : ":@(,),"PRESS TO CANCEL PAYMENT";îKX:KF:ZA:KO$KS$:KS$K5$ĸ KI KX[ KI KM:KA:K$C$(DP!): : KI' DP!(K$):DT!RD!(AP#DP!d) KI KF @(,),"Discount Amount : ";C$(DT!);();:@(,),"Amount Due :"; F5$;AP#DT!;~ KI KF KAf:K$C$(DT!): :DT!(K$):@(,),"Amount Due :"; F5$;AP#DT!;:KI:@(, ),"PRESS TO CANCEL PAYMENT, PRESS TO ACCEPT PAYMENT";: KF KF:  : K$"ACCOUNTS RECEIVABLE": 0: : K$()"Account Information (Add, Change, Inquire, Etc.)":K$()"Apply Payments and Credits":K$()"Review Charge Transactions":K$()"Month End Report Menu":K$()"Adjust Account Balance/Transactions"K$()"AR Batch Posting":K$()"AR Report Manager":K$()"Return to Master Menu":K$()"Account Sales Analysis"'N:ZA:ZQ:R:C: 3#MFF%:VdK$"Account Information": :#nK$()"Add Accounts":K$()"Delete Account":K$()"Change Account":K$()"Inquire":K$()"List Accounts":K$()"Change Account Discounts":K$()"Print Account Discounts":K$()"Return to AR Main Menu"EȖN:R:C:ZA:ZQ: QțMFF%:YȠ:qȪK$"Account Prompt"ȯ 0: :ȴ@,"Account number: ";ȹ FLG% @(,),"Enter 0 to print today's charge business";+ɾKA:KF:KM:KS$"_ 0123456789":K$"": :KF: :CN(K$)9KS$KO$:A: ::@,"Account Number: ";:@G,"Account Name: ";:@,"Street: ";:@,"City, St. Zip: ";:@,"Phone: ";:@,"Sales";:@,"Payments";:@7,"Balance";:@P,(O,)B @,"Contact Name: ";: @:,"Street #2: ";:@),"Alt. Phone: ";@u,"Print Statement (Y/N) :";:@,"Add Service Charge (Y/N) :";:@,"Tax Status (Y/N/A/B) : ";:@k,"Cash Only (Y/N) :";:@,"Balance Forward (Y/N) :";U@,"Weekly or Monthly (W/M) :";:@P,"P.O. Number Required (Y/N) :";:@,"Account Utility Code :"; @,"Ytd: ";:@,"Ytd: ";:@," 0-30: ";:@,"Mtd: ";:@,"Mtd: ";:@',"31-60: ";:@V,"Last: ";:@y,"61+:";:@,"Deferred: ";:@,"TOTAL: ";:@,"Amt.:";@,"$######.##";SY!;:@,"$######.##";PY!;:@,"$######.##";B0#;:@,"$######.##";SP!;:@ ,"$######.##";PP!;:@_, "\ \";LP$;:@,"$######.##";AR#;)@.,"$######.##";B3#;:@~,"$######.##";B6#;:@,"$######.##";B9#;:@,"$######.##";BS#B9#;@,C$(CN);:@w,"Credit Limit:";:KX:KF:TP: @,"Running Po#:";: @,"Tax id#:"; ZD KP$" " : KP$(_) KI KX" KI K$CN$:KM:KAU: :CN$K$' KI K$CN2$:KM:KA: :CN2$K$J, KI K$CS$:KM:KA: :CS$K$z1 KI K$CC2$:KM:KAE: :CC2$K$6 KI K$CC$:KM:KA: :CC$K$; KI K$CP$:KM :KA: :CP$K$@ KI K$CP2$:KM :KA5: :CP2$K$B KI K$C$(CL!):KM:KA:KS$"_ 0123456789.": :CL!(K$):KS$KO$: ZD ZA CL!#t FM$"Max credit limit $999,999":ER: $:KIC KI K$CPO$:KM:KA: :CPO$K$ D KI K$CID$:KM:KA%: :CID$K$KE KI K$CT3$:KM:KA:KS$"_YN": :CT3$K$:KS$KO$G KI K$CT4$:KM:KA:KS$"_YN": :CT4$K$:KS$KO$I KI K$CT2$:KM:KA-:KS$"_YNAB": :CT2$K$:KS$KO$K KI K$CT1$:KM:KA}:KS$"_YN": :CT1$K$:KS$KO$UM KI K$CT5$:KM:KA:KS$"_YN": :CT5$K$:KS$KO$P KI K$CT6$:KM:KA:KS$"_WM": :CT6$K$:KS$KO$S KI K$CT7$:KM:KAm:KS$"_YN": :CT7$K$:KS$KO$ U KI K$CT8$:KM:KA: :CT8$K$*Y: KF ZD KF: ;]KP$(_):C^:rKAb:@1,"Are you sure you want to ";K3$;"DELETE ";K4$;"this account?";|KM:KO$KS$:KS$"_YN":K$"N":KF: :KF: :MD$K$:KS$KO$҆ MD$"y" MD$"Y"ҋӐ:%ӚK$"PAYMENT PROMPT": 0: :Ӥ@,"Customer Number: ";:@,"Invoice range:";:@T,"Begin: ";:@,"End: ";:@,(O,_);ӮKX:KFӸ KI ӽ KJ KF KIKJ:KJ KI KA:KM:KS$KO$:K$C$(RN): :  :FM$"": :RN(K$):  KI KF ((K$,),ZZ$) CNRN: : VOID @,();:KI:  : @,(RD$,,);# KI KA[:KM:KS$"_ 0123456789PB":K$C$(IN): :FM$"Invalid Invoice Number": :IN(K$):MIIN:@,MI;:PB(K$,"PB"): PB IN] KI KA:KM:K$C$(MI): : :MI(K$)f KI| KF KF:  ZA KJ : KJ IN ZA PB KS$KO$:8 RN ,(RN): (RD$,,)"Y" @(,2),K3$"BALANCE FORWARD ACCOUNT"K4$;(); : @(,2),();>`K$"PAYMENT MENU": 0: :K$()"Pay Against a Range of Invoices":K$()"Pay as a Credit Only":K$()"Return to AR Main Menu"A @(,),"No other terminal will be able to use your": @(,),"printer unitl you exit back to the AR Main Menu"_R:C:N:ZA: :mKS$KO$:׼K$"BALANCE FORWARD PAYMENT": 0: :@,"Account Number :";:@N,"Payment Amount :";:@,"Discount (%) :";KX:KF:CN KI  KI KA:KS$KO$:K$C$(CN):KM: :  :FM$"": :CN((K$)): (K$)CN KGKF:KF:K$C$(CN):KIKI: :KFKG KF ZA : VOID KI:  :  KI KA_:KS$"_ 0123456789.-":K$C$(AP#):KM: :AP#(K$): KF (AP#) @(,),"Maximum valid payment is $32700!";();:  : @(,),(); KI KA:K$C$(DP!):KM: :DP!(K$) KI KF DT!RD!(DP!dAP#):@( ,),"Discount Amount:$";C$(DT!);(); KF KI KAO:KM:K$C$(DT!): :DT!(K$):@( ,),"Amount Due :"; F5$;AP#DT!;:@( , ),"PRESS TO ACCEPT PAYMENT, PRESS TO CANCEL PAYMENT";:KI:ZA KI: KF KF: KS$KO$:. u:@(,),();:@(, ),CN$;:@(, ),B1$;W@(, ), B2$;BS#,B0#,B3#,B6#;: @(, ),((, );:@(, ),(E, );: CN @`,();% (ZZ$,((K$,))) KI:W:F:ZA: SVC(F,K$,W):K$((F),):KP:@KA,K$;();: F @`,() "*C"Saving AR/BAS":"AR/BAS":mܰ 31,28,31,30,31,30,31,31,30,31,30,31