CCC	FILE NAME : KEY.FT	LAST MOD : 21-DEC-81
C
C	CALL KEY(IVAL)
C
C	GETS A SINGLE CHARACTER FROM THE CONSOLE KEYBOARD
C	WITHOUT BUFFERING.  PARITY BIT IS ALWAYS SET.
C	CONSOLE IS LEFT IN BUFFERED CRT MODE ON RETURN.
C

	SUBROUTINE KEY(IVAL)

	CALL FIXIO(-3)
	CALL CHRIO(-1,IVAL)
	CALL FIXIO(-1)

	RETURN

	END