menu * {
  .Away System
  ..Set away:/aw $?"Please enter your away reason"
  ..Back:/back
}
alias aw {
  set %away $1-
  set %ctime $ctime
  away %away (Left on $+($fulldate,$chr(41))
  scon -a ame is now away with reason: $+(,%away,) - Left at $+($left($fulldate,$pos($fulldate,$chr(32),4)),.)
}
alias back {
  var %back = $calc($ctime - %ctime)
  scon -a ame is back from: $+(,%away,) - Away for $duration(%back)
  unset %away
  unset %ctime
  away
}