datarecord *search( key, list )
     typekey key;  datarecord *list;

     { datarecord *p;
     for ( p=list; p != NULL && key != p->k; p = p->next );
     return( p );
     }