\ termtest.4th - test pattern for terminal display
: termtest ( -- )
s" -----1---------2---------3---------4---------5---------6-------"
24 1 u+do i . 2 spaces 2dup type cr loop
;
termtest
bye