e:JCONAR/BAS B&W READS ACCT# FROM FILE, W/ TAX ID#wK:CU:CN"R",,"ITEM/DAT", : ,  AS TA$ "R",,"AR2R/DAT"Ƅ , AS A$ڄ"I",,"AR/TXT"# B$()( #, B$():: (B$(),)"CUS #:" (/2  :GET FIELDSJ< :INSERT ACCOUNTT (ZgGOOD  (B$) GOOD: (B$,)"---" GOOD: (B$,)" " GOOD: (B$,)"SUMM" GOOD: (B$,)"COO" GOOD:" (B$,)"OPT" GOOD:C (B$,)"TOTA" GOOD:d (B$,)"CUST" GOOD:$ (B$,)" NUM" GOOD :) (B$,)"*** END" :" PROCESS COMPLETE":.Ɔ8KCN: K : NN$,CN, CN$ ,K:CUCU(A$,,)(,):(A$,,)(,d):(A$,,)():(A$,,)(d):(A$,,)(,):(A$,,)(,)(A$,,)"+"(A$,,)CT1$:CASH ONLY?·(A$,,)CN$(A$,,)CS$(A$,8,)CC$ (A$,Q, )CP$K(A$,],)(B0!):(A$,a,)(B3):(A$,e,)(B6)(A$,,)CT2$:(A$,,)(CL):(A$,,)CT5$(A$,,)CT7$:(A$,,)CT8$(A$,,)"YY"(A$,i,)():(A$,,)"M"  ,K "  :2ND RECORD IN AR$3 B0!B3!B6! t4 ,:RN(TA$):(TA$,,)(RN): ,: ,RN: "UPDATING ITEM DAT";RN9B0!B0!B3!B6!։> B0! MX((B0!nw)(B0!))d : MX((B0!nw)(B0!))dd)H TA$(CN)()((B0!))(MX)(((,,)))(((,,)))MX$;R ,RN: ,!A\GfS ,Kh (A$,,)CN2$~ (A$,,)CC2$ (A$,X,)CID$" " ,K ۊ K  : #,B$(K):ꊽ :CN=CN+1 NN$(B$(),,)Q (NN$) (NN$) CN(NN$):"KEEPING "; : CNCN: "NEW ACCT#"h CN$(B$(),,) CP$(B$(),, ): (CP$,,)")" (CP$,,)"-" TERM$(B$(),H,): "TERMS=";TERM$: TERM$"1" CT1$"C": "CASH ONLY" : CT1$" ": "CHARGE OK"9 CS$(B$(),,):USE 10 FOR BILL TOe CC$(B$(),,):USE 11 FOR BILL TO B0!((B$(),1,)): (B$(),9,)"-" B0!B0!ߌ B3!((B$(),1,)): (B$(),9,)"-" B3!B3! B6!((B$(),1,)): (B$(),9,)"-" B6!B6!Y B9!((B$(),1,)): (B$(),9,)"-" B9!B9! B8!((B$(),1,)): (B$(),9,)"-" B8!B8! B6!B6!B9!B8! CN2$(B$(),,)ۍ CC2$(B$( ),,) (B$( ),,)"N" CT5$"Y" : CT5$"N":BalFor=y/n= CID$(B$(),L,):TAX ID #b CT7$(B$(),):PO REQUIRED (B$(),#,)"N" CT8$" " : CT8$"R": REBATE ACCT :STOPɎ CL((B$( ),1,)) CT2$(B$(),H,): CT2$"A" CT2$"Y":TAX STATUS Y/N/A/BA CN;CN$;CS$: CC$;CP$: B0;B3!B6!: CN2$;CS2$:GMf #,B$(): B$()l}"JCONAR/BAS