\ 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