{:REVISION 27.00 INFORMAT/BAS 10/17/05 - OKI ONLY w/ out of sequence msg QB,QQ$ QB ' 'F,I,J,K,W' MERCH#(),IA#(),PS#(),FI(),SM%(),C#( ) ' G$(X)("0"((X),),)4' Z$(X)("0000"(((X)),),)z' D$(X,Y,Z)((dX),)"/"((dY),)"/"((dZ),)' ST#( )~'`:ZD:ZC:ZQ:م( TX!(X!)(((X!)dX A(X!))d),)PG$"$$#####.##":PE$"$$##,###.##"(+ZC:ZS: QB QB:MENU: +O+ : ZA MENU "MASTER/BASp+ MENU +,2,6,\+,PFz*+ +\+ "labor/bas+ZS:ZC: : ZA MM% :Ά+ MM%  .: ++ MM% D+ MM% hBN+ +d.:DISPLAY TOTALS.XX%MM%: MM% T1$"DAILY": MM% T1$"MTD": T1$"YEARLY"ׇ.MM%MM%:SB#:,:,:IV%(TA$).I:,MM%(I):ST#(I)(TA$):SB#SB#(TA$):=.I:,MM%(I):ST#(I)(TA$):. ,MM%:ST#()(TA$):ST#()SB#(TA$):ST#()SB#: ,MM%:ST#()(TA$): ,MM%:ST#()(TA$): ,MM%:LB#(TA$).X$()"CASH SALES":X$()"CHARGE SALES":X$()"TAX FROM CASH SALES =":X$()"RECEIVED ON ACCOUNT =":X$()"TOTAL SALES":X$()"COST OF SALES":X$()"GROSS PROFIT ON SALES":FT!ST#()2. ,XX%$:ST#( )(TA$):: ,!(MM%):ST#( )(TA$): ,;(MM%):ST#( )(TA$): ,7(MM%):ST#( )(TA$).ZS:ZC: (/ MM$"N" F/ `m: ,: TA$()/ I : ,MM%I:: ,!(MM%): ,$(MM%): ,;(MM%): ,7(MM%)/ TA$(d):,d劗/ p0 :UPDATE LAST CLOSE STATISTICS / / :update salesman totals/ MM% 81/ MM% ,:: Hq: "R",,"ARWORK/DAT": : "ARWORK/DAT":QQ$"INFORMAT/BAS":"ARWORK/BAS"/ ,: Hq/:update salesman totalsˋ/ P :open file⋲/ZZ$():Z$()}/:K$"Adjusting Totals": 0: :: ();:@(,),"Clearing Totals ....":@(,), "Updating Salesman Totals ....":@(,!),"Please Wait ....";/ J d40 `m: ,Jb>0 MM% NS!(S7$):NC!(S8$):NI%(S9$):MERCH#(S10$): S1$(NS!(S1$)): S2$(NC!(S2$)): S3$(NI%(S3$)): S4$(NS!(S4$)): S5$(NC!(S5$)): S6$(NI%(S6$))@0 S11$((S11$)MERCH#): S12$((S12$)MERCH#)ȍC0 S7$ZZ$: S8$ZZ$: S9$Z$: S10$ZZ$H0 MM% MM% S1$ZZ$: S2$ZZ$: S3$Z$: S11$ZZ$?M0 MM% S4$ZZ$: S5$ZZ$: S6$Z$: S12$ZZ$OR0 ,J: HqU\0_a0 :~p0:UPDATE LAST CLOSE STATS0 MM% REC? : MM% REC@ : RECAf0 ,:CPTR(TA$): ,:LAS(TA$): ,REC: TA$(LAS)(((,,)))(((,,)))(((,,)))(((,,)))(((,,)))(,,)(CPTR): ,RECl081: "Resetting dollar sales and dollar costs for each line ..."L1X$( ,)ΏV1 J t1RNx(J): ,RN: TA$X$: ,RN:RNRN&~1 MM% ,RN: TA$X$: ,RN,121W2:print monthly salesman reporta2 P2FZ$" ## $$#,###.## $$#,###.## $$#,###.## ##### $$,###.## ###.#% $$#,###.## $$#,###.## $$#,###.## ##### $$,###.## ###.#%" "2 ();:LCB:PG%: 3 :headings/,3COUNT%g13@(,),"Printing Monthly Salesman Report .....";z63 COUNT% d@3 COUNT% ,d : ,COUNT%E3MNS#(S1$):MSC#(S2$):MI%(S3$):YNS#(S4$):YSC#(S5$):YI%(S6$):MERCHM!(S11$):MERCHY#(S12$)?F3 MNS# MP : MPd((MSC#MNS#))lG3 YNS# YP : YPd((YSC#YNS#))J3 MI% MA : MAMNS#MI%L3 YI% YA : YAYNS#YI%,R3 (MNS#) (YNS#) FZ$;COUNT%,MNS#,MSC#,MNS#MSC#,MI%,MA,MP,YNS#,YSC#,YNS#YSC#,YI%,YA,YP : LCLC: T3ÓS3 " MTD MERCHANDISE ONLY : $$##,###.## YTD MERCHANDISE ONLY : $$##,###.##";MERCHM!,MERCHY#::LCLCT3COUNT%COUNT%:LCLC: LC7 3^3`3 (,"-")c3 ();: ( )&h3 :I3 YLC A:::PG%PG%:LC3 STN$;" MONTHLY AND YEARLY SALESMAN REPORT ";();;" PAGE # ";PG%3 ;3 " +--------------------- MONTH-TO-DATE ------------------+ +---------------------- YEAR-TO-DATE -------------------+"̕3 "SALESMAN NET SALES GROSS TOTAL AVERAGE AVERAGE NET SALES GROSS TOTAL AVERAGE AVERAGE"\3 "NUMBER SALES COST PROFIT INVOICES SALE PROFIT SALES COST PROFIT INVOICES SALE PROFIT"l3 (,"-")z3LCLC:6:CLEAR CASH DRAWERS㖵6 I : ,((I):DCA!(I)((TA$,,)):DROA!(I)((TA$,,)){6 ,)(I):DDT$(I)G$(((TA$,,)))"/"G$(((TA$,,)))"/"G$(((TA$,,))):DTM$(I)G$(((TA$,,)))":"G$(((TA$,,)))66ZS:ZC: : ZA 7:PACK DRAWERS7 `m: I :TA1$( ):(TA1$,,)(DCA!(I)):(TA1$,,)(DROA!(I)): TA$TA1$: ,((I)7TA1$( ):(TA1$,,)(((DDT$(I),,))):(TA1$,,)(((DDT$(I),,))):(TA1$,,)(((DDT$(I),,)))#7(TA1$,,)(((DTM$(I),,))):(TA1$,,)(((DTM$(I),,))) (7 TA$TA1$: ,)(I)2777 Hq x7ҙ: TM$ "W1" FM$"To backup data files you must be on terminal 1":ER: $:ER: ZZ 4!:: : : 0:K$"BACKING UP DATA FILES": ::A$:A$: "do backupD":> TM$ "W1" FM$"To format a diskette you must be on terminal 1":ER: $:ER: ZZ 4!:: : : 0:K$"FORMATTING DISKETTE": ::A$:A$: "DO FORMATD":A J  :C#(J):hAA,d:RN(TA$):RNdЎFAPG%: A:HEADINGSKA "R",,"AR2R/DAT": , AS ZZ$, AS CN$UAOTHER:LC: L :IA#(L):PS#(L):FI(L):ZA Ie RNCdA ,I:IN%(TA$): IN%OI% "*** OUT OF SEQUENCE ***":LCLC:eiAOI%IN%:SAVE LAST INVOICE #nAJ((TA$,)): Jd IA#((TA$,,))(Jd)d : IA#((TA$,,))JdxAK((TA$, )): Kd PS#((TA$,,))(Kd)d : PS#((TA$,,))KdB}ASM%((TA$,,)):TP%((TA$,,))MAXF$""[AL: BA SM%SM%(L)(SM%(L) IA#(L)) IA#(L)IA#(L)IA#:PS#(L)PS#(L)PS#:FI(L)FI(L):SM%(L)SM%:MERCH#(L)MERCH#(L)MERCH# : LL: L AA DEL$"YES" ȯDA LC3 PG%PG%:LC: K ::: A㞇APSA!PS#CADJ!:IAA!IA#CADJ!:XY$"": IAA! F!(d((PSA!IAA!))): F! XF$XF$(F!)"%**":XY$"*" : XF$XF$(F!)"%": XF$" 0%**":XY$"*":ALCLC: HF$;XY$,IN%,SM%,IA#PX,IA#,PS#,IA#PS#,XF$,PT#,TP$,CN%,CN$,MERCH#,DEL$VA NP% OTHEROTHERIA#]A:pA 6B: ( )A A:PRINT SALESMAN REPORTA :A:PRINT HEADINGSA ();:"INVOICE REGISTER FOR ";STN$;();;" ";;" ";"PAGE # ";PG%::XA "(Totals do not include tax. An asterisk indicates a low profit invoice.)":堜A"INVOICE SALES SALE SALE SALE GROSS PERCENT TAXABLE INVOICE ACCOUNT MERCH DEL"rA"NUMBER MAN # TOTAL SUBTOT COST PROFIT PROFIT SUBTOTAL TYPE NUMBER ACCOUNT NAME ONLY COD"A (,"-"):A:SALESMAN REPORTˡA ();:"SALESMAN REPORT FOR ";;" ";:1A"SALESMAN NET SALES GROSS TOTAL AVERAGE AVERAGE MERCH"A"NUMBER SALES COST PROFIT INVOICES SALE PROFIT ONLY" A (^,"-"):HF$" ### $$#,###.## $$#,###.## $$##,###.## #### $$##,###.## ####.#% $$#,###.##"+A P :open salesman file:A L QA IA#(L) AA HF$;SM%(L),IA#(L),PS#(L),IA#(L)PS#(L),FI(L),IA#(L)FI(L),d((PS#(L)IA#(L))),MERCH#(L)A SM%(L)  SM%(L) c SMR%d : SMR%SM%(L)oA `m: ,SMR%:(SM$,%,)(IA#(L)):(SM$,),)(PS#(L)):(SM$,-,)(FI(L)):(SM$,/,)(MERCH#(L)): ,SMR%: HquAA ,c: B ( ):ҤB TP% TP$"CHARGE" : TP% TP$"CASH" : TP$"":BII: ,I<BJ((TA$,,)): Jd PT#((TA$,,))(Jd)d : PT#((TA$,,))JdBALT: (TA$,,)"A" ALT:TXAT : (TA$,,)"B" ALT:TXAT2 : TXSTB l :COMPUTE TAXB TP% IA#  C#()C#()IA# : C#()C#()IA#IB TP% PT#  C#()C#()PT#:C#()C#()PX : C#()C#()PT#:C#( )C#( )PX"B TP% IA#  C#()C#()IA# : C#()C#()IA##B TP% PT#  C#()C#()PT#:C#( )C#( )PX : C#()C#()PT#:C#( )C#( )PXe'BNP%:CN%((TA$,,)): CN% (CN$,,)"CASH CUSTOMER " : ,(CN%): (CN$,,)"*" NP%ŧ*BJ((TA$,,)): Jd MERCH#((TA$,,))(Jd)d : MERCH#((TA$,,))Jd+B (TA$, ,)"D" DEL$"YES" : DEL$"NO",BCADJ!IA#MERCH#: NP% MERCH#"1B:6B LC ( );B@B:ZABFM$"$$,###,###.##"EB "CHARGE SALES ---------------> ";: FM$;C#()̨FB "CHARGE SALES NON-TAXABLE----> ";: FM$;C#()C#()GB "CHARGE SALES TAXABLE--------> ";: FM$;C#()8HB "CHARGE SALES TAX -----------> ";: FM$;C#()nJB "CHARGE REFUNDS -------------> ";: FM$;C#()ܩKB "CHARGE REFUNDS NON-TAXABLE -> ";: FM$;C#()C#(): "CHARGE REFUNDS TAXABLE -----> ";: FM$;C#()LB "CHARGE REFUND TAX ----------> ";: FM$;C#( )NBOTB "CASH SALES -----------------> ";: FM$;C#()UB "CASH SALES NON-TAXABLE -----> ";: FM$;C#()C#(): "CASH SALES TAXABLE ---------> ";: FM$;C#()VB "CASH SALES TAX -------------> ";: FM$;C#( )*XB "CASH REFUNDS ---------------> ";: FM$;C#()YB "CASH REFUNDS NON-TAXABLE ---> ";: FM$;C#()C#(): "CASH REFUNDS TAXABLE -------> ";: FM$;C#()ϫZB "CASH REFUND TAX ------------> ";: FM$;C#( )\B: "HOUSE ACCOUNTS SUBTOTAL ----> ";: FM$;OTHER gBhB TM$ "W1" FM$"To verify a diskette you must be on terminal 1":ER: $:ER: ZZ 4!:: : : 0:K$"VERIFYING DISKETTE": :: rB@(,),"PRESS ANY KEY TO CONTINUE AFTER VERIFYING HAS FINISHED !!";:@@," ";: "DO CHKDSKD/TXT":!PF:"OPENREP/BAS"=8J"READING BALANCES...";f=JBAL#:BAL#():BAL#():BAL#()BJ RL(X)(((X)d\(X))d)LJ"R",,"AR2R/DAT"ڭVJ , \ AS DUM$, AS B$(), AS B$(), AS B$()`J K () jJ ,KtJ (DUM$,,)"+" : J,~J I =JA!(B$(I))[J A! A! #z JqJBAL#BAL#RL(A!)JBAL#(I)BAL#(I)RL(A!)JJŮJ:: " ACCOUNTS RECEIVABLE BALANCE"J " 0-30 BALANCE = $$#,###,###.##";BAL#()/J " 31-60 BALANCE = $$#,###,###.##";BAL#()dJ " 61+ BALANCE = $$#,###,###.##";BAL#()J " ------------------------------"ǯJ " TOTAL BALANCE = $$#,###,###.##";BAL#ϯJ կK N:CLOSE DAILY INVENTORY*N "R",,"CONFIG/DAT": , AS AA$84N ,:ODATE$AA$ :NDATE$dHNZS:ZC: : CL$"N" ZA : RN AA$NDATE$: ,: \NZS:ZC: fN "R",,"INV120/DAT"pN J : ,Jx AS DUM$, AS WV$(J),P AS DUM$, AS WN$(J):N J ()N `m: ,JHN M : (WV$(M)) WN$(M)()PN M`N ,J: HqhN JpN vP`mSVC,:F%: SVC (F%):HqSVC,:F%: SVC (F%):Ʊ:UNPACK ROUTINEֱSVC,:F%(PU$,,)UI$: SVC (F%,PU$)UO$PU$::OPEN FILESh "R",,"CONFIG/DAT": , AS A1$, AS A2$, AS A3$, AS A4$: ,@ AS AA$STN$((, ): ,:(STN$,)(AA$,(AA$,())) ,:PRI$(AA$, )B$񲡐 , :ST(A1$):AT(A2$):AT2(A4$): "R",,"ITEM/DAT", :, ASTA$<9P "R",,"SALESMAN/DAT",@Z ,@ AS SM$: , AS S1$, AS S2$, AS S3$, AS S4$, AS S5$, AS S6$, AS S7$, AS S8$, AS S9$, AS S10$, AS S11$, AS S12$ijdl:COMPUTE TAX FROM TAX FUNCTIONqPTPT# {PX!TX!(PT!TX!)|ȯLү SM%(L)c (SM%(L) IA#(L)) IA#(L)IA#(L)IA#:PS#(L)PS#(L)PS#:FI(L)FI(L):SM%(L)c:MERCH#(L)MERCH#(L)MERCH# : LL: үܯ̴P:clear drawer variablesZDROA!(J):DCA!(J):DDT$(J):DTM$(J)(,,):dÎ98ǝ STN$:"CASH DRAWER TOTALS AS OF ";;" ";|=ǝ: "DRAWER # R.O.A. SALES TOTAL LAST CLEAR "Bǝ (<,"-")ֵLǂ I : DI$;I,DROA!(I),DCA!(I),DROA!(I)DCA!(I),DDT$(I),DTM$(I)ܵVǃ`ǝ (<,"-"): ( ): ֑@(X,Y),()(W,())();Hւ J  H :@(XJ,YW),();:s֑@(XH,Y),()(W,())();ւ J  H :@(XJ,Y),();:֎`:2/08/87kjKS$"_ABCDEFGHIJKLMNOPQRSTUVWXYZ,!#$%&'()*=-:<>?/"(")"abcdefghijklmnopqrstuvwxyz-. 0123456789-+":XSET$( )( )( )()()()()()()()()~ C$(X)((X),):K1$():K2$():K3$():K4$():KP$"_"ַ ();:KL:KZ:ZCܷdKW:O%KP:SVC,:KC:FX%@: KF FX%FX%%:KIKI: (K$)KM VAR$K$:  : @KA,K$(KM(K$),KP$);: : FX%FX%& ZU FX%FX%:ZUVAR$K$(KM(K$),"_")R%(KAP):C%KAR%Pḵ SVC (FX%,VAR$,R%,C%,KS$,XSET$,O%) KF : A$(XSET$,R%,):K$VAR$F R% ,,(,Z,,,,",T,,,L_KIKI:KP: KI KIKI:KP: : KZ KI': : ӹ(KIKI:KP: KIKX KZ : KIKI:KW: : ZKIKIKL: KIKX KZ : KIKIKL:KW: : QKIKIKL: KI  KZ KI': : KIKIKL:  : t ZQ ZA:KI': :  KC KIW:KP:HT : KCKC: "KI':KP:̺TKW:KI:KF:ﺆ KV KH:KI': : KIKI:KP:'0@,"POSITRAK";:@P,(P,);::@,();:@(((K$)),K$;(((K$))," ");:TM$((( ) )):(TM$,,)"W":@A,TM$;:@E," ";;" ";:D@0,();:@B,K3$(((,(PM$)))," ")PM$(((,(PM$)))," ")K4$;:n$@,();:@0,(((N(FM$)))," ")FM$(((N(FM$)))," ");: ER ();: : :2/08/87 MENU ROUTINEۼKN$"_123456789":KJ:FG%:FF%:KURPC:K$"_":KA(RN)PC :KJ$"" J N KU(RJ)PC:@KU,(KN$,J,);". ";K$(J);K4$;D (K$(J)) KJ KJ(K$(J))Jr 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$)H K$( ) FF%FF% : K$( ) FF%FF% s FF%  FF%N : FF% N FF%ž FG% KU(RFG%)PC:@KU," ";(KN$,FG%,);". ";K$(FG%);KJ$;K4$;#KJ$(KJ(K$(FF%)))T- (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:  ZC " ZS ,,,,,,X,,D,, :CLOSEOUT SCREEN3@@,();:K$"DAILY CLOSE": :{@(,),"RESETTING DAILY TOTALS TO ZERO FOR ENTIRE INVENTORY..";:D:CLOSE INV SCREENN@@,();:K$"DAILY CLOSE": :X@(,),"Last daily inventory closeout : ";ODATE$;.b@(,),"New daily inventory closeout : ";NDATE$;sl@( ,),"Do you wish to reset daily inventory totals? (Y/N) ";vKX:KF:KM:KA:ZQ:ZA KI  KI K$"N":ZE:KO$KS$:KS$"_YN": :CL$K$:KS$KO$”: KF KF:  : 0 0:K$"INVOICE REGISTER MENU": :K$()"Daily Closeout Procedure":K$()"Print Monthly Salesman Report":K$()"Cash Drawer Management":K$()"Labor Management":K$()"Open Invoice Report":K$()"Return to Master Menu"R:C:N:ZA:ZQ: MENUFF%:;,:INFORMATION MAIN MENUi6 0:K$"Daily Closeout Procedure": :?@K$()"Display Daily Totals":K$()"Display Monthly Totals":K$()"Display Yearly Totals":K$()"Print Invoice Register":K$()"Close Daily Inventory Totals":K$()"Backup Data Files":K$()"Format a Diskette"JK$()"Verify a Floppy Disk":K$()"Return to Invoice Register Menu"TN:ZA:ZQ:R:C: :MM%FF%^Đ:CORE INFORMATION SCREENĚ 0:K$"CORE INFORMATION": :^Ť@,"Total value of junk cores : $";:@,"Adjustment amount : $";:@,"(+ or - amount)mŮ@ ,CJ!;ŸZA:ZQ:KX:KF:ZE KI   KI KA:KM:TPF:K$"": :CA!(K$): KF KF: ( (K$) ') ER:FM$"Maximum Value is 10000.00 !": $:ER:KI:  : (K$) ' ER:FM$"Minimum Value is -10000.00": $:ER:KI:  : FM$"": $::DISPLAY TOTALS SCREEN@,T1$;" TOTALS ";;" ";;" THROUGH INVOICE #";IV%;" (SALES TOTALS ARE NET)";mLOP: K :LOLO: ST#() BCST#(K)FT!: BC F BCF : : BC BC  @LO,K3$(BC, )K4$;"####.#%";ST#(K)ST#()d : @LO,K3$(?)K4$;@LOP,"";: "$$##,###.## ";ST#(K);: X$(K);I K :LOLO:(ST#()) BCST#(K)FT!: BC F BCF BC @LO,K3$(BC, )K4$;"####.#%";ST#(K)ST#()d : @LO,K3$(?)K4$;@LOP,"";: "$$##,###.## ";ST#(K);: X$(K);A$(|):@,(O,)x!@U,"CASH SALES =";: PE$;ST#();:@z,A$;:@,"NON-TAX SALES =";: PE$;ST#()ST#()ST#()ST#( );&@,X$();: PE$;ST#();:@,A$;:@,STd;();"%";:@,"TAX SALES =";:@,"";: PE$;ST#();`+@,X$();: PE$;ST#();:@,A$;:@,dAT;();"%";:@#,"TAX SALES =";:@1,"";: PE$;ST#();,@@,"**** CASH DRAWER BALANCE =";: PE$;ST#()ST#()ST#();:@j,A$;:@o,"CHG. SALES TAX =";: PE$;ST#( );-@,"CORE BALANCE =";: PE$;ST#( );:@,"G. P. WITHOUT CORES = ";: (ST#()ST#( )) #z "####.#%";; : "####.#%";(ST#()(ST#()ST#( ))d);/@,A$;:@,"R.O.A. DISCOUNTS =";: PE$;ST#( );:@ ,A$;:@,"LABOR =";: PE$;LB#l0ZU:KX:KM:TP:ZA:ZA:KAb:KF:MM$"N":@5,"Do you wish to print "T1$" totals ? (Y/N) ";{2 KI 4 KI K$"N":ZE:KO$KS$:KS$"_YN": :ZE:MM$K$:KS$KO$6: KF KF: 2 : MM$"Y" M8@0,();();:@1,"Do you wish to ";K3$;"C L E A R ";K4$;T1$" totals ? (Y/N) ";:ZU:KM:TP:ZA:ZQ:KAb:KF:MM$""< KI ? KI K$"N":ZE:KO$KS$:KS$"_YN": :ZE: MM$K$:KS$KO$D: KF KF: < : MM$"N" : MM$"" <8I@g,"Are you sure ? (Y/N)";NNZU:KF:KA|]P KI S KI K$"":KO$KS$:KS$"_YN": :MM$K$:KS$KO$U: KF KF: P : MM$"" P : μ:PRINT TOTALS ON PRINTER MM% REC? : MM% REC@ : RECA ,REC:LI%(TA$):X((TA$,,)):Y((TA$,,)):Z((TA$,,)):LT$C$(((TA$,,)))":"C$(((TA$,,)))" "(TA$,,)"m":LD$D$(X,Y,Z) STN$::$ "\ \ TOTALS THROUGH \ \ \ \ INVOICE NUMBER #####";T1$,,,IV%| " SINCE \ \ \ \ INVOICE NUMBER #####";LD$,LT$,LI%: "(SALES TOTALS ARE NET)": K ::: ST#() BCST#(K)FT!: BC F BCF : : BCN BC  ();"!1";: XXX BC: ();:: "####.#%";ST#(K)ST#()d : (,"?")x "$$##,###.## ";ST#(K);: X$(K);: K :::(ST#()) BCST#(K)FT!: BC H BCH$ BC  ();"!1";: XXX BC: ();:: "####.#%";ST#(K)ST#()d : (,"?")N "$$##,###.## ";ST#(K);: X$(K);X::::A$( ): ) ();"!2";: XXX H: ();: )"CASH SALES =";: PE$;ST#();: ,)A$;: 2) "NON-TAX SALES ";: PE$;ST#()ST#()ST#()ST#( ); ) X$();: PE$;ST#();: ,) A$;: 1) STd;"%";: 7) "TAX SALES";: B) "";: PE$;ST#(); ) X$();: PE$;ST#();: ,) A$;: 1) dAT;"%";: 7) "TAX SALES";: B) "";: PE$;ST#()W ) ();"!2";: XXX  : ();:: ( );dAT2;"%";: " TAX SALES ";: PE$;ST#( ) " CASH DRAWER BALANCE ";: PE$;ST#()ST#()ST#(); 2)"R.O.A. DISCOUNTS";: PE$;ST#( ): 2)"LABOR ";: PE$;LB# 2)"CHG. SALES TAX ";: PE$;ST#( ) ) "CORE BALANCE =";: PE$;ST#( ): ) "G. P. WITHOUT CORES = ";: (ST#()ST#( )) #z "####.#%"; : "####.#%";(ST#()(ST#()ST#( ))d) MM% 8J ( ) ք:clear cash drawersA։@@,();:K$"Cash Drawer Management": :\֓H:W?:X:Y: ֘@(,),"Drawer # R.O.A. Sales Total Last Clear ";:֚DI$" ## $$#####.## $$#####.## $$#####.## \ \ \ \"Cם I :RI:@(R,), DI$;I,DROA!(I),DCA!(I),DROA!(I)DCA!(I),DDT$(I),DTM$(I);Iעױ@(,),();:R:C:K$()"Clear all Drawers":K$()"Clear a Drawer":K$()"Print Cash Drawer Totals":K$()"Save and Return to Menu":N:ZA:ZQ:  DOFF%: ZA DO 0 DO J : P::  I DO 8: @(,),();:@(,),"Drawer # to clear :";KF:KM:ZA:ZQ:KA:K$"":J KI  KI KO$KS$:KS$"_12345678": :KS$KO$:J(K$): KF KF: : : ZA A J  P:  :