Select Code to Download

        
        push @a, _attr($atr) if #!_ateq($lat,$atr);
...
                $lat->[AS_U]        != $atr->[AS_U]  ||
                $lat->[AS_BOLD]        != $atr->[AS_BOLD] ||
                $lat->[AS_BLINK]    != $atr->[AS_BLINK];

    push @a, $atr if $lat ne $atr;

sub _atlayer
{
...
    $_->[AS_BLINK]    = $_[0]->[AS_BLINK]    if  $_->[AS_BLINK] < 0;
    return $_;
}

sub _atlayer
{
...
    $_ &= $_[ 0 ];
    return $_;
}

sub _atlayer
{
...

    return $_;
}