!+ ! Custom Key Defs !- procedure pand$standard_keys ! key pad - row 1 set (shift_key, pf1); define_key ("copy_text ('')", key_name(pf1,shift_key), "(undefined key)"); define_key ("eve_keymap", pf2, "display keymap"); define_key ("eve_help ('')", key_name(pf2,shift_key), "help"); define_key ("eve_find('')", pf3, "find"); define_key ("copy_text ('')", key_name(pf3,shift_key), "(undefined key)"); define_key ("eve_erase_line ", pf4, "delete line"); define_key ("eve_restore_line", key_name(pf4,shift_key), "undelete line"); ! key pad - row 2 define_key ("eve_do ('')", kp7, "do"); define_key ("pand$dont", key_name(kp7,shift_key), "DO Not Press This Key"); define_key ("eve_other_window", kp8, "other window"); define_key ("eve_toggle_number_of_windows", key_name(kp8,shift_key), "Toggle Second Window"); define_key ("eve_change_direction", kp9, "Forward/Reverse"); define_key ("eve_change_mode", key_name(kp9,shift_key), "Insert/Overstrike"); define_key ("eve_erase_word", minus, "delete word"); define_key ("eve_restore_word", key_name(minus,shift_key), "undelete word"); ! key pad - row 3 define_key ("eve_bottom", kp4, "end of buffer"); define_key ("eve_top", key_name(kp4,shift_key), "top of buffer"); define_key ("eve_mark ('spot')", kp5, "Mark SPOT"); define_key ("eve_go_to ('spot')", key_name(kp5,shift_key), "Go to SPOT"); define_key ("copy_text ('')", kp6, "(undefined key)"); define_key ("copy_text ('')", key_name(kp6,shift_key), "(undefined key)"); define_key ("eve_erase_character", comma, "delete character"); define_key ("eve_ascii_insert ('')", key_name(comma,shift_key), "ascii insert"); ! key pad - row 4 define_key ("eve_BOL", kp1, "beginning of (this/previous) line"); define_key ("copy_text ('')", key_name(kp1,shift_key), "(undefined key)"); define_key ("eve_COL", kp2, "center of this line"); define_key ("copy_text ('')", key_name(kp2,shift_key), "(undefined key)"); define_key ("eve_EOL", kp3, "end of (this/previous) line"); define_key ("copy_text ('')", key_name(kp3,shift_key), "(undefined key)"); define_key ("eve_dcl('')", enter, "DCL"); define_key ("eve_insert_here", key_name(enter,shift_key), "insert here"); ! key pad - row 5 define_key ("eve_write_file ('')", kp0, "write buffer"); define_key ("eve_list_buffers", key_name(kp0,shift_key), "List Buffers"); define_key ("eve_select", period, "select"); define_key ("eve_remove", key_name(period,shift_key), "remove"); ! function keys (7...20) ! f6 reserved like ctrl_y define_key ("copy_text ('')", f7, "(undefined key)"); define_key ("copy_text ('')", key_name(f7,shift_key), "(undefined key)"); define_key ("copy_text ('')", f8, "(undefined key)"); define_key ("copy_text ('')", key_name(f8,shift_key), "(undefined key)"); define_key ("copy_text ('')", f9, "(undefined key)"); define_key ("copy_text ('')", key_name(f9,shift_key), "(undefined key)"); define_key ("copy_text ('')", f10, "(undefined key)"); define_key ("copy_text ('')", key_name(f10,shift_key), "(undefined key)"); define_key ("copy_text ('')", f11, "ESC Key"); define_key ("copy_text ('')", key_name(f11,shift_key), "(undefined key)"); define_key ("eve_graffon", f12, "Graff_On"); define_key ("eve_graffoff", key_name(f12,shift_key), "Graff_Off"); define_key ("copy_text ('')", f13, "(undefined key)"); define_key ("copy_text ('')", key_name(f13,shift_key), "(undefined key)"); define_key ("copy_text ('')", f14, "(undefined key)"); define_key ("copy_text ('')", key_name(f14,shift_key), "(undefined key)"); define_key ("eve_help ('')", f15, "Help)"); define_key ("copy_text ('')", key_name(f15,shift_key), "(undefined key)"); define_key ("eve_do ('')", f16, "do"); define_key ("copy_text ('')", key_name(f16,shift_key), "(undefined key)"); define_key ("eve_extend_tpu ('*')", f17, "compile(current_buffer)"); define_key ("copy_text ('')", key_name(f17,shift_key), "(undefined key)"); define_key ("eve_tpu ('execute(current_buffer)')", f18, "execute(current_buffer)"); define_key ("copy_text ('')", key_name(f18,shift_key), "(undefined key)"); define_key ("eve_tpu('')", f19, "TPU key"); define_key ("copy_text ('')", key_name(f19,shift_key), "(undefined key)"); define_key ("eve_spawn", f20, " spawn"); define_key ("copy_text ('')", key_name(f20,shift_key), "(undefined key)"); ! Control Keys ! reserved: ^C - abort execution (can be used if $SET TERM/PASTHRU) ! ^O - toggle output (can be used if $SET TERM/PASTHRU) ! ^Q - nohold screen (can be used if $SET TERM/NOTTSYNC) ! ^S - hold screen (can be used if $SET TERM/NOTTSYNC) ! ^T - VMS Status Line Giver (can be used if $SET TERM/PASTHRU) ! ^X - (can be used if $SET TERM/PASTHRU) ! ^Y - The Mighty Interrupt (can be used if $SET TERM/PASTHRU) define_key ("copy_text ('')", ctrl_a_key, "(undefined key)"); define_key ("copy_text ('')", key_name(ctrl_a_key,shift_key), "(undefined key)"); define_key ("eve_buffer('')", ctrl_b_key, "Buffer"); define_key ("copy_text ('')", key_name(ctrl_b_key,shift_key), "(undefined key)"); define_key ("copy_text ('')", key_name(ctrl_c_key,shift_key), "(undefined key)"); define_key ("eve_do ('')", ctrl_d_key, "do"); define_key ("copy_text ('')", key_name(ctrl_d_key,shift_key), "(undefined key)"); define_key ("eve_exit", ctrl_e_key, "Exit"); define_key ("copy_text ('')", key_name(ctrl_e_key,shift_key), "(undefined key)"); define_key ("eve_find('')", ctrl_f_key, "Find"); define_key ("eve_get_file('')", ctrl_g_key, "Get File"); define_key ("copy_text ('')", key_name(ctrl_g_key,shift_key), "(undefined key)"); define_key ("eve_help ('')", ctrl_h_key, "help"); define_key ("copy_text ('')", key_name(ctrl_h_key,shift_key), "(undefined key)"); ! (^I just does a tab anyways...) !define_key ("copy_text ('')", ctrl_i_key, "(undefined key)"); !define_key ("copy_text ('')", key_name(ctrl_i_key,shift_key), "(undefined key)"); define_key ("copy_text ('')", ctrl_j_key, "(undefined key)"); define_key ("copy_text ('')", key_name(ctrl_j_key,shift_key), "(undefined key)"); define_key ("eve_kill_buffer", ctrl_k_key, "@#$@!&*%---> ZAPP!!!!"); define_key ("copy_text ('')", key_name(ctrl_k_key,shift_key), "(undefined key)"); define_key ("eve_line ('')", ctrl_l_key, "Line n"); define_key ("eve_what_line", key_name(ctrl_l_key,shift_key), "What line?"); !define_key ("eve_return", ctrl_m_key, "RET"); !define_key ("copy_text ('')", key_name(ctrl_m_key,shift_key), "(undefined key)"); define_key ("copy_text ('')", ctrl_n_key, "(undefined key)"); define_key ("copy_text ('')", key_name(ctrl_n_key,shift_key), "(undefined key)"); define_key ("copy_text ('')", key_name(ctrl_o_key,shift_key), "(undefined key)"); define_key ("copy_text ('')", ctrl_p_key, "(undefined key)"); define_key ("copy_text ('')", key_name(ctrl_p_key,shift_key), "(undefined key)"); define_key ("copy_text ('')", key_name(ctrl_q_key,shift_key), "(undefined key)"); define_key ("eve_refresh", ctrl_r_key, "Refresh"); define_key ("copy_text ('')", key_name(ctrl_r_key,shift_key), "(undefined key)"); define_key ("copy_text ('')", key_name(ctrl_s_key,shift_key), "(undefined key)"); define_key ("copy_text ('')", key_name(ctrl_t_key,shift_key), "(undefined key)"); define_key ("copy_text ('')", ctrl_u_key, "(undefined key)"); define_key ("copy_text ('')", key_name(ctrl_u_key,shift_key), "(undefined key)"); define_key ("copy_text ('')", ctrl_v_key, "(undefined key)"); define_key ("copy_text ('')", key_name(ctrl_v_key,shift_key), "(undefined key)"); define_key ("eve_write_file('')", ctrl_w_key, "Write File"); define_key ("copy_text ('')", key_name(ctrl_w_key,shift_key), "(undefined key)"); define_key ("copy_text ('')", key_name(ctrl_x_key,shift_key), "(undefined key)"); define_key ("copy_text ('')", key_name(ctrl_y_key,shift_key), "(undefined key)"); define_key ("eve_attach", ctrl_z_key, "attach to parent"); define_key ("copy_text ('')", key_name(ctrl_z_key,shift_key), "(undefined key)"); ! Arrow Keys define_key ("eve_move_left", left, "Left Arrow"); define_key ("eve_shift_window ('-5')", key_name(left,shift_key), "shift window left 5"); define_key ("eve_move_right", right, "Right Arrow"); define_key("eve_shift_window ('5')", key_name(right,shift_key), "shift window right 5"); define_key ("eve_move_up", up, "Up Arrow"); define_key("eve_roll_up_other(3)", key_name(up,shift_key), "other window up"); define_key ("eve_move_down", down, "Down Arrow"); define_key("eve_roll_down_other(3)", key_name(down,shift_key), "other window down"); ! MiniPad Keys (e1...e6) define_key ("eve_find ('')", e1, "Find Key"); define_key ("eve_replace ('','')", key_name(e1,shift_key), "replace"); define_key ("eve_insert_here", e2, "Insert Here"); define_key ("eve_rectangular_insert_here", key_name(e2,shift_key), "rect insrt"); define_key ("eve_remove", e3, "Remove"); define_key ("eve_rectangular_remove", key_name(e3,shift_key), "rect remov"); define_key ("eve_select", e4, "Select"); define_key ("eve_rectangular_select", key_name(e4,shift_key), "rect sel"); define_key ("eve_previous_screen", e5, "Previous Screen"); define_key ("eve_subtract_window",key_name(e5,shift_key),"Subtract window"); define_key ("eve_next_screen", e6, "Next Screen"); define_key ("eve_add_window",key_name(e6,shift_key),"Add window"); ! misc key defs define_key ("eve_tab", tab_key, "Tab"); define_key ("eve_move_right;eve_move_right;eve_move_right;eve_move_right;" + "eve_move_right;eve_move_right;eve_move_right;eve_move_right", key_name(tab_key,shift_key), "(undefined key)"); define_key ("eve_delete", del_key, "delete a back char"); define_key ("copy_text ('')", key_name(del_key,shift_key), "(undefined key)"); define_key ("eve_return", ret_key, "Return"); define_key ("eve_line_continue", key_name(ret_key,shift_key), "Line Cont"); ! define gold letter keys define_key ("eve_copy", key_name('C',shift_key), "Copy"); define_key ("eve_date", key_name('D',shift_key), "Date"); define_key ("eve_find(eve$x_target)", key_name('F',shift_key), "Find Next"); define_key ("message('')", key_name ('M',shift_key), "Clear message window"); define_key ("eve_next_screen", key_name('N',shift_key), "Next Screen"); define_key ("eve_previous_screen", key_name('P',shift_key), "Previous Screen"); define_key ("eve_remove", key_name('R',shift_key), "Remove"); define_key ("eve_select", key_name('S',shift_key), "Select"); define_key ("eve_time", key_name('T',shift_key), "Time"); define_key ("eve_insert_here", key_name('I',shift_key), "Insert Here"); ! define gold misc keys define_key ("eve_learn", key_name('[',shift_key), "Learn"); define_key ("eve_remember", key_name(']',shift_key), "Remember"); define_key ("copy_text ('! [mpg]')", key_name ('!', shift_key), "By MPG"); endprocedure; !pand$standard_keys;