SET(PRE_KEY_PROCEDURE)

 Specifies a procedure to be executed before execution of the program or
 learn sequence bound to a defined key.

 Syntax

    SET (PRE_KEY_PROCEDURE, keymap_list_name,
         [program | buffer | range | string | learn])

 Parameters

    keymap_list_name     A string specifying the keymap list for which you
                         want the procedure to be called.

    program              The program to be compiled, if necessary, and
                         executed when a define key is pressed.  If you do
                         not specify this parameter, the previously defined
                         program is deleted.

    buffer               The buffer containing VAXTPU statements to be
                         compiled, if necessary, and executed when a
                         defined key is pressed.  If you do not specify
                         this parameter, the previously defined program is
                         deleted.

    range                The range containing VAXTPU statements to be
                         compiled, if necessary, and executed when a
                         defined key is pressed.  If you do not specify
                         this parameter, the previously defined program is
                         deleted.

    string               The string containing VAXTPU statements to be
                         compiled, if necessary, and executed when a
                         defined key is pressed.  If you do not specify
                         this parameter, the previously defined program is
                         deleted.

    learn                The learn sequence to be replayed when an
                         appropriate key is pressed.  If you do not specify
                         this parameter, the previously defined program is
                         deleted.

 Example

 The following code displays a message before the code bound to a key is
 executed:

    SET (PRE_KEY_PROCEDURE, "tpu$key_map_list",
        'MESSAGE ("Executing Key " + GET_INFO (LAST_KEY, "name"))');