;The main variations of each style are played and then you are requested to enter a code for the ;folder where this style should be copied to. You can also type play to play the style again ;or skip to exclude the style. If an invalid code is entered the a list of folders is displayed. ;After that you can type a new name for the style. If no new name is entered then the original ;name is maintained. If no extension is included then .sty will be added to the new name. Define PartName1-4 String Define Choice String Define NewStyleName String Define ExtensionDot Numeric ForEachStyle Label PlayStyle PrintLine StyleName ForEachPart Let PartName1-4 = SubString PartName 1 4 If PartName1-4 = 'Main' PrintLine PartName PlayPart EndIf NextPart Let FolderName = '' Label MakeChoice Input Choice If Choice = 'play' GoTo PlayStyle Endif If Choice = 'skip' Goto StyleFinished EndIf ; *** CUSTOMIZE THE LINES BELOW *** ; If Choice = '8' Let Foldername = 'c:\styles\8beat\' Endif If Choice = '16' Let Foldername = 'c:\styles\16beat\' Endif If Choice = 'bg' Let Foldername = 'c:\styles\bluegrass\' Endif If Choice = 'b' Let Foldername = 'c:\styles\blues\' Endif If Choice = 'bs' Let Foldername = 'c:\styles\bluesshuffle\' Endif If Choice = 'bg' Let Foldername = 'c:\styles\bluegrass\' Endif If Choice = 'c' Let Foldername = 'c:\styles\country\' Endif If Choice = 'cw' Let Foldername = 'c:\styles\countrywaltz\' Endif If Choice = 'cb' Let Foldername = 'c:\styles\countryballads\' Endif If Choice = 'f' Let Foldername = 'c:\styles\foxtrot\' Endif If Choice = 'rb' Let Foldername = 'c:\styles\rythmandblues\' Endif If Choice = 'rr' Let Foldername = 'c:\styles\rockandroll\' Endif If Choice = 'hm' Let Foldername = 'c:\styles\heavymetal\' Endif If Choice = 'hr' Let Foldername = 'c:\styles\hardrock\' Endif If FolderName = '' ;The choice was invalid print a list of choices PrintLine '8 = 8beat' PrintLine '16 = 16beat' PrintLine 'bg = bluegrass' PrintLine 'b = blues' PrintLine 'bs = bluesshuffle' PrintLine 'bg = bluegrass' PrintLine 'c = country' PrintLine 'cw = countrywaltz' PrintLine 'cb = countryballads' PrintLine 'f = foxtrot' PrintLine 'rb = rythmandblues' PrintLine 'rr = rockandroll' PrintLine 'hm = heavymetal' PrintLine 'hr = hardrock' PrintLine 'play = play again' PrintLine 'skip = skip style' GoTo MakeChoice EndIf PrintLine StyleName Input NewStyleName If NewStyleName <> '' Let ExtensionDot = StringPosition NewStyleName '.' If ExtensionDot = 0 Let NewStyleName = Concatenate NewStyleName '.sty' EndIf Let StyleName = NewStyleName EndIf SaveStyle Label StyleFinished NextStyle