function [stream,sysbit,paribit,sysbit1,paribit1,sysbit2,paribit2,msg,imsg]=myturbo_encode(FrameL,Mem)
msg = zeros(1,FrameL);
imsg = zeros(1,FrameL);
sysbit1 = zeros(1,FrameL);
sysbit2 = zeros(1,FrameL);
sysbit  = zeros(1,FrameL);
paribit1 = zeros(1,FrameL);
paribit2 = zeros(1,FrameL);
paribit  = zeros(1,FrameL);
interleaver_table = zeros(1,FrameL);
stream=zeros(1,2*FrameL);

size=FrameL-Mem;

msg=randint(1,FrameL);

 fid = fopen('E:/turbo/matlab/msg.txt','w');
 fprintf(fid,'%d\n ',msg);   
 fclose(fid);

interleaver_table = interleave_table(FrameL,Mem);

imsg=interleave_1bit(msg,interleaver_table,FrameL);

[sysbit1,paribit1]= rsc_encode(msg,size,Mem);

[sysbit2,paribit2]= rsc_encode(imsg,size,Mem);

[sysbit,paribit] = puncture_1bit(sysbit1,sysbit2,paribit1,paribit2,FrameL,Mem);

fid = fopen('E:/turbo/matlab/imsg1.txt','w');
 fprintf(fid,'%d\n ',imsg);   
 fclose(fid);

fid = fopen('E:/turbo/matlab/interleaver_table1.txt','w');
 fprintf(fid,'%d\n ',interleaver_table);   
 fclose(fid);

 fid = fopen('E:/turbo/matlab/myturbo_sysbit1.txt','w');
 fprintf(fid,'%d\n ',sysbit1);   
 fclose(fid);
 
 fid = fopen('E:/turbo/matlabmyturbo_paribit1.txt','w');
 fprintf(fid,'%d\n ',paribit1);   
 fclose(fid);
 
 fid = fopen('E:/turbo/matlab/myturbo_sysbit2.txt','w');
 fprintf(fid,'%d\n ',sysbit2);   
 fclose(fid);
 
fid = fopen('E:/turbo/matlab/myturbo_paribit2.txt','w');
 fprintf(fid,'%d\n ',paribit2);   
fclose(fid);
 
 fid = fopen('E:/turbo/matlab/myturbo_sysbit.txt','w');
fprintf(fid,'%d\n ',sysbit);   
 fclose(fid);
 
 fid = fopen('E:/turbo/matlab/myturbo_paribit.txt','w');
 fprintf(fid,'%d\n ',paribit);   
 fclose(fid);

for i=1:FrameL
    stream(2*i-1) = sysbit(i);
    stream(2*i)   = paribit(i);
end
  fid = fopen('E:/turbo/matlab/stream.txt','w');
  fprintf(fid,'%d\n ',stream);   
  fclose(fid);
end