I:ARET.BAS, A/R ENTER TRANSACTIONS, SSM, 2/06/79 REV. AR CP/M 2.2, 3/29/79J  :COPYRIGHT 1979 RETAIL SCIENCES INC.(J AZ: EJPN$"ENTER TRANSACTIONS"OJ ddJ"A:ARET.BAS": xJ : MONTH DATAJ -1,30,59,90,120,151,181,212,243,273,304,334J: FIELD POSITION IN MASTERJ 6,24,24,24,10,1,4,4,4,2,2,4,4,2,4,4K': FIELD POSITION IN EXTENTOK( 6,2,2,8,13,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,2,4iK1: EXTENT NAME DATAK2 "CUSTOMER ID","TRANS. DATE","DUE DATE","INVOICE NUM.","TERMS OR REF"K3 "CODE (0-9)","G/L FLAG","SALES","FREIGHT","TAXES","SER. CH."@L4 "MISC. DB"," TOTAL DB","PAYMENTS","CREDITS","RETURNS","DISCOUNT"vL5 "MISC. CR"," TOTAL CR"," TRANS. BALANCE"Ld P: @: hLx:Q$"DO YOU WISH A CONTROL REPORT": X: CRYESL CR : 3M: Q$"ENTER DATE OF TRANSACTIONS: ": : ,: ED$R$: II$R$: 1: EDNNrM: ASSUME NET 30 FOR DEFAULT DUE DATE AND AUTO BILL DATESMDD#: : T$II$II$II$II$II$II$: TT$()II$: DF$" "(ED)(ED)" NET 30 0 " T$T$II$TT$TT$N #,a AS BF$: IN$"0": cN "AUTOMATIC BILLING TRANSACTIONS WERE LAST ENTERED ON ";(OC$,)NQ$"DO YOU WISH TO RE-ENTER AT THIS TIME": X: YES .NDT$ED$: DTED: KE$"": TT$"S"OO, SC$: "*** ENTER TRANSACTION ***": : );"NAME";);"DEFAULT";@);"VALUE": (,"-"););(,"-");7);(,"-"){O- N$(););": ";KE$;5);": ";: Q$""O. 8: RL : . : RL KE$R$O/OP: `: ER : . : TX(A$()): MROSP0DR#: CR#: S#+P1 N$(););": ";DT$;5);": ";pP2 : RL DT$R$: II$R$: 1: DTNN : DT$ED$: DTEDP4 N$(););": ";5);": ";P5LB!: UB!#t: : IN!(N!): IN$(" "(IN!),)" ": IN! N: ;'Q8 "SALE, PAYMT, OR OTHER";);": ";TT$;5);": ";DQ9 8: RL TT$RL$Q: TT$"S" N : TT$"P" N : TT$"O" N : : 9Q;OSOL: OP : `: ER% IN$B$() ;R< ER IN$B$() DT(B$()) OSOL: OP : `: <VR>OLOS: OP : `: BF$DF$: B$()KE$: B$()IN$: B$()(DT)lR? N t',',<(R@: Q$"ARE THESE FIELDS CORRECT": X: YES (R$) E : OP : `: ,RE DR# B$()B$(): B$()B$( )(SF CR# B$()B$(): B$()B$().!d N#G.xʴ8}![ Gx8ƀw7c9w+8/67A9x7Gz6![ 47:[ :Z /<![ Op#6698<ʈ