SUB PRINL. (C%,B$,Z%)
	CALL BZSET. (C%,Z%)
	CALL PUT.N (C%,B$)
	SUBEND