Peter:
Perhaps the following could help you a bit:
SR_Set("j", "rho", SET)
Block_Begin(CLEAR)
while (!AT_EOF) {
Search("\begin|H7B", ERRBREAK+ADVANCE)
#103=Cur_Pos
Search("|H7D", ADVANCE)
Reg_Copy_Block(103, #103, Cur_Pos)
Block_Begin(Cur_Pos)
Search("\end|H7B|@(103)", ERRBREAK)
Block_End(Cur_Pos)
// the BEGIN option lets RB() do the whole block
Replace_Block("", "", Block_Begin, Block_End, BEGIN+ALL+NOERR)
Goto_Pos(Block_End)
Block_Begin(CLEAR)
}
Christian