!
!
! ***** ALTERNATE KEYS *****
!
!     To access hit ENTER and then the desired key
!
!
PROCEDURE pbw_eve$alt_keys                   
   LOCAL function_key;

   function_key := READ_LINE("Select function: ",1);	! Get only one key
   if LAST_KEY = KEY_NAME (RET_KEY) then 
      MESSAGE("No function selected.");
      RETURN;
   endif;                                  
   alt_key := LOOKUP_KEY(LAST_KEY,PROGRAM,"pbw_eve$alt1_keys");
   if alt_key <> 0 then
      EXECUTE(alt_key);
   else
      MESSAGE("Undefined key...no alternate definition.");
   endif;
ENDPROCEDURE;