f:REVISION 28.00 INFORMAT/BAS 5/23/06 JUMBO INVOICEs QB,QQ$ QB ' 'F,I,J,K,W҄' MERCH#(),IA#(),PS#(),FI(),SM%(),C#( )' G$(X)("0"((X),),)' Z$(X)("0000"(((X)),),)e' D$(X,Y,Z)((dX),)"/"((dY),)"/"((dZ),)s' ST#( )~'`:ZD:ZC:ZQ:ą( TX!(X!)(((X!)dX A(X!))d),)PG$"$$#####.##":PE$"$$##,###.##"+ZC:ZS: QB QB:MENU: +:+ : ZA MENU "MASTER/BAS[+ MENU +,2,6,\+,PFe*+ +v\+ "labor/bas+ZS:ZC: : ZA MM% :+ MM%  .: +ӆ+ MM% /+ MM% hB9+ +O.: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$)j.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" 1/ `m: ,: TA$()/ I : ,MM%I:: ,!(MM%): ,$(MM%): ,;(MM%): ,7(MM%)/ TA$(d):,dЊ/ p0 :UPDATE LAST CLOSE STATISTICS/ / :update salesman totals/ MM% 81o/ MM% ,:: Hq: "R",,"ARWORK/DAT": : "ARWORK/DAT":QQ$"INFORMAT/BAS":"ARWORK/BAS"/ ,: Hq/:update salesman totals/ P :open file͋/ZZ$():Z$()h/:K$"Adjusting Totals": 0: :: ();:@(,),"Clearing Totals ....":@(,), "Updating Salesman Totals ....":@(,!),"Please Wait ....";w/ J d40 `m: ,JM>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$:R0 ,J: Hq@\0Ja0 :ip0:UPDATE LAST CLOSE STATS0 MM% REC? : MM% REC@ : RECAQ0 ,:CPTR(TA$): ,:LAS(TA$): ,REC: TA$(LAS)(((,,)))(((,,)))(((,,)))(((,,)))(((,,)))(,,)(CPTR): ,RECW081: "Resetting dollar sales and dollar costs for each line ..."L1X$( ,)V1 J t1RNx(J): ,RN: TA$X$: ,RN:RNRN~1 MM% ,RN: TA$X$: ,RN11B2:print monthly salesman reportL2 P2FZ$" ## $$#,###.## $$#,###.## $$#,###.## ##### $$,###.## ###.#% $$#,###.## $$#,###.## $$#,###.## ##### $$,###.## ###.#%" 2 ();:LCB:PG%: 3 :headings,3COUNT%R13@(,),"Printing Monthly Salesman Report .....";e63 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#))WG3 YNS# YP : YPd((YSC#YNS#))yJ3 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: T37S3:LCLC: WAS MERCH ONLYcT3COUNT%COUNT%:LCLC: LC7 3i^3y`3 (,"-")c3 ();: ( )h3 :3 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"3 (,"-")3LCLC:6:CLEAR CASH DRAWERSW6 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 Hqx7F: 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):bAA,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 RN=dA ,I:IN%(TA$): IN%OI% "*** OUT OF SEQUENCE ***":LCLC:_iAOI%IN%:SAVE LAST INVOICE #wnAIA#((TA$,,))xAPS#((TA$,,))AXF$""AL: B:get 2nd rec VA 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 AoA DEL$"YES" ȯA LC3 PG%PG%:LC: K ::: A3APSA!PS#:IAA!IA#: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$,DEL$A NP% OTHEROTHERIA#AA 6B: ( )ڝA A:PRINT SALESMAN REPORT䝑A :A:PRINT HEADINGSLA ();:"INVOICE REGISTER FOR ";STN$;();;" ";;" ";"PAGE # ";PG%::A "(Totals do not include tax. An asterisk indicates a low profit invoice.)":3AHF$ "\\##### ### $$###,###.## $$###,###.## $$###,###.## $$###,###.## \ \$$###,###.## \ \ #### \ \ \ \"A"INVOICE SALES SALE SALE SALE GROSS PERCENT TAXABLE INV. ACCOUNT DEL"JA"NUMBER MAN# TOTAL SUBTOT COST PROFIT PROFIT SUBTOTAL TYPE NUMBER ACCOUNT NAME OD"\A (,"-"):sA:SALESMAN REPORTA ();:"SALESMAN REPORT FOR ";;" ";: A"SALESMAN NET SALES GROSS TOTAL AVERAGE AVERAGE CASH "rA"NUMBER SALES COST PROFIT INVOICES SALE PROFIT DRAWER"A (`,"-")AHF$ " ### $$###,###.## $$###,###.## $$###,###.## #### $$###,###.## ####.#% $###,###.##"A P :open salesman fileA L 4A 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)SA `m: ,SMR%:(SM$,%,)(IA#(L)):(SM$,),)(PS#(L)):(SM$,-,)(FI(L)):(SM$,/,)(MERCH#(L)): ,SMR%: HqYAA: "*** NOTE ***: Cash drawer amount by salesmen # does not include ROA's taken at the counter."ϣA ,c: ߣB ( ): BII: ,I: READ 2ND REC (inv reg continued)? BSM%((TA$,,)):TP%((TA$,,))WBPT#((TA$,,))BALT: (TA$,,)"A" ALT:TXAT : (TA$,,)"B" ALT:TXAT2 : TXSTB TP% TP$"CHARGE" : TP% TP$"CASH" : TP$"": B l :COMPUTE TAXFB TP% IA#  C#()C#()IA# : C#()C#()IA#B 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#( )PX'BNP%:CN%((TA$,,)): CN% (CN$,,)"CASH CUSTOMER " : ,(CN%): (CN$,,)"*" NP%*B TP% MERCH#IA# : MERCH#: USE MERCH FOR CASH++B (TA$, ,)"D" DEL$"YES" : DEL$"NO"21B J6B LC ( );R@B:jABFM$"$$,###,###.##"EB "CHARGE SALES ---------------> ";: FM$;C#()ܧFB "CHARGE SALES NON-TAXABLE----> ";: FM$;C#()C#()GB "CHARGE SALES TAXABLE--------> ";: FM$;C#()HHB "CHARGE SALES TAX -----------> ";: FM$;C#()~JB "CHARGE REFUNDS -------------> ";: FM$;C#()KB "CHARGE REFUNDS NON-TAXABLE -> ";: FM$;C#()C#(): "CHARGE REFUNDS TAXABLE -----> ";: FM$;C#()#LB "CHARGE REFUND TAX ----------> ";: FM$;C#( ))NB_TB "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$;OTHERgBhB 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":1PF:"OPENREP/BAS"M8J"READING BALANCES...";v=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 ,K.tJ (DUM$,,)"+" : J<~J I MJA!(B$(I))kJ A! A! #z JJBAL#BAL#RL(A!)JBAL#(I)BAL#(I)RL(A!)JJխJ:: " ACCOUNTS RECEIVABLE BALANCE" J " 0-30 BALANCE = $$#,###,###.##";BAL#()?J " 31-60 BALANCE = $$#,###,###.##";BAL#()tJ " 61+ BALANCE = $$#,###,###.##";BAL#()J " ------------------------------"׮J " TOTAL BALANCE = $$#,###,###.##";BAL#߮J K N:CLOSE DAILY INVENTORY(*N "R",,"CONFIG/DAT": , AS AA$H4N ,:ODATE$AA$ :NDATE$tHNZS: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: ,JXN M : (WV$(M)) WN$(M)()`N MpN ,J: HqxN JN P`mSVC,:F%: SVC (F%):HqSVC,:F%: SVC (F%):ְ:UNPACK ROUTINE氥SVC,:F% (PU$,,)UI$: SVC (F%,PU$)UO$PU$:):OPEN FILESx "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$+<IP "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$Բdl: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ÎI8ǝ 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ǃ`ǝ (<,"-"): ( ):0֑@(X,Y),()(W,())();Xւ J  H :@(XJ,YW),();:֑@(XH,Y),()(W,())();ւ J  H :@(XJ,Y),();:֎`:2/08/87{jKS$"_ABCDEFGHIJKLMNOPQRSTUVWXYZ,!#$%&'()*=-:<>?/"(")"abcdefghijklmnopqrstuvwxyz-. 0123456789-+":XSET$( )( )( )()()()()()()()()ȶ~ C$(X)((X),):K1$():K2$():K3$():K4$():KP$"_"消 ();:KL:KZ:ZC춍tKW: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$V R% ,,(,Z,,,,",T,,,\oKIKI:KP: KI KIKI:KP: : KZ KI': : (KIKI:KP: KIKX KZ : KIKI:KW: : ZKIKIKL: KIKX KZ : KIKIKL:KW: : aKIKIKL: KI  KZ KI': : KIKIKL:  : ZQ ZA:KI': :  KC KIW:KP:HT : KCKC: ƹ"KI':KP:ܹTKW:KI:KF: KV KH:KI': : KIKI:KP:70@,"POSITRAK";:@P,(P,);::@,();:@(((K$)),K$;(((K$))," ");:TM$((( ) )):(TM$,,)"W":@A,TM$;:@E," ";;" ";:D@0,();:@B,K3$(((,(PM$)))," ")PM$(((,(PM$)))," ")K4$;:~$@,();:@0,(((N(FM$)))," ")FM$(((N(FM$)))," ");: ER ();: : :2/08/87 MENU ROUTINEKN$"_123456789":KJ:FG%:FF%:KURPC:K$"_":KA(RN)PC :KJ$"" J N0KU(RJ)PC:@KU,(KN$,J,);". ";K$(J);K4$;T (K$(J)) KJ KJ(K$(J))Z 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$)X 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%)))d- (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 SCREENC@@,();:K$"DAILY CLOSE": :@(,),"RESETTING DAILY TOTALS TO ZERO FOR ENTIRE INVENTORY..";:D:CLOSE INV SCREEN̿N@@,();:K$"DAILY CLOSE": :X@(,),"Last daily inventory closeout : ";ODATE$;>b@(,),"New daily inventory closeout : ";NDATE$;l@( ,),"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: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%:K,:INFORMATION MAIN MENUy6 0:K$"Daily Closeout Procedure": :O@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": :nĤ@,"Total value of junk cores : $";:@,"Adjustment amount : $";:@,"(+ or - amount)}Į@ ,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)";}LOP: 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);Y 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,)!@U,"CASH SALES =";: PE$;ST#();:@z,A$;:@,"NON-TAX SALES =";: PE$;ST#()ST#()ST#()ST#( );&@,X$();: PE$;ST#();:@,A$;:@,STd;();"%";:@,"TAX SALES =";:@,"";: PE$;ST#();p+@,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#|0ZU: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" ]8@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$"" <HI@g,"Are you sure ? (Y/N)";^NZU:KF:KA|mP 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$::4 "\ \ TOTALS THROUGH \ \ \ \ INVOICE NUMBER #####";T1$,,,IV% " SINCE \ \ \ \ INVOICE NUMBER #####";LD$,LT$,LI%: "(SALES TOTALS ARE NET)": K ::: ST#() BCST#(K)FT!: BC F BCF : : BC^ BC  ();"!1";: XXX BC: ();:: "####.#%";ST#(K)ST#()d : (,"?") "$$##,###.## ";ST#(K);: X$(K);: K :::(ST#()) BCST#(K)FT!: BC H BCH4 BC  ();"!1";: XXX BC: ();:: "####.#%";ST#(K)ST#()d : (,"?")^ "$$##,###.## ";ST#(K);: X$(K);h::::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#()g ) ();"!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 drawersQՉ@@,();:K$"Cash Drawer Management": :lՓH:W?:X:Y: ՘@(,),"Drawer # R.O.A. Sales Total Last Clear ";:՚DI$" ## $$#####.## $$#####.## $$#####.## \ \ \ \"S֝ I :RI:@(R,), DI$;I,DROA!(I),DCA!(I),DROA!(I)DCA!(I),DDT$(I),DTM$(I);Yֱ֢@(,),();: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 @ DO J : P::  Y 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 Q J  P:  :