Re: Question about displaying text

Robert Patten <[email protected]> Thu, 28 Dec 2006 07:57:22 -0800

Newsgroups	gmane.comp.lang.forth.colorforth
Message-ID	<[email protected]>

\ untested

var s 2 ( hello  world ) \ s number of cells in()

: stype  ( a-) dup  @ for  1 + @  dup  f and if space then drop
: type ( an-) fffffff0 and unpack if emit type ; then drop next drop ;

: ok show text s stype keyboard ;

lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.