.#ýü! 6( srchmiscþ ' require,*ü! 8 # str # dir+*ü" 10 ! n ! s " s1 # fun # len+ýü" 12 # strþ & strlen°# lenü" 13}' fsearch°# funü" 14 # dir! 0=.}' bsearch°# fun/cýü" 16 # str$" \nþ ) is_substr°! nü" 18 ! n.ýü" 20 # strþ # funM. # lenw/cü" 21" -1w/býü"
 23 # str! 1 ! nþ & substr°! sýü" 24 # str ! n! 19ý # strþ & strlenþ & substr°" s1ýü" 25 ! sþ & strlen°! nü" 27 ) push_mark.ýü" 29 ! sþ # funM/.ýü" 32 ! nþ ( go_rightýü" 33 " s1þ * looking_at.ýü" 35 ! nþ ' go_leftü" 36 * pop_mark_0ü" 37 # lenw/cü" 39 # 
dir! 0=.ý ! nþ ' go_left/c/fü" 41 * pop_mark_1ü" 42" -1ü! 8y3 search_across_lines,*ü" 45 # pat+*ü" 47 " cs+ + CASE_SEARCH°" csýü" 48 # patþ & strlow # patB.ü" 50! 1°+ CASE_SEARCH/cü" 53 " cswü" 45…1 setup_case_search,*ü" 56 & prompt # dir + line_ok_f
un+*ü" 58 # str ) not_found+! 1°) not_foundýü" 60 & prompt + LAST_SEARCH + Null_Stringþ ) read_mini°# strýü" 61 # strþ & strlen.w/bü" 63 ) push_mark*ü" 65 " cs+ý # strþ 1 setup_case_search°" cs.ýü" 68 ) not_foundþ ( pop_markü" 69 " cs°+ CASE_SEARCH/nü" 
72 # dir! 0?ý # strþ * looking_atC. * go_right_1/cýü" 74 # strþ 2 save_search_stringýü" 76}3 search_across_lines # str # dirü" 77 + line_ok_funþü" 76 2 search_maybe_againN°) not_foundü" 78 ) not_found.ý. %s: not found. # strþ & verror/cü" 80 3 EXECUTE_E
RROR_BLOCKü" 56y5 search_generic_search,ýü" 85/ Search forward:! 1}2 _function_return_1þ 5 search_generic_searchü" 83y. search_forward,ýü" 900 Search backward:" -1}2 _function_return_1þ 5 search_generic_searchü" 88y/ search_backward,*ü" 93 # str # l
en+ýü" 95 # len # strþ - replace_charsü" 93y2 replace_do_replace,*ü# 104 # pat+*ü# 106 " cs+ý # patþ 1 setup_case_search°" cs.ü# 109 " cs°+ CASE_SEARCH/o*ü# 111 # len+ý # patþ & strlen°# lenýü# 112 # pat! 1þ 3 search_across_lines! 0?. # lenw/cü# 113"
 -1wü# 104y6 search_search_function,*ü# 118 # pat & prompt # rep+*ü# 119 * has_prefix+ýü# 121( Replace: + Null_String + Null_Stringþ ) read_mini°# patýü# 122 # patþ & strlen.w/býýü# 124) Replace ' # patþ & strcat' ' with:þ & strcat°& promptýü# 125 & p
rompt    þ ) read_mini°# rep*ü# 127 " cs+ý # patþ 1 setup_case_search°" cs.ü# 130 " cs°+ CASE_SEARCH/nýü# 133}6 search_search_function # pat # rep! 1}2 replace_do_replaceþ 2 replace_with_queryü# 135 3 EXECUTE_ERROR_BLOCKýü# 137% done.þ ' messageü# 116
y+ replace_cmdýü# 140& searchþ ' provide