1include window 2call $FALSE is_keypad $win1 3input "\eOA" 4call 0x1b wgetch $win1 5call OK keypad $win1 $TRUE 6input "\eOA" 7call $KEY_UP wgetch $win1 8 9# disable assembly of KEY_UP; other multi-character keys should work 10call OK keyok $KEY_UP $FALSE 11input "\eOA" 12call 0x1b wgetch $win1 13noinput 14call Ox4f wgetch $win1 15noinput 16call 0x41 wgetch $win1 17input "\eOB" 18call $KEY_DOWN wgetch $win1 19