\ dict.fs
\ For use with Mecrisp-Stellaris Forth by Matthias Koch, Version: 2.3.6 
\ Author:  T.Porter <terry@tjporter.com.au>
\ 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
;