SUB PUT.N (C%,B$)
	{FCSCOM.B4S}
	CALL C. (C%)
	CALL ADR BY REF (B$,BUFADR%)
	CALL FCSPUT BY REF (FDBADR%(C%-.ZERO.CNL%),BUFADR%)
	SUBEND