01 commaDelimited       string value
         "January,February,March,April,May,June,July,August," &
         "September,October,November,December".

        01 year                 string occurs any.
        01 month                string.

        01 secondQuarterMonths  string.

        set year to commaDelimited::"Split"(',')

        display "The months are: "
        perform varying month through year
          display " " month
        end-perform

        display " "
        display "The second quarter months are: "

        set secondQuarterMonths to
             type "System.String"::"Join"('/', year, 3, 3)

        display " " secondQuarterMonths