function bnao=yet_another_moviemaker

for i=1:80
    if  i<10, jjj=strcat('00',num2str(i))
    elseif i<100, jjj=strcat('0',num2str(i))
    else jjj=num2str(i)
    end
    eval([' [imm,mx,mn]=b16_reader(''movie20060505T1640_phase20x_0' jjj '.b16'');'])
    figure(1),clf,imshow(imm,[300 2000]),colormap(gray),axis off, bnao(i)=getframe;
end