!*************************************************************************
!
! ***** KEY DEFINITIONS *****
!
!                                                                       
!********* Define keys for PBW_EVE enhancement *******************************
!
!
!                                       
PROCEDURE pbw_eve$vt200_keys
                                                                
   DEFINE_KEY ('decus$list_buffers(false)',f11," list_user_buffers");
   DEFINE_KEY ('decus$list_buffers(true)',key_name(f11,shift_key)," list_system_buffers");
   DEFINE_KEY ('pbw_eve$erase_current_buffer',f12," erase_buffer");
   DEFINE_KEY ("decus$delete_buffer('')",key_name(f12,shift_key)," delete_buffer");
   DEFINE_KEY ("pbw_eve$set_margins",f13," set_margins");
   DEFINE_KEY ("pbw_eve$set_screen",key_name(f13,shift_key)," set_screen");
   DEFINE_KEY ("pbw_eve$goto_line" ,f14," goto_line");
   DEFINE_KEY ("decus$where",key_name(f14,shift_key)," where");
   DEFINE_KEY ("pbw_eve$help",help," help");
   DEFINE_KEY ("pbw_eve$window",f17," window");		! Toggle between one and two windows
!!!   DEFINE_KEY ("eve_two_windows",key_name(f17,shift_key)," two_windows");
   DEFINE_KEY ("eve_get_file ('')",f18," get_file");
   DEFINE_KEY ("eve_include_file ('')",key_name(f18,shift_key)," include_file");
   DEFINE_KEY ("eve_other_window",f19," other_window");

   DEFINE_KEY ("eve_buffer ('')",f20," buffer");
   DEFINE_KEY ("pbw_eve$write_buffer (current_buffer)",
	key_name(f20,shift_key)," write_buffer");

   DEFINE_KEY ('pbw_eve$next_prev_line',kp0," next_line");	! MOVE TO NEXT LINE
   DEFINE_KEY ('split_line;move_horizontal(-1)',
   	key_name(kp0,shift_key)," open_line");			! OPEN LINE
   DEFINE_KEY ('pbw_eve$move_word',kp1," word");		! MOVE BY WORD
   DEFINE_KEY ("eve_center_line",key_name(kp1,shift_key)," center_line");
   DEFINE_KEY ("pbw_eve$end_of_line",kp2," end_of_line");
   DEFINE_KEY ("pbw_eve$delete_to_eol",key_name(kp2,shift_key)," delete_to_eol");
   DEFINE_KEY ("eve_replace('','')",kp3," replace");
   DEFINE_KEY ('copy_text(ascii(int(read_line("Special insert: "))))',         
   	key_name(kp3,shift_key)," specins");			! Special insert
   DEFINE_KEY ("eve_change_direction",kp4," change_direction");
   DEFINE_KEY ("eve_change_mode",key_name(kp4,shift_key)," change_mode");
   DEFINE_KEY ("eve_top",kp5," top");
   DEFINE_KEY ("eve_bottom",key_name(kp5,shift_key)," bottom");
   DEFINE_KEY ("pbw_eve$position_top",kp6," position_top");
   DEFINE_KEY ("pbw_eve$position_bottom",key_name(kp6,shift_key)," position_bottom");
   DEFINE_KEY ("pbw_eve$subprocess ('')",kp7," dcl");
   DEFINE_KEY ("eve_spawn",key_name(kp7,shift_key)," spawn");
   DEFINE_KEY ("pbw_eve$shift_left",kp8," shift_left");
   DEFINE_KEY ("pbw_eve$shift_right",key_name(kp8,shift_key)," shift_right");
!   DEFINE_KEY ("pbw_eve$goto_mark",kp9," goto_mark");
!   DEFINE_KEY ("pbw_eve$set_mark",key_name(kp9,shift_key)," set_mark");
!!!!DEFINE_KEY ("NOT_DEFINED",key_name(kp9,shift_key)," dummy");
! ***** PF1 is set up as the shift key *****                             
   DEFINE_KEY ("pbw_eve$change_case",pf2,
		" change_case");			! Change the case
   DEFINE_KEY ("eve_uppercase_word",
     	key_name(pf2,shift_key)," uppercase_word");	! Set uppercase word
   DEFINE_KEY ("pbw_eve$set_case",pf3," select_case");	! Set CHG_CASE mode
   DEFINE_KEY ("eve_capitalize_word",key_name(pf3,shift_key)," capitalize_word");
   DEFINE_KEY ('pbw_eve$delete_line',pf4," del_line");	! Delete line
   DEFINE_KEY ('pbw_eve$undelete_line',
   	   key_name(pf4,shift_key)," und_line");	! Undelete line
   DEFINE_KEY ('pbw_eve$delete_end_word',minus,
		" del_word");			 	! Delete word
   DEFINE_KEY ('pbw_eve$undelete_word',                                 
	   key_name(minus,shift_key)," und_word");	! Undelete word
   DEFINE_KEY ('pbw_eve$delete_char',comma," del_char");! Delete char 
   DEFINE_KEY ('pbw_eve$undelete_char',
  	  key_name(comma,shift_key)," und_char");	! Undelete character
   DEFINE_KEY ('pbw_eve$scroll',period," scroll");	! Scroll until a key is hit.
   DEFINE_KEY ('pbw_eve$swap_word_delimiters',
		key_name(period,shift_key),
		" swap_word_delimiters");		! Swap word delimiters
   DEFINE_KEY ('pbw_eve$alt_keys',enter," alt_keys");	! Access to alternate keypad
   DEFINE_KEY ('pbw_eve$adjust_window',ctrl_a_key,
				" adjust_windows");	! Adjust window size
   DEFINE_KEY ('pbw_eve$indent',ctrl_e_key," indent");	! Indent text
   DEFINE_KEY ('eve_quit',ctrl_g_key," quit");		! Quit EVE
   DEFINE_KEY ('decus$print_buffer',ctrl_p_key,
				" print_buffer");	! Print current buffer
   DEFINE_KEY ("decus$set_rectangular", ctrl_r_key, 
				" set_rectangular");	! Rectangular CUT/PASTE
   DEFINE_KEY ('pbw_eve$comment',ctrl_u_key," comment");! Start comment line


   UNDEFINE_KEY (f6);		! Remove default key definitions
   UNDEFINE_KEY (f10);		

ENDPROCEDURE;