#! /usr/bin/awk -f

BEGIN {
  oldend=0
}

/Track..start=/ {
  sub("Track..start=", "")
  split($0, a, ":")
  split(a[3], b, ".")
  startblock=((a[1]*60+a[2])*60+b[1])*75+int(b[2]*75/1000)
}
/Track..end=/ {
  sub("Track..end=", "")
  split($0, a, ":")
  split(a[3], b, ".")
  endblock=((a[1]*60+a[2])*60+b[1])*75+int(b[2]*75/1000)

  print "TRACK AUDIO"
  print "NO COPY"
  print "NO PRE_EMPHASIS"
  print "TWO_CHANNEL_AUDIO"
  size=endblock-oldend
  sframe=sprintf("%02d",size%75)
  ssec=sprintf("%02d",int(size/75)%60)
  smin=sprintf("%02d",int(size/4500))
  bsize=startblock-oldend
  bframe=sprintf("%02d",bsize%75)
  bsec=sprintf("%02d",int(bsize/75)%60)
  bmin=sprintf("%02d",int(bsize/4500))
  print "DATAFILE \"cdswab.raw\" #"oldend*2352" "smin":"ssec":"sframe
  print "START "bmin":"bsec":"bframe
  print ""
  oldend=endblock
}