SRI-NOSC/mh/subs.dir/getcpy.c
getcpy(str) { register char *cp; cp = alloc(length(str) + 1); copy(str, cp); return(cp); }