function UnpackCircAdapt
NewFolder='CircAdapt';
fid=fopen('CircAdaptForRelease.txt','r');
Text=fscanf(fid,'%c');
fclose(fid);
%delimiter finding
i1=findstr(Text,'$#$');
i2=findstr(Text,'#$#');

mkdir(NewFolder);

nF=length(i1)-1; %number of files
for i=1:nF
    Name= Text(i1(i)+3:i2(i)-1);
    c=Text(i2(i)+3:i1(i+1)-1);
    fid = fopen([NewFolder,'\',Name],'w');
    fwrite(fid,c);
    fclose(fid);
end

NewFolder='PaperSimulations';
fid=fopen('MultiPatchSimulations.txt','r');
Text=fscanf(fid,'%c');
fclose(fid);
%delimiter finding
i1=findstr(Text,'$#$');
i2=findstr(Text,'#$#');

mkdir(NewFolder);

nF=length(i1)-1; %number of files
for i=1:nF
    Name= Text(i1(i)+3:i2(i)-1);
    c=Text(i2(i)+3:i1(i+1)-1);
    fid = fopen([NewFolder,'\',Name],'w');
    fwrite(fid,c);
    fclose(fid);
end

NewFolder='Tools';
fid=fopen('CircAdaptTools.txt','r');
Text=fscanf(fid,'%c');
fclose(fid);
%delimiter finding
i1=findstr(Text,'$#$');
i2=findstr(Text,'#$#');

mkdir(NewFolder);

nF=length(i1)-1; %number of files
for i=1:nF
    Name= Text(i1(i)+3:i2(i)-1);
    c=Text(i2(i)+3:i1(i+1)-1);
    fid = fopen([NewFolder,'\',Name],'w');
    fwrite(fid,c);
    fclose(fid);
end

end