datarecord *search( key, r )
     typekey key;  dataarray r;

     { datarecord *p;
     p = &r[ hashfunction(key) ];
     while ( p!=NULL && key!=p->k )   p = p->next;
     return( p );
     }