1  typedef struct string STR;
       2  typedef struct atbl ARRAY;
       3  struct string {
       4      unsigned char str_pok;
       5  };
       6  struct atbl {
       7      int ary_fill;
       8  };
       9  blah(size,strp)
      10  register int size;
      11  register STR **strp;
      12  {
      13      register ARRAY *ar;
      14      ar->ary_fill = size - 1;
      15      while (size--)
      16       (*strp)->str_pok &= ~128;
      17  }
      18