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-12 06:38:45 +10:00			`: (c<) KEY DUP EMIT ;`
rc2014: aaaalmost there.... 2020-04-05 04:27:23 +10:00			`: INIT`
			`ACIA$`
rc2014: Forth Collapse OS, fully operational! 2020-04-05 23:09:00 +10:00			`." Collapse OS" CR LF`
rc2014: aaaalmost there.... 2020-04-05 04:27:23 +10:00			`( 0c == CINPTR )`
rc2014: aaalmost there... Red 5 standing by. 2020-04-05 07:07:35 +10:00			`['] (c<) 0x0c RAM+ !`
rc2014: aaaalmost there.... 2020-04-05 04:27:23 +10:00			`;`
			`INIT`