! Keypad and key definition file for VT100/200 layout, EXTENDED EVE
! for the Bergen Record.
! This file undefines all keys before defining them to be sure existing
! definitions are not kept in memory.  Keypad keys are defined first in
! order from top to bottom, left to right across the rows
!
! Undefine all keypad keys
!
!undefine_key(PF1); ! Preserve as default shift key?
undefine_key(PF2);
undefine_key(key_name(pf2,shift_key));
undefine_key(PF3);
undefine_key(key_name(pf3,shift_key));
undefine_key(pf4);
undefine_key(key_name(pf4,shift_key));
undefine_key(kp0);
undefine_key(key_name(kp0,shift_key));
undefine_key(kp1);
undefine_key(key_name(kp1,shift_key));
undefine_key(kp2);
undefine_key(key_name(kp2,shift_key));
undefine_key(kp3);
undefine_key(key_name(kp3,shift_key));
undefine_key(kp4);          
undefine_key(key_name(kp4,shift_key));
undefine_key(kp5);
undefine_key(key_name(kp5,shift_key));
undefine_key(kp6);
undefine_key(key_name(kp6,shift_key));
undefine_key(kp7);
undefine_key(key_name(kp7,shift_key));
undefine_key(kp8);
undefine_key(key_name(kp8,shift_key));
undefine_key(kp9);
undefine_key(key_name(kp9,shift_key));
undefine_key(minus);
undefine_key(key_name(minus,shift_key));
undefine_key(comma);
undefine_key(key_name(comma,shift_key));
undefine_key(enter);
undefine_key(key_name(enter,shift_key));
undefine_key(period);
undefine_key(key_name(period,shift_key));
!
! VT100/200 Keypad Definitions
!
set(shift_key,PF1);	! GOLD key
define_key("eve_help('keypad')",PF2,"Help");
define_key("eve_find('')",key_name(PF3,shift_key),"Find");
define_key("eve_fndnxt",PF3,"Fndnxt");
define_key("eve_erase_line",pf4,"Erase_line");
define_key ("eve_restore",key_name(PF4,shift_key),"Restore");
define_key("eve_page",KP7,"Page");
define_key("eve_do('')",key_name(kp7,shift_key),"Do");
define_key("eve_section(current_direction)",kp8,"Section");
define_key ("eve_fill_paragraph",KEY_NAME(kp8,SHIFT_KEY),"Fill_Paragraph");
define_key("eve_append",kp9,"Append"); ! Appends to paste buffer
define_key("eve_replace('','')",key_name(kp9,shift_key),"Replace");
define_key("eve_erase_word",minus,"Erase_Word");
! General Restore used; needs to be customized to cut and restore word only
! That is, two erase functions -- line, word -- now use the
! same save string for restoring. EDT emulation should have separate save
! strings.
define_key("eve_restore",key_name(minus,shift_key),"Restore");
define_key("eve_advance",kp4,"Advance");
define_key("eve_bottom",key_name(kp4,shift_key),"Bottom");
define_key("eve_backup",kp5,"Backup");
define_key("eve_top",key_name(kp5,shift_key),"Top");
define_key("eve_remove",kp6,"Remove");
define_key("eve_insert_here",key_name(kp6,shift_key),"Insert_here");
define_key("eve_erase_character",comma,"Erase_character"); ! Slight mod
! Undelete char written by AAW; uses slight mod made to erase character
define_key("eve_undelete_char",key_name(comma,shift_key),"Undelete_char");
define_key ("eve_move_by_word",KP1,"Move_by_Word");
define_key("eve_change_case",key_name(kp1,shift_key),"Change_case"); !AAW
define_key("eve_end_of_line",KP2,"End_of_line");
define_key("eve_erase_to_eol",KEY_NAME(KP2,SHIFT_KEY),"Erase_to_eol");
define_key("eve_change_mode",KP3,"Change_mode");
define_key("eve_buffer('')",key_name(kp3,shift_key),"Buffer('')");
define_key("eve_get_file('')",Enter,"Get_file");
define_key("eve_write_file('')",key_name(Enter,shift_key),"Write_file");
define_key ("aaw_nextline",KP0, "Aaw_nextline");
define_key ("aaw_openline",KEY_NAME(KP0,SHIFT_KEY), "AAW_openline");
define_key("eve_select",Period,"Select");
define_key("eve_dcl(read_line('DCL command: '))",key_name(Period,shift_key),"DCL");
!
! End of keypad definitions; what follow are extras on control keys etc
!
!
! Alternate definition of GRAY KEYS for use with VT100 terminals
!
define_key("eve_move_by_line",CTRL_L_KEY,"Move_by_line");
define_key("eve_search('')",CTRL_F_KEY,"search");
define_key("eve_copytext",key_name("x",shift_key),"Copytext");
define_key("eve_copytext",key_name(E3,shift_key),"Copytext"); ! Gold Remove
define_key("eve_previous_screen",CTRL_P_KEY,"Previous_screen");
define_key("eve_next_screen",CTRL_N_KEY,"Next_screen");
define_key("eve_delete",del_key,"Delete");
define_key ("eve_start_of_line",CTRL_A_KEY,"Start_of_line");
define_key("eve_start_of_line",BS_KEY,"Start_of_line");
!define_key("eve_erase_start_of_line",LF_KEY,"Erase_start_of_line");
define_key("eve_erase_start_of_line",key_name("a",shift_key),
  "Erase_start_of_line");
