SUB INPUT. (C%,B$,Z%)
	ZB% = LEN (B$)
	CALL BZSET. (C%,ZB%)
	CALL GET.N (C%,B$)
	CALL BZENQ. (C%,Z1%,Z2%)
	Z%=Z2%
	SUBEND