SETVAR HPPROMPT "[![DWNS(HPUSER+'.'+HPACCOUNT)]"          &
 + "![RPT('@',MIN(LEN(HPSYSNAME),1))+DWNS(HPSYSNAME)]]"   &
 + "!![RPT('.',MIN((SETVAR(CWDLEN,LEN(HPCWD))/21)*3,3))]" &
 + "!![RHT(HPCWD,CWDLEN-(MIN(CWDLEN/21,1)*CWDLEN)"        &
 + "+(MIN(CWDLEN/21,1)*17))]:"