//
//  BlockColFill.vdm                             Christian Ziemski    14.01.2004
//
//  Fills a columnar block with the contents of T-Reg 0 (on a line basis!).
//

if ((BB != -1)  && (BE != -1) && Column_Mode) {
  
// // das ist etwas komlexer wg. BB/BE-Pos  
//  if ((Cur_Pos < BB) || (Cur_Pos> BE)) {
//    return
//  }
  
  #103=Column_Begin
  #104=Column_End

  Buf_Switch(Buf_Free(EXTRA))
  Reg_Ins(0, BEGIN)
  EoL
  Ins_Char(32, COUNT, #104-#103+1)    // add full length 
  Reg_Copy_Block(103, 0, #104-#103+1) // get only needed length!
  Buf_Quit(OK)

  Goto_Pos(BE)
  #105=Cur_Line
  if (Cur_Col < #104) {
    #105--
  }

  Goto_Pos(BB)

  while (Cur_Line <= #105) {
    EoL
    if (Cur_Col < #104) {
        Ins_Char(32, COUNT, #104-Cur_Col+1)
    }
    Goto_Col(#103)
    Reg_Ins(103, OVERWRITE)
    Line(1, NOERR+ERRBREAK)
    Goto_Col(#103)
  }
}