%NOLIST

	REMARK	*********************************************
	REMARK	*   READ CUSTOMER FILE RECORD    12/1/78    *
	REMARK  *********************************************
3225	READ #Y9,X0;W1$,D,Y(1),Y(2),P9,M$(2),M$(3),M$(4),M$(5)
	RETURN

%LIST