| \G Determine whether a character is available. If a character is |
\G Determine whether a character is available. If a character is |
| \G available, @var{flag} is true; the next call to @code{key} will |
\G available, @var{flag} is true; the next call to @code{key} will |
| \G yield the character. Once @code{key?} returns true, subsequent |
\G yield the character. Once @code{key?} returns true, subsequent |
| \G calls to @code{key?} without calling @code{key} or @code{ekey} will |
\G calls to @code{key?} before calling @code{key} or @code{ekey} will |
| \G also return true. |
\G also return true. |
| |
|
| [IFDEF] (key?) ' (key?) IS key? [THEN] |
[IFDEF] (key?) ' (key?) IS key? [THEN] |
| |
|
| : bell #bell emit [ has? os [IF] ] outfile-id flush-file drop [ [THEN] ] ; |
: bell #bell emit [ has? os [IF] ] outfile-id flush-file drop [ [THEN] ] ; |
| : cr ( -- ) \ core c-r |
: cr ( -- ) \ core c-r |
| \G Output a newline (of the favourite kind of the host OS) |
\G Output a newline (of the favourite kind of the host OS). Note |
| |
\G that due to the way the Forth command line interpreter inserts |
| |
\G newlines, the preferred way to use @code{cr} is at the start |
| |
\G of a piece of text; e.g., @code{cr ." hello, world"}. |
| newline type ; |
newline type ; |
| |
|
| : space ( -- ) \ core |
: space ( -- ) \ core |
| \ space spaces 21mar93py |
\ space spaces 21mar93py |
| decimal |
decimal |
| Create spaces ( u -- ) \ core |
Create spaces ( u -- ) \ core |
| \G If @var{n} > 0, display @var{n} spaces. |
\G Display @var{n} spaces. |
| bl 80 times \ times from target compiler! 11may93jaw |
bl 80 times \ times from target compiler! 11may93jaw |
| DOES> ( u -- ) |
DOES> ( u -- ) |
| swap |
swap |
