Error con arreglo

Hector, el valor de m.con1 = 200 y el valor de POSI es mayor a 255, que puedo hacer?
m.con1 = alltrim(m.con1)
do while !empty(m.con1)
x=at('%',m.con1)
posi = posi + 1
****karic 12/11/2009
*!*         wait 'policia '+str(posi) window
****karic 12/11/2009
aconsulta(posi) = substr(m.con1,1,x-1)
if (x=len(m.con1))
m.con1 = ''
else&&(x=len(m.con1))
m.con1 = substr(m.con1,x+1,len(m.con1))
endif&&(x=len(m.con1))