%% File: anvinroundtrip.m
protectedfile='Nikolaus_Kopernikus_anvin.bin';
corruptedfile='Nikolaus_Kopernikus_anvin_c.bin';
%% Set probability of bit error
p=0.05;
%% Run encoder
anvinencoder;
%% Corrupt file
bsc(protectedfile, ...
    corruptedfile,p);
%% Decode corrupted file
anvindecoder;