CI:AROC.BAS, A/R OPEN CREDIT RECONCILIATION, SSM, 1/28/79 REV. AR CP/M 2.1, 3/01/79uI  :COPYRIGHT 1979 RETAIL SCIENCES INC.I AZ: IPN$"OPEN CREDIT RECONCILIATION"I dI"A:AROC.BAS": I : MONTH DATA J -1,30,59,90,120,151,181,212,243,273,304,334.J: FIELD POSITION IN MASTERXJ 6,24,24,24,10,1,4,4,4,2,2,4,4,2,4,4zJ': FIELD POSITION IN EXTENTJ( 6,2,2,8,13,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,2,4Jd P: @: hKe: Q$"DO YOU WISH A CONTROL REPORT": X: CRYESKf CR : ]Ki: Q$"WHAT DATE IS TO BE USED FOR THESE TRANSACTIONS? ": }Kj ,: II$R$: 1: TDNNKn: Q$"SHOULD RECONCILIATION BE DONE FOR ALL ACCOUNTS": XKsKx YES ,K: FOR PARTICULAR ACCOUNTL ': RL .:  L :L+: FOR ALL ACCOUNTS[L,OP: `: ER tL6 A$()"B" .~L@ ,L': QUERY CUSTOMER ID & VERIFYL': Q$"WHAT IS THE CUSTOMER ID? "L' 8: RL : KE$R$: OP: `6M$' ER "*** INVALID CUSTOMER ID - PLEASE RE-ENTER": '