Hi

How the below code works

stringVar s0 := "";
numberVar n0 := 0;
numberVar ctr := 0;

if not isnull({List1.ColC}) then s0 := trim({List1.ColC});

n0 := instr(s0, " ");
if n0 > 0 then while mid(s0, n0 + ctr, 1) = " " do ctr := cnt + 1;
if ctr > 2 then s0 := replace (s0,space(ctr),chr(13));

ctr := 0;
n0 := instr(s0, " ");
if n0 > 0 then while mid(s0, instr(s0, " ") + ctr, 1) = " " do ctr := ctr + 1;
if ctr > 2 then s0 := replace (s0,space(ctr),chr(13));