Re: Question about displaying text

--- Robert Patten <[email protected]> wrote:

> \ 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 ;

Thanks.  After posting this plea I had done 
something similair.

http://primarycolorforth.blogspot.com/2006/12/typing-colorforthver-20.html

And this is the best version so far:

http://primarycolorforth.blogspot.com/2006/12/typing-colorforthversion-30.html

Still need to handle "extended" words better.
But I have an idea of how to do this.

Regards,

John M. Drake


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com