BS(1)   // Original


repeat(ALL) {
  // Input Searchstring
  Get_Input(11,"Searchstring: ",STATLINE)
  if(Reg_Size(11)==0) {
    break
  }
  //Copy all matching lines from Buf(1) to Buf(2)
  BS(1)
  BoF
  repeat(ALL) {
    BoL 
    s("|@(11)",NOERR+ADVANCE)
    if (Error_Match) {
      break 
    }
    BoL
    RC(9,1)
    BS(2)
    RI(9)
    BS(1)
    Line(1)
  }
}
BS(2)