[mialma]

Data : texto01,texto02,texto03, texto04, texto05.
field-symbols <f> type any.
data c(80).
data ind type numc length 2.
ind = 1.
while (ind<6)
concatenate 'texto' ind into c.
assign (c) to <f>.
<f> = '1'.
ind = ind + 1
endwhile.