%NOLIST

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

%LIST