for (i=0; i<27; i++) buf[recA[A_NAME].pos+i] = tmp[i];
sprintf (tmp, "%s", padzeroclip (strip_nondigits (values[A_KTO]),10));
for (i=0; i<10; i++) buf[recA[A_KTO].pos+i] = tmp[i];
for (i=0; i<27; i++) buf[recA[A_NAME].pos+i] = tmp[i];
sprintf (tmp, "%s", padzeroclip (strip_nondigits (values[A_KTO]),10));
for (i=0; i<10; i++) buf[recA[A_KTO].pos+i] = tmp[i];