.#ý( srchmiscþ ' require,* # pat # dir+* # ret+ # dir! 0?.ý # patþ * re_fsearch°# ret/.ý # patþ * re_bsearch°# ret/d¹# ret # rety- re_search_dir,* # pat ) not_found+! 1°) not_foundý0 Search (Regexp): + Null_String + Null_Stringþ ) read_mini°# patý
 # patþ & strlen.w/b ) push_mark.ý ) not_foundþ ( pop_mark/ný}- re_search_dir # pat! 1}2 _function_return_1þ 2 search_maybe_againN°) not_found ) not_found.ý* Not found.þ % error/c 3 EXECUTE_ERROR_BLOCKy1 re_search_forward,* # pat ) not_found+ý
9 Backward Search (Regexp): + Null_String + Null_Stringþ ) read_mini°# patý # patþ & strlen.w/b ) push_mark.ý ) not_foundþ ( pop_mark/ný}- re_search_dir # pat" -1}2 _function_return_1þ 2 search_maybe_againN°) not_found ) not_found.ý* Not found.þ
 % error/c 3 EXECUTE_ERROR_BLOCKy2 re_search_backward,* # pat+ý # patþ * re_fsearch! 1:y8 research_search_function,* # str # len+ý # str! 0þ - replace_match.ý5 replace_match failed.þ % error/b" -2y3 re_replace_function,* # pat ! n # rep & prompt
 $ doit # err " ch+/ Replace Failed!°# errý' Regexp: + Null_String + Null_Stringþ ) read_mini°# patý # patþ & strlen.w/býý) Replace ' # patþ & strcat' ' with:þ & strcat°& promptý & prompt + Null_String + Null_Stringþ ) read_mini°# repý
}8 research_search_function # pat # rep! 1}3 re_replace_functionþ 2 replace_with_queryy3 query_replace_match