//
// RAHMEN.VDM                                           (C) C.Z. 4/95
//                                                          12.04.95
//
// zeichnet einen einfachen oder doppelten Rahmen im Spaltenblock
//

if(Column_Mode){

  // Einfachstrich
  #11=218 #12=196 #13=191
  #14=179
  #15=192         #16=217

  // Doppelstrich
  #11=201 #12=205 #13=187
  #14=186
  #15=200         #16=188

  #1=Cur_Pos

  if(Block_Begin > Block_End){
    #3=Block_End
    #4=Block_Begin
  } else {
    #3=Block_Begin
    #4=Block_End
  }

  if(Column_Begin > Column_End){
    #5=Column_End
    #6=Column_Begin
  } else {
    #5=Column_Begin
    #6=Column_End
  }
  Goto_Pos(#4)
  #2=Cur_Line
  GP(#3)

  Block_Fill(#11,Cur_Line,Cur_Line,LINESET+COLSET,#5,#5)
  Block_Fill(#12,Cur_Line,Cur_Line,LINESET+COLSET,#5+1,#6-1)
  Block_Fill(#13,Cur_Line,Cur_Line,LINESET+COLSET,#6,#6)

  for(#9=Cur_Line+1; #9<#2; #9++){
    Block_Fill(#14,#9,#9,LINESET+COLSET,#5,#5)
    Block_Fill(#14,#9,#9,LINESET+COLSET,#6,#6)
  }
  Block_Fill(#15,#9,#9,LINESET+COLSET,#5,#5)
  Block_Fill(#12,#9,#9,LINESET+COLSET,#5+1,#6-1)
  Block_Fill(#16,#9,#9,LINESET+COLSET,#6,#6)

  Goto_Pos(#1)
  Update()
}