!+
! describe key
!-
! This procedure will prompt for a key stroke or shift sequence and look
! up the comment that was attributed to the keystroke when  it was defined.
! If there was no comment given, the message "Key Has No Function..." is
! displayed in the message area at the bottom of the screen.  Otherwise,
! the key's function is displayed.  This function assumes that there will
! always be some sort of comment given when keys are defined to user
! procedures.  This may not be an acurate assumption in all circumstances.
! The value of this function depends on the descriptive nature of the names
! of user routines.  It should be noted that this works on DEFINE KEY
! operations also.  So use the whole function name to get the best
! description.
!
PROCEDURE eve_describe_key
   LOCAL key_to_describe, key_description;

   MESSAGE("Press Key to Describe:");
   key_to_describe := READ_KEY;
   key_description := LOOKUP_KEY(key_to_describe,COMMENT);
   IF key_description <> ""
      THEN
         MESSAGE("Function Description : " + key_description);
      ELSE
         MESSAGE("Key Has No Function...");
   ENDIF;
ENDPROCEDURE;