!*************************************************************************
!									 *
!	      © 2000 BY							 *
!	      COMPAQ COMPUTER CORPORATION                                *
!	      © 1998, 2000 BY						 *
!	      ELECTRONIC DATA SYSTEMS LIMITED                            *
!									 *
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED *
! ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE *
! INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER *
! COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *
! OTHER  PERSON.  NO  TITLE TO OR OWNERSHIP OF THE  SOFTWARE  IS  HEREBY *
! TRANSFERRED.                                                           *
!									 *
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE *
! AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT  BY  COMPAQ COMPUTER *
! CORPORATION OR EDS.                                                    *
!									 *
! NEITHER  COMPAQ  NOR  EDS  ASSUME ANY RESPONSIBILITY FOR  THE  USE  OR *
! RELIABILITY  OF  THIS SOFTWARE ON EQUIPMENT WHICH IS NOT  SUPPLIED  BY *
! COMPAQ.                                                                *
!									 *
!*************************************************************************
 
!++
! Facility:
!   eXtended LSE (XLSE)
! 
! Abstract:
!   Defines XLSE's EDT LK201 Keypad key bindings.
! 
! Author:
!   W. Ward Clark, CASEE Group
! 
! Creation Date: 18-Sep-88
! 
!--

PROCEDURE xlse__define_edt_lk201_keys
!+
!   XLSE Keypad Bindings - EDT LK201 keypad
!-
LOCAL key;
key := 'DEFINE KEY ';
!+
!   Define the "En" keys.
!-
!!LSE$DO_COMMAND( key + 'e5      "DO/TPU ""xlse_goto_screen(REVERSE)"""' +
!!				 '/leg="PrvScrn" /top="Previous_Screen"' );
!!LSE$DO_COMMAND( key + 'e6      "DO/TPU ""xlse_goto_screen(FORWARD)"""' +
!!				 '/leg="NxtScrn" /top="Next_Screen"' );
!+
!   Define LK201 Function Keys.
!-
LSE$DO_COMMAND( key + 'f14      "DO/TPU ""xlse_learn(EXACT)"""' +
				'/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/f14 "DO/TPU ""xlse_learn(NO_EXACT)"""' +
				'/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'f17      "DO/TPU xlse_previous_buffer"' +
				'/leg="PrvBuff" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/f17 "DO/TPU ""xlse_goto_file(''/CREATE'')"""' +
				'/leg="Go2File" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'f18      "DO/TPU xlse_next_buffer"' +
				'/leg="NxtBuff" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/f18 "GOTO BUFFER"' +
				'/leg="Go2Buff" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'f19      "DO/TPU ""xlse_find_mark(REVERSE)"""' +
				'/leg="PrvMark" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/f19 "DO/TPU xlse_set_mark"' +
				'/leg="SetMark" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'f20      "DO/TPU ""xlse_find_mark(FORWARD)"""' +
				'/leg="NxtMark" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/f20 "CANCEL MARK"' +
				'/leg="CanMark" /top="[~tbs~]"' );
ENDPROCEDURE