sub get_YNRQ {
    while (1) {
        ReadMode 4;
        my $ans = uc(ReadKey(0));
        ReadMode 0;
        return $ans
            if $ans =~ m/[YNRQ]/;
    }
}