ask()
{
    clear
    echo "Question $((QNUM+1)) of ${#QUESTIONS[@]}"
    show_time
    echo
    echo -e "${QUESTIONS[$QNUM]}\n"
    echo -e "Your answer: ${ANSWER[$QNUM]:- }$BACK\c"
    read new_ans
    new_ans=${new_ans:-${ANSWER[$QNUM]}}
    case $new_ans in
        a|b|c|d) ANSWER[$QNUM]=$new_ans ;;
        *) echo "Illegal answer - please try again" ;
           sleep 1 ;
           return 2 ;;
    esac
    while true
    do
        if [ "$((QNUM+1))" -eq ${#QUESTIONS[@]} ];
        then
            echo "end of questions. enter q to quit"
        else
            echo -e "Type n for next, p for previous, q for quit: \c"
        fi
        show_time
        read nav
        case $nav in
            n|N) [ "$((QNUM+1))" -ne ${#QUESTIONS[@]} ] && return 0 ;;
            p|P) [ "$((QNUM+1))" -ne ${#QUESTIONS[@]} ] && return 1 ;;
            q|Q) return 3 ;;
        esac
    done
}

ask()
{
    ANSWERED=$(echo -e ${ANSWER[@]}"\c" | sed 's/ //g' | wc -c)
    if [ $ANSWERED -ge ${#QUESTIONS[@]} ]
    then
        while true
        do
            echo -e "All done, type question (1-${#QUESTIONS[@]}) to review your answer or Q to quit: \c"
            read QNUM
            [ $QNUM = "q" ] && return 3
            let QNUM=QNUM-1
            [ $QNUM -ge 0 -a $QNUM -lt ${#QUESTIONS[@]} ] && break
            echo "Illegal response"
        done
    fi
    clear
    echo "Question $((QNUM+1)) of ${#QUESTIONS[@]}"
    show_time
    echo
    echo -e "${QUESTIONS[$QNUM]}\n"
    echo -e "Your answer: ${ANSWER[$QNUM]:- }$BACK\c"
    read new_ans
    new_ans=${new_ans:-${ANSWER[$QNUM]}}
    case $new_ans in
        a|b|c|d) ANSWER[$QNUM]=$new_ans ;;
        *) echo "Illegal answer - please try again" ;
           sleep 1 ;
           return 2 ;;
    esac
    ANSWERED=$(echo -e ${ANSWER[@]}"\c" | sed 's/ //g' | wc -c)
    [ $ANSWERED -ge ${#QUESTIONS[@]} ] && return 4
    while true
    do
        echo -e "Type n for next, p for previous, q for quit: \c"
        show_time
        read nav
        case $nav in
            n|N) return 0 ;;
            p|P) return 1 ;;
            q|Q) return 3 ;;
        esac
    done
}