kurahaupo

readkey() {
    local char
    IFS= \
    read -rs -d '' -N1 key || return $?     # use -n1 on older versions
    while
        case "$key" in
        ('')  key=$'\n' ; break ;;          # compensate for bug
        ( $'\e[M'??? ) break ;;             # mouse report
        ( $'\e' | $'\e[' | $'\e['[?O] | $'\e['*[\;0-9] | $'\e[M'* | $'\eO' ) ;;
        ( [$'\xc0'-\$'xfe'] \