function  message=backer_code1313(x)   %　x為一幀 
L=length(x);n=13;num=1;label=0;
if L<13
    message=111111111111111;
else
    x(find(x==0))=-1;
    a=[1 1 1 1 1 -1 -1 1 1 -1 1 -1 1];
    for i=1:L 
        if(i+n-1>L)
            temp=zeros(1,n);
            temp1=x(i:end);
            temp(1:length(temp1))=temp1;
        else
            temp=x(i:i+n-1);
        end
        value=temp*a';   
        if value>=n-1
            label=1;
        else
            if (label>=1)&(label<=13)
                label=label+1;
            end
            if ~((label>=1)&(label<=13))
                message(num)=x(i);
                num=num+1;
            end
        end 
    end
end
    message(find(message==-1))=0;