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

     { extern int n;
       int i;
       if ( n>=m ) Error     /*** Table is full ***/;
       else  { for ( i=n++;  i>=0 && r[i].k>new;  i-- )   r[i+1] = r[i];
               r[i+1].k = new;
             }
     }