: (c<) KEY DUP EMIT ;
: INIT
ACIA$
." Collapse OS" CR LF
( 0c == CINPTR )
['] (c<) 0x0c RAM+ !
;
INIT