version 1.2, 1997/07/06 16:09:55
|
version 1.3, 1997/09/13 12:05:52
|
Line 20
|
Line 20
|
|
|
\ Output 13feb93py |
\ Output 13feb93py |
|
|
has-os [IF] |
has? os [IF] |
0 Value outfile-id ( -- file-id ) \ gforth |
0 Value outfile-id ( -- file-id ) \ gforth |
|
|
: (type) ( c-addr u -- ) \ gforth |
: (type) ( c-addr u -- ) \ gforth |
Line 55 Defer key ( -- c ) \ core
|
Line 55 Defer key ( -- c ) \ core
|
0C constant #ff ( -- c ) \ gforth |
0C constant #ff ( -- c ) \ gforth |
0A constant #lf ( -- c ) \ gforth |
0A constant #lf ( -- c ) \ gforth |
|
|
: 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 |
: cr ( -- ) \ core |
\ emit a newline |
\ emit a newline |
[ ?? has-crlf [IF] ] #cr emit #lf emit |
[ has? crlf [IF] ] #cr emit #lf emit |
[ [ELSE] ] #lf emit |
[ [ELSE] ] #lf emit |
[ [THEN] ] |
[ [THEN] ] |
; |
; |