определение LOAD-CONSTANTS найдено в: ~yz/lib/const.f

#( SrcSearch
\ Выделяем слово - и после нажатия F3 на консоль будут выведены все файлы,
\ в которых было найдено выделеное слово и исходник этого слова.
WatchHotKey: "{F3}"
: copy  \ Ctrl+C
0 1 69 162 keybd_event DROP
0 1 69 67 keybd_event DROP
0 3 69 67 keybd_event DROP
0 3 69 162 keybd_event DROP
;
Action:
S" nnCron console*" WIN-EXIST? 0= IF S" tm.exe Console localhost 2002" START-APP THEN  \ Если нет консоли - запустить
copy
RECURSIVE FILESONLY
S" --> Поиск слова " TYPE CLIPBOARD TYPE
FOR-FILES: "D:\src\*.f"
FOUND-FULLPATH FILE   S" : " CLIPBOARD S+   SEARCH
   IF
      S" Найдено в файле: " FOUND-FULLPATH S+  TYPE CR CR
      2DUP 2DUP S" ;" SEARCH  2DROP NIP SWAP - NIP 1+  TYPE CR CR CR
   ELSE
      2DROP
   THEN
;FOR-FILES
S" Поиск завершен....." TYPE
)#