01 months                string occurs 12 times values
         "January" "February" "March" "April" "May" 
         "June" "July" "August" "September" "October"
         "November" "December".

        01 month string.

        01 q2  string.

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

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

        set q2 to type "System.String"::"Join"('/', months, 3, 3)

        display " " q2