//
// INSCOLSR.VDM                           C.Z. 29.06.1999
//
//
// Fügt in eine Datendatei in bestimmten (relativen) Spalten ein Trennzeichen (!Space) ein.
// Das Trennzeichen und die Position(en) werden in der oben einzufügenden 1.Zeile eingegeben.
//
//
//  Beispiel:
//
//   :  x  |
// 1234567890
// 1234567890
//
// ergibt:
//
//   :  x  |
// 12:345x678|90
// 12:345x678|90
//
//
// Achtung: q & d !
//
//

BoF
#12=0

repeat(all){

  Search_Block("|!|W",CP,EoL_Pos,NOERR)      // alle Trennzeichen suchen
  if(EM){
    break
  }
  
  #10=Cur_Char               // Zeichen und
  #11=Cur_Col                //   Position merken

  Save_Pos()                 // für nächsten Durchlauf

  Line(1)                    // 1. Datenzeile

  do{                        // in allen Datenzeilen in dieser Pos. Trennzeichen einfügen
    EoL
    if(Cur_Col<(#11+#12)){
      Ins_Char(32,COUNT, #11+#12-Cur_Col)
    }
    Goto_Col(#11+#12)
    Ins_Char(#10)
    Line(1,Noerr)
  } while(!At_EoF)

  #12++                      // Anzahl erfolgte Einfügungen
  
  Restore_Pos
  Char(1)
}