"STARTING ALTPOS":altpos/bas 8/28/06 more mem, varptr fixed, a tax rate, REPRINT /w debugs AND SAVE w/ mods for roa #9 at 60600YSC$" >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" ::F!:MZ%:"OINVOICE/SPCÅ' AZ:SVC,' 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$(, )u}' 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$,()))~'ZQ:D1$"DEFECT EX.":D2$"DEFECT REF":IB:II:IXᇴ( TX!(X!)(((X!)dX A(X!))d)T ) "opening files": :H6$"###|####|\ \\ \|\ \|####.##|####.##|####.##|#####.##|"u!)"files opened successfully"6)H7$" $$#####.## $$##.## $$#####.## ":PB$"######.## ######.## ######.## $$#####.##":PG$(H7$,, ):PF$"####.## ####.##"K.:IF F!=2 THEN OT=2:GOSUB 14900:CN$=FNC$(CN):RD=-1:ZS=4:RS=0:GOSUB 63000:X=OI.:IF F!=2 THEN IX=OI:ZS=7:RD=-1:GOSUB 63000:RD=0:F!=2:GOTO 14005‰2F!:OT: :: F! 2 : F! .K6ZS:ZC: : ZA F! : F! II g: DG$ : F! :Q1::: g:MZ%:"ar/bas": HT F!: F: 2v6 F! R,:,8J,hB,DH, ,,@6 IIc  : MX: $Ŋ6 F! F! 2 : F! .ϊ6 6犤8(VR$,,d)(d)n8(VR$,N,)" ":(VR$,B,)IS$:(VR$,L,)(NP): COM (VR$,N,)"C":(VR$,,7)WN$: 8 : DS! (VR$,N,)"D" 8(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)w8B: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$):Dl9B: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!5{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,)):9B: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)D9(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$,\,))H:HC((VR$,6,)):RT!((VR$,.,)):PT!((VR$,],)):PN!((VR$,a,)): HC CA : CA$M: CN ,(CN):FOR CT8$*R:4: X> `m: CT8$"T" TR : TRg> QT @w>CJ!: ,> J II::LPRINT J;ؒ?KJ: l9:RNW1:IW2:CJ!CJ!IQWC!::LPRINT WP$,W1;W2:LPRINT? RN RNMR ? ? ,RN0?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)4?( D1) WY$(I)((WY$(I))IQ): IQ JU$(I)(JU)9? ,RNE? (W1) (W2) IQ ? MC MC (F$,"LAB") IQ CN : ? : ??WJJ!WJ!: RN v? :WJ!WJJ!!? 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?PS!PS!CR!CO!: CN t@? TR @3? PC :KPC: CA POK: POK_? ,PO: TA$((TA$)PT!PN!): ,PO? CA ,PO: TA$((TA$)PX!): ,PO : ,PC$: TA$((TA$)PX!): ,PC$? ,K: TA$((TA$)PS!): ,K?? ,K: TA$((TA$)(LB!)): ,K: ,PC;: TA$((TA$)CJ!): ,PC;? TX! (TX!)(ST!) KK : (TX!)(AT!) KK : KPC7 : ?Η? ,K: TA$((TA$)(PT!)): ,K ? PC::LPRINT "TAX RATE=";TX!;ST!;AT!:LPRINT CHR$(12)? @@ F2@ Hq:J(""):At@ CA @m{@ GT! GT!GT!Qs: GT!GT!Qs~@GT!RL!(GT!):YY!GT!:  @ GT! J$(): J$()@ TA$(CN)(IN)((GT!))(X)(((,,)))(((,,)))J$@ ,REC: ,!Q@ REF ,REC: TA$IN$:(TA$, ,)(): ,REC@ ,(CN): A1$((A1$)PT!PN!): A2$((A2$)PT!PN!)@ CA BO$((BO$)IA!)@ MR$((MR$)(CR!)): YR$((YR$)(CR!)): MP$((MP$)CO!): YP$((YP$)CO!)M@ NZ$((NZ$)PS!): NY$((NY$)PS!)`@ ,(CN):@ ,d:RN(TA$): RNd RNw RNe@ TA$(RN): ,d: ,RNښ@YY!RL!(PT!PN!):XW!YY!:  :KX#@YY!RL!(PT!PN!CJ!FT!):ZY!YY!:  :ZX: DE DE$"D": DE$" "?@YY!RL!(PS!):  :JXW@ CA TP : TPA TA$(IN)(SM)(TP)((XW!))(K)((YY!))(J)ΛA TX!AT! X$"A": TX!AT2! X$"B": X$" "A TX! PT!A ,RN:YY!RL!(PT!):  :JXSA TA$((YY!))(J)(CN)X$((ZY!))(Z)DE$: ,RN: ,!:lhBZS : : ZA rBKF!:F!: l9:IQIQ: : (WD$,D2$) (WD$,"\BUY") W1:W24|BCOM:WD$"* DELETED *":IS$"D":IQ: 8: KIB KIX JKIB:@(J,),"";: H6$;K;IQ,F$,WP$,WD$,WC!,WL!,K!,;@B :[F g: F! TP$""F@,K4$;:ZS:ZC: :CC1$"":CS1$"":CI1$"":OI:RF:YN$"Y": CT8$" ":IN$"":CN$"":PA!:RT!:PT!:PN!:IX:II:*DH F! TP$"OE" RF N ::F!:MZ%:"OINVOICE/BAS": RF:gIHTP$"": II F: : ::F!:MZ%:"OINVOICE/BAS8J IXIB IXII:RD:ZS: =J IXIB IXII:RD:ZS: ߞBJIQ:Y1$"Y":ZS : : ZA T`JNP:IS$"N":IT(Y1$"Y")(TX!):K!WD!: :F$P1$:WP$"*"P2$:W1:W2:KII:IIII: 8:ZS:ZC: yeJ (P1$,L1$) 8:KII: 8jJ,LDS!(WN$): DS! (PT!PN!) ZA: : K!(DS!d)(PT!PN!RT!):WP$"":F$"":WD$C$(DS!)"% DISCOUNT":WL!:WW!:WC!:IQ:W1:W2DS!:MC: N A$() IB : JIB : J J:KJ: KIX KIX : IXK : KJ:IXK : *N%NIBJ:ZS:SH:RD: :SH:*N IXII II : KIX : KII JII:KII:IXK : JK:IXK!/NSH:IBJ:RD:ZS: :SH:WN SH : RD : ((IIIB) ) : IXIIzNRD:JIX:KIX: J JNIBJ:POK: SN SN : SNڡP(VR$,,)(SN):B:O N:F: SVC(F,B,O,VR$)P 4::(TP$"OP" TP$"OE") OI : F:SM:F!:#(PF!:dR II @: >::GOSUB 18500:RETURN ELSE F!=0:RETURNUYR(JI6): ((YR))(YR) MO() : MO()UMOJI(YR6): K  : MOMO(K) : MOMOMO(K):V MO K :MO:YRYR' VYRYRQ: YRc YRYRdYVJYR$S$(C$(YR)): "##/##/\ \";K,MO,JYR$;:aB:F :O0uMXd:(VR$,,d)(d): SVC(F,B,O,VR$):eF: SVC(F):g RF RF֣gF: SVC(F,RF):`mF: SVC(F):HqF: SVC(F):+0uM1MC:F2: SVC(F,M1,WN$): F FO:X:uFO:W1F:W2M1:IM1: ,W1:UI$WP$(W2)u :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 : UPCfvWM(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$, ):F:(PU$,, )UI$: SVC(F,PU$):UO$(PU$,(PU$" "," ")):Ϧ"R",,"INV120/DAT"::F=51:CALL SVC(F) , AS LB$, AS DB$:"inv opened" 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)p ,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)x IӨ"R",,"ITEM/DAT", : , ASTA$: , AS SA$, AS CO$: ,:JU(TA$):"item opened"⨺MR()"R",,"CONFIG/DAT": , AS AA$8 J : ,(J) AS DU$, AS P$(J):s J : ,(J) AS DU$, AS B1$(J), AS M1$(J): , 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)( ),, ):b , : I :BC(I)(B1$(I)):PF!(I)(M1$(I))::PF!() , :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$F@ II FP$E CN CAJPZ((II) ):RT!:JL:PG:MII:IC:GT!: M M :ICO 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"(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$W4L(A$):(VR$,,L)A$7B:O&:F: SVC(F,B,O,VR$):A$"CPRINT @@9901"; "*****into cprint";SPN! OR PT!<>SPT! THEN ELSE RETURNܠ K ::α栝 (<,"*")Ա  )"ABOVE INVOICE FAILED AND DID NOT UPDATE!!!"2  )"PLEASE REBILL INVOICE #";IN\ "PN, PT, SPN, SPT";PN!;PT;SPN!;SPT!l (<,"*") K ::"Ȳ8ZS: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!))7B:F!: SVC(F,B,BU$):MX: $: ˋ 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!ώlϋ TC!  TX! PTY!RT!:PNY! : PNY!RT!:PTY!qP!PT!PN!RT!:PT!PT!PA!(PT!PTY!)P!:PN!PN!PA!(PN!PNY!)P!:JMX: $:FL:ALT:AK!WE:RK(AK!):RIAK!(RK)l ,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$Ӌ 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) : ALNn"ӑ ();:X$" "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";mK(SC$):ADR!(K)(K): ADR!(B$):SWAP INTO HOTLINKù "*****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:"e: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!dF!(VR$)::LPRINT"CHOICE=";F!:PRINT"****";F!;"*****"'WHAT DID THEY CHOOSE?» F! 4::SPN!PN!:SPT!PT!: @:"PRINTING COMPLETE": >:"UPDATING COMPLETE":  F! QT:: 4::SPN!PN!:SPT!PT!: @:"PRINTED QUOTE":: F! FP$:"REPRINTED TICKET"::REPRINTV F!  ::SAVE: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 F! AP#((VR$,7, )):DP!((VR$,A, )): 4:j F! :Q1:MZ%:"AR/SPC "FELL THRU LOOP! F!=";F!;"***":$ͽ4 31,28,31,30,31,30,31,31,30,31,30,31彄MX:ER: $: