:AR2CSV/BAS exports customer data to comma delimited file 1/28/2009 ADDED CT1-CT8 Y/N PARAMETERS 1/29PU$"#####.##"Ä "R",,"AR2R/DAT"ք ,  AS DR$"O",,"AROUT/CSV" #,"Cust#"",""NAME"",""ADDRESS"",""CITY STATE ZIP"",""PHONE"",""CURR"",""30-60"",""OVER 60"",""CASH ONLY"",""TAXABLE"",""STATEMENT?"",""SVC CHARGE?"",""BAL FORWARD"",""WKLY OR MTHLY"",""PO REQD"",""ACCT UTIL CODE"( K () &2 ,K: K;(K);: u: (DR$,)97 VOID S: #,((K))",";e< #,CN$",";wF #,CS$",";P #,CC$",";Z #,CP$",";d #, PU$;B0#;i #,",";цn #, PU$;B3#;߆s #,",";x #, PU$;B6#;} #,","; #,CT1$; #,",";- #,CT2$;; #,",";J #,CT3$;X #,",";g #,CT4$;u #,","; #,CT5$; #,","; #,CT6$; #,","; #,CT7$;̇ #,",";ڇ #,CT8$" "REPORT COMPLETE...": u:=uFV(DR$,","): FV (DR$,FV,)" ": ugv (DR$)+ "DELETED":VOID:rvVOID vCN$(DR$,,)vCT1$(DR$,,): CT1$"C" CT1$"Y" : CT1$"N"ՈvCT2$(DR$,,)vCS$(DR$,,) vCC$(DR$,8,)*vCP$(DR$,Q, )`Rv:JI=CVI(MID$(DR$,105)):GOSUB 22000:LP$=CAL$:AR#=CVS(MID$(DR$,107))y\vSP!((DR$,q,))fvSY!((DR$,u,))pvPP!((DR$,y,))ĉzvPY!((DR$,},))݉|vB0#((DR$,],))~vB3#((DR$,a,))vB6#((DR$,e,))Dv:CE%=ASC(FUT$):B9#=CVI(MID$(FUT$,2))+(CE%/100)XvBS#B0#B3#B6#qvCL!((DR$,,))vCT3$(DR$,,)vCT4$(DR$,,)vCT5$(DR$,,)vLCD$(DR$,,):LCP$(DR$,,):LPL$(DR$,,)0vLCD2$(DR$,,):LCP2$(DR$,,):LPL2$(DR$,,)\vM2((DR$,,)):M3((DR$,,))vCT6$(DR$,,):CT7$(DR$,,):CT8$(DR$,,)vLINK((DR$,,))ƋvFX$(DR$,,)ՋvFUT1$FUT$苬v:GOSUB 30400vv:v ADD v!v ,():DR2$RD$8vCN2$(DR2$,,)PvCC2$(DR2$,,)hvCP2$(DR2$,6, )vCPO$(DR2$,B,)vCT9$(DR2$,V,)vCID$(DR2$,X,)ʌvLYS!((DR2$,l,))vLYP!((DR2$,p,))vLYC!((DR2$,t,))vLMS!((DR2$,x,))6vLMP!((DR2$,|,))QvLMC!((DR2$,,))W#w