alias TeeTimer {
  ; $1 = target time (eg 13:00 or 1:00p or 1:00pm)
  if (!$regex(TT,$1,/^(?:(1?\d|2[0-3]):([0-5]\d)|([1-9]|1[0-2]):([0-5]\d)([ap])m?)$/iS)) return Invalid parameter: $1
  var %t.hour = $regml(TT,1), %t.min = $regml(TT,2)
  if ((p isin $regml(TT,3)) && (%t.hour isnum 1-11)) inc %t.hour 12
  elseif ((a isin $regml(TT,3)) && (%t.hour == 12)) inc %t.hour 12
  %t.hour = $calc(%t.hour % 24)
  echo -a Target Time: %t.hour H, %t.min M, 00 S
;*** Continue code here ***
}