\ dict.fs \ For use with Mecrisp-Stellaris Forth by Matthias Koch, Version: 2.3.6 \ Author: T.Porter \ This Program: A 40 word dictionary pager. : dict ( -- ) cr cr cr ." --- Mecrisp-Stellaris Dictionary, press any key to continue --- " cr 0 >r dictionarystart begin space space dup 6 + ctype cr r> dup 39 > if drop cr key drop 0 >r else 1 + >r then dictionarynext until r> drop drop \ dup (line 11) leaves a number on the stack, and isnt required, but crashes without it, to be fixed ;