collapseos/recipes/rc2014/run.fs

: (c<) KEY DUP EMIT ;
: INIT
    ACIA$
    ." Collapse OS" CR LF
    ( 0c == CINPTR )
    ['] (c<) 0x0c RAM+ !
;
INIT
link: handle doesWord 2020-04-11 16:38:45 -04:00			`: (c<) KEY DUP EMIT ;`
rc2014: aaaalmost there.... 2020-04-04 14:27:23 -04:00			`: INIT`
			`ACIA$`
rc2014: Forth Collapse OS, fully operational! 2020-04-05 09:09:00 -04:00			`." Collapse OS" CR LF`
rc2014: aaaalmost there.... 2020-04-04 14:27:23 -04:00			`( 0c == CINPTR )`
rc2014: aaalmost there... Red 5 standing by. 2020-04-04 17:07:35 -04:00			`['] (c<) 0x0c RAM+ !`
rc2014: aaaalmost there.... 2020-04-04 14:27:23 -04:00			`;`
			`INIT`