if(BN<22) 
{ 
  Alert
  Return 
} 
if(BB == -1)
{
  Get_Key("You must block the lines you want to delete",STATLINE)
  Break_Out(EXTRA)
}
if(BE == -1)
{
  Line(1)
  Block_End(cp)
}
#25 = Get_Key("Are you sure you want to delete blocked lines from ORIGINAL file? (y/n)",RAW+STATLINE)
if(!(#25 == 121 || #25 == 89))
  { Break_Out(EXTRA) }
#21 = ((BN-21)/2) 
#22 = BN
#23 = BN+1
Goto_pos(BE)
//line(-1)
do
  {  
    #24 = (CL - 6) * 7
    line(0)
    rc(83,1)
    bs(33)
    out_ins()
    rtb(#23, #24, #24+6)
    out_ins(CLEAR)
    line(0)
    #24 = Num_eval()
    Buf_quit(OK)
    BS(#21) 
    CF(S_H_CR_LINE,0 ) 
    goto_line(#24)
    If(Compare(83)<>0)
    {
      Update()
      Get_Key("Unable to locate exact position; file has changed",STATLINE)
      Break_Out(EXTRA)
    }
    Line(-1)
    Del_Line()
    BS(#22)
    Browse_mode(CLEAR)
    Ins_text("deleted...")
    line(-1)
    Browse_mode(SET)
  } while (cur_pos >= BB && cur_line > 4)
Block_Begin(CLEAR)