foxpro t2v table to variable nameConvention

para p_1
r=''
for i=0 to 25
sou='_'+chr(97+i)
tar=chr(65+i)
? sou
?? tar
r=strt(p_1,allt(sou),allt(tar))
endfor
return r