1 // rrqforth.asm: WORD p_use,'USE',dovariable
8 Data value: ( wordlist -- ) Input stream: word
11 "USE" is a function word that looks up next word given the wordlist.
12 It reads next word on <<p_input,INPUT>> via <<p_read_word,READ-WORD>>,
13 then temporarily changes <<p_current_wordlist,CURRENT-WORDLIST>> to
14 <<p_find,FIND>> the word via the given wordlist, and returns the TFA
15 of that word, or just 0 if the word coudn't be found.