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,-,)
  }
}
alias settimezone { 
  set %timeh $time(H)
  set %timem $time(nn)
  set %timeZ 0
  if (%timeh < 12) { set %timeT AM } 
  if (%timeh > 12) { set %timeT PM }
}