SUBROUTINE SCR_KEYPAD(LOGKEY)
C	---- TOGGLES THE KEYPAD BETWEEN APPLICATION MODE AND NUMERIC MODE

	INCLUDE 'SCREEN.FOR'
	LOGICAL*1 LOGKEY
	IF(LOGKEY)THEN
		WRITE(6,1)27,61
	ELSE
		WRITE(6,1)27,62
	ENDIF
1	FORMAT('+',2A1,$)
	RETURN
	END