// delhtml.vdm goto_pos(0) repeat(all) { search("",noerr+advance) block_end(cur_pos) del_block(block_begin,block_end) } } goto_pos(0) repeat(all) { search(" ",noerr) if(return_value==0) {break} else { block_begin(cur_pos) search(";",noerr+advance) block_end(cur_pos) del_block(block_begin,block_end) } } goto_pos(0) repeat(all) { search("<",noerr) if(return_value==0) {break} block_begin(cur_pos) search(">",noerr) if(return_value==0) {break} block_end(cur_pos+1) del_block(block_begin,block_end) } block_begin(clear) goto_pos(0) goto_pos(0) repeat(all) { search("|013",noerr) if(return_value==0) {break} del_char(1) } #12=buf_num reg_set(11,pathname) buf_switch(buf_free) reg_ins(11) goto_pos(0) search(".") reg_copy_block(10,bol_pos,cur_pos) buf_quit(ok) buf_switch(#12) file_save_as("|@(10).txt",ok+begin) update() return()