;Find styles that are very slow ForEachStyle Print '.' If Tempo < 70 PrintLine '' Print StyleName Print ' Beats: ' Print BeatsPerMeasure Print ' Tempo:' Print Tempo PrintLine '' Let FolderName = 'c:\SelectedStyles\' ;Copy selected styles to this folder SaveStyle Endif NextStyle