SET MODE CHANGE
! Gold Left Arrow	Shifts Window To the Right
DEFINE KEY GOLD 14 AS "5(SHL)+40C."
! Gold Right Arrow	Shifts Window To the Left
DEFINE KEY GOLD 15 AS "5(SHR)-40C."
DEFINE KEY FUNCTION 17 AS "?'Enter NOKEYPAD command: '."
! Function Key F9	Shifts Window To the Left
DEFINE KEY FUNCTION 20 AS "5(SHR)-40C."
! Function Key F10	Shifts Window To the Right
DEFINE KEY FUNCTION 21 AS "5(SHL)+40C."
! Function Key F17	Slice of Columns
DEFINE KEY FUNCTION 31 AS "?'Number to  slice: '(I# -3C +V I| -'#' +3DC I|
 APPENDSR=SLICE +V SEL -V +'|' +3DC) DESEL."
! Function Key F18	Splice of Columns
DEFINE KEY FUNCTION 32 AS "?'Number to splice: '(I@ PASTE=SLICE I# +V -'@' -V +'|' +3DC  SEL -V +'#' +3DC CUTSR=SLICE +V -'@' +3DC +V)."
! Function Key F19	UnSelect
DEFINE KEY FUNCTION 33 AS "DESEL."
! Function Key F20	UnSelect
DEFINE KEY FUNCTION 34 AS "DESEL."