Did you try Scatmans suggestion?
Code:
cbs2 {
  var %cbs = $remove($read(c:\CitiNews\news\cbs.txt,[color:crimson]n[/color]w,*[14]*),[14],[15])
  msg #NewsRoom 47 $mid(%cbs,17)  $left(%cbs,7) ET
}