;==========================================================================
pro ascii_mo,m,month
;==========================================================================
names = ['JAN','FEB','MAR','APR','MAY','JUN',$
	 'JUL','AUG','SEP','OCT','NOV','DEC']
	 month = names(m-1)
	 return
	 end