SUB BZSET. (C%,Z%)
	{FCSCOM.B4S}
	CALL C.(C%)
	ADR%=FDBADR%(C%-.ZERO.CNL%)
	CALL WORDTO BY REF (ADR%+.F.NRBD%,Z%)
	CALL WORDTO BY REF (ADR%+.F.URBD%,Z%)
	SUBEND