Listing 2. Function to Set Titlebar

function proml

{
case $TERM in
    xterm*)
        local
	TITLEBAR="\[\e]0;\u@\h:\w\007\]"
        ;;
    *)
        local TITLEBAR=""
        ;;
esac
PS1="${TITLEBAR}\
[\$(date +%H%M)]\
[\u@\h:\w]\
\$ "
PS2="> "
}