! Procedure to display keypad-oriented help.  Called by eve_help.

procedure eve$help_keypad

local help_char,		! Keyword of key to provide help on
      which_topic,		! String with help library subtopic
      showing_keypad;		! True if currently displaying keypad diagram

which_topic := eve$x_null;
set (status_line, info_window, reverse, " Help buffer");
set (text, info_window, no_translate);
eve$help_text ("keypad_diagrams eveplus");
position(beginning_of(current_buffer));
! Get rid of the topic lines
erase_line;
erase_line;
erase_line;
erase_line;
erase_line;
! Now delete the 5 spaces at the beginning of each line
loop
	exitif mark(none) = end_of(current_buffer);
	erase_character(5);
	move_vertical(1);
endloop;
erase_line;
position(beginning_of(current_buffer));
erase_line;
showing_keypad := 1;

loop
    if showing_keypad then
	help_char := eve$prompt_key
("Press key that you want help on (Return to leave help): ");
    else
	help_char := eve$prompt_key
("Press key that you want help on (Help for keypad, Return to leave help): ");
    endif;

    which_topic := eve$lookup_comment (help_char);
    exitif which_topic = "return";

    if which_topic = eve$x_null then
	if eve$alphabetic (help_char) <> eve$x_null then
	    which_topic := "typing";
	else
	    which_topic := "unknown";
	endif;
    endif;
    if (which_topic = "help") and (not showing_keypad) then
        eve$help_text ("keypad_diagrams eveplus");
	showing_keypad := 1;
    else
	eve$help_text ("eve " + which_topic);
	showing_keypad := 0;
    endif;
endloop;

endprocedure;