.Fetch_str( system_str{} ){}

    \ Copy into an allocated string the contents of the location
    \ specified by str in the system space and all the following
    \ locations until a '*0' is encountered and return a pointer
    \ to the allocated string.
  {
    unsigned  str{}, wd, i, j;

    for( i=0; wd=.Fetch( system_str++ ); ++i )
      {
        for( j=0; j < .BYTES_PER_WORD; ++j )
            if( (wd&(((1<<.BITS_PER_BYTE)-1)<<(j*.BITS_PER_BYTE)))==0 ) break;
        if( j != .BYTES_PER_WORD ) break;
      }
    str = .Alloc_vec( i );

    for( ; i!=0-1; --i ) str[i] = .Fetch(--system_str);

    return( str );
  }
