Something

alias theme { 
  var %now = $ctime($regsubex($fulldate,/(\d\d:\d\d):\d\d/,\1:00))
  if ((%now > %last.tstamp) || (!%last.tstamp)) {
    set %last.tstamp %now
    return $+($in3,$time(hh.nnt),$out3) $str($chr(160),3)
  }
  else { 
    return $str($chr(160),18) 
  }
}