{
  if ($0 !~ /[^0123456789LMP \-+,]/ && $0!="") {
    comma=index($0,",")
    type=comma+index(substr($0,comma)," ")-1
    digits=substr($0,1,4)+0
    base=substr($0,5,comma-5)+0
    base=base substr($0,type-1,1)
    i=substr($0,comma+1,type-comma-2)
    z=substr($0,20)

    print base
    print i
    print "P"digits

    # Determine number of lines the number uses - can't use integers in awk
    for (j=0; j<20; j++)
      if (digits>50*j+0.9)
        lines=j
    for (j=0; j<lines; j++) {
      getline
      z=z substr($0,20)
    }

    # Remove spaces and print result
    gsub(/ /,"",z)
    print z
 }
  if ($0 ~ /Table/)
    print substr($0,match($0,/Table/))
}