%NOLIST

	REMARK **********************************
	REMARK * WRITE VENDOR FILE RECORD  12/78*
	REMARK **********************************

3250	PRINT #Y9,X0;W1$,D,Y(1),Y(2),P9,M$(2),M$(3),M$(4),M$(5)
	RETURN

%LIST