## @(#) created by arne
#######################
##
## the appletosh prompt
##
needmod number-extra

function appletoshpwd ()
{
pwd|sed 's/\//:/g'
}

PS1='`appletoshpwd`: '

TITLE="Mac`ucase $SHELLNAME` [ `ucase $TEXTNUMBER` ]"