10 lines
203 B
Plaintext
10 lines
203 B
Plaintext
|
\ 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
|