atime { 
set %atime $gettok($time,1,58)
if (%atime >= 13) { %atime = %atime - 12 | return %atime $+ : $+ $gettok($time,2,58) $+ pm }
else if (%atime == 12) { return %atime $+ : $+ $gettok($time,2,58) $+ pm }
else if (%atime == 0) { %atime = %atime + 12 | return %atime $+ : $+ $gettok($time,2,58) $+ am }
else { return %atime $+ : $+ $gettok($time,2,58) $+ am }
}