%NOLIST

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

%LIST