//
// SETDELIM.VDM          26.10.1999
//
//
//
//    ;    # 
// aaabbbbbcccccc
// aaabbbbbcccccc
// aaabbbbbcccccc
//
//   daraus wird:
//
//    ;     # 
// aaa;bbbbb#cccccc
// aaa;bbbbb#cccccc
// aaa;bbbbb#cccccc


bof
repeat(ALL){
  search_block("|! ",cp,eol_pos)
  if(EM){break}
  #11=cur_col
  #12=cc
  set_marker(9,cp+1)
  line(1)
  while(!at_eof){
    gc(#11)
    ic(#12)
    line(1)
  }
  GP(Marker(9))
  it(" ")
}