thisyear := @Year(@Today); yeararray := @Text(thisyear) ; n := 1; @While(n <= 60; yeararray := @Text(thisyear - n) : yeararray; n := n + 1); yeararray