#
trcol -t16 ' ' '.' source.list | sed 's/ <\([0-9]\) /< \1 /g' \
| sed 's/ <\([ 0-9][0-9]\) /< \1 /g' \
| gawk 'substr($0,82,1) == "C" { print substr($0,1,81) "   C" substr($0,86);\
	next}{print}'\
| gawk 'substr($0,89,1) == "C" { print substr($0,1,88) "   C" substr($0,93);\
	next}{print}'\
| gawk 'substr($0,96,1) == "C" { print substr($0,1,95) "   C" substr($0,100);\
	next}{print}'\
| trcol -b36,101 \
| gawk 'BEGIN { c[1] = 37; c[2] = 41; c[3] = 46; c[4] = 50; c[5] = 55; c[6] = 59;}\
      {printf("%s", substr($0,1,c[1]-1));\
       for (i = 1; i <= 6; i++) { v = compress(substr($0,c[i],3));\
	if (substr($0, c[i]+3, 1) != " ") \
	  {printf("**** Shifted rec#%d.%d\n%s\n", NR, c[i], $0) > "/dev/stderr";\
	  v = compress(substr($0,c[i],4)); }\
	if (v == "") s = "     ";\
	else if (index(v, ".") != 0) s = sprintf("%5s", v);\
	else s = sprintf("%3s. ", v);\
	printf("%s ", s); if ((i%2) == 0) printf("%s", substr($0,c[i]+4, 1));\
       } print substr($0,64);}'\
| gawk '{printf("%s",substr($0,1,89)); for(i=0;i<3;i++) { f=substr($0,90+i*7,7);\
       if (f == "      C") f = "       "; printf("%s",f)} print substr($0,111)}'\
| gawk '{printf("%s",substr($0,1,48));c=substr($0,49,1);if(c=="<") printf("< ");\
       else printf(" %s",c); printf("%s",substr($0,50,12));c=substr($0,62,1);\
       if(c=="<") printf("< ");else printf(" %s",c); print substr($0,63);}'