b@0: function fid=reportTest(sesDat,rsl,typeTst)
b@0: % write report
b@0: 
b@0: fidInd=['responses/' sesDat.id,'_',sesDat.sesScript];
b@2: if (~sesDat.reREAD && (sesDat.noTst==1)) % if first time, just write
b@0:    fid=fopen(fidInd,'w');
b@0: else   
b@2:    fid=fopen(fidInd,'a');                % if not first time, append
b@0: end
b@0: eol(fid);
b@0: 
b@0: % title
b@0: fprintf(fid,'%%%%%%%%%%%% Module #%d : %s \t ID: %s  \t DATE: %s ',sesDat.noTst,typeTst,sesDat.id,date);eol(fid);eol(fid);
b@0: 
b@0: % elapsed time
b@0: min=floor(rsl.duration/60);
b@0: sec=floor(rsl.duration-min*60);
b@0: fprintf(fid,'%%%% ELAPSED TIME : %d min %d sec ',min,sec);eol(fid);
b@0: fprintf(fid,'Song: %s\n', sesDat.cuSndListFile);