: blah ' seremit task-emit ! ;
blah

0 const DEV

: devon 1 ' DEV redefine ;

s" game.log" open seekend fdeactivate const LOGFILE
: emit-log ' fputc LOGFILE withfp ;
: atexit LOGFILE factivate close ;

: start-repl activate blah ' emit-log task-echo !
  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
defer loadlevel

task :noname activate blah begin tick suspend again ; execute

:noname
s" debug.jor" loadfile
s" input.jor" loadfile
s" timer.jor" loadfile
s" entity.jor" loadfile
s" footer.jor" loadfile
s" sound.jor" loadfile
s" title.jor" loadfile
; execute

title