define_key("eve_attach",F20,"Attach");  ! For spawned EVE to return to parent
!
! EVEplus functions and some by A. Watson
!
define_key ("eve_list_buffers",KEY_NAME("b",SHIFT_KEY),"List_buffers");
define_key ("eve_capitalize_word",KEY_NAME("c",SHIFT_KEY),"Capitalize_word");
define_key ("eve_uppercase_word",KEY_NAME("u",SHIFT_KEY),"Uppercase_word");
define_key ("eve_lowercase_word",KEY_NAME("l",SHIFT_KEY),"Lowercase_word");
define_key ("eve_transpose_lines",KEY_NAME("t",SHIFT_KEY),"Transpose_lines");
define_key("eve_home",key_name(E5,shift_key),"home");
define_key("eve_end_of_window",key_name(E6,shift_key),"end_of_window");
define_key("eve_destroy_buffer(get_info(current_buffer,'name'))",
	key_name(del_key,shift_key),"Destroy_buffer");
define_key("eve_read_file('')",key_name("r",SHIFT_KEY),"Read_File");
! Define special TPU window command keys
define_key("eve_split_window",F17,"Split_window");
define_key("eve_delete_window",key_name(f17,shift_key),"Delete_window");
define_key("eve_next_window",F18,"Next_window");
define_key("eve_expand_window",key_name(f18,shift_key),"Expand_window");
define_key("eve_only_window",f19,"Only_window");
define_key("eve_noonly",key_name(f19,shift_key),"NoOnly");
! End of set of window commands
define_key("eve_transpose_char",BS_KEY,"Transpose_char");
define_key("eve_move_by_paragraph",key_name("p",shift_key),"Move_by_Paragraph");
define_key("eve_this_file",key_name(E4,shift_key),"This_File");
define_key("eve_execute_dcl_line",key_name(ctrl_m_key,shift_key),
	"execute_DCL_line");
define_key("eve_move_by_sentence",key_name("s",shift_key),"Move_by_Sentence");
! Following key is set up for use by SPAWNEVE.COM. EVECMD.TMP is created
! by SPAWNEVE.COM when attaching to an existing EVE subprocess, and
! contains a Get File command to get the file specified as a parameter.
! The user can read in this file by pressing CTRL/J  or Line Feed.
define_key("eve_execute_eve_file('sys$scratch:evecmd.tmp')",CTRL_J_KEY,
   "Execute EVECMD.TMP");
define_key("eve_newtop",key_name("n",shift_key),"Newtop");
set(shift_key,PF1);
define_key ("execute (lookup_key (eve$get_shift_key, program))",
	PF1, "shift key", eve$x_user_keys);