SUB PUTS. (C%,B$,L%,N%)
	{FCSCOM.B4S}
	CALL C. (C%)
	CALL L. (L%)
	CALL N. (N%)
	CALL ADR BY REF (B$,BUFADR%)
	.DEFINE .F.RSIZ%=2%
	CALL WORDAT (FDBADR%(C%-.ZERO.CNL%)+.F.RSIZ%,LEN%)
	FOR I% = 0% TO N% - 1%
		CALL FCSPUT BY REF (FDBADR%(C%-.ZERO.CNL%),BUFADR%+I%*LEN%,L%+I%,0%)
	NEXT I%
	SUBEND