address search(List L, infotype X){
    P = first (L)
    while ( info (P) != data) AND ( next(P) != NULL) do
        P = next(P);
    If (info (P) = data) than
        return P;
    else
        return NULL;
}