COMMON	/BSUCOM/ KEYCHR, REMIDX, RADIX
	INTEGER		 KEYCHR(28), REMIDX, RADIX