alias timecheck {
  if (%timem > 60) { set %timeh $calc(%timeh +1) | set %timem $calc(%timem -60) }
  if (%timeh > 24) { 
    set %timeh $calc(%timeh -24) | set %timeh $replace(%timeh,-,)
    if (%timeT == AM) { set %timeT PM }
    elseif (%timeT == PM) { set %timeT AM }
  }
  if (%timeh > 12) { 
    set %timeh $calc(%timeh -12) | set %timeh $replace(%timeh,-,)
  }
}