set_prompt_variables () {
    COLS=$(tput cols)
    WS=$(i=0; while [ $i -lt $(($COLS-55)) ]; do i=$((i+1)); echo -n " "; done)
    HWSL=$(($(($COLS-55))/2))
    WS1=${WS:0:$HWSL}
    [ $(($COLS-55)) -eq $(($HWSL*2)) ] && WS2="$WS1" || WS2="$WS1 "
    QS=$(i=0; while [ $i -lt $(($COLS-2)) ]; do i=$((i+1)); echo -n "q"; done)
    CWD=$(pwd)
    HOST=$(uname -n)
    HOST=${HOST%%.*}
    case $TERM in
        xterm*)
            echo -en "\e]2;Da prompt - $USER@$HOST:$CWD\a"
            ;;
    esac
    if [ $((${#HOST}+${#CWD})) -gt $(($COLS-9)) ]; then
        PR="$HOST:...${CWD:$(($(($COLS-9))-$((${#HOST}+1))))}"
    else
        PR="$HOST:$CWD"
    fi
    QS2=$(max=$(($(($COLS-7))-${#PR})); i=0; while [ $i -lt ${max} ]; do i=$(($i+1)); echo -n "q"; done)
    EN=$(tput enacs)
    ST=$(tput smacs)
    ED=$(tput rmacs)

    C=$(($RANDOM%7+1))
    DAPCOL=$'\e[5;35m'
}

export PROMPT_COMMAND=set_prompt_variables
export PS1=$'\[\e[36m\]\[${EN}\]\[${ST}\]lqq\[${ED}\][\[\e[0;4m\]\[$PR\]\[\e[24;36m\]]\[${ST}\]\[${QS2}\]qk
\[${ST}\]x\[${ED}\]\[\e[5;3${C}m\]\[$WS1\]  ____                                          _    \[$WS2\]\[\e[0;36m\]\[${ST}\]x
\[${ST}\]x\[${ED}\]\[\e[5;3${C}m\]\[$WS1\] |  _ \  __ _   _ __  _ __ ___  _ __ ___  _ __ | |_  \[$WS2\]\[\e[0;36m\]\[${ST}\]x
\[${ST}\]x\[${ED}\]\[\e[5;3${C}m\]\[$WS1\] | | | |/ _\` | | \'_ \| \'__/ _ \| \'_ \` _ \| \'_ \| __| \[$WS2\]\[\e[0;36m\]\[${ST}\]x
\[${ST}\]x\[${ED}\]\[\e[5;3${C}m\]\[$WS1\] | |_| | (_| | | |_) | | | (_) | | | | | | |_) | |_  \[$WS2\]\[\e[0;36m\]\[${ST}\]x
\[${ST}\]x\[${ED}\]\[\e[5;3${C}m\]\[$WS1\] |____/ \__,_| | .__/|_|  \___/|_| |_| |_| .__/ \__| \[$WS2\]\[\e[0;36m\]\[${ST}\]~
\[${ST}\]x\[${ED}\]\[\e[5;3${C}m\]\[$WS1\]               |_|                       |_|\[\e[0;36m\]
\[${ST}\]tqq\[${ED}\][\[\e[34m\]\\t\e[36m\]]\[${ST}\]qq\[${ED}\]-­ ­· ·   ·
\[${ST}\]m\[${QS}\]k
\[$WS\]                   \[${ED}\]·  ·-\[${ST}\]qqqq[\[${ED}\]\[\e[5;3${C}m\](C) 2004 phr3dr|k\[\e[0;36m\]\[${ST}\]]qqqqqqqu
\[${ST}\]l\[${QS}\]j
\[\e[36m\]\[${ST}\]mqq\[${ED}\]­· · $\[\e[0m\] '