Re: [colorforth] Question about displaying text

[Robert Patten <pattenre@xxxxxxxxxxx>]

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



---------------------------------------------------------------------
To unsubscribe, e-mail: colorforth-unsubscribe@xxxxxxxxxxxxxxxxxx
For additional commands, e-mail: colorforth-help@xxxxxxxxxxxxxxxxxx
Main web page - http://www.colorforth.com