name$ = selected$("Sound")
duration = Get duration
rate = Get sample rate
To PointProcess (periodic, cc)... 75 600
pause Modify PointProcess?
select PointProcess 'name$'
endFrame = Get number of points
To TextGrid (vuv)... 0.02 0.01
Create Sound... 'name$'_long 0 0.001 'rate' 0
for frame from 0 to endFrame
     select PointProcess 'name$'
     nextFrame = frame + 1
     if frame = 0
          begTime = 0
      else
          begTime = Get time from index... frame
     endif
     endTime = Get time from index... nextFrame
     if endTime = undefined
          endTime = duration
     endif
     midTime = begTime + ((endTime - begTime) / 2)
     select TextGrid 'name$'
     interval = Get interval at time... 1 midTime
     label$ = Get label of interval... 1 interval
     select Sound 'name$'
#  pause 'begTime:3' 'endTime:3'
     Extract part... begTime endTime Rectangular 1 no
     Rename... part
     Copy... part2
     select Sound 'name$'_long
     plus Sound part
     if label$ = "V"
          plus Sound part2
     endif
     Concatenate
     select Sound 'name$'_long
     plus Sound part
     plus Sound part2
     Remove
     select Sound chain
     Rename... 'name$'_long
endfor
select PointProcess 'name$'
plus TextGrid 'name$'
Remove