#orgY = y; #orgX = x; title "Word Counter"; $strings = input("Input word to count"); if ($strings == "") endmacro; $org_search_strings = searchbuffer; #org_search_option = searchoption; title "Word Counter: Working..."; disabledraw; #search_option = val("66"); setsearch $strings, #search_option; gofiletop; #counter = 0; while (1) { finddown; if (result==0 || (#orgY < y)) break; if (result) #counter = #counter + 1; } title 0; moveto #orgX, #orgY; enabledraw; message "The number of word \"" + $strings + "\" is " + str(#counter) + " up to here."; setsearch $org_search_strings, #org_search_option; endmacro;