SUB PUT.A (C%,B$)
	CALL FCSNOR (C%,NOR)
	NOR% = NOR
	CALL PUT. (C%,B$,NOR%+1%)
	SUBEND