{
  ll = length($0)
#  print ("ll=",ll)
  for (ii=1;ii<=3;ii++) printf("%5d%8.3f%8.3f\n",ii,0.0,180.0)
  for (i=1;i<=ll-3;i++) {
     ss = substr($0,i,1)
#     print ("i ",i," ss ",ss)
     if (ss == "-" || ss == "C" ) {
       printf("%5d%8.3f%8.3f\n",ii,0.0,180.0)
     } else if (ss == "H") {
       printf("%5d%8.3f%8.3f\n",ii,45.0,5.0)
     } else if (ss == "E") {
       printf("%5d%8.3f%8.3f\n",ii,180.0,20.0)
     }
     ii=ii+1
  }
}