collapseos/recipes/rc2014/run.fs

10 lines
119 B
Forth
Raw Normal View History

2020-04-11 16:38:45 -04:00
: (c<) KEY DUP EMIT ;
2020-04-04 14:27:23 -04:00
: INIT
ACIA$
." Collapse OS" CR LF
2020-04-04 14:27:23 -04:00
( 0c == CINPTR )
['] (c<) 0x0c RAM+ !
2020-04-04 14:27:23 -04:00
;
INIT