modified read-char-choice