18 lines
449 B
Forth
18 lines
449 B
Forth
|
# Experimental Mu shell
|
||
|
|
# A Lisp with indent-sensitivity and infix, no macros. Commas are ignored.
|
||
|
|
|
||
|
|
fn main {
|
||
|
|
var sandbox-storage: sandbox
|
||
|
|
var sandbox/esi: (addr sandbox) <- address sandbox-storage
|
||
|
|
initialize-sandbox sandbox
|
||
|
|
{
|
||
|
|
render-sandbox 0/screen, sandbox, 2/x, 2/y
|
||
|
|
var key/eax: byte <- read-key 0/keyboard
|
||
|
|
compare key, 0
|
||
|
|
loop-if-=
|
||
|
|
# no way to quit right now; just reboot
|
||
|
|
edit-sandbox sandbox, key
|
||
|
|
loop
|
||
|
|
}
|
||
|
|
}
|