1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-17 07:58:10 +11:00
collapseos/recipes/rc2014/run.fs
2020-04-11 16:38:45 -04:00

10 lines
119 B
Forth

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