DIM month$(12)
 DATA January, February, March, April, May, June, July
 DATA August, September, October, November, December
 FOR m=1 TO 12
    READ month$(m)
 NEXT m