1typedef struct TypHeader {
2  struct TypHeader ** ptr;
3} *TypHandle;
4void 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) *
9inc) << 2) + 1))));
10}
11