SUB GET. (C%,B$,L%)
	{FCSCOM.B4S}
	CALL C. (C%)
	CALL L. (L%)
	CALL ADR BY REF (B$,BUFADR%)
	CALL FCSGET BY REF (FDBADR%(C%-.ZERO.CNL%),BUFADR%,L%,0%)
	SUBEND