function saveASCII(goodTSCFRET)

for i=1:24
    name=[goodTSCFRET(1,i).names(1:20) '_cor_mono.dat']
    mono=goodTSCFRET(3,i).monocounts;
    save(name, 'mono' ,'-ASCII')
    clear mono
end 