alias xmas {
set %xmas $duration($calc($ctime(25/12/03) - $ctime))
set %xmas1 $calc(($time(H) * 60 + $time(n)) * 60 + $time(s))
if ( $date == 24/12/2003 ) && (%xmas1 > 81000 ) {
set %xmas2 $calc( 86400 - %xmas1 )
.timerxmas off
.timer 1 %xmas2 amsg 00,04 Merry Christmas!!!
}
else {
amsg 00,04 %xmas Until Christmas!
.timerxmas 1 3600 xmas
}
}