//
// LineCp.VDM                                             (C) C.Z. 15.04.96
//
//
// kopiert alle Zeilen ab Cursor/Block-Beginn bis Text-/Block-Ende, die 
// den Suchstring von SEARCH enthalten und sammelt sie in TReg-9.
//
// TReg-9 wird NICHT vorher gel”scht (APPEND).
//

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

#99 = 0

if (BE == -1) {
  BB(CP)  
  EoF
  BE(CP)
}
GP(BB)

while (1==1) {
  BoL 
  s("",NOERR+ADVANCE)
  if (Error_Match) {
    break 
  }
  if (CP>=BE) {
    break 
  } 
  BoL
  RC(9,1,APPEND)
  #99++
  Line(1)
}

M("************************************************************\n")
NumType(#99, LEFT+NOCR)
M(" Zeilen in TReg-9 gesammelt.   Bitte Taste drcken ...\n")