//  |<|[#]|[|w]|d
//  ^#*\s*\t*\s*[0-9][0-9]*[0-9]*\.[0-9][0-9]*[0-9]*\.[0-9][0-9]*[0-9]*\.[0-9][0-9]*[0-9]*

#98=BN
BoF
#99=Buf_Free

while(! At_EoF){
  Search("^#*\s*\t*\s*[0-9][0-9]*[0-9]*\.[0-9][0-9]*[0-9]*\.[0-9][0-9]*[0-9]*\.[0-9][0-9]*[0-9]*", REGEXP+NOERR+ERRBREAK)
  BoL
  RC(11,1)
  BS(#99)
  Reg_Ins(11)
  Line(-1)
  if(Cur_Char == 35){
    while(Cur_Char == 35){
      DelChar(1)
    }
    EoL
    IT(" @#@")
  }
  BoL
  if(Match("|W") == 0){
    DelChar(Chars_Matched)
  }
  Line(1)
  BS(#98)
  Line(1)
}
BS(#99)
BoF
Sort(0,EoB_Pos)

BoF
while(! At_EoF){
  EoL
  Char(-4)
  if(Match(" @#@") == 0){
    Del_Char(4)
    BoL
    IT("#")
  } else {
    BoL
    IT(" ")
  }
  Line(1)
}

BoF
while(! At_EoF){
  Char(3)
  DoV("\NW\")
  #12=Cur_Col
  while(#12 < 12){
    DoV("\NW\")
    #12=Cur_Col
  }
  
  if(#12 < 19){
    Ins_Char(32, COUNT,19 - #12)

  } else {
    if(#12 > 19){  
      Del_Char(19 - #12)
    }
  }
  
  Line(1)
}