function BERUC=cp0201_ber()

numbits=1024;
[bits]=cp0201_bits(numbits);
message=bits;
[encoded_sequence]=cp0201_convlenc(message);
in_bits=encoded_sequence
punctured_bits = cp0201_puncture(in_bits);
inter_bits=cp0201_Interleaver(punctured_bits);
[S,Sc,Ss] = cp0203_qpsk_mod(inter_bits);
soft_bits =cp0201_qpsk_demod(S);
re_inter_bits=cp0201_deinter(soft_bits);
depunctured_bits = cp0201_depuncture(re_inter_bits);
b=depunctured_bits;
a=[encoded_sequence 0 0 0];
x=xor(a,b);
num=length(find(x));
BERUC=num./length(b);
plot(BERUC)