//
// INSCOLSA.VDM                           C.Z. 29.06.1999
//
//
// Fügt in eine Datendatei in bestimmten (absoluten) 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:34x56|7890
// 12:34x56|7890
//
//
// 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
    Goto_Col(#11)
//    Goto_Col(#11+#12)
    Ins_Char(#10)
    Line(1,Noerr)
  } while(!At_EoF)

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