bof

while(! ateof) {
  if (match("K40")!=0) {  // wenn nicht K40
    Line(1,ERRBREAK)
    continue
  }

  Goto_Col(37)
  RCB(103,CP, CP+12)
  BoL
  Set_Marker(8,CP)

  Search("|<P40|*|@(103)", BEGIN+NOERR)
  if (EM) {
    Goto_Pos(Marker(8))
    IT("*")
  } else {
    Goto_Pos(Marker(8))
  }
  Line(1,ERRBREAK)
}