PTRSZ
q = copy(p, length(p) + PTRSZ);
for (n = 0; n < PTRSZ; n++) {
p = salloc((c + PTRSZ) * PTRSZ);
if (length(p) - PTRSZ < c * PTRSZ) {
q = copy(p, (c + PTRSZ) * PTRSZ);
seekc(p, c * PTRSZ);
if (length(p) - PTRSZ >= c * PTRSZ) {
seekc(p, c * PTRSZ);