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