SET(POST_KEY_PROCEDURE)

  Specifies a procedure to be executed after execution of the program bound
  to a defined key.

  Syntax

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

  Parameters

     keymap_list_name     An expression evaluating to 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 defined key is pressed.  If you do
                          not specify this parameter, the previously defined
                          program is deleted.

     buffer               The buffer containing TPU 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 TPU 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 TPU 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 a defined
                          key is pressed.  If you do not specify this
                          parameter, the previously defined program is
                          deleted.

  Example

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

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