# sscopy - copy packed null-terminated strings.
subroutine sscopy (from, to)
   integer from(1), to(1)
   i = 0
   repeat { I=I+1; to(i)=from(i) }
   until (((to(i)&177400k)==0) | ((to(i)&377k)==0))
   return
   end