;Find styles that are waltzes Define Waltz Numeric ForEachStyle Print '.' Let Waltz = 0 If BeatsPerMeasure = 3 Let Waltz = 1 EndIf If BeatsPerMeasure = 6 Let Waltz = 1 Endif If Waltz = 1 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