1  typedef struct TypHeader {
       2    struct TypHeader ** ptr;
       3  } *TypHandle;
       4  void PlainRange (TypHandle hdList, long lenList, long low, long inc)
       5  {
       6    long i;
       7    for (i = 1; i <= lenList; i++ )
       8      (((TypHandle*)((hdList)->ptr))[i] = (((TypHandle) (((long)(low + (i-1) *
       9  inc) << 2) + 1))));
      10  }