Here was my take on this:

alias digTimeFormat return ddd/HH:nn:ss TT
alias digTimeFontSize return 10
alias timebar {
  if (!$isdir(digTime)) mkdir digTime
  if ($toolbar(digTime)) { echo -s Toolbar already loaded | halt }
  window -hp +d @_digTimeWin -1 -1 $calc($width($asctime($ctime,$digTimeFormat), Tahoma, $digTimeFontSize) + 10) $calc($height($asctime($ctime,$digTimeFormat), Tahoma, digTimeFontSize))
  .timerDigTime 0 1 updateDigTimeWin Digital Time
}
alias -l updateDigTimeWin {
  clear @_digTimeWin
  drawText -r @_digTimeWin $rgb(0,204,0) Tahoma $digTimeFontSize 3 3 $asctime($ctime, $digTimeFormat)
  updateDigTimeToolbar
}
alias -l updateDigTimeToolBar {
  drawSave @_digTimeWin digTime\digTime.jpg
  if ($toolbar(digTime)) toolbar -p digTime "digTime\digTime.jpg"
  else toolbar -a digTime $qt($1-) "digTime\digTime.jpg"
}
alias timeBarOff {
  toolbar -d digTime
  window -c @_digTimeWin
  .timerDigTime off
}