void insert( key, r )
     typekey key;  dataarray r;

     { extern int n;
       if ( n>=m ) Error /*** Table is full ***/;
       else r[n++].k = key;
     }