1	SUB SMG_SET_KP_MODE(BYTE New_Mode)

	!---------------------------------------------------------------&
	!								&
	!			SMG_SET_KP_MODE				&
	!								&
	!		Creation Date:  30-Sep-1985			&
	!		Author:		Ken Messer			&
	! 		Purpose:        Set the mode of the current	&
	!				keyboard's keypad to either	&
	!				numeric or application mode.	&
	!								&
	!		Modification history				&
	!								&
	!	Date	Description of change(s)			&
	!								&
	!---------------------------------------------------------------&
	!								&
	! Copyright (c) 1985 -	Ken Messer, Allied Electronics, Inc.,	&
	!			401 E. 8th St., Ft. Worth, TX  76102	&
	!								&
	! This software may be copied and distributed freely to anyone	&
	! for non-commerical use provided that this copyright notice is &
	! included.							&
	!---------------------------------------------------------------&

	OPTION TYPE = INTEGER, SIZE = INTEGER LONG

	%include "SMG$LIBRARY:SMG.DFN"


	DECLARE LONG		KP_Mode

	EXTERNAL SUB		SMG$Set_Keypad_Mode

	!---------------------------------------------------------------&
	!								&
	!		M a i n   P r o g r a m   L o g i c		&
	!								&
	!---------------------------------------------------------------&

	SELECT New_Mode

		CASE 0		! numeric mode - clear low bit

			KP_Mode = 0

		CASE ELSE	! applications mode - set low bit

			KP_Mode = 1

	END SELECT

	CALL SMG$Set_Keypad_Mode(Current_keyboard_id,KP_Mode)

32767	SUBEXIT

	END SUB