CLEAR
FOR k=1 TO 12
 ? k,QUARTER(DATE(2000,m.k,1)),QuarterX(DATE(2000,m.k,1)),FLOOR((m.k+2)/3)
NEXT

FUNCTION QuarterX

PARAMETER tdDate

PRIVATE m.result
m.result = CEILING(MONTH(tdDate) / 4)
IF MONTH(tdDate) % 4 = 0
  m.result = m.result + 1
ENDIF
RETURN m.result