//
// FILTER1.VDM                                            (C) C.Z. 03.10.2000
//

if (SR_Display == 0) {
  GetKey("Fehler: Kein Suchstring definiert!  Bitte Taste drücken...",STATLINE)
  return(1)
}

#98 = Buf_Num
#99 = Buf_Free

repeat(ALL) {
  BoL 
  s("",NOERR+ADVANCE)
  if (Error_Match) {
    break 
  }
  BoL
  RC(9,1)
  
  BS(#99)
  RI(9)
  
  BS(#98)
  Line(1)
}