1 \ compare dictionaries
\r
6 : checksum { start end -- sum }
\r
14 : findword { target start end -- }
\r
19 ." found at " i u. cr
\r
27 $ 01500fc4 codebase here findword
\r
28 codebase here cr .s checksum u. cr
\r
29 namebase context @ cr .s checksum u. cr
\r