Return to kernel.fs CVS log | Up to [gforth] / gforth |
version 1.18, 1997/03/19 18:27:16 | version 1.19, 1997/03/20 14:39:51 |
---|---|
Line 1038 G -1 warnings T ! | Line 1038 G -1 warnings T ! |
0C constant #ff ( -- c ) \ gforth | 0C constant #ff ( -- c ) \ gforth |
0A constant #lf ( -- c ) \ gforth | 0A constant #lf ( -- c ) \ gforth |
: bell #bell emit ; | : bell ( -- ) \ gforth |
\g makes a beep and flushes the output buffer | |
#bell emit | |
outfile-id flush-file drop ; | |
: cr ( -- ) \ core | : cr ( -- ) \ core |
\ emit a newline | \ emit a newline |
#lf ( sic! ) emit ; | #lf ( sic! ) emit ; |