23 lines
426 B
Plaintext
23 lines
426 B
Plaintext
|
: blah ' seremit task-emit ! ;
|
||
|
|
blah
|
||
|
|
|
||
|
|
: start-repl activate blah
|
||
|
|
s" .:: J O R T H ( jean forth) ::." type cr
|
||
|
|
begin receive loadstring s" ok" type cr again ;
|
||
|
|
task const REPL
|
||
|
|
REPL start-repl
|
||
|
|
|
||
|
|
defer tick
|
||
|
|
defer draw
|
||
|
|
|
||
|
|
:noname
|
||
|
|
s" input.jor" loadfile
|
||
|
|
s" entity.jor" loadfile
|
||
|
|
s" timer.jor" loadfile
|
||
|
|
s" footer.jor" loadfile
|
||
|
|
s" map.jor" loadfile
|
||
|
|
s" game.jor" loadfile
|
||
|
|
|
||
|
|
s" pete.jor" loadfile
|
||
|
|
; ' onload redefine
|