R:altpos/bas 5/22/06 NEW LAYOUTSC$" >y":K(SC$):ADR(K)(K):L1$"LAB":VR$(d): F!,Q1,RF,SN%,MZ%,WP$,CN%,AP#,DP!:TM%(( ) ):FP$"COPY"(TM%)"/DAT @PR": '. II : g:::F!:MZ%:"OINVOICE/BAS"P ::F!:MZ%:"OINVOICE/SPCa' AZ:SVC,8' W0$(),W2$(),W4$(),W5$(),W6$(),W8$(),WC$(),WD$(),WE$(),WF$(),WH$(),WK$(),WM$(),WN$(),WO$(),WP$(),WR$(),WS$(),WU$(),WW$(),WV$(),WX$(),WY$(),AM$(),AP$(),KS$(),P$(),PD$(),M1$(),MO( )^[' K  : MO(K)::PU$(, )}' T!(X$)(X$)((X$,))((X$,))((X$,)): S$(X$)("00"X$,): A!(X!)(X!(X!))d: RL!(X!)(((X!)d\(X!))d): E$(X$)(X$,(X$,()))N~'ZQ:D1$"DEFECT EX.":D2$"DEFECT REF":IB:II:IX( TX!(X!)(((X!)dX A(X!))d) ) :H6$"###|####|\ \\ \|\ \|####.##|####.##|####.##|#####.##|"c6)H7$" $$#####.## $$##.## $$#####.## ":PB$"######.## ######.## ######.## $$#####.##":PG$(H7$,, ):PF$"####.## ####.##". F! OT: 4::CN$C$(CN):RD:ZS:RS: :XOIֈ. F! IXOI:ZS:RD: :RD:F!: 62F!:OT: :: F! 2 : F! .6ZS:ZC: : ZA F! : F! II g: DG$ : F! :Q1::: g:MZ%:"ar/bas": HT F!: F: 26 F! R,:,8J,hB,DH, ,,@މ6 IIc  : MX: $ 6 F! F! 2 : F! .6 6,8(VR$,,d)(d)8(VR$,N,)" ":(VR$,B,)IS$:(VR$,L,)(NP): COM (VR$,N,)"C":(VR$,,7)WN$: 8 : DS! (VR$,N,)"D" P8(VR$,,)F$:(VR$,,)WP$:(VR$,,)WD$:(VR$,%,)(IQ):(VR$,',)(WW!):(VR$,+,)(WL!):(VR$,/,)(K!):(VR$,3,)(WC!)8(VR$,7,)(IT):(VR$,9,)(W1):(VR$,;,)(W2):(VR$,C,)(MC)8B:OKdSN'[8F: SVC(F,B,O,VR$):VS$(II):OSN'V: SVC(F,B,O,VS$):VS$(PT!)(PN!):OSN']: SVC(F,B,O,VS$):VS$(RT!):OSN'.: SVC(F,B,O,VS$):l9B:OKdSN':F : SVC(F,B,O,VR$)*v9NP((VR$,L,)):IS$(VR$,B,): (VR$,N,)"C" COM:WP$"COMMENT":WC!:WL!:K!:W1:W2:MC:WJ!: : (VR$,N,)"D" DS! : DS!z{9COM:F$(VR$,,):WP$(VR$,,):WD$(VR$,,):IQ((VR$,%,))#9WJ!((VR$,',)):WL!((VR$,+,)):K!((VR$,/,)):WC!((VR$,3,)):IT((VR$,7,)):W1((VR$,9,)):W2((VR$,;,)):MC((VR$,C,)):a9B:OSN':(VR$,,d)(d): TP$"OE" TP$"OP"!9(VR$,,)TP$:(VR$,,)(RF):(VR$,,)CI$:(VR$, ,)(CN):(VR$,", )CP$:(VR$,7,)YN$:(VR$,8,)IN$:(VR$,X,)(TX!):(VR$,\,)(SM):(VR$,V,)(II)9(VR$,],)(PT!):(VR$,a,)(PN!):HC(CN CA):(VR$,6,)(HC):(VR$,.,)(RT!)9F: SVC(F,B,O,VR$):͏4:B:OSN':F : SVC(F,B,O,VR$)9: VR$(d,) "VR$ WAS BLANK - RESTARTING":: don't print the dup֐>:TP$(VR$,,):RF((VR$,,)):(CI$,)(VR$,,):CN((VR$, ,)):(CP$,)(VR$,", ):YN$(VR$,7,):IN$(VR$,8,):OI((VR$,V,)):IIOI::SM((VR$,\,))DH:HC((VR$,6,)):RT!((VR$,.,)):PT!((VR$,],)):PN!((VR$,a,)): HC CA : CAiM: CN ,(CN):FOR CT8$oR:y: > `m: CT8$"T" TR : TR> QT @>CJ!: ,ڑ> J II::LPRINT J;?KJ: l9:RNW1:IW2:CJ!CJ!IQWC!::LPRINT WP$,W1;W2:LPRINT6? RN RNMR ?A ? ,RNu?D1: (WD$,D1$) D1 : (WD$,D2$) ?͒ ?(IS$"O" RF N) (F$,"MIX") (WD$,"\BUY") WH$(I)((WH$(I))IQ)'?(IS$"O" RF N) (WD$,"\BUY") WN$(I)((WN$(I))IQ)W4?( D1) WY$(I)((WY$(I))IQ): IQ JU$(I)(JU)b9? ,RN? (W1) (W2) IQ Γ? MC MC (F$,"LAB") IQ CN : ? : ?꓏?WJJ!WJ!: RN v? :WJ!WJJ!f? TR ? : MC MC SA!RL!(IQK!IQWC!):LC!RL!(IQWJ!IQWC!):RXx(MC): ,RX? MC MC SA$((SA$)SA!): CO$((CO$)LC!): ,RX:RXRX: ,RX: SA$((SA$)SA!): CO$((CO$)LC!): ,RX: ,? J:LPRINT WJ!,K!,WL!:NEXT J::GOSUB 18500:RETURN ELSE F!=0:RETURNuUYR(JI6): ((YR))(YR) MO() : MO()UMOJI(YR6): K  : MOMO(K) : MOMOMO(K):աV MO K :MO:YRYR VYRYRQ: YRc YRYRd'VJYR$S$(C$(YR)): "##/##/\ \";K,MO,JYR$;:gaB:F :O0uMXd:(VR$,,d)(d): SVC(F,B,O,VR$):{eF: SVC(F):g RF RFgF: SVC(F,RF):`mF: SVC(F):ʢHqF: SVC(F):0uM1MC:F2: SVC(F,M1,WN$): F FO:&:uFO:W1F:W2M1:IM1: ,W1:UI$WP$(W2)Qu :WP$UO$:WN$UO$:UI$WD$(I): 4vWD$UO$:WH(WH$(I)):WR(WR$(I)):WS(WS$(I)):WO(WO$(I)):WF(WF$(I)) 9v (F$,"UPC") (WP$,,)"." WN$(WD$,, )():F$(WD$,,):KF:KX:UPC : UPCMfvWM(WM$(I)):WC$WC$(I):WY(WY$(I)):WX$WX$(I):JI(JU$(I))vWK(WK$(I)):WE(WE$(I)):WN(WN$(I)):WC!(W8$(I))vWW!(WW$(I)):WJ!(W0$(I)):WS!(W2$(I)):WD!(W4$(I)):WU!(W5$(I)):WL!(W6$(I)):*F:(PU$,,)PI$(, ): SVC(F,PU$):PO$(PU$, ):qF:(PU$,, )UI$: SVC(F,PU$):UO$(PU$,(PU$" "," ")):"R",,"INV120/DAT"::F=51:CALL SVC(F) , AS LB$, AS DB$ǥ I  ,IxASDUM$,ASWV$(I), ASWP$(I), ASWD$(I),ASDUM$,ASWC$(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)0 ,Ix[ ASDUM$,ASWM$(I),AS JU$(I),ASWH$(I),ASWN$(I),ASWY$(I),AS WT$(I),AS WL$(I),AS WA$(I),ASWK$(I),ASDUM$,ASWE$(I)8 I"R",,"ITEM/DAT", : , ASTA$: , AS SA$, AS CO$: ,:JU(TA$)MR()"R",,"CONFIG/DAT": , AS AA$ J : ,(J) AS DU$, AS P$(J):$ J : ,(J) AS DU$, AS B1$(J), AS M1$(J):P , AS S1$, AS S2$, AS S3$, AS S4$DG$"MASTER/BAS":AD:CM:PD:PP:ML:UQ$"."Ш ,: I :PD$(I)E$(P$(I)):PD$(I)(PD$(I)( ),, ): , : I :BC(I)(B1$(I)):PF!(I)(M1$(I))::PF!()U , :ST!(S1$)7m:AT!(S2$):TC!(S3$):AT2!(S4$){# ,:PR$(AA$, (TM) ,)( 2"R",,"AR2R/DAT"ԩ4 , ASDUM$, ASCN2$, ASDUM$, AS CP2$, AS CPO$7 , AS ZZ$, AS CI$, AS KK$, AS CT$, AS CS$, AS CC$, AS CP$, AS BO$, AS B3$, AS B6$, AS LP$, AS A1$, AS A2$, AS A3$, AS A4$, AS CL$, AS CODE$, AS MT$, AS DP$, AS DM$.< , AS DUM$, AS DMN$, AS MR$, AS MP$, AS YR$, AS YP$, AS NZ$, AS NY$, AS DUM$, AS CT7$, AS CT8$, AS COD2$, AS MUL2$, AS DMN2$4FG@ II FP$ZE CN CAJPZ((II) ):RT!:JL:PG:MII:IC:GT!: M M :ICBO F! ,!: `m: ,:IN(TA$): QT TA$(IN): ,: ,!: IN IN: TA$(IN): ,: ,: TA$((TA$)): ,: ,`QREF: (IN$) REFR CA F! QT ,:REC(TA$): TA$(RECREF): ,: ,ѬTPQ:PGPG: Hq: FL$"PRE"N(A$"SC="((SN),)" NOTAX P=OKI RA="((TX!),)" T="FL$" FILE="((TM%),)"/DAT"" I="((IN),)()- QT A$"QU=Y "A$ : CA A$"CA=Y "A$1 TC!  TX! A$"CO=Y "A$3 CN (CI$,)"CASH" A$"MNAME="(")CI$(")" "A$4L(A$):(VR$,,L)A$>7B:O&:F: SVC(F,B,O,VR$):A$"CPRINT @@9901"Y; "*****into cprint";SPN! OR PT!<>SPT! THEN ELSE RETURNoܠ K ::栝 (<,"*")  )"ABOVE INVOICE FAILED AND DID NOT UPDATE!!!"  )"PLEASE REBILL INVOICE #";IN "PN, PT, SPN, SPT";PN!;PT;SPN!;SPT! (<,"*")0 K ::6"y8ZS:ZC: :W1:W2MN: MN @(IIIB, ),C$(MN);=ǎ ,:RN(TA$)YY!K!IQ:  / TA$(W2)(CN)(IN)((YY!))(X)(((,,)))(((,,))): ,RN: ,!:RNRN: TA$(RN): ,: ,!:BU$"V"(MC)(WP$, )(CN)(IN)(IQ)((K!))(A!(K!))(A!(WC!))(((,,)))(((,,)))(WJ!)((WC!))B:F!: SVC(F,B,BU$):MX: $:4 ˋ YY! X((YY!nw)(YY!))d : X((YY!nw)(YY!))dd:*ˎϋ DS! WC! PA!RL!(IQWC!):RT!RT!PA!:((IQ TC! )(IQ TC! )) TX! IT PT!PT!PA! : PN!PN!PA! ,ϋ IQ PA!RL!(IQK!): DS! ((PT!PN!RT!)) l : IT TX! PT!PT!PA! : PN!PN!PA!2ώnlϋ TC!  TX! PTY!RT!:PNY! : PNY!RT!:PTY!qP!PT!PN!RT!:PT!PT!PA!(PT!PTY!)P!:PN!PN!PA!(PN!PNY!)P!:MX: $:FL:ALT:AK!WE:RK(AK!):RIAK!(RK) ,RK:RB$(DB$,xRI,x)ӂ J :MF(J)((RB$,(J),)):UI$(RB$,(J), ):KY(J)((RB$,(J),)): :AP$(J)UO$:ֵOMCMF(J): OMC AM$(J)"":AP$(J)"" : :AM$(J)SS$5Ӌ KY(J) AK!KY(J):RK(AK!):RIAK!(RK): ,RK:AQ(J)(WH$(RI)): AQ(J);Ӄӂ J :@(J,-),K8$;"(";(J@);") ";AM$(J);AP$(J);: KY(J) @(J,E),"QTY=";AQ(J);ͶӃ:@(,-),K8$;" ITEM # : ";();A$: A$""  : ALN("ABCD",A$): MF(ALN) : ALN"ӑ ();:LX$" "F$:Z:F: SVC(F,X$,Z):MCZ: F:SS$():ZOMC: SVC(F,Z,SS$):SS$(SS$,):x YN$"N" PN!PT!PN!:PT!B$"HOTLINK2"ٷ "*****into hotlink";K(SC$):ADR!(K)(K): ADR!(B$):SWAP INTO HOTLINKt "*****return from hotlink";:swapped back from hotlink with invoice or other B:O&SN':F : SVC(F,B,O,VR$)::PRINT VR$и:LPRINT "tax info to follow:":LPRINT "***";MID$(VR$,65,4);"***":LPRINT:LPRINT MID$(VR$,75,4)\:LPRINT ABS(VAL(MID$(VR$,65,4))):PRINT ABS(VAL(MID$(VR$,75,4)))ù (((VR$,A,))) TX!ST! : (((VR$,K,))) TX!AT!::LPRINT "ALTERNATE";AT!F!(VR$)::LPRINT"CHOICE=";F!:PRINT"****";F!;"*****"'WHAT DID THEY CHOOSE?s F! 4::SPN!PN!:SPT!PT!: @:"PRINTING COMPLETE": >:"UPDATING COMPLETE": F! QT:: 4::SPN!PN!:SPT!PT!: @:"PRINTED QUOTE": F! FP$:"REPRINTED TICKET"::REPRINT F!  ::SAVE1:IF F!=9 THEN LPRINT MID$(VR$,2,10)^:LPRINT "GROSS=";VAL(MID$(VR$,55,10));:LPRINT "PERCENT=";VAL(MID$(VR$,65,10));:LPRINT "AMT=";VAL(MID$(VR$,75,10)); F! AP#((VR$,7, )):DP!((VR$,A, )): 4: F! :Q1:MZ%:"AR/SPCB "FELL THRU LOOP! F!=";F!;"***":HN$T~4 31,28,31,30,31,30,31,31,30,31,30,31MX:ER: $: