strcat(dst, src) { local i; local j; i = 0; loop { if ([dst + i] == 0) break; i = i + 1; } j = 0; loop { if ([src + j] == 0) return (dst); [dst + i + j] = [src + j]; j = j + 1; } }