emailler/client/inc/a2keycodes.i

8 lines
165 B
OpenEdge ABL

KEYCODE_SLASH=('/'+$80)
KEYCODE_DOWN=$8a
KEYCODE_UP=$8b
KEYCODE_LEFT=$88
KEYCODE_RIGHT=$95
KEYCODE_ABORT=$9B
.define KEYNAME_ABORT "ESC"
.export KEYCODE_ABORT