3 \ this code implements IEEE 1275-1994
5 \ Copyright (C) 2003 Stefan Reinauer
7 \ See the file "COPYING" for further information about
8 \ the copyright and warranty status of this work.
11 \ nodes it's children:
16 " builtin" device-name
21 " console" device-name
24 : write dup >r bounds ?do i c@ (emit) loop r> ;
25 : read dup >r bounds ?do (key) i c! loop r> ;